Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r2805 -r2807 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 2805) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 2807) @@ -1524,6 +1524,7 @@ . Quit:'$D(^KTO($$$LevHalux,TOENr)) . Set ASM=$S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat . Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking + . ; indien voorwaarden wijzigen ook aanpassen in CHUI.PPS.TBX.LeanBatch : chkCommissie . If (VPK?1(1"A",1"B",1"X",1"Y"))&(ASM'=0) Set AantASM(TOENr)=$G(AantASM(TOENr))+Aantal ; ASM afzonderlijk : tellen indien verticale stapeling (i.e. VHoss of Probox) . If (VPK?1(1"O",1"B",1"X")) Set AantOnderdelen(TOENr)=$G(AantOnderdelen(TOENr))+Aantal ; Losse onderdelen : tellen indien bulk MET onderdelen Set TOENr=""