Index: PRODUKT2.mac.rou
===================================================================
diff -u -r2612 -r3099
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 2612)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 3099)
@@ -243,6 +243,10 @@
  Kill ^HADPR("P",PRNr)
  ; Verwijderen referentie naar offerte, order en bon
  Kill ^KOFKLP(PRNr),^KOP(PRNr),^KUP(PRNr)
+ // Opkuisen van product in flow offerte
+ &SQL(DELETE FROM Flow_Offerte.LijnProduct WHERE Product = :PRNr)
+ // Opkuisen van hoofdingen zonder lijnen
+ &SQL(DELETE FROM Flow_Offerte.Hoofding H WHERE NOT EXISTS (SELECT 1 FROM Flow_Offerte.Lijn L WHERE L.Hoofding = H.ID))
  ; Verwijderen produkt
  Do VERW^LOG("PR",PRNr)
  Do DELIND(PRNr)