cT320	;Aankoopdagboek ;%T32 ;%T32* ;        [ 26/11/09  14:28:16 ]
	G 1
	;
T0	;Aankoopdagboek ;
T1	;Factuur/ Datum Nummer + naam\Totaal;2\Goe/Die/Inv/And;;1\\Maatstaf;2\Aftrekbare;2\Uitsplitsing;;1\\Niet-aftr.;2\I;
T2	;Creditn.       van de leverancier\document;2\S\Bedrag;2\van heffing;2\BTW;2\S\BTW-bedrag;2\BTW;2\C;
T3	;Facturen;Creditnota's;Overdracht ;Eindtotaal ;
T4	;G;D;I;A;
T5	;O;I;M;V;
T6	;Journaal;
T7	;Aftrekbare;2
T8	;BTW overige;2
	;
T0F	;Journal des achats ;
T1F	;Facture/ Date  Numéro + nom \Total;2\Mar/Ser/Inv/Aut;;1\\Mesure;2\TVA;2\Répartition;;1\\TVA;2\I;
T2F	;N.Crédit       du fournisseur\document;2\G\Montant;2\de taxation;2\Déduct.;2\G\Mont. TVA;2\Non déduct;2\C;
T3F	;Factures;Notes de crédit;Transfert ;Total final ;
T4F	;M;S;I;A;
T5F	;M;I;C;R;
T6F	;Journal;
T7F	;TVA;2
T8F	;Déduct. rest.;2
	;
T0E	;Purchase journal ;
T1E	;Invoice/ Date  Number + name\Total;2\Goo/Ser/Inv/Oth;;1\\Basis;2\Deductible;2\Categoriz.;;1\\Non deduc.;2\I;
T2E	;Credit n       of the supplier\document;2\S\Amount;2\of taxation;2\V.A.T.;2\S\VAT amount;2\V.A.T.;2\C;
T3E	;Invoices;Credit notes;Transfer   ;Final total;
T4E	;G;S;I;O;
T5E	;M;I;C;V;
T6E	;Journal;
T7E	;Deductible;2
T8E	;V.A.T. rem.;2
	;
T0D	;Einkaufsjournal ;
T1D	;Rechg/ Datum   Nummer + Name\Total;2\War/DL/Inv/And.;;1\\Steuer-;2\MWST;2\Aufteilung;;1\\MWST.;2\I;
T2D	;Gutschr.       des Lieferanten \Beleg;2\S\Betrag;2\belastung;2\Abzug;2\S\MWST-betrag;2\Nicht abz;2\C;
T3D	;Rechnungen;Gutschriften;Übertrag ;Schlusstotal ;
T4D	;W;D;I;A;
T5D	;O;I;M;V;
T6D	;Journal;
T7D	;MWST;2
T8D	;Ubrige;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
	;
	; FB/KO - 10.12.02 - "alleen eindoverzicht" werkte niet zonder X F70
1	X F70 W:($G(PTS)'=3) @F80 I OVZ S PRINTER=$I D DEV I DEV'=0 S FAX=1 ; ivm %A334
	; I OVZ S PRINTER=$I D DEV I DEV'=0 S FAX=1 ; ivm %A334
10	S HD(1)=D,HD(2)=D_MNM_";C;F82",HD(3)=D
	; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.)
	S AFBTWA="" I $L($G(@("^"_Q_"BA(15,20)"))) S AFBTWA=1
	;		
11	S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99) 
	; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.)
	; Niet-aftrekbare BTW wordt vervangen door Aftrekbare BTW overige
	I AFBTWA D
	. S $P(TIT(1),D,9)=$P($T(@("T7"_QT)),U,2,99)	
	. S $P(TIT(2),D,9)=$P($T(@("T8"_QT)),U,2,99)
	;
	S TAB="43\58\60\75\90\105\107\118\129\131"
