-Se quitó la restricción de los RMIs, ahora se pueden meter puros RMIs y ya no los borra del pedido.

B4A/C_Productos.bas

@@ -1074,6 +1074,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
 			If c.GetString("CUANTOS") > 0 Then
 				Log($"==============   TOTAL = ${c.GetString("TOTAL_CLIE")}"$)
 				If c.GetString("TOTAL_CLIE") < 1 Then
+					Log("Borramos RMI")
 					Starter.skmt.ExecNonQuery("delete from pedido where PE_PRONOMBRE like 'CAMBIO%' and PE_CLIENTE In (select cuenta from cuentaa)"$)
 				End If
 				
@@ -1085,8 +1086,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
 	Else
@@ -1143,7 +1143,7 @@ Sub l_prodX_Click
 End Sub
 
 Private Sub l_prodX_LongClick
-	'	Log("longClic = "&Sender.as(Label).Text)
+	Log("longClic = "&Sender.as(Label).Text)
 	If Subs.traeCliente <> 0 Then
 		Dim index As Int = clv_prods_ll.GetItemFromView(Sender)
 		nuevaCantRMI = 0
@@ -1455,6 +1455,7 @@ Private Sub b_rmi_mas_Click
 	End If
 	nuevaCantRMI = (rmiMap.Get("totalRMI") - l_rmi_cant.Text) * -1
 	Log(nuevaCantRMI)
+	p_botonesVenta.Visible = True
 End Sub
 
 Private Sub b_rmi_Click