ADMIN2018-06-19T21:16:39.2630000ADMIN2018-06-19T21:27:11.2870000FL.WSCLASSFunction Library - Web Service ClassesFunctionLibrarytruefalse
' ###################################################
' Function libray to hold custom Web Service classes.
'
' Current Version: 1.00.00 (19/05/2015)
'
' Usage: Function Library.
'
' Revision Notes
' ==============
' 19/05/2015  1.00.00   ISS.ME    Created.
' ########################################

''' <summary>
''' Custom Account class
''' </summary>
<System.Xml.Serialization.XmlType("Account")>
Public Class clsCustomAccount

  Public AccountId As String
  Public AccountName As String
  Public AccountTypeId As String
  Public DateOpened As Date
  Public Balance As Decimal
  Public BalanceOverdue As Decimal

  ' Contructors
  Public Sub New()
  End Sub

  Public Sub New(clientAccount As finClientAccount)
    ' Update fields from finClientAccount
    With clientAccount
      Me.AccountId = .AccountId
      Me.AccountName = .Name
      Me.AccountTypeId = .AccountTypeId
      Me.DateOpened = .DateOpened
      Me.Balance = .Balance
      Me.BalanceOverdue = .BalanceOverdue
    End With
  End Sub

End Class

''' <summary>
''' Custom Client class
''' </summary>
<System.Xml.Serialization.XmlType("Client")>
Public Class clsCustomClient

  Public ClientId As String
  Public ErrorMessage As String
  Public FirstName As String
  Public LastName As String
  Public DateOfBirth As Date
  Public Accounts As List(Of clsCustomAccount)

  ' Constructors
  Public Sub New()
  End Sub

  Public Sub New(client As finClient)
    Dim ClientAccount As finClientAccount
    Dim CustomAccount As clsCustomAccount

    ' Update fields from finClient
    With client
      Me.ClientId = .ClientId
      Me.FirstName = .FirstName
      Me.LastName = .LastName
      Me.DateOfBirth = .DateOfBirth

      ' Create a new list of accounts
      Accounts = New List(Of clsCustomAccount)

      ' Loop through finClient accounts and add custom account to collection
      For Each ClientAccount In client.Accounts
        CustomAccount = New clsCustomAccount(ClientAccount)
        Accounts.Add(CustomAccount)
      Next
    End With
  End Sub

  ' Don't serialise if Date.MinValue
  Public Function ShouldSerializeDateOfBirth() As Boolean
    Return (DateOfBirth <> Nothing)
  End Function

End Class

''' <summary>
''' Collection of custom clients
''' </summary>
<System.Xml.Serialization.XmlType("Clients")>
Public Class clsCustomClients : Inherits List(Of clsCustomClient)
End Class

<System.Xml.Serialization.XmlType("ResponseDetail")>
Public Class clsResponseDetail

  Public Status As String
  Public Message As String

End Class

<System.Xml.Serialization.XmlType("ResponseDetails")>
Public Class clsResponseDetails : Inherits List(Of clsResponseDetail)
End Class
VisualBasicfalse60None