...

B4A/C_Productos.bas

@@ -289,6 +289,8 @@ Sub B4XPage_Appear
 	Next
 '	Log(mPromos)
 	traeListaPrecios(kh.traeAlmacen, kh.traeRuta, "", PERFIL)
+	
+	
 End Sub
 
 Sub PCLV_AddProds
@@ -305,6 +307,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
 		LlenaProdsLL(Null, Null)
 		clv_prods_ll.AsView.BringToFront
 		clv_prods_ll.AsView.Visible = True
+		p_botonesVenta.Visible = True
 		If hayPedido Then p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones.
 		l_mDisponible.Visible = False
 	Else
@@ -832,7 +835,7 @@ Sub b_terminar1_Click
 	Subs.agrupador
 	lv_prodsPedido.Clear
 	list_prodsPedido.Initialize
-	Subs.revisaRMIs(Subs.traeCliente)
+'	Subs.revisaRMIs(Subs.traeCliente)
 	Private c_prods As Cursor=Starter.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, ifnull(PE_COSTOU, 0) as PE_COSTOU, PE_CANT, PE_FOLIO, PE_CEDIS, PE_PROID, PE_TIPO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_TIPO desc, PE_CEDIS, PE_COSTO_TOT, PE_PRONOMBRE")
 '	Log(c_prods.RowCount)
 	If c_prods.RowCount > 0 Then
@@ -1085,7 +1088,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
 				Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 			End If
 			Log("xxx")
-			Subs.revisaRMIs(Subs.traeCliente)
+'			Subs.revisaRMIs(Subs.traeCliente)
 			
 			b_terminar1_Click
 		End If