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.;
	;
T0D	;Verkaufsaufteilung ;
T1D	;Fakt/Kto. Datum Nummer-Name Kunde/Rechnung;\Tot. Dokument;2\Betrag;2;
T2D	;Fakt/Kto. Datum Nummer-Name Kunde/Rec.  -An.Rec.;
	;
S2	S K=$P(INH,D,2)
	I $P(N,D)="C" S K=-$P(INH,D)
	S BR=$P(I2,"#")
	S TXT(1)=$J("",16)_$TR($P(I2,"#")," ","-")_$P(@Q41,D,2),TXT(2)="",TXT(3)=K_"\\\\1\"_QD_D_D_1
	I SWAV,$L($P(I2,"#",2)) S TXT(1)=$E(TXT(1)_$J("",40),1,40)_"-"_$P(I2,"#",2)
	D ^cA334
S2Z	Q
	;
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
14	S BJ=$$BJ^cAFE1(Q,BP),MNT1=$P($$MNTC^cAFE1(Q,BJ),D)
15	S SORT=$S(SWAV:"1#9",1:"1")
	;
2	S I1=$O(@Q6) G YZ:I1="",2: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
	;
3	D VENT^cT48H("VE",BP,FNR,"",SORT,0,MNT1)
31	S I2=""
33 	S I2=$O(VTBEDR(I2)) G 2:(I2="") S INH=VTBEDR(I2) D S2
34	G 33
	;
YZ	S END=1 D ^cA334 I $G(KLHSW) D C^cA612 Q
	D ^cA609 G ^cT28
	;
Z	X ^cZ Q
ZZ	; 22.06.04 - 16 u 32 * V8