cheveguerra/Guna_Picking
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Picking.git synced 2026-04-21 13:19:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

5.08.12

Browse Source
This commit is contained in:
Javier
2025-09-01 13:29:10 -06:00
parent 46bd04a92f
commit beceec8c98
7 changed files with 50 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
B4A/C_seleccion.bas
View File

@@ -333,18 +333,38 @@ Private Sub lb_folio_Click
Msgbox2Async("Estas seguro de empezar a pickear la ruta : "& folioactual &" del almacen: "& B4XPages.MainPage.almacen.almacenselec,"Atención","Si","","No",Null, False)
Wait For Msgbox_Result (result As Int)
If result=DialogResponse.POSITIVE Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_productos_guna_picking"
cmd.Parameters = Array As Object(almacen, folioactual,fechabusqueda,almacen)
reqManager.ExecuteQuery(cmd , 0, "detallefolio")
trabajo1 = trabajo1 + 1
Log(almacen)
If almacen = 89 Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_productos_guna_picking_BAT"
cmd.Parameters = Array As Object(almacen, folioactual,fechabusqueda,almacen)
reqManager.ExecuteQuery(cmd , 0, "detallefolio")
trabajo1 = trabajo1 + 1
cmd.Initialize
cmd.Name = "select_costo_tot_GUNA_BAT"
cmd.Parameters = Array As Object(almacen, folioactual,fechabusqueda,almacen)
reqManager.ExecuteQuery(cmd , 0, "costo")
trabajo1 = trabajo1 +1
Else
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_productos_guna_picking"
cmd.Parameters = Array As Object(almacen, folioactual,fechabusqueda,almacen)
reqManager.ExecuteQuery(cmd , 0, "detallefolio")
trabajo1 = trabajo1 + 1
cmd.Initialize
cmd.Name = "select_costo_tot_GUNA"
cmd.Parameters = Array As Object(almacen, folioactual,fechabusqueda,almacen)
reqManager.ExecuteQuery(cmd , 0, "costo")
trabajo1 = trabajo1 +1
End If
cmd.Initialize
cmd.Name = "select_costo_tot_GUNA"
cmd.Parameters = Array As Object(almacen, folioactual,fechabusqueda,almacen)
reqManager.ExecuteQuery(cmd , 0, "costo")
trabajo1 = trabajo1 +1
ProgressDialogShow ("Cargando")
Starter.skmt.ExecNonQuery("delete from CUENTAA")