13	S AFS(1,1)=$P($T(@("T3"_QT)),U,4)_$P($T(@("T3"_QT)),U,2)_"\\9" 
	S AFS(2,1)=$P($T(@("T3"_QT)),U,4)_$P($T(@("T3"_QT)),U,3)_"\\9"
	K A
	;
	; opbouwen ^HULP(boot,$j+.99,... per journaal (FB - 10.12.02)
	; 
131	K ^HULP(boot,$J+.99) S I1=""
	F  S I1=$O(@Q6) Q:I1=""  I I1'["." D
	. S INH=^(I1),JRN=$P(INH,D,21) S:'JRN JRN=0 
	. I SRT="A"!(JRN=SRT) S ^HULP(boot,$J+.99,JRN,I1)=INH
	;
	; aflopen ^HULP(boot,$J+.99,... voor afdruk per journaal (FB - 10.12.02)
	; 
14	S JRN=""
141	S JRN=$O(^HULP(boot,$J+.99,JRN)) G 9:JRN="" S I1="",Q6="^HULP(boot,$J+.99,JRN,I1)"
143	K A,TOP,AFS(1),AFS(2),AFSLUIT(1),AFSLUIT(2)
	S HD(1)=D,HD(2)=D_MNM_";C;F82",HD(3)=D
	S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99) 
	; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.)
	; Niet-aftrekbare BTW wordt vervangen door Aftrekbare BTW overige
	I AFBTWA D
	. S $P(TIT(1),D,9)=$P($T(@("T7"_QT)),U,2,99)	
	. S $P(TIT(2),D,9)=$P($T(@("T8"_QT)),U,2,99)
	;
	S JRNCODE="A"_$S('JRN:"",1:$E("000",1,3-$L(JRN)))_$S('JRN:"",1:JRN)
	S JRNOMS=$P(@("^"_Q_"BA(""%T"",JRNCODE)"),D,2)_" "_$P(^(JRNCODE),D)
	S HD(3)=D_$P($T(@("T6"_QT)),U,2)_" "_JRN_" : "_JRNOMS_";C;F82"
	S TAB="43\58\60\75\90\105\107\118\129\131"
	F I=0:1:4 K ^HULP(boot,I/100+$J,"JRN",JRN)
	F I="O","I","M","V"," " F J=2,3 S ^HULP(boot,J/100+$J,"JRN",JRN,I,"F")="",^("C")=""
	F I=7,13:1:15 S ^HULP(boot,$J+.04,"JRN",JRN,I)=0 F J=0,1 S ^HULP(boot,J/100+$J,"JRN",JRN,I,"F")=0,^("C")=0
	;
	;dagboek
2	S I1=$O(@Q6) G 7:'$L(I1),2:I1#1 S Z=^(I1) G 2:$P(Z,D,21)-SRT&(SRT'="A")
	; GM 17.01.04 Aanpassingen ivm "Aftrekbare BTW overige" (Hannecard Zw.)
	I AFBTWA S $P(Z,D,9)=$P(Z,D,38)
	;
21	S BTWNR=$P(Z,D,36) S:'$L(BTWNR) BTWNR=0
	S ^HULP(boot,$J,"BTW",BTWNR)=""
	S:'$D(TOP) TOP(1,1)=$$BTW^cAFO1($S(BTWNR'=0:BTWNR,1:$P($G(@("^"_Q_"BTW(0,0)")),D,7)))
	F I=7,13:1:15 D
	. S:'$D(^HULP(boot,$J+.04,BTWNR,I)) ^(I)=0 F J=0,1 S:'$D(^HULP(boot,J/100+$J,BTWNR,I,"F")) ^("F")=0,^("C")=0
	S K=0,A(BTWNR,1)=7,A("JRN",JRN,1)=7 
	F I="O","I","M","V"," " F J=2,3 S:'$D(^HULP(boot,J/100+$J,BTWNR,I,"F")) ^("F")="",^("C")=""
	F I=7,14,13,15 S X=$P(Z,D,I) I +X!+$P(X,"#",2) S K=K+1,A(BTWNR,K)=I,A("JRN",JRN,K)=I
