Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml =================================================================== diff -u -r57446 -r57548 --- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml (.../ConvertTBX.cls.xml) (revision 57446) +++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml (.../ConvertTBX.cls.xml) (revision 57548) @@ -13,7 +13,7 @@ Set ..VerpakCode=..AXKenmerken.VerpakkingType Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3) - /// SPECIAAL (Front only, te kleine of te gorte breedte, afgerond front voor klant Dibo + /// SPECIAAL (Front only, te kleine of te grote breedte, afgerond front voor klant Dibo Set ..SpeciaalCode=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..PRNr,"ODSP")) Set:..SpeciaalCode="V" ..SpeciaalCode="" If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1") @@ -76,11 +76,11 @@ 5) + Quit:..SpoelbakCode&&(..ProductieOrderLijn.Aantal>5) Quit:..SpeciaalCode'="" Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 4") Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode - Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","TBX",Selector,,1) + Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","TBX",Selector,,2) ; leading and pitched ]]>