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

version final, arqueo ciego y clientes nuevos

Browse Source
This commit is contained in:
cvaldes1201
2024-12-07 18:05:55 -06:00
parent f83981f7a9
commit 7e538b97f4
4 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/B4XMainPage.bas
View File

@@ -945,7 +945,7 @@ End Sub
Private Sub et_buspc_TextChanged (Old As String, New As String)
If New = "" Then
CLV_PICK_CIEGO.Clear
Else
Else If new.Length >= 3 Then
CLV_PICK_CIEGO.Clear
q_buscar = "%" & et_buspc.Text & "%"
@@ -1057,7 +1057,7 @@ Private Sub B_PC_ENV_Click
' Log(a.GetString("ID_ALMACEN"))
' Log(f.GetString("CAT_CL_RUTA"))
If inputText <> 0 Then
If inputText <> "" Then
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
If c.RowCount = 0 Then
' Insert data into the database
@@ -1115,7 +1115,7 @@ Private Sub b_terpc_Click
End If
Log(a.GetString("ID_ALMACEN"))
Log(f.GetString("CAT_CL_RUTA"))
If inputText <> 0 Then
If inputText <> "" Then
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
If c.RowCount = 0 Then
' Insert data into the database