From 9f19d26c77a8ed654445d0c08c6a66aaf9362a5b Mon Sep 17 00:00:00 2001 From: IsR0d Date: Fri, 2 May 2025 10:59:46 -0600 Subject: [PATCH] Version: 5.04.28 Ahora se envia la version de la aplicacion a TMP_DROP --- B4A/C_Principal.bas | 15 +++++++++------ B4A/Durakelo.b4a | 2 +- B4A/Durakelo.b4a.meta | 6 +++--- 3 files changed, 13 insertions(+), 10 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 30ebb6a..04e8391 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -430,6 +430,9 @@ Sub B4XPage_Appear B4XPage_Appear End If CallSub(Starter,"ENVIA_ULTIMA_GPS") + + + End Sub 'Sub Activity_Pause (UserClosed As Boolean) @@ -574,8 +577,8 @@ Sub Subir_Click reqManager.ExecuteQuery(cmd , 0, "inst_noventa") Dim cmd As DBCommand cmd.Initialize - cmd.Name ="insert_drop2_DUR" - cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT) + cmd.Name ="insert_drop3_DUR" + cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName) reqManager.ExecuteQuery(cmd , 0, "inst_noventa") d3.Close ' PEDIO_CLIENTE @@ -882,9 +885,9 @@ Sub cargar_Click Dim cmd As DBCommand cmd.Initialize - cmd.Name ="insert_drop2_DUR" + cmd.Name ="insert_drop3_DUR" 'cmd.Name = "UPDATE_DUR_ACTUALR2_GPS" - cmd.Parameters = Array As Object(usuario, e_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT) + cmd.Parameters = Array As Object(usuario, e_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName) ' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") xxxxxxxxxxxxxxx 'sql.UPDATE_DUR_ACTUALR2_GPS=UPDATE DURAKELO.CAT_RUTAS_REPARTO SET CAT_RR_MONTO_ACT = (?),CAT_RR_MRECH_ACT =(?),CAT_RR_VISIT_ACT =(?), CAT_RR_DEV_ACT =(?), CAT_RR_LAT_ACT =(?), CAT_RR_LONG_ACT =(?), CAT_RR_BAT_ACT =(?), CAT_RR_TT = (?), CAT_RR_MONTO = (?), CAT_RR_FECHA_ACT = SYSDATE WHERE CAT_RR_IDALMACEN = (?) And CAT_RR_RUTA = (?) @@ -2708,8 +2711,8 @@ Sub SUBIR_P_Click reqManager.ExecuteQuery(cmd , 0, "inst_noventa") Dim cmd As DBCommand cmd.Initialize - cmd.Name ="insert_drop2_DUR" - cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT) + cmd.Name ="insert_drop3_DUR" + cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName) reqManager.ExecuteQuery(cmd , 0, "inst_noventa") d3.Close cuantos_pedidosc = 0 diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 5e660c7..abb5bb8 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -1401,7 +1401,7 @@ Module9=C_NoVenta NumberOfFiles=671 NumberOfLibraries=31 NumberOfModules=24 -Version=12.8 +Version=13.1 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Durakelo diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 9f79c06..cced248 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -60,7 +60,7 @@ ModuleClosedNodes16= ModuleClosedNodes17= ModuleClosedNodes18= ModuleClosedNodes19= -ModuleClosedNodes2=2,5 +ModuleClosedNodes2= ModuleClosedNodes20= ModuleClosedNodes21= ModuleClosedNodes22=1 @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,traePromosVendidas,1006,0,C_Promos,muestraPromo,89,0,Subs,procesaPromocion,1023,6,Subs,revisaMaxPromosProdsFijosPorInventario2,1059,6,Subs,traeMaxPromos,975,6,C_Productos,B4XPage_Appear,161,6,Subs,revisaMaxPromosProdsFijosPorInventario,1098,2,Subs,revisaFechaVigenciaPromo,1503,0,C_Nota,borra_Click,188,0,C_Nota,Activity_KeyPress,176,0,C_Nota,Class_Globals,14,0 +NavigationStack=C_Productos,b_prodMenos_Click,614,0,Starter,Process_Globals,22,0,C_Principal,Class_Globals,154,1,C_Principal,B4XPage_Appear,427,0,B4XMainPage,B4XPage_Appear,208,0,B4XMainPage,Class_Globals,89,0,C_Principal,SUBIR_P_Click,2708,3,C_Principal,cargar_Click,883,3,C_Principal,Subir_Click,569,2,C_Nota,B4XPage_Appear,107,0,B4XMainPage,B4XPage_Created,142,0 SelectedBuild=0 -VisibleModules=2,10,4,19,9,11,23,12,8 +VisibleModules=2,10,4,19,9,11,23,12,8,22