cTI0	;INGAVE INTRA-STAT ;%TI0;        [ 04/12/09  15:13:35 ]
	G 1
	;
	; Input van de applicatie :
	;  R = ^cTI0 (menu);BP;FNR;FNR lev.(19) of US-waarde factuur (29);UMD;UD (applicatie)
	;
	; Output naar %TI1 :
	;  R = UKC(maand uit VE of AA);US;UKIL;UGL;UMD;UMDI;UFNR;UFNL;UD
	;  UDB = node VE of AA
	;  UQA = aantal decimalen intra-stat
	;
T0	;Registratie Intrastat ;
T1	;Nummer document\"xxxxxx[] = nummer verkoopdocument   -[] = einde";
T2	;Documentnummer ; bestaat niet;
T3	;Klant;Leverancier;
T4	;Nr. document;
T5	;Totaal bedrag;
T6	;Nummer document\"xxxxxx[] = nummer aankoopdocument   -[] = einde";
T11	;Registratie aankoop ;
T12	;Registratie aankoop ;
T21	;Registratie verkoop ;
T22	;Registratie verkoop ;
T23	;Registratie verkoop ;
	;
T0F	;Enregistrement Intrastat ;
T1F	;N° du document\"xxxxxx[] = n° du document de vente   -[] = fin";
T2F	;N° de document ; n'existe pas;
T3F	;Client;Fournisseur;
T4F	;N° du document;
T5F	;Montant total;
T6F	;N° du document\"xxxxxx[] = n° du document d'achat   -[] = fin";
T11F	;Enregistrement achats ;
T12F	;Enregistrement achats ;
T21F	;Enregistrement ventes ;
T22F	;Enregistrement ventes ;
T23F	;Enregistrement ventes ;
	;
T0E	;Registratie Intrastat ;
T1E	;Nummer document\"xxxxxx[] = nummer verkoopdocument   -[] = einde";
T2E	;Documentnummer ; bestaat niet;
T3E	;Klant;Leverancier;
T4E	;Nr. document;
T5E	;Totaal bedrag;
T6E	;Nummer document\"xxxxxx[] = nummer aankoopdocument   -[] = einde";
T11E	;Registratie aankoop ;
T12E	;Registratie aankoop ;
T21E	;Registratie verkoop ;
T22E	;Registratie verkoop ;
T23E	;Registratie verkoop ;
	;
