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

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

View File

@@ -225,6 +225,11 @@ Sub JobDone(Job As HttpJob)
P_Color.Color = Colors.Red P_Color.Color = Colors.Red
MsgboxAsync("No se encuentra Carta Porte", "AVISO") MsgboxAsync("No se encuentra Carta Porte", "AVISO")
End If 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 End If
Job.Release Job.Release
@@ -393,6 +398,10 @@ Private Sub b_guardar_Click
ValDato.Add("la ruta") ValDato.Add("la ruta")
End If End If
If et_kmsInicial.Text = "" Then
ValDato.Add("el Kilometraje Inicial")
End If
If ValDato.Size > 0 Then If ValDato.Size > 0 Then
Dim MS As String Dim MS As String
If ValDato.Size = 1 Then If ValDato.Size = 1 Then
@@ -504,3 +513,16 @@ Private Sub b_escanRuta_Click
End If End If
End Sub 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

Binary file not shown.

View File

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

View File

@@ -28,6 +28,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,8,4,9,6,7,3 VisibleModules=2,8,4,9,6,7,3