meguia1030
IS-IT--Management
Hi,
There is a way that I can assign a collection list to a dataview control. This list is inside a object. This is my collection code.
Public Shared Function GetItem(ByVal id As Integer, ByVal getClientRecords As Boolean, ByVal WhatConn As Boolean, ByVal PersonType As Long) As BO.Smartgap.SGPoliApliManager.BO.SGPerson
Dim myPerson As BO.Smartgap.SGPoliApliManager.BO.SGPerson =
DAL.Smartgap.SGPoliApliManager.DAL.SGPersonDB.GetItem(id, WhatConn, PersonType)
If Not (myPerson Is Nothing) AndAlso getClientRecords Then
myPerson.DependentsList = DAL.Smartgap.SGPoliApliManager.DAL.SGDependentsDB.GetList(id, WhatConn)
myPerson.AddressList = DAL.Smartgap.SGPoliApliManager.DAL.SGAddressDB.GetList(id, WhatConn)
myPerson.PhoneNumberList = DAL.Smartgap.SGPoliApliManager.DAL.SGTelephoneDB.GetList(id, WhatConn)
myPerson.EmailList = DAL.Smartgap.SGPoliApliManager.DAL.SGEmailDB.GetList(id, WhatConn)
myPerson.PayModeList = DAL.Smartgap.SGPoliApliManager.DAL.SGPayModeDB.GetList(id, WhatConn)
myPerson.AgentList = DAL.Smartgap.SGPoliApliManager.DAL.SGAgentDB.GetList(id, WhatConn)
myPerson.DoctorList = DAL.Smartgap.SGPoliApliManager.DAL.SGDoctorsDB.GetList(id, WhatConn)
myPerson.PolicyList = DAL.Smartgap.SGPoliApliManager.DAL.SGPolicyDB.GetList(id, WhatConn)
myPerson.BeneficiaryList = DAL.Smartgap.SGPoliApliManager.DAL.SGBeneficiaryDB.GetList(id, WhatConn)
End If
Return myPerson
End Function
Thanks in advance
There is a way that I can assign a collection list to a dataview control. This list is inside a object. This is my collection code.
Public Shared Function GetItem(ByVal id As Integer, ByVal getClientRecords As Boolean, ByVal WhatConn As Boolean, ByVal PersonType As Long) As BO.Smartgap.SGPoliApliManager.BO.SGPerson
Dim myPerson As BO.Smartgap.SGPoliApliManager.BO.SGPerson =
DAL.Smartgap.SGPoliApliManager.DAL.SGPersonDB.GetItem(id, WhatConn, PersonType)
If Not (myPerson Is Nothing) AndAlso getClientRecords Then
myPerson.DependentsList = DAL.Smartgap.SGPoliApliManager.DAL.SGDependentsDB.GetList(id, WhatConn)
myPerson.AddressList = DAL.Smartgap.SGPoliApliManager.DAL.SGAddressDB.GetList(id, WhatConn)
myPerson.PhoneNumberList = DAL.Smartgap.SGPoliApliManager.DAL.SGTelephoneDB.GetList(id, WhatConn)
myPerson.EmailList = DAL.Smartgap.SGPoliApliManager.DAL.SGEmailDB.GetList(id, WhatConn)
myPerson.PayModeList = DAL.Smartgap.SGPoliApliManager.DAL.SGPayModeDB.GetList(id, WhatConn)
myPerson.AgentList = DAL.Smartgap.SGPoliApliManager.DAL.SGAgentDB.GetList(id, WhatConn)
myPerson.DoctorList = DAL.Smartgap.SGPoliApliManager.DAL.SGDoctorsDB.GetList(id, WhatConn)
myPerson.PolicyList = DAL.Smartgap.SGPoliApliManager.DAL.SGPolicyDB.GetList(id, WhatConn)
myPerson.BeneficiaryList = DAL.Smartgap.SGPoliApliManager.DAL.SGBeneficiaryDB.GetList(id, WhatConn)
End If
Return myPerson
End Function
Thanks in advance