V8ALL	;Updates 8.00 tem 8.xx ; V8ALL
	;
T1	;Update op de Administratie?\"[] = neen   1[] = ja";
	;
YZ	Q
	;
S1	k @r w !,$zr," ... verwijderd"
S1Z	q
	;
V	; Xececutes voor
	G V8000
	;
V8000	I $G(hvv)'<8000 G V8010
	s r=$na(^DMA(0,"PAR.MAIL",1,7),4) d S1
	s r=$na(^DMA(0,"MAIL.ADDR",1,4),4) d S1
	s r=$na(^DMA(0,"SYS.QQM"),2) d S1
	s r=$na(^DMC(0,"SYS.QQM"),2) d S1
	s r=$na(^DMA(0,"USR_SYS.QQM"),2) d S1
	s r=$na(^DMH(0,"USR_SYS.QQM"),2) d S1
	s r=$na(^DMA("DAM","DMC.SYN"),2) d S1
	s r=$na(^DMA("VB","GRIDN.TAB.COL",1),3) d S1
	s r=$na(^DMA("VB","GRIDN.TAB.COL",2),3) d S1
	s r=$na(^DMA(0,"PAR.MAIL"),2) d S1
	s r=$na(^DMA(0,"KL.A"),2) d S1
	s r=$na(^DMA(1,"KL.A"),2) d S1
	s r=$na(^DMA(0,"BGJB",1,10,11),5) d S1
	S ^DMS(0,"CODE.VV","DMA","L")="0\CODE.VV"
	S ^DMS(0,"CODE.VV","DMA","O")="0\CODE.VV"
	S ^DMS(0,"CODE.VV","DMA","W")="0\CODE.VV"
	S ^DMS(0,"CODE.VV","DMM","W")=0
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. S $P(^DMS(q,"KL.A",0),D,2)=0
	. S $P(^DMS(q,"OD.F",0),D,3)=0
	. S ^DMS(q,"AFS.CAT","DMA","L")="0\AFS.CAT"
	. S ^DMS(q,"AFS.CAT","DMA","O")="0\AFS.CAT"
	. S ^DMS(q,"AFS.CAT","DMA","R")="0\AFS.CAT"
	. S ^DMS(q,"AFS.CAT","DMA","V")="0\AFS.CAT"
	. S ^DMS(q,"AFS.CAT","DMA","W")="0\AFS.CAT"
	. S ^DMS(q,"AFS.CAT","DMM","R")="0"
	. S ^DMS(q,"AR.A","DMA","L")="1\AR.A"
	. S ^DMS(q,"AR.A","DMA","O")="1\AR.A"
	. S ^DMS(q,"AR.A","DMA","R")="0\AR.A"
	. S ^DMS(q,"AR.A","DMA","V")="1\AR.A"
	. S ^DMS(q,"AR.A","DMA","W")="1\AR.A"
	. S ^DMS(q,"AR.A","DMM","R")="0"
	. S ^DMS(q,"AR.A","DMM","W")=0
	. S ^DMS(q,"ARA.A","DMA","L")="1\ARA.A"
	. S ^DMS(q,"ARA.A","DMA","O")="1\ARA.A"
	. S ^DMS(q,"ARA.A","DMA","R")="0\ARA.A"
	. S ^DMS(q,"ARA.A","DMA","V")="1\ARA.A"
	. S ^DMS(q,"ARA.A","DMA","W")="1\ARA.A"
	. S ^DMS(q,"ARA.A","DMM","R")="0"
	. S ^DMS(q,"ARA.A","DMM","W")="0"
	. S ^DMS(q,"KL.A","DMA","L")="1\KL.A"
	. S ^DMS(q,"KL.A","DMA","O")="1\KL.A"
	. S ^DMS(q,"KL.A","DMA","R")="0\KL.A"
	. S ^DMS(q,"KL.A","DMA","V")="1\KL.A"
	. S ^DMS(q,"KL.A","DMA","W")="1\KL.A"
	. S ^DMS(q,"LE.A","DMA","L")="1\LE.A"
	. S ^DMS(q,"LE.A","DMA","O")="1\LE.A"
	. S ^DMS(q,"LE.A","DMA","R")="0\LE.A"
	. S ^DMS(q,"LE.A","DMA","V")="1\LE.A"
	. S ^DMS(q,"LE.A","DMA","W")="1\LE.A"
	. S ^DMS(q,"LE.A","DMM","R")="0"
	. S ^DMS(q,"LE.A","DMM","W")="0"
	. N USA,QM
	. F USA="AR","ARA","LA","VT" D
	.. S QM=$S(USA="AR":12,USA="ARA":53,USA="LA":113,1:42)
	.. F I=1:1:5 D
	... S UFU=$S(I=1:"O",I=2:"W",I=3:"R",I=4:"V",1:"L")
	... S K=$TR($P($P($P($G(@("^"_q_"BA(""MENU"",QM,I)")),D,4),",",2),")"),"""","")
	... I $L(K) S ^DMS(q,USA,"DMA",UFU)=K_D_USA
	... S K=$TR($P($P($P($G(@("^"_q_"BA(""MENU"",QM,I)")),D,4),",",4),")"),"""","")
	... I $L(K) S ^DMS(q,USA,"DMM",UFU)=K
	I $ZV'["MSM" D
	. ; w !!,"Kies nu het bestand: ",@F92,"cq430.rsa",@F93,!
	. ; D ^%RI
	. S ^DMS(0,"GRIDN.TAB.COL","DMA","L")="VB\GRIDN.TAB.COL"
	. S ^DMS(0,"GRIDN.TAB.COL","DMA","O")="VB\GRIDN.TAB.COL"
	. S ^DMS(0,"GRIDN.TAB.COL","DMA","R")="VB\GRIDN.TAB.COL"
	. S ^DMS(0,"GRIDN.TAB.COL","DMA","V")="VB\GRIDN.TAB.COL"
	. S ^DMS(0,"GRIDN.TAB.COL","DMA","W")="VB\GRIDN.TAB.COL"
	. S ^DMS(0,"GRIDN.TAB.COL","DMM","O")="VB"
	. S ^DMS(0,"GRIDN.TAB.COL","DMM","W")="VB"
	;
V8010	I $G(hvv)'<8010 G V8020
	s r=$na(^DMA("VB","GRIDN.TAB.COL",1,24),4) d S1
	s r=$na(^DMA("VB","GRIDN.TAB.COL_USR",1,24),4) d S1
	;
V8020	I $G(hvv)'<8020 G V8030
	s r=$na(^DMH(0,"BS.AR.ARA"),2) d S1
	s r=$na(^DMC(0,"BS.AR.ARA"),2) d S1
	s r=$na(^DMC(0,"BS.AR.ARA:DMH"),2) d S1
	s r=$na(^DMA(0,"BS.AR.ARA"),2) d S1
	s r=$na(^DMC(0,"BS.ONEVEN:DMH"),2) d S1
	s r=$na(^DMH(0,"BS.ONEVEN"),2) d S1
	s r=$na(^DMM(0,"BS.AR.ARA"),2) d S1
	s r=$na(^DMC(0,"CUM.AR.ARA"),2) d S1
	s r=$na(^DMA(0,"CUM.AR.ARA"),2) d S1
	s r=$na(^DMC(0,"CUM.ONEVEN:DMH"),2) d S1
	s r=$na(^DMH(0,"CUM.ONEVEN"),2) d S1
	s r=$na(^DMA(0,"CUM.KZ.ARA"),2) d S1
	s r=$na(^DMC(0,"CUM.KZ.ARA"),2) d S1
	s r=$na(^DMH(0,"BH.HIS",0,"FLT"),4) d S1
	s r=$na(^DMA("VB"),1) d S1
	s r=$na(^DMC("VB"),1) d S1
	s r=$na(^DMH("VB"),1) d S1
	s r=$na(^DMM("VB"),1) d S1
	s r=$na(^BIB("INTR",100),2) d S1
	s r=$na(^FBIB("INTR",100),2) d S1
	s r=$na(^BIB("INTR",200),2) d S1
	s r=$na(^FBIB("INTR",200),2) d S1
	s r=$na(^BIB("INTR",1000,0),3) d S1
	s r=$na(^FBIB("INTR",1000,0),3) d S1
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. s r=$na(^DMS(q,"BS.AR.ARA"),2) d S1
	. s r=$na(^DMS(q,"CUM.AR.ARA"),2) d S1
	. s r=$na(^DMS(q,"CUM.KZ.ARA"),2) d S1
	. s r=$na(@("^"_q_"INTR(0,19,""USEL"")"),3) d S1
	S R="ADM\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""1""[K" D R0
	I ADM'=1 D
	. F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	.. ; Specifiek voor Van Hoecke
	.. ; S r=$na(@("^"_q_"BA(""MENU"",53,7)"),3) d S1
	.. ; S r=$na(@("^"_q_"BA(""MENU"",53,12)"),3) d S1
	;
V8030	I $G(hvv)'<8030 G V8040
	;
V8040	I $G(hvv)'<8040 G V8050
	s r=$na(^DMA("DAM","DMS"),2) d S1
	;
V8050	I $G(hvv)'<8050 G V8060
	S r=$na(^INDEX(0,"GRIDN"),2) d S1
	S r=$na(^INDEX(0,"GRIDN.TAB"),2) d S1
	S r=$na(^INDEX(0,"GRIDN.TAB_USR"),2) d S1
	S r=$na(^INDEX(0,"GRID.DATATYPE"),2) d S1
	S r=$na(^IND(0,"GRIDN.TAB"),2) d S1
	S r=$na(^IND(0,"GRIDN.TAB.COL"),2) d S1
	S r=$na(^IND(0,"GRIDN.TAB.COL_USR"),2) d S1
	S r=$na(^IND(0,"GRIDN.TAB_USR"),2) d S1
	S r=$na(^IND(0,"GRID.DATATYPE"),2) d S1
	;
V8060	I $G(hvv)'<8060 G V8070
	;
V8070	I $G(hvv)'<8070 G V8080
	D VOOR^V8070
	;
V8080	I $G(hvv)'<8080 G V8090
	S r=$na(^DMA("DAM","MENU"),2) d S1
	S r=$na(^DMA("0","SYS.QQM"),2) d S1
	S r=$na(^DMC("0","FID.J.DET","INDEX",2),4) d S1
	S r=$na(^DMA("0","BGJB"),2) d S1
	S r=$na(^DMM("0","BGJB_LOG"),2) d S1
	S r=$na(^DMC("0","NP.A"),2) d S1
	S r=$na(^DMA("0","NP.A"),2) d S1
	S r=$na(^DMA("EA","NP.A"),2) d S1
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. S r=$na(@("^"_q_"INTR(""%F"",2,""002 "")"),3) d S1
	; D VOOR^UPDLE
	K ^DMA(0,"LE.A")
	K ^DMA(1,"LE.A")
	K ^DMS("EA","LE.A")
	K ^DMC(0,"LE.A")
	D VOOR^CNVCALLLE
	D VOOR^CNVCALLNP
	;
V8090	I $G(hvv)'<8090 G V8100
	;
V8100	; I $G(hvv)'<8100 G V8110
	;
	G YZ
	;
A	; Xecutes After
	G N8000
	;
N8000	I $G(hvv)'<8000 G N8010
	D S1^cAN002(0,"DEV.PRT",24)
	D S1^cAN002(0,"USR",24)
	D S1^cAN002(0,"MAIL",24)
	;  Controle indexen codebestanden
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"")"
	; D S1^cAN002(0,"CODE.VV","","")
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"",BEHEER)"
	S HOST=$$SIG^cAFA1("HOSTS",9999,103)
	D W^cAN220("PAR.MAIL",0,"MAIL",108,HOST)
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. I $P($G(@("^"_q_"BA(300)")),D) D ^cTA181(q,"SYS",2004,1)
	. S ^DPAR(q,"AFS")="" 
	. F k="TO","TOL"  D
	.. S j=100
	.. F  S j=$O(@("^"_q_k_"(0,""F"",j)")) Q:j'?.N!(j>199)!(j="")  D
	... I $P(^(j),U,16)'=134 Q
	... S $P(^(j),U,8)="$S(K=0!(K=""""):$P(""met aanpassing#avec adaptation"",""#"",QTU),K=1:$P(""zonder aanpassing#sans adaptation"",""#"",QTU),1:$P(""vragen#demander"",""#"",QTU))"
	. S j=100
	. F  S j=$O(@("^"_q_"TO(0,""T"",j)")) Q:j'?.N!(j>199)!(j="")  D
	.. I $P(^(j),U,16)'=134 Q
	.. S $P(^(j),U,8)="$S(K=0!(K=""""):$P(""met aanpassing#avec adaptation"",""#"",QTU),K=1:$P(""zonder aanpassing#sans adaptation"",""#"",QTU),1:$P(""vragen#demander"",""#"",QTU))"
	; Opzetten vrije velden AR
	F I1=0,1 D
	. F I2=22:1:26 D
	.. I $D(^DMA(I1,"AR",1,I2)) Q
	.. S ^DMA(I1,"AR",1,I2,1)="\\\"
	.. S ^(2)=(I2-10)
	.. S ^(3)=42
	.. S ^(6)=59
	.. S ^(9)=20
	.. S ^(13)=20
	.. S ^(16)=(I2+198)
	.. S ^(19)="S K=$S(RK=31:""-"",1:K)"
	.. S ^(22)=1
	.. S ^(23)=1
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"LE",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"LE",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"LE",I2,I3,16))=201!($G(^DMA(I1,"LE",I2,I3,16))=217) S ^DMA(I1,"LE",I2,I3,10)="xxxxxx[] = binnenlands nummer   IL-xxxxxx[] = buitenlands nummer   [] = geen    ILxxxx[] = IBAN-code           (IL = Iso-Landcode)\xxxxxx[] = numéro national   PI-xxxxxx[] = numéro étranger   [] = aucun(e)      PIxxxx[] = code IBAN        (PI = code Pays Iso)\\xxxxxx[] = domestic number   IC-xxxxxx[] = foreign number   [] = none           ICxxxx[] = IBAN code        (IC = ISO-country code)"
	... I $G(^DMA(I1,"LE",I2,I3,16))=117 S ^DMA(I1,"LE",I2,I3,9)=5,^DMA(I1,"LE",I2,I3,11)="K'>100&$$W^cAFI2(K,2,0)",^DMA(I1,"LE",I2,I3,13)=7
	; (De)Installatie codebestanden
	; D ^cABI3
	I $ZV'["MSM" D
	. ; N (Q,D)
	. ; D ^cQUP430
	. s r=$na(^DMA("VB","GRIDN",1,15),4) d S1
	;
