From 09ee88c0d9ad993d1cab9c0c346707434b7e3b7d Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 23 Oct 2023 12:45:28 -0600 Subject: [PATCH] =?UTF-8?q?23/10/23=20-=20Version=20en=20Principal=20y=20C?= =?UTF-8?q?liente=20-=20Agregamos=20la=20version=20de=20la=20aplicaci?= =?UTF-8?q?=C3=B3n=20en=20la=20pantalla=20principal=20y=20en=20la=20del=20?= =?UTF-8?q?cliente?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 2 - B4A/C_Cliente.bas | 13 +- B4A/C_Principal.bas | 318 ++++++++++++++++++++-------------------- B4A/C_Subs.bas | 29 ++-- B4A/Files/cliente.bal | Bin 34248 -> 34677 bytes B4A/Files/principal.bal | Bin 46369 -> 46774 bytes B4A/Mariana.b4a | 3 +- B4A/Mariana.b4a.meta | 4 +- B4A/Subs.bas | 10 -- 9 files changed, 189 insertions(+), 190 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 822c886..b37f997 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -20,8 +20,6 @@ Version=9.85 '########################################################################################################### #End Region - - 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ Sub Class_Globals diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index d5e2396..c591255 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -140,6 +140,7 @@ Sub Class_Globals Private Label20 As Label Private l_calle1 As Label Private l_ubicacion2 As Label + Private l_version As Label End Sub 'You can add more parameters here. @@ -153,23 +154,25 @@ Private Sub B4XPage_Created (Root1 As B4XView) 'load the layout to Root ' Activity.RemoveAllViews Root.LoadLayout("cliente") + l_version.Text = Application.VersionName + Subs.centraPanel(Panel1, Root.Width) ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If skmt.Initialize(ruta,"kmt.db", True) - c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") - s=skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") - s.Position=0 + c = skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") + s = skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + s.Position = 0 If c.RowCount>0 Then - c.Position=0 + c.Position = 0 la_cuenta.Text = c.GetString("CAT_CL_CODIGO") cuenta = c.GetString("CAT_CL_CODIGO") La_nombre.Text = c.GetString("CAT_CL_NOMBRE") la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT") la_col.Text = c.GetString("CAT_CL_COLONIA") la_edo.Text = c.GetString("CAT_CL_EDO") -' la_cp.Text = c.GetString("CAT_CL_CP") +' la_cp.Text = c.GetString("CAT_CL_CP") l_entre1.Text = c.GetString("CAT_CL_NOEXT") l_entre2.Text = c.GetString("CAT_CL_NOINT") l_atiende.Text = c.GetString("CAT_CL_ATIENDE1") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 0fd2c6a..4327d12 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -225,6 +225,7 @@ Sub Class_Globals Private p_principal As Panel Private p_mandaInfo As Panel + Private l_version As Label End Sub 'You can add more parameters here. @@ -238,6 +239,10 @@ Private Sub B4XPage_Created (Root1 As B4XView) 'load the layout to Root Root.LoadLayout("principal") s.Initialize(Me, "Subs") + p_mandaInfo.Width = Root.Width + p_mandaInfo.Height = Root.Height + s.centraPanel(P1, Root.Width) + l_version.Text = Application.VersionName rd.Initialize 'Inicializamos el respaldo diario. rd.vacuum EJECUTANDO=1 @@ -481,11 +486,7 @@ End Sub Sub Subir_Click CARGA = "SUBIR" - p_mandaInfo.Width = Root.Width - p_mandaInfo.Height = Root.Height P1.Visible = True - P1.Left = (p_mandaInfo.Width/2) - (P1.Width/2) - P1.top = (p_mandaInfo.Height/2) - (P1.Height/2) p_mandaInfo.Visible = True P1.BringToFront p_mandaInfo.BringToFront @@ -689,7 +690,7 @@ Sub Subir_Click ' Dim fotox() As Byte ' Dim cmd As DBCommand ' c = Starter.skmt.ExecQuery("Select CODIGO, ALMACEN, RUTA, NOM_FOTO from HIST_FOTO_CLIENTE") -' + ' ' c.Position = 0 ' ' Dim Dirp As String = File.DirInternal @@ -745,197 +746,195 @@ Sub cargar_Click End If End If If Not (pedidodiaanterior) Then - CARGA = "CARGAR" - p_mandaInfo.Width = Root.Width - p_mandaInfo.Height = Root.Height - P1.Left = (p_mandaInfo.Width/2) - (P1.Width/2) - P1.top = (p_mandaInfo.Height/2) - (P1.Height/2) - img2.Visible =True - L_P_1.Visible = True - S_CC.Visible = True - Btn_Ubicar.Visible=False - P1.Visible = True - p_mandaInfo.Visible = True - p_principal.Visible = False - Subs.panelVisible(P1, 0, 0) - Subs.centraPanel(P1, Root.Width) - Subs.centraPanelV(P1, Root.Height) -' trabajar.Visible = False - NUEVO.Visible =False - BUSCA.Visible=False - connecta.Visible=False - L_P_3.Visible = True - S_CH.Visible = True - PB1.Visible = True - Resumen.Visible= False + CARGA = "CARGAR" + s.panelVisible(p_mandaInfo, 0, 0) + P1.Left = (p_mandaInfo.Width/2) - (P1.Width/2) + P1.top = (p_mandaInfo.Height/2) - (P1.Height/2) + img2.Visible =True + L_P_1.Visible = True + S_CC.Visible = True + Btn_Ubicar.Visible = False + p_mandaInfo.Visible = True + p_principal.Visible = False + Subs.panelVisible(P1, 0, 0) + Subs.centraPanel(P1, Root.Width) + Subs.centraPanelV(P1, Root.Height) +' trabajar.Visible = False + NUEVO.Visible =False + BUSCA.Visible=False + connecta.Visible=False + L_P_3.Visible = True + S_CH.Visible = True + PB1.Visible = True + Resumen.Visible= False - L_P_1.Text = "Catalogo de Clientes" - L_P_2.Text = "Catalogos de Productos" - L_P_3.Text = "Catalogos Historicos" - S_CC.Text = "EN PROCESO" - S_CH.Text = "EN PROCESO" - S_CP.Text = "EN PROCESO" - PB1.Progress = 0 - PB2.Progress = 0 - EJECUTANDO = 1 + L_P_1.Text = "Catalogo de Clientes" + L_P_2.Text = "Catalogos de Productos" + L_P_3.Text = "Catalogos Historicos" + S_CC.Text = "EN PROCESO" + S_CH.Text = "EN PROCESO" + S_CP.Text = "EN PROCESO" + PB1.Progress = 0 + PB2.Progress = 0 + EJECUTANDO = 1 - 'c=skmt.ExecQuery("CREATE TABLE kmt_info (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)") - TOPE = 0 - ' NUEVOS CLIENTE + 'c=skmt.ExecQuery("CREATE TABLE kmt_info (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)") + TOPE = 0 + ' NUEVOS CLIENTE - Starter.skmt.ExecNonQuery("delete from kmt_info") - Starter.skmt.ExecNonQuery("delete from cod_result") - Starter.skmt.ExecNonQuery("delete from CAT_GIRO") - Starter.skmt.ExecNonQuery("delete from BANDERA") - Starter.skmt.ExecNonQuery("delete from hist_gest") - Starter.skmt.ExecNonQuery("delete from cat_gunaprod") - Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") - Starter.skmt.ExecNonQuery("delete from telefonos") - Starter.skmt.ExecNonQuery("delete from HIST_VENTAS") - Starter.skmt.ExecNonQuery("delete from HIST_PROMOS") - Starter.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS") - Starter.skmt.ExecNonQuery("delete from PROMOS_COMP") - Starter.skmt.ExecNonQuery("delete from CAT_VERIFICACION") - Starter.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS") - Starter.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE") - Starter.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA") - Starter.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS") - Starter.skmt.ExecNonQuery("DELETE FROM HIST_AVANCE") + Starter.skmt.ExecNonQuery("delete from kmt_info") + Starter.skmt.ExecNonQuery("delete from cod_result") + Starter.skmt.ExecNonQuery("delete from CAT_GIRO") + Starter.skmt.ExecNonQuery("delete from BANDERA") + Starter.skmt.ExecNonQuery("delete from hist_gest") + Starter.skmt.ExecNonQuery("delete from cat_gunaprod") + Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") + Starter.skmt.ExecNonQuery("delete from telefonos") + Starter.skmt.ExecNonQuery("delete from HIST_VENTAS") + Starter.skmt.ExecNonQuery("delete from HIST_PROMOS") + Starter.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS") + Starter.skmt.ExecNonQuery("delete from PROMOS_COMP") + Starter.skmt.ExecNonQuery("delete from CAT_VERIFICACION") + Starter.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS") + Starter.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE") + Starter.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA") + Starter.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS") + Starter.skmt.ExecNonQuery("DELETE FROM HIST_AVANCE") - c = Starter.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso")) - c.Position = 0 - DateTime.TimeFormat = "HHmmss" - 'Valida si ya se cuenta con hora actualiza el valor si no lo inserta----------- - If c.GetString("HoraIngreso") > 0 Then - Starter.skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso")) - Else - Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso")) - End If - c.Close - DateTime.TimeFormat = "HH:mm:ss" - c=Starter.skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 - usuario = c.GetString("USUARIO") - c.Close + c = Starter.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso")) + c.Position = 0 + DateTime.TimeFormat = "HHmmss" + 'Valida si ya se cuenta con hora actualiza el valor si no lo inserta----------- + If c.GetString("HoraIngreso") > 0 Then + Starter.skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso")) + Else + Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso")) + End If + c.Close + DateTime.TimeFormat = "HH:mm:ss" + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close ' - Dim sDate,sTime As String - DateTime.DateFormat = "MM/dd/yyyy" - sDate=DateTime.Date(DateTime.Now) - sTime=DateTime.Time(DateTime.Now) + Dim sDate,sTime As String + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) - Dim P As PhoneId + Dim P As PhoneId ' imei = P.GetDeviceId - imei = "yyyy" - cmd.Initialize - cmd.Name ="insert_drop_MARDS_2" - cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGA",ALMACEN) - reqManager.ExecuteCommand(cmd , "inst_noventa") + imei = "yyyy" + cmd.Initialize + cmd.Name ="insert_drop_MARDS_2" + cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGA",ALMACEN) + reqManager.ExecuteCommand(cmd , "inst_noventa") - cmd.Initialize - cmd.Name = "select_cat_gunaprod_MARDS" - cmd.Parameters = Array As Object(ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprod") + cmd.Initialize + cmd.Name = "select_cat_gunaprod_MARDS" + cmd.Parameters = Array As Object(ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprod") - cmd.Initialize - cmd.Name = "select_cat_bandera_MARDS" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "bandera") + cmd.Initialize + cmd.Name = "select_cat_bandera_MARDS" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "bandera") - cmd.Initialize - cmd.Name = "select_cat_GIRO_MARDS" - reqManager.ExecuteQuery(cmd , 0, "giro") + cmd.Initialize + cmd.Name = "select_cat_GIRO_MARDS" + reqManager.ExecuteQuery(cmd , 0, "giro") ' cmd.Initialize ' cmd.Name = "select_resum_apk_INTMEX" ''' va el nombre de archivo de config ' cmd.Parameters = Array As Object(ALMACEN) ' reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done - cmd.Initialize - cmd.Name = "select_cat_paquetes_MARDS3" - cmd.Parameters = Array As Object(ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprodp") + cmd.Initialize + cmd.Name = "select_cat_paquetes_MARDS3" + cmd.Parameters = Array As Object(ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprodp") - cmd.Initialize - cmd.Name = "select_cat_paquetess_MARDS" - cmd.Parameters = Array As Object(ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprodp") + cmd.Initialize + cmd.Name = "select_cat_paquetess_MARDS" + cmd.Parameters = Array As Object(ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprodp") - cmd.Initialize - cmd.Name = "select_cat_detallepa_MARDS" - cmd.Parameters = Array As Object(ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "detallepaq") + cmd.Initialize + cmd.Name = "select_cat_detallepa_MARDS" + cmd.Parameters = Array As Object(ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "detallepaq") - cmd.Initialize - cmd.Name = "select_cat_clientes_MARDS" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "kmt_datos") + cmd.Initialize + cmd.Name = "select_cat_clientes_MARDS" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "kmt_datos") - cmd.Initialize - cmd.Name = "select_hist_datos_MARDS_2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_datos") + cmd.Initialize + cmd.Name = "select_hist_datos_MARDS_2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_datos") - cmd.Initialize - cmd.Name = "select_hist_promos_MARDS" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_promos") + cmd.Initialize + cmd.Name = "select_hist_promos_MARDS" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_promos") - cmd.Initialize - cmd.Name = "select_hist_cliente_promos_MARDS" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos") + cmd.Initialize + cmd.Name = "select_hist_cliente_promos_MARDS" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos") ' cmd.Initialize ' cmd.Name = "select_HIST_MARCAS_CUOTAS_INTMEX" ' cmd.Parameters = Array As Object( ALMACEN, e_ruta.text) ' reqManager.ExecuteQuery(cmd , 0, "HIST_MARCAS_CUOTAS") - If E_RUTA2.text <> "" Then - cmd.Initialize - cmd.Name = "select_cat_clientes_MARDS" - cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "kmt_datos") + If E_RUTA2.text <> "" Then + cmd.Initialize + cmd.Name = "select_cat_clientes_MARDS" + cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "kmt_datos") - cmd.Initialize - cmd.Name = "select_hist_datos_MARDS" - cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_datos") + cmd.Initialize + cmd.Name = "select_hist_datos_MARDS" + cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_datos") - cmd.Initialize - cmd.Name = "select_hist_promos_MARDS" - cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_promos") + cmd.Initialize + cmd.Name = "select_hist_promos_MARDS" + cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_promos") - cmd.Initialize - cmd.Name = "select_hist_cliente_promos_MARDS" - cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos") - End If + cmd.Initialize + cmd.Name = "select_hist_cliente_promos_MARDS" + cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos") + End If - cmd.Initialize - cmd.Name = "select_promo_comp_MARDS" - cmd.Parameters = Array As Object(ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos") + cmd.Initialize + cmd.Name = "select_promo_comp_MARDS" + cmd.Parameters = Array As Object(ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos") ' cmd.Initialize ' cmd.Name = "select_verificacion_INTMEX" ' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) ' reqManager.ExecuteQuery(cmd , 0, "cat_verificacion") - cmd.Initialize - cmd.Name = "select_fecha" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "fecha") + cmd.Initialize + cmd.Name = "select_fecha" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "fecha") - cmd.Initialize - cmd.Name = "select_folio_MARDS" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "folio") + cmd.Initialize + cmd.Name = "select_folio_MARDS" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "folio") - cmd.Initialize - cmd.Name = "select_marcas_rutas_MARDS" - cmd.Parameters = Array As Object( ALMACEN, e_ruta.text) - reqManager.ExecuteQuery(cmd , 0, "marcas_rutas") + cmd.Initialize + cmd.Name = "select_marcas_rutas_MARDS" + cmd.Parameters = Array As Object( ALMACEN, e_ruta.text) + reqManager.ExecuteQuery(cmd , 0, "marcas_rutas") ' cmd.Initialize ' cmd.Name = "select_CUEST_INTMEX" @@ -958,9 +957,9 @@ Sub cargar_Click ' LogColor($"HIST_AVANCE Ruta=|${e_ruta.text}|, almacen=|${ALMACEN}|"$, Colors.Red) ' reqManager.ExecuteQuery(cmd , 0, "hist_avance") - cargar.Visible = False - Subir.Visible = False - inv.Visible = False + cargar.Visible = False + Subir.Visible = False + inv.Visible = False If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) Else Log("XXXX") @@ -1778,6 +1777,7 @@ Sub connecta_Click Log(Starter.DBReqServer) connecta1 = connecta1 + 1 ' imei = p.GetDeviceId + IME.HideKeyboard imei = "" conn = "1" Dim cmd As DBCommand diff --git a/B4A/C_Subs.bas b/B4A/C_Subs.bas index d2e1b36..9d45150 100644 --- a/B4A/C_Subs.bas +++ b/B4A/C_Subs.bas @@ -371,16 +371,6 @@ Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ig elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) End Sub -'Regresa el usuario de la tabla USUARIOA si es que existe, si no existe, regresa "SinUsuario". -Sub buscaDBUsuario As String 'ignore - Private c As Cursor - Private usuario As String = "SinUsuario" - c=kmt.ExecQuery("select USUARIO from usuarioa") - c.Position=0 - If c.RowCount > 0 Then usuario = c.GetString("USUARIO") - Return usuario -End Sub - 'Regresa la fecha en el formato "MM/dd/yyyy" Sub traeFecha As String 'ignore DateTime.DateFormat = "MM/dd/yyyy" @@ -596,3 +586,22 @@ Sub mandaPendientes 'ignore End If ab.Close End Sub + +'Borra el pedido del cliente actual. +'Borra los registros de la tabla "pedido" y "pedido_cliente" +'Actualiza las tablas "cat_gunaprod" y "kmt_info". +Sub borraPedidoClienteActual As String + Private thisC As Cursor + thisC=Starter.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ") + If thisC.RowCount>0 Then + For i=0 To thisC.RowCount -1 + thisC.Position=i + Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(thisC.GetString("PE_CANT"),thisC.GetString("PE_PROID"))) + Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen, thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1)) + Next + End If + Starter.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)") + Starter.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)") + Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + Return 1 +End Sub \ No newline at end of file diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 0c81c0aff91a65641fd0421e650d491ff121dc48..634b3ad0f9113691685597bb78f543f2f88d84f5 100644 GIT binary patch delta 471 zcmX@n&Gfa8iIn8&{5Uz$MtE|7EIZ?; z$&EUuf**le41t&%h#7z($}ri%(O|M|E5~G?dJ7qlAlP&e18h3T%L+iuC^@-6N`CVH z#yZB&U?c0*wI}as5(4thH|a5c+5E3*JtNmwph_Je=KMBUp+;x&gk)*PuagZ_OeQN- S3r%)V;+#A|TYqwGt2Y36zF6`A delta 347 zcmey`$8@5biIn*_vfDQ#~_KkOhccf!Ga*-GSHx ziS3ER_CjKNBe8veY+oSu17d$9b^sDP5Q!axU`sIs13B_QtN_FzKn!zG=;X=lhZ(1GuD|Np-Nh%s$4qm$I+x-$OB zzrx>5R`4|5ERkc$$7R6?)seS3y6PtT0b|!@21b1OV+!FR4>Vf03i|3r@d*A1K zpZ9yu&%h(@>H-%ZtI=pS#A`GH-A{z$Gx&HdF>iHy-O;wjBYw%r&vDEr8RCpF-6Ca@ z2(<)8;0SdDDvYwO@4U8z4!y5n`e5kZFTU`xJ3lPg zf1mFB*x|l={{GOS{!(~2+mqMzP4BsXvQs`AeqbTDY(gBBI@DJAK}#JXi56*F{7!>b zo^(aouF^^zPu=;SDSw~(_p9QCn5aLy%17tPav3rXW}|aN!19@7%zE}<{)>EcLoZ#~ z=VU^Svg5k+u&RUU+Q~yc0c+&Zn(vZ&-rU7>Y0n1{xv(S&2Y9BtNj59$TpqJkE>uql zlIimdCbhj?!Ran4wNLX>q~?95>s0~`JR&tN*c<^YzdN%g%!$VPodJAQtBRLKxxI*I&!Q#XbS!d6{s#_TuE>8QoiJI{7dNlnS^uRE)a~5use^WgerA zPleUViBhP^#n5Am!=KHfa9=s04OPB8%#{l$@jh8i&njs@rJo8DN>LG^raXM=pVggK zLhCvFnBFUyTE5+a2_*BH zZ)py7r6Xu)(i*h(Z^Gjp0`fiEapRO3Z&aHRJCF?1D*|U`_`~)ROlP)ni3~T+Zbs>_ z0lt&@+-`=Or>vN^RZ`ZBhrujPj4JMYWnhUY8TyVTVQI*1N_ys~H<6o`M12Rc;PmXq z*)%O8!$B;Lh;V;mMUOob+eZyd#E$Vcl#K+@Fjl>?vNJ1MMwhTZB%*7q7^9)6DjKgq z;nzWyipL{vW9su}R7ufHjR$dW;#oa-!X7v#f+(LrOT5TcsU25bOXK&Yw<)XN?F@NV)<7a%j74g f-6TI2(V;Fu0t=;9^2Vqp`pi}*s4o7~)V_ZKZz_OZ delta 1294 zcmZWnZA?>V6u$3UG3&kkptsjesLskHA|e!`F%udfCfn5L8at+uYxd)5pZA>S zJnuQ@y`%Sd@;7eJ5d^_%7X*?1+tc>t7PZnc!C6H0EOahtXB6dx20|VopYSeWKcSHj zGV!p9H<|bW6OWj9)Wn-j{2=id;XP_dcz^yN95RUx6E_+(b{%7qjcWAs1cz&_4}r>31ZrPL)$TD#HEJig>UwK6mqLcP#sd2;pW0H_X2G@r zE1%)$*ymHr>R)A2xlxtnYRA47rVBpT1-M(G}GROiv45mQKRe>b*Mcz zt3pqx2&X${8_G0}Nt5#$z1fGIA}((C$HU{|l+oH0ehE*D#g@6TiqveAkKuIbLMRbM zj2PorpetGq$5s*1$e&NsM~!qRrKiQ$p1L60RF1Ekvy#tH_&EMr)~i;>zADof=1+KV zw^2sTWf>0|WPFq;V-jv8Ho0Fhy4F5*eXXqAY~3m2;m88SVqT~6tRA%) zFI$9IdONcHDM z8c@(W?8mn2b8gH-H~ozVLx$JEbP$zl3ZY>m^6PLAnM_r_mwf4E1?zGmRw6k}do61L yE&7^L@)AXJ1cxD5OhnH+XEo;4$?%TW;M_=+IPZz+%nF;?1H~iDXg=@gr%wR8=0rRI diff --git a/B4A/Mariana.b4a b/B4A/Mariana.b4a index e474db7..58312a7 100644 --- a/B4A/Mariana.b4a +++ b/B4A/Mariana.b4a @@ -712,7 +712,6 @@ Library22=sql Library23=togglelibrary Library24=xcustomlistview Library25=xui -Library26=kms_helpersubs Library3=baqrcode Library4=batteryprogressview Library5=bitmapcreator @@ -748,7 +747,7 @@ Module7=C_Mapas Module8=C_Nota Module9=C_NoVenta NumberOfFiles=347 -NumberOfLibraries=26 +NumberOfLibraries=25 NumberOfModules=26 Version=12.5 @EndOfDesignText@ diff --git a/B4A/Mariana.b4a.meta b/B4A/Mariana.b4a.meta index 4ddbf9e..50927d0 100644 --- a/B4A/Mariana.b4a.meta +++ b/B4A/Mariana.b4a.meta @@ -79,6 +79,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B_SERVER_Click,704,0,B4XMainPage,lv_server_ItemClick,719,0,B4XMainPage,CheckNotificationAccess,744,0,B4XMainPage,b_envioBD_Click,743,0,B4XMainPage,B4XPage_Appear,307,0,NotificationService,NotiMon_NotificationPosted,40,0,NotificationService,Service_Destroy,29,0,NotificationService,Service_Start,22,0,C_Principal,Subir_Click,633,0,Subs,traeMaxPromos,975,0,Subs,alcanzanLosVariablesParaPromo,965,0 +NavigationStack=C_Subs,Initialize,24,0,C_Subs,envioTest,61,0,Subs,centraProgressBar,642,0,Subs,actualizaProducto,778,0,Subs,guardaProductoSinGestion,777,0,Subs,borraPedidoClienteActual,1231,0,Subs,traeTotalesClienteActual,1227,0,C_Subs,centraProgressBar,366,0,C_Subs,borraPedidoClienteActual,601,0,C_Subs,mandaPendientes,581,0,C_Subs,dbInit,34,0 SelectedBuild=0 -VisibleModules=2,12,24,23,16,25,15,13,6,8 +VisibleModules=2,12,24,16,25 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 4e18434..6375edf 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -647,16 +647,6 @@ Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ig elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) End Sub -'Regresa el usuario de la tabla USUARIOA si es que existe, si no existe, regresa "SinUsuario". -Sub buscaDBUsuario As String 'ignore - Private c As Cursor - Private usuario As String = "SinUsuario" - c=kmt.ExecQuery("select USUARIO from usuarioa") - c.Position=0 - If c.RowCount > 0 Then usuario = c.GetString("USUARIO") - Return usuario -End Sub - 'Saca el usuario de la tabla USUARIOA Sub dameUsuarioDeDB As String 'ignore Private c As Cursor