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 0c81c0a..634b3ad 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 74930de..58786da 100644 Binary files a/B4A/Files/principal.bal and b/B4A/Files/principal.bal differ 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