cT322 ;Aankoopdagboek : eindoverzicht alle journalen ;%T32 ;%T32* ; [ 26/11/09 14:29:08 ] G 1 ; T0 ;Aankoopdagboek : eindoverzicht alle journalen; T1 ;\ Algemeen totaal der facturen;;1\\ Algemeen totaal der creditnota's;;1\; T2 ;\Debet;2\Credit;2\Debet;2\Credit;2; T3 ;Eindtotaal facturen;Eindtotaal creditnota's; T4 ;Onroerende Heffing;Intracommunautair;Medecontractant;Verlegging; T5 ;Goederen;Investeringen;Diensten;Andere;Aftrekbare BTW;Niet-aftrekbare BTW;Aftrekbare BTW overige; T6 ;Leveranciers;BTW ;Maatstaf ;Overige; T7 ;\Facturen;2\Creditnota's;2\Niet-aftrekbare BTW;2\Totaal;2; T8 ;Eindoverzicht alle journalen; T9 ;Goederen;Diensten; ; T0F ;Journal des achats : aperçu final tous les journeaux; T1F ;\ Total général des factures;;1\\ Total général des notes de crédit;;1\; T2F ;\Débit;2\Crédit;2\Débit;2\Crédit;2; T3F ;Total final des factures;Total final des notes de crédit; T4F ;Immobilière;Intracommunautaire;Cocontractant;Report de perception; T5F ;Marchandises;Investissements;Services;Autres;TVA déductible;TVA non déductible;TVA déductible rest.; T6F ;Fournisseurs;TVA ;Mesure de tax. ;restant; T7F ;\Factures;2\Notes de crédit;2\TVA non déductible;2\Total;2; T8F ;Aperçcu final tous les journeaux; T9F ;Marchandises;Services; ; T0E ;Purchase journal : final summary all journals; T1E ;\ Overall total of the invoices;;1\\ Overall total of the credit notes;;1\; T2E ;\Debit;2\Credit;2\Debit;2\Credit;2; T3E ;Final total invoices;Final total credit notes; T4E ;Immovable charges;Intracommunity;Co-contractor;Transferred charges; T5E ;Goods;Investments;Services;Other;Deductible VAT;Non deductible VAT;Other deductible VAT; T6E ;Suppliers;VAT ;VAT basis ;Remain.; T7E ;\Invoices;2\Credit notes;2\Non deductible VAT;2\Total;2; T8E ;Final summary all journals; T9E ;Goods;Services; ; T0D ;Einkaufsjournal : Schlussübersicht alle Journale; T1D ;\ Gesamttotal der Rechnungen;;1\\ Gesamttotal der Gutschriften;;1\; T2D ;\Soll ;2\Haben ;2\Soll ;2\Haben ;2; T3D ;Schlusstotal Rechnungen;Schlusstotal Gutschriften; T4D ;Onroerende Heffing;Intracommunautair;Medecontractant;Verlegging; T5D ;Waren;Investitionen;Dienstleistungen;Andere;abzugsfähige MWST;Nicht-abzugsfähige MWST;abzugsfähige MWST Ubrige; T6D ;Lieferanten;MWST ;Steuerbasis ;Andere; T7D ;\Rechnungen;2\Gutchriften;2\Nicht-abzugsfähige MWST;2\Total;2; T8D ;Schlussübersicht alle Journale; T9D ;Waren;Diensten; ; ; journaalpost ; nieuw programma, afgeleid van cT321 - eindjournaalpost over alle journalen ; FB - 10.12.02 1 K A D S2 K TIT(1),TIT(2),AFS(1),AFS(2),TXT S HD(3)=D_$P($T(@("T8"_QT)),U,2)_";C;F82" 11 S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99) S TAB="48\69\90\111\131" S TOP(1,1)=$$BTW^cAFO1($S(BTWNR'=0:BTWNR,1:$P($G(@("^"_Q_"BTW(0,0)")),D,7))) 13 S AFS(1,1)=$P($T(@("T3"_QT)),U,2)_"\\10",AFS(2,1)=$P($T(@("T3"_QT)),U,3)_"\\10" ; 2 S TXT(1)=$P($T(@("T5"_QT)),U,2),TXT(2)=^HULP(boot,$J,BTWNR,7,"F") S TXT(5)=^("C"),(TXT(3),TXT(4))="" I TXT(2)!TXT(5) D S1,^cA334 21 F J=14,13,15 S TXT(1)=$P($T(@("T5"_QT)),U,J-10),TXT(2)=^HULP(boot,$J,BTWNR,J,"F"),TXT(5)=^("C") I TXT(2)!TXT(5) D S1,^cA334 23 S TXT(1)=$P($T(@("T5"_QT)),U,6),TXT(2)=A(1,6),TXT(5)=A(2,6) I TXT(2)!TXT(5) D S1,^cA334 25 S TXT(1)=$P($T(@("T5"_QT)),U,7+$G(AFBTWA)),TXT(2)=A(1,9),TXT(5)=A(2,9) ; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.) I TXT(2)!TXT(5) D S1,^cA334 ; 3 S TXT(1)=$P($T(@("T6"_QT)),U,2),TXT(3)=A(1,2),TXT(4)=A(2,2) S (TXT(2),TXT(5))="" I TXT(3)!TXT(4) D S3,^cA334 31 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,3) S TXT(3)=^HULP(boot,$J+.02,BTWNR,"I","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334 33 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,2) S TXT(3)=^HULP(boot,$J+.02,BTWNR,"O","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334 35 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,4) S TXT(3)=^HULP(boot,$J+.02,BTWNR,"M","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334 37 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,5) S TXT(3)=^HULP(boot,$J+.02,BTWNR,"V","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334 39 S END=2 D ^cA334 ; ;uitsplitsing GOE, DIE, INV, AND 4 K TIT(1),TIT(2),AFS(1),AFS(2),TXT 41 S TIT(1)=$P($T(@("T7"_QT)),U,2,99),(TOP(1,1),TOP(2,1))="",END=8 D ^cA334 ; 5 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,2) S TXT(2)=^HULP(boot,$J+.01,BTWNR,7,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,BTWNR,7) I $G(AFBTWA) S TXT(4)="" ; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.) S TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334 51 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,4) S TXT(2)=^HULP(boot,$J+.01,BTWNR,14,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,BTWNR,14) I $G(AFBTWA) S TXT(4)="" ; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.) S TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334 53 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,3) S TXT(2)=^HULP(boot,$J+.01,BTWNR,13,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,BTWNR,13) I $G(AFBTWA) S TXT(4)="" ; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.) S TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334 55 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,5) S TXT(2)=^HULP(boot,$J+.01,BTWNR,15,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,BTWNR,15) I $G(AFBTWA) S TXT(4)="" ; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.) S TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334 57 S END=2 D ^cA334 ; ;uitsplitsing OH, IC, MC, VL 6 K AFS(1),TOP,TXT 61 S TIT(1)=$P(TIT(1),D,1,3)_D_$P(TIT(1),D,5),TAB=$P(TAB,D,1,4),END=8 D ^cA334 ; 7 I BP<2010 D ; Voor 2010 . S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,3) . S TXT(2)=^HULP(boot,$J+.03,BTWNR,"I","F"),TXT(3)=^("C") . S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 I BP>2010 D ; Vanaf 2010 . S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,3)_$P($T(@("T9"_QT)),U,2) . S TXT(2)=$G(^HULP(boot,$J+.03,BTWNR,"IG","F")),TXT(3)=$G(^("C")) . S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 . S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,3)_$P($T(@("T9"_QT)),U,3) . S TXT(2)=$G(^HULP(boot,$J+.03,BTWNR,"ID","F")),TXT(3)=$G(^("C")) . S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 71 I '$L($G(^HULP(boot,$J+.03,BTWNR,"O","F"))),'$L($G(^HULP(boot,$J+.03,BTWNR,"O","C"))) G 73 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,2) S TXT(2)=^HULP(boot,$J+.03,BTWNR,"O","F"),TXT(3)=^("C") S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 73 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,4) S TXT(2)=^HULP(boot,$J+.03,BTWNR,"M","F"),TXT(3)=^("C") S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 75 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,5) S TXT(2)=^HULP(boot,$J+.03,BTWNR,"V","F"),TXT(3)=^("C") S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 77 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T6"_QT)),U,5) S TXT(2)=^HULP(boot,$J+.03,BTWNR," ","F"),TXT(3)=^("C") S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 79 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,5) S TXT(2)=^HULP(boot,$J+.01,BTWNR,15,"F"),TXT(3)=^("C") S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 ; Y S END=4 D ^cA334 YZ Q ; S1 S $P(TXT(1),D,3)=1 F I=5,8 S $P(TXT(2),D,I)=1 S1A S $P(TXT(5),D,5)=1,$P(TXT(5),D,8)=2 S1B F I=2,5 S $P(TXT(I),D,6)=QD I 'TXT(I) S TXT(I)="" S1Z Q ; S2 F I=1,2 F J=2:1:9 S A(I,J)=$G(^HULP(boot,$J,BTWNR,"AFS",I,J)) S2Z Q ; S3 S $P(TXT(1),D,3)=6 F I=5,8 S $P(TXT(3),D,I)=1 S3A S $P(TXT(4),D,5)=1,$P(TXT(4),D,8)=2 S3B F I=3,4 S $P(TXT(I),D,6)=QD I 'TXT(I) S TXT(I)="" S3Z Q ; S5 S $P(TXT(1),D,3)=1 F I=2:1:5 F J=5,8 S $P(TXT(I),D,J)=1,$P(TXT(I),D,6)=QD S:'TXT(I) TXT(I)="" S5Z Q ; ZZ ; 04.04.05 - 14 u 29 * V8.03