Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r59601 -r59864
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 59601)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 59864)
@@ -89,6 +89,7 @@
 	
 	; Converteren naar lijst
 	Kill Lijst
+	
 	For I=1:1:$LL(FabrPrepList) Do
 	. Do Convert($LI(FabrPrepList,I),.Groep,.Lijst)
 	;zw Lijst
@@ -131,7 +132,7 @@
 	New SortKey1,SortKey2,Cnt,Reverse,EindFormat,HalfFormat,SubLijnNr
 	Quit:$D(Groep(FabrPrep))<10  ; Geen subnodes
 	Set Lijst($I(Lijst))=FabrPrep_D_D_"*** "_$LI($$$PrepTranslate,$LF($$$PrepKeys,FabrPrep))_" ***"
-	Set:$LF($$$PrepKeyPageBreak,FabrPrep)&&(Lijst>1) $P(Lijst(Lijst),D,2)="<PB>"
+	Set:$LF($$$PrepKeyPageBreak,FabrPrep)&&(Lijst>1) $Piece(Lijst(Lijst),D,2)="<PB>"
 	Set (SortKey1,SortKey2)=""
 	Set Cnt=0
 	For  Set SortKey1=$O(Groep(FabrPrep,SortKey1)) Quit:SortKey1=""  Do
@@ -144,8 +145,8 @@
 	. For  Set SortKey2=$O(Groep(FabrPrep,SortKey1,SortKey2)) Quit:SortKey2=""  Do
 	. . Set:'Reverse EindFormat=$$EindFormat(Groep(FabrPrep,SortKey1,SortKey2))
 	. . If (('Reverse) && (SubLijnNr > 1)) {
-	. .   Set $P(EindFormat,D,6) = ""
-	. .   Set $P(EindFormat,D,7) = ""
+	. .   Set $Piece(EindFormat,D,6) = ""
+	. .   Set $Piece(EindFormat,D,7) = ""
 	. . }
 	. . Set:Reverse HalfFormat=$$HalfFormat(Groep(FabrPrep,SortKey1,SortKey2))
 	. . ; 1 : Scheidingscode
@@ -154,24 +155,25 @@
 	. . ; 4 : Qty
 	. . ; 5 : NettoDim
 	. . ; 6 : IsWerkVloer	
-	. . Set KortTekst = $P(HalfFormat,"\",2)
-	. . If ($E($P(EindFormat,"\",6),1,8) = "Geleider") {
-	. .		Set $P(HalfFormat,"\",2) = $E(KortTekst,1,8)_"�B"_$E(KortTekst,9,9)_"�b"_$E(KortTekst,10,*)
+	. . Set KortTekst = $Piece(HalfFormat,"\",2)
+	. . If ($E($Piece(EindFormat,"\",6),1,8) = "Geleider") {
+	. .		Set $Piece(HalfFormat,"\",2) = $Extract(KortTekst,1,8)_"�B"_$Extract(KortTekst,9,9)_"�b"_$Extract(KortTekst,10,*)
 	. . }		
-	. . If ($E($P(EindFormat,"\",6),1,6) = "Reling") && ($E(KortTekst,10,10)="F") {
-	. .		Set $P(HalfFormat,"\",2) = $E(KortTekst,1,9)_"�B"_$E(KortTekst,10,10)_"�b"_$E(KortTekst,11,*)
+	. . If ($Extract($Piece(EindFormat,"\",6),1,6) = "Reling") && ($Extract(KortTekst,10,10)="F") {
+	. .		Set $Piece(HalfFormat,"\",2) = $Extract(KortTekst,1,9)_"�B"_$Extract(KortTekst,10,10)_"�b"_$Extract(KortTekst,11,*)
 	. . }	
 	. . If (HalfFormat'="") {
-	. . 	Set $P(Lijst($I(Lijst)),D,2)=HalfFormat ; Eerste steeds leeg
+	. . 	Set $Piece(Lijst($I(Lijst)),D,2)=HalfFormat ; Eerste steeds leeg
 	. . 	; 10 : TOENr
 	. . 	; 11 : DossierID
 	. . 	; 12 : Qty
 	. . 	; 13 : NettoDim
-	. . 	Set $P(Lijst(Lijst),D,10)=EindFormat  
+	. . 	Set $Piece(Lijst(Lijst),D,10)=EindFormat  
 	. . }
 	. . Set:'Reverse HalfFormat=""
 	. . Set:Reverse EindFormat=""
 	. . Set SubLijnNr = SubLijnNr + 1
+	
 	Quit 
 	
 HalfFormat(List)