cT330 ;Aankoopventilaties ;%T33 ;overlay %T33* ; [ 01/03/01  7:02 PM ]
 G 1
 ;
T0 ;Aankoopventilaties ;
T1 ;Blz :;
T2 ;:Fact/C.N. Datum Nummer-Naam leverancier         : Tot. document :     Netto     : Nummer & naam van de rekening   :     Bedrag    :;
T3 ;Overdracht;Eindtotaal;
 ;
T0F ;Ventilations des achats ;
T1F ;Page:;
T2F ;:Fact/N.C. Date  N° - Nom du fournisseur         : Tot. document :       Net     : N° & Nom du compte              :    Montant    :;
T3F ;Transfert;Total final;
 ;
T0E ;Purchase ventilations ;
T1E ;Pge :;
T2E ;:Inv./C.N. Date  Number-Name supplier            : Document tot. :     Net       : Number & name of the account    :     Amount    :;
T3E ;Transfer;Final total;
 ;
S1 S LN=LN+1 D:LN+2>LNMAX 9,8 Q
 ;
S2 I SW D S1 W ! F K=0,49,65,81 W ?K,":"
S2A S BR=$P(B,"#"),BRA=$P(B,"#",9),K=$P(B,"#",4),R=K*S1_D_14_D_D_QD,SW=1
S2B S:'$D(^HULP(boot,$J,FC="F",BR)) ^(BR)=0 S ^(BR)=^(BR)+K
S2C I SWAV,$L(BRA) S:'$D(^HULP(boot,$J+.01,BR,BRA,FC="C")) ^(FC="C")=0 S ^(FC="C")=^(FC="C")+K
S2D W ?83,$E($P(BR," ")_"-"_$P(@Q41,D,2),1,-SWAV*10+32),$S(SWAV:"   "_$E(BRA,1,7),1:""),?115,":" D R3 W ":"
S2Z 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 X F70 W @F80 D 8 S:SWU I1=SWU-.01
 ;
2 S I1=$O(@Q6) G 5:(I1\1>SWU)&SWU!'I1,2:I1#1 S Z=^(I1) G 2:$P(Z,D,2)'=SWD&SWD,2:$P(Z,D,21)-SRT&(SRT'="A") F X=1:1:15 S A(X)=$P(Z,D,X+5)
21 D S1 S SW=0,FC=$P(Z,D),K=$P(Z,D,4),K=@("^"_Q_"L1(K)"),K=@("^"_Q_"LE(K,0)"),K=$P(K,D,2)
23 W !,":",FC,?3,$E(I1,1,3),".",$E(I1,4,6),?11,$E($P(Z,D,2),1,5),?17,$E($P(Z,D,4)_"-"_K,1,32),?49,":"
25 S S1=FC="C"*-2+1,R=A(1)*S1_D_14_D_D_QD,X=A(2)+A(4)+A(8)+A(9)+A(10)*S1,T1=T1+R,T2=T2+X D R3 W ":" S R=X_D_14_D_D_QD D R3,7 W ":"
 ;
3 S I1=I1+.01 G 4:'$D(@Q6)!'(I1#1) S N=^(I1) F X=1:1 S B=$P(N,D,X) Q:'$L(B)  D S2
31 G 3
 ;
4 I 'SW F K=115,131 W ?K,":"
41 G 2
 ;
5 D 9 G ^cT331
 ;
7 I FC="F" S LF=LF+A(1),ABF=ABF+A(3),OBF=OBF+A(6),ICF=ICF+A(7),VLF=VLF+A(11),MCF=MCF+A(12) Q
71 S LC=LC+A(1),ABC=ABC+A(3),OBC=OBC+A(6),ICC=ICC+A(7),VLC=VLC+A(11),MCC=MCC+A(12) Q
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?30,@F82,MNM,@F83,$$CR^cA334 W ?124,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,TIT,$$CR^cA334 W ?124,DT,!,NM3,$$CR^cA334 W ?125,TD,!
81 D 85 W !,$P($T(@("T2"_QT)),U,2)
85 W !,":------------------------------------------------:---------------:---------------:---------------------------------:---------------:" Q
 ;
9 D 85 W !,":",?11,$P($T(@("T3"_QT)),U,'I1+2),?49,":" S R=T1_D_14_D_D_QD D R3 W ":" S R=T2_D_14_D_D_QD D R3
91 W ":",?115,":",?131,":" D 85 W $$FF^cA334 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84