cI73	;Conversie leveranciers: banknummers; cI73
	;
YZ	Q
	;
UPDQLE	N Q,UREF,UI1,NODE0,NODE1,NODE2,TAB,B112,B305
	S $ZT="TRAP^cAN000"
	W !,"Begin update Q_LE"
	;
	S Q=0
	F  S Q=$O(^DMS(Q)) Q:'$L(Q)  D
	. I Q="DAM" Q
	. I '$D(^DMS(Q,"LE")) Q
	. S UREF=$P($$REF^cAFA10(Q,"LE"),D)
	. I '$L(UREF) Q
	. S UI1=0
	. F  S UI1=$O(@UREF) Q:UI1=""  D
	.. S NODE0=^(UI1,0)
	.. S NODE1=$G(^(1))
	.. S NODE2=$G(^(2))
	.. ; S (Q,Q(49))=$P(NODE0,D,49)
	.. S B112=$P(NODE0,D,12)           ; betalingstype
	.. S TAB(228)=+$P(NODE1,D,28)      ; betaling blokkeren
	.. S TAB(202)=+$P(NODE1,D,2)       ; betalingsvoorstel
	.. I $ZU(5)["DATAM" S B112="",TAB(112)=""
	.. I $L(B112) S NLEBT=$$SIGN^cAFA1("LE.BT",B112,0) S TAB(228)=+$P(NLEBT,D,4),TAB(202)=+$P(NLEBT,D,3)
	.. 
	.. S B305=$P(NODE2,D,5)            ; intern nummer SWIFT
	.. ; S NSWIFT=$$SIGN^cAFA1("SWIFT",B305,0)
	.. ; S TAB(305)=$P(NSWIFT,D)         ; BIC/SWIFT
	.. ; S TAB(337)=$P(NSWIFT,D,2)       ; Naam
	.. ; S TAB(338)=$P(NSWIFT,D,3)       ; Straat + nr
	.. ; S TAB(339)=$P(NSWIFT,D,4)       ; Woonplaats
	.. ; S TAB(340)=$P(NSWIFT,D,5)       ; Land
	.. ;W !,UI1," ("_Q_")-> ",TAB(228)_"  "_TAB(202)_"  "_TAB(305)_"  "_TAB(337)_"  "_TAB(338)_"  "_TAB(339)_"  "_TAB(340)
	.. D B^cAN220("LE","",UI1,"TAB") I K="-" X "STOP"
	. ; Beheer swiftcodes (Bankcodes) van menu verwijderen
	. ; I $P(@("^"_Q_"BA(""MENU"",11,11)"),D,4)="W^cAN200(""SWIFT"",0,"""",0)" K @("^"_Q_"BA(""MENU"",11,11)")
	. ; Bestand swiftcodes Buiten gebruik zetten
	. ; I $D(^DMS(Q,"SWIFT",0)) S $P(^DMS(Q,"SWIFT",0),D,30)=1
	. K ^DMS(Q,"SWIFT")
	. D S1^cAN002("DAM","DMS")
	;
	W !,"Einde update Q_LE"
UPDQLEZ	Q
 
LEBK	; omzetten LE.BK naar CODE.9046
	S $ZT="TRAP^cAN000"
	M ^DKODE(0,"CODE.9046")=^DATA(0,"LE.BK")
	;
	S UI1=""
	F  S UI1=$O(^DKODE(0,"CODE.9046",UI1)) Q:'$L(UI1)  D
	. S B130=$P(^(UI1,0),D,30)
	. S $P(^(0),D,30)=+B130
	;
	D S1^cAN002(0,"CODE.9046",24)
	;
	M ^DLOG(0,"CODE.9046")=^DLOG(0,"LE.BK")
LEBKZ	Q
	;
SWIFT	; SWITF : B130 : "" -> 0
	S $ZT="TRAP^cAN000"
	S UI1="" 
	F  S UI1=$O(^DATA(0,"SWIFT",UI1)) Q:UI1=""  S $P(^(0),D,30)=+$P(^(UI1,0),D,30)
SWIFTZ	Q
	;
ZZ	; 05.12.07 - 15 u 46 * V9.00