Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r2038 -r2042
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 2038)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 2042)
@@ -2988,18 +2988,6 @@
 	Set Status=$$$OK        ;Invullen bij fout (komt in de logging terecht=INTERNAL MESSAGE, gebruiker ziet deze boodschap NIET)
 	Set InterfaceError=""   ;Invullen als een andere boodschap dan de standaard boodschap aan de gebruiker moet getoond worden
 	
- /***   *** /
-	// Tijdelijk aanpassen van de input-parameters om de oproepen van PrijsLijst te kunnen testen  (Added by WimV on 08/09/2011) 
-	If Toegang=$$$tgFactuur Do
-	. Set Toegang=$$$tgPrijsLijst
-	. Set RecordType=$$$rtCHECK
-	. Set DocNr=""
-	Else  If Toegang=$$$tgWebShop Do
-	. Set Toegang=$$$tgPrijsLijst
-	. Set RecordType=$$$rtPDF   ; $$$rtXML   ; 
-	. Set DocNr=""
- /***   ***/
-	
 	;Factuur
 	If Toegang=$$$tgFactuur Do
 	. Set Status=##class(BL.Flow.Factuur.Doc).ValidateFactNr("F",DocNr,KlantNr)
@@ -3040,18 +3028,16 @@
 	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"PL.pdf"
 	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).RenderAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileName) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
-	. . ;Set:($$$ISOK(Status)) DocURL="http://res.vanhoecke.be/cat/vanhoecke/pdf/test.pdf" ; tijdens test
 	. Else  If RecordType=$$$rtXML Do
 	. . // Converteren van gearchiveerde prijslijst XML naar XML voor XLS 
 	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
 	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"PL.xml"
 	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileName) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
-	. . ;Set:($$$ISOK(Status)) DocURL="http://res.vanhoecke.be/cat/vanhoecke/pdf/test.xml" ; tijdens test
 	. Else  If RecordType=$$$rtCHECK Do
 	. . // Alleen controleren of er een gearchiveerde prijslijst XML bestaat 
 	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
-	. . Set KlantHeeftPrijslijst=($L(XMLPad)) && (KlantNr'=1000)   ; Klant 1000 als test : geen prijslijst
+	. . Set KlantHeeftPrijslijst=($L(XMLPad)) && (KlantNr'=1000)   ; Klant 1000 als test : geen prijslijst (09/09/2011)
 	. . Set DocURL=$S(KlantHeeftPrijslijst:"HAS DOC", 1:"NO DOC")
 	;Webshop
 	Else  If Toegang=$$$tgWebShop Do
@@ -3107,9 +3093,6 @@
 	
 	Set lbArchivedXMLFiles=##class(BL.Flow.PrijsLijst.Doc).ArchiveFullPathUser(KlantNr)
 	Set XMLPadVoorActuelePrijslijst=$LG(lbArchivedXMLFiles,1)
-	
-	;Set XMLPadVoorActuelePrijslijst="Dummy pad for testing"   ; WimV on 08/09/2011 
-
 	Quit XMLPadVoorActuelePrijslijst
 ]]></Implementation>
 </Method>