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

Version: 5.05.18

Browse Source 
Se corrigió el como se estaba enviando la información de las promociones.
Se agrego al config propertis el query de actualizaGPS3.
This commit is contained in:
IsR0d
2025-05-22 11:01:13 -06:00
parent ec9e4b8f8d
commit 47919c670a
7 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/C_Promos.bas
View File

@@ -347,6 +347,7 @@ Private Sub ObtenerFijos(promo As String)
End Sub
Private Sub ObtenerVariablesRequeridas(promo As String)
Log("Esto es promo: " & promo)
Dim cursorVariablesReq As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_STS AS CAT_GP_VAR1REQ, CAT_GP_IMP1 AS CAT_GP_VAR2REQ, CAT_GP_VARREQ3 from cat_gunaprod2 where cat_gp_id = '${promo}'"$)
If cursorVariablesReq.RowCount > 0 Then
@@ -391,6 +392,7 @@ End Sub
Sub muestraPromo(promo As String, cliente As String)
estaPromo = promo
Log("<<<<<<<<<<<<<<<<<<<<<<<<<<<<<" & estaPromo & "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
esteCliente = cliente
Private mp As Map = Subs.traePromo(promo, cliente)
@@ -403,7 +405,7 @@ Sub muestraPromo(promo As String, cliente As String)
cs.Initialize
lblNomPromo.text = cs.Color(Colors.RGB(100,149,237)).Size(18).Append("Promocion: ").Pop.Append(promo).Append(CRLF).Append(mp.Get("descripcion")).Popall
Log(lblNomPromo.text)
Log("|" &lblNomPromo.text&"|")
ObtenerVariablesRequeridas(promo)
ObtenerFijos(promo)
@@ -414,7 +416,15 @@ Sub muestraPromo(promo As String, cliente As String)
If pnlVariables2.IsInitialized Then pnlVariables2.RemoveAllViews
If pnlVariables3.IsInitialized Then pnlVariables3.RemoveAllViews
Encabezado = promo
Dim nombrePromo As String = lblNomPromo.Text
Dim nomPromo() As String = Regex.Split("\r\n|\n", nombrePromo)
Log("Esto es nombre promo? <<<<<<<<<<<|" & nomPromo(1) & "|")
Encabezado = nomPromo(1)
Log("Esto es encabezado? |" & Encabezado)
' Dim promoText As String = lblNomPromo.Text.Trim()
' Dim idPromo() As String = Regex.Split(":", promoText)
' Log("Esto es idPromo? | <<<<<<<<<<<<<<<<<<|" & idPromo(1).Trim() & "|")
If productosFijos > 0 Then
pnlFijos.Visible = True
@@ -1207,7 +1217,8 @@ Private Sub AjustarScroll
End Sub
Private Sub btnGuardaPromo_Click
Subs.guardaProductoSinGestion(Encabezado, 0, lblSumPromo.Text, Encabezado, Encabezado, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
Subs.guardaProductoSinGestion(Subs.traeAlmacen, 0, lblSumPromo.Text, Encabezado, estaPromo, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
If productosFijos > 0 Then
Log("Guardando productos fijos...")
@@ -1219,6 +1230,7 @@ Private Sub btnGuardaPromo_Click
Dim nombreProducto As String = lblNombre.Text
Private idProducto As String = lblNombre.tag
Dim nomProd() As String = Regex.Split("\r\n|\n", nombreProducto)
Log("Esto es el nombre dle producto? <<<<<<<<<<<<<<<<<<<<<<<|" &nomProd(1) & "|")
If cantidad > 0 Then
Subs.guardaProductoSinGestion(estaPromo, precioProducto, cantidad, nomProd(0), idProducto, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
End If
@@ -1300,7 +1312,7 @@ Private Sub btnGuardaPromo_Click
End Sub
Private Sub btnContinuar_Click
Subs.guardaProductoSinGestion(Encabezado, 0, lblSumPromo.Text, Encabezado, Encabezado, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
Subs.guardaProductoSinGestion(Subs.traeAlmacen, 0, lblSumPromo.Text, Encabezado, estaPromo, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
If productosFijos > 0 Then
For i = 0 To pnlFijos.NumberOfViews - 1