cT202 ;Financieel overzicht ;%T201 ;Go uit %T201 ; [ 06/27/01  3:03 PM ]
 G 1
 ;
T0 ;Financieel overzicht ;
T1 ;Debiteuren ;Crediteuren ;Totaal ;
T2 ;d.; V; N;
T3 ;Betalingsorders :;
T4 ; Rek.nr. ; Omschrijving                      ;     Saldo     ;Uitnr;  Datum   ;
T5 ;Vervolg ;Blz :;
 ;
T0F ;Aperçu financier;
T1F ;Débiteurs  ;Créditeurs  ;Total  ;
T2F ;j.; E; N;
T3F ;Ordres de paiem.:;
T4F ;N° compte; Description                       ;     Solde     ;N°ext;   Date   ;
T5F ;Suite ;Page:;
 ;
T0E ;Financial survey ;
T1E ;Debtors    ;Creditors   ;Total  ;
T2E ;d.; O; N;
T3E ;Payment orders  :;
T4E ; Acc.nr. ; Description                       ;    Balance    ;Stat.;  Date    ;
T5E ;Continuation ;Pge :;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
 ; aging overzicht + betalingsorders
1 S BLZ=0,NV=$P($T(@("T2"_QT)),U,3,4),FP=301,VAR="@F7,@$P(FG,D,10),@F8",VAR1=F4,VAR2=F5 W @F,@F1,/WWR(1)
10 I TP X F70 W @F80 D HD S VAR="@F30",VAR1=""" "",@F86",VAR2=""" "",@F87"
11 S LN=8 F I=1:1:5 W ! F J="KL","LE" D S1
12 S K="-",$P(K,"-",23)="" W !?13,K,$J("",20),K,!?14,$P($T(@("T1"_QT)),U,4),":" S R=KLT_"\13\\"_QD D R3
13 W $J("",20),$P($T(@("T1"_QT)),U,4),":" S R=LET_"\13\\"_QD D R3
14 W !?5 W:'KLTB $J("",31) I KLTB W $P($T(@("T3"_QT)),U,2) S R=KLTB_"\13\\"_QD D R3
19 W $J("",11) W:'LETB $J("",31) I LETB W $P($T(@("T3"_QT)),U,2) S R=LETB_"\13\\"_QD D R3
 ;
 ; alle financiële rekeningen
2 S (I1,TOT,SW)=0,BF=$P($$MNTC^cAFE1(Q,KJ),D)
21 S I1=$O(@("^"_Q_"AR(I1)")) G Y1:I1="" S B(1)=$G(^(I1,0)),VM=$P(B(1),D,11),I2=1E6,J1=0 G 21:'$L($P(B(1),D,10))!$P(B(1),D,30)
22 S I2=$O(^(I2)) I $E(I2)=1,I2?7N.E S K=$E(I2,2,7)/100 S:K>J1 J1=K G 22
23 S J1=$E(J1_0,1,7),J2=$P(B(1),D),J3="",OMS=$P(B(1),D,2) I $P(B(1),D,17) S J2="W"_J2
24 S K=$$BSAL^cAFE1(Q,KJ,"AR",I1),T=$$BEDR^cAFE1(Q,K,BF,$P(MUNT,D),"F"),T1=0,K=$G(^(KJ)),K1=$G(^(KJ+.02)) D
 . F I=2:1:24 S T=T+$$BEDR^cAFE1(Q,$P(K,D,I),BF,$P(MUNT,D),"F"),T1=T1+$$BEDR^cAFE1(Q,$P(K1,D,I),BF,$P(MUNT,D),"F")
25 S SALDO=T-T1,TOT=TOT+SALDO,SALVM=0 I $L(VM),VM'=BF D  S SALVM=T-T1
 . S K=$G(^(BJ+.01)),K1=$G(^(BJ+.03)),T=+K,T1=0 D S3 I KJ>BJ S K=$G(^(KJ+.01)),K1=$G(^(KJ+.03)) D S3
 . S QA=2 I $D(@("^"_Q_"BA(11,VM)")) S QA=+$P(^(VM),D,7)
26 I 'J1,SALDO=0,SALVM=0 G 21
27 S (DAT,UNR)="",J3=$O(@("^"_Q_"FI(J1,J2,J3)"),-1) I $L(J3) S K=^(J3),UNR=$P(K,D,3),DAT=$P(K,D,2)
29 D:'SW H:'TP,HD2:TP S SW=1
 ;
 ; 1 rekening printen
