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

- Se corrigió que cuando se envia la informacion (ruta, conectar, envio) tampoco mande doble la noventa.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-20 15:20:53 -06:00
parent 4fa175cc93
commit f865292888
3 changed files with 56 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
B4A/C_Principal.bas
View File

@@ -2064,7 +2064,7 @@ Sub connecta_Click
reqManager.ExecuteQuery(cmd , 0, "version")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta3_KELL"
cmd.Name = "select_ruta4_KELL"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario)
Log($"******* Almacen: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -2850,31 +2850,68 @@ 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" Then
' Private nombreCliente As String = Subs.traeNombreCliente(h.GetString("usuariob"))
' 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("BITACORA2")
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"))
Log("BITACORA3")
Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb"))
If eventob = "Llega a almacen" Then nombreCliente = "BOLETA"
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, 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")
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")

2
B4A/KelloggsV4.b4a
View File

@@ -888,7 +888,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 4.05.19
#VersionName: 4.05.20
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

2
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cliente,Imprime_ticket,1539,0,kms_helperSubs,traeTotalCliente,673,0,Visual Designer,cliente.bal,-100,4,kms_helperSubs,revisaImpresa,929,0,kms_helperSubs,clienteConDOE,919,0,kms_helperSubs,traeMaxClientesNuevos,910,0,Subs,bitacora,1695,0,Visual Designer,login.bal,-100,3,Visual Designer,principal.bal,-100,4,C_Principal,SUBIR_INFO_PEDIDO,2822,3,C_Principal,b_cuotas_Click,2739,6
NavigationStack=C_Principal,JobDone,1615,0,Visual Designer,cliente.bal,-100,4,kms_helperSubs,revisaImpresa,929,0,kms_helperSubs,clienteConDOE,919,0,kms_helperSubs,traeMaxClientesNuevos,910,0,Visual Designer,login.bal,-100,3,Visual Designer,principal.bal,-100,4,C_Principal,b_cuotas_Click,2739,6,Subs,bitacora,1692,0,C_Principal,connecta_Click,2058,0,C_Principal,SUBIR_INFO_PEDIDO,2862,6
SelectedBuild=0
VisibleModules=1,28,11,3,26,23,29,12,4,13