cheveguerra/Guna_Preventa_BAT
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa_BAT.git synced 2026-04-20 14:19:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

6.02.19

Browse Source
This commit is contained in:
cvaldes1201
2026-03-10 10:19:29 -06:00
parent 5da05adc6f
commit bf303747a0
805 changed files with 45635 additions and 183960 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_Principal.bas
View File

@@ -1629,7 +1629,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_GV2_70_14"
cmd.Name = "select_ruta_GV2_70_15"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
'Log("Usuario guardado en BD es 'Valido'")
@@ -1723,7 +1723,7 @@ Sub JobDone(Job As HttpJob)
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Private f As Cursor = Starter.skmt.ExecQuery($"select * from fotos where cliente = '${CLIENTE}' and fecha = '${fecha}'"$)
Log("==> EXISTE LA FOTO:" & f.RowCount)
' Log("==> EXISTE LA FOTO:" & f.RowCount)
If f.RowCount = 0 Then
cmd.Initialize
cmd.Name = "traeFotoGuna"
@@ -1800,7 +1800,7 @@ Sub JobDone(Job As HttpJob)
If hdsgf.RowCount = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO CODIGOS_CREDITO(CODIGO,BANDERA,CLIENTE) VALUES (?,?,?)", Array As Object (CODIGOCREDITO,BANDERACREDITO,CLIENTECREDITO))
Else
Log("NO ENTRO")
' Log("NO ENTRO")
End If
End If
@@ -2538,8 +2538,9 @@ Sub JobDone(Job As HttpJob)
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
Log(HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA) VALUES (?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
Dim HVD_NUM_TICKET As String = records(RESULT.Columns.Get("HVD_NUM_TICKET"))
' Log(HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_NUM_TICKET) VALUES (?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_NUM_TICKET))
Next
End If