cheveguerra/Guna_Reparto_Diseno_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Diseno_Viejo.git synced 2026-04-21 22:59:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.01.25

Browse Source 
- Cambios para envio de mensaje por WhatsApp (incompletos)
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-04 21:52:10 -06:00
parent ead56c8758
commit 74c7113329
8 changed files with 886 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
B4A/C_Principal.bas
View File

@@ -856,6 +856,13 @@ Sub cargaGeneral
reqManager.ExecuteQuery(cmd , 0, $"hist_datos_${ALMACEN}"$)
LogColor($"Pedimos hist_datos - ${ALMACEN}, ${e_ruta.text}"$, Colors.red)
reqs.Add("hist_datos")
cmd.Initialize
cmd.Name = "select_abonosp_GUNA"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, $"pagares"$)
LogColor($"Pedimos pagares - ${e_ruta.text}, ${ALMACEN}"$, Colors.red)
reqs.Add("pagares")
End Sub
Sub JobDone(Job As HttpJob)
@@ -895,12 +902,13 @@ Sub JobDone(Job As HttpJob)
Dim CAT_CL_LONG As String = records(result.Columns.Get("CAT_CL_LONG"))
Dim CAT_CL_LAT As String = records(result.Columns.Get("CAT_CL_LAT"))
Dim CAT_CL_BCREDITO As String = records(result.Columns.Get("CAT_CL_BCREDITO"))
Dim CAT_CL_LIMITECREDITO As String = records(result.Columns.Get("CAT_CL_LIMITECREDITO"))
Dim CAT_CL_IDALMACEN As String = records(result.Columns.Get("CAT_CL_IDALMACEN"))
' Log(" ++ insert into kmt_info: "&CAT_CL_RUTA&","&CAT_CL_CODIGO&","&CAT_CL_RUTA&","&CAT_CL_NOMBRE)
' Log(records(result.Columns.Get("CAT_CL_IDALMACEN")))
If Not(CAT_CL_CODIGO.StartsWith("N")) Then
' Log($"INSERT ${CAT_CL_CODIGO}"$)
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion, SECUENCIA, CAT_CL_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO,"0",CAT_CL_IDALMACEN))
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion, SECUENCIA, CAT_CL_IDALMACEN, CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO,"0",CAT_CL_IDALMACEN,CAT_CL_LIMITECREDITO))
End If
Next
Starter.skmt.TransactionSuccessful
@@ -1339,6 +1347,24 @@ Sub JobDone(Job As HttpJob)
Next
Next
End If
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "pagares" Then 'query tag
' For Each records() As Object In result.Rows
' For Each k As String In result.Columns.Keys
' Log(k & ": " & records(result.Columns.Get(k)))
' Next
' Next
For Each records() As Object In result.Rows
Private NOTA As String = records(result.Columns.Get("NOTA"))
Private CLIENTE As String = records(result.Columns.Get("CLIENTE"))
Private ALMACEN As String = records(result.Columns.Get("ALMACEN"))
Private SALDO_PENDIENTE As String = records(result.Columns.Get("SALDO_PENDIENTE"))
Private RUTA_PREVENTA As String = records(result.Columns.Get("RUTA_PREVENTA"))
Private REPARTO As String = records(result.Columns.Get("REPARTO"))
Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES(NOTA, CLIENTE, ALMACEN, SALDO_PENDIENTE, RUTA_PREVENTA, REPARTO) VALUES (?,?,?,?,?,?)", Array As Object (NOTA, CLIENTE, ALMACEN, SALDO_PENDIENTE, RUTA_PREVENTA, REPARTO))
Next
End If
If result.Tag = "agrupaAlmacen" Then 'query tag
If result.Rows.Size > 1 Then
@@ -1464,6 +1490,7 @@ Sub e_ruta_EnterPressed
Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_MONEDAS")
Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_BILLETES")
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
Starter.skmt.ExecNonQuery("DELETE FROM PAGARES")
B4XPage_Appear
End If
' Starter.waypointsOrdered.Clear