cwHA ; Routines speciaal Hendrik Audenaert
 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
 ;
KredLim12500To13000
 New R,KlKey,KLNr,KlNaam,KredietLimiet
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . ;w !,KlKey
 . Set KLNr=$P(KlKey," ",2),R=^KKL(KlKey,0),KlNaam=$P(R,D,2)
 . Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7)
 . Quit:KredietLimiet'=12.5
 . Do EenKlant12500To13000(KLNr)
 . Write !,KLNr,?10,KlNaam
 Quit
 ;
EenKlant12500To13000(KLNr)
 New R,KlKey,KredietLimiet
 Set KlKey=^KK1(KLNr)
 Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7)
 If KredietLimiet=12.5 Do MODFIELD^KLANT(KLNr,307,13)
 Quit
 ;
 ; Niet gesaldeerde klanten
NgsKlanten
 New R,KlKey,KLNr,OpenstSaldo,Count
 Do INIT^vhPRINTER()
 Do:$D(Print)
 . Set (KlKey,Count)=0
 . Write !!!!!
 . For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),WoonPl=$P(R,D,7),OpenstSaldo=$$NgsKlant(KLNr)
 . . Quit:OpenstSaldo'<0
 . . Set Count=Count+1
 . . If Count>55 Write # Write !!!!! Set Count=1
 . . Write !,?4,$J(KLNr,5),?12,KlNaam,?40,WoonPl,?65,$$EXTNUM^vhDTyp(OpenstSaldo,10,".T",2)
 . Write #
 . Do CLOSE^vhPRINTER
 Quit
 ;
NgsKlant(KLNr)
 New R,KlKey,OpenstSaldo
 Set KlKey=^KK1(KLNr),OpenstSaldo=0,FANr=9999
 For  Set FANr=$O(^KKL(KlKey,FANr)) Quit:FANr'?5N.N!(FANr>999999)  Do
 . Set R=^KKL(KlKey,FANr)
 . Quit:'$L($P(R,D,5))
 . Set:$P(R,D,1)="C" $P(R,D,10)=-$P(R,D,10)
 . Set OpenstSaldo=OpenstSaldo+$P(R,D,10)
 Quit OpenstSaldo
 ;
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
 ;
HADubieus
 Set (KlKey,Count)=0,Dev=$$Dev("HADubieus.Txt")
 Open Dev:"NW"
 Use Dev
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set R=^KKL(KlKey,3),Dubieus=$P(R,D,8)
 . Quit:'Dubieus
 . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2)
 . Set R=^KKL(KlKey,2),KredietLimiet=$P(R,D,7)
 . Set Count=Count+1
 . Write Count,$C(9),KLNr,$C(9),KlNaam,$C(9),Dubieus,$C(9),KredietLimiet*1000,$C(13)
 Close Dev
 Quit
 ;
KFA(FromJaar,ToJaar)
 New R,FileName,Dev,From,To,KLNr,Naam,Land,IsComAct,BTWNr,BTWRegime,EvVrijBTW,Next,FANr,FactCode,FactDate,Goederen,Belastbaar,BTW,KontKort,BTWNrGew
 Set FromJaar=$G(FromJaar),ToJaar=$G(ToJaar,FromJaar)
 Set FileName="HABTWList"_FromJaar_".Txt",Dev=$$Dev(FileName)
 Open Dev:"NW"
 Use Dev
 Set From="",To=99999
 Set:$G(FromJaar) From=$$CALCDATE^vhDTyp($$INTDATE^vhDTyp(FromJaar),"J","FD")
 Set:$G(ToJaar) To=$$CALCDATE^vhDTyp($$INTDATE^vhDTyp(ToJaar),"J","LD")
 Write "Jaar",$C(9),"KLNr",$C(9),"Naam",$C(9),"Land",$C(9),"Comm. akt.",$C(9),"BTW-nummer",$C(9),"BTW regime",$C(9),"Ev. vrij BTW",$C(9)
 Write "Factuur",$C(9),"Goederen",$C(9),"Belastbaar",$C(9),"BTW",$C(9),"Kontantkorting",$C(9),"BTW gewijzigd",$C(13)
 Set From=-From,To=-To,KLNr=""
 ;Set KLNr=1009
 For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do  ;Quit
 . Set R=^KKL(^KK1(KLNr),0),BTWRegime=+$P(R,D,15),BTWNr=$P(R,D,16),Land=$$LAND^vhRtn1(KLNr,"K")
 . Set BTWNrGew="" If FromJaar=ToJaar,FromJaar>2005 Set BTWNrGew=$$BTWNrGew(KLNr)
 . Set R=^KKL(^KK1(KLNr),2),EvVrijBTW=+$P(R,D,9),IsComAct=+$P(R,D,10)
 . Set Naam=$P(^KKL(^KK1(KLNr),0),D,2),BTWRegime=+$P(^KKL(^KK1(KLNr),0),D,15),BTWNr=$P(^KKL(^KK1(KLNr),0),D,16),Land=$$LAND^vhRtn1(KLNr,"K"),IsComAct=+$P(^KKL(^KK1(KLNr),2),D,10)
 . Set Next=From+1
 . For  Set Next=$O(^KFA1("F",KLNr,Next),-1) Quit:Next=""  Quit:Next<To  Do
 . . Set FANr=""
 . . For  Set FANr=$O(^KFA1("F",KLNr,Next,FANr)) Quit:FANr=""  Do
 . . . Set R=^KFA("F",FANr,0,0),KLNr=$P(R,D),FactCode=$P(R,D,2),FactDate=$P(R,D,6),Goederen=$P(R,D,7),Belastbaar=$P(R,D,8),BTW=$P(R,D,9),KontKort=$P(R,D,13)
 . . . Set:FactCode="C" Goederen=-Goederen,Belastbaar=-Belastbaar,BTW=-BTW,KontKort=-KontKort
 . . . Write $$CONVDATE^vhDTyp(FactDate,,"J4"),$C(9),KLNr,$C(9),Naam,$C(9),Land,$C(9),$S(IsComAct:"Non",1:""),$C(9)
 . . . Write BTWNr,$C(9),$S(BTWRegime:"Btw",1:""),$C(9),$S(EvVrijBTW:"Ev. vrij",1:""),$C(9)
 . . . Write FANr,$C(9),$$Translate(Goederen),$C(9),$$Translate(Belastbaar),$C(9),$$Translate(BTW),$C(9),$$Translate(KontKort),$C(9),$P(BTWNrGew,D,5),$C(9),BTWNrGew,$C(13)
 Close Dev
 Quit
 
