cTI90	;Printen detail intrastat ;%TI90 ; [ 01/04/02  2:23 PM ]
	G 1
	;
T0	;Printen detail intrastat ;
T1	;Stelsel 19 (Aankoop);Stelsel 29 (Verkoop);
T2	;Maand\"jjjj.mm[] = bepaalde maand";
T3	;Detail Intrastat;
T4	;Document\Klant/Leverancier\Best.\Lev.\R\Tr\ G.code\Gewicht ;1\Aanv.eh. ;1\Fact.w. VM ;1\Fact.w. \Stat.w. \Vnr;
T5	;\\Herk.\\\\\\\\\\;
	;
T0F	;Edition du détail Intrastat ;
T1F	;Type 19 (Achats);Type 29 (Ventes);
T2F	;Mois\"aaaa.mm[] = mois spécifique";
T3F	;Détail Intrastat;
T4F	;Document\Client/Fournisseur\Dest.\Livr\R\Tr\ C.march.\Poids ;1\Un.suppl. ;1\Val.fact. PE ;1\Val.fact. \Val.stat. \No.;
T5F	;\\Prov.\\\\\\\\\\;
	;
T0E	;Printen detail intrastat ;
T1E	;Stelsel 19 (Aankoop);Stelsel 29 (Verkoop);
T2E	;Maand\"jjjj.mm[] = bepaalde maand";
T3E	;Detail Intrastat;
T4E	;Document\Klant/Leverancier\Best.\Lev.\R\Tr\ G.code\Gewicht ;1\Aanv.eh. ;1\Fact.w. VM ;1\Fact.w. \Stat.w. \Vnr;
T5E	;\\Herk.\\\\\\\\\\;
	;
1	S US=$P(R,U,2) I US'=19,US'=29 G YZ
11	S K=$P($T(@("T0"_QT)),U,2)_$P($T(@("T1"_QT)),U,$S(US=19:2,1:3))_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13	S A=$E(DM-1/100+DJ_0,1,7) I DM<2 S A=DJ-.88
15	S R="A\22\3\"_$P($T(@("T2"_QT)),U,2)_"\7\PCTR\\\\\\1" D R0 G YZ:K="-"!(K=",")
17	S (A,BP)=$S(K:K,1:A),FP=403 W @F,@F1,$P($P($T(@("T1"_QT)),U,$S(US=19:2,1:3)),D)," : ",BP
	; S R=0_D_1 D ^cA345 G 15:$L(K)
19	D ^cAN3223("","1#5",">80","") G 15:K="-"
	;
2	S HD(1)=D_$P($T(@("T3"_QT)),U,2)_";C",HD(2)=D_$P($T(@("T1"_QT)),U,$S(US=19:2,1:3))_";C",HD(3)=D_BP_";C"
21	S TIT(1)=$P($T(@("T4"_QT)),U,2,999),TAB="9\34\42\47\49\52\63\74\85\99\113\127\131"
23	S KC=BP*100,UR="",VNR=0
25	S R=$$MNTC^cAFE1(Q,$$BJ^cAFE1(Q,BP)),BF=$P(R,D),QD=$P(R,D,2)
27	S I=$P(TIT(1),D,11),$P(TIT(1),D,11)=I_BF_" ;1"
28	S I=$P(TIT(1),D,12),$P(TIT(1),D,12)=I_BF_" ;1"
29	I PTS'=4 S TIT(2)=$P($T(@("T5"_QT)),U,2,999)
	I PTS=4 S $P(TIT(1),D,3)=$P(TIT(1),D,3)_"/"_$P($P($T(@("T5"_QT)),U,2),D,3)
	;
3	S UR=$O(@("^"_Q_"INTR(KC,US,UR)")),UZ=100 I UR="" S US=$S(US=19:29,1:19) G:'$$NL^cTI100 4 S END=1 D ^cA334 G YZ 
30	S U5=^(UR,1),FC=$P($G(@("^"_Q_$S(US=19:"AA",1:"VE")_"(BP,UR)"),$P(U5,D,7)),D),KL=$P($G(^(UR),$P(U5,D,7)),D,4) I $L(KL) S KN=$$SG^cAFA1($S(US=19:"LE",1:"KL"),KL,102)
	I $P(U5,D,9) G 3
31	S:'$L(FC) FC="F" S TXT(1)=FC_" "_UR,FC=FC="F"*2-1
	; Klant/Leverancier
32	S TXT(2)=$G(KN)
	; Bestemming/Herkomst
	S TXT(3)=$S($L($P(U5,D)):$P(@("^"_Q_"INTR(""%F"",2,$P(U5,D)_"" "")"),D),1:"")
