cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-17 21:06:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se agregó la version de la aplicacion a TMP_DROP

Browse Source 
- Se cambió el query de conexión para poder deshabilitar las versiones viejas.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-28 12:39:53 -06:00
parent c8af852285
commit 8aea8fc70c
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Principal.bas
View File

@@ -737,8 +737,8 @@ Sub Subir_Click
sTime=DateTime.Time(DateTime.Now)
Dim cmd As DBCommand
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,"ENVIO",ALMACEN)
cmd.Name ="insert_drop_MARDS_3" 'Se cambio el query de 2 a 3 para agregar la version de la app al tmp_drop
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,"ENVIO",ALMACEN,Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_noventa")
img2.Visible =True
PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
@@ -843,8 +843,8 @@ Sub cargar_Click
' 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)
cmd.Name ="insert_drop_MARDS_3" 'Se cambio el query de 2 a 3 para agregar la version de la app al tmp_drop
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,Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_noventa")
cmd.Initialize
@@ -1840,7 +1840,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_MARDS_6"
cmd.Name = "select_ruta_MARDS_PV" 'Se cambio de "select_ruta_MARDS_6" a "PV", para poder deshabilitar el query de conexion de variosnes viejas!
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "ruta")

BIN
B4A/Files/login.bal
View File

Binary file not shown.

4
B4A/Mariana.b4a
View File

@@ -1088,12 +1088,12 @@ Module9=C_NoVenta
NumberOfFiles=511
NumberOfLibraries=35
NumberOfModules=27
Version=12.5
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Mariana
#VersionCode: 1
#VersionName: 4.04.24
#VersionName: 4.05.27
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Mariana.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=B4XMainPage,b_importarBD_Click,790,0,B4XMainPage,CheckNotificationAccess,779,0,B4XMainPage,b_envioBD_Click,758,6,C_Principal,Class_Globals,219,0,C_Principal,JobDone,990,0,C_Principal,cargar_Click,989,0,Diseñador Visual,proditem.bal,-100,1,Diseñador Visual,login.bal,-100,1,Diseñador Visual,clientes.bal,-100,6,C_Clientes,B4XPage_Appear,89,3
NavigationStack=C_Principal,Class_Globals,219,0,C_Principal,JobDone,990,0,C_Clientes,B4XPage_Appear,89,3,Subs,guardaAppInfo,1304,0,C_Principal,Subir_Click,733,0,C_Principal,connecta_Click,1819,6,C_Principal,cargar_Click,829,6,B4XMainPage,Class_Globals,72,0,Visual Designer,login.bal,-100,6,B4XMainPage,B4XPage_Created,218,0
SelectedBuild=0
VisibleModules=2,12,4,5,6,26,10,16