vhLib.Macro,BL.Flow.Doc.Common 1 %RegisteredObject,%XML.Adaptor right FACTUUR Factuur of CreditNota %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Integer %Library.String Initieel bedrag %Library.Float Openstaand saldo %Library.Float Indien vervallen %Library.Integer Indien vervallen %Library.String Parameter : Openstaande factuur Returns pxRappelLijn 1 KLID:%String,FANr:%Integer,RappelDatum:%Date,RappelInc:%Integer pxRappelLijn 0) Set pxFact.REDEN=$P(Rec,"\",23) Set:pxFact.REDEN=""&&($P($G(^KFA("F",FANr,0,3)),"\",17)) pxFact.REDEN=$$$rapRedenAndere ; backwards compatible Set:pxFact.REDEN=$$$rapRedenVooruitbetaling&&(pxFact.SALDO<0)&&(pxFact.SALDO'=pxFact.FACTUURBEDRAG) pxFact.REDEN=$$$rapRedenTeveelVooruitBetaald ; te veel vooruitbetaald Set:(pxFact.FACTUURTYPE="D")&&(pxFact.REDEN=$$$rapRedenVooruitbetaling)&&(pxFact.SALDO<0) pxFact.FACTUURTYPE="V",pxFact.REDEN="" ; vooruitbetaling Set:pxFact.REDEN'=""&&'$D(^RES("FLOWFACT","PI","RAPPELREDEN","D",pxFact.REDEN)) pxFact.REDEN="" ; De reden bestaat niet meer Set:"F;W"[pxFact.FACTUURTYPE&&pxFact.ISVERVALLEN pxFact.RAPPELNR=$P(Rec,"\",8)+RappelInc ; Rappelnr alleen bij facturen en wissels Set:"D;C;V"[pxFact.FACTUURTYPE pxFact.VERVALDATUM="" ; geen vervaldatum bij diverse of creditnota Quit pxFact ]]>