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

16/1/24 - Correccion de error de ubicacion no inicializada

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-16 19:07:03 -06:00
parent 1451af86ec
commit f228f59e21
4 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Nota.bas
View File

@@ -112,7 +112,7 @@ Sub B4XPage_Appear
If c.GetString("CUANTOS") > 0 Then
B_PEDIDO_DOE.Text = "IR A PEDIDO DON TOÑO"
B_PEDIDO_DOE.VISIBLE = True
C_DOE=Starter.skmt.ExecQuery2("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc", Array As String("DOE"))
C_DOE=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc", Array As String("DOE"))
lv_prodsDOE.Clear
If C_DOE.RowCount>0 Then
For i=0 To C_DOE.RowCount -1