dmCNV	; Convertion functions used for code files to convert from ^_Q_BA to ^DKODE; dmCNV
	;
T0	;Convertion functions used for code files to convert from ^_Q_BA to ^DKODE;
	;
YZ	Q
	;
BTW(Q,RR1,USC)
	N I1,INH,SEQNR
	S $ZT="TRAP^cAN000"
	D
	. N RR1,USC
	. D ^cA604
	K ^DKODE(0,USC)
	S I1="",SEQNR=1000
	F  S I1=$O(@("^"_Q_"BA(RR1,I1)")) Q:I1=""  D
	. S INH=^(I1)
	. S $P(INH,D,12)=$P(INH,D,2)
	. S $P(INH,D,22)=$P(INH,D,2)
	. S $P(INH,D,32)=$P(INH,D,2)
	. S ^DKODE(0,USC,SEQNR,0)=INH
	. S SEQNR=SEQNR+1
	D S1^cAN002(0,USC,25)
BTWZ	Q
	;
GENERAL(Q,RR1,RR2,USC)
	N I1,INH,SEQNR
	S $ZT="TRAP^cAN000"
	D
	. N RR1,RR2,USC
	. D ^cA604
	K ^DKODE(0,USC)
	S I1="",SEQNR=1000
	F  S I1=$O(@("^"_Q_"BA(RR1,RR2,I1)")) Q:I1=""  D
	. S INH=^(I1),INH=$P(I1," ")_D_INH
	. S $P(INH,D,12)=$P(INH,D,2)
	. S $P(INH,D,22)=$P(INH,D,2)
	. S $P(INH,D,32)=$P(INH,D,2)
	. S ^DKODE(0,USC,SEQNR,0)=INH
	. S SEQNR=SEQNR+1
	D S1^cAN002(0,USC,25)
GENERALZ	Q
	;
DKL(Q)	; aanpassen code-bestanden in DKL
	S UI1=0
	F  S UI1=$O(^DKL(Q,"KL.A",UI1)) Q:UI1=""  D
	. ; klantenkategorie
	. S KLK=$P(^(UI1,1),D,19)
	. S KLK=$$UI1^cAFA1("CODE.9012",101,KLK)
	. S $P(^DKL(Q,"KL.A",UI1,1),D,19)=KLK
	. ; vreemde munt
	. S VM=$P(^(0),D,11)
	. S VM=$$UI1^cAFA1("CODE.9009",101,VM)
	. S $P(^DKL(Q,"KL.A",UI1,0),D,11)=VM
	. ; Rang korting
	. S RK=$P(^(1),D,5)
	. S RK=$$UI1^cAFA1("CODE.9001",101,RK)
	. S $P(^DKL(Q,"KL.A",UI1,1),D,5)=RK
	. ; Taalcode
	. S TL=$P(^(0),D,9)
	. S TL=$$UI1^cAFA1("CODE.9010",101,TL)
	. S $P(^DKL(Q,"KL.A",UI1,0),D,9)=TL
	Q
	;
KORT(Q,SRT,USC)	;
	; SRT=0 : Rangkorting
	; SRT=1 : Kortingscode
	S $ZT="TRAP^cAN000"
	D
	. N USC,SRT
	. D ^cA604
	S I1="",SEQNR=1000
	K ^DKODE(0,USC)
	F  S I1=$O(@("^"_Q_"KORT(SRT,I1)")) Q:I1=""  D
	. S INH=^(I1),INH=I1_D_INH
	. f i=12,22,32 S $p(INH,D,i)=$p(INH,D,2)
	. S ^DKODE(0,USC,SEQNR,0)=INH
	. S SEQNR=SEQNR+1
	D S1^cAN002(0,USC,24)
KORTZ	Q
	;
MUNT(Q,USC)
	N I1,SEQNR,INH
	S $ZT="TRAP^cAN000"
	D
	. N USC
	. D ^cA604
	S I1=""
	K ^DKODE(0,USC)
	; convertion specifications for the pieces:
	; 1-11,28-30		copy
	; 12-13 -> 13-14	shift
	; 2 -> 12,22,32		copy (omsch: Ned, Fr, Eng)
	F  S I1=$O(@("^"_Q_"BA(11,I1)")) Q:I1=""  D
	. S INH=^(I1),SEQNR=I1
	. S $P(INH,D,13,14)=$P(INH,D,12,13)
	. S $P(INH,D,12)=$P(INH,D,2)	
	. S $P(INH,D,22)=$P(INH,D,2)	
	. S $P(INH,D,32)=$P(INH,D,2)
	. S ^DKODE(0,USC,SEQNR,0)=INH
	D S1^cAN002(0,USC,25)
MUNTZ	Q
	;
O(Q,RR1,RR2,USC)
	N I1,INH,SEQNR
	S $ZT="TRAP^cAN000"
	D
	. N RR1,RR2,USC
	. D ^cA604
	K ^DKODE(0,USC)
	S I1="",I2="",I3="",SEQNR=1000
	F  S I1=$O(@("^"_Q_"BA(RR1,RR2,I1)")) Q:I1=""  D  ;soort verkoop
	. F  S I2=$O(@("^"_Q_"BA(RR1,RR2,I1,I2)")) Q:I2=""  D  ;klantencat
	. . F  S I3=$O(@("^"_Q_"BA(RR1,RR2,I1,I2,I3)")) Q:I3=""  D  ;opbrengstencode 
	. . . S INH=^(I3)
	. . . S $P(INH,D,12)=$P(INH,D,2)
	. . . S $P(INH,D,22)=$P(INH,D,2)
	. . . S $P(INH,D,32)=$P(INH,D,2)
	. . . W INH,!
	. . . S ^DKODE(0,USC,SEQNR,0)=INH
	. . . S SEQNR=SEQNR+1
	D S1^cAN002(0,USC,25)
OZ Q
	;
TAAL(Q,USC)
	N INH
	S $ZT="TRAP^cAN000"
	D
	. N USC,INH
	. D ^cA604
	K ^DKODE(0,USC)
	S INH="N\Nederlands\\\\\\\\\\Néerlandais\\\\\\\\\\Niederländisch\\\\\\\\\\Dutch"
	S ^DKODE(0,USC,"N",0)=INH
	S INH="F\Frans\\\\\\\\\\Français\\\\\\\\\\Französisch\\\\\\\\\\French"
	S ^DKODE(0,USC,"F",0)=INH
	S INH="D\Duits\\\\\\\\\\Allemand\\\\\\\\\\Deutsch\\\\\\\\\\German"
 	S ^DKODE(0,USC,"D",0)=INH
	S INH="E\Engels\\\\\\\\\\Anglais\\\\\\\\\\Englisch\\\\\\\\\\English"
 	S ^DKODE(0,USC,"E",0)=INH
 	D S1^cAN002(0,USC,25)
TAALZ 	Q
	;
ZZ	; 18.05.04 - 15 u 49 * V8