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

25/10/23 - Código para promos x ruta

Browse Source 
- Se agregó código para procesar las promos por ruta.
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-25 22:53:00 -06:00
parent d84f0c588b
commit cbce94f584
10 changed files with 147 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Promos.bas
View File

@@ -340,10 +340,14 @@ End Sub
Private Sub b_terminar1_Click
cuentaProds
Log("====================================================================")
' Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$)
Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$)
Log(laPromo)
For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido.
Private pn As String = Subs.traeProdNombre(prodsIds.Get(t))
If prodsCants.Get(t) > 0 Then Subs.guardaProducto(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
If laPromo = prodsIds.Get(t) Then Subs.guardaPromoXruta(laPromo, prodsCants.Get(t))
Next
For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido.
Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t))