Index: Flow/Offerte/Hoofding.cls.xml
===================================================================
diff -u -r1695 -r1706
--- Flow/Offerte/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 1695)
+++ Flow/Offerte/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 1706)
@@ -89,8 +89,15 @@
 </Property>
 
 <Property name="Oorsprong">
+<Type>BL.Flow.Offerte.enu.Oorsprong</Type>
+</Property>
+
+<Property name="OorsprongDetail">
+<Description><![CDATA[
+Extra info mbt Oorsprong 
+vb EDI --> bestandsnaam]]></Description>
 <Type>%String</Type>
-<Parameter name="VALUELIST" value=";EDI;TBX;EC;DYN;OLP"/>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="Lijnen">
@@ -150,13 +157,15 @@
 De naam van de klant zal op het etiket afgedrukt worden 
 Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden</Description>
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="EtiketWoonplaats">
 <Description>
 De city van de klant zal op het etiket afgedrukt worden 
 Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden</Description>
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="Munt">
@@ -325,6 +334,9 @@
 <Value name="28">
 <Value>EtiketWoonplaats</Value>
 </Value>
+<Value name="29">
+<Value>OorsprongDetail</Value>
+</Value>
 </Data>
 <Property name="Afzender">
 <Selectivity>0.6648%</Selectivity>
Index: BL/Flow/Offerte/enu/Oorsprong.cls.xml
===================================================================
diff -u
--- BL/Flow/Offerte/enu/Oorsprong.cls.xml	(revision 0)
+++ BL/Flow/Offerte/enu/Oorsprong.cls.xml	(revision 1706)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Flow.Offerte.enu.Oorsprong">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;EDI;TBX;EC;DYN;OLP</Default>
+</Parameter>
+
+<Method name="EDIBestand">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "EDI"
+]]></Implementation>
+</Method>
+
+<Method name="TandemboxWebsite">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "TBX"
+]]></Implementation>
+</Method>
+
+<Method name="Vhisie">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "EC"
+]]></Implementation>
+</Method>
+
+<Method name="Dynaplug">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "DYN"
+]]></Implementation>
+</Method>
+
+<Method name="OrgaluxWebsite">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "OLP"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/OV/dto/EDIOrderBevestiging.cls.xml
===================================================================
diff -u -r1698 -r1706
--- APPS/OV/dto/EDIOrderBevestiging.cls.xml	(.../EDIOrderBevestiging.cls.xml)	(revision 1698)
+++ APPS/OV/dto/EDIOrderBevestiging.cls.xml	(.../EDIOrderBevestiging.cls.xml)	(revision 1706)
@@ -30,8 +30,6 @@
 </Property>
 
 <Property name="TotalePrijsNetto">
-<Description>
-Netto of Bruto ??? </Description>
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="TotalPrice"/>
 </Property>
Index: BL/Flow/Offerte/Build.cls.xml
===================================================================
diff -u -r1074 -r1706
--- BL/Flow/Offerte/Build.cls.xml	(.../Build.cls.xml)	(revision 1074)
+++ BL/Flow/Offerte/Build.cls.xml	(.../Build.cls.xml)	(revision 1706)
@@ -105,7 +105,7 @@
 <Method name="Create">
 <Description>
 Creatie van een nieuwe offerte</Description>
-<FormalSpec>KlantNr,Oorsprong,NoID:%String=""</FormalSpec>
+<FormalSpec>KlantNr:%Integer,Oorsprong:BL.Flow.Offerte.enu.Oorsprong,NoID:%String=""</FormalSpec>
 <ReturnType>Flow.Offerte.Hoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..oOfferte=##class(Flow.Offerte.Hoofding).%New()
