- Correccion en hora de entrada a abordo

This commit is contained in:
2024-05-02 10:39:42 -06:00
parent 193865c6fe
commit 0bb30c9f28
2 changed files with 2 additions and 2 deletions

View File

@@ -2604,7 +2604,7 @@ Sub horaentrada As Boolean
' End If
DateTime.TimeFormat = "HH:mm:ss"
Private lasDoce As Long = DateTime.TimeParse("12:00:00")
Private lasDoce As Long = DateTime.TimeParse("17:55:00")
' Private lasDoce As Long = DateTime.TimeParse("9:55:00")
Log("lasDoce: " & DateUtils.TicksToString(lasDoce))
If DateTime.Now < lasDoce Then
ToastMessageShow($"No puedes entrar al ABORDO antes de las ${Subs.horaNormal(lasDoce)}"$, True)

View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cliente,B_IMP2_Click,1087,6,C_Productos,B4XPage_Appear,162,0,C_Productos,cuentaProds,802,0,C_Productos,b_prodMas_Click,671,0,C_Productos,et_pCant_TextChanged,700,0,C_Principal,B_PROXIMA_Click,2556,4,kms_helperSubs,string2date,808,0,kms_helperSubs,traeDisponibleAbordo,800,0,kms_helperSubs,traeVentaAbordo,791,0,kms_helperSubs,traeLimiteAbordoXInventario,778,0,B4XMainPage,Class_Globals,23,0
NavigationStack=C_Productos,cuentaProds,802,0,C_Productos,b_prodMas_Click,671,0,C_Productos,et_pCant_TextChanged,700,0,kms_helperSubs,string2date,808,0,kms_helperSubs,traeDisponibleAbordo,800,0,kms_helperSubs,traeVentaAbordo,791,0,kms_helperSubs,traeLimiteAbordoXInventario,778,0,B4XMainPage,Class_Globals,23,0,Visual Designer,productos.bal,-100,1,C_Principal,B_PROXIMA_Click,2518,4,C_Principal,horaentrada,2600,0
SelectedBuild=0
VisibleModules=1,27,11,3,12,4,28,17,23,29