Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml =================================================================== diff -u -r56917 -r56919 --- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml (.../DoosLade.cls.xml) (revision 56917) +++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml (.../DoosLade.cls.xml) (revision 56919) @@ -126,18 +126,21 @@ /* TO DO : MachineID moet afgeleid worden van werkpost (VerpakLookAhead) of bij herwerken via de login van de oude vHintra applicatie*/ Kill Params ; labels moeten in kapitalen - Set Params("BREEDTE")=..Breedte - Set Params("DIEPTE")=..Diepte - Set Params("HOOGTE")=..Hoogte + Set Params("BREEDTE") = ..Breedte + Set Params("DIEPTE") = ..Diepte + Set Params("HOOGTE") = ..Hoogte + Set Params("K1") = ..K1 + Set Params("K2") = ..K2 + Set Params("K3") = ..K3 Set PPSOutput=0 ; rechtdoor (bij een vorige machine kon men links, rechts of rechtdoor uitsluizen) - If ..DoosType=##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel() - { - Set Status=OptiBox.OneBox(..#OptiGroep,..#OptiIDBodemDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID) + If (..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).BodemDeksel()) { + Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDBodemDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID) + } ElseIf (..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack()) { + // Is FlatpackProbox + Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDFlatpack, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID) + } Else { + Set Status = OptiBox.OneBox(..#OptiGroep, ..#OptiIDDoosMetDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID) } - else - { - Set Status=OptiBox.OneBox(..#OptiGroep,..#OptiIDDoosMetDeksel, .Params, Qty, BaseRef, ProductID, .CallBack, .SnijPrioriteit, PPSOutput, .MachineID) - } ]]>