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

Se agrega el envió de versión

Browse Source
This commit is contained in:
jalarakmt
2026-04-13 10:03:40 -06:00
parent 890c135f48
commit 0b4e74c823
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/C_Principal.bas
View File

@@ -1088,8 +1088,8 @@ Sub envioinfo
' c.Close ' c.Close
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_drop_rep_PROFINA_VN" cmd.Name = "insert_drop_rep_PROFINA_VN2"
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") reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub End Sub
@@ -1132,7 +1132,7 @@ Sub cargar_Click
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_drop_rep_PROFINA_VN" cmd.Name = "insert_drop_rep_PROFINA_VN2"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA") cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA")
reqManager.ExecuteCommand(cmd , "inst_drop") reqManager.ExecuteCommand(cmd , "inst_drop")
' reqs.Add("inst_noventa") ' reqs.Add("inst_noventa")
@@ -1194,7 +1194,13 @@ Sub cargar_Click
' Next ' Next
' End If ' End If
' c.Close ' c.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_PROFINA_VN2"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGAR",Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
' NOVENTA ' NOVENTA
' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") ' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
' If c.RowCount > 0 Then ' If c.RowCount > 0 Then

2
B4A/Profina_reparto.b4a.meta
View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=B4XMainPage,B4XPage_Created,1395,3,C_Principal,StartPrinter,2835,0,C_Principal,Subir_Click,812,0,C_Cliente,Guardado,810,6,B4XMainPage,Class_Globals,1208,0,Starter,Process_Globals,40,0,Starter,ENVIA_ULTIMA_GPS,123,0,C_Principal,e_ruta_EnterPressed,2012,0,C_Principal,cargar_Click,1130,0,C_Principal,envioinfo,864,2 NavigationStack=C_Principal,StartPrinter,2835,0,C_Cliente,Guardado,810,6,B4XMainPage,Class_Globals,1208,0,Starter,Process_Globals,40,0,Starter,ENVIA_ULTIMA_GPS,123,0,appUpdater,Service_Start,126,0,C_Principal,cargar_Click,1194,0,C_Principal,e_ruta_EnterPressed,2018,0,C_Principal,Subir_Click,812,0,C_Principal,envioinfo,1085,2
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10,16 VisibleModules=1,2,3,4,5,6,7,8,9,10,16