UIBAN	;IS IBAN-codes; UIBAN
	;
YZ	Q
	;
VOOR	K ^DMA(0,"LE.MOD.O")
	K ^DMM(0,"LE",79)
	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))=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 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 ^DMM(1,"AR",79)
VOORZ	Q
	;
NA	K ^oldupdDMA
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"LE")) 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)="IBAN/nat.\IBAN/nat.\IBAN/nat.\IBAN/nat."
	.... S ^DMA(I1,"LE",I2,I3,6)=17
	.... S ^DMA(I1,"LE",I2,I3,9)=38
	.... S ^DMA(I1,"LE",I2,I3,13)=38
	.... 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))=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
	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
	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
	;
	;  Aanpassen commentaar ivm banknummer bij module leveranciersbetalingen
	S I1=""
	F  S I1=$O(^DMA(I1)) Q:I1=""  D
	. I '$D(^DMA(I1,"BVB.LE.B")) Q
	. S ^DMA(I1,"BVB.LE.B",1,9.5,1)="BIC\BIC\\BIC"
	. S ^DMA(I1,"BVB.LE.B",1,9.5,2)=14
	. S ^DMA(I1,"BVB.LE.B",1,9.5,3)=2
	. S ^DMA(I1,"BVB.LE.B",1,9.5,6)=21
	. S ^DMA(I1,"BVB.LE.B",1,9.5,8)="S U3="""" I $L(K) S U3=$$SIG^cAFA1(""SWIFT"",K,101)_"" ""_$P(^(0),D,2)"
	. S ^DMA(I1,"BVB.LE.B",1,9.5,9)=4
	. S ^DMA(I1,"BVB.LE.B",1,9.5,10)="\\"
	. S ^DMA(I1,"BVB.LE.B",1,9.5,13)=38
	. S ^DMA(I1,"BVB.LE.B",1,9.5,16)=111
	. S ^DMA(I1,"BVB.LE.B",1,9.5,18)="SWIFT"
	. S ^DMA(I1,"BVB.LE.B",1,9.5,19)="S K=$$^cANSYN(""SWIFT"","""",K,1,0)"
	. S ^DMA(I1,"BVB.LE.B",1,9.5,22)=1
	. S ^DMA(I1,"BVB.LE.B",1,9.5,23)=1
	. S I2=0
	. F  S I2=$O(^DMA(I1,"BVB.LE.B",I2)) Q:I2=""  D
	.. S I3=0
	.. F  S I3=$O(^DMA(I1,"BVB.LE.B",I2,I3)) Q:I3=""  D
	... I $G(^DMA(I1,"BVB.LE.B",I2,I3,16))'=110 Q
	... S ^DMA(I1,"BVB.LE.B",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)\"
	... S ^DMA(I1,"BVB.LE.B",I2,I3,7)="S EXIT=1"
	... S ^DMA(I1,"BVB.LE.B",I2,I3,9)=38
	... S ^DMA(I1,"BVB.LE.B",I2,I3,13)=38
	D S1^cAN002(0,"SWIFT",24)
	D SWIFT^cI73
	D UPDQLE^cI73
NAZ	Q
	;
ZZ	; 08.02.08 - 14 u 58 * V9.00