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
Sub B_PROXIMA_Click
b = Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente = 0 and pe_tipo = 'ABORDO' " )
b.Position = 0
If b.GetString("CUANTOS") > 0 Then
If horaentrada Then
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
@@ -2534,18 +2531,13 @@ Sub B_PROXIMA_Click
Else
End If
Else If b.GetString("CUANTOS") = 0 Then
e = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO_SUGERIDO")
If e.RowCount > 0 Then
Msgbox2Async("Tienes un pedido sugerido, ¿Deseas aceptarlo?","Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
Wait For Msgbox_Result (result As Int)
If result = DialogResponse.POSITIVE Then
If horaentrada Then
For i = 0 To e.RowCount - 1
e.Position = i
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
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
Next
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
Starter.tipov = "ABORDO"
B4XPages.ShowPage("Productos")
Else
End If
Else If result = DialogResponse.NEGATIVE Then
End If
Else If result = DialogResponse.NEGATIVE Then
If horaentrada Then
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
@@ -2574,53 +2562,58 @@ Sub B_PROXIMA_Click
Else
End If
End If
Else If c.RowCount = 0 Then
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
End If
End If
e.Close
End If
b.Close
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 = 0
DateTime.DateFormat = "MM/dd/yyyy HH:mm"
Dim fecha2 As String = DateTime.Date(DateTime.Now)
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
' 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 = 0
' DateTime.DateFormat = "MM/dd/yyyy HH:mm"
' Dim fecha2 As String = DateTime.Date(DateTime.Now)
' Log("FECHA2: " & DateUtils.TicksToString(DateTime.Now))
' 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
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
Else
Return True
End If
End Sub