Index: Blum/VerwerkInkomendeFacturen.mac.rou
===================================================================
diff -u -r35582 -r35587
--- Blum/VerwerkInkomendeFacturen.mac.rou	(.../VerwerkInkomendeFacturen.mac.rou)	(revision 35582)
+++ Blum/VerwerkInkomendeFacturen.mac.rou	(.../VerwerkInkomendeFacturen.mac.rou)	(revision 35587)
@@ -179,16 +179,16 @@
  Quit
  
 VerwerkEenFactuur(LevFANr) 
- New LvhFANr,Rec,BoekingDatum
+ New LvhFANr,Rec,ReceptieDatum
  Set Rec=^Verv(LEVNr,"D",VervRef,LevFANr)
  If $P(Rec,D,8)!($P(Rec,D,9)) Quit
  If $P(Rec,D,2)'=TFaktDat Do
  .Set FaktDat=$$GeefFactuurDatum(LevFANr)
  .Do BepaalVervalDatum(FaktDat),DISPLAY^vhScherm("BLCSBAF")
  .Set TFaktDat=$P(Rec,D,2)
  Set Bedrag=$P(Rec,D,5),MaatStaf=Bedrag,Btw=$J(Bedrag*%Btw/100,0,2),KontKort=$J(Bedrag*%KKort/100,0,2)
- Set BoekingDatum = $$INTDATE^vhLib.DataTypes($piece(^Verv(LEVNr,"D",VervRef),"\",3))
- Set LvhFANr=$$VERWERK^FCINK(LEVNr,LevFANr,FaktDat,VervDat,Bedrag,MaatStaf,Btw,KontKort,LevMunt,Pariteit,BH,BJ,BM,BP,BX,BoekingDatum)
+ Set ReceptieDatum = $piece(^RCP("D",$piece(^Verv(LEVNr,"D",VervRef),"\",16)),"\",4)
+ Set LvhFANr=$$VERWERK^FCINK(LEVNr,LevFANr,FaktDat,VervDat,Bedrag,MaatStaf,Btw,KontKort,LevMunt,Pariteit,BH,BJ,BM,BP,BX,ReceptieDatum)
  Set $P(Rec,D,8,9)="2\"_LvhFANr,^Verv(LEVNr,"D",VervRef,LevFANr)=Rec
  Quit