OpenFact ; Openstaande facturen
 ;
 ; Instellen of een factuur in betwisting is
Betwist(KLNr,FANr)
 New %TC,FaRec,Betwist
 Do ADD^vhLock("^KKL(^KK1(KLNr),FANr)")
 If %TC Do
 . Set FaRec=^KKL(^KK1(KLNr),FANr),Betwist=$P(FaRec,D,23)
 . Set Betwist=$$PI^vhPOPUP("C;C","-1OZ","Reden diverse / betwisting","FLOWFACT","RAPPELREDEN",Betwist)
 . Do:zb'="CANC"
 . . Set $P(FaRec,D,23)=Betwist,^KKL(^KK1(KLNr),FANr)=FaRec
 . . Do EL^PROC
 . Do REMOVE^vhLock("^KKL(^KK1(KLNr),FANr)")
 Else  Do LDISP^vhLock("^KKL(^KK1(KLNr),FANr)","Factuur "_FANr)
 Quit
 ;
 ; Toon de verklaring van de betwistcode (vooral voor NIET-boekhouding)
Detail(KLNr,FANr,OFA)
 New R,FaRec,Betwist
 Set FaRec=^KKL(^KK1(KLNr),FANr),Betwist=$P(FaRec,D,23)
 Set R=$P(^RES("FLOWFACT","PI","RAPPELREDEN","D",Betwist),"`",2)_" - "_Betwist
 Set FP=OFA(3)+OFA(6)-1*100+12
 Write @FCH,@F,@F2,@FMTU,@FMTB,$J(R,69),@FMTu,@FMTb,@F
 Read *R:7
 Do EL^PROC
 Quit
 ;