cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-22 20:30:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Bitacora (Proyecto GPS) completo

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-04 11:13:02 -06:00
parent eadb6c92c3
commit 628c38ca89
6 changed files with 58 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Cliente.bas
View File

@@ -4168,16 +4168,17 @@ End Sub
Private Sub b_inicioFinVenta_Click Private Sub b_inicioFinVenta_Click
If dentroDeGeocerca Then precision = 1 If dentroDeGeocerca Then precision = 1
motivoNoVenta = ""
If Starter.enVenta Then 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 Starter.enVenta = False
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red) LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
Subs.iniciaActividad("principal") Subs.iniciaActividad("principal")
B4XPages.ShowPageAndRemovePreviousPages("Principal") B4XPages.ShowPageAndRemovePreviousPages("Principal")
Else 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 Starter.enVenta = True
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red) LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
End If End If
b_inicioFinVenta.Visible = False b_inicioFinVenta.Visible = False
End Sub End Sub

2
B4A/C_NoVenta.bas
View File

@@ -89,7 +89,7 @@ Sub GUARDA_Click
usuario = Subs.traeUsuarioDeBD usuario = Subs.traeUsuarioDeBD
If B4XPages.MainPage.cliente.IsInitialized Then If B4XPages.MainPage.cliente.IsInitialized Then
B4XPages.MainPage.cliente.motivoNoVenta = motivo 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 Starter.enVenta = False
End If End If
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"

51
B4A/C_Principal.bas
View File

@@ -2477,49 +2477,41 @@ End Sub
Sub B_PROXIMA_Click Sub B_PROXIMA_Click
If horaentrada Then If horaentrada Then
Starter.skmt.ExecNonQuery("delete from CUENTAA") Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0")) Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
Starter.tipov = "ABORDO" Starter.tipov = "ABORDO"
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
Else Else
End If End If
End Sub End Sub
Sub horaentrada As Boolean Sub horaentrada As Boolean
Dim periodo As Period Dim periodo As Period
periodo.Hours = 0 periodo.Hours = 0
periodo.Minutes = 0 periodo.Minutes = 0
Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, periodo) Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, periodo)
Log(newDate) Log(newDate)
Log(DateUtils.TicksToString(newDate)) Log(DateUtils.TicksToString(newDate))
Dim p2 As Period Dim p2 As Period
p2.Hours = 0 p2.Hours = 0
p2.Minutes = 20 p2.Minutes = 20
DateTime.DateFormat = "MM/dd/yyyy HH:mm" DateTime.DateFormat = "MM/dd/yyyy HH:mm"
Dim fecha2 As String = DateTime.Date(DateTime.Now) Dim fecha2 As String = DateTime.Date(DateTime.Now)
Dim prueba2() As String = Regex.Split(" ",fecha2) Dim pr2() As String = Regex.Split(" ",fecha2)
LogColor(prueba2(0),Colors.red) LogColor(pr2(0),Colors.red)
Dim prueba3 As String = prueba2(0) &" "&"12:00" Dim pr3 As String = pr2(0) &" "&"12:00"
LogColor(prueba3,Colors.Red) LogColor(pr3,Colors.Red)
Dim ticks2 As Long = DateTime.DateParse(prueba3) Dim ticks2 As Long = DateTime.DateParse(pr3)
LogColor(ticks2,Colors.red) LogColor(ticks2,Colors.red)
LogColor(DateTime.Date(ticks2),Colors.red) LogColor(DateTime.Date(ticks2),Colors.red)
Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2) Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2)
LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red) LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red)
If timeToCheck2 <= newDate Then If timeToCheck2 <= newDate Then
Return True Return True
Else Else
Return False Return False
End If End If
End Sub End Sub
Sub Printer_Connected (Success As Boolean) Sub Printer_Connected (Success As Boolean)
@@ -2731,6 +2723,18 @@ Sub SUBIR_INFO_PEDIDO
reqManager.ExecuteCommand(cmd , "inst_noventa_Upd_Info_e_Kell") reqManager.ExecuteCommand(cmd , "inst_noventa_Upd_Info_e_Kell")
contador_env = contador_env + 1 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 ' ENCUESTA
c = Starter.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") c = Starter.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
S_CP.Text = "Envio Encuesta" S_CP.Text = "Envio Encuesta"
@@ -3318,18 +3322,21 @@ Sub GetBA As Object
End Sub End Sub
Private Sub connecta_LongClick Private Sub connecta_LongClick
cmd.Initialize Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS"$)
Private c As Cursor = Starter.skmt.ExecQuery("select * from bitacoraGPS") Do While h.nextrow
' If c.RowCount > 0 Then 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.Name = "borraBitacora"
' cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb")) ' cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb"))
' Loop
' End If ' End If
Log("MANDAMOS BITACORA")
' cmd.Name = "mandaBitacora" ' 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","","")
'' 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 ' 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, _
' cmd.Parameters = Array As Object( ALMACEN, cliente, evento, fecha, e_ruta.text, ) ' TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC) values ((?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),sysdate)
' reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2")
End Sub End Sub
'Borramos los clientes nuevosd que no tengan venta. 'Borramos los clientes nuevosd que no tengan venta.

2
B4A/KelloggsV4.b4a
View File

@@ -864,7 +864,7 @@ Module9=C_NuevoCliente
NumberOfFiles=401 NumberOfFiles=401
NumberOfLibraries=29 NumberOfLibraries=29
NumberOfModules=29 NumberOfModules=29
Version=12.5 Version=12.8
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta

6
B4A/KelloggsV4.b4a.meta
View File

@@ -61,7 +61,7 @@ ModuleBreakpoints9=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1=2,4 ModuleClosedNodes1=2,4
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11=1,3 ModuleClosedNodes11=
ModuleClosedNodes12=3 ModuleClosedNodes12=3
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14= ModuleClosedNodes14=
@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=3,11,12 ModuleClosedNodes7=3,11,12
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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
View File

@@ -842,6 +842,16 @@ Sub traeCliente As String 'ignore
Return cl Return cl
End Sub 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 Sub traeFecha As String 'ignore
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
Private sDate As String =DateTime.Date(DateTime.Now) Private sDate As String =DateTime.Date(DateTime.Now)
@@ -1647,7 +1657,14 @@ End Sub
'Mandar fecha de sync(sysdate) '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 ) 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}')"$) 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 End Sub
'Trae la sumatoria del pedido del cliente especificado de la tabla PEDIDO. 'Trae la sumatoria del pedido del cliente especificado de la tabla PEDIDO.