N8010	I $G(hvv)'<8010 G N8020
	S I1="" S VAR="UFLT "
	F  S I1=$O(^DMC(I1)) Q:I1=""  D
	. I '$D(^DMC(I1,"PR","SYN",0,0,2,0)) Q
	. I ^DMC(I1,"PR","SYN",0,0,2,0)'[VAR D
	.. S ^DMC(I1,"PR","SYN",0,0,2,0)=$P(^DMC(I1,"PR","SYN",0,0,2,0)," D P^cAN200")_" N UFLT "_"D P^cAN200"_$P(^DMC(I1,"PR","SYN",0,0,2,0),"D P^cAN200",2)
	;
N8020	I $G(hvv)'<8020 G N8030
	D S1^cAN002(0,"ALERT",0)
	D S1^cAN002(0,"ALERT_USR",0)
	D CONV^cA516
	F i="MAIL","MAIL.ATT" M ^INDMAIL(0,i)=^IND(0,i) K ^IND(0,i)
	D
	. N Q
	. S Q="DAM"
	. D S1^cAN002(0,"DEV.PRT",24)
	S VAR="I UI1,KLUSC=""KL"""
	I ^DMC(0,"BH.HIS","SYN",0,0,28,0)[VAR D
	. S ^DMC(0,"BH.HIS","SYN",0,0,28,0)="I $L($G(UI1)),KLUSC=""KL"""_$P(^DMC(0,"BH.HIS","SYN",0,0,28,0),VAR,2)
	;
N8030	I $G(hvv)'<8030 G N8040
	D S1^cAN002(0,"AFS.CAT",24)
	D S1^cAN002(0,"AFS.HRUB",24)
	D S1^cAN002(0,"AFS.RUBR",24)
	D S1^cAN002(0,"AFS.SUBR",24)
	s r=$na(^DMA(0,"PAR.PR.NB",1,29),4) d S1
	I $D(^DMA(0,"PAR.PR.NB",1,30)) S ^DMA(0,"PAR.PR.NB",1,30,2)=17
	; Wijzigen BTW-code in 200-reeks ivm BTW-codes en BTW niet aanrekenen
N8030A	S R="$S($L($P(U5,D,30)):$P(U5,D,30),'KB!$L($P(B(1),D,26)):0,1:$P(A0,D,5)) D VAL^cA305(K)"
	K ^TEMP(boot,$J)
	; F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. F UGL="UL","OD","TO","TOL","TB" D
	.. S US="" 
	.. F  S US=$O(@("^"_q_UGL_"(0,US)")) Q:US=""  D
	... S I=200 
	... F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>(299)!'$L(I)  D
	.... I $P(^(I),U,16)=108,$P(^(I),U,7)'=R S ^TEMP(boot,$J,q,UGL,US,I)="" Q
	.... I $P(^(I),U,16)=108,$P(^(I),U,7)=R S $P(^(I),U,7)="$$BTW^cFN204(1)"
	; Tonen van de nodes die niet automatisch konden worden gewijzigd
	S q=""
	F  S q=$O(^TEMP(boot,$J,q)) Q:q=""  D
	. S UGL=""
	. F  S UGL=$O(^TEMP(boot,$J,q,UGL)) Q:UGL=""  D
	.. S US=""
	.. F  S US=$O(^TEMP(boot,$J,q,UGL,US)) Q:US=""  D
	... S I=""
	... F  S I=$O(^TEMP(boot,$J,q,UGL,US,I)) Q:I=""  W !,"^"_q_UGL_"(0,"_US_","_I
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"PR")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"PR",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"PR",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"PR",I2,I3,16))'=101 Q
	... I ^DMA(I1,"PR",I2,I3,15)["($G(WIJZ)=3)" Q
	... S ^DMA(I1,"PR",I2,I3,15)=^DMA(I1,"PR",I2,I3,15)_"!($G(WIJZ)=3)"
	;
N8040	I $G(hvv)'<8040 G N8050
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. ; Specifiek voor Van Hoecke
	. ; S $P(@("^"_q_"BA(""MENU"",22,23)"),D,11)="Réception de produits"
	. ; S $P(@("^"_q_"BA(""MENU"",22,31)"),D,11)="Réception de produits"
	. ; S $P(@("^"_q_"BA(""MENU"",26,3)"),D,11)="Réception & contrôle des prix"
	S I1="" S VAR="D OHL^cANP200($G(UPRDMS),1)\D OHL^cANP200($G(UPRDMS),2) "
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"PR_LE",0,2)) Q
	. I ^DMA(I1,"PR_LE",0,2)'[VAR D
	.. S ^DMA(I1,"PR_LE",0,2)=$P(^DMA(I1,"PR_LE",0,2),D)_" "_VAR_$P(^DMA(I1,"PR_LE",0,2),D,2)
	; Specifiek voor Van Hoecke
	; D S1^cAN002("VB","GRIDN.TAB",24)
	; D S1^cAN002("VB","GRIDN.TAB.COL",24)
	; D S1^cAN002("VB","GRIDN.TAB_USR",24)
	; D S1^cAN002("VB","GRIDN.TAB.COL_USR",24)
	; D S1^cAN002("VB","GRIDN.DATATYPE",24)
	; D S1^cAN002("DAM","DMS",24)
	; D UPDI^cABVB01
	;
