cTN88321 ;Aankoopdagboek ;%T32 ;%T32* ; [ 02/06/09 15:50:40 ] G 1 ; T0 ;Aankoopdagboek ; 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; ; T0F ;Journal des achats ; 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; ; T0E ;Purchase journal ; 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; ; T0D ;Einkaufsjournal ; 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; ; ; overzicht: dagboek naar file printen DEV S DEV=$$HFS^cQ9 I DEV<51!(DEV>54) S DEV=0 G DEVZ:$ZV["MSM",DEVD DEVA S I=Q_"AA.TXT" DEVB O DEV:(I:"W"):2 E S DEV=0 G DEVZ DEVC U DEV:(I:"W") G DEVZ DEVD S DEV=$$INFO^cQ5 O DEV:("WNS"):2 E S DEV=0 ; Caché DEVE I DEV'=0 U DEV DEVZ Q ; ;journaalpost - wordt nu per journaal afgedrukt - FB - 10.12.02 ; 1 I SRT'="A",OVZ,$g(DEV)'="" C DEV U PRINTER S (BLZ,LN)=0 K DEV,FAX,PRINTER K A D S2 K TIT(1),TIT(2),AFS(1),AFS(2),TXT 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^cTN8832($S(BTWNR'=0:BTWNR,1:$$SIG^cAFA1("Q",Q,207))) 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,"JRN",JRN,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,"JRN",JRN,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("JRN",JRN,1,6) S TXT(5)=A("JRN",JRN,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("JRN",JRN,1,9) ; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.) S TXT(5)=A("JRN",JRN,2,9) I TXT(2)!TXT(5) D S1,^cA334 ; 3 S TXT(1)=$P($T(@("T6"_QT)),U,2),TXT(3)=A("JRN",JRN,1,2) S TXT(4)=A("JRN",JRN,2,2),(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,"JRN",JRN,"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,"JRN",JRN,"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,"JRN",JRN,"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,"JRN",JRN,"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,"JRN",JRN,7,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,"JRN",JRN,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,"JRN",JRN,14,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,"JRN",JRN,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,"JRN",JRN,13,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,"JRN",JRN,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,"JRN",JRN,15,"F"),TXT(3)=^("C") S TXT(4)=^HULP(boot,$J+.04,"JRN",JRN,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 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,3) S TXT(2)=^HULP(boot,$J+.03,"JRN",JRN,"I","F"),TXT(3)=^("C") S TXT(4)=TXT(2)-TXT(3) D S5,^cA334 71 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,2) S TXT(2)=^HULP(boot,$J+.03,"JRN",JRN,"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,"JRN",JRN,"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,"JRN",JRN,"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,"JRN",JRN," ","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,"JRN",JRN,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 D . S A("JRN",JRN,I,J)=$G(AFSLUIT(I,J)) . S ^HULP(boot,$J,BTWNR,"AFS",I,J)=$G(^HULP(boot,$J,BTWNR,"AFS",I,J))+$G(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