cT281	;Verkoopventilaties ;%T28 ;overlay %T28* ; [ 01/11/01  3:38 PM ]
	G 1
	;
T0	;Verkoopventilaties ;
T1	;Blz :;
T2	;facturen;creditnota's;
T3	;Debet;Credit;
T4	;Journaalpost verkopen ;
T5	;Klanten;
T6	;Verschuldigde BTW;
T7	;Verschuldigde egalisatie;
T8	;Verschuldigde luxetaks;
T9	;Verschuldigde inschrijvingstaks;
T10	;Totaal;
T11	;Aftrekbare BTW;
T12	;Aftrekbare egalisatie;
T13	;Aftrekbare luxetaks;
T14	;Aftrekbare inschrijvingstaks;
	;
T0F	;Ventilations des ventes ;
T1F	;Page:;
T2F	;factures;notes de crédit;
T3F	;Débit;Crédit;
T4F	;Article de journal ventes ;
T5F	;Clients;
T6F	;TVA à payer;
T7F	;Egalisation due;
T8F	;Taxe de luxe due;
T9F	;Taxe d'inscription due;
T10F	;Total;
T11F	;TVA déductible;
T12F	;Egalisation déductible;
T13F	;Taxe de luxe déductible;
T14F	;Taxe d'inscription déductible;
	;
T0E	;Sales ventilations ;
T1E	;Pge :;
T2E	;invoices;credit notes;
T3E	;Debit;Credit;
T4E	;Journal entry sales   ;
T5E	;Customers;
T6E	;Due VAT;
T7E	;Due egalisation;
T8E	;Due luxury tax;
T9E	;Due inschrijvingstaks;
T10E	;Total;
T11E	;Deductible VAT;
T12E	;Deductible egalisation;
T13E	;Deductible luxury tax;
T14E	;Due inschrijvingstaks;
	;
T0D	;Verkaufsaufteilung ;
T1D	;Pag :;
T2D	;Fakturen;Gutschriften;
T3D	;Soll;Haben;
T4D	;Journalposition Verkaufsfakturen ;
T5D	;Kunden;
T6D	;Schuldiger MWSt;
T7D	;Verschuldigde egalisatie;
T8D	;Verschuldigde luxetaks;
T9D	;Verschuldigde inschrijvingstaks;
T10D	;Total;
T11D	;Abzugsfähige MwSt;
T12D	;Aftrekbare egalisatie;
T13D	;Aftrekbare luxetaks;
T14D	;Aftrekbare inschrijvingstaks;
	;
S1	S INH=^(BR) I PTS'=4,LN+5>LNMAX I PTS'=4 S END=4 D ^cA334,8
S1Z	Q
	;
1	S (BR,DEB,CRD)=0,FC=2
11	I PTS'=4 S HD(1)=D,HD(2)=D_MNM_" ;;F82",HD(3)=D_TITEL
13	S TAB="97\114\131" K TIT,AFS
14	D 8
2	S TXT(1)=$P($T(@("T5"_QT)),U,2),TXT(2)=KF_"\\\\1\"_QD,DEB=DEB+KF,TXT(3)="" D ^cA334
21	S BR=$O(^HULP(boot,$J,1,BR)) I $L(BR) D S1 S CRD=CRD+INH S TXT(1)="   "_BR_" "_$E($P(@Q41,D,2),1,38),TXT(2)="",TXT(3)=INH_"\\\\1\"_QD D ^cA334 G 21
23	I BTF S TXT(1)="   "_$P($T(@("T6"_QT)),U,2),TXT(2)="",R=BTF,CRD=CRD+R S TXT(3)=R_"\\\\1\"_QD D ^cA334
25	I EGF S TXT(1)="   "_$P($T(@("T7"_QT)),U,2),TXT(2)="",R=EGF,CRD=CRD+R S TXT(3)=R_"\\\\1\"_QD D ^cA334
27	I LTF S TXT(1)="   "_$P($T(@("T8"_QT)),U,2),TXT(2)="",R=LTF,CRD=CRD+R S TXT(3)=R_"\\\\1\"_QD D ^cA334
28	I BAIT,ITF S TXT(1)=$P($T(@("T9"_QT)),U,2),TXT(2)="",R=ITF,CRD=CRD+R S TXT(3)=R_"\\\\1\"_QD D ^cA334
29	D 7 S END=4 D ^cA334
	;
3	S (BR,DEB,CRD)=0,FC=3
	I PTS'=4 S HD(1)=D,HD(2)=D_MNM_" ;;F82",HD(3)=D_TITEL
	S TAB="97\114\131"
	D 8
31	S BR=$O(^HULP(boot,$J,0,BR)) I $L(BR) D S1 S DEB=DEB+INH S TXT(1)="   "_BR_" "_$E($P(@Q41,D,2),1,38),TXT(2)=INH_"\\\\1\"_QD,TXT(3)="" D ^cA334 G 31
33	I BTC S TXT(1)="   "_$P($T(@("T11"_QT)),U,2),R=BTC,DEB=DEB+R S TXT(2)=R_"\\\\1\"_QD,TXT(3)="" D ^cA334
35	I EGC S TXT(1)="   "_$P($T(@("T12"_QT)),U,2),R=EGC,DEB=DEB+R S TXT(2)=R_"\\\\1\"_QD,TXT(3)="" D ^cA334
37	I LTC S TXT(1)="   "_$P($T(@("T13"_QT)),U,2),R=LTC,DEB=DEB+R S TXT(2)=R_"\\\\1\"_QD,TXT(3)="" D ^cA334
38	I BAIT,ITC S TXT(1)="   "_$P($T(@("T14"_QT)),U,2),R=ITC,DEB=DEB+R S TXT(2)=R_"\\\\1\"_QD,TXT(3)="" D ^cA334
39	S TXT(1)="   "_$P($T(@("T5"_QT)),U,2),TXT(2)="",R=KC,CRD=CRD+R,TXT(3)=R_"\\\\1\"_QD D ^cA334
	;
4	D 7 S END=$S(SWAV&$D(^HULP(boot,$J+.01)):4,1:2) D ^cA334 G Y
	;
7	S TXT(1)="",TXT(2)="----------------",TXT(3)="----------------" D ^cA334
71	S TXT(1)=$P($T(@("T10"_QT)),U,2),TXT(2)=DEB_"\\\\1\"_QD,TXT(3)=CRD_"\\\\1\"_QD D ^cA334
73	Q  ; S END=4 D ^cA334 Q
	;
Y	D ^cT282:SWAV&$D(^HULP(boot,$J+.01)) K ^HULP(boot,$J),^($J+.01) G:'SWD&'SWU Y^cT28
YZ	S END=6 D ^cA334 Q
	;
8	S TXT(1)=$P($T(@("T4"_QT)),U,2)_$P($T(@("T2"_QT)),U,FC),TXT(2)="",TXT(3)="" D ^cA334
81	S TXT(1)="",TXT(2)=$P($T(@("T3"_QT)),U,2),TXT(3)=$P($T(@("T3"_QT)),U,3) D ^cA334
82	S TXT(1)="",TXT(2)="-----------------",TXT(3)="-----------------" D ^cA334 Q
	;
Z	X ^cZ Q
ZZ	; 15.12.05 - 12 u 16 * V8.05