mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-18 02:29:13 +00:00
- Bitacora (Proyecto GPS) completo
This commit is contained in:
@@ -4168,16 +4168,17 @@ End Sub
|
||||
|
||||
Private Sub b_inicioFinVenta_Click
|
||||
If dentroDeGeocerca Then precision = 1
|
||||
motivoNoVenta = ""
|
||||
If Starter.enVenta Then
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Termina Venta", la_cuenta.text, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "")
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "")
|
||||
Starter.enVenta = False
|
||||
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
|
||||
LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
|
||||
Subs.iniciaActividad("principal")
|
||||
B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
Else
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario, Id_Almacen, ruta_tienda, "Inicia Venta", la_cuenta.text, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "")
|
||||
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(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
|
||||
LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
|
||||
End If
|
||||
b_inicioFinVenta.Visible = False
|
||||
End Sub
|
||||
|
||||
@@ -89,7 +89,7 @@ Sub GUARDA_Click
|
||||
usuario = Subs.traeUsuarioDeBD
|
||||
If B4XPages.MainPage.cliente.IsInitialized Then
|
||||
B4XPages.MainPage.cliente.motivoNoVenta = motivo
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeUsuarioDeBD, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, "")
|
||||
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, "")
|
||||
Starter.enVenta = False
|
||||
End If
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
|
||||
@@ -2477,49 +2477,41 @@ End Sub
|
||||
|
||||
Sub B_PROXIMA_Click
|
||||
If horaentrada Then
|
||||
|
||||
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
|
||||
Starter.tipov = "ABORDO"
|
||||
B4XPages.ShowPage("Productos")
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub horaentrada As Boolean
|
||||
|
||||
Dim periodo As Period
|
||||
periodo.Hours = 0
|
||||
periodo.Minutes = 0
|
||||
Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, periodo)
|
||||
Log(newDate)
|
||||
Log(DateUtils.TicksToString(newDate))
|
||||
|
||||
Dim p2 As Period
|
||||
p2.Hours = 0
|
||||
p2.Minutes = 20
|
||||
DateTime.DateFormat = "MM/dd/yyyy HH:mm"
|
||||
Dim fecha2 As String = DateTime.Date(DateTime.Now)
|
||||
Dim prueba2() As String = Regex.Split(" ",fecha2)
|
||||
LogColor(prueba2(0),Colors.red)
|
||||
Dim prueba3 As String = prueba2(0) &" "&"12:00"
|
||||
LogColor(prueba3,Colors.Red)
|
||||
Dim ticks2 As Long = DateTime.DateParse(prueba3)
|
||||
Dim pr2() As String = Regex.Split(" ",fecha2)
|
||||
LogColor(pr2(0),Colors.red)
|
||||
Dim pr3 As String = pr2(0) &" "&"12:00"
|
||||
LogColor(pr3,Colors.Red)
|
||||
Dim ticks2 As Long = DateTime.DateParse(pr3)
|
||||
LogColor(ticks2,Colors.red)
|
||||
LogColor(DateTime.Date(ticks2),Colors.red)
|
||||
Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2)
|
||||
LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red)
|
||||
|
||||
If timeToCheck2 <= newDate Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Printer_Connected (Success As Boolean)
|
||||
@@ -2730,6 +2722,18 @@ 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"))
|
||||
Loop
|
||||
Log("MANDAMOS BITACORA")
|
||||
|
||||
' ENCUESTA
|
||||
c = Starter.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
||||
@@ -3318,18 +3322,21 @@ Sub GetBA As Object
|
||||
End Sub
|
||||
|
||||
Private Sub connecta_LongClick
|
||||
cmd.Initialize
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("select * from bitacoraGPS")
|
||||
' If c.RowCount > 0 Then
|
||||
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
|
||||
|
||||
' cmd.Name = "mandaBitacora"
|
||||
'' TMP_ALMACEN, TMP_RUTA, TMP_USUARIO, TMP_FECHA_SINC, TMP_ID_CLIENTE, TMP_EVENTO, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_NOMBRE_CLIENTE,TMP_PRESICION
|
||||
' cmd.Parameters = Array As Object( ALMACEN, cliente, evento, fecha, e_ruta.text, )
|
||||
' reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2")
|
||||
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)
|
||||
End Sub
|
||||
|
||||
'Borramos los clientes nuevosd que no tengan venta.
|
||||
|
||||
@@ -864,7 +864,7 @@ Module9=C_NuevoCliente
|
||||
NumberOfFiles=401
|
||||
NumberOfLibraries=29
|
||||
NumberOfModules=29
|
||||
Version=12.5
|
||||
Version=12.8
|
||||
@EndOfDesignText@
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Kelloggs Venta
|
||||
|
||||
@@ -61,7 +61,7 @@ ModuleBreakpoints9=
|
||||
ModuleClosedNodes0=
|
||||
ModuleClosedNodes1=2,4
|
||||
ModuleClosedNodes10=
|
||||
ModuleClosedNodes11=1,3
|
||||
ModuleClosedNodes11=
|
||||
ModuleClosedNodes12=3
|
||||
ModuleClosedNodes13=
|
||||
ModuleClosedNodes14=
|
||||
@@ -88,6 +88,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=3,11,12
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=C_Cliente,b_chk_e_Click,3642,0,C_Productos,et_pCant_TextChanged,750,0,C_Principal,JobDone,1030,6,C_Productos,b_prodMas_Click,676,1,C_Productos,Class_Globals,16,0,Diseñador Visual,principal.bal,-100,1,C_Principal,Class_Globals,0,0,C_Principal,Printer_Connected,2488,0,C_Principal,horaentrada,2489,6,C_Principal,B_PROXIMA_Click,2484,4
|
||||
NavigationStack=C_NoVenta,GUARDA_Click,85,1,C_Cliente,b_inicioFinVenta_Click,4164,6,Subs,traeNombreCliente,839,6,C_Principal,cargar_Click,521,0,C_Cliente,Bt_GuardarBoleta_Click,3630,0,C_Principal,borraClientesNuevosSinVenta,3336,0,C_Principal,GetBA,3304,0,C_Principal,connecta_LongClick,3306,6,Visual Designer,principal.bal,-100,1,C_Principal,Subir_Click,501,0,C_Principal,SUBIR_INFO_PEDIDO,2731,3
|
||||
SelectedBuild=0
|
||||
VisibleModules=1,27,11,3,12,4,28,13,23,2
|
||||
VisibleModules=1,27,11,3,12,4,28,13,2,8
|
||||
|
||||
19
B4A/Subs.bas
19
B4A/Subs.bas
@@ -842,6 +842,16 @@ Sub traeCliente As String 'ignore
|
||||
Return cl
|
||||
End Sub
|
||||
|
||||
'Regresa el nombre del cliente del id dado.
|
||||
Sub traeNombreCliente(id As String) As String
|
||||
Private c As ResultSet = Starter.skmt.ExecQuery($"select CAT_CL_NOMBRE from kmt_info where CAT_CL_CODIGO = '${id}'"$)
|
||||
Private n As String = "N/A"
|
||||
Do While c.NextRow
|
||||
n = c.GetString("CAT_CL_NOMBRE")
|
||||
Loop
|
||||
Return n
|
||||
End Sub
|
||||
|
||||
Sub traeFecha As String 'ignore
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
Private sDate As String =DateTime.Date(DateTime.Now)
|
||||
@@ -1647,7 +1657,14 @@ End Sub
|
||||
'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")
|
||||
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}')"$)
|
||||
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")
|
||||
Log("Mandamos bitacora")
|
||||
End Sub
|
||||
|
||||
'Trae la sumatoria del pedido del cliente especificado de la tabla PEDIDO.
|
||||
|
||||
Reference in New Issue
Block a user