Index: APPS/OV/impl/OrderBevestigingSFS.cls.xml
===================================================================
diff -u
--- APPS/OV/impl/OrderBevestigingSFS.cls.xml	(revision 0)
+++ APPS/OV/impl/OrderBevestigingSFS.cls.xml	(revision 1706)
@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OV.impl.OrderBevestigingSFS">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="OrderNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Opmerking ( JCL : 18/07/2011 )
+Bedoeling is dat er in een latere fase een abstracte versie van deze klasse wordt gemaakt
+waarvan deze implementatie een afgeleide klasse wordt.</Description>
+<FormalSpec>OrderNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..Logger = ##class(vhLib.Logger).%New("OV")
+	set ..OrderNr = OrderNr
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ #define flagIndentTags flagTest	
+	
+ set flagTest = $$$Not(##class(TECH.Config.ConfigMgr).Instance().GetBoolean("APPS.OV.impl.SFSOrderBevestiging_PostHttpRequest"))
+ 
+ set Stream = ..MaakEDIOrderBevestigingStream()
+ if '$IsObject(Stream) do  quit stCreateStream
+ . set stMaakStream = $$$ERROR($$$GeneralError,"Failed creating EDI Order stream")
+ 
+ if $$$Not(flagTest) {
+ 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	Set HttpRequest.Server="extranet.sfsservices.biz"
+ 	Do HttpRequest.SetParam("namespace", "http://sfs.biz/xi/ch/vanhoecke")
+ 	Do HttpRequest.SetParam("interface", "SI_VANHOECKE_ORDERS_outb")
+ 	Do HttpRequest.SetParam("service", "VANHOECKE")
+ 	Do HttpRequest.SetParam("party", "VANHOECKE")
+ 	Do HttpRequest.SetParam("QOS", "EO")
+ 	Do HttpRequest.SetParam("sap-user", "VANHOECKE")
+ 	Do HttpRequest.SetParam("sap-password", "hoec4s!f")
+ 	Do HttpRequest.SetParam("sap-client", "100")
+ 	Do HttpRequest.SetParam("sap-language", "EN")
+ 	Set HttpRequest.ContentType = "text/xml"
+ 	Set HttpRequest.ContentEncoding = "UTF-8"
+ 	Do HttpRequest.EntityBody.CopyFrom(Stream)
+    Set stPost = HttpRequest.Post("/xic34/sap/xi/adapter_plain",0) 	
+ }
+ else  {
+	 set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.impl.SFSOrderBevestiging_TestMailNaar"))
+	 set stPost=$$SendMiniMail^vhLib($$$SystemMail("OV_OrderBevestiging"),MailTo,"SFS Order : "_..OrderNr,Stream,1)
+ }
+ 
+ If $$$ISERR(stPost) Do  Quit stPost
+ . Do ..Logger.Error("SFS_POST_FAILED","OrderNr = "_..OrderNr_" Error = "_$$ParseStatus^vhLib.System(stPost))
+
+ Quit:flagTest $$$OK   // geen verdere afhandeling indien in test mode :D
+  
+ If ( HttpRequest.HttpResponse.StatusCode = 200 ) Set Result = $$$OK
+ Else  Set Result = $$$ERROR($$$GeneralError,HttpRequest.HttpResponse.ReasonPhrase)
+
+ if Result { 
+ 	do ..Logger.Info("SFS_POST_SUCCESS","OrderNr = "_..OrderNr) 
+ }
+ else  {
+ 	Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase
+ 	Do ..Logger.Error("SFS_HTTPRESPONSE_INVALID","OrderNr = "_..OrderNr_" Error = "_ErrorInfo)
+ }
+ quit
+]]></Implementation>
+</Method>
+
+<Method name="MaakEDIOrderBevestigingStream">
+<Private>1</Private>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	#define AllowEmptyProxy 	0
+	#define NoXMLDeclaration	0
+	#define IndentTags			1
+	
+	Set dtoOrderBevestiging=..MaakEDIOrderBevestigingDTO()
+	Quit:'$IsObject(dtoOrderBevestiging) ""
+	
+	Set Stream=##class(%FileBinaryStream).%New()
+	Set sc=$$ProxyToXMLStream^vhLib(dtoOrderBevestiging, .Stream, .TopTag,$$$IndentTags, $$$AllowEmptyProxy, $$$NoXMLDeclaration)
+	if $$$ISERR(sc) {
+		do ..Logger.ErrorMail("ProxyToXMLStream_Failed",$$ParseStatus^vhLib(sc))
+	}
+	Quit:($$$ISERR(sc)) ""
+	
+	Quit Stream
+]]></Implementation>
+</Method>
+
+<Method name="MaakEDIOrderBevestigingDTO">
+<Private>1</Private>
+<ReturnType>APPS.OV.dto.EDIOrderBevestiging</ReturnType>
+<Implementation><![CDATA[
+	do ..Logger.Info("SFS_ORDERBEVESTIGING","MaakEDIOrderBevestigingDTO : "_..OrderNr)
+	
+	set dtoOrderBevestiging = ""
+	
+	set scCreate=""
+	set pxFlowOrder=##class(BL.Flow.Proxy.pxOrder).Create(..OrderNr, "","", .scCreate)
+	if ($$$ISERR(scCreate)) || ('$IsObject(pxFlowOrder)) {
+		do ..Logger.ErrorMail("Create_pxORDER_Failed",..OrderNr_" : "_$$ParseStatus^vhLib(scCreate))
+	}
+	else { 
+		Set dtoOrderBevestiging=##class(APPS.OV.dto.EDIOrderBevestiging).%New()
+	
+		Set dtoOrderBevestiging.EDINr=$translate($piece($piece(pxFlowOrder.KLORDREF,"/",2),":",2)," ","")
+		Set dtoOrderBevestiging.OrderRef=$piece(pxFlowOrder.ORDERREF," ",2,$length(pxFlowOrder.ORDERREF," "))
+		Set dtoOrderBevestiging.OrderNummer=pxFlowOrder.ORDERNR
+		Set dtoOrderBevestiging.Munt=pxFlowOrder.MUNT
+		Set dtoOrderBevestiging.TotalePrijsNetto=..GeefTotalePrijsNetto()
+		
+		Set FlowLijnIterator=##class(TECH.ListIterator).%New(pxFlowOrder.LIJNEN)
+		While FlowLijnIterator.HasNext() {
+			Set pxFlowLijn=FlowLijnIterator.Next()
+			If pxFlowLijn.%Extends("BL.Flow.Proxy.pxProductLijn") {
+				Set Lijn=##class(APPS.OV.dto.EDIOrderBevestigingLijn).%New()
+				Set Lijn.KlantOrderlijnNummer=$P(pxFlowLijn.KlantOrderlijnNummer,".",1)
+				Set Lijn.IdentNummer=pxFlowLijn.PRODUCT.IDENTNR
+				Set Lijn.KlantProductRef=pxFlowLijn.KLANTREF
+				Set Lijn.Korttekst=pxFlowLijn.PRODUCT.KORTTEKST
+				
+				Set Lijn.Aantal=pxFlowLijn.AANTAL
+				Set Lijn.AantalEenheid=pxFlowLijn.AantalEenheid
+				
+				if $length(pxFlowLijn.LEVERWEEK) {
+					; **JCL**
+					; niet al te mooie manier om datum te converteren .. maar komt hier blijkbaar al geformateerd binnen.. 
+					; zijn voorlopig goed voor enkele jaren hoop dat het tegen 2100 herwerkt is :):):)
+					set Datum = "20"_$piece(pxFlowLijn.LEVERWEEK,"-",3)_$piece(pxFlowLijn.LEVERWEEK,"-",2)_$piece(pxFlowLijn.LEVERWEEK,"-",1)
+					Set Lijn.LeverdatumBeloofd=Datum
+				}
+				Set Lijn.EPrijsNetto=pxFlowLijn.EPRIJSNETTO
+				Set Lijn.TotPrijsNetto=pxFlowLijn.TOTPRIJSNETTO
+				Set Lijn.EGrootteOrde=pxFlowLijn.EGROOTTEORDE
+				
+				Do dtoOrderBevestiging.Orderlijnen.Insert(Lijn)
+			}
+		}
+
+	}
+		
+	Quit dtoOrderBevestiging
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotalePrijsNetto">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	do ##class(vhLib.OldSchool).InitVars()
+	set Result = $piece($$CALCORD^FLOWORD5(..OrderNr),"\",2)
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/Flow/Offerte/Offerte.cls.xml
===================================================================
diff -u -r1695 -r1706
--- BL/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1695)
+++ BL/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1706)
@@ -199,9 +199,14 @@
  	. . . . Set $P(List(Count),D,5)=$P(List(Count),D,5)_", "_$P(Product,", "),Product=$P(Product,", ",2,999)
  	. . . Set $P(List(Count),D,5)=$E($P(List(Count),D,5),3,99)
  	Set Offerte("H")=OfferteNr_D_KLNr_D_Obj.Status_D_$$Strip(Obj.Referentie)_D_Obj.Datum_D_$$Strip(Obj.Afzender)_D_$$Strip(Obj.Geadresseerde)_D_$$Strip(Obj.CommReferentie)