N8050	I $G(hvv)'<8050 G N8060
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. I '$D(@("^"_q_"UL(0,""F"",""UDO"")")) Q
	. I $P(@("^"_q_"UL(0,""F"",""UDO"")"),D,3)'["FACT^cANP84" S $P(@("^"_q_"UL(0,""F"",""UDO"")"),D,3)=$P(@("^"_q_"UL(0,""F"",""UDO"")"),D,3)_",FACT^cANP84"
	; Specifiek voor Van Hoecke
	; D UPD^cABVB01("DATAM.CONTACTPERSONEN","",1)
	; D UPD^cABVB01("DATAM.GEBRUIKERS","",1)
	; D UPD^cABVB01("DATAM.KLANTEN","",1)
	; D UPD^cABVB01("DATAM.KLANTENCATEGORIEEN","",1)
	; D UPD^cABVB01("DATAM.LANDEN","",1)
	; D UPD^cABVB01("DATAM.LEVERANCIERS","",1)
	; D UPD^cABVB01("DATAM.MUNTCODES","",1)
	; D UPD^cABVB01("DATAM.POSTCODES","",1)
	; D UPD^cABVB01("DATAM.PROSPECTEN","",1)
	; D UPD^cABVB01("DATAM.RANGKORTINGEN","",1)
	; D UPD^cABVB01("DATAM.VERTEGENWOORDIGERS","",1)
	; D UPD^cABVB01("TECH.KLANTENHISTORIEK","",1)
	; D UPD^cABVB01("TECH.OMZET","",1)
	; D UPD^cABVB01("TECH.OPENSTAANDEFACTUREN","",1)
	; D UPD^cABVB01("SYSTEM.LOGGING","",1)
	; D UPDI^cABVB01
	D S1^cAN002(0,"CP",24)
	; D S1^cAN002("VB","GRIDN.DATATYPE",24)
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"PR")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"PR",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"PR",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"PR",I2,I3,16))=406,($G(^DMA(I1,"PR",I2,I3,7))["D U^cAN000"),(^DMA(I1,"PR",I2,I3,7)'["D U^cAN000 M A=B") S ^DMA(I1,"PR",I2,I3,7)=$P(^DMA(I1,"PR",I2,I3,7),"D U^cAN000")_"D U^cAN000 M A=B"_$P(^DMA(I1,"PR",I2,I3,7),"D U^cAN000",2)
	D
	. N Q
	. S Q="DAM"
	. D S1^cAN002(0,"DEV.PRT",24)
	; D S1^cAN002("DAM","DMS",24)
	;
N8060	I $G(hvv)'<8060 G N8070
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. F UGL="TO","TOL" D
	.. F US="T","F" D
	... S I=200 
	... F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>(299)!'$L(I)  D
	.... I $P(^(I),U,16)=103 S $P(^(I),U,7)="$P(UAUTO,D,U7#100)",$P(^(I),U,14)="$D(UAUTO)"
	. S R="I $L(K) S DEC=K["".""*2,R=K_D_($P(U8,U,9)-3+$S(DEC:DEC+1,1:0))_D_D_DEC_D_1 D R3^cA103 S K=""-"""
	. F UGL="OD","TO" D
	.. F US="F" D
	... S I=6800
	... F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>(6899)!'$L(I)  D
	.... I $P($P(^(I),U),"~")=" Aantal",$P(^(I),U,8)=R S $P(^(I),U,8)="I $L(K) S DEC=$S(K#1:$L($P(K,""."",2)),1:0) S:(K#1&(DEC<2)) DEC=2 S R=K_D_(DEC=$S(DEC>2:DEC,1:2)*3+5)_D_D_DEC_D_1 D R3^cA103 S K=""-"""
	. S R="S DEC=$S(K#1:2,1:0),R=K_D_(DEC=2*3+5)_""\\""_DEC D R3^cA103 S K=""-"""
	. F UGL="OD" D
	.. F US="D","P" D
	... S I=800
	... F  S I=$O(@("^"_q_UGL_"(0,US,I)")) Q:I>(899)!'$L(I)  D
	.... I $P($P(^(I),U),D)="Aantal",$P(^(I),U,8)=R S $P(^(I),U,8)="S DEC=$S(K#1:$L($P(K,""."",2)),1:0) S:(K#1&(DEC<2)) DEC=2 S R=K_D_(DEC=$S(DEC>2:DEC,1:2)*3+5)_""\\""_DEC D R3^cA103 S K=""-"""
	;  Controle indexen codebestanden
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"")"
	; D S1^cAN002(0,"CODE.VV","","")
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"",BEHEER)"
	D ^cI97
	D ^cI96
	D DMA^cI98
	D CONV^cI98
	;
