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

- VERSION 5.01.18

Browse Source 
- Se agrego la opcion "Cerrado Permanente" a los motivos de "No Venta"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-21 23:16:48 -06:00
parent 2201740446
commit 68623e79ea
8 changed files with 72 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_NoVenta.bas
View File

@@ -18,6 +18,8 @@ Sub Class_Globals
Dim r_1 As RadioButton
Dim r_2 As RadioButton
Dim r_3 As RadioButton
Dim r_4 As RadioButton
Dim r_5 As RadioButton
Dim e_comm As EditText
Dim motivo As String
Dim cuenta As String
@@ -25,7 +27,6 @@ Sub Class_Globals
Dim sDate,sTime As String
' Dim lat_gps, lon_gps As String
Dim tgl As Toggle
Dim r_4 As RadioButton
Private stay_hh As String
Private stay_mi As String
@@ -40,7 +41,7 @@ End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.SetTitle(Me, $"${subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$)
B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$)
Root = Root1
'load the layout to Root
Root.LoadLayout("noventa")
@@ -79,8 +80,10 @@ Sub GUARDA_Click
motivo = "NO COMPRA"
Else If r_3.Checked Then
motivo = "CON PRODUCTO"
Else
Else If r_4.Checked Then
motivo = "NO ESTA EL ENCARGADO"
Else
motivo = "CERRADO PERMANENTE"
End If
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)