cwwissel ; Klant met betalingsvoorwaarde wissel (+Aval) ;[ 12/10/2003  8:44 AM ]
 ;
 New
 Set Q="K"
 Do ^cA604
 Set Dev=$$OPEN^vhDEV(,"WISSEL.TXT","W")
 Do:Dev
 .Use Dev
 .Set KlKey=0
 .For  set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 ..Set R=^KKL(KlKey,0),BetVoorw=$P(R,D,18)
 ..If BetVoorw'["W",BetVoorw'["A" Quit
 ..Set KLNr=$P(R,D),KlNaam=$P(R,D,2),Aanspr=$P(R,D,4),Straat=$P(R,D,5)
 ..Set PostCode=$P(R,D,6),WoonPl=$P(R,D,7),Land=$P(R,D,8),Taal=$P(R,D,9)
 ..Write KLNr,*9,KlNaam,*9,Aanspr,*9,Straat,*9,PostCode,*9,WoonPl,*9
 ..Write $$LAND^vhRtn1(Land,2,Taal),*9,BetVoorw,*13
 .Close Dev
 Quit
 ;