cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

v.5.09.07 s/C Se quitan los clientes nuevos, se agrega un boton de productos, se envian los clienes nuevos con el mandapendientes

Browse Source
This commit is contained in:
Javier
2025-09-26 13:33:24 -06:00
parent 0213f3025d
commit 501c281380
8 changed files with 169 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
B4A/C_Cliente.bas
View File

@@ -626,7 +626,7 @@ Sub Guardar_Click
' LogColor($"actualizamos "${la_cuenta.text}, hora_final=${DateTime.now}"$,Colors.Red)
Subs.actualizaTET(la_cuenta.text)
DateTime.TimeFormat = "HH:mm:ss"
' mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!! solo envia clientes nuenos, no comentar lo que yo descomente --- javier (por que Guerra lo comento)
mandapiezas
B4XPages.MainPage.productos.reiniciarlistaProds = True
B4XPages.MainPage.productos.prodsMap.Initialize
@@ -1210,24 +1210,24 @@ Sub mandaPendientes
' End If
' ab.Close
' 'CLIENTES NUEVOS
' Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$)
' Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN")
' cb.Position = 0
' If bb.RowCount > 0 Then
' For i=0 To bb.RowCount -1
' bb.Position = i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_cliente_INTMEX"
' cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN"))
' reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
' Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
' Next
' Log("si lo hice")
' End If
' bb.Close
' cb.Close
'CLIENTES NUEVOS
Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$)
Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN")
cb.Position = 0
If bb.RowCount > 0 Then
For i=0 To bb.RowCount -1
bb.Position = i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_cliente_INTMEX"
cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN"))
reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
Next
Log("si lo hice")
End If
bb.Close
cb.Close
'' BANDERA FACTURA (Pendientes)
'' c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_FACTURA, PC_CLIENTE FROM pedido_cliente where PC_CLIENTE IN (Select CUENTA from cuentaa)")