cT294 ;AANKOOPVENTILATIE ;%T291;Do uit %T291 [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Aankoopventilatie ;
T1 ;blz :;
T2 ;:Fact/C.N. Datum Nummer-naam van de leverancier  : Totaal doc.   :     Netto     : Nummer & naam van de rekening   :     Bedrag    :;
T3 ;: Overdrachttotaal ;: Eindtotaal ;Facturen;Creditnota's;
 ;
T0F ;Ventilations des achats ;
T1F ;page:;
T2F ;:Fact/N.C. Date  Numéro+nom du fournisseur       : Tot. document :      Net      : Numéro & nom du compte          :     Montant   :;
T3F ;: Total transfert  ;: Tot. final ;Factures;N. de crédit;
 ;
T0E ;Aankoopventilatie ;
T1E ;blz :;
T2E ;:Fact/C.N. Datum Nummer-naam van de leverancier  : Totaal doc.   :     Netto     : Nummer & naam van de rekening   :     Bedrag    :;
T3E ;: Overdrachttotaal ;: Eindtotaal ;Facturen;Creditnota's;
 ;
S1 S:$E(S1,$L(S1))="-" S1=-S1 S S1=S1/DEC Q
 ;
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
 ;
1 S (BLZ,T1,T2,T3,T4,T5,T6,T7,Y1,Y2,Y3,Y4,Y5,Y6,Y7)=0,I1=10 D 8 K ^HULP(boot,$J)
 ;
2 S I1=$O(^HULP("RC",Q,TNR,I1)) G YZ:I1="" S K=^(I1) G 2:$E(K,1,2)'=10,2:'$D(^(I1+2))
21 S K1=^(I1+1),I1=I1+2,K2=^(I1),LN=LN+1 I LN>LNMAX D 9,8
23 S FC=$E(K,12),S1=$E(K,31,42) D S1 S B1=S1,S1=$E(K,43,54) D S1 S B2=S1,S1=$E(K,67,78) D S1 S B4=S1,S1=$E(K,91,102)
24 D S1 S B5=0,S1=$E(K2,27,38) D S1 S B6=S1,S1=$E(K2,15,26) D S1
25 S K1=FC_" "_$E(K,13,15)_"."_$E(K,16,18)_" "_$E(K,19,20)_"."_$E(K,21,22)_" "_$E(+$E(K,3,8)_"-"_$E(K1,3,34),1,32)
27 I FC="F" S T1=T1+B1,T2=T2+B2,T4=T4+B4,T5=T5+B5,T6=T6+B6,T7=T7+S1
29 E  S Y1=Y1+B1,Y2=Y2+B2,Y4=Y4+B4,Y5=Y5+B5,Y6=Y6+B6,Y7=Y7+S1
 ;
3 W !,":",K1,":" S R=B1_D_14_D_D_QD D R3 W ":" S R=B2_D_14_D_D_QD D R3 W ":"
31 S I1=$O(^HULP("RC",Q,TNR,I1)) G 4:I1="" S K=^(I1) G 4:$E(K,1,2)'=20
33 S B1=$E(K,3,9),B2="",S1=$E(K,10,21) D S1 F I=1:1:7 S:$E(B1,I)?1N B2=B2_$E(B1,I)
35 S R=B2_" " S:$D(@("^"_Q_"AR(R,0)")) B2=B2_"-"_$P(^(0),D,2) I FC="F" S:'$D(^HULP(boot,$J,1,R)) ^(R)=0 S ^(R)=^(R)+S1_D_B2,T3=T3+S1
36 E  S:'$D(^HULP(boot,$J,0,R)) ^(R)=0 S ^(R)=^(R)+S1_D_B2,Y3=Y3+S1
37 I K1="" S LN=LN+1 D:LN>LNMAX 9,8 W !,":",?49,":",?65,":",?81,":"
39 W " ",$E(B2,1,32),?115,":" S K1="",R=S1_D_14_D_D_QD,K=$E(K,65,128) D R3 W ":" G 33:$E(K,1,2)=20,31
 ;
4 I $L(K1) W ?115,":",?131,":"
41 G YZ:I1="" S I1=I1-1 G 2
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?124,DT,!,NM3,?125,TD,!
81 D 85 W !,$P($T(@("T2"_QT)),U,2)
85 W !,":------------------------------------------------:---------------:---------------:---------------------------------:---------------:" Q
 ;
9 D 85 W !,$P($T(@("T3"_QT)),U,I1=""+2),$P($T(@("T3"_QT)),U,4),?49,":"
91 S R=T1_D_14_D_D_QD D R3 W ":" S R=T2_D_14_D_D_QD D R3 W ":",?115,":" S R=T3_D_14_D_D_QD D R3 W ":"
93 W !,$P($T(@("T3"_QT)),U,I1=""+2),$P($T(@("T3"_QT)),U,5),?49,":"
95 S R=Y1_D_14_D_D_QD D R3 W ":" S R=Y2_D_14_D_D_QD D R3 W ":",?115,":" S R=Y3_D_14_D_D_QD D R3 W ":"
97 D 85 W $$FF^cA334 Q
 ;
YZ D 9 K B1,B2,B4,B5,B6,T2,T3,Y2,Y3 G ^cT295
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84