cANU302 ;Beheer etiketten ;%ANU30 ; [ 09/30/98 12:00 PM ] G 1 ; T0 ;Beheer etiketten ; T1 ;Vervolg\"[] = ok -[] = einde"; T2 ;Maximaal ; lijnen en ; posities.; ; T0F ;Gestion des étiquettes ; T1F ;Suite\"[] = ok -[] = fin"; T2F ;Au maximum ;lignes et ; positions.; ; ; omschrijving + aantal pagina's gekoppeld bestand S1 I $L(Q1A)&$$SEC^cANU50(Q1A) D . I Q1A=Q1 S SW4A=SW4,UQAA=UQA,USAA=USA . I Q1A'=Q1 D .. N UQC,USC D DMS^cAN000("UQC","USC",Q1A) Q:UQC=""!(USC="") .. N UQA,USA S I=$G(^DMS(Q,Q1A,0),$G(^DMS(0,Q1A,0))),UQA=$P(I,D,3),USA=$P(I,D,4) Q:UQA=""!(USA="")!'$P(I,D,2) .. I $G(^DMA(UQA,USA,0,"DMS"))'=Q1A Q .. S UQAA=UQA,USAA=USA,SW2=1 F SW4A=1:1 Q:'$D(^DMA(UQAA,USAA,SW4A+1)) . S OMA=OM F I=1:1 Q:'$D(SWB(I)) D .. N UQC,USC D DMS^cAN000("UQC","USC",SWB(I)) .. S OMA=OMA_" -> "_$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2),SW2=1 S1Z Q ; ; omschrijving op lengte S2(UZB) N I,U2,X,%ZR S %ZR=$ZR S2A M U2=^(UZB) S X="" I $D(@%ZR) S2B S X=$E($P(U2(1),D,QTU)_$J("",U2(13)),1,U2(13)) S2C F I=1:1 Q:'$D(U2("LINK",I)) S X=$E($P(U2("LINK",I,1),D,QTU)_$J("",U2("LINK",I,13)),1,U2("LINK",I,13)) S2Z Q X ; ; detail lijn UZA S4 W /CUP(LN,3),/WWR(0),/WCMD S UZB=0 S4A S UZB=UZB+1 I '$D(@UREF@(UZA,UZB)) G S4Y S4B S K="",X=$$S2(UZB) W:UZB>1 /SGR(1),"_",/SGR(0) W X G S4A S4Y W /cDR(1),/cDR(3),/cDR(0),/CUP(LN,1),/SGR(1),UZA,/SGR(0),/WWR(1) S4Z Q ; 1 S LMIN=2,LMAX=$P(QW(QW),D,3)-($P(QW(QW),D,5)*2) 11 S KMIN=3,KMAX=$P(QW(QW),D,4)-($P(QW(QW),D,5)*2) 13 S SW2=0 W /CUP(1,KMAX-$L(OM)-1),OM 15 W /CUP(LMIN,KMIN) F I=1:1:8 W ".........",I ; 2 S UZA=1,LN=LMIN+1 21 D S4 S UZA=UZA+1 I '$D(@UREF@(UZA)) G Y 25 S LN=LN+1 I LN