cTI212	;Opmaken instatstat vanuit verkoopadm. ;%TI212 ; [ 02/23/00  9:08 AM ]
	G 1
	;
T0	;Opmaken intrastat vanuit verkoopadm. ;
	;
T0F	;Enreg. intrastat depuis adm. de vente ;
	;
	; overlopen verkoopfactuur + opmaken hulpbestand volgens goederencode
1	N QFA
	S $ZT="TRAP^cAN000"
	S QFA=Q I $L($P($G(@("^"_Q_"BA(50)")),D,5)) X $P(^(50),D,5)
	K ^HULP(boot,$J) S SU="U",SL=D,$P(SL,D,27)=D
10	S SU=$O(@("^"_QFA_"FA(UFNL,UFNR,SU)")) G 2:$E(SU)'="U" S SUZ=100
11	S SUZ=$O(@("^"_QFA_"FA(UFNL,UFNR,SU,SUZ)")) G 10:SUZ="" S SK=^(SUZ)
12	S SPR=$P(SK,D,2) G 11:'$L(SPR) S SQ=Q I $L($P(SK,D,14)) S SQ=$P(SK,D,14)
13	S S0=@("^"_SQ_"PR(SPR,0)"),S1=^(1),S2=^(2)
14	S SGC=$P(S2,D,8) G 11:'$L(SGC) S SP1=$$SIG^cAFA1("INTR.GOE",SGC,104)
15	S SP=@("^"_Q_"INTR(""%P"",""P"")"),SGW=$P(S1,D,13),SCO=$P(SP,D,24) 
16	S:'$D(^HULP(boot,$J,SGC)) ^(SGC)=SL
17	S $P(^(SGC),D)=$P(SK,D,3)*SGW+$P(^(SGC),D)
18	S:SP1 $P(^(SGC),D,2)=$P(SK,D,3)+$P(^(SGC),D,2)
19	S $P(^(SGC),D,3)=$P(SK,D,9)*SCO+$P(^(SGC),D,3) G 11
	;
	; 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)
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	I $L($P($G(@("^"_Q_"BA(50)")),D,6)) X $P(^(50),D,6)
	S SW12=1 K ^HULP(boot,$J),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	; 15.04.03 -  9 u 31 * V7.94