cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-21 14:49:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.07.20

Browse Source 
- Se agregó la columna HCCP_CANT_VENDIDA a "HIST_CLIENTE_CANT_PROMOS"
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-29 21:37:50 -06:00
parent 1c50207b86
commit 2201740446
7 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Productos.bas
View File

@@ -223,6 +223,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
lfila.text = "PROMOCIONES"
lv_catalogos.Visible = False
lv_promos.Clear
Log("LIMPIAMOS LV_PROMOS")
Dim label1 As B4XView
label1 = lv_promos.TwoLinesLayout.Label
label1.TextSize = 15
@@ -248,14 +249,17 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
label14.TextColor = Colors.Black
' label14.Height = 80dip
lfila.text = "PROMOS"
c2=Starter.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, Value, Value))
c2=Starter.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa)) order by CAT_GP_ID", Array As String(Value, Value, Value))
Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$)
If c2.RowCount > 0 Then
For i=0 To c2.RowCount -1
c2.Position=i
c2.Position = i
LogColor(">>>>>>>>> " & c2.GetString("CAT_GP_ID") & " <<<<<<<<<<", Colors.red)
LogColor(">>>>>>>>> " & c2.GetString("CAT_GP_NOMBRE") & " <<<<<<<<<<", Colors.red)
Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId)
Log(c2.GetString("CAT_GP_ID"))
' Log(c2.GetString("CAT_GP_ID"))
If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
Log($"Promo OK ${CRLF}${tm}"$)
lv_promos.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant"))
End If
Next
@@ -340,7 +344,7 @@ End Sub
Sub lv_promos_ItemClick (Position As Int, Value As Object)
clv_prods_ll.AsView.Visible = False
Dim cliente As C_Cliente = B4XPages.GetPage("Cliente")
' Log($"Entro=${entro}, value=${Value}, cuenta=${cliente.cuenta}"$)
Log($"Entro=${entro}, value=${Value}, cuenta=${cliente.cuenta}"$)
If Value = "PROMOS" And cliente.cuenta <> "N" Then
entro = "3"
marca = "PROMOS"