cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Modificacion de la subrutina horaentrada para el ingreso al abordo

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-01 17:36:00 -06:00
parent aa1b409451
commit 280d3ae273
3 changed files with 49 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
B4A/C_Principal.bas
View File

@@ -2520,12 +2520,9 @@ Sub Resumen_Click
End Sub End Sub
Sub B_PROXIMA_Click Sub B_PROXIMA_Click
b = Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente = 0 and pe_tipo = 'ABORDO' " ) b = Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente = 0 and pe_tipo = 'ABORDO' " )
b.Position = 0 b.Position = 0
If b.GetString("CUANTOS") > 0 Then If b.GetString("CUANTOS") > 0 Then
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"))
@@ -2534,18 +2531,13 @@ Sub B_PROXIMA_Click
Else Else
End If End If
Else If b.GetString("CUANTOS") = 0 Then Else If b.GetString("CUANTOS") = 0 Then
e = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO_SUGERIDO") e = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO_SUGERIDO")
If e.RowCount > 0 Then If e.RowCount > 0 Then
Msgbox2Async("Tienes un pedido sugerido, ¿Deseas aceptarlo?","Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Msgbox2Async("Tienes un pedido sugerido, ¿Deseas aceptarlo?","Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
Wait For Msgbox_Result (result As Int) Wait For Msgbox_Result (result As Int)
If result = DialogResponse.POSITIVE Then If result = DialogResponse.POSITIVE Then
If horaentrada Then If horaentrada Then
For i = 0 To e.RowCount - 1 For i = 0 To e.RowCount - 1
e.Position = i e.Position = i
c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(e.GetString("ID_PRODUCTO"))) c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(e.GetString("ID_PRODUCTO")))
@@ -2553,19 +2545,15 @@ Sub B_PROXIMA_Click
c.Position = 0 c.Position = 0
Subs.actualizaProducto(e.GetString("ALMACEN"), c.GetString("CAT_GP_PRECIO"),e.GetString("PROMEDIO"), c.GetString("CAT_GP_NOMBRE"), e.GetString("ID_PRODUCTO"),"0",Subs.traeFecha,usuario,e.GetString("RUTA"),c.GetString("CAT_GP_PRECIO"),"ABORDO") Subs.actualizaProducto(e.GetString("ALMACEN"), c.GetString("CAT_GP_PRECIO"),e.GetString("PROMEDIO"), c.GetString("CAT_GP_NOMBRE"), e.GetString("ID_PRODUCTO"),"0",Subs.traeFecha,usuario,e.GetString("RUTA"),c.GetString("CAT_GP_PRECIO"),"ABORDO")
End If End If
Next Next
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
Else If result = DialogResponse.NEGATIVE Then
End If
Else If result = DialogResponse.NEGATIVE Then
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"))
@@ -2574,53 +2562,58 @@ Sub B_PROXIMA_Click
Else Else
End If End If
End If End If
Else If c.RowCount = 0 Then Else If c.RowCount = 0 Then
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 If End If
e.Close e.Close
End If End If
b.Close b.Close
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 = 0 ' p2.Minutes = 0
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 pr2() As String = Regex.Split(" ",fecha2) ' Log("FECHA2: " & DateUtils.TicksToString(DateTime.Now))
LogColor(pr2(0),Colors.red) ' Dim pr2() As String = Regex.Split(" ",fecha2)
Dim pr3 As String = pr2(0) &" "&"12:00" ' LogColor(pr2(0),Colors.red)
LogColor(pr3,Colors.Red) ' Dim pr3 As String = pr2(0) &" "&"12:00"
Dim ticks2 As Long = DateTime.DateParse(pr3) ' LogColor(pr3,Colors.Red)
LogColor(ticks2,Colors.red) ' Dim ticks2 As Long = DateTime.DateParse(pr3)
LogColor(DateTime.Date(ticks2),Colors.red) ' LogColor(ticks2,Colors.red)
Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2) ' LogColor(DateTime.Date(ticks2),Colors.red)
LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red) ' Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2)
If timeToCheck2 <= newDate Then ' LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red)
Return True ' If timeToCheck2 <= newDate Then
Else ' Return True
' Else
' Return False
' End If
DateTime.TimeFormat = "HH:mm:ss"
Private lasDoce As Long = DateTime.TimeParse("12:00:00")
' Private lasDoce As Long = DateTime.TimeParse("17:41:00")
Log("lasDoce: " & DateUtils.TicksToString(lasDoce))
If DateTime.Now < lasDoce Then
ToastMessageShow($"No puedes entrar al ABORDO antes de las ${Subs.horaNormal(lasDoce)}"$, True)
Return False Return False
Else
Return True
End If End If
End Sub End Sub

2
B4A/KelloggsV4.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Productos,LlenaProdsLL,1270,2,C_Productos,Busca_TextChanged,1205,0,C_Principal,Class_Globals,0,0,C_Principal,Resumen_Click,2359,0,C_Principal,horaentrada,2601,0,C_Principal,B_PROXIMA_Click,2590,0,C_Cliente,B_IMP2_Click,1088,6,C_Principal,B4XPage_CloseRequest,1963,0,C_Principal,B_OK_RES_Click,2341,0,B4XMainPage,Class_Globals,23,0 NavigationStack=C_Cliente,B_IMP2_Click,1088,6,C_Principal,B4XPage_CloseRequest,1963,0,C_Principal,B_OK_RES_Click,2341,0,B4XMainPage,Class_Globals,23,0,Visual Designer,principal.bal,-100,1,C_Principal,Class_Globals,0,0,C_Principal,B_PROXIMA_Click,2533,6,C_Principal,horaentrada,2603,6,Subs,fechanormal,1661,0,Subs,horaNormal,1662,2
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,27,11,3,12,4,28,17,23,29 VisibleModules=1,27,11,3,12,4,28,17,23,29

12
B4A/Subs.bas
View File

@@ -1659,13 +1659,23 @@ End Sub
Sub fechanormal(fecha As String) As String 'ignore Sub fechanormal(fecha As String) As String 'ignore
' Log(fecha) ' Log(fecha)
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format Dim OrigFormat As String = DateTime.DateFormat 'save orig date format
DateTime.DateFormat = "yyyy/MM/dd HH:mm:ss" DateTime.DateFormat = "HH:mm:ss"
Dim nuevaFecha As String=DateTime.Date(fecha) Dim nuevaFecha As String=DateTime.Date(fecha)
DateTime.DateFormat = OrigFormat 'return to orig date format DateTime.DateFormat = OrigFormat 'return to orig date format
' Log(nuevaFecha) ' Log(nuevaFecha)
Return nuevaFecha Return nuevaFecha
End Sub End Sub
Sub horaNormal(fecha As String) As String 'ignore
' Log(fecha)
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format
DateTime.TimeFormat = "HH:mm"
Dim nuevaFecha As String=DateTime.time(fecha)
DateTime.DateFormat = OrigFormat 'return to orig date format
' Log(nuevaFecha)
Return nuevaFecha
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 '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) '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 )