cheveguerra/ADM
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM.git synced 2026-04-19 12:19:23 +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

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"