mirror of
https://github.com/KeymonSoft/Mariana.git
synced 2026-04-20 14:19:21 +00:00
23/10/23 - Version en Principal y Cliente
- Agregamos la version de la aplicación en la pantalla principal y en la del cliente
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user