mirror of
https://github.com/KeymonSoft/DBCheck.git
synced 2026-04-17 19:37:09 +00:00
VERSION 6.03.19
- Correcion en envio de datos de venta y reparto
This commit is contained in:
158
B4A/C_Intmex.bas
158
B4A/C_Intmex.bas
@@ -203,155 +203,83 @@ Sub envia
|
||||
End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
Log("JOBDONE INTMEX")
|
||||
Log(reqManager.link)
|
||||
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
|
||||
If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
|
||||
reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
|
||||
LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
|
||||
End If
|
||||
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
|
||||
Log("JOBDONE - " & almacen)
|
||||
|
||||
' 1. Tachamos el request de la lista
|
||||
If reqManager.reqsList.IsInitialized Then
|
||||
Dim index As Int = reqManager.reqsList.IndexOf(Job.tag)
|
||||
If index <> -1 Then reqManager.reqsList.RemoveAt(index)
|
||||
End If
|
||||
If Job.Success = False Then
|
||||
Log("ERROR")
|
||||
LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
|
||||
' Job.Release
|
||||
Else 'If Job Success then ...
|
||||
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0)) 'Mod por CHV - 211027
|
||||
'Verificamos que el usuario guardado en BD sea VALIDO.
|
||||
|
||||
If Not(Job.Success) Then
|
||||
LogColor("Error en red: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.Red)
|
||||
Else
|
||||
' 2. Procesamos validaciones
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "update_gps" Then
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Log("==========================REGISTROS="&RESULT.Rows)
|
||||
For Each k As String In RESULT.Columns.Keys
|
||||
Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
If RESULT.Tag = "ins_pedidos" Then
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Log("==========================REGISTROS="&RESULT.Rows)
|
||||
For Each k As String In RESULT.Columns.Keys
|
||||
Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedido" Then 'query tag
|
||||
If RESULT.Tag = "valida_pedido" Then
|
||||
Subs.logJobDoneResultados(RESULT)
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
|
||||
Log(CUANTOSP)
|
||||
B4XPages.MainPage.l_vProds2.Text = $"${CUANTOSP}/${cuantos_pedido}"$
|
||||
' Mantenemos tu lógica permisiva
|
||||
If cuantos_pedido <= CUANTOSP Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
' S_CP.Text = "INFO OK"
|
||||
ToastMessageShow("INFO OK", False)
|
||||
Else
|
||||
' S_CP.Text = "ENVIAR DATOS (K-2)"
|
||||
ToastMessageShow($"No se cargo bien la info de pedido.${CRLF}Envíe nuevamente: "$ & CUANTOSP & "/" & cuantos_pedido, True)
|
||||
ToastMessageShow("ENVIAR DATOS (K-2)", True)
|
||||
Log("No se cargo bien la info de pedido. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido)
|
||||
LogColor("Faltan pedidos. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido, Colors.Red)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedidoc" Then 'query tag
|
||||
Else If RESULT.Tag = "valida_pedidoc" Then
|
||||
Subs.logJobDoneResultados(RESULT)
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
|
||||
B4XPages.MainPage.l_vPedidos2.Text = $"${CUANTOSC}/${cuantos_pedidosc}"$
|
||||
If cuantos_pedidosc = CUANTOSC Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
ToastMessageShow($"No se cargo bien la info de pedido_cliente.${CRLF}Envíe nuevamente: "$ & CUANTOSC & "/" & cuantos_pedidosc, True)
|
||||
Log("No se cargo bien la info de pedido_cliente. Envíe nuevamente: " & CUANTOSC & "/" & cuantos_pedidosc)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_noventa" Then 'query tag
|
||||
Else If RESULT.Tag = "valida_noventa" Then
|
||||
Subs.logJobDoneResultados(RESULT)
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN"))
|
||||
B4XPages.MainPage.l_vNoVenta2.Text = $"${CUANTOSN}/${cuantos_noventa}"$
|
||||
If cuantos_noventa = CUANTOSN Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
ToastMessageShow($"No se cargo bien la info de NoVenta.${CRLF}Envíe nuevamente: "$ & CUANTOSN & "/" & cuantos_noventa, True)
|
||||
Log("No se cargo bien la info de NoVenta. Envíe nuevamente:" & CUANTOSN & "/" & cuantos_noventa)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "ins_pedido" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
' PB2.Progress = PB2.Progress + 5
|
||||
' S_CP.Text = "SUBIENDO"
|
||||
Next
|
||||
' PB2.Progress = 100
|
||||
Log("PROGRESO 100")
|
||||
' S_CP.Text = "REVISANDO ..."
|
||||
ToastMessageShow("REVISANDO", False)
|
||||
Log("REVISANDO")
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "ins_cuestionario" Then 'query tag
|
||||
Subs.logJobDoneResultados(RESULT)
|
||||
End If
|
||||
End If
|
||||
If reqManager.reqsList.size = 0 Then ' Si ya no hay consultas pendientes ...
|
||||
|
||||
Job.Release
|
||||
|
||||
' 3. Control de flujo seguro
|
||||
If reqManager.reqsList.size = 0 Then
|
||||
B4XPages.MainPage.p_progressDialog.Visible = False
|
||||
If enviando Then ' Si terminamos de enviar pedido ...
|
||||
Sleep(200)
|
||||
B4XPages.MainPage.l_progressDialog.Text = "Validando " ' Mostramos el panel de progreso.
|
||||
B4XPages.MainPage.p_progressDialog.Visible = True
|
||||
valida ' Iniciamos la validación
|
||||
If enviando Then
|
||||
enviando = False
|
||||
End If
|
||||
If validando Then
|
||||
B4XPages.MainPage.l_progressDialog.Text = "Validando "
|
||||
B4XPages.MainPage.p_progressDialog.Visible = True
|
||||
Sleep(200)
|
||||
valida
|
||||
Else If validando Then
|
||||
validando = False
|
||||
Sleep(300)
|
||||
'Mostramos el panel de Validación.
|
||||
B4XPages.MainPage.p_validacion.Visible = True
|
||||
End If
|
||||
End If
|
||||
Job.Release
|
||||
End Sub
|
||||
|
||||
Sub valida
|
||||
validando = True
|
||||
almacen = Subs.traeAlmacen
|
||||
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
d.Position = 0
|
||||
cuantos_pedido = d.GetString("CUANTOS_PEDIDO")
|
||||
|
||||
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
||||
d.Position = 0
|
||||
cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC")
|
||||
|
||||
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
d.Position = 0
|
||||
cuantos_noventa = d.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
' almacen = Subs.traeAlmacen
|
||||
' d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
' d.Position = 0
|
||||
' cuantos_pedido = d.GetString("CUANTOS_PEDIDO")
|
||||
'
|
||||
' d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
||||
' d.Position = 0
|
||||
' cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC")
|
||||
'
|
||||
' d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
' d.Position = 0
|
||||
' cuantos_noventa = d.GetString("CUANTOS_NOVENTA")
|
||||
' d.Close
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cuantos_pedido_INTMEX"
|
||||
@@ -368,7 +296,7 @@ Sub valida
|
||||
cmd.Name = "select_cuantos_pedidoc_INTMEX"
|
||||
cmd.Parameters = Array As Object(almacen, Subs.traeRuta)
|
||||
reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
|
||||
Log("http://keymon.net:1781")
|
||||
' Log("http://keymon.net:1781")
|
||||
|
||||
B4XPages.MainPage.l_vPedidos2.Text = ""
|
||||
B4XPages.MainPage.l_vProds2.Text = ""
|
||||
|
||||
Reference in New Issue
Block a user