mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-17 21:06:32 +00:00
V.- 4_09_03 Se agregaron opciones de suplencia, se muestran las rutas correctamente independientes a cada cliente.
This commit is contained in:
IsR0d
@@ -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")
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
118
B4A/Subs.bas
118
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
|
||||
|
||||
Reference in New Issue
Block a user