N8070	I $G(hvv)'<8070 G N8080
	;  Controle indexen codebestanden
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"")"
	; D S1^cAN002(0,"CODE.VV","","")
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"",BEHEER)"
	D S1^cAN002(0,"TEXT.9005",24)
	; Werd reeds apart uitgevoerd bij Van Hoecke
	; D BTW^cI43
	; D DMA^cI43("KL")
	; D DMA^cI43("LE")
	D DMA^cI42("KL")
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. D PLUS^cI42(q,"KL")
	D NA^V8070
	; Specifiek voor Van Hoecke: niets van klassen inlezen
	; D LOAD^V8070
	S I1=""
	; Specifiek voor Van Hoecke: geen wijziging aan korting
	; F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"KL")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"KL",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"KL",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"KL",I2,I3,16))=205 S ^DMA(I1,"KL",I2,I3,8)="S U3=$$Z^cAFO1 I $L(K) S U3=K_"" ""_$P($G(@(""^""_Q_""KORT(0,K)""),""?""),D)"
N8070A	S FRM="PROG.KLA.KL",i=FRM_" " F  S i=$O(^VBN(0,"FORM.ITEM",i)) Q:$P(i," ")'=FRM  S $P(^VBN(0,"FORM.ITEM",i,0),"\",11)="-1"
	; D FORM^cABVBP5("PROG.KLA.CALLKL")