3 S OLN=LN,LN=LN+1 S:VM'=BF&$L(VM) LN=LN+1 I TP,LN>LNMAX D HD3,HD,HD2 G 3
30 I 'TP,LN>17 S LN=OLN D H2 S K=$P($T(@("T5"_QT)),U,2) D F1 G YZ:K="-" S LN=11,FP=LN+3*100+1 W @F,!,@F1,@F,/WWR(1) G 3
31 S K=$E(" "_I1_$J("",8),1,8) W !,@VAR,$E(K,1,4),".",$E(K,5,8),@VAR," ",$E(OMS_$J("",34),1,34),@VAR
32 S R=SALDO_"\14\\"_QD D R3 W @VAR,$S($L(UNR)=5:UNR,1:$J(UNR,4)_" "),@VAR,$J(DAT,9)," ",@VAR
33 I $L(VM),VM'=BF W !,@VAR,$J("",9),@VAR,$J(VM,35),@VAR S R=SALVM_D_14_D_D_QA D R3 W @VAR,$J("",5),@VAR,$J("",10),@VAR
39 G 21
 ;
Y1 G Y4:'$D(SALDO),Y2:'TP D HD3,S2 W !,@F30 S K="-",$P(K,"-",45)="-" F I=45,15,16 W $E(K,1,I),@F30 G Y4:I=16
 ; VJ 27.06.01
Y2 I $ZV["MSM" W /WWR(0) D H2 W @F,@F7,@$P(FG,D,6) S FP=FP-79 W @F,@$P(FG,D,7) F I=46,16 S FP=FP+I W @F,@$P(FG,D,11) W:I=16 @F8
 I $ZV'["MSM" W /WWR(0) D H2
Y3 W /WWR(1) D S2 W !,/WWR(0),@F7,@$P(FG,D,3) F I=2:1:80 W @$P(FG,D,$S(I=47!(I=63):8,I=80:4,1:9)) I I=80 W @F8
Y4 I TP W $$FF^cA334 X F71
Y5 I 'TP S R=4 D F2
YZ Q
 ;
H S FP=LN+5*100+1 W @F,@F1," " F I=2:1:6 W $P($T(@("T4"_QT)),U,I)," "
H1 S K=LN+4*100,LN=LN+3,R=K+1_D_(K+280),RV=K+101_"#"_(K+301)_D_(K+11)_"#"_(K+311)_D_(K+47)_"#"_(K+347)_D_(K+63)_"#"_(K+363)_D_(K+69)_"#"_(K+369)_D_(K+180)_"#"_(K+380) D ^cA319 Q
H2 S FP=LN+4*100+1 W @F,@F7 F I=1:1:80 W @$P(FG,D,9)
H3 W @F,@$P(FG,D,3) F I=11,47,63,69 S FP=LN+4*100+I W @F,@$P(FG,D,8)
H4 S FP=LN+4*100+80 W @F,@$P(FG,D,4),@F8
HZ Q
 ;
HD W:BLZ $$FF^cA334 S BLZ=BLZ+1,LN=0,VR="@F30" W !,QN,?72,$P($T(@("T5"_QT)),U,3),$J(BLZ,3)
HD1 W !,NM2,?30,@F85,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?72,DT,!,NM3,?73,TD,!! Q
HD2 S LN=LN+3 D HD3 W !,@F30 F I=2:1:6 W $P($T(@("T4"_QT)),U,I),@F30
HD3 S K="-",$P(K,"-",35)="-" W !,@F30 F I=9,35,15,5,10 W $E(K,1,I),@F30
HDZ Q
 ;
S1 I I=1 W @VAR1,$P($T(@("T1"_QT)),U,$S(J="KL":2,1:3)),@VAR2,$J($P(@(J_"H(I)"),D,2)_$P($T(@("T2"_QT)),U,2),9) S R=@(J_"T(I)")_"\13\\"_QD D R3 W $P($T(@("T2"_QT)),U,$S(I>3:4,1:3)) W:J="KL" $J("",3) G S1Z
S1B W $J("",13),$J($P(@(J_"H(I)"),D,2)_$P($T(@("T2"_QT)),U,2),9) S R=@(J_"T(I)")_"\13\\"_QD D R3 W:I=1 $P(NV,U) W:I>1&(I<5) $P(NV,U,+@(J_"H(I)")>0+1) W:I=5 $P(NV,U,2) W:J="KL" $J("",4)
S1Z Q
 ;
S2 W !,@VAR,$J("",38),$P($T(@("T1"_QT)),U,4),@VAR S R=TOT_"\14\\"_QD D R3 W @VAR,$J($P(MUNT,D),4),$J("",12),@VAR
S2Z Q
 ;
S3 F I=2:1:24 S T=T+$P(K,D,I),T1=T1+$P(K1,D,I)
S3Z Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87