23	I $D(LN),$D(LNMAX),LN+$S(K:K,1:1)>LNMAX S END=4 D ^cA334
25	S FC=$P(Z,D),KC=$P(Z,D,4),B(1)=@("^"_Q_"LE(^"_Q_"L1(KC),0)") F I=1:1:10 S TXT(I)=""
	;
	;optelling
3	F I=7,13:1:15 D
	. S ^(FC)=$G(^HULP(boot,$J,"JRN",JRN,I,FC))+$P(Z,D,I)
	. S ^(FC)=$G(^HULP(boot,$J,BTWNR,I,FC))+$P(Z,D,I) 
	. S ^(FC)=$G(^HULP(boot,$J+.01,"JRN",JRN,I,FC))+$P($P(Z,D,I),"#",2)
	. S ^(FC)=$G(^HULP(boot,$J+.01,BTWNR,I,FC))+$P($P(Z,D,I),"#",2)
31	F I=7,14,13,15 I +$P($P(Z,D,I),"#",2) S ^(I)=$G(^HULP(boot,$J+.04,"JRN",JRN,I))+(FC="F"*2-1*$P(Z,D,9)) Q
	F I=7,14,13,15 I +$P($P(Z,D,I),"#",2) S ^(I)=$G(^HULP(boot,$J+.04,BTWNR,I))+(FC="F"*2-1*$P(Z,D,9)) Q
33	I BP<2010 D     ; KU : vóór 2010
	. S ^(FC)=$G(^HULP(boot,$J+.03,"JRN",JRN,$S($P(Z,D,11):"O",$P(Z,D,12):"I",$P(Z,D,16):"V",$P(Z,D,17):"M",1:" "),FC))+$P($P(Z,D,6),"#",2)   ; Maatstaf
	. S ^(FC)=$G(^HULP(boot,$J+.03,BTWNR,$S($P(Z,D,11):"O",$P(Z,D,12):"I",$P(Z,D,16):"V",$P(Z,D,17):"M",1:" "),FC))+$P($P(Z,D,6),"#",2)       ; Maatstaf
331	I BP>2010 D     ; KU BTW-wijzigingen vanaf 2010  
	. I $P(Z,D,12) D  Q    ; opsplitsen intracomm. in goederen en diensten
	.. I +$P($P(Z,D,7),"#",2) S ^(FC)=$G(^HULP(boot,$J+.03,"JRN",JRN,"IG",FC))+$P($P(Z,D,7),"#",2)     ; Maatstaf Goederen
	.. I +$P($P(Z,D,7),"#",2) S ^(FC)=$G(^HULP(boot,$J+.03,BTWNR,"IG",FC))+$P($P(Z,D,7),"#",2)         ; Maatstaf Goederen
	.. I +$P($P(Z,D,14),"#",2) S ^(FC)=$G(^HULP(boot,$J+.03,"JRN",JRN,"ID",FC))+$P($P(Z,D,14),"#",2)   ; Maatstaf Diensten
	.. I +$P($P(Z,D,14),"#",2) S ^(FC)=$G(^HULP(boot,$J+.03,BTWNR,"ID",FC))+$P($P(Z,D,14),"#",2)       ; Maatstaf Diensten
	.. ; Maatstaf investeringen 
	.. I '$L($P(Z,D,41))!'+$P($P(Z,D,13),"#",2) Q
	.. S ^(FC)=$G(^HULP(boot,$J+.03,"JRN",JRN,"I"_$P("G\D",D,$P(Z,D,41)+1),FC))+$P($P(Z,D,13),"#",2)   ; Maatstaf Goederen/Diensten
	.. S ^(FC)=$G(^HULP(boot,$J+.03,BTWNR,"I"_$P("G\D",D,$P(Z,D,41)+1),FC))+$P($P(Z,D,13),"#",2)       ; Maatstaf Goederen/Diensten
	. ;
	. S ^(FC)=$G(^HULP(boot,$J+.03,"JRN",JRN,$S($P(Z,D,11):"O",$P(Z,D,16):"V",$P(Z,D,17):"M",1:" "),FC))+$P($P(Z,D,6),"#",2)   ; Maatstaf
	. S ^(FC)=$G(^HULP(boot,$J+.03,BTWNR,$S($P(Z,D,11):"O",$P(Z,D,16):"V",$P(Z,D,17):"M",1:" "),FC))+$P($P(Z,D,6),"#",2)       ; Maatstaf
