version final, arqueo ciego y clientes nuevos

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

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

View File

@@ -921,6 +921,7 @@ Sub cargar_Click
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod3")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos")
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
@@ -2088,7 +2089,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_MARQUEZ8"
cmd.Name = "select_ruta_MARQUEZ9"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -2149,6 +2150,7 @@ Sub e_ruta_EnterPressed
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod3")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VERIFICACION")
@@ -2334,6 +2336,7 @@ Sub B_OK_PAS_Click
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod3")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos")
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")

View File

@@ -205,7 +205,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Marquez
#VersionCode: 1
#VersionName: 4.11.19
#VersionName: 4.11.28
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Subs,traeTablaProds,1465,3,C_Productos,Busca_TextChanged,1240,0,B4XMainPage,B4XPage_Created,207,0,B4XMainPage,et_buspc_TextChanged,967,0,B4XMainPage,b_arqueocieego_Click,929,0,C_Cliente,gest_Click,515,0,C_Cliente,mandaPendientesrecarga,2084,0,C_Productos,B4XPage_Appear,146,4,C_Productos,B4XPage_Created,119,0,B4XMainPage,JobDone,679,0
NavigationStack=B4XMainPage,JobDone,679,0,B4XMainPage,B4XPage_Created,213,0,B4XMainPage,B_PC_ENV_Click,1053,2,C_Principal,JobDone,1131,0,C_Principal,connecta_Click,2097,0,C_Principal,cargar_Click,917,0,C_Principal,e_ruta_EnterPressed,2144,0,C_Principal,inv_Click,2189,0,C_Principal,B_OK_PAS_Click,2332,0,B4XMainPage,b_terpc_Click,1111,2,B4XMainPage,et_buspc_TextChanged,941,4
SelectedBuild=0
VisibleModules=1,2,13,4,7,8,9,10,14,29,28
VisibleModules=1,2,13,4,7,8,9,10,14,29