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

16/12/23 - Correccion de qu cuando se envía pedido no mandaba "INFO OK"

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-16 22:04:38 -06:00
parent 3efdd92ffa
commit 7f867fac04
6 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
B4A/C_Principal.bas
View File

@@ -1537,7 +1537,7 @@ Sub JobDone(Job As HttpJob)
S_CP.Text = "SUBIENDO"
Next
PB2.Progress = 100
S_CP.Text = "LISTO"
S_CP.Text = "VALIDANDO"
End If
End If
@@ -1901,8 +1901,13 @@ Sub JobDone(Job As HttpJob)
End If
End If
If PB2.Progress = 100 Then S_CP.Text = "LISTO"
If PB2.Progress = 100 And CARGA <> "SUBIR" Then
S_CP.Text = "LISTO"
End If
Job.Release
' if carga = "SUBIR" then logcolor(reqManager.reqsList, Colors.blue)
Log($"tiempo Request "${Job.Tag}": ${((reqManager.inicioJobDone - reqManager.inicioRequest)/1000)}"$)
Log($"tiempo JobDone "${Job.Tag}": ${((DateTime.Now - reqManager.inicioJobDone)/1000)}"$)
Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
@@ -2112,6 +2117,7 @@ Sub inv_Click
End Sub
Sub t1_tick
reqManager.trackInit
cmd.Initialize
cmd.Name = "select_cuantos_pedido_KELL"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
@@ -2121,16 +2127,16 @@ Sub t1_tick
t3.Enabled = True
Wait For t3_tick
'
' cmd.Initialize
' cmd.Name = "select_cuantos_noventa_KELL"
' cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
' reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
'
' cmd.Initialize
' cmd.Name = "select_cuantos_pedidoc_KELL"
' cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
' reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
'
cmd.Initialize
cmd.Name = "select_cuantos_noventa_KELL"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
cmd.Initialize
cmd.Name = "select_cuantos_pedidoc_KELL"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
If PB2.Progress = 0 Then
S_CP.Text = "ENVIAR DATOS (K-1)"
End If
@@ -2139,6 +2145,7 @@ Sub t1_tick
End Sub
Sub B_OK_PAS_Click
Log($"${CARGA}|${S_CP.text}"$)
If CARGA = "SUBIR" And S_CP.Text = "INFO OK" Then
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
PERFIL = "0"
@@ -2620,6 +2627,9 @@ Sub SUBIR_INFO_PEDIDO
If abordo1 = "" Then abordo1 = "0"
Log($"${monto1}, ${abordo1}"$)
monto1 = monto1 - abordo1
reqManager.trackInit
Dim cmd As DBCommand
cmd.Initialize
cmd.Name ="insert_drop2_KELL"