IC(BTW,DATUM,SWA,LAND)	;  Contole of het om een IC-land gaat
	; BTW = BTW-nr
	; DATUM : dd.mm.jj
	; SWA = 1 : vanuit inschrijven inkomende document : test voor IC BTW of niet
	N R,R1,R2,ISO,CODEL,UI1L,DATIN,DATUIT,K
	S $ZT="TRAP^cAN000"
	S R=0
	S K=BTW
	I $L($G(LAND)) S R1=LAND S R=1 G ICA
	;  Controle via ^BA(5 of het om een geldig BTW-nr gaat
	I '$L(BTW) G ICZ
	S R1=$E(BTW,1,2),R2=$$BA39^cAFA10(Q,214) I R2'?2U S R2="BE"
	I R1'?2U S R1=R2
	; R=3 : BTW-code is ingevuld, maar komt niet voor in BA(5
	I $G(SWA) S R=3
	; R=1 land uit de BTW-code = land uit ^_Q_BA(39
	; R=2 land uit de BTW-code'= land uit ^_Q_BA(39 (het gaat dus om een IC-land)
	I R1?2U,$D(^BA(5,R1,2)) X "S U3="_^(2) S R=R1'=R2+$G(SWA)
	; Geen verdere testen wanneer wanneer het BTW-nummer niet 
	; voorkomt in ^BA(5 of wanneer het land uit de BTW-code = land uit ^_Q_BA(39
	I R=(0+$G(SWA))!(R=3) G ICZ
	;  Controle via ^ISO(0,"ISO.LAND" of het om een EG-lidstaat gaat
	;  Ophalen UI1 ISO.LAND
ICA	I R1?1.N S UI1L=R1 G ICA1
	S UI1L=$P($G(^BA(5,R1,0)),D,3)
ICA1	I '$L(UI1L) S R=0 G ICZ
	;  Controle of veld EG-lidstaat op ja staat
	I '$$SIG^cAFA1("ISO.LAND",UI1L,105) S R=0 G ICZ
	I '$L(DATUM) G ICZ
	I DATUM?4N.1"."2N S DATUM=$TR(DATUM,".")_"01",DATUM=$$DCO^cAFD1(DATUM)
	;  Controleren Datum toetreding en uittreding
	S DATIN=$P(^(0),D,6),DATUIT=$P(^(0),D,7)
	I '$L(DATIN)&'$L(DATUIT) G ICZ
	S:$L(DATIN) DATIN=$$DC^cAFD1(DATIN)
	S:$L(DATUIT) DATUIT=$$DC^cAFD1(DATUIT)
	S DATUM=$$DC^cAFD1(DATUM)
	I $L(DATIN),DATIN>DATUM S R=0 G ICZ
	I $L(DATUIT),DATUM'<DATUIT S R=0
ICZ	Q R
	;
	; controle op intra-communautaire klant-leverancier (input:K=btw-nr)
S1	I $D(BP),BP?4N1"."2N S OK=$$IC^cTI0(K,$$DCO^cAFD1($TR(BP_".01",".",""))) G S1Z
	S OK=0 G S1Z:'$L(K) D S2 I R1?2U,$D(^BA(5,R1,2)) X "S U3="_^(2) S OK=R1'=R2
S1A	; I R1="LU" S OK=0
S1Z	K R1,R2 Q
	;
S2	S R1=$E(K,1,2),R2=$P($G(@("^"_Q_"BA(39)")),D,4) I R2'?2U S R2="BE"
S2A	I R1'?2U S R1=R2
S2Z	Q
	;
	;----------------------------- AANKOOP -----------------------------
	; aankoop - vanaf de menu (UMD=11)
S11	S R="RNR\22\3\"_$P($T(@("T6"_QT)),U,2)_"\6\\K?6N!(""-,""[K&$L(K))" D R0
S11A	G S11Z:K="-",S11Z:K="," S RBP=""
S11B	S RBP=$O(@("^"_Q_"AA(RBP)")) I $L(RBP) G S11B:'$D(^(RBP,RNR)),S11D
S11C	D F1 G S11
S11D	S UDB=^(RNR),R=$P(UDB,D,24) D SA S UQA=R
	D LE
S11L	K RR,RBP,RNR,RNL,RMD,RUD,RUD2 D ^cTI1,SB S FP=401 W @F,@F1 G S11
S11Z	Q
	;
	; aankoop - vanaf inschrijven aankoopfacturen (UMD=12)
S12	S UDB=@("^"_Q_"AA(RBP,RNR)"),R=$P(UDB,D,24) D SA S UQA=R
	D LE
S12B	K RBP,RNR,RNL,RMD,RUD,RUD2 D ^cTI1
S12Z	Q
	;
	; tonen leverancier + document
LE	S R=@("^"_Q_"LE(^"_Q_"L1($P(UDB,D,4)),0)")
	S RR=$$LAND^cAFO1($P(R,D,8))
	S R=$E($P(UDB,D,4)_" "_$P(R,D,2)_" "_$P(R,D,5)_" "_$P(R,D,7)_" "_RR,1,60)
	S FP=403 W @F,@F6,$P($T(@("T3"_QT)),U,3),@F9,/CUP(4,19),": ",R,@F2
	S FP=503 W @F,@F6,$P($T(@("T4"_QT)),U,2),@F9,/CUP(5,19),": ",$P(UDB,D)," ",RNR,@F2
	I '$$NL^cTI100,'$$FR^cTI100 S FP=603 W @F,@F6,$P($T(@("T5"_QT)),U,2),@F9,/CUP(6,19),": ",$P(UDB,D,25)," ",$P(UDB,D,24),@F2
	I $$NL^cTI100!$$FR^cTI100 S FP=547 W @F,@F6,$P($T(@("T5"_QT)),U,2),@F9,/CUP(5,62),": ",$P(UDB,D,25)," ",$P(UDB,D,24),@F2
	S R=$TR(RBP,".","")_U_19_U_U_"INTR"_U_RMD_U_U_RNR_U_RNL_U_RUD2
LEZ	Q
	;
	;----------------------------- VERKOOP -----------------------------
	; verkoop - vanaf de menu (UMD=21)
S21	S R="RNR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\6\\K?6N!(""-,""[K&$L(K))" D R0
S21A	G S21Z:K="-",S21Z:K="," S RBP=""
S21B	S RBP=$O(@("^"_Q_"VE(RBP)")) I $L(RBP) G S21B:'$D(^(RBP,RNR)),S21D
S21C	D F1 G S21
S21D	S UDB=^(RNR),R=$P(UDB,D,24) D SA S UQA=R
	D KL
S21L	K RR,RBP,RNR,RNL,RMD,RUD,RUD2 D ^cTI1,SB S FP=401 W @F,@F1 G S21
S21Z	Q
	;
	; verkoop - vanaf inschrijven verkoopfacturen (UMD=22)
S22	S UDB=@("^"_Q_"VE(RBP,RNR)"),R=$P(UDB,D,24) D SA S UQA=R
	D KL
S22B	K RBP,RNR,RNL,RMD,RUD,RUD2 D ^cTI1
S22Z	Q
	;
	; verkoop - vanaf automatische facturatie (UMD=23)
S23	S UDB=@("^"_Q_"VE(RBP,RNR)"),R=$P(UDB,D,24) D SA S UQA=R
	D KL
S23B	K RBP,RNR,RNL,RMD,RUD,RUD2 D ^cTI1
S23Z	Q
	;
	; tonen klant + document
KL	S R=@("^"_Q_"KL(^"_Q_"K1($P(UDB,D,4)),0)")
	S RR=$$LAND^cAFO1($P(R,D,8))
	S R=$E($P(UDB,D,4)_" "_$P(R,D,2)_" "_$P(R,D,5)_" "_$P(R,D,7)_" "_RR,1,60)
	S FP=403 W @F,@F6,$P($T(@("T3"_QT)),U,2),@F9,/CUP(4,19),": ",R,@F2
	S FP=503 W @F,@F6,$P($T(@("T4"_QT)),U,2),@F9,/CUP(5,19),": ",$P(UDB,D)," ",RNR,@F2
	I '$$NL^cTI100,'$$FR^cTI100 S FP=603 W @F,@F6,$P($T(@("T5"_QT)),U,2),@F9,/CUP(6,19),": ",$P(UDB,D,25)," ",$P(UDB,D,24),@F2
	I $$NL^cTI100!$$FR^cTI100 S FP=547 W @F,@F6,$P($T(@("T5"_QT)),U,2),@F9,/CUP(5,62),": ",$P(UDB,D,25)," ",$P(UDB,D,24),@F2
	S R=$TR(RBP,".","")_U_29_U_U_"INTR"_U_RMD_U_U_RNR_U_RNL_U_RUD2
KLZ	Q
	;
	;-----------------------------  START  -----------------------------
	; wegschrijven variabelen als niet via menu
1	G YZ:'$L($P(R,U,5))
12	I "\11\21\"'[(D_$P(R,U,5)_D) D ^cA338,^cA609,B^cA612
	;
	; titel alleen als via menu
2	S UINT=R
22	D T^cA612($P($T(@("T"_$P(UINT,U,5)_QT)),U,2),2,0,7,1,1)
	;
	; vegen op originele UD
3	D SB S FP=+RUD*100+1 W @F,@F1
	;
	; jump naar UMD-module
4	D @("S"_RMD)
	;
	; vegen op originele UD
5	D SB S FP=+RUD*100+1 W @F,@F1
	;
	; terugsteken variabelen als niet via menu
6	I "\11\21\"'[(D_$P(UINT,U,5)_D) S ^HULP("PAS",$J)=K D C^cA612,^cA339 S K=^HULP("PAS",$J) K ^($J)
	;
YZ	K RBP,RNR,RNL,RMD,RUD,RUD2 Q
	;
F1	S K=$P($T(@("T2"_QT)),U,2)_RNR_$P($T(@("T2"_QT)),U,3) G FZ
FZ	D TXT^cAFA1(250) Q
	;
	; bepalen decimalen intra-stat
SA	I '$L(R) S R=$P(@("^"_Q_"BA(39)"),D) I '$L(R) S R="BEF"
SA1	S R=+$P(@("^"_Q_"BA(11,R)"),D,7) I '$L($P(UDB,D,26)) S $P(UDB,D,26)=1
SAZ	Q
	;
	; UINT - intrastat start-variabele
SB	S RBP=$P(UINT,U,2),RNR=$P(UINT,U,3),RNL=$P(UINT,U,4),RMD=$P(UINT,U,5)
SB1	;S RUD=$P(UINT,U,6) S:'$L(RUD) RUD="7\17" S RUD2=$P(RUD,D)+$S("\12\22\"[(D_RMD_D):3,1:4)_D_17_D_($P(RUD,D)-$S("\12\22\"[(D_RMD_D):4,1:3))
	S RUD="7\16",RUD2="11\16\4"
SBZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 04.08.08 - 17 u 33 * V9.02