cT280	;Verkoopventilaties naar Excel ;%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;2\ Nummer & naam van de rekening\Bedrag;2;
T3	;   Overdracht;   Eindtotaal;
T4	;JRN\ \Document\Datum\Nummer\Naam van de klant\Nummer\Naam van de rekening\;Nummer\Naam van de anal.rekening\;Nummer\Naam van de IAS rekening\;Bedrag;
T5	;\Boekingsmaand;
T6	;\Project;
	;
T0F	;Ventilations des ventes ;
T1F	;Page:;
T2F	;Fact/N.C. Date  Numéro-Nom du client\ Total docum.\Net;2\ Numéro & nom du compte\Montant;2;
T3F	;A transférer;Total final;
T4F	;JRN\ \Document\Date\Numéro\Nom du client\Numéro\Nom du compte\;Numéro\Nom du compte anal.\;Numéro\Nom du compte IAS\;Montant;
T5F	;\Mois comptable;
T6F	;\Projet;
	;
T0E	;Sales ventilations ;
T1E	;Pge :;
T2E	;Inv./C.N. Date  Number-Name of the customer\ Docum. total\Net;2\ Number & name of the account\Amount;2;
T3E	;Transfer;Final total;
T4E	;JRN\ \Document\Date\Number\Customer Name\Number\Account Name\;Number\Anal.Account Name\;Numer\IAS Account Name\;Amount;
T5E	;\Fiscal month;
T6E	;\Project;
	;
T0D	;Verkaufsaufteilung ;
T1D	;Pag :;
T2D	;Fakt/Kto. Datum Nr.    Kundename\ Belegtotal\Netto;2\Nummer & Kontenbezeichnung\Betrag;2;
T3D	;Übertrag;Gesamttotal;
T4D	;JRN\ \Dokument\Datum\Nummer\Kundename\Nummer\Name Rechnung\;Nummer\Naam van de anal.rekening\;Nummer\Naam van de IAS rekening\;Betrag;
T5D	;\Rechnungsmonat;
T6D	;\Projekt;
	;
S2	S BR=$P(I2,"#"),BRA=$P(I2,"#",2),K=$P(INH,D,2),(SW,S1)=1
	I $P(Z,D)="C" S K=$P(INH,D),S1=-1
	I PTS'=4&(PTS'=3) S TXT(5)=K*S1_"\\\\1\"_QD
	I PTS=4!(PTS=3) S VNR=$S(SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)):11,SWAV:13,1:9) S TXT(VNR)=K*S1_"\\\\1\"_QD_"\\1"
S2A	S:'$D(^HULP(boot,$J,FC="F",BR)) ^(BR)=0 S ^(BR)=^(BR)+K
S2B	I SWAV,$L(BRA) S:'$D(^HULP(boot,$J+.01,BR,BRA,FC="C")) ^(FC="C")=0 S ^(FC="C")=^(FC="C")+K
S2C	I PTS'=4&(PTS'=3) S TXT(4)=$E($P(BR," ")_"-"_$P(@Q41,D,2),1,-SWAV*10+32)_$S(SWAV:"   "_BRA_$J("",7-$L(BRA)),1:"")
	;  Nummer en naam rekening en eventueel nr en naam anal. rekening
	I PTS=4!(PTS=3) D
	. S TXT(7)=$P(BR," "),TXT(8)=$P(@Q41,D,2) 
	. I SWAV S TXT(9)=BRA,TXT(10)=$S($L(BRA):$P(@Q42,D,2),1:"")
	. I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(11)=$P(I2,"#",$L(I2,"#")),TXT(12)=$S($L($P(I2,"#",$L(I2,"#"))):$$SIG^cAFA1("ARA",$P(I2,"#",$L(I2,"#")),102),1:"")
	. ; Invullen project
	. I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(12)=$P(INH,D,5),$P(TXT(12),D,20)=0
	. I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(14)=$P(INH,D,5),$P(TXT(14),D,20)=0
S2D	D ^cA334
S2Z	Q
	;
