mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-21 20:09:13 +00:00
- Se modificó el código del Proyecto GPS porque a veces mandaba la fecha final equivocada.
This commit is contained in:
Jose Alberto Guerra Ugalde
@@ -918,7 +918,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
' If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
|
||||
If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "kmt_datos" Then 'query tag
|
||||
@@ -2850,77 +2850,24 @@ Sub SUBIR_INFO_PEDIDO
|
||||
Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS"$)
|
||||
Do While h.nextrow
|
||||
cmd.Initialize
|
||||
' If h.GetString("eventob") <> "Termina Venta" And h.GetString("eventob") <> "No Venta" Then
|
||||
'' Private nombreCliente As String = Subs.traeNombreCliente(h.GetString("usuariob"))
|
||||
' cmd.Name = "mandaBitacora3"
|
||||
' Log("BITACORA3")
|
||||
' Private nombreCliente As String = Subs.traeNombreCliente(h.GetString("clienteb"))
|
||||
' If h.GetString("eventob") = "Llega a almacen" Then nombreCliente = "BOLETA"
|
||||
' If h.GetString("eventob") = "Salida almacen" Then nombreCliente = "CHECKLIST"
|
||||
' If h.GetString("eventob") = "Fin Día" Then nombreCliente = "FIN DIA"
|
||||
' If h.GetString("eventob") = "Carga día" Then nombreCliente = "CARGA DIA"
|
||||
'' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${traeNombreCliente(clienteb)}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
|
||||
'' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC
|
||||
' cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), nombreCliente, h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
|
||||
' Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
' Else
|
||||
' Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${h.GetString("usuariob")}' and almacenb = '${h.GetString("almacenb")}' and rutab = '${h.GetString("rutab")}' and clienteb = '${h.GetString("clienteb")}' and eventob = 'Inicia Venta' order by fechab desc"$)
|
||||
' If e.RowCount > 0 Then
|
||||
' e.Position = 0
|
||||
' Log("ACTUALIZA BITACORA")
|
||||
' cmd.Name = "actualizaSalidaBitacora"
|
||||
'' TMP_FINAL = to_date((?),'YYYY/MM/DD HH24:MI:ss') where TMP_RUTA = (?) and tmp_almacen = (?) and tmp_usuario = (?) and tmp_id_cliente = (?) and tmp_evento = (?) and tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss');
|
||||
' cmd.Parameters = Array As Object(h.GetString("finb"), h.GetString("rutab"), h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("clienteb"), "Inicia Venta", e.GetString("fechab"))
|
||||
' Log($"${h.GetString("finb")}, ${h.GetString("rutab")}, ${h.GetString("almacenb")}, ${h.GetString("usuariob")}, ${h.GetString("clienteb")}, 'Inicia Venta', ${e.GetString("fechab")}, "$)
|
||||
' Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
Private eventob As String = h.GetString("eventob")
|
||||
If eventob <> "Termina Venta" And eventob <> "No Venta" Then
|
||||
cmd.Name = "mandaBitacora3"
|
||||
Log("BITACORA3")
|
||||
Private clienteb As String = h.GetString("clienteb")
|
||||
Private finb As String = h.GetString("finb")
|
||||
Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb"))
|
||||
If eventob = "Llega a almacen" Then
|
||||
nombreCliente = "BOLETA"
|
||||
clienteb = ""
|
||||
finb = h.GetString("iniciob")
|
||||
End If
|
||||
If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
|
||||
If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
|
||||
If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
|
||||
cmd.Name = "mandaBitacora3"
|
||||
Log("BITACORA3")
|
||||
Private clienteb As String = h.GetString("clienteb")
|
||||
Private finb As String = h.GetString("finb")
|
||||
Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb"))
|
||||
If eventob = "Llega a almacen" Then
|
||||
nombreCliente = "BOLETA"
|
||||
clienteb = ""
|
||||
finb = h.GetString("iniciob")
|
||||
End If
|
||||
If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
|
||||
If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
|
||||
If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
|
||||
' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
|
||||
' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
|
||||
cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
|
||||
Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
Else
|
||||
Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${h.GetString("usuariob")}' and almacenb = '${h.GetString("almacenb")}' and rutab = '${h.GetString("rutab")}' and clienteb = '${h.GetString("clienteb")}' and eventob = 'Inicia Venta' order by fechab desc"$)
|
||||
If e.RowCount > 0 Then
|
||||
e.Position = 0
|
||||
Log("ACTUALIZA BITACORA")
|
||||
If eventob = "Termina Venta" Then
|
||||
cmd.Name = "actualizaSalidaBitacora"
|
||||
' TMP_FINAL = to_date((?),'YYYY/MM/DD HH24:MI:ss') where TMP_RUTA = (?) and tmp_almacen = (?) and tmp_usuario = (?) and tmp_id_cliente = (?) and tmp_evento = (?) and tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss');
|
||||
cmd.Parameters = Array As Object(h.GetString("finb"), h.GetString("rutab"), h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("clienteb"), "Inicia Venta", e.GetString("fechab"))
|
||||
' Log($"${finb}, ${rutab}, ${almacenb}, ${usuariob}, ${clienteb}, 'Inicia Venta', ${e.GetString("fechab")}, "$)
|
||||
Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
else if eventob = "No Venta" Then
|
||||
cmd.Name = "actualizaNoVentaBitacora"
|
||||
' TMP_FINAL = to_date((?),'YYYY/MM/DD HH24:MI:ss') where TMP_RUTA = (?) and tmp_almacen = (?) and tmp_usuario = (?) and tmp_id_cliente = (?) and tmp_evento = (?) and tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss');
|
||||
cmd.Parameters = Array As Object(h.GetString("finb"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("rutab"), h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("clienteb"), "Inicia Venta", e.GetString("fechab"))
|
||||
' Log($"${finb}, ${rutab}, ${almacenb}, ${usuariob}, ${clienteb}, 'Inicia Venta', ${e.GetString("fechab")}, "$)
|
||||
Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
' cmd.Name = "mandaBitacora"
|
||||
' cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), Subs.traeNombreCliente(h.GetString("clienteb")), h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"))
|
||||
' reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
|
||||
reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
||||
Loop
|
||||
Log("MANDAMOS BITACORA")
|
||||
|
||||
|
||||
Reference in New Issue
Block a user