cTI100	;EXECUTES BIJ BEHEER PARAMETERS ;%TI100 ; [ 01/04/02  10:39 AM ]
	G YZ
	;
T0	;Executes bij beheer parameters ;
T1	;zonder;
T2	;vragen;
T3	;vragen op elke lijn;
T4	;niet van toepassing;
T5	;kopiëren van her.;
	;
T0F	;Executions gestion paramètres ;
T1F	;sans;
T2F	;demander;
T3F	;demander sur chaque ligne;
T4F	;non applicable;
T5F	;copier de prov.;
	;
T0E	;Executes bij beheer parameters ;
T1E	;zonder;
T2E	;vragen;
T3E	;vragen op elke lijn;
T4E	;not applicable;
T5E	;kopiëren van her.;
	;
NL()	; Testen of het om intrasat in een Nederlandse firma gaat
	N R
	S $ZT="TRAP^cAN000"
	S R=0
	I $P(@("^"_Q_"BA(39)"),D,3)="NL" S R=1
NLZ	Q R
	;
FR()	; Testen of het om intrasat in een Franse firma gaat
	N R
	S $ZT="TRAP^cAN000"
	S R=0
	I $P(@("^"_Q_"BA(39)"),D,3)="FR" S R=1
FRZ	Q R
	;
	; wat geprint bij vervoerwijze
S1	S U3=$S(K="":$P($T(@("T2"_QT)),U,2),K="N":$P($T(@("T4"_QT)),U,2),1:K_" "_$P(@("^"_Q_"INTR(""%F"",3,K_"" "")"),D,1))
S1Z	Q
	;
	; wat geprint bij laad- of losplaats
S2	S U3=$S(K=".":$P($T(@("T1"_QT)),U,2),K="":$P($T(@("T2"_QT)),U,2),1:K_" "_$P(@("^"_Q_"INTR(""%F"",4,K_"" "")"),D,1))
S2Z	Q
	;
	; wat geprint bij transacties
S3	S U3=$S(K="":$P($T(@("T2"_QT)),U,2),K="L":$P($T(@("T3"_QT)),U,2),1:K_" "_$P(@("^"_Q_"INTR(""%F"",5,K_"" "")"),D,1))
S3Z	Q
	;
	; wat geprint bij regios
S4	S U3=$S(K="":$P($T(@("T2"_QT)),U,2),K="N":$P($T(@("T4"_QT)),U,2),K="L":$P($T(@("T3"_QT)),U,2),1:K_" "_$P(@("^"_Q_"INTR(""%F"",6,K_"" "")"),D,1))
S4Z	Q
	;
	; wat geprint bij incoterms
S5	S U3=$S(K="":$P($T(@("T2"_QT)),U,2),K="N":$P($T(@("T4"_QT)),U,2),1:K_" "_$P(@("^"_Q_"INTR(""%F"",7,K_"" "")"),D,1))
S5Z	Q
	;
	; wat geprint bij statistisch stelsel
S6	S U3=$S(K="":$P($T(@("T2"_QT)),U,2),K="N":$P($T(@("T4"_QT)),U,2),1:K_" "_$E($P(@("^"_Q_"INTR(""%F"",8,K_"" "")"),D,1),1,15))
S6Z	Q
	;
	; wat geprint bij plaats
S7	S U3=$S(K="":$P($T(@("T2"_QT)),U,2),K="N":$P($T(@("T4"_QT)),U,2),K="L":$P($T(@("T3"_QT)),U,2),1:K_" "_$P(@("^"_Q_"INTR(""%F"",9,K_"" "")"),D,1))
S7Z	Q
	;
	; wat geprint bij oorsprong
S8	S U3=$S(K="":$P($T(@("T2"_QT)),U,2),1:$P($T(@("T5"_QT)),U,2))
S8Z	Q
	;
YZ	Q
	;
ZZ	; 22.11.04 - 16 u 14 * V8.02