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

- VERSION 5.09.04

Browse Source 
- Se agregaron varios motivos de NoVenta.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-09-17 21:35:40 -06:00
parent 003e50a6b1
commit 2c252b2373
9 changed files with 34 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/ADM.b4a
View File

@@ -1121,7 +1121,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: ADM
#VersionCode: 1
#VersionName: 5.09.03
#VersionName: 5.09.04
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/ADM.b4a.meta
View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=3
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_TicketsDia,b_guardaNoVenta_Click,300,1,C_TicketsDia,GPS_LocationChanged,218,0,C_TicketsDia,ListView1_ItemLongClick,213,0,Diseñador Visual,mapa_rutas.bal,-100,2,C_TicketsDia,b_noventa0_Click,229,0,MAPA_RUTAS,b_guardaNoVenta_Click,575,0,Diseñador Visual,clientes.bal,-100,3,C_Clientes,B4XPage_Appear,141,6,Diseñador Visual,datosclienteBotones.bal,-100,2,C_Clientes,CreateListItem,210,0,Starter,reinicializaReqManager,164,0
NavigationStack=Subs,fechanormal,1574,0,C_NoVenta,CANCELA_Click,71,0,C_NoVenta,GUARDA_Click,77,0,C_Clientes,Class_Globals,49,0,C_TicketsDia,Class_Globals,35,0,MAPA_RUTAS,b_noVenta_Click,550,0,MAPA_RUTAS,Globals,71,0,C_Clientes,b_guardaNoVenta_Click,706,0,C_TicketsDia,b_guardaNoVenta_Click,288,0,MAPA_RUTAS,b_guardaNoVenta_Click,568,0
SelectedBuild=0
VisibleModules=30,2,14,5,6,19,31,27,18,32,8,11

2
B4A/B4XMainPage.bas
View File

@@ -711,7 +711,7 @@ Sub JobDone(Job As HttpJob)
p_validacion.Visible = False
et_codigo.Text = ""
If recarga = "0" Then
Subs.panelVisible(P_CIEGO,0,0)
Subs.panelVisible(p_ciego,0,0)
Else If recarga = "1" Then
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("1"))

14
B4A/C_Clientes.bas
View File

@@ -53,6 +53,8 @@ Sub Class_Globals
Private b_guardaNoVenta As Button
Private p_botonesNoVenta As Panel
Private et_comentarioNoVenta As EditText
Private r_opcion7 As RadioButton
Private r_opcion6 As RadioButton
Private r_opcion5 As RadioButton
Private r_opcion4 As RadioButton
Private r_opcion3 As RadioButton
@@ -710,13 +712,17 @@ Private Sub b_guardaNoVenta_Click
If r_opcion1.Checked Then
motivo = "CERRADO"
Else If r_opcion2.Checked Then
motivo = "NO COMPRA"
motivo = "NO TIENE DINERO"
Else If r_opcion3.Checked Then
motivo = "CON PRODUCTO"
motivo = "NO ABRE MAÑANA"
Else If r_opcion4.Checked Then
motivo = "NO ESTA EL ENCARGADO"
motivo = "FALTA DE PRODUCTO"
Else If r_opcion5.Checked Then
motivo = "PROMOCION CON OTRO DISTRIBUIDOR"
Else If r_opcion6.Checked Then
motivo = "RECIBEN MUCHOS PROVEEDORES"
Else
motivo = "CANCELACION"
motivo = "NO LE QUEDA EL DIA"
End If
Log("FOTOCERRADO: " & fotoCerrado)

15
B4A/C_TicketsDia.bas
View File

@@ -33,6 +33,9 @@ Sub Class_Globals
Private Panel5 As Panel
Private et_comentarioNoVenta As EditText
Private Label3 As Label
Private r_opcion7 As RadioButton
Private r_opcion6 As RadioButton
Private r_opcion5 As RadioButton
Private r_opcion4 As RadioButton
Private r_opcion3 As RadioButton
Private r_opcion2 As RadioButton
@@ -277,13 +280,17 @@ Private Sub b_guardaNoVenta_Click
If r_opcion1.Checked Then
motivo = "CERRADO"
Else If r_opcion2.Checked Then
motivo = "NO COMPRA"
motivo = "NO TIENE DINERO"
Else If r_opcion3.Checked Then
motivo = "CON PRODUCTO"
motivo = "NO ABRE MAÑANA"
Else If r_opcion4.Checked Then
motivo = "NO ESTA EL ENCARGADO"
motivo = "FALTA DE PRODUCTO"
Else If r_opcion5.Checked Then
motivo = "PROMOCION CON OTRO DISTRIBUIDOR"
Else If r_opcion6.Checked Then
motivo = "RECIBEN MUCHOS PROVEEDORES"
Else
motivo = "CANCELACION"
motivo = "NO LE QUEDA EL DIA"
End If
If motivo = "CERRADO" And fotoCerrado = "" Then
nombreFoto = Subs.traeCliente & "_cerrado"

BIN
B4A/Files/clientes.bal
View File

Binary file not shown.

BIN
B4A/Files/mapa_rutas.bal
View File

Binary file not shown.

BIN
B4A/Files/ticketsdia.bal
View File

Binary file not shown.

14
B4A/MAPA_RUTAS.bas
View File

@@ -73,6 +73,8 @@ Sub Globals
Private p_botonesNoVenta As Panel
Private Panel5 As Panel
Private et_comentarioNoVenta As EditText
Private r_opcion7 As RadioButton
Private r_opcion6 As RadioButton
Private r_opcion5 As RadioButton
Private r_opcion4 As RadioButton
Private r_opcion3 As RadioButton
@@ -559,13 +561,17 @@ Private Sub b_guardaNoVenta_Click
If r_opcion1.Checked Then
motivo = "CERRADO"
Else If r_opcion2.Checked Then
motivo = "NO COMPRA"
motivo = "NO TIENE DINERO"
Else If r_opcion3.Checked Then
motivo = "CON PRODUCTO"
motivo = "NO ABRE MAÑANA"
Else If r_opcion4.Checked Then
motivo = "NO ESTA EL ENCARGADO"
motivo = "FALTA DE PRODUCTO"
Else If r_opcion5.Checked Then
motivo = "PROMOCION CON OTRO DISTRIBUIDOR"
Else If r_opcion6.Checked Then
motivo = "RECIBEN MUCHOS PROVEEDORES"
Else
motivo = "CANCELACION"
motivo = "NO LE QUEDA EL DIA"
End If
If motivo = "CERRADO" And fotoCerrado = "" Then
nombreFoto = Subs.traeCliente & "_cerrado"