; Routines speciaal An Onraedt
 Quit
 ;
Translate(Value)
 Quit $TR(Value,".",",")
 ;
Dev(FileName,User)
 Quit "\\Notes01\Shared\"_$P(^vhUSER("D",$$USERID^vhUSER($G(User,QU(1)))),D,6)_D_FileName
 ;
 
HARembours
 Set (KlKey,Count)=0,Dev=$$Dev("HARembours2.Txt")
 Open Dev:"NW"
 Use Dev
 Kill ^HULP($J+100)
 Set CheckDate=$$CALCDATE^vhDTyp(,"J",-2),BGPeriode=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-2),"DM4")
 Set BEenJaar=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-1),"DM4"),BTweeJaar=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J",-2),"DM4"),EPeriode=$$EXTDATE^vhDTyp(,"DM4")
 Write "Lijn",$C(9),"Klant",$C(9),"Naam",$C(9),"Rembours",$C(9),"VooruitBetaling",$C(9),"KredietLimiet",$C(9),"MaxDagen",$C(9)
 Write "Omzet -1 jaar",$C(9),"Omzet -2 jaar",$C(13)
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set R=^KKL(KlKey,3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2)
 . If ' Rembours,'VooruitBetaling Quit
 . Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7),CommAktief='$P(R,D,10)
 . Quit:+KredietLimiet=.001  Quit:'CommAktief
 . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),LastFactDate=-$O(^KFA1("F",KLNr,""))
 . Quit:'LastFactDate  Quit:LastFactDate'>CheckDate
 . Kill ^HULP($J+100)
 . Set BetalingGedrag=$$KLANT^KKBG2(KLNr,BGPeriode),MaxDagen=$P(BetalingGedrag,D,9)
 . Quit:MaxDagen>60  ; Maximum dagen vervallen is meer dan 60
 . Set Count=Count+1
 . Write Count,$C(9),KLNr,$C(9),KlNaam,$C(9),Rembours,$C(9),VooruitBetaling,$C(9),KredietLimiet,$C(9),MaxDagen,$C(9)
 . Write $$Translate($$KLANT^STAT(KLNr,,BEenJaar,EPeriode,3)),$C(9),$$Translate($$KLANT^STAT(KLNr,,BTweeJaar,EPeriode,3)),$C(13)
 Close Dev
 Kill ^HULP($J+100)
 Quit
 ;
Scholen
 Set (KlKey,Count)=0,Dev=$$Dev("AONScholen.Txt")
 Open Dev:"NW"
 Use Dev
 Write "Klant",$C(9),"Naam",$C(9),"Toenaam",$C(9),"Adres",$C(9),"Postnummer",$C(9),"Woonplaats",$C(9),"Land",$C(13)
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set R=^KKL(KlKey,1),Activiteit=$P(R,D,11)
 . Quit:Activiteit'="Scholen"
 . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),KlToeNaam=$P(R,D,3),KlAdres=$P(R,D,5),KlPostnummer=$P(R,D,6),KlWoonplaats=$P(R,D,7),KlLand=$P(R,D,8)
 . Set R=^KKL(KlKey,2),CommAktief='$P(R,D,10)
 . Quit:'CommAktief
 . Write KLNr,$C(9),KlNaam,$C(9),KlToeNaam,$C(9),KlAdres,$C(9),KlPostnummer,$C(9),KlWoonplaats,$C(9),$$LAND^vhRtn1(KlLand,2),$C(13)
 Close Dev
 Quit
 ;