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

Se agrego una validacion para revisar el campo CAT_LO_RMI

Browse Source
This commit is contained in:
IsR0d
2024-07-29 12:48:27 -06:00
parent 9330be0a9d
commit 569b0ca166
7 changed files with 53 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
B4A/C_Productos.bas
View File

@@ -1144,57 +1144,67 @@ End Sub
Private Sub l_prodX_LongClick
Log("longClic = "&Sender.as(Label).Text)
c = Starter.skmt.ExecQuery("Select BR_BANDERA From BANDERA_RMI")
If c.RowCount > 0 Then
c.Position = 0
Dim ban As Int = c.GetString("BR_BANDERA")
End If
If Subs.traeCliente <> 0 Then
Dim index As Int = clv_prods_ll.GetItemFromView(Sender)
nuevaCantRMI = 0
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_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
If ban <> 0 Then
Dim index As Int = clv_prods_ll.GetItemFromView(Sender)
nuevaCantRMI = 0
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_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
' If Starter.tipov = "PREVENTA" Then
' ToastMessageShow("¡¡En preventa NO hay cambios!!", True)
' Return
' End If
Private rmis As Cursor =Starter.skmt.ExecQuery($"select CAT_GP_DEV from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${pId}'"$)
Private rmis As Cursor =Starter.skmt.ExecQuery($"select CAT_GP_DEV from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${pId}'"$)
' If rmis.RowCount > 0 Then
' rmis.Position = 0
' Log(rmis.GetString("CAT_GP_DEV"))
' End If
rmis.Position = 0
If rmis.RowCount > 0 And rmis.GetString("CAT_GP_DEV") = 1 Then
t = Starter.skmt.ExecQuery($"select sum(PE_CANT) as totalRMI from pedido where PE_PROID = '${pId}' and PE_CEDIS = 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
t.Position = 0
Private totalRMI As String = t.GetString("totalRMI")
Log($"Prods: ${ventaT}, RMIs: ${totalRMI}"$)
If totalRMI = Null Then totalRMI = 0
Log($"Prods: ${ventaT}, RMIs: ${totalRMI}"$)
l_rmi_nombre.Text = Sender.as(Label).Text
Private pu0() As String = Regex.Split("\$", Sender.as(Label).Text)
Private pu As String
If pu0.Length > 1 Then pu = pu0(pu0.Length-1) Else pu = 0
'Log(ventaT & ", " & totalRMI & ", " & Sender.as(Label).tag & ", " & pu)
rmis.Position = 0
If rmis.RowCount > 0 And rmis.GetString("CAT_GP_DEV") = 1 Then
t = Starter.skmt.ExecQuery($"select sum(PE_CANT) as totalRMI from pedido where PE_PROID = '${pId}' and PE_CEDIS = 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
t.Position = 0
Private totalRMI As String = t.GetString("totalRMI")
Log($"Prods: ${ventaT}, RMIs: ${totalRMI}"$)
If totalRMI = Null Then totalRMI = 0
Log($"Prods: ${ventaT}, RMIs: ${totalRMI}"$)
l_rmi_nombre.Text = Sender.as(Label).Text
Private pu0() As String = Regex.Split("\$", Sender.as(Label).Text)
Private pu As String
If pu0.Length > 1 Then pu = pu0(pu0.Length-1) Else pu = 0
'Log(ventaT & ", " & totalRMI & ", " & Sender.as(Label).tag & ", " & pu)
' l_rmi_usado.Text = $"RMI usado: $1.0{(ventaT - totalRMI)}"$
l_montoDisponible.Text = $"DEVOLUCIONES"$
Private esteInv As Int = Subs.traeInventario(pId, Starter.tipov)
If esteInv < ventaT Then ventaT = esteInv 'Si el inventario disponble es menor a los productos del pedido, entoncs tomamos ese valor.
Private m As Map = CreateMap("disponible":clv_prods_ll.GetValue(index).As(Map).Get("almacen"), "inv":clv_prods_ll.GetValue(index).As(Map).Get("almacen"), "totalRMI":totalRMI, "pu":pu, "id":pId, "nombre":pNombre)
rmiMap = m
Log(rmiMap)
' b_rmi_mas.Tag = m
' b_rmi_menos.Tag = m
' b_rmi_aceptar.Tag = m
Subs.centraPanel(p_rmi, Root.Width)
l_rmi_cant.Text = totalRMI
l_montoDisponible.Text = $"DEVOLUCIONES"$
Private esteInv As Int = Subs.traeInventario(pId, Starter.tipov)
If esteInv < ventaT Then ventaT = esteInv 'Si el inventario disponble es menor a los productos del pedido, entoncs tomamos ese valor.
Private m As Map = CreateMap("disponible":clv_prods_ll.GetValue(index).As(Map).Get("almacen"), "inv":clv_prods_ll.GetValue(index).As(Map).Get("almacen"), "totalRMI":totalRMI, "pu":pu, "id":pId, "nombre":pNombre)
rmiMap = m
Log(rmiMap)
' b_rmi_mas.Tag = m
' b_rmi_menos.Tag = m
' b_rmi_aceptar.Tag = m
Subs.centraPanel(p_rmi, Root.Width)
l_rmi_cant.Text = totalRMI
' l_rmi_total.text = ""
p_rmi.BringToFront
p_rmi.Visible = True
p_rmi.BringToFront
p_rmi.Visible = True
Else
ToastMessageShow("No hay devoluciones para este producto", True)
End If
Else
ToastMessageShow("No hay devoluciones para este producto", True)
ToastMessageShow("No esta autorizado para devoluciones", True)
End If
End If
c.Close
End Sub
Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)