diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 5cc87cd..1b52eba 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -4181,7 +4181,7 @@ Private Sub b_inicioFinVenta_Click Else Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "") Starter.enVenta = True - LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) + LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) End If b_inicioFinVenta.Visible = False End Sub diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 31b9377..475c304 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -305,6 +305,7 @@ Sub B4XPage_Appear If Subs.traeUltimaActividadBD <> "principal" Then Subs.iniciaActividad(Subs.traeUltimaActividadBD) borraClientesNuevosSinVenta reqManager.Initialize(Me, Starter.DBReqServer) + Log($"DBREQSERVER = ${Starter.DBReqServer}"$) ' If Not(btAdmin.IsEnabled) Then btAdmin.Enable 'Si no esta prendido el BT, lo prendemos. e_ruta.Enabled = True @@ -2058,21 +2059,18 @@ Sub connecta_Click End Sub Private Sub connecta_LongClick - Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS"$) - Do While h.nextrow - cmd.Initialize - cmd.Name = "mandaBitacora" -' 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"), 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.Name = "borraBitacora" -' cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb")) - Loop -' End If - Log("MANDAMOS BITACORA") -' Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","") -' sql.mandaBitacora = insert into KELLOGGS.TMP_GPS_DIARIO (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) values ((?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),sysdate) +' Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS"$) +' Do While h.nextrow +' cmd.Initialize +' cmd.Name = "mandaBitacora" +'' 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"), 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.Name = "borraBitacora" +'' cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb")) +' Loop +'' End If +' Log("MANDAMOS BITACORA") End Sub Sub BUSCA_Click @@ -2755,16 +2753,33 @@ Sub SUBIR_INFO_PEDIDO cmd.Parameters = Array As Object(PEDIDO_TOT, L_ABORDO.Text, d.GetDouble("MONTO"),l_ruta.TEXT, ALMACEN) reqManager.ExecuteCommand(cmd , "inst_noventa_Upd_Info_e_Kell") contador_env = contador_env + 1 - + 'BITACORA (PROYECTO GPS) Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS"$) Do While h.nextrow cmd.Initialize - cmd.Name = "mandaBitacora" - cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), 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.Name = "borraBitacora" -' cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb")) + If h.GetString("eventob") <> "Termina Venta" Then + cmd.Name = "mandaBitacora3" + Log("BITACORA2") +' 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"), 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"), 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 +' 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") Loop Log("MANDAMOS BITACORA") diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 9942c97..fbde5df 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -869,7 +869,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 4.04.22 + #VersionName: 4.04.23 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index bf991f6..1e2c92b 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -88,6 +88,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=DBRequestManager,ExecuteQuery,35,0,DBRequestManager,Initialize,24,0,Starter,Process_Globals,49,4,C_Principal,B4XPage_Created,272,0,C_Principal,B4XPage_Appear,287,6,C_Principal,connecta_LongClick,2011,0,kms_helperSubs,traeDescXSku,1059,0,kms_helperSubs,ping,1063,6,C_Principal,connecta_Click,1987,6,C_Principal,JobDone,1592,0,B4XMainPage,Class_Globals,97,0 +NavigationStack=C_Principal,B_OK_PAS_Click,2296,0,C_Principal,Subir_Click,466,0,C_Principal,cargar_Click,864,0,Subs,esPromo,1638,0,C_Principal,connecta_Click,2040,2,Starter,Service_Create,66,0,Starter,Process_Globals,51,0,C_Principal,B4XPage_Appear,295,6,Subs,bitacora,1656,0,C_Principal,SUBIR_INFO_PEDIDO,2766,6 SelectedBuild=0 -VisibleModules=1,27,11,3,12,4,28,2,23,22,17 +VisibleModules=1,27,11,3,12,4,28,17 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 75121b4..7acc4ab 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -71,6 +71,7 @@ Sub Service_Create pe.Initialize("pe") 'Para obtener la bateria ' skmt = s.dbInit 'Inicializamos BD. DBReqServer = "http://keymon.lat:1781" +' DBReqServer = "http://keymon.lat:9003" Private c As Cursor = skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'SERVER'"$) If c.RowCount > 0 Then c.Position = 0 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 30f3f44..c57710f 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1656,14 +1656,29 @@ End Sub 'En geocerca si mete la contraseña poner 0 en precision gps y si esta dentro de los 50 mts poner 1 y 2 para eventos que no lo ocupen 'Mandar fecha de sync(sysdate) Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String ) -' Log("bitacora") + Log("bitacora") Starter.skmt.ExecNonQuery($"INSERT INTO BITACORAGPS (fechab, usuariob , almacenb , rutab , eventob , clienteb , iniciob , finb , latitudb, longitudb , precision , motivonoventa , motivonovisita) VALUES ('${fechab}' ,'${usuariob}' , '${almacenb}' , '${rutab}' , '${eventob}' , '${clienteb}' , '${iniciob}' , '${finb}' , '${latitudb}' , '${longitudb}' , '${precision}' , '${motivonoventa}' , '${motivonovisita}')"$) Private cmd As DBCommand cmd.Initialize - cmd.Name = "mandaBitacora" -' 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(almacenb, usuariob, rutab, eventob, clienteb, traeNombreCliente(clienteb), iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita) - Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora") + If eventob <> "Termina Venta" Then + cmd.Name = "mandaBitacora3" + Log("BITACORA2") + 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(almacenb, usuariob, rutab, eventob, clienteb, traeNombreCliente(clienteb), iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab) + Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora") + Else + Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' and eventob = 'Inicia Venta' order by fechab desc"$) + If e.RowCount > 0 Then + e.Position = 0 + Log("ACTUALIX¡ZA 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(finb, rutab, almacenb, usuariob, 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 Log("Mandamos bitacora") End Sub