Version: 5.06.01

Se le agrego el boton de cobranza, la cual verifica del CAT_GUNAPROD2 si hay cuentas por cobrar, si encuentra, las muestra y si ya tienen abonos los indica y los suma.

B4A/C_Cliente.bas

@@ -946,6 +946,7 @@ Sub GUADAVENTA2
 		b_ventaabordo.Enabled = True
 		HIST.Enabled = True
 		banderaimp = 0
+		mandaPendientePagare
 		B4XPages.ShowPage("Principal")
 	Else If B4XPages.MainPage.recarga = "1" Then
 		DateTime.DateFormat = "MM/dd/yyyy"
@@ -2016,6 +2017,22 @@ Sub mandaPendientes
 	End If
 End Sub
 
+Sub mandaPendientePagare
+	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ABONOS where ifnull(a_enviado, 0) <> 1")
+	Log($"ABONO PENDIENTE: ${c.RowCount}"$)
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_abono_MARQUEZ"
+			cmd.Parameters = Array As Object( c.GetString("a_usuario"), c.GetString("a_ruta"), c.GetString("a_cliente"), c.GetString("a_abono"), c.GetString("a_fecha"),ALMACEN )
+			reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${c.GetString("a_cliente")}"$)
+			Log($"ins_abonosPendientes_${c.GetString("a_cliente")}"$)
+		Next
+	End If
+End Sub
+
 Sub mandaPendientesrecarga
 '	PEDIDO_CLIENTE (Pendientes)
 	Log(">>>>>>>  MANDA PENDIENTES")