BTWNrGew(KLNr)
 New Date
 Set BTWNr=$P(^KKL(^KK1(KLNr),0),D,16),(Date,BTWNrGew)=""
 For  Set Date=$O(^DLOG("K","KL",KLNr,Date),-1) Quit:Date=""  Do  Quit:$L(BTWNrGew)
 . Set R=^DLOG("K","KL",KLNr,Date)
 . If $P(R,D,2)=116,$P(R,D,7)'="CW",$$INTDATE^vhDTyp($P(R,D,5))'<59901 Set BTWNrGew=R
 Quit BTWNrGew
 
RembVub
 New R,Dev,KLKey,KLNr,KLNaam,KLWoonPl,KLRegio,KLLimiet
 Set Dev=$$OPEN^vhDEV(,"KLLijstHA.TXT","W","A")
 Do  ;:0'[Dev
 . Use Dev
 . Write $C(9),"Klant",$C(9),"Woonplaats",$C(9),"Regio",$C(9),"Limiet",$C(9),"Rembours",$C(9),"Voortuitbetaling",$C(10)
 . Set KLKey=0
 . For  Set KLKey=$O(^KKL(KLKey)) Quit:KLKey=""  Do
 . . Set R=^KKL(KLKey,2)
 . . Quit:$P(R,D,10)
 . . Set KLLimiet=$P(R,D,7)*1000,R=^KKL(KLKey,3),Rembours=$P(R,D),VooruitBet=$P(R,D,2)
 . . If 'Rembours,'VooruitBet Quit
 . . Set R=^KKL(KLKey,0),KLNr=$P(R,D),KLNaam=$P(R,D,2),KLWoonPl=$P(R,D,7),KLRegio=$P(R,D,20)
 . . Write KLNr,$C(9),KLNaam,$C(9),KLWoonPl,$C(9),KLRegio,$C(9),$S(KLLimiet:KLLimiet,1:""),$C(9),$S(Rembours:"Rembours",1:""),$C(9),$S(VooruitBet:"Vooruitbetaling",1:""),$C(10)
 . Close Dev
 Quit
 
200907
 New KlKey,KLNr
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set KLNr=$P(^KKL(KlKey,0),D),LanCode=$P(^KKL(KlKey,0),D,8)
 . Quit:$$LAND^vhRtn1(LanCode,"E")
 . Quit:'$D(^KSTKL(KLNr,0,"2009.07 "))
 . Write !,KlKey,?30,$$LAND^vhRtn1(LanCode)
 Quit
 
ChkBTW
 New KlKey
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set KLNr=$P(^KKL(KlKey,0),D),BtwNr=$P(^KKL(KlKey,0),D,16),TrimBtwNr=$TR(BtwNr,1234567890,"")
 . ;Quit:'$D(^KSTKL(KLNr,0,"2009.07 "))
 . Quit:$$LAND^vhRtn1(TrimBtwNr,"E")
 . Write !,KlKey,?30,BtwNr,?50,TrimBtwNr
 Quit
 
HARekeningPlan
 New R,RekNr
 Set Dev=$$Dev("RekplanHalux.Txt")
 w !,Dev
 Open Dev:"NW"
 Use Dev
 Set RekNr=0
 For  Set RekNr=$O(^KAR(RekNr)) Quit:RekNr=""  Do
 . Set R=^KAR(RekNr,0)
 . Write $P(R,D),$C(9),$P(R,D,2),$C(9),$S($P(R,D,6):"Ja",1:"Neen"),$C(13)
 Close Dev
 Quit
 ;
FoutBTWNr
 New R,KlKey,KLNr,KlNaam,Adres,PostCode,Woonplaats,Land,BTWNr,File
 Set File=$$OPEN^vhDEV(,"FoutBTWNr.Txt","NW")
 Do:0'[File
 . Use File
 . Write "Klant",$C(9),"Naam",$C(9),"Adres",$C(9),"Postcode",$C(9),"Woonplaats",$C(9),"Land",$C(9),"BTW nummer",$C(10)
 . For KLNr=13382,14237,14052,13257,14049,13135,14056,13240,13509,13720,14168,14156,14086,14120,14045,14080,14146,14149,14148,14270,14232 Do
 . . Set KlKey=^KK1(KLNr)
 . . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),Adres=$P(R,D,5),PostCode=$P(R,D,6),Woonplaats=$P(R,D,7),BTWNr=$P(R,D,16)
 . . Set Land=$$LAND^vhRtn1(KLNr,"K")
 . . Write KLNr,$C(9),KlNaam,$C(9),Adres,$C(9),PostCode,$C(9),Woonplaats,$C(9),Land,$C(9),BTWNr,$C(10)
 . Close File
 Quit