cTI213	;Opmaken instatstat vanuit aankoopadm.. ;%TI213 ; [ 02/23/00  9:08 AM ]
	G 1
	;
T0	;Opmaken intrastat vanuit aankoopadm. ;
	;
T0F	;Enreg. intrastat depuis adm. d' achat ;
	;
	; overlopen aankoopfactuur + opmaken hulpbestand volgens goederencode
1	N UKLAK S $ZT="TRAP^cAN000"   ; FB - 21.02.07 - factuurleverancier
	K ^HULP(boot,$J) S QAK=$G(@("^"_Q_"BA(""%T"",7)"),Q),SL=D,$P(SL,D,27)=D,UKL=$P(UDB,D,4),ULREF=$$DI^cAN000($P(UDB,D,18),""),SU=""
10	S SU=$O(@("^"_QAK_"TOA(UKL,ULREF,SU)")) G 2:SU=""
11	S USS=$P(^(SU),D),UQQ=$P(^(SU),D,2) S UKLAK=UKL I $L($P(^(SU),D,3)) S UKLAK=$P(^(SU),D,3)   ; FB - 21.02.07 - factuurleverancier
12	G 10:'$D(@("^"_UQQ_"TOL(UKLAK,USS,SU,1)"))
13	S SUZ=100
14	S SUZ=$O(@("^"_UQQ_"TOL(UKLAK,USS,SU,SUZ)")) G 10:SUZ="" S SK=^(SUZ)
15	S SPR=$P(SK,D,2) G 14:'$L(SPR) S SQ=Q I $L($P(SK,D,14)) S SQ=$P(SK,D,14)
16	S S0=@("^"_SQ_"PR(SPR,0)"),S1=^(1),S2=^(2)
17	S SGC=$P(S2,D,8) G 14:'$L(SGC) S SP1=$$SIG^cAFA1("INTR.GOE",SGC,104)
18	S SP=@("^"_Q_"INTR(""%P"",""P"")"),SGW=$P(S1,D,13),SCO=$P(SP,D,24) 
19	S:'$D(^HULP(boot,$J,SGC)) ^(SGC)=SL
	S $P(^(SGC),D)=$P(SK,D,3)*SGW+$P(^(SGC),D)
	S:SP1 $P(^(SGC),D,2)=$P(SK,D,3)+$P(^(SGC),D,2)
	S $P(^(SGC),D,3)=$P(SK,D,9)*SCO+$P(^(SGC),D,3) G 14
	;
	; overpompen hulpbestand in de intrastat
2	S SUZ=@("^"_Q_UGL_"(KC,US,UR,0)"),SGC="",UAR=""
21	S SGC=$O(^HULP(boot,$J,SGC)) G 3:SGC="" S SK=^(SGC)
22	S @("^"_Q_UGL_"(KC,US,UR,SUZ)")=SL
23	S $P(^(SUZ),D)=SGC
24	S R=$P(SK,D),$P(^(SUZ),D,4)=$S('R:"",R#1:$J(R,0,2),1:R)
	S R=$P(SK,D,2),$P(^(SUZ),D,5)=$S('R:"",R#1:$J(R,0,2),1:R)
25	S R=$P(SK,D,3),$P(^(SUZ),D,6)=$S('R:"",R#1:$J(R,0,UQA),1:R)
26	S R=$P(SK,D,3)*$P(UDB,D,26),$P(^(SUZ),D,7)=$S('R:"",R#1:$J(R,0,QD),1:R)
	I $P(UDB,D)="C" F I=4,5,6,7 I $L($P(^(SUZ),D,I)) S $P(^(SUZ),D,I)=$P(^(SUZ),D,I)*-1
27	S $P(^(SUZ),D,17)="."
28	I $P(SP,D,25) S UM=".",UZ=SUZ-100,GC=SGC,(A(1),B(1))=^(SUZ) D ^cTI22 S @("^"_Q_UGL_"(KC,US,UR,SUZ)")=B(1)
29	S SUZ=SUZ+1 G 21
	;
	; aanpassen volgnummer
3	S @("^"_Q_UGL_"(KC,US,UR,0)")=SUZ,$P(^(1),D,5)=DT
	;
	; detail tonen
4	G YZ:'$D(@("^"_Q_UGL_"(0,US,""UDET"")")) I $P(^("UDET"),D) S K="D" D @($P(^("UDET"),D,2))
	;
YZ	S SW12=1 K ^HULP(boot,$J),QAK,UKL,ULREF,USS,UQQ,UAR,SU,SL,SUZ,SK,SPR,SQ,S0,S1,S2,SGC,SP1,SP,SGW,SCO S R=$D(@("^"_Q_UGL_"(KC,US,UR,0)")) Q
	;
	; omkeren teken bij credietnota vanuit USEL
S1	S SUZ=100
S1A	S SUZ=$O(@("^"_Q_UGL_"(KC,US,UR,SUZ)")) G S1Z:SUZ="" S SK=^(SUZ)
S1B	F SR=4,5,6,7 I $L($P(SK,D,SR)) S $P(SK,D,SR)=$P(SK,D,SR)*-1
S1C	S ^(SUZ)=SK G S1A
S1Z	K SUZ,SK,SR Q
	;
Z	X ^cZ
ZZ	; 19.03.07 - 15 u 31 * V8.08