Index: CHUI/PPS/TBX/LeanBatch.cls.xml =================================================================== diff -u -r2050 -r2100 --- CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 2050) +++ CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 2100) @@ -553,19 +553,18 @@ -PrintLijst:%List,Fase:BL.PPS.TBX.enu.PrintStatus +PrintLijst:%List 1 1 %String ##class(BL.PPS.TBX.enu.PrintFase).Voorbereiding()) Quit ##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten() If $LF(PrintLijst,"Y") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Geprint() If '$LF(PrintLijst,"Y") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Printen() ]]> -PrintLijst:%List,Fase:%String=1 +PrintLijst:%List 1 1 %String @@ -576,7 +575,6 @@ If (..TipOnPrintStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";T" If (..TipOnFreesStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";U" If (..SpoelSifonFreesStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";W" - if (..ProboxOverdoosEtiketStatus(PrintLijst,Fase) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";Y" Quit $Extract(Opties,2,$Length(Opties)) ]]> @@ -592,7 +590,7 @@ Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..HaluxBatch.GeefBatchID()) Set PrintLijst = PrintLijstInfo.PrintLijst Set Fase = PrintLijstInfo.Fase - Set TePrintenEtiketten = ..NogTePrintenEtiketten(PrintLijst,Fase) + Set TePrintenEtiketten = ..NogTePrintenEtiketten(PrintLijst) If BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Plus() { ; ProPlus - Keller Set Opties="Z;E;F;D;B;P;G;X;A"_ @@ -618,14 +616,15 @@ $select(..BevatSFS():";P",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).NietPrinten():";Y",1:"") + + } + } } - if BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox() { - set Opties = Opties_$select(..ProboxOverdoosEtiketStatus(PrintLijst,Fase)'=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten():";Y",1:"") - - } - For i=1:1:$L(Opties,";") { If $LF(PrintLijst,$Piece(Opties,";",i)) Set $Piece(Opties,";",i)="" If $Piece(Opties,";",i)="P"&($LF(PrintLijst,"PE")!$LF(PrintLijst,"PA")) Set $Piece(Opties,";",i)=""