35	F I=11,12,16,17 S ^(FC)=$G(^HULP(boot,$J+.02,"JRN",JRN,$S(I=11:"O",I=12:"I",I=16:"V",1:"M"),FC))+$P(Z,D,I)  ; BTW
	F I=11,12,16,17 S ^(FC)=$G(^HULP(boot,$J+.02,BTWNR,$S(I=11:"O",I=12:"I",I=16:"V",1:"M"),FC))+$P(Z,D,I)      ; BTW
	;
	;printen
4	S TXT(1)=FC_" "_I1_" "_$E($P(Z,D,2),1,5)_" "_KC_" "_$P(B(1),D,2),TXT(2)=+$P(Z,D,6)
41	S TXT(6)=$P(Z,D,8) F I=11,12,16,17 I $P(Z,D,I) S TXT(7)=$P($T(@("T5"_QT)),U,$S(I=11:2,I=12:3,I=16:5,1:4)),TXT(8)=$P(Z,D,I) Q
43	S TXT(9)=$P(Z,D,9),TXT(10)="" I I=12 S TXT(10)=1
45	S X=$O(A("JRN",JRN,"")) G 2:X="" S Y=A("JRN",JRN,X),TXT(3)=$P($T(@("T4"_QT)),U,$S(Y=7:2,Y=14:3,Y=13:4,1:5))
47	S TXT(4)=+$P(Z,D,Y),TXT(5)=$P($P(Z,D,Y),"#",2) K A("JRN",JRN,X)
49	F I=2,4,5,6,8,9 S $P(TXT(I),D,5)=1,$P(TXT(I),D,6)=QD,$P(TXT(I),D,8)=(FC="C"+1) S AFSLUIT((FC="C"+1),I)=$G(AFSLUIT((FC="C"+1),I))+$P(TXT(I),D) I 'TXT(I) S:I>2!(X>1) TXT(I)="",AFSLUIT((FC="C"+1),I)=$G(AFSLUIT((FC="C"+1),I))+$P(TXT(I),D)
	;
5	D ^cA334 F I=1:1:10 S TXT(I)=""
51	G 45
	;
	; afsluiting per journaal
7	S AFS(1,1)=$P($T(@("T3"_QT)),U,5)_$P($T(@("T3"_QT)),U,2)_"\\9" 
	S AFS(2,1)=$P($T(@("T3"_QT)),U,5)_$P($T(@("T3"_QT)),U,3)_"\\9" 
	S END=4 D ^cA334
73	D:(PTS'=3) ^cT321
	;
	G 141             ; volgend journaal uit ^HULP(boot,$J+.99,... - FB - 10.12.02
	;       
	; afsluiting per BTW - nummer over alle journalen - FB - 10.12.02
	;
9	I OVZ,$D(DEV) C DEV O PRINTER U PRINTER S (BLZ,LN)=0 K DEV,FAX,PRINTER
	I SRT'="A" G YZ   ; niet alle journalen gekozen -> geen eindoverzicht
	S BTWNR=""
91	S BTWNR=$O(^HULP(boot,$J,"BTW",BTWNR)) G YZ:BTWNR=""
	D ^cT322   ; eindoverzicht over alle journalen, per BTW - nummer
	G 91       ; volgend BTW - nummer
	;
YZ	S END=6 D ^cA334 Q
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03