cT201 ;Financieel overzicht ;%T201 ;Go naar %T202 ; [ 01/04/01  3:11 PM ]
 G 1
 ;
T0 ;Financieel overzicht ;
T3 ;Debiteuren ;Crediteuren ;
 ;
T0F ;Aperçu financier ;
T3F ;Débiteurs  ;Créditeurs  ;
 ;
T0E ;Financial survey ;
T3E ;Debtors ;Creditors ;
 ;
 ; titel + vraagstelling
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 D ^cT489 S KJ=$$BJ^cAFE1(Q,DJ_"."_DM)
13 S MUNT=$$MNT^cAFE1(Q,KJ,1) G YZ:K="-" S QD=$P(MUNT,D,2) W /CUP(2,75),$P(MUNT,D),@F1
15 D ^cA347 G 13:K="-"!(K=",") S TP='PTS I 'TP G 19
17 S R=0_D_1 D ^cA345 G 15:K="-",13:K=","
19 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),I=""
 ;
 ; debiteuren: openstaande facturen + domiciliëringen
2 S FP=2003 W @F,@F1,$P($T(@("T3"_QT)),U,2),"..."
21 S BF=$P($$MNTO^cAFE1(Q,KJ),D),A=@("^"_Q_"BA(16)"),Q0="^"_Q_"KL(I1)"
23 D S1 S KLT=T(1)+T1(1) F I=2:1:6 S KLT(I-1)=T(I)+T1(I)
25 S KLH(1)=P(1)_D_"+"_H(1),KLH(5)=P(5)_D_"+"_H(5) F I=2:1:4 S KLH(I)=P(I)_D_H(I)_"-"_H(I+10)
27 S BF=$P($$MNTC^cAFE1(Q,KJ),D),Q0="^"_Q_"K3(I1)",Q1="^"_Q_"K3(I1,I2)",AV=5 D S3 S KLTB=TB
 ;
 ; crediteuren: openstaande facturen + betalingen
3 S FP=2003 W @F,@F1,$P($T(@("T3"_QT)),U,3),"..."
31 S BF=$P($$MNTO^cAFE1(Q,KJ),D),A=@("^"_Q_"BA(17)"),Q0="^"_Q_"LE(I1)"
33 D S1 S LET=T(1)+T1(1) F I=2:1:6 S LET(I-1)=T(I)+T1(I)
35 S LEH(1)=P(1)_D_"+"_H(1),LEH(5)=P(5)_D_"+"_H(5) F I=2:1:4 S LEH(I)=P(I)_D_H(I)_"-"_H(I+10)
37 S BF=$P($$MNTC^cAFE1(Q,KJ),D),Q0="^"_Q_"L3(I1)",Q1="^"_Q_"L3(I1,I2)",AV=4 D S3 S LETB=TB
 ;
 ; vervolg
4 K T,T1,P,H G ^cT202
 ;
YZ Q
 ;
 ; openstaande facturen volgens aging
S1 K T,T1,P,H S P(1)=-$P(A,D),H(1)=-P(1),P(6)=$P(A,D,6),H(6)=P(6)
S1A F I=2:1:5 S K=$P(A,D,I),P(I)=$E($P(K,"-"),2,9),H(I)=P(I),P(I+10)=$P(K,"-",2),H(I+10)=P(I+10) S:K["V" P(I)=-P(I),P(I+10)=-P(I+10)
S1B S:+H(6) H(5)=H(5)-1 S:'+H(6) H(5)=$P(A,D,5) S I=0,P(5)=H(5) F I=1:1:6 S T(I)=0,T1(I)=0
S1C S R=DT D S2 S RFD=R,I1=0
S1D S I1=$O(@Q0),I3=9999 I I1="" G S1Z      ; volgende klant/leverancier
S1E G S1D:$O(^(I1,I3))'?5.6N S A1=^(0),FP=2203 W @F,$TR($P(A1,D,1,2),D," "),@F2
S1F S K=$D(@Q0),I3=$O(^(I1,I3)) G S1D:I3'?5.6N        ; volgende factuur
S1G S A=^(I3),FC=$P(A,D),R=$P(A,D,3),DAT=$P(A,D,2),VM=$P(A,D,9) S:VM="" VM=BF
S1H S OPE=$$BEDR^cAFE1(Q,$P(A,D,$S(VM=BF:5,1:10)),BF,$P(MUNT,D),"F") S:FC="C" OPE=-OPE D S2 S K=R-RFD,VV=6,R=DAT D S2 G S1F:R>RFD
S1I I K<P(1) S VV=2 G S1M
S1J I K'>P(12)&(K'<P(2)) S VV=3 G S1M
S1K I K'>P(13)&(K'<P(3)) S VV=4 G S1M
S1L I K'>P(14)&(K'<P(4)) S VV=5
S1M S K="T" S:I3>989999&(FC="C") K="T1" F I=1,VV S @(K_"(I)="_K_"(I)+OPE")
S1N G S1F
S1Z Q
 ;
S2 S R=$$DH^cAFD1(R)
S2Z Q
 ;
 ; domiciliëringen/betalingen
S3 S (I1,I2)="",TB=0
S3A S I1=$O(@Q0) G S3Z:I1=""
S3B S I2=$O(@Q1) G S3A:I2="" S K=^(I2),VM=$P(K,D,7),BEDR=+K S:VM="" VM=BF
S3C S BEDR=$$BEDR^cAFE1(Q,BEDR,VM,$P(MUNT,D),"F")
S3D S TB=TB+BEDR G S3B
S3Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84