Classes

Option Explicit

'properties
Public Pr_Line As Integer
Public Pr_Key As String
Public Pr_Group As String
Public Pr_ERPId As String
Public Pr_LocalName As String
Public Pr_OneStreamId As String
Public Pr_Type As String
Public Pr_DV As Boolean 'Departementaal Vertrouwelijk True/False
Public Pr_CalcHrsTar As Boolean
'methods
Sub Retrieve(ReadLine As Double)
   Me.Pr_Line = ReadLine
   Me.Pr_Key = wsProjects.[tblProjects[Proj_Key]].Rows(ReadLine).Value
   Me.Pr_Group = wsProjects.[tblProjects[Proj_Group]].Rows(ReadLine).Value
   Me.Pr_ERPId = wsProjects.[tblProjects[Proj_ERPID]].Rows(ReadLine).Value
   Me.Pr_LocalName = wsProjects.[tblProjects[Proj_Local_Name]].Rows(ReadLine).Value
   Me.Pr_OneStreamId = wsProjects.[tblProjects[Proj_OnestreamID]].Rows(ReadLine).Value
   Me.Pr_Type = wsProjects.[tblProjects[Proj_Type]].Rows(ReadLine).Value
   Me.Pr_DV = wsProjects.[tblProjects[Proj_DV]].Rows(ReadLine).Value
   Me.Pr_CalcHrsTar = wsProjects.[tblProjects[Calc_Hours_Tariff]].Rows(ReadLine).Value
End Sub