1	S HD(1)=D,HD(2)=D_MNM_" ;;F82",HD(3)=D_TIT,TITEL=TIT
11	I PTS'=4&(PTS'=3) S TAB="49\65\81\115\131",TIT(1)=$P($T(@("T2"_QT)),U,2,99)
12	I PTS=4!(PTS=3) D
	. I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) S TAB="4\7\14\23\30\59\66\97\104\135\146",TIT(1)=$P($T(@("T4"_QT)),U,2)_$P($T(@("T4"_QT)),U,3)_$P($T(@("T4"_QT)),U,5)
	. I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S TAB="4\7\14\23\30\59\66\97\104\135\142\173\184",TIT(1)=$P($T(@("T4"_QT)),U,2)_$P($T(@("T4"_QT)),U,3)_$P($T(@("T4"_QT)),U,4)_$P($T(@("T4"_QT)),U,5)
	. I 'SWAV S TAB="4\7\14\23\30\59\66\97\108",TIT(1)=$P($T(@("T4"_QT)),U,2)_$P($T(@("T4"_QT)),U,5)
	. I SWAV&$$PROJ^cT48H(Q) S TIT(1)=TIT(1)_$P($T(@("T6"_QT)),U,2),TAB=TAB_"\"_($P(TAB,"\",$L(TAB,"\"))+8)
	. S TIT(1)=TIT(1)_$P($T(@("T5"_QT)),U,2),TAB=TAB_"\"_($P(TAB,"\",$L(TAB,"\"))+8)
	S SWIAS=(SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)))
	S SORT=$S(SWAV&'$$PROJ^cT48H(Q):"1#9",SWAV&$$PROJ^cT48H(Q):"1#9#2",1:"1")
	I PTS'=3&(PTS'=4) S SWIAS=0
	S BJ=$$BJ^cAFE1(Q,BP),MNT1=$P($$MNTC^cAFE1(Q,BJ),D)
13	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	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)
	D VENT^cT48H("VE",BP,I1,"",SORT,SWIAS,MNT1,$$PROJ^cT48H(Q))
	I PTS=4!(PTS=3) D EXCEL D 7 G 3
23	S TXT(1)=FC_" "_$E(I1,1,3)_"."_$E(I1,4,6)_" "_$E($P(Z,D,2),1,5)_" "_$E($P(Z,D,4)_"-"_K,1,32)
24	S Y=1 I $P(Z,D)="C" S Y=-1
25	S TXT(2)=Y*A(1)_"\\\\1\"_QD,TXT(3)=Y*A(2)_"\\\\1\"_QD,T1=T1+(Y*A(1)),T2=T2+(Y*A(2)) D 7
	;
3	S I2=""
31 	S I2=$O(VTBEDR(I2)) G 4:(I2="") S INH=VTBEDR(I2) D S2
32	G 31
	;
4	I PTS'=4&(PTS'=3) I 'SW S TXT(5)="" D ^cA334
	I PTS=4!(PTS=3) I 'SW D ^cA334
41	G 2
	;
5	I PTS=4!(PTS=3) S END=1 D ^cA334 G YZ
	D 8
	S END=4 D ^cA334
	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 END=3 D ^cA334 S AFS(1,1)=$P($T(@("T3"_QT)),U,'I1+2),AFS(1,2)=T1_"\\\\1\"_QD,AFS(1,3)=T2_"\\\\1\"_QD
81	S END=4 Q
	;
YZ	Q
	;
EXCEL	N I,JRNNR,JRN,JRNC
	S $ZT="TRAP^cAN000"
	F I=1:1:6 S TXT(I)=""
	I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(11)=""
	I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(13)=""
	I 'SWAV S TXT(9)=""
	; JRN
	S JRN=$P(Z,D,21)
	S JRNNR=$E("000",1,3-$L(JRN))_JRN
	S JRNC=$$JRN^cAFO2("V",JRNNR)
	S TXT(1)=JRNC
	; F/C
	S TXT(2)=FC
	; Document
	S TXT(3)=I1
	; Datum
	S TXT(4)=$P(Z,D,2)
	;  Nummer
	S TXT(5)=$P(Z,D,4)
	;  Naam
	S TXT(6)=K
	; Bedrag
	S Y=1 I $P(Z,D)="C" S Y=-1
	I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(11)=Y*A(2)_"\\\\1\"_QD_"\\1" I PTS=3!(PTS=4) S TXT(13)=BP,TXT(12)=""
	I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(13)=Y*A(2)_"\\\\1\"_QD_"\\1" I PTS=3!(PTS=4) S TXT(15)=BP,TXT(14)=""
	I 'SWAV S TXT(9)=Y*A(2)_"\\\\1\"_QD_"\\1" I PTS=3!(PTS=4) S TXT(10)=BP
EXCELZ	Q
	;
Z	X ^cZ Q
ZZ	; 19.03.07 - 15 u 31 * V8.08