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

verion final

Browse Source
This commit is contained in:
Javier
2025-12-04 10:49:23 -06:00
parent c21ad8a6ff
commit 9d9cb3d2a4
14 changed files with 1910 additions and 1102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
B4A/C_Clientes.bas
View File

@@ -92,18 +92,33 @@ Sub B4XPage_Appear
For i = 0 To c.RowCount - 1
c.Position = i
CustomListView1.Add(CreateListItem(c.GetString("CAT_CL_NOMBRE"),c.GetString("CAT_CL_CALLE"),c.GetString("CAT_CL_CODIGO")),i)
d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$)
If d.RowCount = 0 Then
cxc.Visible = False
Else
cxc.Visible = True
End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue)
' d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$)
' If d.RowCount = 0 Then
' cxc.Visible = False
' Else
' cxc.Visible = True
' End If
'
' d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$)
'' LogColor(d.RowCount,Colors.Blue)
' If d.RowCount > 0 Then
' d.Position = 0
' If d.GetString("CAT_CL_BCREDITO") = "1" Then
' CREDITO.Visible = True
' Else
' CREDITO.Visible = False
' End If
' d.Close
' Else
' CREDITO.Visible = False
' End If
d = B4XPages.MainPage.skmt.ExecQuery($"select PE_DESCRAGA FROM PEDIDO WHERE PE_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}' ORDER BY PE_DESCRAGA ASC"$)
' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then
d.Position = 0
If d.GetString("CAT_CL_BCREDITO") = "1" Then
If d.GetString("PE_DESCRAGA") = "1" Then
Log("aQUI")
CREDITO.Visible = True
Else
CREDITO.Visible = False
@@ -112,6 +127,8 @@ Sub B4XPage_Appear
Else
CREDITO.Visible = False
End If
Next
If c.RowCount>0 Then
For i=0 To c.RowCount -1