cheveguerra/Profina-Reparto_V2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Profina-Reparto_V2.git synced 2026-04-20 14:19:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se actualiza la versión 6.04.01

Browse Source 
Se cambia el cargar a carga
se cambia el l_ruta por e_ruta

y se agrega el deshabilitar validaciones con el KMTP
This commit is contained in:
jalarakmt
2026-04-14 15:34:19 -06:00
parent 0b4e74c823
commit 98acc3e702
4 changed files with 23 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Principal.bas
View File

@@ -1197,7 +1197,7 @@ Sub cargar_Click
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)
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
@@ -1992,10 +1992,12 @@ Sub connecta_Click
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
If e_ruta.Text = "KMTP" Then Subs.deshabilitaValidaciones
' cmd.Name = "selectAgrupadorAlmacen"
' cmd.Parameters = Array As Object(ALMACEN)
' Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
' reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
End If
End Sub