cANU39 ;Controlelijst etiketten ;%ANU39 ; [ 06/10/97  1:22 PM ]
 G 1
 ;
T0 ;Controlelijst etiketten ;
T1 ; Lijn;Rub.; Omschrijving;Pos.;
T2 ; Totale lengte;
 ;
T0F ;Liste de vérification des étiquettes ;
T1F ;Ligne;Rub.; Description;Pos.;
T2F ; Longueur totale;
 ;
 ; streepjeslijn
1 S END=2 D ^cA334
 ;
 ; detail lijnen
2 S I="6\11\42\47\"_$P(TAB,D,$L(TAB,D)) N TAB S TAB=I
21 F I=1:1:$L(TAB,D) S TXT(I)=$P($T(@("T1"_QT)),U,I+1)
23 D ^cA334 S END=145 D ^cA334 K TXT
 ;
 ; lijn per lijn
3 F UZA=1:1 Q:'$D(@UREF@(UZA))  D
 . I UZA>1 S END=132 D ^cA334
 . S TXT(1)=$J(UZA,4),LEN=0
 . F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  D
 .. S TXT(2)=$J(UZB,3)
 .. S TXT(3)=" "_$$S2^cANU202(UZB)
 .. S TXT(4)=$J($L(TXT(3))-1,3),LEN=LEN+$L(TXT(3))-1+(UZB>1)
 .. D ^cA334 K TXT
 . S TXT(3)=$P($T(@("T2"_QT)),U,2),TXT(4)=$J(LEN,3) D ^cA334 K TXT
33 S END=145 D ^cA334
 ;
YZ S OK=1 Q
 ;
ZZ ; 19.06.97 -  9 u 29 * V6.3