method GetBusinessFields2

Description

This method wis a submethod of GetBusinessFields because of the character number limitation.
Parameters

icReference	input	character	- <classname> for receiving business field information of a business class - <classname>.<methodname> for receiving business field information of a browse or report
oiReturnStatus	output	integer	Return status of the method.
Internal usage

QadFinancials
method BProjectReport.GetBusinessFields
program code (program1/bprojectreport.p)

if can-do("CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj":U, icReference)
then do:
   create tBusinessFields.
   assign tBusinessFields.tcSideLabel     = #T-57'Check that transaction history is up to date.':40(14718)t-57#
          tBusinessFields.tcFcDescription = #T-58'Check if History Is Up To Date':50(14723)T-58#         
          tBusinessFields.tcFcFieldName   = "CheckHistory":U
          tBusinessFields.tcDataType      = "l":U
          tBusinessFields.tcControlType   = "Bool":U
          tBusinessFields.tcDisplayFormat = "yes/no":U
          tBusinessFields.tcFcFieldType   = "F":U.   
          
   create tBusinessFields.
   assign tBusinessFields.tcSideLabel     = #T-59'Show Detail Lines':30(16191)T-59#
          tBusinessFields.tcFcDescription = #T-60'Show Detail Lines':100(16190)T-60#      
          tBusinessFields.tcFcFieldName   = "ShowDetailLines":U
          tBusinessFields.tcDataType      = "l":U
          tBusinessFields.tcControlType   = "Bool":U
          tBusinessFields.tcDisplayFormat = "yes/no":U
          tBusinessFields.tcFcFieldType   = "F":U.            
end.

