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

Version 4.09.22

Browse Source 
Se agrego la Bitacora que tiene Kelloggs
This commit is contained in:
IsR0d
2024-09-23 10:34:09 -06:00
parent 36a638f265
commit 7fe1d3059d
14 changed files with 257 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Clientes.bas
View File

@@ -29,9 +29,12 @@ Sub Class_Globals
Dim CODIGO As String
Dim STIME As String
Dim ruta As String
Dim q_buscar As String
Private p_clientes As Panel
Dim la_cuenta As Label
End Sub
'You can add more parameters here.
@@ -73,6 +76,9 @@ Sub B4XPage_Appear
' Log("LIMPIAMOS LISTVIEW")
lfila.Text = "NOMBRE"
If c.RowCount>0 Then
c.Position= 0
la_cuenta.text = c.GetString("CAT_CL_CODIGO")
Log("La cuenta: --->"&la_cuenta)
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 14
@@ -90,6 +96,7 @@ Sub B4XPage_Appear
' ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO") & " - " & c.GetString("CAT_CL_SECUENCIA"), c.GetString("CAT_CL_NOMBRE") & ", " & c.GetString("CAT_CL_CALLE") & ", " & c.GetString("CAT_CL_NOEXT"))
ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO") & " - " & c.GetString("CAT_CL_SECUENCIA"), c.GetString("CAT_CL_NOMBRE") & CRLF & c.GetString("CAT_CL_CALLE1"))
Next
End If
c.Close
p_clientes.Height = Root.Height
@@ -241,4 +248,5 @@ End Sub
Private Sub p_clientes_Click
'Nada aqui, solo esta para que los clics no se pasen hacia atras.
End Sub
End Sub