cheveguerra/Mariana-Reparto-V5
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana-Reparto-V5.git synced 2026-04-17 12:56:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrega el llamado de la funcion FN_FECHA_REPARTO

Browse Source 
Envio de versión
This commit is contained in:
jalarakmt
2026-04-13 18:16:01 -06:00
parent e8025c94bc
commit 9010bc9b33
3 changed files with 27 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
B4A/C_Principal.bas
View File

@@ -802,7 +802,7 @@ Sub Subir_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_mards"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO", Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
@@ -1151,8 +1151,8 @@ Sub cargar____Click
usuario = c.GetString("USUARIO")
cmd.Initialize
cmd.Name = "select_punteo_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
cmd.Name = "select_punteo_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
Log($"Pedimos Punteo"$)
reqs.Add("punteo")
@@ -1168,15 +1168,15 @@ Sub cargar____Click
cmd.Initialize
cmd.Name = "select_cliente_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
cmd.Name = "select_cliente_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
Log($"Pedimos kmt_datos"$)
reqs.Add("kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
cmd.Name = "select_ventad_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
Log($"Pedimos hist_datos"$)
reqs.Add("hist_datos")
@@ -1200,14 +1200,14 @@ Sub cargar____Click
ALMACEN = "33"
cargo = 2
cmd.Initialize
cmd.Name = "select_punteo_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
cmd.Name = "select_punteo_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
reqs.Add("punteo")
cmd.Initialize
cmd.Name = "select_almacen_mards_re_REPG"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
cmd.Name = "select_almacen_mards_re_REPG4"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
reqs.Add("gunaprod")
@@ -1218,8 +1218,8 @@ Sub cargar____Click
reqs.Add("kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
cmd.Name = "select_ventad_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
reqs.Add("hist_datos")
' reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
@@ -1788,7 +1788,7 @@ Sub JobDone(Job As HttpJob)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_mards"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA")
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA", Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
' reqs.Add("inst_noventa")
@@ -1821,8 +1821,8 @@ Sub JobDone(Job As HttpJob)
usuario = c.GetString("USUARIO")
cmd.Initialize
cmd.Name = "select_punteo_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
cmd.Name = "select_punteo_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
Log($"Pedimos Punteo"$)
reqs.Add("punteo")
@@ -1838,15 +1838,15 @@ Sub JobDone(Job As HttpJob)
cmd.Initialize
cmd.Name = "select_cliente_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
cmd.Name = "select_cliente_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
Log($"Pedimos kmt_datos"$)
reqs.Add("kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_mards_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
cmd.Name = "select_ventad_mards_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
Log($"Pedimos hist_datos"$)
reqs.Add("hist_datos")
@@ -2038,6 +2038,11 @@ Sub e_ruta_EnterPressed
If e_ruta.Text = "FIN DIA" Then
RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If RES = DialogResponse.POSITIVE Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_mards"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "FIN DIA", Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
Starter.skmt.ExecNonQuery("delete from REPARTO_GEO")

2
B4A/Mariana_Reparto.b4a
View File

@@ -218,7 +218,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: MARIANA Reparto
#VersionCode: 1
#VersionName: 6.03.06
#VersionName: 6.04.01
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Mariana_Reparto.b4a.meta
View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=8,9
NavigationStack=C_deviceLinker,verifyDevice,118,0,B4XMainPage,B4XPage_Created,208,0,appUpdater,Service_Start,134,0,C_Principal,Linker_Response,2407,6,Starter,ENVIA_ULTIMA_GPS,95,0,B4XMainPage,B_PC_ENV_Click,776,0,B4XMainPage,enviarmonto,653,0,B4XMainPage,b_envioBD_Click,561,0,C_Principal,Subir_Click,809,0,C_Principal,connecta_Click,1980,2
NavigationStack=B4XMainPage,enviarmonto,653,0,B4XMainPage,b_envioBD_Click,561,0,C_Principal,cargar_Click,1027,0,C_Principal,connecta_LongClick,2011,0,C_Principal,Class_Globals,0,0,C_Principal,Linker_Response,2449,0,C_Principal,connecta_Click,1989,2,C_Principal,JobDone,1784,5,C_Principal,cargar____Click,1119,6,C_Principal,Subir_Click,795,2,C_Principal,e_ruta_EnterPressed,2037,2
SelectedBuild=0
VisibleModules=29,2,3,4,5,6,7,8,9,11,17