Index: APPS/Verpakking/DoosAanvuller.cls.xml =================================================================== diff -u -r69601 -r69606 --- APPS/Verpakking/DoosAanvuller.cls.xml (.../DoosAanvuller.cls.xml) (revision 69601) +++ APPS/Verpakking/DoosAanvuller.cls.xml (.../DoosAanvuller.cls.xml) (revision 69606) @@ -26,7 +26,7 @@ } ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1Flatpack")) { Do ..VulAanV1Flatpack(.BasisDoos, .Params) } ElseIf (BasisDoos.%Extends("APPS.Verpakking.ComplexeScheiding")) { - Do ..VulAanComplexeScheiding(.BasisDoos, .Params, ProductGroep) + Do ..VulAanComplexeScheiding(.BasisDoos, .Params, ProductGroep, BoxDataID) } ElseIf (BasisDoos.%Extends("APPS.Verpakking.Vulstuk")) { Do ..VulAanVulstuk(.BasisDoos, BoxDataID) } ElseIf (BasisDoos.%Extends("APPS.Verpakking.VulstukKlein")) { @@ -287,7 +287,7 @@ - + 1 4:4,1:Params("BKQTY")) - }/* ElseIf (ProductGroep = "OL") { - Set BasisDoos.RecipeName = "OL COMPLEX SEPARATOR" //Meta 483 - Gebruikt deze wel meer dan 1 flap? Voor de rest is deze wel al bruikbaar? + } ElseIf (ProductGroep = "OL") { + Set BasisDoos.RecipeName = "OL COMPLEX SEPARATOR" //Meta 483 PRNr 881438 Set BasisDoos.LogoPrint = "ORGALUX WHITE" - ;Set BasisDoos.Depth = ? - ;Set BasisDoos.Height = ? - ;Set BasisDoos.Width = ? - }*/ + + If (##class(DS.Prod.OptiBox.BoxData).%ExistsId(BoxDataID)) { + Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID) + } Else { + #dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor boxdataID: '"_BoxDataID_"'.") + } + + Set BasisDoos.Depth = BoxData.DiepteExec + Set BasisDoos.Height = BoxData.HoogteExec + Set BasisDoos.Width = BoxData.BreedteExec + + Set BasisDoos.Fold3 = $Select($D(BoxData.Params.GetAt("Fold3")): BoxData.Params.GetAt("Fold3").WaardeExec, 1: BasisDoos.Fold3) + Set BasisDoos.Fold4 = $Select($D(BoxData.Params.GetAt("Fold4")): BoxData.Params.GetAt("Fold4").WaardeExec, 1: BasisDoos.Fold4) + Set BasisDoos.Fold5 = $Select($D(BoxData.Params.GetAt("Fold5")): BoxData.Params.GetAt("Fold5").WaardeExec, 1: BasisDoos.Fold5) + Set BasisDoos.NBR = $Select($D(BoxData.Params.GetAt("NBR")): BoxData.Params.GetAt("NBR").WaardeExec, 1: BasisDoos.NBR) + } Set Param = ##class(APPS.Verpakking.Doos.Param).%New() Set Param.Key = $Select(..MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Panotec():"2", 1: "Fold3") //Fold3 Afstand van tweede vouw tot derde vouw, indien nul dan afsnijden Index: APPS/Verpakking/DoosFactory.cls.xml =================================================================== diff -u -r69601 -r69606 --- APPS/Verpakking/DoosFactory.cls.xml (.../DoosFactory.cls.xml) (revision 69601) +++ APPS/Verpakking/DoosFactory.cls.xml (.../DoosFactory.cls.xml) (revision 69606) @@ -32,9 +32,7 @@ ElseIf (ReceptNaam = "FILLER") { Set Doos = ##class(APPS.Verpakking.Vulstuk).%New() } ElseIf (ReceptNaam = "FILLER SMALL") { Set Doos = ##class(APPS.Verpakking.VulstukKlein).%New() } ElseIf (ReceptNaam = "WRAPAROUND BUFFER") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoosBuffer).%New() } - /*ElseIf (ReceptNaam = "?????") { - Set Doos = ##class(APPS.Verpakking.ComplexeScheiding).%New() - }*/ + ElseIf (ReceptNaam = "COMPLEX SEPARATOR") { Set Doos = ##class(APPS.Verpakking.ComplexeScheiding).%New() } } ElseIf (ProductGroep = "TAOR indelingen") { If (ReceptNaam = "Mat groep") { Set Doos = ##class(APPS.Verpakking.VouwErrondDoos).%New() } Index: APPS/Verpakking/ComplexeScheiding.cls.xml =================================================================== diff -u -r68515 -r69606 --- APPS/Verpakking/ComplexeScheiding.cls.xml (.../ComplexeScheiding.cls.xml) (revision 68515) +++ APPS/Verpakking/ComplexeScheiding.cls.xml (.../ComplexeScheiding.cls.xml) (revision 69606) @@ -21,7 +21,7 @@ %Decimal -100 +50