cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.03.02.MV

Browse Source 
- Se agregó en TicketsDia el estatus de los pedidos segun las validaciones de envio.
- Se agregó que al final, cuando se valida que coincidan las cantidades totales y montos totales del pedido contra Web, si no coinciden, se reinicien las validaciones poniendo en cero PE_ENVIO_OK y PC_ENVIO_OK.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-04 21:24:23 -06:00
parent de06eec31f
commit e45c86a857
3 changed files with 51 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
B4A/C_TicketsDia.bas
View File

@@ -32,24 +32,22 @@ Private Sub B4XPage_Created (Root1 As B4XView)
If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
End If
c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
ListView1.Clear
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 10
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 13
label2.TextColor = Colors.Blue
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
Next
End If
' c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
' ListView1.Clear
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim label1 As Label
' label1 = ListView1.TwoLinesLayout.Label
' label1.TextSize = 10
' label1.TextColor = Colors.Black
' Dim label2 As Label
' label2 = ListView1.TwoLinesLayout.SecondLabel
' label2.TextSize = 13
' label2.TextColor = Colors.Blue
' ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
' Next
' End If
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -61,6 +59,7 @@ Sub B4XPage_Appear
ListView1.Clear
If c.RowCount>0 Then
ListView1.TwoLinesLayout.ItemHeight = 70dip
For i=0 To c.RowCount -1
c.Position=i
Dim x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(sum(PE_CANT),0) as PC_NOART from PEDIDO where PE_CLIENTE = '${c.GetString("PC_CLIENTE")}' AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)"$)
@@ -71,13 +70,40 @@ Sub B4XPage_Appear
End If
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.Height = 15dip
label1.TextSize = 10
label1.Gravity = Gravity.TOP
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 13
label2.Gravity = Gravity.TOP
label2.TextColor = Colors.Blue
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cantidad #"& noArticulos & " SubTotal $"& c.GetString("PC_MONTO"))
label2.Height = 50dip
label2.Top = 15dip
' label2.Color = Colors.Cyan
Private ts As Cursor = Starter.skmt.ExecQuery($"select ifnull(pc_envio_ok, 0) as estatus from pedido_cliente where pc_cliente = '${c.GetString("PC_CLIENTE")}'"$)
Private estatus As String = "Pendiente"
Private color As Int
If ts.RowCount > 0 Then
ts.Position = 0
If ts.GetString("estatus") = 0 Then
estatus = "Guardando"
color = Colors.red
else if ts.GetString("estatus") = 1 Or ts.GetString("estatus") = 2 Then
estatus = "En proceso"
color = Colors.RGB(255,175,1)
else if ts.GetString("estatus") = 3 Then
estatus = "Validado"
color = Colors.RGB(0,146,1)
End If
End If
Log(estatus)
Private cs As CSBuilder
cs.Initialize
ListView1.AddTwoLines(c.GetString("PC_CLIENTE"), _
cs.Color(Colors.blue).append(c.GetString("NOMBRE") &" Cantidad #"& noArticulos & " SubTotal $"& c.GetString("PC_MONTO")).Color(color).append(" - " & estatus).popall)
Next
End If
c.Close
@@ -126,7 +152,7 @@ Sub b_noventa_Click
b_noventa.Text ="VENTA"
c=B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc")
ListView1.Clear
If c.RowCount>0 Then
If c.RowCount > 0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim label1 As Label