cT283 ;Verkoopventilaties ;%T28 ;overlay %T28* ; [ 01/11/01  3:40 PM ]
 G 1
 ;
T0 ;Verkoopventilaties ;
T1 ;Fact/C.N. Datum Nummer-Naam klant/Rekening;\Tot. document;2\Bedrag;2;
T2 ;Fact/C.N. Datum Nummer-Naam klant/Rek.  -An.rek.;
 ;
T0F ;Ventilations des ventes ;
T1F ;Fact/N.C. Date  Numéro-Nom client/Compte;\Tot. document;2\Montant;2;
T2F ;Fact/N.C. Date  Numéro-Nom client/Cpte  -Cpte an;
 ;
T0E ;Sales ventilations ;
T1E ;Inv./C.N. Date  Number-Name cust./Account;\Document tot.;2\Amount;2;
T2E ;Inv./C.N. Date  Number-Name cust./Acc.  -An.acc.;
 ;
1 S HD(1)=D,HD(2)=D_MNM_" ;;F82",HD(3)=D_TIT
11 S TAB="49\64\79",TIT(1)=$P($T(@("T"_(1+SWAV)_QT)),U,2)_$P($T(@("T1"_QT)),U,3,99)
13 S FNR=SWU I SWU S I1=SWU-.01
 ;
2 S I1=$O(@Q6) G YZ:I1="",3:I1#1,YZ:I1'=SWU&SWU
21 S N=^(I1),Y=0 G 2:$P(N,D,2)'=SWD&SWD I $P(N,D,21)-SRT&(SRT'="A") G YZ:SWU,2
23 S TXT(1)=$P(N,D)_" "_$TR($FN(I1,","),",",".")_" "_$E($P(N,D,2),1,5)_" ",KC=$P(N,D,4),KN=$P(N,D,5)
24 S Y=1 I $P(N,D)="C" S Y=-1
25 I $D(@("^"_Q_"K1(KC)")),$D(@("^"_Q_"KL(^(KC),0)")) S KN=$P(^(0),D,2)
27 S TXT(1)=TXT(1)_KC_"-"_KN,TXT(2)=$P(N,D,6)*Y_"\\\\1\"_QD_D_D_1,TXT(3)=""
29 S FNR=I1 D ^cA334 G 2
 ;
3 G 2:(I1\1'=FNR),2:Y=0 S N=^(I1)
31 S J=$P(N,D),N=$P(N,D,2,999) I J="" G 31:$L(N),2
33 S BR=$P(J,"#"),BE=$P(J,"#",4)*Y,BRA=$P(J,"#",9)
35 S TXT(1)=$J("",16)_$TR(BR," ","-")_$P(@Q41,D,2),TXT(2)="",TXT(3)=BE_"\\\\1\"_QD_D_D_1
37 I SWAV,$L(BRA) S TXT(1)=$E(TXT(1)_$J("",40),1,40)_"-"_BRA
39 D ^cA334 G 31
 ;
YZ S END=1 D ^cA334 I $G(KLHSW) D C^cA612 Q
 D ^cA609 G ^cT28
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84