cT102 ;Openstaande facturen ;%T10 ;%T10* ; [ 01/03/01  4:34 PM ]
 ;
T0 ;Openstaande facturen ;
 ;
T0F ;Documents impayés ;
 ;
T0E ;Outstanding vouchers ;
 ;
1 D ^cA338
 ;
2 S QH1="^HULP(boot,$J+.01,FNR)",QH2="^HULP(boot,$J+.02,I2)"
21 S Q0="^"_Q_"KL(I1)",Q01="^"_Q_"KL(I1,I2)",Q7="^"_Q_"VE(BP)",Q71="^"_Q_"VE(BP,FNR)"
23 S Q95="^"_Q_"FI(BP,$P(A2,""#""),$P(A2,""#"",2))"
25 S KC=$P(B(3),D,30),I1=$G(@("^"_Q_"K1(+KC)")," "),I2=0,B(1)=$G(@Q01),COR=0
 ;         
3 D ^cAT101 S (ETONB,ETVER)=0,FNR=""
31 S FNR=$O(@QH1) I FNR="" S ^HULP(boot,$J+.04)=ETONB_D_ETVER G YZ
33 S A=^(FNR),VVD=$P(A,D,3),OPE=$P(A,D,5),ETONB=ETONB+OPE
35 S R=VVD_D_RFD D ^cA326 I R<0 S ETVER=ETVER+OPE
37 G 31
 ;
YZ D ^cA339 K ^HULP(boot,$J+.01),^($J+.02) Q
 ;
ZZ ; 30.03.01 - 13 u 39 * V7.85