cT280 ;Verkoopventilaties ;%T28 ;overlay %T28* ; [ 01/11/01  3:26 PM ]
 G 1
 ;
T0 ;Verkoopventilaties ;
T1 ;Blz :;
T2 ;:Fact/C.N. Datum Nummer-Naam van de klant        : Totaal docum. :     Netto     : Nummer & naam van de rekening   :     Bedrag    :;
T3 ;Overdracht;Eindtotaal;
 ;
T0F ;Ventilations des ventes ;
T1F ;Page:;
T2F ;:Fact/N.C. Date  Numéro-Nom du client            : Total docum.  :      Net      : Numéro & nom du compte          :    Montant    :;
T3F ;A transférer;Total final;
 ;
T0E ;Sales ventilations ;
T1E ;Pge :;
T2E ;:Inv./C.N. Date  Number-Name of the customer     : Docum. total  :      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:"   "_BRA_$J("",7-$L(BRA)),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_"K1(K)"),K=@("^"_Q_"KL(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=S1*A(1)_D_14_D_D_QD,X=S1*A(2),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 ^cT281
 ;
7 I FC="F" S KF=KF+A(1),BTF=BTF+A(3),EGF=EGF+A(4),LTF=LTF+A(13),ITF=ITF+A(10) Q
71 S KC=KC+A(1),BTC=BTC+A(3),EGC=EGC+A(4),LTC=LTC+A(13),ITC=ITC+A(10) 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