Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r2847 -r2899 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 2847) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 2899) @@ -605,7 +605,6 @@ Set pxLabel.ZW=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ZW")) ; Zijwandhoogte 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 - Set RSTL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RSTL")) ; Rug verlaagd Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(oQ.BatchID) @@ -662,6 +661,8 @@ Set pxLabel.RWHInfo = "RWH: -- -- --" } + Set pxLabel.BodemDiepte = Lade.GeefBodemDiepte() + ; opmerking Set Opmerking="" Set:PlaatMat?1(1"HZ",1"HA",1"KS",1"KZ",1"KA") Opmerking=Opmerking_", "_$Case(PlaatMat,"HZ":"Verzaagd","HA":"Verzaagd","KS":"Klant",:"Klant verzaagd") ; plaatmateriaal is reeds gezaagd @@ -673,11 +674,8 @@ Set:DK=25 Opmerking=Opmerking_", "_"Intrabox" Set:DS="BA" Opmerking=Opmerking_", "_"Baliko" Set:DC="L" Opmerking=Opmerking_", "_"Intivo" - ;Set:RSTL'="" Opmerking=Opmerking_", "_"VERLAAGDE RUG "_RSTL Set:BM="T" Opmerking=Opmerking_", "_"TIP-ON"_$S(TipOnSyncPRNr?4.7N:"+"_$E($P(^KPR(TipOnSyncPRNr,0),"\",1),5,7),1:"") ;TIPON + Z55Sxxx - ;Set:IsSR pxLabel.KR="Staal "_pxLabel.KR_" "_pxLabel.RH_" "_(IB-28),pxLabel.RH="",pxLabel.Bor="",pxLabel.RHNet="",pxLabel.BreedteR="" ;Stalen rug - ;Set:(ODSP'="")&&(ODSP'["H") pxLabel.KR="--" ; herstelling zonder rugwandhouders Set:KLAS["SP" Opmerking=Opmerking_", "_$CASE(KLAS,"SP":"SP 1","SP2":"SP 2",:"")_" "_$CASE(SPZK,"S":"Smal",:"Breed"), BreedteR="" Set:KLAS["SP" pxLabel.Spoelbak = 1 Set:KLAS["SY" Opmerking=Opmerking_", "_"Sifon", BreedteR=""