Index: PRODUKT2.mac.rou
===================================================================
diff -u -r1134 -r1813
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 1134)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 1813)
@@ -1,6 +1,5 @@
 #include %Prod.Product
 #include BL.Derde.LevSpecifiek
- 
 PRODUKT2 ;Produkt Indexen, Verwijderen [ 10/13/2003  4:53 PM ]
  d ^cA604 w $$CHECKDEL^PRODUKT2(3212,"U") q
 CHECKDEL(PRNr,What) 
@@ -222,6 +221,15 @@
  Do ##class(BL.Blum.LogSteuer).DeleteViaPRNr(PRNr)
  ; Verwijderen OptiBox verpakking
  Do ##class(BL.Prod.OptiBox.BoxData).%New().Delete("PR",PRNr,1)
+ ; Verwijderen productspecificatie en berekeningspecificatie
+ New ProductAPI, Product
+ Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+ Set Product = ProductAPI.GeefProduct(PRNr)
+ If (Product.%Extends("DOM.PM.MaatwerkProduct"))
+ {
+	 Do ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%DeleteId(Product.GeefProductSpecificatie().%Id())
+	 Do ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%DeleteId(Product.GeefBerekeningsSpecificatie().%Id())
+ }
  ; Verwijderen Halux kenmerken
  Kill ^HADPR("P",PRNr)
  ; Verwijderen referentie naar offerte, order en bon
@@ -303,7 +311,8 @@
  ; Controleren dat een identnr een geldig formaat heeft
 IsValidIdentNr(String)   ; [IDENT] Added by WimV on 15/02/2011 
  New IsValidFormat   
- Set IsValidFormat=(String?1UN1"."3N1"."3N1"."1N)
+ If ";1009;1070;"[(";"_$$USERID^vhUSER()_";") Set IsValidFormat=(String?1UN1"."3N1"."3N1"."1N)
+ Else  Set IsValidFormat=(String?1N1"."3N1"."3N1"."1N)
  Quit IsValidFormat
  
  ; Nakijken of een identnummer geldig is (Dit is een oude controle, waarschijnlijk niet meer gebruikt CW 15.02.11)
@@ -659,9 +668,13 @@
  Quit $$LEVNR($G(PRNr))=6051
  ;
  ; Is Orgalux produkt
-ISORGAL(PRNr) 
+ISORGAL(PRNr,CheckOld) 
  New I,R
- Set I=$O(^KPR(PRNr,"I")) Set:$E(I)="I" R=^KPR(PRNr,I)
+ Set I=$O(^KPR(PRNr,"I")) 
+ Set:$E(I)="I" R=^KPR(PRNr,I)
+ If $G(R)&&$G(CheckOld) Do
+ . Set I=$O(^KPRO(PRNr,"I")) 
+ . Set:$E(I)="I" R=^KPRO(PRNr,I)
  Quit $E($G(R),3,4)="OL"
  ;
  ; Is het orgalux product een product op maat?