cTN8832(BM,MAP,DMS)	; Aankoopdagboek ; cTN8832              [ 01/12/09  08:47:35 ]
	;
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
	;
1	S OVZ=0
	S REFDB=$$REF^cAFA10(Q,"DB")
	S UREFDB=$P(REFDB,D),IREFDB=$P(REFDB,D,3)       ; UREF/IREF voor ^DBH(Q,"DB"
	S UREFDB=$$REPL^cAFA10(UREFDB,"UI1","UI1DB")
	S REFLEA=$$REF^cAFA10(Q,"LE.A")
	S UREFLEA=$P(REFLEA,D)                          ; UREF voor ^DLE(,"LE.A"
	S UREFLEA=$$REPL^cAFA10(UREFLEA,"UI1","UI1LEA")
	S REFJRN=$$REF^cAFA10(Q,"JRN")
	S UREFJRN=$P(REFJRN,D)                          ; UREF voor ^DBH(,"JRN"
	S UREFJRN=$$REPL^cAFA10(UREFJRN,"UI1","UI1JRN")
	S REFBTW=$$REF^cAFA10(Q,"CODE.9032")
	S UREFBTW=$P(REFBTW,D)
	S UREFBTW=$$REPL^cAFA10(UREFBTW,"UI1","UI1BTW")
	S SRT="A"
	S AFBTWA=""
	;
	D S1BTW  ; opbouwen variable PBTW vanuit CODE.9011
	;
	S BP=BM ; $E(BM,1,4)_"."_$E(BM,5,6)
	S BM=$TR(BM,".")
	S MNM=$P($T(@("T0"_QT)),U,2)_": "_^cBA(2,$E(QT_"N"),BP#1*100)_" "_(BP\1)
	S HD(1)=D,HD(2)=D_MNM_";C;F82",HD(3)=D
	S TIT(1)=$P($T(@("T1"_QT)),U,2,99)
	S TIT(2)=$P($T(@("T2"_QT)),U,2,99)
	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
	K ^HULP(boot,$J),^HULP(boot,$J+.01),^HULP(boot,$J+.99)
	;
	S UI1DB="A"
11	S UI1DB=$O(@IREFDB@("M7",Q,BM,UI1DB)) G 14:UI1DB=""
	S TYPE=$P(UI1DB," ")
	I TYPE'="A" G 11  ; alleen Aankopen beschouwen
	S NULDB=@UREFDB@(0),EENDB=^(1),DRIEDB=^(3)
	S FNR=$P(NULDB,D,3)
	S UI1JRN=$P(NULDB,D,2),JRN=$P(@UREFJRN@(0),D,3)  ; journaalnummer
	S FC=$P(NULDB,D,23)
	S UI1LEA=$P(NULDB,D,10)
	S KC=$P(@UREFLEA@(0),D),KN=$P(^(0),D,2)
	S INH=""
	S $P(INH,D)=FC
	S $P(INH,D,2)=$P(NULDB,D,7)            ; factuurdatum
	S $P(INH,D,3)=$P(NULDB,D,8)            ; vervaldatum
	S $P(INH,D,4)=KC                       ; leveranciernummer
	S $P(INH,D,5)=KN                       ; naam leverancier
	S $P(INH,D,6)=$FN($P(NULDB,D,16),"-")_"#"_$FN($P(DRIEDB,D,5),"-")
	S $P(INH,D,7)=$FN($P(DRIEDB,D),"-")_"#"_$FN($P(DRIEDB,D,6),"-")
	S $P(INH,D,8)=$FN($P(DRIEDB,D,10),"-")
	S $P(INH,D,9)=$FN($P(DRIEDB,D,11),"-")
	S UI1BTW=$P(DRIEDB,D,12)
	I UI1BTW,$E($P(@UREFBTW@(0),D))="I" S $P(INH,D,12)=$FN($P(DRIEDB,D,13),"-")
	I UI1BTW,$E($P(@UREFBTW@(0),D))="V" S $P(INH,D,16)=$FN($P(DRIEDB,D,13),"-")
	S $P(INH,D,13)=$FN($P(DRIEDB,D,3),"-")_"#"_$FN($P(DRIEDB,D,8),"-")
	S $P(INH,D,14)=$FN($P(DRIEDB,D,2),"-")_"#"_$FN($P(DRIEDB,D,7),"-")
	S $P(INH,D,15)=$FN($P(DRIEDB,D,4),"-")_"#"_$FN($P(DRIEDB,D,9),"-")	
	S $P(INH,D,21)=JRN                     ; journaalnummer
	S $P(INH,D,22)=UI1LEA
	S ^HULP(boot,$J+.99,JRN,FNR)=INH
	;
	G 11
	;
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 UI1JRN=$$UI1OP^cAFA1("JRN","M6","","EA",JRN)
	S JRNOMS=$P(@UREFJRN@(0),D,2+((QTU-1)*10))
	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")=0,^("C")=0
	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($S(BTWNR'=0:BTWNR,1:$$SIG^cAFA1("Q",Q,207)))
	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")=0,^("C")=0
	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)
	S UI1LEA=$P(Z,D,22)
	S B(1)=@UREFLEA@(0),BN=$P(B(1),D,16)
	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	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)
	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)
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)
	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)
	;
	;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) ^cTN88321
	;
	G 141             ; volgend journaal uit ^HULP(boot,$J+.01,... - 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
	G YZ:'$D(^HULP(boot,$J,"BTW"))
91	S BTWNR=$O(^HULP(boot,$J,"BTW",BTWNR)) G Y:BTWNR=""
	D ^cTN88322   ; eindoverzicht over alle journalen, per BTW - nummer
	G 91       ; volgend BTW - nummer
	;
Y	S END=6 D ^cA334 
YZ	F I=0:1:4 K ^HULP(boot,I/100+$J)
	K ^HULP(boot,$J+.99)
	Q
	;
	; printen detaillijn + totaliseren per BTW-nummer
PRINTD	D ^cA334
	S K=1 F  S K=$O(TXT(K)) Q:K=""  I $P(TXT(K),D,8) D
	. S A(BTWNR,$P(TXT(K),D,8),K)=$G(A(BTWNR,$P(TXT(K),D,8),K))+TXT(K)
	. S AA(BTWNR,$P(TXT(K),D,8),K)=$G(AA(BTWNR,$P(TXT(K),D,8),K))+TXT(K)
PRINTDZ	Q
	;
	; correctie TXT ivm printen
S1	S $P(TXT(1),D,3)=6
	F I=5,8 S $P(TXT(3),D,I)=1
	S $P(TXT(4),D,5)=1,$P(TXT(4),D,8)=2
	F I=3,4 S $P(TXT(I),D,6)=QD I 'TXT(I) S TXT(I)=""
S1Z	Q
	;
	; I2=BTW-code ; I3=aanduiding IC (0=neen <> 1=ja)
S3	F I3=0,1 S X=^HULP(boot,$J,BTWNR,I2,I3,"F"),Y=^("C") I X!Y D
	. S TXT(1)=$P($T(@("T5"_QT)),U,7)_PBTW(I2)_$P($T(@("T5"_QT)),U,10-I3)
	. S TXT(3)=X,TXT(4)=Y D S1,^cA334
S3Z	Q
	; I2=BTW-code ; I3=aanduiding IC (0=neen <> 1=ja)
	; wordt alleen gebruikt voor eindoverzicht alle journalen
S4	F I3=0,1 S X=$G(^HULP(boot,$J,"EIND",BTWNR,I2,I3,"F")),Y=$G(^("C")) I X!Y D
	. S TXT(1)=$P($T(@("T5"_QT)),U,7)_PBTW(I2)_$P($T(@("T5"_QT)),U,10-I3)
	. S TXT(3)=X,TXT(4)=Y D S1,^cA334
S4Z	Q
	;
S1BTW	K PBTW
	S UREF9011=$P($$REF^cAFA10(Q,"CODE.9011"),D)
	S UREF9011=$$REPL^cAFA10(UREF9011,"UI1","UI19011")
	S UI19011=""
	F  S UI19011=$O(@UREF9011) Q:UI19011=""  I '$P(@UREF9011@(0),D,30) S PBTW(UI19011)=$P(@UREF9011@(0),D)
S1BTWZ	Q
	;
	; BTW-nummer
BTW(K)
	S $ZT="TRAP^cAN000"
	N R,RL I $L(K) D
	. S R=$E(K,1,2),RL=$$SIG^cAFA1("Q",Q,214)
	. S:RL'?2U RL="BE" S:R'?2U R=RL I R?2U,$D(^BA(5,R,2)) X "S K="_^(2)
BTWZ	Q K
	;
ZZ	; 29.05.09 - FB/GM