Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r34142 -r34143
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 34142)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 34143)
@@ -784,7 +784,7 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
-#define CRLF   $C(13,10)
+	#define CRLF   $C(13,10)
 
 	Set IsProductGemaakt = $$$False
 	
@@ -805,38 +805,37 @@
 	Quit IsProductGemaakt
 
 cprVervolledigEnMaakProduct(MetPrijs)
- Quit:('..BLConsistencyCheck()) 0
- Quit:('..BLUpdateFinal()) 0
- new SaveOK,blnCreateSchaduwBS
- do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor BLCompleteProduct")
- Quit:('..BLCompleteProduct()) 0
- do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Na BLCompleteProduct")
- do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor KPRCreate")
- Do ..Product.KPRCreate(,,.MetPrijs)
- do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Na KPRCreate","ProductID = "_..Product.Product.%Id())
- Set blnCreateSchaduwBS=($IsObject(..Product.TemplateTmp.SchaduwProduct))   ; Added by WimV on 15/03/2010
-   ;d WLIP^vhDBG(97,"Create Schaduw Bouwstenen ?   blnCreateSchaduwBS="_blnCreateSchaduwBS)
- Set MApplication.ScreenCursor=$$$crHourGlass
- ;Do ..Product.CleanUpMem()
- Set SaveOK=..Product.SaveClean()   ; %Save()
- Set MApplication.ScreenCursor=$$$crDefault
- If 'SaveOK Do  Quit 0
- . New msg
- . Set msg="Fout bij het bewaren van het product:"_$$$CRLF_$$ParseStatus^vhLib(SaveOK)
- . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
- ; Else :
- new PRNr,GAProdID
- Set PRNr= ..Product.Product.%Id()
- Set GAProdID=..Product.%Id()
- Do ##class(Prod.Product).SetPropViaNr(PRNr,"GAProdID",GAProdID)
-
- ; Create Schaduw Bouwstenen   ; Added by WimV on 15/03/2010
- If blnCreateSchaduwBS Do
- . do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor KPRCreate Schaduw")
- . Do ##class(Prod.GAData.Product).KPRCreateSchaduwViaPRNr(PRNr)
- . do ##class(vhLib.Logger).%New("TBX_CREATE").Info("No KPRCreate Schaduw")
- 
- Quit 1
+	Quit:('..BLConsistencyCheck()) 0
+	Quit:('..BLUpdateFinal()) 0
+	new SaveOK,blnCreateSchaduwBS
+	do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor BLCompleteProduct")
+	Quit:('..BLCompleteProduct()) 0
+	do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Na BLCompleteProduct")
+	do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor KPRCreate")
+	Do ..Product.KPRCreate(,,.MetPrijs)
+	do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Na KPRCreate","ProductID = "_..Product.Product.%Id())
+	Set blnCreateSchaduwBS=($IsObject(..Product.TemplateTmp.SchaduwProduct))
+	Set MApplication.ScreenCursor=$$$crHourGlass
+	;Do ..Product.CleanUpMem()
+	Set SaveOK=..Product.SaveClean()
+	Set MApplication.ScreenCursor=$$$crDefault
+	If 'SaveOK Do  Quit 0
+	. New msg
+	. Set msg="Fout bij het bewaren van het product:"_$$$CRLF_$$ParseStatus^vhLib(SaveOK)
+	. Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
+	// Else : 
+	new PRNr,GAProdID
+	Set PRNr= ..Product.Product.%Id()
+	Set GAProdID=..Product.%Id()
+	Do ##class(Prod.Product).SetPropViaNr(PRNr,"GAProdID",GAProdID)
+	
+	// Create Schaduw Bouwstenen 
+	If blnCreateSchaduwBS Do
+	. do ##class(vhLib.Logger).%New("TBX_CREATE").Info("Voor KPRCreate Schaduw")
+	. Do ##class(Prod.GAData.Product).KPRCreateSchaduwViaPRNr(PRNr)
+	. do ##class(vhLib.Logger).%New("TBX_CREATE").Info("No KPRCreate Schaduw")
+	
+	Quit 1
 ]]></Implementation>
 </Method>