cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version: 5.04.28

Browse Source 
Ahora se envia la version de la aplicacion a TMP_DROP
This commit is contained in:
IsR0d
2025-05-02 10:59:46 -06:00
parent 44c02757dc
commit 9f19d26c77
3 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Principal.bas
View File

@@ -430,6 +430,9 @@ Sub B4XPage_Appear
B4XPage_Appear B4XPage_Appear
End If End If
CallSub(Starter,"ENVIA_ULTIMA_GPS") CallSub(Starter,"ENVIA_ULTIMA_GPS")
End Sub End Sub
'Sub Activity_Pause (UserClosed As Boolean) 'Sub Activity_Pause (UserClosed As Boolean)
@@ -574,8 +577,8 @@ Sub Subir_Click
reqManager.ExecuteQuery(cmd , 0, "inst_noventa") reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name ="insert_drop2_DUR" 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) 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") reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
d3.Close d3.Close
' PEDIO_CLIENTE ' PEDIO_CLIENTE
@@ -882,9 +885,9 @@ Sub cargar_Click
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name ="insert_drop2_DUR" cmd.Name ="insert_drop3_DUR"
'cmd.Name = "UPDATE_DUR_ACTUALR2_GPS" '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 ' 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 = (?) '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") reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name ="insert_drop2_DUR" 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) 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") reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
d3.Close d3.Close
cuantos_pedidosc = 0 cuantos_pedidosc = 0

2
B4A/Durakelo.b4a
View File

@@ -1401,7 +1401,7 @@ Module9=C_NoVenta
NumberOfFiles=671 NumberOfFiles=671
NumberOfLibraries=31 NumberOfLibraries=31
NumberOfModules=24 NumberOfModules=24
Version=12.8 Version=13.1
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo #ApplicationLabel: Durakelo

6
B4A/Durakelo.b4a.meta
View File

@@ -60,7 +60,7 @@ ModuleClosedNodes16=
ModuleClosedNodes17= ModuleClosedNodes17=
ModuleClosedNodes18= ModuleClosedNodes18=
ModuleClosedNodes19= ModuleClosedNodes19=
ModuleClosedNodes2=2,5 ModuleClosedNodes2=
ModuleClosedNodes20= ModuleClosedNodes20=
ModuleClosedNodes21= ModuleClosedNodes21=
ModuleClosedNodes22=1 ModuleClosedNodes22=1
@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,10,4,19,9,11,23,12,8 VisibleModules=2,10,4,19,9,11,23,12,8,22