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

Se agregaron validaciones, se modificaron los campos de Ruta y Kms Inicial para que sean campos Numericos. Version 4.06.07

Browse Source
This commit is contained in:
IsR0d
2024-06-10 18:53:11 -06:00
parent 55324275a7
commit b219cc8e96
4 changed files with 24 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
B4A/C_Principal.bas
View File

@@ -225,6 +225,11 @@ Sub JobDone(Job As HttpJob)
P_Color.Color = Colors.Red
MsgboxAsync("No se encuentra Carta Porte", "AVISO")
End If
If PLACA_OK <> "OK" And OPERADOR_OK <> "OK" And CHECK_LIST <> "OK" And CARTAPORTE_OK <> "OK" Then
P_Color.Visible = True
P_Color.Color = Colors.Red
MsgboxAsync("No se encuentran Placas, Operador, CheckList, CartaPorte", "AVISO")
End If
End If
Job.Release
@@ -392,6 +397,10 @@ Private Sub b_guardar_Click
If et_rutaReparto.Text = "" Then
ValDato.Add("la ruta")
End If
If et_kmsInicial.Text = "" Then
ValDato.Add("el Kilometraje Inicial")
End If
If ValDato.Size > 0 Then
Dim MS As String
@@ -504,3 +513,16 @@ Private Sub b_escanRuta_Click
End If
End Sub
Private Sub et_rutaReparto_TextChanged (Old As String, New As String)
If New.Length > 4 Then
et_rutaReparto.Text = Old
End If
End Sub
Private Sub et_kmsInicial_TextChanged (Old As String, New As String)
If New.Length > 6 Then
et_kmsInicial.Text = Old
End If
End Sub

BIN
B4A/Files/principal.bal
View File

Binary file not shown.

2
B4A/Guna_CK.b4a
View File

@@ -131,7 +131,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Guna CK
#VersionCode: 1
#VersionName: 3.06.28
#VersionName: 4.06.07
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Guna_CK.b4a.meta
View File

@@ -28,6 +28,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=DBRequestManager,WriteObject,116,0,DBRequestManager,ReadObject,122,0,C_Principal,FoundBarcode,243,3,C_Principal,b_escanOperador_Click,537,0,B4XMainPage,Initialize,68,0,C_Principal,Class_Globals,44,6,C_Principal,B4XPage_Created,67,2,Diseñador Visual,principal.bal,-100,6,C_Principal,b_guardar_Click,409,2,C_Principal,JobDone,216,6
NavigationStack=C_Principal,JobDone,151,6,C_Principal,Camera1_Preview,373,0,C_Principal,FoundBarcode,299,3,C_Principal,Class_Globals,8,6,C_Principal,b_guardar_Click,373,6,C_Principal,B4XPage_CloseRequest,239,0,C_Principal,b_escanOperador_Click,494,0,Diseñador Visual,principal.bal,-100,6,C_Principal,et_kmsInicial_TextChanged,518,0,C_Principal,et_rutaReparto_TextChanged,512,6
SelectedBuild=0
VisibleModules=2,8,4,9,6,7,3