cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 20:09:13 +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

53
B4A/C_Principal.bas
View File

@@ -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.