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

-VERSION 5.07.05.1

Browse Source 
- Se cambo el tipoVenta de DISTRIBUCION a PREVENTA.
- Se corrigio codigo de promos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-07-05 21:54:47 -06:00
parent fee8a83516
commit 0e7c5bf4e6
9 changed files with 165 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -574,7 +574,7 @@ Sub B4XPage_Appear
' Log(2)
Log(Subs.traeTipoVentaDeBD)
End If
B4XPages.MainPage.tipo_venta = tipo_venta
' B4XPages.MainPage.tipo_venta = Subs.traeTipoVentaDeBD
Log($"TIPO_VENTA: ${tipo_venta}"$)
encuentasmapa.Initialize
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
@@ -3923,7 +3923,7 @@ Private Sub B_guardaencuesta_m4_Click
itemselect16 = "Selecciona una opcion"
MsgboxAsync("Encuesta guardada","")
Else
B4XPages.MainPage.tipo_venta = tipo_venta
' B4XPages.MainPage.tipo_venta = Subs.traeTipoVentaDeBD
' tipo_venta = "PREVENTA"
p_pregunta1.Visible = False
SV_ENCUESTA.Visible = False
@@ -3972,7 +3972,7 @@ Private Sub B_guardaencuesta_m5_Click
skmt.ExecNonQuery2("INSERT INTO ENCUESTA_MODULO5 (CLIENTE, ALMACEN,P1, P2, P3, P4, P5, P6, P7, P8, P9) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeCliente, ALMACEN,itemselect8,itemselect9,itemselect10,itemselect11,itemselect12,itemselect13,itemselect14,itemselect15,itemselect16))
SV_ENCUESTA.Visible = False
p_cliente.Visible = True
B4XPages.MainPage.tipo_venta = tipo_venta
' B4XPages.MainPage.tipo_venta = Subs.traeTipoVentaDeBD
B4XPages.ShowPage("productos")
MsgboxAsync("Encuesta guardada","")
Else