Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv00.cls.xml =================================================================== diff -u -r1074 -r1188 --- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv00.cls.xml (.../UTKenmerkenv00.cls.xml) (revision 1074) +++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv00.cls.xml (.../UTKenmerkenv00.cls.xml) (revision 1188) @@ -1,6 +1,8 @@ + +. persistent 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv01.cls.xml =================================================================== diff -u -r1074 -r1188 --- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv01.cls.xml (.../UTKenmerkenv01.cls.xml) (revision 1074) +++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv01.cls.xml (.../UTKenmerkenv01.cls.xml) (revision 1188) @@ -1,6 +1,8 @@ + +. persistent 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv03.cls.xml =================================================================== diff -u -r1074 -r1188 --- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv03.cls.xml (.../UTKenmerkenv03.cls.xml) (revision 1074) +++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv03.cls.xml (.../UTKenmerkenv03.cls.xml) (revision 1188) @@ -1,6 +1,8 @@ + +. persistent 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken Index: DOM/PM/enu/LinkType.cls.xml =================================================================== diff -u -r1075 -r1188 --- DOM/PM/enu/LinkType.cls.xml (.../LinkType.cls.xml) (revision 1075) +++ DOM/PM/enu/LinkType.cls.xml (.../LinkType.cls.xml) (revision 1188) @@ -12,49 +12,49 @@ 1 -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.LinkType 1 -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.LinkType 1 -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.LinkType 1 -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.LinkType 1 -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.LinkType 1 -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.LinkType 1 -DOM.PM.enu.TBXVerpakking +DOM.PM.enu.LinkType Index: cw.mac.rou =================================================================== diff -u -r1148 -r1188 --- cw.mac.rou (.../cw.mac.rou) (revision 1148) +++ cw.mac.rou (.../cw.mac.rou) (revision 1188) @@ -6,9 +6,18 @@ #Include %CHUI.System ; HeeftUitzondering(KLNr,PRNr,Niveau,SoSa) - New HeeftUitzondering - - Quit HeeftUitzondering + New HeeftUitzondering,KKey,HoofdGroep,Groep,SubGroep + If $G(NoSa)="" Set NoSa="N" + If NoSa'="N",NoSa'="S" Quit 0 + Set KKey=$$KKEY^KLASS(PRNr) + Set HoofdGroep=$$GETSORT^KLASS(KKey,1) + Set:Niveau>1 Groep=$$GETSORT^KLASS(KKey,2) + Set:Niveau>2 SubGroep=$$GETSORT^KLASS(KKey,3) + Set:Niveau=1 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep)) + Set:Niveau=2 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep)) + Set:Niveau=3 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep,SubGroep)) + Set:Niveau=4 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep,SubGroep,PRNr)) + Quit +$G(HeeftUitzondering) ; ok Set cw(1)="\Test cw" Index: vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv02.cls.xml =================================================================== diff -u -r1074 -r1188 --- vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv02.cls.xml (.../UTKenmerkenv02.cls.xml) (revision 1074) +++ vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv02.cls.xml (.../UTKenmerkenv02.cls.xml) (revision 1188) @@ -1,6 +1,8 @@ + +. persistent 1 vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv01 Index: BL/PPS/TBX/DocGlasSnijlijst.cls.xml =================================================================== diff -u -r1133 -r1188 --- BL/PPS/TBX/DocGlasSnijlijst.cls.xml (.../DocGlasSnijlijst.cls.xml) (revision 1133) +++ BL/PPS/TBX/DocGlasSnijlijst.cls.xml (.../DocGlasSnijlijst.cls.xml) (revision 1188) @@ -101,7 +101,7 @@ Set Lengte=$P($G(^PRBS("BS",TandemBox.GeefPRNr(),"PRFRGLASSTRK.001","D")),"\",1) ; D-subnode : Dimensie-gegevens Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(TandemBox.GeefPRNr()_"||PRFRGLASSTRK.001") Set GlasDimBrut1=$P($G(^PRBS("BS",TandemBox.GeefPRNr(),"PRFRGLASSTRK.001","D")),"\",2) ; D-subnode : Dimensie-gegevens - Set AantalPickingen1= ##class(BL.PPS.TBX.DocsV1).TelMagazijnStuks(TeSnijdenProduct.GeefPRNr(),AantalSnijdingen1,1,GlasDimBrut1) + Set AantalPickingen1= ##class(BL.PPS.TBX.DocsV1).TelMagazijnStuks(Bouwsteen.KindProduct.ProductNr,AantalSnijdingen1,1,GlasDimBrut1) } Else { Set Lengte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",TandemBox.GeefPRNr(),"IB"))-118 @@ -130,11 +130,12 @@ // Zijwand glas snijden, tenzij exact (BOXCOVER) (Meer algemeen uitgedrukt : Zijwand inschuifelement inkorten) If (TandemBox.BevatInTeKortenZijkantGlas()) { + Set AantalSnijdingen2=AantalProducten*2 Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(TandemBox.GeefPRNr()_"||PRBXKGSTRK.001") If ($IsObject(Bouwsteen)) { Set Lengte = $P($G(^PRBS("BS",TandemBox.GeefPRNr(),"PRBXKGSTRK.001","D")),"\",1) ; D-subnode : Dimensie-gegevens Set GlasDimBrut2 = $P($G(^PRBS("BS",TandemBox.GeefPRNr(),"PRBXKGSTRK.001","D")),"\",2) ; D-subnode : Dimensie-gegevens - Set AantalPickingen2 = ##class(BL.PPS.TBX.DocsV1).TelMagazijnStuks(KPRNr2,AantalSnijdingen2,1,GlasDimBrut2) + Set AantalPickingen2 = ##class(BL.PPS.TBX.DocsV1).TelMagazijnStuks(Bouwsteen.KindProduct.ProductNr,AantalSnijdingen2,1,GlasDimBrut2) } Else { Set Lengte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",TandemBox.GeefPRNr(),"LD"))-60 @@ -143,7 +144,6 @@ } Set TeSnijdenProduct = ..ProductAPI.GeefProduct(Bouwsteen.KindProduct.ProductNr) - Set AantalSnijdingen2=AantalProducten*2 Set GlasSnijInfo = ##class(BL.PPS.TBX.impl.GlasSnijInfo).%New()