cwceur ; ;[ 01/11/2002  9:39 AM ]
 ;
 New
 Do INIT^vhTERMINA
 Set KlantId=0
 For  Set KlantId=$O(^CEUR("21.12.01",KlantId)) Quit:KlantId=""  Do ONECUST(KlantId)
 Quit
 ;
ONECUST(KlantId) 
 New R,KLNr,OldMunt,Index
 Write !,KlantId
 Set R=^CEUR("21.12.01",KlantId,0),KLNr=$P(R,D),OldMunt=$P(R,D,11)
 Quit:KLNr=1000
 ;Write ?30,KLNr,?35,OldMunt
 Set Index=$O(^DLOG("K","KL",KLNr,"20011221.9999"),-1)
 ;Write ?40,Index
 If $P(Index,".")="20011221" Set Index=Index+.0001 r r
 Else  Set Index="20011221.0001"
 ;Write ?60,Index
 Set R="W\111\"_OldMunt_"\EUR\21.12.01\15:12\CW\Munt~Code monnétaire~~Currency\"_OldMunt_"\EUR\ADM"
 ;Write !,R
 Set ^DLOG("K","KL",KLNr,Index)=R
 Quit
 ;
KLNR(KLNr) 
 New KlantId
 Set KlantId=^KK1(KLNr)
 Do ONECUST(KlantId)
 Quit
 ;