diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index a70a736..051a98e 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 0fb718a..26d1d71 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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") diff --git a/B4A/MARQUEZ.b4a b/B4A/MARQUEZ.b4a index c5dc359..045a886 100644 --- a/B4A/MARQUEZ.b4a +++ b/B4A/MARQUEZ.b4a @@ -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 diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta index c1dd708..a39cc80 100644 --- a/B4A/MARQUEZ.b4a.meta +++ b/B4A/MARQUEZ.b4a.meta @@ -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