Index: FOLTEC.mac.rou
===================================================================
diff -u -r762 -r4782
--- FOLTEC.mac.rou	(.../FOLTEC.mac.rou)	(revision 762)
+++ FOLTEC.mac.rou	(.../FOLTEC.mac.rou)	(revision 4782)
@@ -454,6 +454,7 @@
  ;Indexen
  Do RECALC^PRODUKT2(NewPRNr)
  Do BLDIND^PRODUKT2(NewPRNr)
+ Do Gemaakt^PRODUKT2(NewPRNr)
  Do:$P(NewRec(2),D,3) ONE^PRSCALC(NewPRNr,0,"H") ; Indien schaduw aankoopprijs ingevuld dan herrekenen
  Do ZEND^EWPR(NewPRNr)
  Quit
@@ -625,4 +626,6 @@
  Else  If Node=4 Set FolTyp=$$FOLTYP(PRNr,0,2)
  Else  If Node=0 Set FolTyp=$$FOLTYP(PRNr,3,21,"F")
  Quit FolTyp
- 
\ No newline at end of file
+ 
+
+