Se cambia el envio, ya se envian los abonos, SE CAMBIA LA CAPTUTRA DE LOS ABONOS

B4A/C_Principal.bas

@@ -670,6 +670,22 @@ Sub Subir_Click
 		End If
 		c.Close
 		
+		'ABONOS
+		Dim ab As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
+		Log(ab.RowCount)
+		If ab.RowCount > 0 Then
+			For i=0 To ab.RowCount -1
+				ab.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_abono_MARQUEZ"
+				cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN )
+				reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+				Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+			Next
+		End If
+		ab.Close
+		
 		' CLIENTES NUEVOS
 		Dim fotocn() As Byte
 		Dim Dirp As String = File.DirInternal