cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-20 12:49:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

cambio de RMI y promocion variable v_4_01_17_3

Browse Source
This commit is contained in:
cvaldes1201
2024-01-18 00:02:28 -06:00
parent 98ee54f753
commit 745adb86ca
8 changed files with 51 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Productos.bas
View File

@@ -643,7 +643,6 @@ Sub b_prodMas_Click
Dim pnl As B4XView = pnl0.GetView(0)
Dim lProdX As B4XView = pnl.GetView(1)
Private existencias As String = lProdX.tag.As(Map).Get("almacen")
Log(1)
LogColor(clv_prods_ll.GetValue(index).As(Map), Colors.blue)
' LogColor(lProdX.tag.As(Map), Colors.red)
@@ -654,7 +653,10 @@ Sub b_prodMas_Click
Private precio As String = tmpMap.Get("precio")
Private precio2 As String = precio
Private inv As Int = tmpMap.Get("almacen")
' Log(tmpMap)
inv = Subs.traeInventario(tmpMap.Get("id"), Starter.tipov)
Private rmis As String = kh.traeRMIdePedido(tmpMap.Get("id"))
Log($"${laCant.Text} + 1 <= ${inv} = ${(laCant.Text + 1) <= (inv)}"$)
Log($"RMIS: ${kh.traeRMIdePedido(tmpMap.Get("id"))}"$)
If buttonTag = "vendido" Then
' Log("VENDIDO")
' Log($"${(laCant.Text + 1 <= inv)} And ${(Subs.totalPedido - precio > 1)}"$)
@@ -666,7 +668,7 @@ Sub b_prodMas_Click
laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False)
' Log(clv_prods_ll.GetValue(index).As(Map))
End If
else If laCant.Text + 1 <= inv And (lfila.Text = "PRODUCTOS" Or lfila.Text = "CATALOGO") Then
else If (inv > 0) And (lfila.Text = "PRODUCTOS" Or lfila.Text = "CATALOGO") Then
' LogColor(inv, Colors.blue)
' laCant.Text = $"$1.0{laCant.Text + 1}"$
laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False)
@@ -1144,7 +1146,7 @@ Private Sub l_prodX_LongClick
Private pId As String = clv_prods_ll.GetValue(index).As(Map).Get("id")
Log(clv_prods_ll.GetValue(index))
Private pNombre As String = clv_prods_ll.GetValue(index).As(Map).Get("prod")
Private t As Cursor = Starter.skmt.ExecQuery($"select sum(PE_CANT) as cuantosProds from pedido where PE_PROID = '${pId}' and PE_CEDIS <> 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
Private t As Cursor = Starter.skmt.ExecQuery($"select sum(PE_CANT) as cuantosProds from pedido where PE_CEDIS <> 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
t.Position = 0
Private ventaT As String = t.GetString("cuantosProds")
If ventaT = Null Then ventaT = 0