+ 	
  	Set $P(Offerte("H","Default"),"\",51)=oOfferte.EtiketKlantNaam    ; Added by WimV on 14/07/2011 
  	Set $P(Offerte("H","Default"),"\",52)=oOfferte.EtiketWoonplaats   ; Added by WimV on 14/07/2011 
  	
+ 	Set $P(Offerte("H","Default"),"\",53)=oOfferte.Oorsprong    	  
+ 	Set $P(Offerte("H","Default"),"\",54)=oOfferte.OorsprongDetail   
+ 	
+ 	
  	;d WLIP^vhDBG(97,"VerwerkOfferte : "_oOfferte_"  Etiket: "_oOfferte.EtiketKlantNaam_" + "_oOfferte.EtiketWoonplaats)
  	d WLIP^vhDBG(97,"array Offerte :"_$$$ArrayTT("Offerte",.Offerte))
  	
Index: BL/Flow/Offerte/ScanEDIMail.cls.xml
===================================================================
diff -u -r1695 -r1706
--- BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1695)
+++ BL/Flow/Offerte/ScanEDIMail.cls.xml	(.../ScanEDIMail.cls.xml)	(revision 1706)
@@ -101,7 +101,7 @@
 	. . Set Body=result.GetErrorMessage()
 	. . Set sc=$$SendMiniMail^vhLib(From,To,Subject,Body,0)
 	. Else  Do
-	. . Do ..ConvertProxy(.arOffertes)
+	. . Do ..ConvertProxy(.arOffertes,FileName)
 	. .	// Convert to order
 	
 	// Unswizzle parser-object 
@@ -116,7 +116,7 @@
 </Method>
 
 <Method name="ConvertProxy">
-<FormalSpec>Offertes</FormalSpec>
+<FormalSpec><![CDATA[&Offertes:%String,BestandNaam:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	#define TrimXML(%v)   $TR($$$Trim(%v),$C(0),"")
 	
@@ -130,7 +130,7 @@
 	. Set blFlowOfferte=%blFlowOfferte  ;Kill %blFlowOfferte
 	. Set (..KLNr,KlantNr)=..pxOfferte.KlantID ; de XML kan rechtstreeks de klant nr definieren
 	. If 'KlantNr Do  Quit
-	. Do blFlowOfferte.Create(KlantNr,"EDI")
+	. Do blFlowOfferte.Create(KlantNr,##class(BL.Flow.Offerte.enu.Oorsprong).EDIBestand())
 	. Set oOfferte=blFlowOfferte.oOfferte
 	. 
 	. ; Opvullen met andere gegevens 
@@ -147,6 +147,8 @@
 	. ; Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden
 	. Set oOfferte.EtiketKlantNaam=..pxOfferte.EtiketKlantNaam
 	. Set oOfferte.EtiketWoonplaats=..pxOfferte.EtiketWoonplaats
+	. 
+	. Set oOfferte.OorsprongDetail = ##class(%File).GetFilename(BestandNaam)
 	.
 	. ; Product lijnen 
 	. Set Key=""
Index: FLOWORD.mac.rou
===================================================================
diff -u -r1677 -r1706
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 1677)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 1706)
@@ -489,24 +489,27 @@
  ; Sluit order
 CLOSE 
  New zb,R,OrdDat,Closed,TLNr,OLNr,Data,IntPers,ExtPers,FaxNrOrEmail,DevNr,KredLock,Created,LEVNr,DueOutOk,ORDNrs,TempORDNr,OrdBev,FaxType,Exit,BevatMaatWerk
+ 
  Do CheckType2Proforma^FLOWORD5(ORDNr)
  Set R=^KOD(KLNr,"F",ORDNr,1),KredLock=$P(R,D,23),OrdTyp=$P(R,D,25)
  Quit:KredLock=1
  Set OrdDat=$P(R,D,2),Created=$P(R,D,8),IntPers=$P(Created,"#"),ExtPers=$P(R,D,9)
  Set FaxNrOrEmail=$P(R,D,10),Closed=$P(R,D,22),BevatMaatWerk=$$BevatMaatWerk^FLOW("O",ORDNr)
  If 'Closed Do
- .Do ModifyLeverDagenOnCloseOrder^FLOWORD4(ORDNr)
- .Do ModifyLeverDagenOnD2^FLOWORD4(ORDNr)
- .Do:KredLock CHKLEVT(ORDNr)
- .Do CREATOR
- .If 'KredLock Do KLACHT If KLNr=$$$KlantBVanHoecke Do PartMedew^FLOW2("O",ORDNr)
- .Quit:$L(FaxNrOrEmail)
- .Set OrdBev=$P(^KKL(^KK1(KLNr),1),D,19)
- .Quit:OrdBev=""  ; Geen bevestiging faxen
- .If $E(OrdBev,2)="M",'BevatMaatWerk,'$$BevatNietStock^FLOWORD5(ORDNr),'$$BevatAfdekKap^FLOW("O",ORDNr) Quit  ; Geen maatwerk, geen Niet-stock, geen afdekkapjes dus geen fax of mail
- .If $E(OrdBev)="F" Set FaxNrOrEmail=$P(^KKL(^KK1(KLNr),1),D,24)
- .Else  Set FaxNrOrEmail=$$GetDefaultemKlant^FaxMail(KLNr,,1,,"O"_$S(BevatMaatWerk:"M",1:""))
- .Set $P(^KOD(KLNr,"F",ORDNr,1),D,10)=FaxNrOrEmail
+ . Do ModifyLeverDagenOnCloseOrder^FLOWORD4(ORDNr)
+ . Do ModifyLeverDagenOnD2^FLOWORD4(ORDNr)
+ . Do:KredLock CHKLEVT(ORDNr)
+ . Do CREATOR
+ . If 'KredLock Do KLACHT If KLNr=$$$KlantBVanHoecke Do PartMedew^FLOW2("O",ORDNr)
+ . Quit:$L(FaxNrOrEmail)
+ . Set OrdBev=$P(^KKL(^KK1(KLNr),1),D,19)
+ . If KLNr=$$$KlantSFS Do
+ . . If ($P(R,D,53)=##class(BL.Flow.Offerte.enu.Oorsprong).EDIBestand()) do ##class(APPS.OV.impl.OrderBevestigingSFS).%New(ORDNr).Verwerk()
+ . Quit:OrdBev=""  ; Geen bevestiging faxen
+ . If $E(OrdBev,2)="M",'BevatMaatWerk,'$$BevatNietStock^FLOWORD5(ORDNr),'$$BevatAfdekKap^FLOW("O",ORDNr) Quit  ; Geen maatwerk, geen Niet-stock, geen afdekkapjes dus geen fax of mail
+ . If $E(OrdBev)="F" Set FaxNrOrEmail=$P(^KKL(^KK1(KLNr),1),D,24)
+ . Else  Set FaxNrOrEmail=$$GetDefaultemKlant^FaxMail(KLNr,,1,,"O"_$S(BevatMaatWerk:"M",1:""))
+ . Set $P(^KOD(KLNr,"F",ORDNr,1),D,10)=FaxNrOrEmail
  Else  Do:'$$CHKLACHT(ORDNr) KLACHT
  
  If $G(CashECar) Quit:Closed  Do ^KFSOCC Quit
Index: vhDeploy/JCL/D20110718x1627.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/D20110718x1627.cls.xml	(revision 0)
+++ vhDeploy/JCL/D20110718x1627.cls.xml	(revision 1706)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.D20110718x1627">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Instellen config item SFSOrderBevestiging</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Sleutel="APPS.OV.impl.SFSOrderBevestiging_PostHttpRequest"
+	if '##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel) {
+		set Waarde = (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()="PROD")
+		do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,Waarde)
+	}
+	
+	Set Sleutel="APPS.OV.impl.SFSOrderBevestiging_TestMailNaar"
+	if '##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel) {
+		set Waarde = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
+		do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,Waarde)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 1706 refers to a dead (removed) revision in file `zTryout/WV/APPS/OV/OrderBevestigingSFS.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?