Index: CHUI/PPS/TBX/LeanBatch.cls.xml =================================================================== diff -u -r2742 -r2807 --- CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 2742) +++ CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 2807) @@ -439,7 +439,9 @@ { Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")) ; Antislipmat Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking - Set BevatCommissie = (((VPK="A")!(VPK="B"))&(ASM'=0)) || ((VPK="O")!(VPK="B")) + + ; indien voorwaarden wijzigen ook aanpassen in BL.PPS.TBX.DocsV1 : EtikettenCommissie + Set BevatCommissie = (((VPK="A")!(VPK="B")!(VPK="X")!(VPK="Y"))&(ASM'=0)) || ((VPK="O")!(VPK="B")!(VPK="X")) } } } @@ -606,7 +608,7 @@ } Else { Set Opties="Z;E;F;O;R;D;M;L;K;X;I"_ - $select(..ExtraComEtiket():";C",1:"")_ + $select(..ChkCommissie():";C",1:"")_ $select(..ChkBodems():";B",1:"")_";G" } } @@ -617,7 +619,7 @@ else { set Opties="Z;E;L;F;O;M;R;I;G"_ $select(..BevatSFS():";P",1:"")_ - $select(..ExtraComEtiket():";C",1:"")_ + $select(..ChkCommissie():";C",1:"")_ $select(..ChkBodems():";B",1:"") if BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox() { set Opties = Opties_$select(..ProboxOverdoosEtiketStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).Printen():";Y",1:"") @@ -632,13 +634,6 @@ ]]> - -1 -1 - - - TOENr %String