From 012169a186ed274ef48fbfdc3a0f2339925ac2be Mon Sep 17 00:00:00 2001 From: IsR0d Date: Thu, 5 Sep 2024 11:36:41 -0600 Subject: [PATCH] V.- 4_09_03 Se agregaron opciones de suplencia, se muestran las rutas correctamente independientes a cada cliente. --- B4A/B4XMainPage.bas | 2 +- B4A/C_Cliente.bas | 5 +- B4A/C_Principal.bas | 108 +++++++++++++++++++------------ B4A/Guna Vistas V3.1.b4a.meta | 4 +- B4A/Subs.bas | 118 ++++++++++++++++++++-------------- 5 files changed, 145 insertions(+), 92 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 63d2efd..53ae6ae 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -547,7 +547,7 @@ Sub JobDone(Job As HttpJob) Dim cmd As DBCommand cmd.Initialize cmd.Name = "delete_geoPass_GUNA" - Log(Subs.traeAlmacen&", "& Subs.traeRuta) +' Log(Subs.traeAlmacen&", "& Subs.traeRuta) cmd.Parameters = Array As Object( almacendes,rutades) reqManager.ExecuteCommand(cmd , "traeGeoPass") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 1169fa4..09602cc 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -4770,7 +4770,7 @@ Private Sub b_Inicio_Fin_venta_Click motivoNoVenta = "" motivoNoVisita = "" If b_Inicio_Fin_venta.Text = "TERMINAR VENTA" Then - Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, motivoNoVisita) + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, motivoNoVisita) Starter.enVenta = False ' LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) B4XPages.ShowPageAndRemovePreviousPages("Principal") @@ -4783,7 +4783,8 @@ Private Sub b_Inicio_Fin_venta_Click If contadorIniciarVenta = 1 And IniVenNO = False Then IniVenNO = True Starter.VarX = 1 - Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, "") + + Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, "") Starter.enVenta = True ' LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) Else If contadorIniciarVenta > 1 Then diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 6a504d4..2276336 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -8,7 +8,7 @@ Sub Class_Globals Private Root As B4XView 'ignore Private xui As XUI 'ignore Dim conectado As String - Dim t1 As Timer + Dim t1, t2 As Timer Dim sb As StringBuilder Dim PHONE As Phone Dim g As GPS @@ -576,12 +576,13 @@ Sub Subir_Click clienteb = "" finb = h.GetString("iniciob") End If - Private VarXRu As String = ("R:"&e_ruta.Text & " R:" & E_RUTA2.Text) - LogColor("----------->" & VarXRu, Colors.Red) +' Private VarXRu As String = ("R:"&e_ruta.Text & " R:" & E_RUTA2.Text) +' LogColor("----------->" & VarXRu, Colors.Red) 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" - If eventob = "Suplencia" Then nombreCliente = VarXRu + If eventob = "Carga día suplencia" Then nombreCliente = Subs.traeRutasSup +' If eventob = "Suplencia" Then nombreCliente = VarXRu ' 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")) @@ -794,7 +795,11 @@ Sub Subir_Click End Sub Sub cargar_Click - Rut_Rep = e_ruta.Text + If E_RUTA2.Visible = True Then + Rut_Rep = e_ruta.Text & " " & E_RUTA2.Text + Else + Rut_Rep = e_ruta.Text + End If Log(Rut_Rep) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA")) @@ -1170,7 +1175,7 @@ Sub JobDone(Job As HttpJob) Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA")) Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,E_RUTA2.Text,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO)) - Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.Text, "Suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") +' Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.Text, "Suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) Next Listo1 = 1 @@ -1942,43 +1947,59 @@ Sub b_mapa_Click B4XPages.GetPage("Mapas") End Sub -Sub e_ruta_EnterPressed +Sub t2_tick + e_ruta.Text = "" + B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente") + B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido") + B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa") + B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act") + B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") + B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") + B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") + B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS") + B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VERIFICACION") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FACE") + B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO1") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO2") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO3") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO4") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO5") + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) + B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS") + B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) + B4XPage_Appear + E_RUTA2.Visible = False + E_RUTA2.Text = "" + Panel11.Visible = False +' If PB2.Progress = 0 Then +' S_CP.Text = "ENVIAR DATOS (K-1)" +' End If +' img2.Visible=False + t2.Enabled = False +End Sub + +Sub e_ruta_EnterPressed If e_ruta.Text = "FIN DIA" Then + RES = Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore + If RES = DialogResponse.POSITIVE Then - e_ruta.Text = "" - B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente") - B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido") - B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa") - B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act") - B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") - B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") - B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") - B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS") - B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VERIFICACION") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FACE") - B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO1") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO2") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO3") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO4") - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO5") - B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA")) - B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword")) - B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) - B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) - B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS") - B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) - B4XPage_Appear - Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Rut_Rep,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") - E_RUTA2.Visible = False - Panel11.Visible = False + + Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") + + t2.Initialize("T2", 1000) ' 1000 = 1 second + t2.Enabled = True + End If End If @@ -1991,6 +2012,7 @@ Sub e_ruta_EnterPressed Resumen.Visible= False End If If e_ruta.Text = "SUPLENCIA" Then + e_ruta.Text = "" E_RUTA2.Visible = True Panel11.Visible = True End If @@ -2096,7 +2118,13 @@ Sub B_OK_PAS_Click img2.Visible=False Subs.panelVisible(p_principal, 0, 0) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1)) - Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") + + If E_RUTA2.Visible = True Then + Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") + Else + Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") + End If + Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If RES = DialogResponse.POSITIVE Then diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 7eab7a9..1ed2b3f 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10 ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,cargar_Click,971,0,C_Principal,e_ruta_EnterPressed,1986,4,C_Principal,JobDone,1166,0,C_Principal,Subir_Click,573,0,C_Principal,B_OK_PAS_Click,2092,0,Subs,traeProdNombre,653,0,Subs,traeRutasSup,668,0,C_Cliente,guardadoventa,2043,0,C_NoVenta,GUARDA_Click,125,0,Subs,traeRuta,667,0 +NavigationStack=B4XMainPage,JobDone,543,0,C_Principal,cargar_Click,1057,0,C_Principal,b_mapa_Click,1943,0,C_Principal,t2_tick,1982,0,C_Principal,e_ruta_EnterPressed,1987,1,Subs,bitacora,1263,0,Diseñador Visual,principal.bal,-100,2,Subs,vendidoPromoEsp,1251,0,C_Principal,Class_Globals,0,0,C_Principal,Subir_Click,571,4 SelectedBuild=0 -VisibleModules=23,2,24,13,14,4,6,9,12,5,10 +VisibleModules=23,2,24,13,14,4,6,9,12,5 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 6933a51..f9b7318 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -671,11 +671,10 @@ Sub traeRuta As String 'ignore Return r End Sub -'Regresa la ruta actual de la base de datos. -Sub traeRutasSup As String 'ignore +Sub traeRutaBitacora As String 'ignore Private c As Cursor Private r As String - c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") + c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") r = "0" If c.RowCount > 0 Then c.Position=0 @@ -685,6 +684,28 @@ Sub traeRutasSup As String 'ignore Return r End Sub +'Regresa la ruta actual de la base de datos. +Sub traeRutasSup As String + Dim c As Cursor + Dim rutas As String + rutas = "" + + c = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info2") + + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + rutas = rutas & c.GetString("CAT_CL_RUTA") & ", " + Next + If rutas.Length > 0 Then rutas = rutas.SubString2(0, rutas.Length - 2) + End If + + c.Close + Return rutas +End Sub + + + Sub traeCliente As String 'ignore Private c As Cursor Private cl As String @@ -1247,6 +1268,7 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As Private cmd As DBCommand cmd.Initialize cmd.Name = "mandaBitacora3_GUNA" + Log("BITACORA3") Private nombreCliente As String = traeNombreCliente(clienteb) If eventob = "Llega a almacen" Then @@ -1257,6 +1279,8 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As 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" +' If eventob = "Suplencia" Then nombreCliente = traeRutasSup + If eventob = "Carga día suplencia" Then nombreCliente = traeRutasSup If eventob <> "Termina Venta" And eventob <> "No Venta" Then B4XPages.MainPage.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}')"$) Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$) @@ -1298,50 +1322,50 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As 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 bitacoraX(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") - B4XPages.MainPage.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 - If eventob <> "Termina Venta" And eventob <> "No Venta" Then - cmd.Name = "mandaBitacora3_GUNA" - Log("BITACORA3") - Private nombreCliente As String = traeNombreCliente(clienteb) - If eventob = "Llega a almacen" Then - nombreCliente = "BOLETA" - clienteb = "" - finb = 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(almacenb, usuariob, rutab, eventob, clienteb, nombreCliente, iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab) - Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora") - Else - Private e As Cursor = B4XPages.MainPage.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("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(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") - 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(finb, motivonoventa, motivonovisita, 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 - End If - Log("Mandamos bitacora") -End Sub +''Mandar fecha de sync(sysdate) +'Sub bitacoraX(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") +' B4XPages.MainPage.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 +' If eventob <> "Termina Venta" And eventob <> "No Venta" Then +' cmd.Name = "mandaBitacora3_GUNA" +' Log("BITACORA3") +' Private nombreCliente As String = traeNombreCliente(clienteb) +' If eventob = "Llega a almacen" Then +' nombreCliente = "BOLETA" +' clienteb = "" +' finb = 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(almacenb, usuariob, rutab, eventob, clienteb, nombreCliente, iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab) +' Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora") +' Else +' Private e As Cursor = B4XPages.MainPage.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("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(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") +' 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(finb, motivonoventa, motivonovisita, 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 +' End If +' Log("Mandamos bitacora") +'End Sub 'Regresa el nombre del cliente del id dado. Sub traeNombreCliente(id As String) As String