From b219cc8e963e90605c33c9837bc125894f1a7b7a Mon Sep 17 00:00:00 2001
From: IsR0d <i.rodriguez@keymonsoft.com>
Date: Mon, 10 Jun 2024 18:53:11 -0600
Subject: [PATCH] Se agregaron validaciones, se modificaron los campos de Ruta
 y Kms Inicial para que sean campos Numericos. Version 4.06.07

---
 B4A/C_Principal.bas     |  22 ++++++++++++++++++++++
 B4A/Files/principal.bal | Bin 11606 -> 11606 bytes
 B4A/Guna_CK.b4a         |   2 +-
 B4A/Guna_CK.b4a.meta    |   2 +-
 4 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index d9e30de..fda36d0 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -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
\ No newline at end of file
diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal
index 0e679e1a9c8e9f2cfe4dc47d9ce34cf930fdaf58..2b7279d87a6a1ad998ef59ced49fe949c24f02d6 100644
GIT binary patch
delta 16
XcmcZ>buDT`xZ-425tYr=inqA|K#2y<

delta 16
YcmcZ>buDT`xZ>o!k}8|46>oC`07PsDO8@`>

diff --git a/B4A/Guna_CK.b4a b/B4A/Guna_CK.b4a
index 5ddab8b..f1fa36f 100644
--- a/B4A/Guna_CK.b4a
+++ b/B4A/Guna_CK.b4a
@@ -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
diff --git a/B4A/Guna_CK.b4a.meta b/B4A/Guna_CK.b4a.meta
index e23c8f7..531987b 100644
--- a/B4A/Guna_CK.b4a.meta
+++ b/B4A/Guna_CK.b4a.meta
@@ -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