Se agrega el envio de versión al tmp_drop_reparto y lo agrega al campo tmp_dpr_version

This commit is contained in:
jalarakmt
2026-04-08 12:44:50 -06:00
parent 1919f61049
commit 1b7b3bf665
2 changed files with 14 additions and 2 deletions

View File

@@ -811,8 +811,13 @@ Sub Subir_Click
' cmd.Name = "select_estatus_MAZAPA"
' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
' reqManager.ExecuteQuery(cmd , 0, "estatus")
End Sub
'Sub envioinfo
'
'
@@ -1986,6 +1991,13 @@ Sub connecta_Click
reqManager.ExecuteQuery(cmd , 0, "ruta")
ToastMessageShow("Validando Conexión." , True)
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",Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
End If
End Sub

View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=8,9
NavigationStack=C_Principal,connecta_Click,1976,0,C_Principal,B4XPage_CloseRequest,1958,0,C_Principal,b_venta_emp_Click,2406,0,C_deviceLinker,GetDeviceGUID,165,0,C_deviceLinker,JobDone,223,0,C_Principal,cargar_Click,1066,0,C_Principal,JobDone,1772,0,C_Principal,e_ruta_EnterPressed,2046,0,C_deviceLinker,verifyDevice,118,0,C_Principal,Linker_Response,2455,6
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,1984,0
SelectedBuild=0
VisibleModules=29,2,3,4,5,6,7,8,9,11,17,10
VisibleModules=29,2,3,4,5,6,7,8,9,11,17,1