cwkred ; ;[ 12/13/2001  2:59 PM ]
 ;
 New
 Do INIT^vhTERMINA
 Open 117
 Use 117
 Set KREDNr=0
 For  Set KREDNr=$O(^KFA("F",KREDNr)) Quit:KREDNr=""  Do
 .Set BONNr="U"
 .For  Set BONNr=$O(^KFA("F",KREDNr,BONNr)) Quit:$E(BONNr)'="U"  Do
 ..Set BLNr=100,FANr=0
 ..For  Set BLNr=$O(^KFA("F",KREDNr,BONNr,BLNr)) Quit:BLNr=""  Do
 ...Set R=^KFA("F",KREDNr,BONNr,BLNr),PRNr=$P(R,D,2),Omschr=$P(R,D,5)
 ...If PRNr,$P(R,D,26)'="=" Quit
 ...Set:Omschr["Cfr. faktuur" FANr=$TR($P(Omschr," ",3),".","")
 ...Set:Omschr["Cfr. facture" FANr=$TR($P(Omschr," ",3),".","")
 ...Set:Omschr["Cfr. rechnung" FANr=$TR($P(Omschr," ",3),".","")
 ...If FANr Do
 ....Quit:Omschr["Cfr. faktuur"
 ....Quit:Omschr["Cfr. facture"
 ....Quit:Omschr["Cfr. rechnung"
 ....Quit:$P($P(R,D,17),"#")'="KF11"
 ....Set FANr=""
 ...Set ZR=$ZR
 ...Quit:'FANr
 ...Quit:'PRNr
 ...Quit:'$D(^KFA("F",FANr))
 ...Quit:'$D(^KK1($P(^KFA("F",FANr,0,0),D)))
 ...Do CHKKRED(FANr,ZR)
 W !!,"Totaal aantal lijnen = ",TCount,!,"Lijnen met verschil  = ",WCount
 Write ##
 Close 117
 Quit
 ;
CHKKRED(FANr,ZR) 
 New %,R,KredRec,FaktRec,BONNr,BLNr,PRNr,KredDat,FaktDat,KLNr,KlNaam,KREDNr,Terug
 Set KREDNr=$P(ZR,",",2)
 Set R=^KFA("F",KREDNr,0,0),KLNr=$P(R,D),KredDat=$P(R,D,6)
 Set R=^KFA("F",FANr,0,0),FaktDat=$P(R,D,6),KlNaam=$P(^KKL(^KK1(KLNr),0),D,2)
 Set KredRec=@ZR,BONNr="U"
 For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:$E(BONNr)'="U"  Do
 .Set BLNr=100
 .For  Set BLNr=$O(^KFA("F",FANr,BONNr,BLNr)) Quit:BLNr=""  Do
 ..Set FaktRec=^KFA("F",FANr,BONNr,BLNr)
 ..Quit:$P(FaktRec,D,2)'=$P(KredRec,D,2)
 ..Quit:$P(FaktRec,D,22)'=$P(KredRec,D,22)
 ..If $P(FaktRec,D,3)>0,$P(KredRec,D,3)>0 Quit
 ..If $P(FaktRec,D,3)<0,$P(KredRec,D,3)<0 Quit
 ..Set TCount=$G(TCount)+1
 ..Set PRNr($P(FaktRec,D,2),$P(FaktRec,D,6))=""
 ..Set PRNr($P(FaktRec,D,2),"N")=$ZR
 ..Set PRNr($P(FaktRec,D,2),"R")=FaktRec
 .Quit:'$D(PRNr)  Quit:$D(PRNr($P(KredRec,D,2),$P(KredRec,D,6)))
 .Set FaktRec=PRNr($P(KredRec,D,2),"R"),Terug=$P(FaktRec,D,6)-$P(KredRec,D,6),WCount=$G(WCount)+1
 .Set %=$J($P(KredRec,D,6)/$P(FaktRec,D,6),0,4)-1*100 Set:%<0 %=-% Set:%<1 %=0_%
 .Write !!,KLNr," ",KlNaam,!,KredDat,!,ZR,!,KredRec,!,FaktDat,!,PRNr($P(KredRec,D,2),"N"),!,PRNr($P(KredRec,D,2),"R")
 .Write !,$S(Terug<0:"Teveel ",1:"Te weinig "),"terug : "
 .Set:Terug<0 Terug=-Terug
 .Write Terug," * ",-$P(KredRec,D,3)," = ",Terug*-$P(KredRec,D,3)," ",$P(KredRec,D,22)
 .Write:$P(KredRec,D,22)'="BEF" " (",$$MUNT^vhRtn1($P(KredRec,D,22),5,(Terug*-$P(KredRec,D,3))_"#1",,"BEF")," ","BEF)"
 .Write " (",%,"%)"
 .;Read R
 Quit
 ;