cTI102	;EXECUTES VANUIT INGAVE INTRA-STAT ;%TI1; [ 01/04/02  10:53 AM ]
	G YZ
	;
T0	;Executes vanuit registratie ;
T1	;Landcode;
T2	;Vervoerswijze;n.v.t.;
T3	;Plaats;
T4	;Transactie;
T5	;per lijn;
	;
T0F	;Executions de l'enregistrement ;
T1F	;Code pays;
T2F	;Moyen de transp.;n.a.;
T3F	;Lieu;
T4F	;Transaction;
T5F	;par ligne;
	;
T0E	;Executes vanuit registratie ;
T1E	;Landcode;
T2E	;Vervoerswijze;n.v.t.;
T3E	;Plaats;
T4E	;Transactie;
T5E	;per lijn;
	;
	; via UFS
S1	S KC=UKC,UR=UFNR
S1Z	Q
	;
	; ------------------- HOOFDING ( 100-REEKS ) -------------------------;
	; bestemming (landencode)
S2	I K="-" G S2A
	I '$D(UWH),K'="-" S R=$$SG^cAFA1($P($P(UCO,U,3),D),$P(UDB,D,4),116)
	S R=$E(R,1,2)
	I R'?2U G S2A
	S K=$P($G(^BA(5,R,0)),D) G S2Z:$L(K)
S2A	S K=$P($$^cANSYN("INTR.LAND")," ")
S2Z	Q
	;
	; wat geprint bestemming
W2	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",2,K_"" "")"),D)
W2Z	S U3=$E(U3,1,12) Q
	;
	; vervoerswijze
S3	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:21,1:11)) I $L(K) G S3Y
S3A	S K=$P($$^cANSYN("INTR.VVW","",1,1,"","","","",$P($T(@("T2"_QT)),U,3))," ")
S3Y	I K="N" S K=""
S3Z	Q
	;
	; wat geprint vervoerswijze
W3	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",3,K_"" "")"),D)
	I K="" S U3=$P($T(@("T2"_QT)),U,3)
W3Z	S U3=$E(U3,1,10) Q
	;
	; laadplaats
S4	I K'="-",$P(B(1),D,2)'=1 S K="." G S4Z
S4A	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:22,1:12)) G S4Z:$L(K)
S4B	I K'="-" S K=$P($$^cANSYN("INTR.L&L")," ")
S4Z	S:K="." K="" Q
	;
	; wat geprint laadplaats
W4	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",4,K_"" "")"),D)
W4Z	S U3=$E(U3,1,8) Q
	;
	; transactie
S5	I '$D(UWH),K'="-" S FC=$P($G(@("^"_Q_$S(US=19:"AA",1:"VE"))@($E(KC,1,4)_"."_$E(KC,5,6),UR),$P(B(1),D,7)),D) I FC="" S FC="F"
S5A	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:FC="C"*3+23,1:FC="C"*3+13)) G S5Y:$L(K)
	I $L($P(U2,U,4)),@$P(U2,U,4) G S5Z
S5B	S K=$P($$^cANSYN("INTR.TRA"," ","",1,"","","","",$P($T(@("T5"_QT)),U,2))," ")
S5Y	I K="L" S K=""
S5Z	Q
	;
	; wat geprint transactie
W5	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",5,K_"" "")"),D)
	I K="" S U3=$P($T(@("T5"_QT)),U,2)
W5Z	S U3=$E(U3,1,8) Q
	;
	; regio
S6	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:27,1:17)) G S6Y:$L(K)
S6A	S K=$P($$^cANSYN("INTR.REGIO"," ","",1,"","","","",$P($T(@("T5"_QT)),U,2))," ")
S6Y	I K="L" S K=""
S6Z	Q
	;
	; wat geprint regio
W6	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",6,K_"" "")"),D)
	I K="" S U3=$P($T(@("T5"_QT)),U,2)
W6Z	S U3=$E(U3,1,12) Q
	;
	; incoterm
S7	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:28,1:18)) I $L(K) G S7Y
S7A	S K=$P($$^cANSYN("INTR.INCO","",1,1,"","","","",$P($T(@("T2"_QT)),U,3))," ")
S7Y	I K="N" S K=""
S7Z	Q
	;
	; wat geprint incoterm
W7	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",7,K_"" "")"),D)
	I K="" S U3=$P($T(@("T2"_QT)),U,3)
W7Z	S U3=$E(U3,1,45) Q
	;
	; statistisch stelsel
S8	I '$$NL^cTI100 S K="" G S8Z
	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,41) I $L(K) G S8Y
S8A	S K=$P($$^cANSYN("INTR.STATSTEL","",1,1,"","","","",$P($T(@("T2"_QT)),U,3))," ")
S8Y	I K="N" S K=""
S8Z	Q
	;
	; wat geprint statistisch stelsel
W8	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",8,K_"" "")"),D)
	I K="" S U3=$P($T(@("T2"_QT)),U,3)
W8Z	S U3=$E(U3,1,45) Q
	;
	; Plaats
S9	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:29,1:19)) G S9Y:$L(K)
S9A	S K=$P($$^cANSYN("INTR.PLAATS"," ","","","","","","","")," ")
S9Y	I K="L" S K=""
	I K="" G S9A
S9Z	Q
	;
	; wat geprint plaats
W9	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",9,K_"" "")"),D)
	I K="" S U3=$P($T(@("T5"_QT)),U,2)
W9Z	S U3=$E(U3,1,12) Q
	;
	; incoterm
S10	I '$D(UWH),K'="-" S K=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:28,1:18)) I $L(K) G S10Y
S10A	S K=$P($$^cANSYN("INTR.INCO","",1,1,"","","","",$P($T(@("T5"_QT)),U,2))," ")
S10Y	I K="N" S K=""
S10Z	Q
	;
	; wat geprint incoterm
W10	I $L(K) S U3=K_" "_$P(@("^"_Q_"INTR(""%F"",7,K_"" "")"),D)
	I K="" S U3=$P($T(@("T5"_QT)),U,2)
W10Z	S U3=$E(U3,1,9) Q
	;
	; bestemming (landencode)
S11	I '$D(UWH) S R=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,15) S:$L(R)&(K'="-") K=$P(B(1),D) G:$L(R) S11Z
S11A	S K=$P($$^cANSYN("INTR.LAND")," ")
S11Z	Q
	;
YZ	Q
	;
ZZ	; 22.11.04 - 16 u 14 * V8.02