cT6420	;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  2:50 PM ]
	G 1
	;
T0	;Inkomende facturen/creditnota's ;
	;
T0F	;Documents d'entrée ;
	;
T0E	;Registration of incoming documents ;
	;
	; Test link aankoop / ventilatie leverancier
1	G 4:$L($G(LREF6)),2:$L(LREF),15:'$L(COM) S I=$$DI^cAN000(COM,"")
11	I $D(@("^"_QAK_"TOA6(KCAK,I)")) S LREF6=I G 4
13	I $D(@("^"_QAK_"TOA(KCAK,I)")) S LREF=I G 2
15	S BR=$P(@("^"_Q_"LE(I1,1)"),D,21),BRA="",BE=TUS D ^cT6421,^cT6422:$L(BR)
17	G YZ
	;
	; TOA - V5
2	S UR="" K ^HULP(boot,$J+(200/10000))
21	S UR=$O(@("^"_QAK_"TOA(KCAK,LREF,UR)")) I UR="" K RQ,RVM,UR,US,UZ G 3
	; FB - 20.02.07 - KCTOL ipv KCAK - ivm factuurleverancier
	S KCTOL=$P(@("^"_QAK_"TOA(KCAK,LREF,UR)"),D,3) S:'$L(KCTOL) KCTOL=KCAK
23	S RQ=^(UR),US=$P(RQ,D),UZ=100,RQ=$P(RQ,D,2) S:RQ="" RQ=QAK G 21:'$D(@("^"_RQ_"TOL(KCTOL,US,UR,1)")) S RVM=$P(^(1),D,18) D  I VM(RVM)'=VM(VM) G 21
	. S:RVM="" RVM=BF S VM(RVM)=$P($G(@("^"_RQ_"BA(11,RVM)"),RVM),D)
25	S UZ=$O(@("^"_RQ_"TOL(KCTOL,US,UR,UZ)")) I UZ="" G 21
27	S BR=$P(^(UZ),D)_$P(^(UZ),D,44),ATL=$P(^(UZ),D,3),BE=$P(^(UZ),D,9) D
	. I FC="C" S ATL=-ATL,BE=-BE
28	I $L(BR) S ATL=ATL+$P($G(^HULP(boot,$J+(200/10000),BR)),D,2),BE=BE+$P($G(^(BR)),D),^(BR)=BE_D_ATL
29	G 25
	;
	; verwerking detaillijnen
3	S BR=""
31	S BR=$O(^HULP(boot,$J+(200/10000),BR)) I $L(BR) S ATL=$P(^(BR),D,2),BE=$P(^(BR),D) K ^(BR) D S1,^cT6421,^cT6422:$L(BR) G 3
39	G YZ
	;
	; TOA - V6
4	S UR="" K ^HULP(boot,$J+(200/10000))
41	S UR=$O(@("^"_QAK_"TOA6(KCAK,LREF6,UR)")),UZ=0 I UR="" K RVM,UR,UZ G 3
42	S RVM=$P(^(UR),D,10) D  I VM(RVM)'=VM(VM) G 41
	. S:RVM="" RVM=BF S VM(RVM)=$P($G(@("^"_Q_"BA(11,RVM)"),RVM),D)
43	S UZ=$O(@("^"_QAK_"TOA6(KCAK,LREF6,UR,UZ)")) I UZ="" G 41
45	S BR=$P(^(UZ),D),BRA=$P(^(UZ),D,2),BE=$P(^(UZ),D,3),ATL=$P(^(UZ),D,4) D
	. I FC="C" S ATL=-ATL,BE=-BE
	. I BR D
	.. N Q S Q=QAK,BR=$$SIG^cAFA1("CODE.K",BR,103)
	. I BRA D
	.. N Q S Q=QAK,BRA=$$SIG^cAFA1("CODE.A",BRA,103)
	. S BR=BR_BRA
47	I $L(BR) S ATL=ATL+$P($G(^HULP(boot,$J+(200/10000),BR)),D,2),BE=BE+$P($G(^(BR)),D),^(BR)=BE_D_ATL
49	G 43
	;
YZ	S (BR,BRA)="" Q
	;
S1	S BRA=$P(BR," ",2),BR=$P(BR," ") I $L(BRA) S BRA="A"_BRA_" "
S1Z	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08