mirror of
https://github.com/KeymonSoft/Mariana.git
synced 2026-04-18 05:09:33 +00:00
cheveguerra
86e50323b2
Corrige el error de que, si el producto fijo en una promo también esta en los variables, el variable tomaba el precio del fijo.
448 lines
18 KiB
QBasic
448 lines
18 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
Sub Mods
|
|
'20230526 - Se cambió en b_terminar_click y b_continuar_click la funcion "guardaProducto" por "guardaProductoSinGestion", para que no ponga que ya esta guardada la orden y no deje borrar productos.
|
|
End Sub
|
|
|
|
Sub Class_Globals
|
|
Private Root As B4XView 'ignore
|
|
Private xui As XUI
|
|
Private l_promoDesc As Label
|
|
Private lv_prodsFijos As ListView
|
|
Private clv_prodsVariabes As CustomListView
|
|
Private l_prodsFijos As Label
|
|
Private l_prodsVariables As Label
|
|
Private i_prod As ImageView
|
|
Private l_prodX As Label
|
|
Private p_prods As Panel
|
|
Private b_prodMenos As Button
|
|
Private et_pCant As EditText
|
|
Private b_prodMas As Button
|
|
Private l_pCant As Label
|
|
Dim totalProds As Int = 0
|
|
Dim prodsVarReq As Int = 0
|
|
Dim prodsVarReq2 As Int = 0
|
|
Dim totalCompra As Float = 0
|
|
Dim prodsFijosTot As Float = 0
|
|
Dim tpf As Int = 0
|
|
Dim tpf2 As Int = 0
|
|
Dim maxCantPromos As Int = 1
|
|
Private l_totProds As Label
|
|
Private l_total As Label
|
|
Private b_terminar1 As Button
|
|
Private p_promociones As Panel
|
|
Dim prodsIds, prodsCants, prodsPrecios, prodsIds2, prodsCants2, prodsPrecios2 As List
|
|
Dim estaPromo, esteCliente As String
|
|
Private b_promoMas As Button
|
|
Private b_promoMenos As Button
|
|
Private et_promoCant As EditText
|
|
Private l_promosCant As Label
|
|
Private b_continuar As Button
|
|
Private p_prodsVariables As Panel
|
|
Dim laPromo = "", elCliente = "" As String
|
|
Dim prodsPedidoActual As String
|
|
Dim montoPedidoActual As String
|
|
Dim promosMap As Map
|
|
End Sub
|
|
|
|
'You can add more parameters here.
|
|
Public Sub Initialize As Object
|
|
Return Me
|
|
End Sub
|
|
|
|
'This event will be called once, before the page becomes visible.
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
Root = Root1
|
|
'load the layout to Root
|
|
Root.LoadLayout("promociones")
|
|
promosMap.Initialize
|
|
End Sub
|
|
|
|
Sub B4XPage_Appear
|
|
' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.blue)
|
|
p_promociones.Top=0
|
|
p_promociones.Left=0
|
|
p_promociones.Height=Root.Height
|
|
p_promociones.Width=Root.Width
|
|
b_terminar1.Left = Root.Width - (b_terminar1.Width + 10)
|
|
b_continuar.Left = Root.Width - b_terminar1.Width - (b_continuar.Width + 20)
|
|
prodsIds.Initialize
|
|
prodsCants.Initialize
|
|
prodsPrecios.Initialize
|
|
prodsIds2.Initialize
|
|
prodsCants2.Initialize
|
|
prodsPrecios2.Initialize
|
|
Dim m As Map = Subs.traeTotalesClienteActual
|
|
prodsPedidoActual = m.Get("productos")
|
|
montoPedidoActual = m.Get("monto")
|
|
' Log($"laPromo=${laPromo}, el cliente=${elCliente}"$)
|
|
If laPromo <> "" Then muestraPromo(laPromo, elCliente)
|
|
End Sub
|
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
|
|
|
Sub muestraPromo(promo As String, cliente As String)
|
|
Private thisLog As Boolean = False
|
|
' If thisLog Then Log(promo)
|
|
estaPromo = promo
|
|
esteCliente = cliente
|
|
Private mp As Map = Subs.traePromo(promo, cliente)
|
|
Private prodsPromo As Map = mp.Get("productos") 'Los productos de la promoción.
|
|
Private invDispPromo As Map = Subs.traemosInventarioDisponibleParaPromo(promo)
|
|
' If thisLog Then Log($"invDispPromo=${invDispPromo}"$)
|
|
If thisLog Then Log("Max promos por inv de prods FIJOS: " & Subs.revisaMaxPromosProdsFijosPorInventario(mp))
|
|
If thisLog Then Log("Max promos por inv de prods VARIABLES: " & Subs.revisaMaxPromosProdsVariablesPorInventario(mp))
|
|
maxCantPromos = Subs.revisaMaxPromosProdsVariablesPorInventario(mp)
|
|
et_promoCant.Text = 1
|
|
l_promosCant.text = "Max promos: " & maxCantPromos
|
|
Private cs As CSBuilder
|
|
cs.Initialize
|
|
If thisLog Then Log(mp)
|
|
If thisLog Then Log(prodsPromo)
|
|
'Ponemos la promo y descripción.
|
|
' Dim desc As String = $"Promoción: ${promo}${CRLF}${mp.Get("descripcion")}"$
|
|
' Dim desc As String = cs.append("Promocion: ").Color(Colors.RGB(100,149,237)).Append(promo).pop.append(CRLF).Append(mp.Get("descripcion")).Popall
|
|
l_promoDesc.Text = cs.Color(Colors.RGB(100,149,237)).append("Promocion: ").pop.append(CRLF).Append(promo).append(CRLF).Append(mp.Get("descripcion")).Popall
|
|
prodsFijosTot = 0
|
|
'Ponemos el texto en las etiquetas de la cantidad de productos.
|
|
' Dim pf As List = mp.Get("prodsFijos")
|
|
Dim pv As List = mp.Get("prodsVariables")
|
|
Private listaPreciosPV As List = mp.Get("prodsVariablesPrecios")
|
|
If thisLog Then Log(mp)
|
|
tpf = 0
|
|
For Each pfp As Int In mp.Get("prodsFijosPiezas").As(List)
|
|
tpf = tpf + pfp
|
|
Next
|
|
tpf2 = tpf
|
|
' tpf = tpf * maxCantPromos
|
|
l_prodsFijos.Text = $"Productos fijos (${tpf})"$
|
|
prodsVarReq = mp.Get("prodsVariablesRequeridos")
|
|
prodsVarReq2 = prodsVarReq
|
|
l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq}"$
|
|
If prodsVarReq = 0 Then
|
|
p_prodsVariables.Visible = False
|
|
Else
|
|
p_prodsVariables.Visible = True
|
|
End If
|
|
'Llenamos el listview con los productos fijos.
|
|
Dim label1 As Label
|
|
label1 = lv_prodsFijos.SingleLineLayout.Label
|
|
label1.TextSize = 13
|
|
label1.TextColor = Colors.black
|
|
lv_prodsFijos.SingleLineLayout.ItemHeight = 30dip
|
|
lv_prodsFijos.Clear
|
|
' If pf.Size < 1 Then pf.Add("Sin productos fijos.")
|
|
lv_prodsFijos.Clear
|
|
agregaFijosALista(mp, True)
|
|
If thisLog Then Log("Total prods fijos = " & prodsFijosTot)
|
|
' If thisLog Then Log("======="&prodsMap)
|
|
l_totProds.text = $"Productos: ${tpf}"$
|
|
l_total.Text = $"Total: $$1.2{prodsFijosTot}"$
|
|
' Dim ins As InputStream
|
|
' Dim bmp As Bitmap
|
|
' Dim jpeg() As Byte
|
|
|
|
'Llenamos el listview con los productos variables.
|
|
If thisLog Then Log(pv)
|
|
If thisLog Then Log("invDisp=" & invDispPromo)
|
|
clv_prodsVariabes.Clear
|
|
For Each p As String In pv
|
|
If invDispPromo.ContainsKey(p) Then 'Si no esta en la lista de productos con inventario no lo mostramos.
|
|
' c2.Position=i
|
|
' jpeg = c2.GetBlob("CAT_GP_IMG")
|
|
' ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
|
|
' bmp.Initialize2(ins)
|
|
Private indicePV = pv.IndexOf(p)
|
|
Private estePrecio = listaPreciosPV.Get(indicePV)
|
|
Private thisProd As Map = prodsPromo.Get(p)
|
|
If thisLog Then Log(thisProd)
|
|
clv_prodsVariabes.Add(CreateListItem(Subs.traeProdNombre(p)&CRLF&"Hay " & invDispPromo.Get(p) & " $" & estePrecio, estePrecio, invDispPromo.Get(p), clv_prodsVariabes.AsView.Width, 50dip, Null, p), p)
|
|
End If
|
|
Next
|
|
b_terminar1.Visible = False
|
|
b_continuar.Visible = False
|
|
cuentaProds
|
|
End Sub
|
|
|
|
'Agregamos los productos fijos a una lista para despues meterlos en el pedido.
|
|
Sub agregaFijosALista(mp As Map, addListItem As Boolean)
|
|
Private thisLog As Boolean = False
|
|
Private cont As Int = 0
|
|
prodsFijosTot = 0
|
|
Dim pf As List = mp.Get("prodsFijos")
|
|
If pf.Size < 1 Then pf.Add("Sin productos fijos.")
|
|
' Private m As Map
|
|
' prodsMap.Put(estaPromo, CreateMap("cant":1, "precio":0))
|
|
' prodsIds.Add(estaPromo)
|
|
prodsIds.clear
|
|
prodsCants.clear
|
|
prodsPrecios.clear
|
|
prodsIds.Add(estaPromo)
|
|
prodsCants.Add(et_promoCant.text.As(Int))
|
|
prodsPrecios.Add(0)
|
|
For Each p As String In pf
|
|
' Log($"cont=${cont}, mp=${mp}"$)
|
|
If mp.Get("prodsFijosPiezas").As(List).Size > 0 Then
|
|
Private tpi As String = mp.Get("prodsFijosPiezas").As(List).Get(cont)
|
|
Else
|
|
Private tpi As String = 0
|
|
End If
|
|
If mp.Get("prodsFijosPrecios").As(List).Size > 0 Then
|
|
Private tpr As String = mp.Get("prodsFijosPrecios").As(List).Get(cont)
|
|
Else
|
|
Private tpr As String = 0
|
|
End If
|
|
prodsFijosTot = prodsFijosTot + (tpi * tpr)
|
|
If thisLog Then Log("|"&tpi&"|"&p)
|
|
Private ntpi As Int = tpi * et_promoCant.text
|
|
If addListItem And tpi > 0 Then lv_prodsFijos.AddSingleLine(ntpi & " " & Subs.traeProdNombre(p) & " - $" & tpr)
|
|
cont = cont+1
|
|
' m=CreateMap("cant":tpi, "precio":tpr)
|
|
' prodsMap.Put(p, m)
|
|
prodsIds.Add(p)
|
|
prodsCants.Add(tpi.As(Int)*et_promoCant.text.As(Int))
|
|
prodsPrecios.Add(tpr) '*et_promoCant.text.As(Int)
|
|
Next
|
|
End Sub
|
|
|
|
Sub CreateListItem(Text As String, precioU As String, inv As Int, Width As Int, Height As Int, img As Bitmap, prodId As String) As Panel 'ignore
|
|
Dim p As B4XView = xui.CreatePanel("")
|
|
p.SetLayoutAnimated(0, 0, 0, Width, Height)
|
|
p.LoadLayout("proditempromo")
|
|
l_prodX.TextSize = 15
|
|
l_prodX.Text = Text
|
|
l_prodX.TextSize = 15
|
|
p_prods.Height = Height
|
|
p_prods.Width = clv_prodsVariabes.GetBase.Width
|
|
l_prodX.Height = Height
|
|
' l_pCant.Text = 0
|
|
l_pCant.Tag = precioU&"|"&inv&"|"&prodId
|
|
et_pCant.Tag = precioU&"|"&inv&"|"&prodId
|
|
et_pCant.BringToFront
|
|
' i_prod.Bitmap = img
|
|
Return p
|
|
End Sub
|
|
|
|
Sub b_prodMenos_Click
|
|
Dim index As Int = clv_prodsVariabes.GetItemFromView(Sender)
|
|
Dim pnl0 As B4XView = clv_prodsVariabes.GetPanel(index)
|
|
Dim pnl As B4XView = pnl0.GetView(0)
|
|
' Dim laCant As B4XView = pnl.GetView(5)
|
|
Dim laCant As B4XView = pnl.GetView(2).GetView(4)
|
|
' Log($"precio|stock:${laCant.tag}"$)
|
|
laCant.Text = $"$1.0{laCant.Text-1}"$
|
|
If laCant.Text < 0 Then laCant.Text = 0
|
|
|
|
Log(Regex.Split("\|", laCant.tag)(0))
|
|
Private precio As String = Regex.Split("\|", laCant.tag)(0)
|
|
' Private inv As String = Regex.Split("\|", laCant.tag)(1)
|
|
Private prodId As String = Regex.Split("\|", laCant.tag)(2)
|
|
Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
|
|
Log(tmpMap)
|
|
promosMap.Put(prodId, tmpMap)
|
|
If laCant.Text = 0 Then promosMap.Remove(prodId)
|
|
LogColor(promosMap, Colors.Magenta)
|
|
cuentaProds
|
|
' l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
|
|
' l_totProds.text = $"Total Productos: ${totalProds}"$
|
|
End Sub
|
|
|
|
Sub b_prodMas_Click
|
|
If totalProds < prodsVarReq + tpf Then
|
|
Dim index As Int = clv_prodsVariabes.GetItemFromView(Sender)
|
|
Dim pnl0 As B4XView = clv_prodsVariabes.GetPanel(index)
|
|
Dim pnl As B4XView = pnl0.GetView(0)
|
|
' Dim laCant As B4XView = pnl.GetView(5)
|
|
Dim laCant As B4XView = pnl.GetView(2).GetView(4)
|
|
' Log($"precio|stock:${laCant.tag}"$)
|
|
' Log($"Indice: ${index}, cant:${laCant.Text+1}, precioU: ${laCant.tag}"$)
|
|
Dim esteTag As List = Regex.Split("\|", laCant.Tag)
|
|
' Log(esteTag)
|
|
If laCant.Text + 1 <= esteTag.get(1) Then
|
|
laCant.Text = $"$1.0{laCant.Text+1}"$
|
|
cuentaProds
|
|
End If
|
|
|
|
Log(Regex.Split("\|", laCant.tag)(0))
|
|
Private precio As String = Regex.Split("\|", laCant.tag)(0)
|
|
' Private inv As String = Regex.Split("\|", laCant.tag)(1)
|
|
Private prodId As String = Regex.Split("\|", laCant.tag)(2)
|
|
Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
|
|
Log(tmpMap)
|
|
promosMap.Put(prodId, tmpMap)
|
|
LogColor(promosMap, Colors.Magenta)
|
|
End If
|
|
' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
|
|
' l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
|
|
' l_totProds.text = $"Total Productos: ${totalProds}"$
|
|
End Sub
|
|
|
|
Private Sub et_pCant_TextChanged (Old As String, New As String)
|
|
' LogColor("txt changed",Colors.Magenta)
|
|
cuentaProds
|
|
End Sub
|
|
|
|
Sub cuentaProds
|
|
' Log("=====================================================")
|
|
' Log("Inicia cuentaProds")
|
|
Private thisLog As Boolean = False
|
|
If thisLog Then LogColor($"ProdsFijos=${tpf}, totalProds=${totalProds}, totalCompra=${totalCompra}"$, Colors.Red)
|
|
prodsIds2.Clear
|
|
prodsCants2.Clear
|
|
prodsPrecios2.Clear
|
|
lv_prodsFijos.Clear
|
|
agregaFijosALista(Subs.traePromo(estaPromo, esteCliente), True)
|
|
' Log(prodsIds)
|
|
Private tcpf As Float = 0 'Total de compra de productos fijos.
|
|
For pf = 0 To prodsIds.Size - 1
|
|
If thisLog Then Log($"${tcpf} + ${prodsCants.Get(pf)} * ${prodsPrecios.Get(pf)} = ${(prodsPrecios.Get(pf) * prodsCants.Get(pf))}"$)
|
|
tcpf = tcpf + (prodsPrecios.Get(pf) * prodsCants.Get(pf))
|
|
Next
|
|
' Log("Total compra prodsFijos = " & tcpf)
|
|
totalCompra = tcpf
|
|
totalProds = tpf 'Cantidad total de productos fijos.
|
|
For i = 0 To clv_prodsVariabes.GetSize - 1
|
|
Private p0 As B4XView = clv_prodsVariabes.GetPanel(i)
|
|
Private p As B4XView = p0.GetView(0)
|
|
Private cant1 As B4XView = p.GetView(2).GetView(4)
|
|
' If cant1.Text = "" Then cant1.Text = 0
|
|
totalProds = totalProds + cant1.Text
|
|
Private esteTag As List = Regex.Split("\|", cant1.Tag)
|
|
If cant1.Text > esteTag.Get(1) Then cant1.Text = esteTag.Get(1)
|
|
If cant1.Text > 0 Then
|
|
Log(esteTag.Get(2) & "|" & cant1.Text)
|
|
totalCompra = totalCompra + (esteTag.get(0) * cant1.text)
|
|
If thisLog Then Log($"Cant: ${cant1.Text}, Suma: ${totalCompra}"$)
|
|
prodsIds2.Add(esteTag.Get(2))
|
|
prodsCants2.Add(cant1.Text)
|
|
prodsPrecios2.Add(esteTag.get(0))
|
|
End If
|
|
l_total.Text = $"Total: $$1.2{totalCompra}"$
|
|
l_totProds.text = $"Productos: ${totalProds}"$
|
|
Next
|
|
If thisLog Then Log($"Total Prods: ${totalProds}, Total: $$1.2{totalCompra}"$)
|
|
l_total.Text = $"Total: $$1.2{totalCompra}"$
|
|
l_totProds.text = $"Productos: ${totalProds}"$
|
|
If totalProds < prodsVarReq + tpf Or totalProds > prodsVarReq + tpf Then
|
|
' Log("INCOMPLETA")
|
|
b_terminar1.Visible = False
|
|
b_continuar.Visible = False
|
|
Else
|
|
' Log("COMPLETA")
|
|
b_terminar1.Visible = True
|
|
b_continuar.Visible = True
|
|
End If
|
|
If thisLog Then LogColor($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$, Colors.blue)
|
|
If thisLog Then LogColor($"${prodsIds2}${CRLF}${prodsCants2}${CRLF}${prodsPrecios2}"$, Colors.Magenta)
|
|
|
|
LogColor($"Total Prods: ${totalProds}, Total: $$1.2{totalCompra}"$, Colors.Blue)
|
|
End Sub
|
|
|
|
Private Sub et_pCant_FocusChanged (HasFocus As Boolean)
|
|
LogColor("focus changed", Colors.Magenta)
|
|
cuentaProds
|
|
End Sub
|
|
|
|
Private Sub b_promoMenos_Click
|
|
If et_promoCant.Text > 1 Then
|
|
et_promoCant.Text = et_promoCant.Text.As(Int) - 1
|
|
End If
|
|
l_prodsFijos.Text = $"Productos fijos (${tpf2 * et_promoCant.Text.As(Int)})"$
|
|
l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq2 * et_promoCant.Text.As(Int)}"$
|
|
tpf = tpf2 * et_promoCant.Text.As(Int)
|
|
prodsVarReq = prodsVarReq2 * et_promoCant.Text.As(Int)
|
|
Log($"Max promos=${et_promoCant.Text.As(Int)}, Prods fijos=${tpf}, "$)
|
|
cuentaProds
|
|
End Sub
|
|
|
|
Private Sub b_promoMas_Click
|
|
If et_promoCant.Text < maxCantPromos Then
|
|
et_promoCant.Text = et_promoCant.Text.As(Int) + 1
|
|
l_prodsFijos.Text = $"Productos fijos (${tpf2 * et_promoCant.Text.As(Int)})"$
|
|
l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq2 * et_promoCant.Text.As(Int)}"$
|
|
tpf = tpf2 * et_promoCant.Text.As(Int)
|
|
prodsVarReq = prodsVarReq2 * et_promoCant.Text.As(Int)
|
|
Log($"Max promos=${et_promoCant.Text.As(Int)}, Prods fijos=${tpf}, "$)
|
|
End If
|
|
If et_promoCant.text > maxCantPromos Then et_promoCant.Text = maxCantPromos
|
|
cuentaProds
|
|
End Sub
|
|
|
|
Private Sub b_terminar1_Click
|
|
cuentaProds
|
|
Log("====================================================================")
|
|
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.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
|
|
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))
|
|
Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
|
|
Next
|
|
' Log(B4XPages.MainPage.productos.prodsMap)
|
|
' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra.
|
|
' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo)
|
|
'' Log(tmpMap)
|
|
' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap)
|
|
' Next
|
|
' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra.
|
|
' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo)
|
|
'' Log(tmpMap)
|
|
' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap)
|
|
' Next
|
|
' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red)
|
|
lv_prodsFijos.Clear
|
|
B4XPages.MainPage.bTerminarClicked = True
|
|
B4XPages.ShowPage("productos")
|
|
B4XPages.MainPage.productos.b_terminar1_Click
|
|
End Sub
|
|
|
|
Private Sub b_continuar_Click
|
|
cuentaProds
|
|
Log("====================================================================")
|
|
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))
|
|
Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
|
|
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))
|
|
Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
|
|
Next
|
|
' Log(B4XPages.MainPage.productos.prodsMap)
|
|
' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra.
|
|
' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo)
|
|
'' Log(tmpMap)
|
|
' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap)
|
|
' Next
|
|
' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra.
|
|
' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo)
|
|
'' Log(tmpMap)
|
|
' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap)
|
|
' Next
|
|
' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red)
|
|
lv_prodsFijos.Clear
|
|
' Activity_KeyPress(KeyCodes.KEYCODE_BACK)
|
|
' CallSubDelayed2(productos, "Activity_KeyPress", KeyCodes.KEYCODE_BACK)
|
|
Private prodspage As C_Productos
|
|
If prodspage.IsInitialized Then
|
|
prodspage.lv_catalogos.Visible = True
|
|
prodspage.lv_promos.Visible = False
|
|
prodspage.clv_productos.AsView.Visible = False
|
|
End If
|
|
B4XPages.MainPage.bTerminarClicked = True
|
|
B4XPages.ShowPage("productos")
|
|
End Sub
|
|
|
|
'Sub Activity_KeyPress (key As Int) As Boolean 'ignore
|
|
' ' BACK key pressed
|
|
' Log("Keypress")
|
|
' If key=KeyCodes.KEYCODE_BACK Then
|
|
' Log("BACK")
|
|
' Return False
|
|
' End If
|
|
' Return False
|
|
' ' Returning False signals the system to handle the key
|
|
'End Sub |