mirror of
https://github.com/KeymonSoft/Mariana.git
synced 2026-04-17 21:06:16 +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:
@@ -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
|
||||
|
||||
@@ -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")
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
Binary file not shown.
Binary file not shown.
@@ -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@
|
||||
|
||||
@@ -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
|
||||
|
||||
10
B4A/Subs.bas
10
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
|
||||
|
||||
Reference in New Issue
Block a user