diff --git a/B4A/C_picking.bas b/B4A/C_picking.bas index fb2e5fc..22d65cd 100644 --- a/B4A/C_picking.bas +++ b/B4A/C_picking.bas @@ -140,7 +140,7 @@ Sub B4XPage_Appear End If c.Close ' -' p_producto.Visible = True 'PARA PRUEBAS + p_producto.Visible = True 'PARA PRUEBAS End Sub diff --git a/B4A/C_seleccion.bas b/B4A/C_seleccion.bas index d65e0cf..28f5e43 100644 --- a/B4A/C_seleccion.bas +++ b/B4A/C_seleccion.bas @@ -333,8 +333,11 @@ 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 + Log((almacen& ", "& folioactual& ", "&fechabusqueda& ", "&almacen)) Log(almacen) If almacen = 81 Then + + Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_productos_guna_picking_BAT" diff --git a/B4A/guna_picking.b4a.meta b/B4A/guna_picking.b4a.meta index 5ccbac3..c756526 100644 --- a/B4A/guna_picking.b4a.meta +++ b/B4A/guna_picking.b4a.meta @@ -28,6 +28,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_seleccion,Class_Globals,0,0,C_seleccion,b_cargar_Click,270,0,C_almacen,lb_folio_Click,65,0,C_almacen,B4XPage_Appear,40,0,Starter,Process_Globals,11,2,C_picking,B4XPage_Appear,135,2,C_seleccion,lb_folio_Click,326,6,C_picking,btnFlash2_Click,255,0,C_picking,btnFlash_Click,240,3,C_picking,b_guardapicking_Click,421,3,C_terminar,B4XPage_Appear,64,0 +NavigationStack=Starter,Process_Globals,11,2,C_picking,btnFlash2_Click,255,0,C_picking,btnFlash_Click,240,3,C_picking,b_guardapicking_Click,421,3,C_seleccion,Class_Globals,0,0,C_seleccion,lb_folio_Click,308,6,C_picking,Class_Globals,0,0,C_picking,B4XPage_Appear,129,2,C_terminar,B4XPage_Appear,62,0,C_terminar,b_enviar_Click,142,0,C_terminar,CreateListItem,116,0 SelectedBuild=0 VisibleModules=1,2,3,4,5,6,7,8,9