Imports Microsoft.VisualBasic
Imports System.Runtime.InteropServices
Imports System.EnterpriseServices
Imports System.Text
<System.Runtime.InteropServices.ProgId("PUB_Baa01.CBaa020N"), _
JustInTimeActivation(True), EventTrackingEnabled(True), _
System.EnterpriseServices.TransactionAttribute(System.EnterpriseServices.TransactionOption.NotSupported), _
ClassInterface(ClassInterfaceType.AutoDual), ObjectPooling(True, MinPoolSize:=0, MaxPoolSize:=1)> _
Public Class CBaa020N
Inherits ServicedComponent
Private Const csComboID As String = "PUB_Zaaex.CZaaxt"
Private Const csDBSID As String = "FSBCommNet.CDBScript"
Public Function GetBaa020(ByRef aCert As Object, _
ByVal sCustCd As String, _
ByVal sCustNm As String, _
ByVal sCustType As String, _
ByVal sBizNo As String, _
ByRef rsBaa020 As Object, _
Optional ByRef aCombo As Object = Nothing) As String
Dim oDAL As Object = Nothing
Dim oCombo As Object = Nothing
Dim sSql As New System.Text.StringBuilder("")
Try
GetBaa020 = ""
oDAL = CreateObject(aCert(9))
GetBaa020 = oDAL.Connect(aCert)
If GetBaa020 <> "" Then Throw New Exception(GetBaa020)
sSql.Remove(0, sSql.Length)
sSql.AppendLine(" ")
GetBaa020 = oDAL.GetRecordSet(sSql.ToString, rsBaa020)
If GetBaa020 <> "" Then Throw New Exception(GetBaa020)
If Not IsNothing(aCombo) Then
oCombo = CreateObject(csComboID)
GetBaa020 = oCombo.getComboRs(aCert, aCombo, oDAL)
If GetBaa020 <> "" Then Throw New Exception(GetBaa020)
End If
Catch oErr As Exception
GetBaa020 = My.Application.Info.AssemblyName & "." & TypeName(Me) & "[GetBaa020]" & vbCrLf & oErr.Source & vbCrLf & oErr.Message
Finally
sSql = Nothing
If Not oCombo Is Nothing Then
oCombo.Dispose()
End If
oCombo = Nothing
If Not oDAL Is Nothing Then
oDAL.Disconnect()
ServicedComponent.DisposeObject(oDAL)
End If
oDAL = Nothing
Me.Dispose()
End Try
End Function
End Class