cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.11.02

Browse Source 
- Se corrige que cuando en el catalogo de productos se pone una cantidad de producto y luego se borra directamente en la cantidad, se quedaba la cantidad previamente selecionada.
- Se pone codigo para que se maneje Venta y Preventa, se lee la información de CAT_RUTAS/CAT_RU_CATEGORIA, falta la parte de "AMBOS". (En revision por Dulce)
- Se agregaron 7 almacenes para que se active la encuesta de Pedigree.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-05 19:29:19 -06:00
parent 217b955083
commit 35fb2b6401
7 changed files with 98 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
B4A/C_Cliente.bas
View File

@@ -487,9 +487,6 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
gest.Text = "PreVenta"
If Subs.traeTipoVentaDeBD = "VENTA" Then gest.Text = "Venta"
If la_cuenta.Text = "0" Then gest.Text = "Carga Abordo"
iniciofin
que_modulo = 1
dentroDeGeocerca = False
@@ -512,13 +509,13 @@ Sub B4XPage_Appear
b_Inicio_Fin_venta.Text = "INICIAR VENTA"
b_Inicio_Fin_venta.BringToFront
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
If Not(Starter.enVenta) Then
b_Inicio_Fin_venta.Visible = True
Log("EnVenta Visible")
Else
Log("EnVenta NO Visible")
b_Inicio_Fin_venta.Visible = False
End If
' If Not(Starter.enVenta) Then
' b_Inicio_Fin_venta.Visible = True
' Log("EnVenta Visible")
' Else
' Log("EnVenta NO Visible")
' b_Inicio_Fin_venta.Visible = False
' End If
If Subs.hayPedido Then 'Si hay pedido, deshabilitamos el boton de "No Venta"
Log(">>>>> HAY PEDIDO")
@@ -915,6 +912,10 @@ Sub B4XPage_Appear
b_Inicio_Fin_venta.Visible = False
' ToastMessageShow("aaa", False)
End If
gest.Text = "PreVenta"
If Subs.traeTipoVentaDeBD = "VENTA" Then gest.Text = "Venta"
Log($">>>>>>>>>> |${la_cuenta.Text.trim}|"$)
If la_cuenta.Text.trim = "0" Then gest.Text = "Carga Abordo"
' Log($"ALMACEN: ${ALMACEN}${CRLF}RUTA:${LA_RUTA}"$)
End Sub
@@ -1118,17 +1119,13 @@ End Sub
'Muestra u oculta el boton de inicio y fin de venta
Private Sub iniciofin
Log(">>>>> " & Starter.enVenta)
If Starter.enVenta = False Then
Log(333)
p_transparenteInicioFin.BringToFront
p_transparenteInicioFin.Visible = True
b_Inicio_Fin_venta.Visible = True
' Log("Hacemos visible el boton de Inicio Venta")
Else
Log(4444)
If b_Inicio_Fin_venta.Text <> "TERMINAR VENTA" Then
Log(555)
p_transparenteInicioFin.Visible = False
b_Inicio_Fin_venta.Visible = False
End If
@@ -1221,13 +1218,24 @@ Sub gest_Click
' En SCAT es ruta 3
' Norte 45 (79) Rutas: 702, 703, 707, 718, 730, 732, 733, 734.
' COACALCO- 35--
' NORTE 45- 75--
' ATIZAPAN- 56--
' VALLEJO- 73--
' IZTAPALAPA- 43--
' CEDA- 54--
' PACHUCA- 15--
Private rutasEncuesta As List
rutasEncuesta.Initialize2(Array As Int(702, 703, 707, 718, 730, 732, 733, 734))
Private alamcenesEncuesta As List
alamcenesEncuesta.Initialize2(Array As Int(15, 35, 43, 54, 56, 73, 75, 79)) ' Almacenes para la encuesta de Pedigree
' ALMACEN = 79
' LA_RUTA = 732
' Or (ALMACEN = 79 And rutasEncuesta.IndexOf(LA_RUTA.As(Int)) > -1)
If (ALMACEN = 6 And LA_RUTA = 3) Or (ALMACEN = 79 And rutasEncuesta.IndexOf(LA_RUTA.As(Int)) > -1) Then
If (alamcenesEncuesta.IndexOf(ALMACEN.As(Int)) > -1 ) Or (ALMACEN = 6 And LA_RUTA = 3) Then
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
cuest.agregaPreguntaCheckbox("1", "¿Qué productos de Kileo Perro encuentras en esta tienda?", Array As String("Pedigree Adulto", "Pedigree Cachorro", "Pedigree Razas Pequeñas", "Champ", "PAL","DOG CHOW ADULTO","DOG CHOW CACHORRO","DOG CHOW RAZAS PEQUEÑAS","Campeon","Ganador","Poder canino","Perron","Silverkan","Woow","Chapetes","Dyno","Beriscan","Nogacan","Nutrescan","Fidus","Amigo Gourmet","Otros","Ninguno de los anteriores"))
@@ -4724,7 +4732,6 @@ Private Sub StopCamera2
End If
End Sub
Private Sub b_Inicio_Fin_venta_Click
' b_Inicio_Fin_venta.Visible = False
' Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Pre-venta", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")