From f865292888290514616e7e41286401280ef3e3f1 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 20 May 2024 15:20:53 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20corrigi=C3=B3=20que=20cuando=20se=20en?= =?UTF-8?q?via=20la=20informacion=20(ruta,=20conectar,=20envio)=20tampoco?= =?UTF-8?q?=20mande=20doble=20la=20noventa.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 71 +++++++++++++++++++++++++++++++---------- B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 2 +- 3 files changed, 56 insertions(+), 19 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index db6c350..9dbc4bc 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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") diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 912e63c..553cde1 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -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 diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 1a410f9..389e4d7 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -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