N8070B	; F j="KL.A","LE.A","CP.A","VT.A" I $D(^DMS(0,j,0)) S $P(^DMS(0,j,0),D,2)=0
	; F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	; . F j="KL.A","LE.A","CP.A","VT.A" I $D(^DMS(q,j,0)) S $P(^DMS(q,j,0),D,2)=0
	; D S1^cAN002("DAM","DMS")
	;
N8080	I $G(hvv)'<8080 G N8090
	D CONV^cAN2271
	;  Controle indexen codebestanden
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"")"
	; D S1^cAN002(0,"CODE.VV","","")
	S ^DMC(0,"CODE.VV","DIN")="^|$G(cs(1),$ZU(5))|DIN(0,""CODE.VV"",BEHEER)"
	; Specifiek voor Van Hoecke
	; D NA^UPDLE
	D DMA^cI42("LE")
	D PLUS^cI42("K","LE")
N8080A	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. ; I $D(^DMS(q,"ARA",2)) S $P(^DMS(q,"ARA",2),D,3)="D ARA2ARAA^cAN00821"
	. ; I $D(^DMS(q,"ARA.A",2)) S $P(^DMS(q,"ARA.A",2),D,3)="D ARAA2ARA^cAN00821"
	. ; I $D(^DMS(q,"NP")) S ^DMS(q,"NP",2)="0\NP.A\D NP2NPA^cAN00821"
	. S ^DPAR(q,"PAR","CALL.NP",0)="CALL.NP\Prospectencalls\5\1011\1001\1002\1\1\0\\\\\\\\\\\\\\\\\\\\\0"
	. S I1=""
	. F  S I1=$O(^DARA(q,"ARA.A",I1)) Q:I1=""  S J=^(I1,0) F J=13,21 S $P(^(0),D,J)=+$P(^(0),D,J)
	. ; I $D(@("^"_q_"BA(""MENU"",16,35)")) S $P(@("^"_q_"BA(""MENU"",16,35)"),D,4)="W^cAN200(""CODE.9029"","""","""","""")"
	. ; I $D(@("^"_q_"BA(""MENU"",16,3)")) S $P(@("^"_q_"BA(""MENU"",16,3)"),D,4)="^cA333,COPY2N^cAN2279(0,""KODE.VM"",""CODE.9009"",1)"
	. ; I $D(@("^"_q_"BA(""MENU"",16,30)")) S $P(@("^"_q_"BA(""MENU"",16,30)"),D,4)="^cA250,COPY2N^cAN2279(0,""KL.KAT"",""CODE.9012"");S RGL=""BA"",RR1=""%F"",RR2=1"
	. ; I $D(@("^"_q_"BA(""MENU"",101,1)")) S $P(@("^"_q_"BA(""MENU"",101,1)"),D,4)="^cA250,COPY2N^cAN2279(0,""KL.RK"",""CODE.9001""),^cPNK105;S RGL=""BA"",RR1=""%F"",RR2=33"
	. ; S @("^"_q_"BA(""MENU"",107,5)")="Totalen per kassa\8\3\^cFW480\D\\\\\\Totaux par caisse"
	. S @("^"_q_"UL(0,""F"",""UDOU.EXT"")")="DETAIL\HOOFD\INTER^cANR24\AFSL\SLOT^cANR24\\\\\VRAAG\KOLTIT"
	. S @("^"_q_"TO(0,""T"",112)")="Status~Statut;6;47;;6;59;"""";$P($P(""openstaand\afgewerkt\buiten gebruik#en suspens\achevé\hors usage"",""#"",QTU),D,K+1);1;[] = openstaand   1[] = afgewerkt   2[] = buiten gebruik~[] = en suspens   1[] = achevé   2[] = hors usage;""12""[K;;13;K'=""-"";;150;;;;;;;;"
	. S @("^"_q_"TB(0,""F"",114)")="Kas~Cais.;7;68;;7;78;;;3;;;1;;1;1;152;;;;;;;;"
	. ; S $P(^DPAR(q,"PAR","CALL.KL",0),D,8)=1
	. ; S $P(^DPAR(q,"PAR","CALL.KL",0),D,9)=1
	. ; S $P(^DPAR(q,"PAR","CALL.LE",0),D,9)=1
	; I $D(^DMS(0,"ARA",2)) S $P(^DMS(0,"ARA",2),D,3)="D ARA2ARAA^cAN00821"
	; I $D(^DMS(0,"ARA.A",2)) S $P(^DMS(0,"ARA.A",2),D,3)="D ARAA2ARA^cAN00821"
	; I $D(^DMS(0,"NP")) S ^DMS(0,"NP.A",2)="0\NP\D NPA2NP^cAN00821"
	; I '$D(^DMS(0,"LE.A")) D
	. S ^DMS(0,"LE.A")="0\LE.A"
	. S ^DMS(0,"LE.A",0)="Leveranciers (via GUI)\1\0\LE.A\1\\\\\\Fournisseurs (via GUI)\\\\\\\\\\\\\\\\\58695,61961\VJ\1\Suppliers (via GUI)\13.09.01"
	; S ^DMS(0,"LE.A",2)="0\LE\D LEA2LE^cAN00821"
	; S ^DMS(0,"LE.A","DMA","L")="0\LE.A"
	; S ^DMS(0,"LE.A","DMA","O")="0\LE.A"
	; S ^DMS(0,"LE.A","DMA","R")="0\LE.A"
	; S  ^DMS(0,"LE.A","DMA","V")="0\LE.A"
	; S ^DMS(0,"LE.A","DMA","W")="0\LE.A"
	; I '$D(^DMS(0,"NP.A")) D
	. S ^DMS(0,"NP.A")="0\NP.A"
	. S ^DMS(0,"NP.A",0)="Prospecten (via GUI)\1\0\NP.A\1\\\\\\Prospects (via GUI)\\\\\\\\\\\\\\\\\56567,33311\VJ\1\Prospecten (via GUI)"
	; S ^DMS(0,"NP.A",2)="0\NP\D NPA2NP^cAN00821"
	; S ^DMS(0,"NP.A","DMA","L")="0\NP.A"
	; S ^DMS(0,"NP.A","DMA","O")="0\NP.A"
	; S ^DMS(0,"NP.A","DMA","R")="0\NP.A"
	; S ^DMS(0,"NP.A","DMA","V")="0\NP.A"
	; S ^DMS(0,"NP.A","DMA","W")="0\NP.A"
	S BIN="\116\"
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"AR")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"AR",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"AR",I2,I3)) Q:I3=""  D
	... S BI=$G(^DMA(I1,"AR",I2,I3,16))
	... I BIN'=(D_BI_D) Q
	... W !,I1_" - AR - "_I2_" - "_I3
	... S ^DMA(I1,"AR",I2,I3,8)="S U3=$$COM^cAFO3(""CODE.9029"",K)"
	... S ^DMA(I1,"AR",I2,I3,19)="S K=$$^cANSYN(""CODE.9029"","""",K,1,'K)"
	; D EXPL^cI45
N8080B	S I1="" S VAR="N USORT "
	F  S I1=$O(^DMC(I1)) Q:I1=""  D
	. I '$D(^DMC(I1,"PR","SYN",0,0,2,0)) Q
	. I ^DMC(I1,"PR","SYN",0,0,2,0)'[VAR D
	.. S ^DMC(I1,"PR","SYN",0,0,2,0)="N USORT "_^DMC(I1,"PR","SYN",0,0,2,0)
	; D COPY2N^cAN2279(0,"KODE.VM","CODE.9009",1)
	; D COPY2N^cAN2279(0,"KL.KAT","CODE.9012")
	; D COPY2N^cAN2279(0,"KL.RK","CODE.9001")
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. N Q
	. S Q=q
	. D ^cI46
	. D CONV^cI47
	. D CONV^cI48
	. S R=$$SIGN^cAFA1("DMS","FA.H",0),UQA=$P(R,D,3),USA=$P(R,D,4)
	. S:UQA="" UQA=0 S:USA="" USA="FA.H"
	. S ^DMS(Q,"FA.H","DMA","O")=UQA_"\"_USA
	. S ^DMS(Q,"FA.H","DMA","L")=UQA_"\"_USA
	. S ^DMS(Q,"FA.H","DMA","R")=UQA_"\"_USA
	. S ^DMS(Q,"FA.H","DMA","V")=UQA_"\"_USA
	. S ^DMS(Q,"FA.H","DMA","W")=UQA_"\"_USA
	. S R=$$SIGN^cAFA1("DMS","FA.D",0),UQA=$P(R,D,3),USA=$P(R,D,4)
	. S:UQA="" UQA=0 S:USA="" USA="FA.D"
	. S ^DMS(Q,"FA.D","DMA","O")=UQA_"\"_USA
	. S ^DMS(Q,"FA.D","DMA","L")=UQA_"\"_USA
	. S ^DMS(Q,"FA.D","DMA","R")=UQA_"\"_USA
	. S ^DMS(Q,"FA.D","DMA","V")=UQA_"\"_USA
	. S ^DMS(Q,"FA.D","DMA","W")=UQA_"\"_USA
	F DMS="KL","LE","NP" D
	. S I1=0 F  S I1=$O(^DPAR(I1)) Q:'$L(I1)  D
	.. I '$D(^DPAR(I1,"PAR",DMS,2)) Q
	.. F i=6:1:7 S $P(^DPAR(I1,"PAR",DMS,1),D,i)=$P(^DPAR(I1,"PAR",DMS,2),D,i)
	.. W !,I1,"-",DMS,":",?10,^DPAR(I1,"PAR",DMS,1),!,?10,^DPAR(I1,"PAR",DMS,2)
	.. K ^DPAR(I1,"PAR",DMS,2)
	; F j="CALL.LE","CALL.LE.HIS","CALL.LE.OPV","CALL.LE.DOC" s i="" f  s i=$o(^DCALL("EA",j,i)) q:i=""  s $p(^(i,0),D,49)="EA"
	; F j="CALL.LE","CALL.LE.HIS","CALL.LE.OPV","CALL.LE.DOC" D S1^cAN002(0,j,24)
	; D S1^cAN002(0,"CODE.9022","")
	; D S1^cAN002(0,"TEXT.9007","")
	; D S1^cAN002(0,"ISO.LAND","")
	; D UPD^cABVB01("PROG.CODES.CODE9032",,1)
	; D UPD^cABVB01("PROG.CODES.CODE9012",,1)
	; D UPD^cABVB01("PROG.KLA.KL",,1)
	; D UPD^cABVB01("PROG.TECH.CALLKLHIS",,1)
	; D UPD^cABVB01("PROG.TECH.CALLLEHIS",,1)
	; D UPD^cABVB01("PROG.TECH.CALLNPHIS",,1)
	; D UPD^cABVB01("PROG.KLA.CALLKL",,1)
	; D UPD^cABVB01("PROG.LEV.CALLLE","",1)
	; D UPDI^cABVB01
	; D UPDI^cABVBP1
	; D UPDI^cABVBF1
	; D UPDI^cABVBD1
	; D UPDI^cABVBK1
	; D LOAD^V8070
	; D $System.OBJ.CompileAll("cfv")
	;
N8090	I $G(hvv)'<8090 G N8100
	D S1^cAN002("VB","GRIDN.TAB.COL",24)
	D S1^cAN002(0,"LE.A",24)
	D S1^cAN002(0,"ISO.LAND",24)
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. N Q
	. S Q=q
	. ; D CONV^cI49
	. S A="K I K'=$P(U5,D,4) N X,Y S X=$$DI^cAN000($P(U5,D,4),""""),Y=$$DI^cAN000(K,"""") I X'=Y,$D(@(""^""_Q_""TOA(KC,X)"")) M ^(Y)=^(X) S ^(Y)=K K ^(X)"
	. S B="K I K'=$P(U5,D,4) N X,Y S X=$$DI^cAN000($P(U5,D,4),""""),Y=$$DI^cAN000(K,"""") I X'=Y,$D(@(""^""_Q_""TOA(KC,X,UR)"")) D S6^cFNT201"
	. S E="K I K&'$P(B(1),D,50) S $P(B(1),D,50)=1"
	. S F="K I K&'$P(B(1),D,50) S $P(B(1),D,50)=1 D S5^cFNT201"
	. S I=100 
	. F  S I=$O(@("^"_q_"TOL(0,""P"",I)")) Q:I>(199)!'$L(I)  D
	.. I $P(^(I),U,16)=104,$P(^(I),U,8)=A S $P(^(I),U,8)=B
	.. I $P(^(I),U,16)=145,$P(^(I),U,8)=E S $P(^(I),U,8)=F
	;
N8100	; I $G(hvv)'<8100 G N8110
	;
	G YZ
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
ZZ	; 28.08.07 - 14 u 49 * V8.09