cI78	;Algemene update ivm IBAN + CODA; cI78
	;
YZ	Q
	;
NA	; Installatie IBAN
	N qq,L,I1,I2,I3
	S $ZT="TRAP^cAN000"
	I '$L($G(^cLOG(boot,"Q",$ZU(5)))) W !!!!,$ZR_" : bestaat niet, gelieve deze eerst op te zetten." G NAZ
	K ^oldupdDMA
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE")) Q
	. I $E(I1,1,3)="LVH" Q
	. S I2=0
	. I $D(^DMA(I1,"LE",1,"13.5")) M ^oldupdDMA(I1,"LE",1,"13.5")=^DMA(I1,"LE",1,"13.5") K ^DMA(I1,"LE",1,"13.5")
	. I $D(^DMA(I1,"LE",1,"19.5")) M ^oldupdDMA(I1,"LE",1,"19.5")=^DMA(I1,"LE",1,"19.5") K ^DMA(I1,"LE",1,"19.5")
	. I $D(^DMA(I1,"LE",1,23)) M ^oldupdDMA(I1,"LE",1,23)=^DMA(I1,"LE",1,23) K ^DMA(I1,"LE",1,23)
	. I $D(^DMA(I1,"LE",2,3)) M ^oldupdDMA(I1,"LE",2,3)=^DMA(I1,"LE",2,3) K ^DMA(I1,"LE",2,3)
	. S ^DMA(I1,"LE",1,"13.5",1)="BIC\BIC\BIC\BIC"
	. S ^(2)=14
	. S ^(3)=2
	. S ^(6)=17
	. S ^(8)="S U3="""" I $L(K) S U3=$$SIG^cAFA1(""SWIFT"",K,101)_"" ""_$P(^(0),D,2)"
	. S ^(9)=4
	. S ^(10)="\\\"
	. S ^(13)=38
	. S ^(16)=305
	. S ^(18)="SWIFT"
	. S ^(19)="S K=$$^cANSYN(""SWIFT"","""",K,1,0)"
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE",1,"19.5",1)="Eig.kl.nr.\Code client\Eig.K.Nr.\Cust. Nbr."
	. S ^(2)=11
	. S ^(3)=45
	. S ^(6)=61
	. S ^(9)=10
	. S ^(10)="uw klantnummer in boekhouding leverancier\votre n° de client dans la comptabilité du fournisseur\Ihre Kundenummer in Buchhaltung der Lieferanten\Your customer number in the accounting of the supplier"
	. S ^(13)=10
	. S ^(16)=110
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE",1,23,1)="Muntcode\Code monnaie\Währung\Currency"
	. S ^(2)=15
	. S ^(3)=56
	. S ^(6)=72
	. S ^(7)="I K="""" S K=$$BF^cAFA1"
	. S ^(9)=3
	. S ^(11)="$L(K)"
	. S ^(13)=3
	. S ^(15)="$$CNW^cAFE2($P(B(1),D))&'$G(EXTWIJZ)"
	. S ^(16)=111
	. S ^(19)="S K=$$^cANSYN(""KODE.VM"","""",K)"
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE",2,3,1)="IBAN/nat. nr.\IBAN/numéro nat.\IBAN/nat. nr.\IBAN/nat.number"
	. S ^(2)=5
	. S ^(3)=2
	. S ^(6)=21
	. S ^(8)="S U3=$$BANK^cAFO1(K)"
	. S ^(9)=38
	. S ^(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[] = inländische Nummer   IL-xxxxxx[] = ausländische Nummer   [] = kein   ILxxxx[] = IBAN-Code           (IL = Iso-Ländercode)\xxxxxx[] = domestic number   IC-xxxxxx[] = foreign number   [] = none           ICxxxx[] = IBAN code        (IC = ISO-country code)"
	. S ^(11)="$$BANK^cAFI2(K)"
	. S ^(13)=38
	. S ^(15)="'$G(EXTWIJZ)&'$P(B(2),D,10)"
	. S ^(16)=217
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE",2,"3.5",1)="BIC\BIC\BIC\BIC"
	. S ^(2)=6
	. S ^(3)=2
	. S ^(6)=21
	. S ^(8)="S U3="""" I $L(K) S U3=$$SIG^cAFA1(""SWIFT"",K,101)_"" ""_$P(^(0),D,2)"
	. S ^(9)=4
	. S ^(10)="\\\"
	. S ^(13)=11
	. S ^(15)="'$G(EXTWIJZ)&'$P(B(2),D,10)"
	. S ^(16)=338
	. S ^(18)="SWIFT"
	. S ^(19)="S K=$$^cANSYN(""SWIFT"","""",K,1,0)"
	. S ^(22)=1
	. S ^(23)=1
	. 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 D
	.... S ^DMA(I1,"LE",I2,I3,1)="Banknr.\N° compte\Banknr.\Bank acc."
	.... S ^DMA(I1,"LE",I2,I3,6)=17
	.... S ^DMA(I1,"LE",I2,I3,9)=38
	.... S ^DMA(I1,"LE",I2,I3,13)=38
	... I $G(^DMA(I1,"LE",I2,I3,16))=221 S ^DMA(I1,"LE",I2,I3,2)=15
	... I $G(^DMA(I1,"LE",I2,I3,16))=118 S ^DMA(I1,"LE",I2,I3,2)=12
	... I $G(^DMA(I1,"LE",I2,I3,16))=117 D
	.... S ^DMA(I1,"LE",I2,I3,2)=13
	.... S ^DMA(I1,"LE",I2,I3,3)=56
	.... S ^DMA(I1,"LE",I2,I3,6)=72
	... I $G(^DMA(I1,"LE",I2,I3,16))=223 D
	.... S ^DMA(I1,"LE",I2,I3,2)=14
	.... S ^DMA(I1,"LE",I2,I3,3)=56
	.... S ^DMA(I1,"LE",I2,I3,6)=72
	... I $G(^DMA(I1,"LE",I2,I3,16))=211 S ^DMA(I1,"LE",I2,I3,2)=7
	... I $G(^DMA(I1,"LE",I2,I3,16))=212 S ^DMA(I1,"LE",I2,I3,2)=8
	... I $G(^DMA(I1,"LE",I2,I3,16))=213 S ^DMA(I1,"LE",I2,I3,2)=9
	... I $G(^DMA(I1,"LE",I2,I3,16))=214 S ^DMA(I1,"LE",I2,I3,2)=10
	... I $G(^DMA(I1,"LE",I2,I3,16))=215 S ^DMA(I1,"LE",I2,I3,2)=11
	... I $G(^DMA(I1,"LE",I2,I3,16))=118 S ^DMA(I1,"LE",I2,I3,11)="$$BET^cAFI1(K,"""",""CODE.9028"")"
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE.A")) Q
	. F I=4:1:9 I $D(^DMA(I1,"LE.A",3,I)) M ^oldupdDMA(I1,"LE.A",3,I)=^DMA(I1,"LE.A",3,I) K ^DMA(I1,"LE.A",3,I)
	. S ^DMA(I1,"LE.A",3,4,1)="Betalingstype\Type de paiement\\Payment Type"
	. S ^(2)=4
	. S ^(3)=1
	. S ^(4)=""
	. S ^(6)=21
	. S ^(8)="S U3=$$COM^cAFO3(""CODE.9045"",K)"
	. S ^(9)=6
	. S ^(10)="\\\"
	. S ^(11)=""
	. S ^(13)=37
	. S ^(15)=""
	. S ^(16)=112
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE.A",3,5,1)="Betalingsvoorstel\Prop. de paiement\\Payment Proposal"
	. S ^(2)=5
	. S ^(3)=1
	. S ^(4)=""
	. S ^(6)=30
	. S ^(8)="S U3=$$SIG^cAFA1(""TEXT.9001"",K,102+(QTU-1*10))"
	. S ^(9)=1
	. S ^(10)="\\\"
	. S ^(11)=""
	. S ^(13)=4
	. S ^(15)=""
	. S ^(16)=202
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE.A",3,6,1)="Betalingen blokkeren\Blocquer paiements\\Block Payments"
	. S ^(2)=6
	. S ^(3)=1
	. S ^(4)=""
	. S ^(6)=30
	. S ^(8)="S U3=$$SIG^cAFA1(""TEXT.9001"",K,102+(QTU-1*10))"
	. S ^(9)=1
	. S ^(10)="\\\"
	. S ^(11)=""
	. S ^(13)=4
	. S ^(15)=""
	. S ^(16)=228
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE.A",3,7,1)="Kostencode\Code des frais\\Cost Code"
	. S ^(2)=7
	. S ^(3)=1
	. S ^(4)=""
	. S ^(6)=21
	. S ^(8)="S U3=$$COM^cAFO3(""CODE.9046"",K)"
	. S ^(9)=3
	. S ^(10)="\\\"
	. S ^(11)=""
	. S ^(13)=34
	. S ^(15)=""
	. S ^(16)=303
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE.A",3,8,1)="BIC\BIC\\BIC"
	. S ^(2)=8
	. S ^(3)=1
	. S ^(6)=21
	. S ^(8)="S U3=$$SIG^cAFA1(""SWIFT"",K,101)_"" ""_$P($G(^(0)),D,2)"
	. S ^(9)=11
	. S ^(10)="\\\"
	. S ^(13)=47
	. S ^(16)=305
	. S ^(22)=1
	. S ^(23)=1
	. S ^DMA(I1,"LE.A",3,9,1)="BIC factoring\BIC factoring\\BIC Factoring"
	. S ^(2)=9
	. S ^(3)=1
	. S ^(6)=21
	. S ^(8)="S U3=$$SIG^cAFA1(""SWIFT"",K,101)_"" ""_$P($G(^(0)),D,2)"
	. S ^(9)=11
	. S ^(10)="\\\"
	. S ^(13)=47
	. S ^(16)=338
	. S ^(22)=1
	. S ^(23)=1
	. S I2=0
	. F  S I2=$O(^DMA(I1,"LE.A",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"LE.A",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"LE.A",I2,I3,16))=201 D
	.... S ^DMA(I1,"LE.A",I2,I3,1)="IBAN/nationaal nummer bank\IBAN/numéro national banque\\IBAN/National Number Bank"
	.... S ^(6)=35
	.... S ^(9)=38
	.... S ^(13)=38
	... I $G(^DMA(I1,"LE.A",I2,I3,16))=217 D
	.... S ^DMA(I1,"LE.A",I2,I3,1)="IBAN/nationaal nummer factoring\IBAN/numéro national factoring\\IBAN/National Number Factoring"
	.... S ^(6)=40
	.... S ^(9)=38
	.... S ^(13)=38
	;
NAA	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE")) Q
	. I $E(I1,1,3)="LVH" 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))=110 K ^DMA(I1,"LE",I2,I3) Q
	... I $G(^DMA(I1,"LE",I2,I3,16))=221 K ^DMA(I1,"LE",I2,I3) Q
	. I $D(^DMA(I1,"LE",1,14)) M ^oldupdDMA(I1,"LE",1,14)=^DMA(I1,"LE",1,14) K ^DMA(I1,"LE",1,14)
	. I $D(^DMA(I1,"LE",1,"19.2")) M ^oldupdDMA(I1,"LE",1,"19.2")=^DMA(I1,"LE",1,"19.2") K ^DMA(I1,"LE",1,"19.2")
	. S ^DMA(I1,"LE",1,14,1)="Kostencode\Code des frais\\Kostencode"
	. S ^DMA(I1,"LE",1,14,2)="15"
	. S ^DMA(I1,"LE",1,14,3)="2"
	. S ^DMA(I1,"LE",1,14,6)="21"
	. S ^DMA(I1,"LE",1,14,8)="S U3=$$COM^cAFO3(""CODE.9046"",K)"
	. S ^DMA(I1,"LE",1,14,9)="4"
	. S ^DMA(I1,"LE",1,14,10)="\"
	. S ^DMA(I1,"LE",1,14,13)="32"
	. S ^DMA(I1,"LE",1,14,16)="303"
	. S ^DMA(I1,"LE",1,14,18)="CODE.9046"
	. S ^DMA(I1,"LE",1,14,19)="S K=$$^cANSYN(""CODE.9046"","""",K)"
	. S ^DMA(I1,"LE",1,14,22)=1
	. S ^DMA(I1,"LE",1,14,23)=1
	. S ^DMA(I1,"LE",1,19.2,1)="Ventilatie\Ventilation\\Ventilation"
	. S ^DMA(I1,"LE",1,19.2,2)=11
	. S ^DMA(I1,"LE",1,19.2,3)=45
	. S ^DMA(I1,"LE",1,19.2,6)=61
	. S ^DMA(I1,"LE",1,19.2,8)="S U3=$$KL^cAFO1(""AR"",K)"
	. S ^DMA(I1,"LE",1,19.2,9)=7
	. S ^DMA(I1,"LE",1,19.2,10)="\"
	. S ^DMA(I1,"LE",1,19.2,13)=18
	. S ^DMA(I1,"LE",1,19.2,16)=221
	. S ^DMA(I1,"LE",1,19.2,18)="AR"
	. S ^DMA(I1,"LE",1,19.2,19)="D Z^cAN101(""K"",16,"""",""AR"",K)"
	. S ^DMA(I1,"LE",1,19.2,22)=1
	. S ^DMA(I1,"LE",1,19.2,23)=1
	;	
	I $D(^oldupdDMA) D
	. W !,"Volgende ^DMA's moeten bekeken worden: "
	. S I1=""
	. F  S I1=$O(^oldupdDMA(I1)) Q:I1=""  D
	.. S I2=""
	.. F  S I2=$O(^oldupdDMA(I1,I2)) Q:I2=""  W !,"^DMA("_I1_","_I2
	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
	... I $G(^DMA(I1,"AR",I2,I3,16))=109 S ^DMA(I1,"AR",I2,I3,9)=38 
	;
	D S1^cAN002(0,"CODE.9045",24)
	D S1^cAN002(0,"CODE.9046",24)
	S BEHEER=1 D S1^cAN002(0,"CODE.VV",24)
	D SWIFT^cI73
	D UPDQLE^cI73
	D LEBK^cI73
	;
NAB	s qq=^cLOG(boot,"Q",$ZU(5))
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. ; Aanpassen menu 'Bankcodes' naar 'BIC'
	. I $D(@("^"_q_"BA(""MENU"",11,11)")) F L=1,11 S $P(@("^"_q_"BA(""MENU"",11,11)"),D,L)="BIC"
	. D
	.. N Q
	.. S Q=q
	.. D BIC^cI75   ; Inlezen BIC codes (BIC.TXT)
	. D LE^cI75(q,"LE")   ; Converteren banknummers
	W !,"Einde Xecutes na"
NAZ	Q
	;
VOOR	; Xecutes voor update ivm IS IBAN
	N I1,I2,I3,qq
	S $ZT="TRAP^cAN000"
	K ^DMA(0,"LE.MOD.O")
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE")) Q
	. I $E(I1,1,3)="LVH" 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))=111 K ^DMA(I1,"LE",I2,I3)
	... I $G(^DMA(I1,"LE",I2,I3,16))=110 K ^DMA(I1,"LE",I2,I3)
	... I $G(^DMA(I1,"LE",I2,I3,16))=301 K ^DMA(I1,"LE",I2,I3)
	... I $G(^DMA(I1,"LE",I2,I3,16))=216 K ^DMA(I1,"LE",I2,I3)
	... I $G(^DMA(I1,"LE",I2,I3,16))=217 K ^DMA(I1,"LE",I2,I3)
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE.A")) Q
	. S I2=0
	. F  S I2=$O(^DMA(I1,"LE.A",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"LE.A",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"LE.A",I2,I3,16))=216 K ^DMA(I1,"LE.A",I2,I3)
	s qq=^cLOG(boot,"Q",$ZU(5))
	F i=1:1:$l(qq,D) s q=$p(qq,D,i) i q'="DAM",$l(q) d
	. K @("^"_q_"BA(""%T"",4)")
	. K @("^"_q_"BA(""%T"",5)")
	K ^DMA(1,"BVB.LE.B",1,9)
	K ^DMM(0,"LE",79)
	K ^DMM(1,"AR",79)
	W !,"Einde xecutes voor"
VOORZ	Q
	;
ZZ	; 26.02.09 - 10 u 24 * V9.05