cheveguerra/Profina-Reparto_V2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Profina-Reparto_V2.git synced 2026-04-20 22:29:23 +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
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_PROFINA_VN"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
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",Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub
@@ -1132,7 +1132,7 @@ Sub cargar_Click
Dim cmd As DBCommand
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")
reqManager.ExecuteCommand(cmd , "inst_drop")
' reqs.Add("inst_noventa")
@@ -1194,7 +1194,13 @@ Sub cargar_Click
' Next
' End If
' 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
' 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