Index: FLOWORD.mac.rou =================================================================== diff -u -r4056 -r17620 --- FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 4056) +++ FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 17620) @@ -44,7 +44,7 @@ . . . Set R=$TR($P(R,D,4),$C(10,13),"~"),BlockId=$H . . . For I=1:1:$L(R,"~") Set Count=Count+1,PRNr(Count)="T\"_$P(R,"~",I)_D_BlockId_"\\"_GroepKey . . Else Do - . . . Quit:$P(R,D,4)'?4.6N ; Geen productnummer + . . . Quit:$P(R,D,4)'?4.7N ; Geen productnummer . . . Quit:'$D(^KPR($P(R,D,4))) ; Onbekend product . . . Set PakketRef=$P(R,D,5),ProjectRef=$P(R,D,20) . . . Set R=$P(R,D,4)_D_$P(R,D,7)_D_$P(R,D,8)_D_D_GroepKey