cAN00822	; Extra conversies ivm producten en gerelateerde codebestanden ; cAN00822
	;
YZ	Q
	;
BTWC(UI1C)	; Opzoeken oude BTW-code
	N CODE,I1
	S $ZT="TRAP^cAN000"
	S CODE=$$SIG^cAFA1("CODE.9011",UI1C,101)
	S I1=""
BTWCA	S I1=$O(@("^"_Q_"BA(18,I1)"))
	I I1="" G BTWCZ
	I $P(^(I1),D)=CODE G BTWCZ
	G BTWCA
BTWCZ	Q I1
	;
CNVEH	; Eénmalig opzetten code bestand eenheden, CODE.9037
	N I1,EH,EH2
	S $ZT="TRAP^cAN000"
	S I1=0
CNVEHA	S I1=$O(@("^"_Q_"PR(I1)"))
	I I1="" G CNVEHZ
	S EH=$P(^(I1,1),D,12),EH2=$P(^(2),D,12)
	I $L(EH),'$$UI1OP^cAFA1("CODE.9037",101,"",EH) D
	. K TAB
	. S TAB(1)=EH
	. S $P(TAB(1),D,2)=EH
	. S $P(TAB(1),D,12)=EH
	. S $P(TAB(1),D,22)=EH
	. S $P(TAB(1),D,32)=EH
	. D P^cAN220("CODE.9037","","","TAB","")
	I $L(EH2),'$$UI1OP^cAFA1("CODE.9037",101,"",EH2) D
	. K TAB
	. S TAB(1)=EH2
	. S $P(TAB(1),D,2)=EH2
	. S $P(TAB(1),D,12)=EH2
	. S $P(TAB(1),D,22)=EH2
	. S $P(TAB(1),D,32)=EH2
	. D P^cAN220("CODE.9037","","","TAB","")
	G CNVEHA	
CNVEHZ	Q
	;
CNVOMF(Q)	; Conversie veld omzetfactor
	N I1,INH
	S $ZT="TRAP^cAN000"
	S I1=0
	F  S I1=$O(@("^"_Q_"PR(I1)")) Q:I1=""  D
	. S INH=$G(^(I1,2))
	. I '$L($P(INH,D,13)) S $P(@("^"_Q_"PR(I1,2)"),D,13)=0
CNVOMFZ	Q
	;
	; *******************************************************************************
	; Producten
	; *******************************************************************************
	;
