Index: GENPROD.mac.rou =================================================================== diff -u -r734 -r4782 --- GENPROD.mac.rou (.../GENPROD.mac.rou) (revision 734) +++ GENPROD.mac.rou (.../GENPROD.mac.rou) (revision 4782) @@ -87,6 +87,7 @@ ;Indexen Do RECALC^PRODUKT2(NewPRNr) Do BLDIND^PRODUKT2(NewPRNr) + Do Gemaakt^PRODUKT2(NewPRNr) Do ZEND^EWPR(NewPRNr) Quit ; @@ -242,4 +243,6 @@ . . If GenProd'="",GenProd'?4.7N . . Else Set Tekst="Ongeldige ingave!~"_$P(R,D)_" is geen generisch product!" Do WARN^vhTXTPOP(Tekst,"") Set GenPRNr="" Quit $G(GenPRNr,"-") - ; \ No newline at end of file + ; + +