/*Project Mastercard */
if can-do("ProjectMastercard":U, icReference) 
then do:    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-1'Account Manager':40(13974)T-1#)
           tBusinessFields.tcFcDescription = trim(#T-2'Account Manager':40(13974)T-2#)
           tBusinessFields.tcFcFieldName   = "AccountManager_RANGE":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BUserSAO.SelectUser":U
           tBusinessFields.tcLookupReturnField = "tqSelectUser.tcUsrName":U
           tBusinessFields.tcLookupFilterField = "tUsr.UsrName":U.
           
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-3'Account Manager':40(13974)T-3#)
           tBusinessFields.tcFcDescription = trim(#T-4'Account Manager':40(13974)T-4#)
           tBusinessFields.tcFcFieldName   = "AccountManager_CANDO":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BUserSAO.SelectUser":U
           tBusinessFields.tcLookupReturnField = "tqSelectUser.tcUsrName":U
           tBusinessFields.tcLookupFilterField = "tUsr.UsrName":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-5'Administration Manager':40(13975)T-5#)
           tBusinessFields.tcFcDescription = trim(#T-6'Administration Manager':40(13975)T-6#)
           tBusinessFields.tcFcFieldName   = "AdminManager_RANGE":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BUserSAO.SelectUser":U
           tBusinessFields.tcLookupReturnField = "tqSelectUser.tcUsrName":U
           tBusinessFields.tcLookupFilterField = "tUsr.UsrName":U.
           
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-7'Administration Manager':40(13975)T-7#)
           tBusinessFields.tcFcDescription = trim(#T-8'Administration Manager':40(13975)T-8#)
           tBusinessFields.tcFcFieldName   = "AdminManager_CANDO":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BUserSAO.SelectUser":U
           tBusinessFields.tcLookupReturnField = "tqSelectUser.tcUsrName":U
           tBusinessFields.tcLookupFilterField = "tUsr.UsrName":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-9'Controller':40(13976)T-9#)
           tBusinessFields.tcFcDescription = trim(#T-10'Controller':40(13976)T-10#)
           tBusinessFields.tcFcFieldName   = "Controller_RANGE":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BUserSAO.SelectUser":U
           tBusinessFields.tcLookupReturnField = "tqSelectUser.tcUsrName":U
           tBusinessFields.tcLookupFilterField = "tUsr.UsrName":U.
           
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-11'Controller':40(13976)T-11#)
           tBusinessFields.tcFcDescription = trim(#T-12'Controller':40(13976)T-12#)
           tBusinessFields.tcFcFieldName   = "Controller_CANDO":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BUserSAO.SelectUser":U
           tBusinessFields.tcLookupReturnField = "tqSelectUser.tcUsrName":U
           tBusinessFields.tcLookupFilterField = "tUsr.UsrName":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-17'Penholder Entity':40(13977)T-17#)
           tBusinessFields.tcFcDescription = trim(#T-18'Penholder Entity':40(13977)T-18#)
           tBusinessFields.tcFcFieldName   = "PenholderCompany_RANGE":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BCompanySAO.SelectCompany":U
           tBusinessFields.tcLookupReturnField = "tqSelectCompany.tcCompanyCode":U
           tBusinessFields.tcLookupFilterField = "tCompany.CompanyCode":U.
           
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-19'Penholder Entity':40(13977)T-19#)
           tBusinessFields.tcFcDescription = trim(#T-20'Penholder Entity':40(13977)T-20#)
           tBusinessFields.tcFcFieldName   = "PenholderCompany_CANDO":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BCompanySAO.SelectCompany":U
           tBusinessFields.tcLookupReturnField = "tqSelectCompany.tcCompanyCode":U
           tBusinessFields.tcLookupFilterField = "tCompany.CompanyCode":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-25'Project Group':40(13979)T-25#)
           tBusinessFields.tcFcDescription = trim(#T-26'Project Group':40(13979)T-26#)
           tBusinessFields.tcFcFieldName   = "ProjectGroup_RANGE":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BProjectGroupSAO.SelectProjectGroup":U
           tBusinessFields.tcLookupReturnField = "tqSelectProjectGroup.tcProjectGroupCode":U
           tBusinessFields.tcLookupFilterField = "tProjectGroup.ProjectGroupCode":U.
           
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-27'Project Group':40(13979)T-27#)
           tBusinessFields.tcFcDescription = trim(#T-28'Project Group':40(13979)T-28#)
           tBusinessFields.tcFcFieldName   = "ProjectGroup_CANDO":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BProjectGroupSAO.SelectProjectGroup":U
           tBusinessFields.tcLookupReturnField = "tqSelectProjectGroup.tcProjectGroupCode":U
           tBusinessFields.tcLookupFilterField = "tProjectGroup.ProjectGroupCode":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-33'Main Project':30(13980)T-33#)
           tBusinessFields.tcFcDescription = trim(#T-34'Main Project':30(13980)T-34#)
           tBusinessFields.tcFcFieldName   = "MainProject_RANGE":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BProjectSAO.SelectProject":U
           tBusinessFields.tcLookupReturnField = "tqSelectProject.tcProjectCode":U
           tBusinessFields.tcLookupFilterField = "tProject.ProjectCode":U.
           
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-35'Main Project':30(13980)T-35#)
           tBusinessFields.tcFcDescription = trim(#T-36'Main Project':30(13980)T-36#)
           tBusinessFields.tcFcFieldName   = "MainProject_CANDO":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U
           tBusinessFields.tcLookupQuery       = "BProjectSAO.SelectProject":U
           tBusinessFields.tcLookupReturnField = "tqSelectProject.tcProjectCode":U
           tBusinessFields.tcLookupFilterField = "tProject.ProjectCode":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-39'Status Code':40(13981)T-39#)
           tBusinessFields.tcFcDescription = trim(#T-40'Status Code':40(13981)T-40#)
           tBusinessFields.tcValueList     = {&PROJECTSYSTEMSTATUSES}
           tBusinessFields.tcFcFieldName   = "StatusCode":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "ComboBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-43'Project Type':40(10101)T-43#)
           tBusinessFields.tcFcDescription = trim(#T-44'Project Type':40(10101)T-44#)
           tBusinessFields.tcValueList     = {&PROJECTTYPES}
           tBusinessFields.tcFcFieldName   = "ProjectType":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "ComboBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-49'Start Date':40(13983)T-49#)
           tBusinessFields.tcFcDescription = trim(#T-50'Start Date':40(13983)T-50#)
           tBusinessFields.tcFcFieldName   = "StartDate":U
           tBusinessFields.tcDataType      = "t":U
           tBusinessFields.tcControlType   = "DateTime":U
           tBusinessFields.tcDisplayFormat = "99/99/9999":U
           tBusinessFields.tcFcFieldType   = "F":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-51'End Date':40(13984)T-51#)
           tBusinessFields.tcFcDescription = trim(#T-52'End Date':40(13984)T-52#)
           tBusinessFields.tcFcFieldName   = "EndDate":U
           tBusinessFields.tcDataType      = "t":U
           tBusinessFields.tcControlType   = "DateTime":U
           tBusinessFields.tcDisplayFormat = "99/99/9999":U
           tBusinessFields.tcFcFieldType   = "F":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-55'Active Budget':40(14047)T-55#)
           tBusinessFields.tcFcDescription = trim(#T-56'Active Budget':40(14047)T-56#)
           tBusinessFields.tcFcFieldName   = "BudgetVersion":U
           tBusinessFields.tcDataType      = "l":U
           tBusinessFields.tcControlType   = "Bool":U
           tBusinessFields.tcDisplayFormat = "yes/no":U
           tBusinessFields.tcFcFieldType   = "F":U.
end.