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.25

Browse Source 
En esta version se ajusto el envio de promociones y el como se estaba guardando la promocion en el movil.
This commit is contained in:
IsR0d
2025-05-29 17:45:10 -06:00
parent 47919c670a
commit 2cfb0a708c
7 changed files with 17 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Promos.bas
View File

@@ -1218,8 +1218,8 @@ End Sub
Private Sub btnGuardaPromo_Click
Subs.guardaProductoSinGestion(Subs.traeAlmacen, 0, lblSumPromo.Text, Encabezado, estaPromo, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
Subs.guardaProductoSinGestion(estaPromo, 0, lblSumPromo.Text, Encabezado, estaPromo, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
' Log("Esto es encabezado>>>>>>>>>>" & Encabezado)
If productosFijos > 0 Then
Log("Guardando productos fijos...")
For i = 0 To pnlFijos.NumberOfViews - 1
@@ -1312,8 +1312,8 @@ Private Sub btnGuardaPromo_Click
End Sub
Private Sub btnContinuar_Click
Subs.guardaProductoSinGestion(Subs.traeAlmacen, 0, lblSumPromo.Text, Encabezado, estaPromo, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
Subs.guardaProductoSinGestion(estaPromo, 0, lblSumPromo.Text, Encabezado, estaPromo, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
' Log(Encabezado)
If productosFijos > 0 Then
For i = 0 To pnlFijos.NumberOfViews - 1
Dim pnlProducto As Panel = pnlFijos.GetView(i)
@@ -1324,6 +1324,7 @@ Private Sub btnContinuar_Click
Private idProducto As String = lblNombre.tag
Dim nomProd() As String = Regex.Split("\r\n|\n", nombreProducto)
Subs.guardaProductoSinGestion(estaPromo, precioProducto, cantidad, nomProd(0), idProducto, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
Log("" & estaPromo & "" & precioProducto & "" & cantidad & "" & nomProd(0) & "" & idProducto & "" & Subs.traeCliente & "" & Subs.traeFecha & "" & Subs.traeUsuarioDeBD & "" & Subs.traeRuta & "" & 0 & "" & B4XPages.MainPage.tipo_venta)
Next
Else
Log("No hay productos fijos para guardar.")