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>