cheveguerra/Guna_CuentaKilometros_2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_CuentaKilometros_2.git synced 2026-04-22 05:30:25 +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