; Routines speciaal Ilse Lutz
 Quit
 ;
KlantenILU
 New R,KlKey,KLNr,Regio
 Quit
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set KLNr=$P(KlKey," ",2),R=^KKL(KlKey,0),KlNaam=$P(R,D,2),Regio=$P(R,D,20)
 . Quit:Regio'=8
 . Do EenKlantILU(KLNr)
 . Write !,KLNr,?10,KlNaam
 Quit
 ;
EenKlantILU(KLNr)
 New R,KlKey,Regio
 Set KlKey=^KK1(KLNr)
 Set R=^KKL(KlKey,0),Regio=$P(R,D,20)
 If Regio=8 Do MODFIELD^KLANT(KLNr,120,30)
 Quit
 ;
RoyalCrown
 New R,RCR,KlKey,RoyalCrown,KLNr,LogDate,LogRec,User,Van,Naar,Opening,RCROn,RCROff,File
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set R=^KKL(KlKey,1)
 . Quit:$P(R,D,13)'=8197
 . Set (R,RCR)=$P(^KKL(KlKey,0),D,1,2),KLNr=$P(R,D)
 . Set RoyalCrown("K",KlKey)=RCR,RoyalCrown("N",KLNr)=KlKey
 Set KLNr=0
 For  Set KLNr=$O(^DLOG("K","KL",KLNr)) Quit:KLNr=""  Do
 . Quit:'$D(^KK1(KLNr))
 . Set LogDate="",KlKey=$G(RoyalCrown("N",KLNr))
 . Set:KlKey="" KlKey=^KK1(KLNr)
 . Set RCR=$G(RoyalCrown("K",KlKey))
 . If RCR="" Set (R,RCR)=$P(^KKL(KlKey,0),D,1,2)
 . For  Set LogDate=$O(^DLOG("K","KL",KLNr,LogDate)) Quit:LogDate=""  Do
 . . Set LogRec=^DLOG("K","KL",KLNr,LogDate)
 . . If $O(^DLOG("K","KL",KLNr,LogDate),-1)="" Do
 . . . Set Opening=$P(LogRec,D,5),($P(RCR,D,3),$P(RCR,D,4))=Opening
 . . . Set:$D(RoyalCrown("K",KlKey)) RoyalCrown("K",KlKey)=RCR
 . . Quit:LogRec'["8197 ROYAL CROWN"  Quit:$P(LogRec,D,2)'=213
 . . Set Datum=$P(LogRec,D,5),User=$P(LogRec,D,7),Van=$P(LogRec,D,9),Naar=$P(LogRec,D,10)
 . . Quit:Naar=Van
 . . Set:Naar["8197 ROYAL CROWN" $P(RCR,D,4)=Datum
 . . Set:Van["8197 ROYAL CROWN" $P(RCR,D,5)=Datum
 . . Set RoyalCrown("K",KlKey)=RCR,RoyalCrown("N",KLNr)=KlKey
 Set File=$$OPEN^vhDEV(,"RoyalCrown.Txt","NW")
 Do:0'[File
 . Use File
 . Write "KlantNr",$C(9),"Naam",$C(9),"Opening",$C(9),"RC aan",$C(9),"RC af",$C(10)
 . Set KlKey=""
 . For  Set KlKey=$O(RoyalCrown("K",KlKey)) Quit:KlKey=""  Do
 . . Set RCR=RoyalCrown("K",KlKey),KLNr=$P(RCR,D),KlNaam=$P(RCR,D,2),Opening=$P(RCR,D,3),RCROn=$P(RCR,D,4),RCROff=$P(RCR,D,5)
 . . ;Write !,KLNr,?10,KlNaam,?40,Opening,?52,RCROn,?64,RCROff
 . . Write KLNr,$C(9),KlNaam,$C(9),Opening,$C(9),RCROn,$C(9),RCROff,$C(10)
 . Close File
 Quit
 
 ; Regio 30 op BTW aanrekenen
CheckR30
 New R,KlKey,KLNr,KlNaam,Regio,BTWNr,BTWRegime,File
 Set File=$$OPEN^vhDEV(,"CheckRegio30.Txt","NW")
 Do:0'[File
 . Use File
 . ;Close File
 . Write "Klant",$C(9),"Naam",$C(9),"BTW nummer",$C(9),"BTW regime",$C(9),"Facturen",$C(10)
 . Set KlKey=0
 . For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),Regio=$P(R,D,20),BTWRegime=$P(R,D,15),BTWNr=$P(R,D,16)
 . . Quit:Regio'=30  ; Niet regio 30
 . . Quit:$$LAND^vhRtn1(KLNr,"K")'="BE"
 . . ;Quit:$$UPCASE^vhRtn1(BTWNr)'="GEEN"
 . . ;Quit:'$D(^KFA1("F",KLNr))
 . . ;Quit:BTWRegime
 . . ;If $L(BTWNr),$E(BTWNr,1,2)'="BE" Quit
 . . Quit:$L($TR(BTWNr,"BENL0GEEN",""))  ; Geldig BTWNr
 . . ;Write !,KlKey,?40,BTWNr,?60,$D(^KFA1("F",KLNr))
 . . Write KLNr,$C(9),KlNaam,$C(9),BTWNr,$C(9),$S(BTWRegime:"Aanrekenen",1:""),$C(9),$S($D(^KFA1("F",KLNr)):"Ja",1:""),$C(10)
 . . ;Write !,KLNr,?10,KlNaam,?40,BTWNr ;,?60,$S(BTWRegime:"Aanrekenen",1:"")
 . . ;Read ?50,R
 . . ;Quit:R'="+"
 . . ;Do EenKlantRegio30ILU(KLNr)
 . Close File
 Quit
 
EenKlantRegio30ILU(KLNr)
 New R,KlKey,Regio
 Set KlKey=^KK1(KLNr)
 Set R=^KKL(KlKey,0),Regio=$P(R,D,20)
 ;If Regio=30 Do MODFIELD^KLANT(KLNr,115,1)
 Quit