cheveguerra/Guna_Reparto_Imp
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Imp.git synced 2026-04-22 15:10:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

6.02.09_01

Browse Source
This commit is contained in:
cvaldes1201
2026-03-10 10:38:27 -06:00
parent 3cda52a8a3
commit 3a13a989f3
17 changed files with 10072 additions and 3645 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_NoVenta.bas
View File

@@ -35,6 +35,7 @@ Sub Class_Globals
Private teclado As IME
Dim fototomada As String
Private b_foto As Button
Private r_5 As RadioButton
End Sub
'You can add more parameters here.
@@ -59,6 +60,7 @@ Sub B4XPage_Appear
r_2.Checked = False
r_3.Checked = False
r_4.Checked = False
r_5.Checked = False
cb_reprogramar.Checked = False
p_camara.Width = Root.Width
@@ -120,7 +122,7 @@ Sub CANCELA_Click
End Sub
Sub GUARDA_Click
If r_1.Checked = False And r_2.Checked = False And r_3.Checked = False And r_4.Checked = False Then
If r_1.Checked = False And r_2.Checked = False And r_3.Checked = False And r_4.Checked = False And r_5 .Checked = False Then
MsgboxAsync("Selecciona un motivo de rechazo","Atención")
Else
@@ -130,6 +132,8 @@ Sub GUARDA_Click
motivo = "NO PIDIO"
Else If r_3.Checked Then
motivo = "CANCELA"
Else If r_5.Checked Then
motivo = "FALTA DE TIEMPO"
Else
motivo = "NO ESTA EL ENCARGADO"
End If