33	S UZ=$O(@("^"_Q_"INTR(KC,US,UR,UZ)")) G 3:UZ="" S B(1)=^(UZ),K=$P(B(1),D,7) G 33:(FC=1&(K<0)!(FC=-1&(K>0)))&('$$NL^cTI100)
	; Lev. voorwaarden op detaillijn?
	S TXT(4)="" I $L($P(B(1),D,14)) S TXT(4)=$P(B(1),D,14)
	; Lev. voorwaarden uit hoofding
	I '$L(TXT(4)) S TXT(4)=$P(U5,D,11)
	; regio op detailijn ?
	S TXT(5)="" I $L($P(B(1),D,13)) S TXT(5)=$P(B(1),D,13)
	; regio uit hoofding
	I '$L(TXT(5)) S TXT(5)=$P(U5,D,10)
	; regio uit parameter
	I '$L(TXT(5)) S TXT(5)=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=19:17,1:27))
	; transactiecode op detailijn ?
	S TXT(6)="" I $L($P(B(1),D,12)) S TXT(6)=$P(B(1),D,12)
	; transactie uit hoofding
	I '$L(TXT(6)) S TXT(6)=$P(U5,D,4)
	; transactie uit parameter
	I '$L(TXT(6)) S TXT(6)=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=19:13,1:23))
35	S TXT(7)=$$SIG^cAFA1("INTR.GOE",$P(B(1),D),103)_D_D_1
37	F I=4:1:7 S TXT(I+4)=$P(B(1),D,I)*FC_D_D_D_D_1_D_$S(I=7:QD,1:2)_D_D
	S TXT(12)=$P(B(1),D,9)*FC_D_D_D_D_1_D_2
39	S VNR=VNR+1,TXT(13)=VNR_D_1 D ^cA334 S TXT(1)="",TXT(2)="",TXT(3)="" G 33
	;
	; terugzending (ander stelsel)
4	S UR=$O(@("^"_Q_"INTR(KC,US,UR)")),UZ=100 I UR="" S END=1 D ^cA334 G YZ
40	S U5=^(UR,1),FC=$P($G(@("^"_Q_$S(US=19:"AA",1:"VE")_"(BP,UR)"),$P(U5,D,7)),D),KL=$P($G(^(UR),$P(U5,D,7)),D,4) I $L(KL) S KN=$$SG^cAFA1($S(US=19:"LE",1:"KL"),KL,102)
	I $P(U5,D,9) G 4
41	S:'$L(FC) FC="F" S TXT(1)=FC_" "_UR,FC=FC="C"*2-1
	; Klant/Leverancier
42	S TXT(2)=$G(KN)	
	; Bestemming/Herkomst
	S TXT(3)=$S($L($P(U5,D)):$P(@("^"_Q_"INTR(""%F"",2,$P(U5,D)_"" "")"),D),1:"")
43	S UZ=$O(@("^"_Q_"INTR(KC,US,UR,UZ)")) G 4:UZ="" S B(1)=^(UZ),K=$P(B(1),D,7) G 43:FC=1&(K<0)!(FC=-1&(K>0))
	; Lev. voorwaarden op detaillijn?
	S TXT(4)="" I $L($P(B(1),D,14)) S TXT(4)=$P(B(1),D,14)
	; Lev. voorwaarden uit hoofding
	I '$L(TXT(4)) S TXT(4)=$P(U5,D,11)
	; regio op detailijn ?
	S TXT(5)="" I $L($P(B(1),D,13)) S TXT(5)=$P(B(1),D,13)
	; regio uit hoofding
	I '$L(TXT(5)) S TXT(5)=$P(U5,D,10)
	; regio uit parameter
	I '$L(TXT(5)) S TXT(5)=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=19:17,1:27))
	; transactiecode op detailijn ?
	S TXT(6)="" I $L($P(B(1),D,12)) S TXT(6)=$P(B(1),D,12)
	; transactie uit hoofding
	I '$L(TXT(6)) S TXT(6)=$P(U5,D,4)
	; transactie uit parameter
	I '$L(TXT(6)) S TXT(6)=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=19:13,1:23))
45	S TXT(7)=$$SIG^cAFA1("INTR.GOE",$P(B(1),D),103)_D_D_1
47	F I=4:1:7 S TXT(I+4)=$P(B(1),D,I)*FC_D_D_D_D_1_D_$S(I=7:QD,1:2)_D_D
	S TXT(12)=$P(B(1),D,9)*FC_D_D_D_D_1_D_2
49	S VNR=VNR+1,TXT(13)=VNR_D_1 D ^cA334 S TXT(1)="",TXT(2)="",TXT(3)="" G 43
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
PCTR	;K?4N1"."2N&(K#1)&(K#1<.13)!("-,"[K)
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04