Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml =================================================================== diff -u -r1133 -r1213 --- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 1133) +++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 1213) @@ -104,7 +104,6 @@ Set BerekeningsSpecificatie = ..Product.GeefBerekeningsSpecificatie() Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(BerekeningsSpecificatie.GeefHoeveelheid(),BerekeningsSpecificatie.GeefKlantID(),BerekeningsSpecificatie.GeefPersonality(),"Planning") - d:..Product.GeefVariant()="" WLIP^vhDBG(191,"PRNr: "_..Product.GeefPRNr()) Set KostItem = BerekeningService.BerekenKostItemsBoom(HalffabItemsBoom,BerekeningsSpecificatie) Do KostItem.Accept(##this) @@ -130,21 +129,18 @@ Set ProductieLijn = ..Batch.GeefLijn() } - // We weten op welke lijn er zal geproduceerd worden - If (ProductieLijn '= "") + // Ga specifiek na of de productielijn overeenkomt met de activiteit + // Lijnwerk voor lijn 1 mag niet toegekend worden als we de productielijn hebben kunnen bepalen en deze niet lijn één is. + // Indien de productielijn niet gekend is mag deze wel worden toegevoegd aan lijn 1. + If ((ActiviteitNummer = 8) && (ProductieLijn '= "") && (ProductieLijn '= ##class(APPS.Halux.common.enu.ProductieLijn).Een())) { - // Ga specifiek na of de productielijn overeenkomt met de activiteit - // Lijnwerk voor lijn 1 wordt enkel toegekend als de productielijn 1 is - If ((ActiviteitNummer = 8) && (ProductieLijn '= ##class(APPS.Halux.common.enu.ProductieLijn).Een())) - { - Set IsToeTeVoegen = 0 - } - // Lijnwerk voor lijn 2 wordt enkel toegekend als de productielijn 2 is - ElseIf ((ActiviteitNummer = 9) && (ProductieLijn '= ##class(APPS.Halux.common.enu.ProductieLijn).Twee())) - { - Set IsToeTeVoegen = 0 - } + Set IsToeTeVoegen = 0 } + // Lijnwerk voor lijn 2 mag niet worden toegekend als de productielijn niet gekend is of als de lijn verschillend is van lijn twee. + ElseIf ((ActiviteitNummer = 9) && ((ProductieLijn = "") || (ProductieLijn '= ##class(APPS.Halux.common.enu.ProductieLijn).Twee()))) + { + Set IsToeTeVoegen = 0 + } If (IsToeTeVoegen) {