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=""
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