PR2PRA	; Overgang PR naar PR.A
	S $ZT="TRAP^cAN000"
	;
	; 104: Kortingscode
	I $L($P($G(B(1)),D,4)) S $P(NB(1),D,4)=$P($G(@("^"_Q_"KORT(1,$P(B(1),D,4))")),D,48)
	I $L($P($G(A(1)),D,4)) S $P(NA(1),D,4)=$P($G(@("^"_Q_"KORT(1,$P(A(1),D,4))")),D,48)
	; 105: BTW-code
	I $L($P($G(B(1)),D,5)) S $P(NB(1),D,5)=$P($G(@("^"_Q_"BA(18,$P(B(1),D,5))")),D,48)
	I $L($P($G(A(1)),D,5)) S $P(NA(1),D,5)=$P($G(@("^"_Q_"BA(18,$P(A(1),D,5))")),D,48)
	; 109: Leveranciersindex
	I $L($P($G(B(1)),D,9)) S $P(NB(1),D,9)=$$SIG^cAFA1("PR_LE.IND",$P(B(1),D,9),148)
	I $L($P($G(A(1)),D,9)) S $P(NA(1),D,9)=$$SIG^cAFA1("PR_LE.IND",$P(A(1),D,9),148)
	; 110: O-code
	I $L($P($G(B(1)),D,10)) S $P(NB(1),D,10)=$P($G(@("^"_Q_"BA(""%F"",5,$P(B(1),D,10)_"" "")")),D,48)
	I $L($P($G(A(1)),D,10)) S $P(NA(1),D,10)=$P($G(@("^"_Q_"BA(""%F"",5,$P(A(1),D,10)_"" "")")),D,48)
	; 120: Seizoenscurve
	I $L($P($G(B(1)),D,20)) S $P(NB(1),D,20)=$$SIG^cAFA1("PR.SK",$P(B(1),D,20),148)
	I $L($P($G(A(1)),D,20)) S $P(NA(1),D,20)=$$SIG^cAFA1("PR.SK",$P(A(1),D,20),148)
	; 125: Soort product
	I $D(NB(1)) S $P(NB(1),D,25)=+$P(NB(1),D,25)
	I $D(NA(1)) S $P(NA(1),D,25)=+$P(NA(1),D,25)
	; 204: K-code
	I $L($P($G(B(2)),D,4)) S $P(NB(2),D,4)=$P($G(@("^"_Q_"BA(""%F"",24,$P(B(2),D,4)_"" "")")),D,48)
	I $L($P($G(A(2)),D,4)) S $P(NA(2),D,4)=$P($G(@("^"_Q_"BA(""%F"",24,$P(A(2),D,4)_"" "")")),D,48)
	; 205: KOS-code
	I $L($P($G(B(2)),D,5)) S $P(NB(2),D,5)=$P($G(@("^"_Q_"BA(""%F"",22,$P(B(2),D,5)_"" "")")),D,48)
	I $L($P($G(A(2)),D,5)) S $P(NA(2),D,5)=$P($G(@("^"_Q_"BA(""%F"",22,$P(A(2),D,5)_"" "")")),D,48)
	; 212: Producteenheid
	I $L($P($G(B(2)),D,12)) S $P(NB(2),D,12)=$$UI1OP^cAFA1("CODE.9037",101,"",$P(B(2),D,12))
	I $L($P($G(A(2)),D,12)) S $P(NA(2),D,12)=$$UI1OP^cAFA1("CODE.9037",101,"",$P(A(2),D,12))
	; 217->219: Gekoppelde producten
	F i=17:1:19 D
	. I $L($P($G(B(2)),D,i)) S $P(NB(2),D,i)=$$SIG^cAFA1("PR",$P(B(2),D,i),148)
	. I $L($P($G(A(2)),D,i)) S $P(NA(2),D,i)=$$SIG^cAFA1("PR",$P(A(2),D,i),148) 
	; 220: Voorraadbeheer
	S $P(NB(2),D,20)='$P($G(B(2)),D,20)
	S $P(NA(2),D,20)='$P($G(A(2)),D,20)
	; 225: Merk
	I $L($P($G(B(2)),D,25)) S $P(NB(2),D,25)=$$SIG^cAFA1("PR.MK",$P(B(2),D,25),148)
	I $L($P($G(A(2)),D,25)) S $P(NA(2),D,25)=$$SIG^cAFA1("PR.MK",$P(A(2),D,25),148)
	; 227: Analytische rekening
	I $L($P($G(B(2)),D,27)) S $P(NB(2),D,27)=$$SIG^cAFA1("ARA",$P(B(2),D,27),148)
	I $L($P($G(A(2)),D,27)) S $P(NA(2),D,27)=$$SIG^cAFA1("ARA",$P(A(2),D,27),148)
	; 312: Aankoopeenheid
	I $L($P($G(B(3)),D,12)) S $P(NB(3),D,12)=$$UI1OP^cAFA1("CODE.9037",101,"",$P(B(3),D,12))
	I $L($P($G(A(3)),D,12)) S $P(NA(3),D,12)=$$UI1OP^cAFA1("CODE.9037",101,"",$P(A(3),D,12))
	; 401->403: Equivalente producten
	F i=1:1:3 D
	. I $L($P($G(B(4)),D,i)) S $P(NB(4),D,i)=$$SIG^cAFA1("PR",$P(B(4),D,i),148)
	. I $L($P($G(A(4)),D,i)) S $P(NA(4),D,i)=$$SIG^cAFA1("PR",$P(A(4),D,i),148)
	; 406: Hoofdaankoopgegeven
	I $L($P($G(B(4)),D,6)) S $P(NB(4),D,6)=$$SIG^cAFA1("PR_LE",$P(B(4),D,6),148)
	I $L($P($G(A(4)),D,6)) S $P(NA(4),D,6)=$$SIG^cAFA1("PR_LE",$P(A(4),D,6),148)
	; 407: Hoofdgroep
	I $L($P($G(B(4)),D,7)) S $P(NB(4),D,7)=$$SIG^cAFA1("PR.HG",$P(B(4),D,7),148)
	I $L($P($G(A(4)),D,7)) S $P(NA(4),D,7)=$$SIG^cAFA1("PR.HG",$P(A(4),D,7),148)
	; 408: Groep
	I $L($P($G(B(4)),D,8)) S $P(NB(4),D,8)=$$SIG^cAFA1("PR.GR",$P(B(4),D,8),148)
	I $L($P($G(A(4)),D,8)) S $P(NA(4),D,8)=$$SIG^cAFA1("PR.GR",$P(A(4),D,8),148)
	; 409: Subgroep
	I $L($P($G(B(4)),D,9)) S $P(NB(4),D,9)=$$SIG^cAFA1("PR.SG",$P(B(4),D,9),148)
	I $L($P($G(A(4)),D,9)) S $P(NA(4),D,9)=$$SIG^cAFA1("PR.SG",$P(A(4),D,9),148)
	;
	; Switchen van B-indexen
	; ----------------------
	; B312->B338: Aankoopheenheid
	I $L($P($G(NB(3)),D,12)) S $P(NB(3),D,38)=$P(NB(3),D,12)
	I $L($P($G(NA(3)),D,12)) S $P(NA(3),D,38)=$P(NA(3),D,12)
	S $P(NB(3),D,12)=""
	S $P(NA(3),D,12)=""
	I $G(UFU)="W" F BI=338 I '$D(ULOG(BI)) D
	. I $P($G(NA(BI\100)),D,BI#100)=$P($G(NB(BI\100)),D,BI#100) Q
	. M ULOG(338)=ULOG(312)
	; B313->B339: Omzetfactor
	I $L($P($G(NB(3)),D,13)) S $P(NB(3),D,39)=$P(NB(3),D,13)
	I $L($P($G(NA(3)),D,13)) S $P(NA(3),D,39)=$P(NA(3),D,13)
	S $P(NB(3),D,13)=""
	S $P(NA(3),D,13)=""
	I $G(UFU)="W" F BI=339 I '$D(ULOG(BI)) D
	. I $P($G(NA(BI\100)),D,BI#100)=$P($G(NB(BI\100)),D,BI#100) Q
	. M ULOG(339)=ULOG(313)
	;
PR2PRAZ	Q
	;
PRA2PR	; Overgang PR.A naar PR
	N i
	S $ZT="TRAP^cAN000"
	;
	; 104: Kortingscode
	I $L($P($G(B(1)),D,4)) S $P(NB(1),D,4)=$$SIG^cAFA1("CODE.9002",$P(B(1),D,4),101) 
	I $L($P($G(A(1)),D,4)) S $P(NA(1),D,4)=$$SIG^cAFA1("CODE.9002",$P(A(1),D,4),101) 
	; 105: BTW-code
	I $L($P($G(B(1)),D,5)) S $P(NB(1),D,5)=$$BTWC($P(B(1),D,5))
	I $L($P($G(A(1)),D,5)) S $P(NA(1),D,5)=$$BTWC($P(A(1),D,5))
	; 109: Leveranciersindex
	I $L($P($G(B(1)),D,9)) S $P(NB(1),D,9)=$$SIG^cAFA1("CODE.9036",$P(B(1),D,9),150)
	I $L($P($G(A(1)),D,9)) S $P(NA(1),D,9)=$$SIG^cAFA1("CODE.9036",$P(A(1),D,9),150)
	; 110: O-code
	I $L($P($G(B(1)),D,10)) S $P(NB(1),D,10)=$$SIG^cAFA1("CODE.9014",$P(B(1),D,10),101)
	I $L($P($G(A(1)),D,10)) S $P(NA(1),D,10)=$$SIG^cAFA1("CODE.9014",$P(A(1),D,10),101)
	; 120: Seizoenscurve
	I $L($P($G(B(1)),D,20)) S $P(NB(1),D,20)=$$SIG^cAFA1("CODE.9035",$P(B(1),D,20),150)
	I $L($P($G(A(1)),D,20)) S $P(NA(1),D,20)=$$SIG^cAFA1("CODE.9035",$P(A(1),D,20),150)
	; 125: Soort product
	I $D(NB(1)) S $P(NB(1),D,25)=$S($P(NB(1),D,25)=0:"",1:$P(NB(1),D,25))
	I $D(NA(1)) S $P(NA(1),D,25)=$S($P(NA(1),D,25)=0:"",1:$P(NB(1),D,25))
	; 204: K-code
	I $L($P($G(B(2)),D,4)) S $P(NB(2),D,4)=$$SIG^cAFA1("CODE.9017",$P(B(2),D,4),101)
	I $L($P($G(A(2)),D,4)) S $P(NA(2),D,4)=$$SIG^cAFA1("CODE.9017",$P(A(2),D,4),101)
	; 205: KOS-code
	I $L($P($G(B(2)),D,5)) S $P(NB(2),D,5)=$$SIG^cAFA1("CODE.9018",$P(B(2),D,5),101)
	I $L($P($G(A(2)),D,5)) S $P(NA(2),D,5)=$$SIG^cAFA1("CODE.9018",$P(A(2),D,5),101)
	; 212: Producteenheid
	I $L($P($G(B(2)),D,12)) S $P(NB(2),D,12)=$$SIG^cAFA1("CODE.9037",$P(B(2),D,12),101)
	I $L($P($G(A(2)),D,12)) S $P(NA(2),D,12)=$$SIG^cAFA1("CODE.9037",$P(A(2),D,12),101)
	; 217->219: Gekoppelde producten
	F i=17:1:19 D
	. I $L($P($G(B(2)),D,i)) S $P(NB(2),D,i)=$$SIG^cAFA1("PR.A",$P(B(2),D,i),150)
	. I $L($P($G(A(2)),D,i)) S $P(NA(2),D,i)=$$SIG^cAFA1("PR.A",$P(A(2),D,i),150) 
	; 220: Voorraadbeheer
	S $P(NB(2),D,20)='$P($G(B(2)),D,20) I '$P(NB(2),D,20) S $P(NB(2),D,20)=""
	S $P(NA(2),D,20)='$P($G(A(2)),D,20) I '$P(NA(2),D,20) S $P(NA(2),D,20)=""
	; 225: Merk
	I $L($P($G(B(2)),D,25)) S $P(NB(2),D,25)=$$SIG^cAFA1("CODE.9003",$P(B(2),D,25),150)
	I $L($P($G(A(2)),D,25)) S $P(NA(2),D,25)=$$SIG^cAFA1("CODE.9003",$P(A(2),D,25),150)
	; 227: Analytische rekening
	I $L($P($G(B(2)),D,27)) S $P(NB(2),D,27)=$$SIG^cAFA1("ARA.A",$P(B(2),D,27),150)
	I $L($P($G(A(2)),D,27)) S $P(NA(2),D,27)=$$SIG^cAFA1("ARA.A",$P(A(2),D,27),150)
	; 338: Aankoopeenheid
	I $L($P($G(B(3)),D,38)) S $P(NB(3),D,12)=$$SIG^cAFA1("CODE.9037",$P(B(6),D,25),101),$P(NB(3),D,38)=""
	I $L($P($G(A(3)),D,38)) S $P(NA(3),D,12)=$$SIG^cAFA1("CODE.9037",$P(A(6),D,25),101),$P(NA(3),D,38)=""
	I $G(UFU)="W" F BI=312 I '$D(ULOG(BI)) D
	. I $P($G(NA(BI\100)),D,BI#100)=$P($G(NB(BI\100)),D,BI#100) Q
	. M ULOG(312)=ULOG(338)
	; 339: Omzetfactor
	I $L($P($G(B(3)),D,39)) S $P(NB(3),D,13)=$P(B(3),D,39),$P(NB(3),D,39)=""
	I $L($P($G(A(3)),D,39)) S $P(NA(3),D,13)=$P(A(3),D,39),$P(NA(3),D,39)=""
	I $G(UFU)="W" F BI=313 I '$D(ULOG(BI)) D
	. I $P($G(NA(BI\100)),D,BI#100)=$P($G(NB(BI\100)),D,BI#100) Q
	. M ULOG(313)=ULOG(339)
	; 401->403: Equivalente producten
	F i=1:1:3 D
	. I $L($P($G(B(4)),D,i)) S $P(NB(4),D,i)=$$SIG^cAFA1("PR.A",$P(B(4),D,i),150)
	. I $L($P($G(A(4)),D,i)) S $P(NA(4),D,i)=$$SIG^cAFA1("PR.A",$P(A(4),D,i),150) 
	; 406: Hoofdaankoopgegeven
	I $L($P($G(B(4)),D,6)) S $P(NB(4),D,6)=$$SIG^cAFA1("PR_LE.A",$P(B(4),D,6),150)
	I $L($P($G(A(4)),D,6)) S $P(NA(4),D,6)=$$SIG^cAFA1("PR_LE.A",$P(A(4),D,6),150)
	; 407: Hoofdgroep
	I $L($P($G(B(4)),D,7)) S $P(NB(4),D,7)=$$SIG^cAFA1("CODE.9004",$P(B(4),D,7),150)
	I $L($P($G(A(4)),D,7)) S $P(NA(4),D,7)=$$SIG^cAFA1("CODE.9004",$P(A(4),D,7),150)
	; 408: Groep
	I $L($P($G(B(4)),D,8)) S $P(NB(4),D,8)=$$SIG^cAFA1("CODE.9005",$P(B(4),D,8),150)
	I $L($P($G(A(4)),D,8)) S $P(NA(4),D,8)=$$SIG^cAFA1("CODE.9005",$P(A(4),D,8),150)
	; 409: Subgroep
	I $L($P($G(B(4)),D,9)) S $P(NB(4),D,9)=$$SIG^cAFA1("CODE.9006",$P(B(4),D,9),150)
	I $L($P($G(A(4)),D,9)) S $P(NA(4),D,9)=$$SIG^cAFA1("CODE.9006",$P(A(4),D,9),150)
	;
PRA2PRZ	Q
	;
CNVPR(Q)	; Eénmalige conversie voor de gekoppelde en equivalente producten
	; Input: Q: Vennootschap
	S $ZT="TRAP^cAN000"
	;
	; Definities ophalen
CNVPR1	S UREF=$P($$REF^cAFA10(.Q,"PR"),D) I '$L(UREF) G CNVPRZ
	S NUREF=$P($$REF^cAFA10(.Q,"PR.A"),D) I '$L(UREF) G CNVPRZ
	;
	; Producten doorlopen
CNVPR2	S (UI1,TEL)=0
CNVPR21	S UI1=$O(@UREF) I '$L(UI1) G CNVPRY
	S N0=$G(^(UI1,0)),N1=$G(^(1)),N3=$G(^(3))
	;
	S PRA=$P(N0,D,48) I '$L(PRA) G CNVPR29
	;
	; Gekoppelde producten
	F PC=17:1:19 D
	. N UI1 S UI1=PRA
	. S KOP=$$SIG^cAFA1("PR",$P(N1,D,PC),148)
	. S $P(@NUREF@(1),D,PC)=KOP
	;
	; Equivalente producten
	F PC=1:1:3 D
	. N UI1 S UI1=PRA
	. S EQUI=$$SIG^cAFA1("PR",$P(N3,D,PC),148)
	. S $P(@NUREF@(3),D,PC)=EQUI
	;
	S TEL=TEL+1 I TEL=50 W "." S TEL=0
	;
CNVPR29	G CNVPR21
	;
	; Controle indexen
CNVPRY	D S1^cAN002(0,"PR.A",24)
CNVPRZ	Q
	;
	; *******************************************************************************
	; Aankoopgegevens
	; *******************************************************************************
	;
PRLE2PRLEA	; Overgang PR_LE naar PR_LE.A
	N i
	S $ZT="TRAP^cAN000"
	;
	; 101: Leverancier
	I $L($P($G(B(1)),D)) S $P(NB(1),D)=$$SG^cAFA1("LE",$P(B(1),D),148)
	I $L($P($G(A(1)),D)) S $P(NA(1),D)=$$SG^cAFA1("LE",$P(A(1),D),148)
	; 109: Index
	I $L($P($G(B(1)),D,9)) S $P(NB(1),D,9)=$$SIG^cAFA1("PR_LE.IND",$P(B(1),D,9),148)
	I $L($P($G(A(1)),D,9)) S $P(NA(1),D,9)=$$SIG^cAFA1("PR_LE.IND",$P(A(1),D,9),148)
	; 119->122: Hoeveelheden 
	F i=19:1:22 D
	. S $P(NB(1),D,i)=+$P($P($G(B(1)),D,i)," ")
	. S $P(NA(1),D,i)=+$P($P($G(A(1)),D,i)," ")
	; 123->126: Kortingen
	F i=23:1:26 D
	. S $P(NB(1),D,i)=+$P($P($G(B(1)),D,i-4)," ",2)
	. S $P(NA(1),D,i)=+$P($P($G(A(1)),D,i-4)," ",2)
	; 201: Product 
	I $L($P($G(B(2)),D)) S $P(NB(2),D)=$$SIG^cAFA1("PR",$P(B(2),D),148)
	I $L($P($G(A(2)),D)) S $P(NA(2),D)=$$SIG^cAFA1("PR",$P(A(2),D),148)
	;
PRLE2PRLEAZ	Q
	;
PRLEA2PRLE	; Overgang PR_LE.A naar PR_LE
	S $ZT="TRAP^cAN000"
	;
	; 101: Leverancier
	I $L($P($G(B(1)),D)) S $P(NB(1),D)=$$SIG^cAFA1("LE.A",$P(B(1),D),101)
	I $L($P($G(A(1)),D)) S $P(NA(1),D)=$$SIG^cAFA1("LE.A",$P(A(1),D),101)
	; 109: Index
	I $L($P($G(B(1)),D,9)) S $P(NB(1),D,9)=$$SIG^cAFA1("CODE.9036",$P(B(1),D,9),150)
	I $L($P($G(A(1)),D,9)) S $P(NA(1),D,9)=$$SIG^cAFA1("CODE.9036",$P(A(1),D,9),150)
	; 119->122: Hoeveelheden 
	F i=19:1:22 D
	. S $P(NB(1),D,i)=$S($L($P($G(B(1)),D,i)):$P($G(B(1)),D,i)_" "_$S($E(+$P($G(B(1)),D,i+4))=".":0_+$P($G(B(1)),D,i+4),1:+$P($G(B(1)),D,i+4)),1:"")
	. I '$P(NB(1),D,i) S $P(NB(1),D,i)=""
	. S $P(NA(1),D,i)=$S($L($P($G(A(1)),D,i)):$P($G(A(1)),D,i)_" "_$S($E(+$P($G(A(1)),D,i+4))=".":0_+$P($G(A(1)),D,i+4),1:+$P($G(A(1)),D,i+4)),1:"")
	. I '$P(NA(1),D,i) S $P(NA(1),D,i)=""
	; 123->126: Kortingen
	F i=23:1:26 D
	. S $P(NB(1),D,i)=""
	. S $P(NA(1),D,i)=""
	; 201: Product
	I $L($P($G(B(2)),D)) S $P(NB(2),D)=$$SIG^cAFA1("PR.A",$P(B(2),D),150)
	I $L($P($G(A(2)),D)) S $P(NA(2),D)=$$SIG^cAFA1("PR.A",$P(A(2),D),150)
	;
PRLEA2PRLEZ	Q
	; 
CNVAG(Q)	; Eénmalige conversie voor de gekoppelde en equivalente producten
	; Input: Q: Vennootschap
	S $ZT="TRAP^cAN000"
	;
	; Definities ophalen
CNVAG1	S UREF=$P($$REF^cAFA10(.Q,"PR_LE"),D) I '$L(UREF) G CNVAGZ
	S NUREF=$P($$REF^cAFA10(.Q,"PR_LE.A"),D) I '$L(UREF) G CNVAGZ
	;
	; Aankoopgegevens doorlopen
CNVAG2	S (UI1,TEL)=0
CNVAG21	S UI1=$O(@UREF) I '$L(UI1) G CNVAGY
	S N0=$G(^(UI1,0)),N1=$G(^(1))
	;
	S PRLEA=$P(N0,D,48) I '$L(PRLEA) G CNVAG29
	;
	; Gekoppeld product
	D 
	. N UI1 S UI1=PRLEA
	. S PRA=$$SIG^cAFA1("PR",$P(N1,D),148)
	. S $P(@NUREF@(1),D)=PRA
	;
	S TEL=TEL+1 I TEL=50 W "." S TEL=0
	;
CNVAG29	G CNVAG21
	;
	; Controle indexen
CNVAGY	D S1^cAN002(0,"PR_LE.A",24)
CNVAGZ	Q
	; 
	; *******************************************************************************
	; Leveranciersindex
	; *******************************************************************************
	;
IND2N	; Overgang PR_LE.IND naar CODE.9036
	N i
	S $ZT="TRAP^cAN000"
	;
	; 106: Leverancier
	I $L($P($G(B(1)),D,6)) S $P(NB(1),D,6)=$$SG^cAFA1("LE",$P(B(1),D,6),148)
	I $L($P($G(A(1)),D,6)) S $P(NA(1),D,6)=$$SG^cAFA1("LE",$P(A(1),D,6),148)
	; 111->115: Werkzones
	F i=11:1:15 D
	. S $P(NB(1),D,i)=$TR($P($G(B(1)),D,i),"B","") I $E($P(NB(1),D,i),$L($P(NB(1),D,i)))="-" S $P(NB(1),D,i)="-"_$E($P(NB(1),D,i),1,$L($P(NB(1),D,i))-1)
	. S $P(NA(1),D,i)=$TR($P($G(A(1)),D,i),"B","") I $E($P(NA(1),D,i),$L($P(NA(1),D,i)))="-" S $P(NA(1),D,i)="-"_$E($P(NA(1),D,i),1,$L($P(NA(1),D,i))-1)
	; 116->120: Types
	F i=16:1:20 D
	. S $P(NB(1),D,i)=$S($E($P($G(B(1)),D,i-5))="B":1,1:0)
	. S $P(NA(1),D,i)=$S($E($P($G(A(1)),D,i-5))="B":1,1:0)
	;
IND2NZ	Q
	;
N2IND	; Overgang CODE.9036 naar PR_LE.IND
	S $ZT="TRAP^cAN000"
	;
	; 106: Leverancier
	I $L($P($G(B(1)),D,6)) S $P(NB(1),D,6)=$$SIG^cAFA1("LE.A",$P(B(1),D,6),101)
	I $L($P($G(A(1)),D,6)) S $P(NA(1),D,6)=$$SIG^cAFA1("LE.A",$P(A(1),D,6),101)
	; 111->115: Werkzones
	F i=11:1:15 D
	. S $P(NB(1),D,i)=$S($L($P($G(B(1)),D,i)):$S($P($G(B(1)),D,i+5):"B",1:"")_$S($E($P($G(B(1)),D,i))="-":$E($P($G(B(1)),D,i),2,$L($P($G(B(1)),D,i))),1:$P($G(B(1)),D,i)),1:"") I $P($G(B(1)),D,i)["-" S $P(NB(1),D,i)=$P(NB(1),D,i)_"-"
	. S $P(NA(1),D,i)=$S($L($P($G(A(1)),D,i)):$S($P($G(A(1)),D,i+5):"B",1:"")_$S($E($P($G(A(1)),D,i))="-":$E($P($G(A(1)),D,i),2,$L($P($G(A(1)),D,i))),1:$P($G(A(1)),D,i)),1:"") I $P($G(A(1)),D,i)["-" S $P(NA(1),D,i)=$P(NA(1),D,i)_"-"
	; 116->120: Types
	F i=16:1:20 D
	. S $P(NB(1),D,i)=""
	. S $P(NA(1),D,i)=""
	;
N2INDZ	Q
	;
PRSK2N	; Overgang PR.SK naar CODE.9035
	S $ZT="TRAP^cAN000"
	; Veld 'oktober' wordt verzet van B-index 112 naar 115
	S $P(NB(1),D,15)=$P(B(1),D,12)
	S $P(NA(1),D,15)=$P(A(1),D,12)
	; Veld 'omschrijving Fans' wordt verzet van 115 naar 112
	S $P(NB(1),D,12)=$P(B(1),D,15)
	S $P(NA(1),D,12)=$P(A(1),D,15)
PRSK2NZ	Q
	;
N2PRSK	; Overgang CODE.9035 naar PR.SK
	S $ZT="TRAP^cAN000"
	; Veld 'oktober' wordt verzet van B-index 115 naar 112
	S $P(NB(1),D,12)=$P(B(1),D,15)
	S $P(NA(1),D,12)=$P(A(1),D,15)
	; Veld 'omschrijving Fans' wordt verzet van 112 naar 115
	S $P(NB(1),D,15)=$P(B(1),D,12)
	S $P(NA(1),D,15)=$P(A(1),D,12)
N2PRSKZ	Q
	; 
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09