Index: EWMS/SQLGCWrapper.cls.xml
===================================================================
diff -u -r1074 -r1855
--- EWMS/SQLGCWrapper.cls.xml	(.../SQLGCWrapper.cls.xml)	(revision 1074)
+++ EWMS/SQLGCWrapper.cls.xml	(.../SQLGCWrapper.cls.xml)	(revision 1855)
@@ -1,543 +1,21 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="EWMS.SQLGCWrapper">
-<Description>
-SQL Gateway Connection Wrapper
-
-Alloc statement
-Connect
-CloseCursor
-Disconnect</Description>
-<IncludeCode>%Const</IncludeCode>
-<Super>%Library.RegisteredObject</Super>
+<Super>Sys.SQLGCWrapper</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="DoLogging">
-<Default>0</Default>
-</Parameter>
-
-<Parameter name="DoTransactions">
-<Default>0</Default>
-</Parameter>
-
-<Parameter name="conDSN">
-<Default>TAPI_EWMS</Default>
-</Parameter>
-
-<Parameter name="conPassword">
-</Parameter>
-
-<Parameter name="conUserName">
-<Default>sa</Default>
-</Parameter>
-
-<Parameter name="logFileDir">
-<Default>\\cache01\c$\vhlogs\</Default>
-</Parameter>
-
-<Parameter name="logFileExt">
-<Default>txt</Default>
-</Parameter>
-
-<Parameter name="logFileName">
-<Default>SQLGCLog</Default>
-</Parameter>
-
-<Property name="AutoShowErrorMsg">
-<Type>%Library.Boolean</Type>
-<InitialExpression>0</InitialExpression>
-</Property>
-
-<Property name="Connected">
-<Type>%Library.Boolean</Type>
-<InitialExpression>0</InitialExpression>
-</Property>
-
-<Property name="FLogFile">
-<Type>%Library.Integer</Type>
-<InitialExpression>$$$NULLOREF</InitialExpression>
-</Property>
-
-<Property name="HStmt">
-<Type>%Library.String</Type>
-<InitialExpression>0</InitialExpression>
-</Property>
-
-<Property name="LastErrorMsg">
-<Type>%Library.String</Type>
-<Parameter name="MAXLEN" value="250"/>
-</Property>
-
-<Property name="LastSQLStatement">
-<Type>%Library.String</Type>
-<Parameter name="MAXLEN"/>
-</Property>
-
-<Property name="ParameterList">
-<Type>%Library.List</Type>
-</Property>
-
-<Property name="ParametersAreBound">
-<Type>%Library.Boolean</Type>
-<InitialExpression>0</InitialExpression>
-</Property>
-
-<Property name="Prepared">
-<Type>%Library.Boolean</Type>
-<InitialExpression>0</InitialExpression>
-</Property>
-
-<Property name="SQLGC">
-<Type>%Library.Integer</Type>
-<InitialExpression>$$$NULLOREF</InitialExpression>
-</Property>
-
-<Method name="%OnClose">
-<ReturnType>%Library.Status</ReturnType>
+<Method name="InitParams">
 <Implementation><![CDATA[
- Do:(..HStmt'=0) ..DropStatement()
-
- Do:(..Connected) ..Disconnect()
-
- //Gateway Connection
- Do:(..SQLGC'=$$$NULLOREF) ..SQLGC.%Close()
-
- //File logging
- Do:(..FLogFile'=$$$NULLOREF) ..FLogFile.%Close()
-
- Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="%OnNew">
-<FormalSpec><![CDATA[&initvalue:%Library.String]]></FormalSpec>
-<ReturnType>%Library.Status</ReturnType>
-<Implementation><![CDATA[
- //Gateway Connection
- Set ..SQLGC=##class(%Library.SQLGatewayConnection).%New()
-
- New tmpStatus
- Set tmpStatus=$S(..SQLGC=$$$NULLOREF:$$$ERROR($$$GeneralError,"Kan geen nieuw SQLGatewayConnection object aanmaken."),1:$$$OK)
-
- //File logging
- If ..#DoLogging Do
- . New LF,Index
- . Set Index=0
- . For  Set Index=Index+1, LF=..#logFileDir_..#logFileName_Index_"."_..#logFileExt Quit:('##class(%File).Exists(LF))  Do
- . Set ..FLogFile=##class(%File).%New(LF)
- . If ..FLogFile=$$$NULLOREF Do
- ..  Set ..LastErrorMsg="LogFailed: Kan geen nieuw %File object aanmaken ('"_$G(LF,"filename is missing")_"')."
- ..  Set tmpStatus=$$$ERROR($$$GeneralError,..LastErrorMsg)
- . Else  Do
- ..  Set tmpStatus=..FLogFile.Open("WSN")
- Else  Do
- . Set ..FLogFile=$$$NULLOREF
-
- Quit tmpStatus
-]]></Implementation>
-</Method>
-
-<Method name="AddToLog">
-<FormalSpec>Line:%Library.String</FormalSpec>
-<Implementation><![CDATA[
- Quit:(..FLogFile=$$$NULLOREF)
-
- Do ..FLogFile.WriteLine(Line)
-
- Quit
-]]></Implementation>
-</Method>
-
-<Method name="AllocateStatement">
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is nog geen verbinding gemaakt."
-
- If ..HStmt'=0 Do  Quit 0
- . Set ..LastErrorMsg="Statement reeds gealloceerd."
-
- Do ..AddToLog("Allocating statement")
-
- New tmpStatus, tmpHStmt
- Set tmpStatus=..SQLGC.AllocateStatement(.tmpHStmt)
-
- If $$$ISOK(tmpStatus) Do
- . Set ..HStmt=tmpHStmt
- . Set ..Connected=1
- Else  Do
- . Set ..Connected=0
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="BindParameters">
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- If '..Prepared Do  Quit 0
- . Set ..LastErrorMsg="Er is geen SQL statement voorbereid."
-
- If ..ParameterList="" Do  Quit 0
- . Set ..LastErrorMsg="Er zijn geen parameters gevonden."
-
- If ..ParametersAreBound Do  Quit 0
- . Set ..LastErrorMsg="Er zijn reeds parameters gekoppeld."
-
- //Binding
- New ParamLoop
- New sqlPL,sqlPDT,sqlPS,sqlIOT,sqlPARMS    //PL=Cd,PDT=DType,PS=Scale,IOT=PType,PARMS=Precision
- For ParamLoop=2:1:$LL(..ParameterList) Do
- .s $LI(sqlPL,ParamLoop-1)=$LI($LI(..ParameterList,ParamLoop),2)  
- .s $LI(sqlPDT,ParamLoop-1)=$LI($LI(..ParameterList,ParamLoop),1)  
- .s $LI(sqlPS,ParamLoop-1)=$LI($LI(..ParameterList,ParamLoop),3)  
- .s $LI(sqlIOT,ParamLoop-1)=1
- .s $LI(sqlPARMS,ParamLoop-1)=$LI($LI(..ParameterList,ParamLoop),2)  
-
- Do ..AddToLog("Binding parameters")
-
- New tmpStatus
- Set tmpStatus=..SQLGC.BindParameters(..HStmt,sqlIOT,sqlPDT,sqlPARMS,sqlPS,sqlPL)
-
- If $$$ISERR(tmpStatus) Do
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
- Else  Do
- . Set ..ParametersAreBound=1
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="Connect">
-<FormalSpec>ManualCommit:%Library.Boolean=0</FormalSpec>
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '$$InDevelop^vhLib && (..#conDSN'="EWMS_EWMS") Do  Quit 0
- . Set ..LastErrorMsg="EWMS.SQLGCWrapper conDSN not valid ("_..#conDSN_") - change code!"
-
- //ManualCommit geeft nog fatale hang fouten - dus gn ManualCommit
- Set ManualCommit=0
-
- If ..Connected Do  Quit 0
- . Set ..LastErrorMsg="Verbinding is reeds gemaakt, gelieve deze eerst te verbreken."
-
- Do ..AddToLog("Connecting to "_..#conDSN_" (UserName: "_..#conUserName_") - "_$zdt($h,2,2))
-
- ;Connect
- New tmpStatus
- Set tmpStatus=..SQLGC.Connect(..#conDSN,..#conUserName,..#conPassword)
-
- If $$$ISERR(tmpStatus) Do  Quit 0
- . Set ..Connected=0
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
- Else  Do
- . Set ..Connected=1
-
- Quit:('ManualCommit) 1
-
- ;Manual Commit
- Quit ..SetConnectOption("AUTOCOMMIT",0)    ;AutoCommit->Off
-]]></Implementation>
-</Method>
-
-<Method name="DescribeParameters">
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- If '..Prepared Do  Quit 0
- . Set ..LastErrorMsg="Er is geen SQL statement voorbereid om de parameters te achterhalen."
-
- Do ..AddToLog("Describing parameters")
-
- New tmpStatus,PList
- Set tmpStatus=..SQLGC.DescribeParameters(..HStmt,.PList)
-
- If $$$ISOK(tmpStatus) Do
- . Set ..ParameterList=PList
- Else  Do
- . Set ..ParameterList=""
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="Disconnect">
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- Quit:('..Connected) 1
-
- Do:(..HStmt'=0) ..DropStatement()
-
- Do ..AddToLog("Disconnecting from "_..#conDSN_" - "_$zdt($h,2,2))
-
- New tmpStatus
- Set tmpStatus=..SQLGC.Disconnect()
-
- If $$$ISOK(tmpStatus) Do
- . Set ..Connected=0
- Else  Do
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="DropStatement">
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- Do ..AddToLog("Dropping statement")
-
- New tmpStatus
- Set tmpStatus=..SQLGC.DropStatement(..HStmt)
-
- If $$$ISOK(tmpStatus) Do
- . Set ..HStmt=0
- Else  Do
- . Set ..HStmt=0
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="ExecSQLNoParams">
-<FormalSpec>SQLGCWrapper:%Library.String,SQL:%Library.String</FormalSpec>
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- //Prepare SQL
- Quit:('SQLGCWrapper.Prepare(SQL)) 0
-
- //Execute SQL
- Quit:('SQLGCWrapper.Execute()) 0
-
- //Positive Exit	
- Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="Execute">
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- If '..Prepared Do  Quit 0
- . Set ..LastErrorMsg="Er is geen SQL statement ter beschikking om uit te voeren."
-
- Do ..AddToLog("Executing")
-
- New tmpStatus
- Set tmpStatus=..SQLGC.Execute(..HStmt)
-
- If $$$ISERR(tmpStatus) Do
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
- . Do WriteStackToFile^vhLib("SQLGCExec")
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="LastErrorMsgSet">
-<FormalSpec>Value:%Library.String</FormalSpec>
-<ReturnType>%Library.Status</ReturnType>
-<Implementation><![CDATA[
- Set i%LastErrorMsg=Value
-
- If ..HStmt'=0 Do
- . New ErrorList
- . Do ..SQLGC.GetErrorList(..HStmt,.ErrorList)
- . If (ErrorList'="") && ($LL(ErrorList)>0) Do
- ..  Set i%LastErrorMsg=Value_$C(13,10,13,10)_"SQL Gateway Errorlist:"_$C(13,10)_$$LCVT^vhLib(ErrorList)
-
- Do ..AddToLog(..LastErrorMsg)
-
- ;If ..FLogFile'=$$$NULLOREF Do
- ;. Do ..FLogFile.Flush()
- ;. Do ##class(%File).CopyFile(..#logFileName,$P(..#logFileName,".",1)_" "_$zdt($h,2,2)_" Job "_$J_"."_$P(..#logFileName,".",2))
-
- If ..AutoShowErrorMsg Do
- . If $D(MApplication) Do
- ..  Do MApplication.MessageBox(..LastErrorMsg,"SQL Gateway",$$$MBICONERROR)
- . Else  If $$IsTerminal^vhLib() Do
- ..  Write ..LastErrorMsg,!
-
- Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="Prepare">
-<FormalSpec>SQL:%Library.String</FormalSpec>
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- Set ..LastSQLStatement=SQL
-
-
- ;Do ..AddToLog("")
- ;Do ..AddToLog("")
- Do ..AddToLog("Preparing SQL:")
- Do ..AddToLog(SQL)
- ;Do ..AddToLog("Caller history:")   //2 niveaus omdat ook ExecSQLNoParams kan gebruikt worden (dit is gn interessante caller)
- New Place,Loop
- For Loop=1:1:$STACK(-1)-1 Do
- . Set Place=$STACK(Loop,"PLACE")
- . ;Do ..AddToLog(Loop_": "_Place)
-
- New tmpStatus
- Set tmpStatus=..SQLGC.Prepare(..HStmt,SQL)
-
- If $$$ISOK(tmpStatus) Do
- . Set ..Prepared=1
- Else  Do
- . Set ..Prepared=0
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="SetConnectOption">
-<FormalSpec>Option:%Library.String,Value:%Library.String</FormalSpec>
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- Do ..AddToLog("Setting connection option "_Option_": "_Value)
-
- Set:($ZCVT(Option,"U")="AUTOCOMMIT") Option=102
-
- If (Option'=102) Do  Quit 0
- . Set ..LastErrorMsg="Onbekend connect-option type ('"_Option_"')."
-
- New tmpStatus
- Set tmpStatus=..SQLGC.SetConnectOption(Option,Value)
-
- If $$$ISERR(tmpStatus) Do
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="SetParameter">
-<FormalSpec>Number:%Library.Integer,Value:%Library.String</FormalSpec>
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- If '..Prepared Do  Quit 0
- . Set ..LastErrorMsg="Er is geen SQL statement voorbereid."
-
- If ..ParameterList="" Do  Quit 0
- . Set ..LastErrorMsg="Er zijn geen parameters gevonden."
-
- Do ..AddToLog("Setting parameter #"_Number_": '"_Value_"'")
-
- New tmpStatus
- Set tmpStatus=..SQLGC.SetParameter(..HStmt,$LB(Value),Number)
-
- If $$$ISERR(tmpStatus) Do
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)_$C(13,10)_"ParameterNumber: "_Number_", Value: "_Value
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
-
-<Method name="Transact">
-<FormalSpec>Type:%Library.String</FormalSpec>
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- Quit:('..#DoTransactions) 1
+ set ..conDSN = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+ set ..conUserName = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+ set ..conUserName = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
  
- ; ---=[ Types ]=---
- ; 0 of "SQL_COMMIT"
- ; 1 of "SQL_ROLLBACK"
- ; Requests a commit or rollback operation for all active operations
-
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- Set:($ZCVT(Type,"U")="SQL_COMMIT") Type=0
- Set:($ZCVT(Type,"U")="SQL_ROLLBACK") Type=1
-
- If (Type'=0) && (Type'=1) Do  Quit 0
- . Set ..LastErrorMsg="Onbekend transact type ('"_Type_"')."
-
- Do ..AddToLog("Transaction: "_Type)
-
- New tmpStatus
- Set tmpStatus=..SQLGC.Transact(..HStmt,Type)
-
- If $$$ISERR(tmpStatus) Do
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
-
- Quit $$$ISOK(tmpStatus)
+ set ..DoLogging = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWMS.SQLGCWrapper_LoggingEnabled")
+ 
+ set ..logFileName = "EWMS_SQLGCLog"
+ 
+ quit
 ]]></Implementation>
 </Method>
-
-<Method name="UnBindParameters">
-<ReturnType>%Library.Boolean</ReturnType>
-<Implementation><![CDATA[
- If '..Connected Do  Quit 0
- . Set ..LastErrorMsg="Er is geen verbinding gemaakt."
-
- If ..HStmt=0 Do  Quit 0
- . Set ..LastErrorMsg="Er is geen statement gealloceerd."
-
- If '..Prepared Do  Quit 0
- . Set ..LastErrorMsg="Er is geen SQL statement voorbereid."
-
- If ..ParameterList="" Do  Quit 0
- . Set ..LastErrorMsg="Er zijn geen parameters gevonden."
-
- If '..ParametersAreBound Do  Quit 0
- . Set ..LastErrorMsg="Er zijn geen parameters gekoppeld."
-
- Do ..AddToLog("Unbinding parameters")
-
- //UnBinding
- New tmpStatus
- Set tmpStatus=..SQLGC.UnbindParameters(..HStmt)
-
- If $$$ISERR(tmpStatus) Do
- . Set ..LastErrorMsg=$$ParseStatus^vhLib(tmpStatus)
- Else  Do
- . Set ..ParametersAreBound=0	
-
- Quit $$$ISOK(tmpStatus)
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: vhDeploy/JCL/D20110811x1130.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/D20110811x1130.cls.xml	(revision 0)
+++ vhDeploy/JCL/D20110811x1130.cls.xml	(revision 1855)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.D20110811x1130">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Instellen config item SQLGCWrapper</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+		
+	set Sleutel = "Sys.SQLGCWrapper_logFileDir"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		set Waarde = "C:\VHLogs\"
+		do ConfigMgr.SetString(Sleutel,Waarde)
+	}	
+	
+	set Sleutel = "Sys.SQLGCWrapper_LoggingEnabled"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		do ConfigMgr.SetString(Sleutel,0)
+	}	
+
+	Set Sleutel="EWMS.SQLGCWrapper_ConnectionDataSourceName"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		if ConfigMgr.GetOmgeving()="PROD" { set Waarde = "EWMS_EWMS" }
+		else { set Waarde = "TAPI_EWMS" }
+		do ConfigMgr.SetString(Sleutel,Waarde)
+	}
+	
+	Set Sleutel="EWMS.SQLGCWrapper_UserName"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		do ConfigMgr.SetString(Sleutel,"sa")
+	}
+	
+	Set Sleutel="EWMS.SQLGCWrapper_Password"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		do ConfigMgr.SetString(Sleutel,"")
+	}
+
+	Set Sleutel="EWMS.SQLGCWrapper_LoggingEnabled"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		do ConfigMgr.SetString(Sleutel,0)
+	}
+
+	Set Sleutel="FOP.DocRepo.SQLGCWrapper_ConnectionDataSourceName"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		set Waarde = "FOP_ASSENTIS"
+		do ConfigMgr.SetString(Sleutel,Waarde)
+	}
+	
+	Set Sleutel="FOP.DocRepo.SQLGCWrapper_UserName"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		if ConfigMgr.GetOmgeving()="PROD" { set Waarde = "docfamily_prd" }
+		else { set Waarde = "docfamily_dev" }
+		do ConfigMgr.SetString(Sleutel,Waarde)
+	}
+	
+	Set Sleutel="FOP.DocRepo.SQLGCWrapper_Password"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		if ConfigMgr.GetOmgeving()="PROD" { set Waarde = "docfamily_prd" }
+		else { set Waarde = "docfamily_dev" }
+		do ConfigMgr.SetString(Sleutel,Waarde)
+	}
+
+	Set Sleutel="FOP.DocRepo.SQLGCWrapper_LoggingEnabled"
+	if 'ConfigMgr.BestaatSleutel(Sleutel) {
+		do ConfigMgr.SetString(Sleutel,0)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Sys/SQLGCWrapper.cls.xml
===================================================================
diff -u -r1074 -r1855
--- Sys/SQLGCWrapper.cls.xml	(.../SQLGCWrapper.cls.xml)	(revision 1074)
+++ Sys/SQLGCWrapper.cls.xml	(.../SQLGCWrapper.cls.xml)	(revision 1855)
@@ -8,39 +8,46 @@
 Connect
 CloseCursor
 Disconnect</Description>
-<IncludeCode>%Const</IncludeCode>
+<IncludeCode>%Const,vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="DoLogging">
-<Default>0</Default>
-</Parameter>
-
 <Parameter name="DoTransactions">
 <Default>0</Default>
 </Parameter>
 
-<Parameter name="conDSN">
-</Parameter>
+<Property name="DoLogging">
+<Type>%String</Type>
+</Property>
 
-<Parameter name="conPassword">
-</Parameter>
+<Property name="conDSN">
+<Type>%String</Type>
+</Property>
 
-<Parameter name="conUserName">
-</Parameter>
+<Property name="conPassword">
+<Type>%String</Type>
+</Property>
 
-<Parameter name="logFileDir">
-<Default>c:\vhlogs\</Default>
-</Parameter>
+<Property name="conUserName">
+<Type>%String</Type>
+</Property>
 
-<Parameter name="logFileExt">
-<Default>txt</Default>
-</Parameter>
+<Property name="logFileDir">
+<Type>%String</Type>
+<Final>1</Final>
+<Calculated>1</Calculated>
+</Property>
 
-<Parameter name="logFileName">
-<Default>SQLGCLog</Default>
-</Parameter>
+<Property name="logFileName">
+<Type>%String</Type>
+<InitialExpression>"SQLGCLog"</InitialExpression>
+</Property>
 
+<Property name="logFileExt">
+<Type>%String</Type>
+<InitialExpression>"txt"</InitialExpression>
+</Property>
+
 <Property name="AutoShowErrorMsg">
 <Type>%Library.Boolean</Type>
 <InitialExpression>0</InitialExpression>
@@ -107,27 +114,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="logFileDirGet">
+<Final>1</Final>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ 
+	quit ##class(TECH.Config.ConfigMgr).Instance().GetString("Sys.SQLGCWrapper_logFileDir")
+]]></Implementation>
+</Method>
+
+<Method name="InitParams">
+<Implementation><![CDATA[
+ set ..conDSN = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+ set ..conUserName = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+ set ..conUserName = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
+ 
+ set ..DoLogging = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWMS.SQLGCWrapper_LoggingEnabled")
+ 
+ set ..logFileName = "EWMS_SQLGCLog"
+ 
+ quit
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
 <FormalSpec><![CDATA[&initvalue:%Library.String]]></FormalSpec>
 <ReturnType>%Library.Status</ReturnType>
 <Implementation><![CDATA[
  //Gateway Connection
+ 
+ do ..InitParams()
+
  Set ..SQLGC=##class(%Library.SQLGatewayConnection).%New()
 
  New tmpStatus
  Set tmpStatus=$S(..SQLGC=$$$NULLOREF:$$$ERROR($$$GeneralError,"Kan geen nieuw SQLGatewayConnection object aanmaken."),1:$$$OK)
 
  //File logging
- If ..#DoLogging Do
- . New LF,Index
- . Set Index=0
- . For  Set Index=Index+1, LF=..#logFileDir_..#logFileName_Index_"."_..#logFileExt Quit:('##class(%File).Exists(LF))  Do
- . Set ..FLogFile=##class(%File).%New(LF)
+ If ..DoLogging Do
+ . New LogFile,Index
+ . for  do  Quit:('##class(%File).Exists(LogFile))  hang 0.01
+ . . Set Index=$translate($$$Timestamp($zutil(188)),":- ","")
+ . . Set LogFile=##class(TECH.Files).AppendFile(..logFileDir,..logFileName_Index_"."_..logFileExt) 
+ . Set ..FLogFile=##class(%File).%New(LogFile)
  . If ..FLogFile=$$$NULLOREF Do
- ..  Set ..LastErrorMsg="LogFailed: Kan geen nieuw %File object aanmaken ('"_$G(LF,"filename is missing")_"')."
- ..  Set tmpStatus=$$$ERROR($$$GeneralError,..LastErrorMsg)
+ . .  Set ..LastErrorMsg="LogFailed: Kan geen nieuw %File object aanmaken ('"_$G(LogFile,"filename is missing")_"')."
+ . .  Set tmpStatus=$$$ERROR($$$GeneralError,..LastErrorMsg)
  . Else  Do
- ..  Set tmpStatus=..FLogFile.Open("WSN")
+ . .  Set tmpStatus=..FLogFile.Open("WSN")
  Else  Do
  . Set ..FLogFile=$$$NULLOREF
 
@@ -223,11 +257,11 @@
  If ..Connected Do  Quit 0
  . Set ..LastErrorMsg="Verbinding is reeds gemaakt, gelieve deze eerst te verbreken."
 
- Do ..AddToLog("Connecting to "_..#conDSN_" (UserName: "_..#conUserName_") - "_$zdt($h,2,2))
+ Do ..AddToLog("Connecting to "_..conDSN_" (UserName: "_..conUserName_") - "_$zdt($h,2,2))
 
  ;Connect
  New tmpStatus
- Set tmpStatus=..SQLGC.Connect(..#conDSN,..#conUserName,..#conPassword)
+ Set tmpStatus=..SQLGC.Connect(..conDSN,..conUserName,..conPassword)
 
  If $$$ISERR(tmpStatus) Do  Quit 0
  . Set ..Connected=0
@@ -276,7 +310,7 @@
 
  Do:(..HStmt'=0) ..DropStatement()
 
- Do ..AddToLog("Disconnecting from "_..#conDSN_" - "_$zdt($h,2,2))
+ Do ..AddToLog("Disconnecting from "_..conDSN_" - "_$zdt($h,2,2))
 
  New tmpStatus
  Set tmpStatus=..SQLGC.Disconnect()
Index: FOP/DocRepo/SQLGCWrapper.cls.xml
===================================================================
diff -u -r1074 -r1855
--- FOP/DocRepo/SQLGCWrapper.cls.xml	(.../SQLGCWrapper.cls.xml)	(revision 1074)
+++ FOP/DocRepo/SQLGCWrapper.cls.xml	(.../SQLGCWrapper.cls.xml)	(revision 1855)
@@ -5,16 +5,17 @@
 <Super>Sys.SQLGCWrapper</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="conDSN">
-<Default>FOP_ASSENTIS</Default>
-</Parameter>
-
-<Parameter name="conUserName">
-<Default>docfamily_dev</Default>
-</Parameter>
-
-<Parameter name="conPassword">
-<Default>docfamily_dev</Default>
-</Parameter>
+<Method name="InitParams">
+<Implementation><![CDATA[
+ set ..conDSN = ##class(TECH.Config.ConfigMgr).Instance().GetString("FOP.DocRepo.SQLGCWrapper_ConnectionDataSourceName")
+ set ..conUserName = ##class(TECH.Config.ConfigMgr).Instance().GetString("FOP.DocRepo.SQLGCWrapper_UserName")
+ set ..conUserName = ##class(TECH.Config.ConfigMgr).Instance().GetString("FOP.DocRepo.SQLGCWrapper_Password")
+ 
+ set ..DoLogging = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("FOP.DocRepo.SQLGCWrapper_LoggingEnabled")
+ set ..logFileName = "FOPDecRepo_SQLGCLog"
+ 
+ quit
+]]></Implementation>
+</Method>
 </Class>
 </Export>