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

VERSION 6.01.10

Browse Source 
- Se corrige en resumen dia la venta por marcas
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-01-15 16:48:49 -06:00
parent f4fa1e08d1
commit 45361e79c4
20 changed files with 214 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
B4A/C_NoVenta.bas
View File

@@ -31,6 +31,9 @@ Sub Class_Globals
Private stay_mi As String
Private stay_ss As String
Dim bitacora As C_BItacora
Private r_5 As RadioButton
Private r_6 As RadioButton
Private r_7 As RadioButton
End Sub
'You can add more parameters here.
@@ -66,6 +69,9 @@ Sub B4XPage_Appear
r_2.Checked = False
r_3.Checked = False
r_4.Checked = False
r_5.Checked = False
r_6.Checked = False
r_7.Checked = False
e_comm.Text = ""
End Sub
@@ -79,13 +85,19 @@ Sub CANCELA_Click
End Sub
Sub GUARDA_Click
If r_1.Checked Then
motivo = "CERRADO"
motivo = r_1.Text.ToUpperCase
Else If r_2.Checked Then
motivo = "NO COMPRA"
motivo = r_2.Text.ToUpperCase
Else If r_3.Checked Then
motivo = "CON PRODUCTO"
Else
motivo = "NO ESTA EL ENCARGADO"
motivo = r_3.Text.ToUpperCase
Else If r_4.Checked Then
motivo = r_4.Text.ToUpperCase
Else If r_5.Checked Then
motivo = r_5.Text.ToUpperCase
Else If r_6.Checked Then
motivo = r_6.Text.ToUpperCase
Else If r_7.Checked Then
motivo = r_7.Text.ToUpperCase
End If
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)