cT643	;Inkomende documenten ;%T64 ;%T64* ; [ 01/30/01  11:13 AM ]
	G 1
	;
T0	;Inkomende fact/creditn ;
	;
T0F	;Fact/n.c. achats ;
	;
T0E	;Registration of incoming documents ;
	;
	; ophalen factuurnummer aankoopfactuur  
1	S R="FNR\A\"_SRT_D_BJ_D_2 D ^cA337 I 'FNR G 2^cT642
11	S FP=515 W @F,FNR S @%Q1=0
	;
	; registratie factuur
2	D S1^cT6413 I $L($P(EXBA,D)) D @("S1"_$P(EXBA,D))
21	I $D(@("^"_Q_"BA(83)")),$L(^(83)) D @("S1"_^(83))
23	;I $D(FDT) S $P(@("^"_Q_"LE(I1,2)"),D,15)=FDT D LD^cAN000("S",$ZR,@$ZR),OPB^cANLOG("^"_Q_"LE")
	; KO - 17.06.02
25	; I $L(LREF) D S1
	;
	; boekhoudkundige verwerking
27	D S2 D ^cT645 S @%Q1=1
	;
	; link Intrastat
3	G 33:'$D(@("^"_Q_"BA(50)")),33:$P(^(50),D)'[1 S K=$P(@("^"_Q_"LE(I1,0)"),D,16) S OK=$$IC^cTI0(K,$$DCO^cAFD1($TR(BP_".01",".","")))
31	I OK S R=U_BP_U_FNR_U_U_12_U_13 D ^cTI0
	; KO - 17.06.02
33	I $L(LREF) D S1
	;
	; Link recyclagebijdrage
	; Kijken of parameter recyclagebijdrage via 5.1 op ja staat
4	I '$P(@("^"_Q_"BA(""%T"",2)"),D,19) G Y
	; Kijken of landcode van de leverancier afwijkt van deze van de firma
41	I $$SIG^cAFA1("ISO.LAND",$$SIG^cAFA1("LE",I1,108),101)=$P(@("^"_Q_"BA(39)"),D,3) G Y
	; Oproepen ingave recyclagebijdragen
43	D REC^cTR1(1)
	;
Y	I 'SWTOL G ^cT640
YA	L -@("^"_Q_"LE(I1)")
YZ	Q
	;
	; verbreken link aankoop
S1	S S3=""
S1A	S S3=$O(@("^"_QAK_"TOA(KCAK,LREF,S3)")) G S1Y:S3="" S S1=$P(^(S3),D),S2=$P(^(S3),D,2) I S2="" S S2=QAK
	S KCTOL=$P(@("^"_QAK_"TOA(KCAK,LREF,S3)"),D,3) S:'$L(KCTOL) KCTOL=KCAK
S1B	G S1A:'$D(@("^"_S2_"TOL(KCTOL,S1,S3,1)")) S S4=$P(^(1),D,18) D  I VM(S4)'=VM(VM) G S1A
	. S:S4="" S4=BF S VM(S4)=$P($G(@("^"_S2_"BA(11,S4)"),S4),D)
S1C	S $P(@("^"_S2_"TOL(KCTOL,S1,S3,1)"),D,45)=FNR,$P(^(1),D,50)=1
	I $P($G(@("^"_S2_"TOL(KCTOL,S1,S3,3)")),D,24) D
	. N USA,UQA,TAB,Q
	. S Q=S2
	. D DMS^cAN000("UQA","USA","TOL."_S1,1) I '$L(UQA)!'$L(USA) Q
	. I $L($G(^DMS(Q,"TOL."_S1,"DMA","W"))) S UQA=$P(^("W"),D),USA=$P(^("W"),D,2)
	. S TAB(145)=FNR,TAB(150)=1 D B^cFNA000(Q,USA,UQA,S3,"TAB")
	K @("^"_QAK_"TOA(KCAK,LREF,S3)")
	G S1A
S1Y	I $O(^(S3))="" K @("^"_QAK_"TOA(KCAK,LREF)")
S1Z	K S1,S2,S3,S4 Q
	;
	; String met gecontroleerde leveringen samenstellen (GM 08.02.07)
S2	S S3="",GECOLEVA="" I '$L($G(LREF)) G S2Z
S2A	S S3=$O(@("^"_QAK_"TOA(KCAK,LREF,S3)")) G S2Z:S3="" S S1=$P(^(S3),D),S2=$P(^(S3),D,2) I S2="" S S2=QAK
	S KCTOL=$P(@("^"_QAK_"TOA(KCAK,LREF,S3)"),D,3) S:'$L(KCTOL) KCTOL=KCAK
S2B	G S2A:'$D(@("^"_S2_"TOL(KCTOL,S1,S3,1)")) S S4=$P(^(1),D,18) D  I VM(S4)'=VM(VM) G S2A
	. S:S4="" S4=BF S VM(S4)=$P($G(@("^"_S2_"BA(11,S4)"),S4),D)
S2C	S GECOLEVA=GECOLEVA_$S($L(GECOLEVA):";",1:"")_S2_"#"_S3_"#"_KCTOL_"#"_S1 G S2A
S2Z	K S1,S2,S3,S4 Q
	;
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08