method GetBusinessfields2

Parameters

icReportName	input	character
oiReturnStatus	output	integer	Return status of the method.
Internal usage

QadFinancials
method BCInvoice.GetBusinessFields
program code (program1/bcinvoice.p)

create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-1'Line Description':30(1135)t-1#)
           tBusinessFields.tcColumnLabel    = trim (#T-2'Line Description':30(1135)t-2#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcPostingLineText":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(40)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-3'System Date':30(1136)t-3#)
           tBusinessFields.tcColumnLabel    = trim (#T-4'Sys Date':20(1137)T-4#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.ttPostingSystemDate":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "t":U
           tBusinessFields.tcDisplayFormat  = "99/99/9999":U
           tBusinessFields.tcControlType    = "DateTime":U
           tBusinessFields.tcFcDescription  = "":U.
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-5'Description':20(1138)t-5#)
           tBusinessFields.tcColumnLabel    = trim (#T-6'Description':20(1138)t-6#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcPostingText":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(40)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-7'Pending Invoice':20(1139)t-7#)
           tBusinessFields.tcColumnLabel    = trim (#T-8'Pending Invoice':20(1139)t-8#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tiPostingVoucher":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "i":U
           tBusinessFields.tcDisplayFormat  = "999999999":U
           tBusinessFields.tcControlType    = "NumericInt":U
           tBusinessFields.tcFcDescription  = "":U.
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-9'Project Code':30(65)t-9#)
           tBusinessFields.tcColumnLabel    = trim (#T-10'Project':30(1140)t-10#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcProjectCode":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel         = trim (#T-11'Project Code':20(1141)t-11#)
           tBusinessFields.tcColumnLabel       = trim (#T-12'Project':20(231)t-12#)
           tBusinessFields.tcFcFieldName       = "ProjectCode":U
           tBusinessFields.tcFcFieldType       = "F":U
           tBusinessFields.tcDataType          = "c":U
           tBusinessFields.tcDisplayFormat     = "x(20)":U
           tBusinessFields.tcControlType       = "TextBox":U
           tBusinessFields.tcFcDescription     = "":U
           tBusinessFields.tcLookupQuery       = "BProjectSAO.SelectProject":U
           tBusinessFields.tcLookupReturnField = "tqSelectProject.tcProjectCode":U
           tBusinessFields.tcLookupFilterField = "tProject.ProjectCode":U.  
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-13'Project Description':40(1142)t-13#)
           tBusinessFields.tcColumnLabel    = trim (#T-14'Project Description':30(1143)T-14#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcProjectDescription":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(40)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-15'GL Account Unit of Measure':26(4272)T-15#)
           tBusinessFields.tcColumnLabel    = trim (#T-16'UM':15(1144)T-16#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcUnitCode":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-17'Cost Center Saf 1':30(1145)t-17#)
           tBusinessFields.tcColumnLabel    = trim (#T-18'CC SAF 1':17(1146)T-18#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptCostSaf1":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-19'Cost Center Saf 2':30(1147)t-19#)
           tBusinessFields.tcColumnLabel    = trim (#T-20'CC SAF 2':17(1148)T-20#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptCostSaf2":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-21'Cost Center Saf 3':30(1149)t-21#)
           tBusinessFields.tcColumnLabel    = trim (#T-22'CC SAF 3':17(1150)T-22#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptCostSaf3":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-23'Cost Center Saf 4':30(1151)t-23#)
           tBusinessFields.tcColumnLabel    = trim (#T-24'CC SAF 4':17(1152)T-24#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptCostSaf4":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-25'CC SAF 5':30(1153)T-25#)
           tBusinessFields.tcColumnLabel    = trim (#T-26'CC SAF 5':17(1154)T-26#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptCostSaf5":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-27'GL Saf 1':30(1155)t-27#)
           tBusinessFields.tcColumnLabel    = trim (#T-28'GL Saf 1':15(1156)t-28#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptGLSaf1":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-29'GL Saf 2':30(1157)t-29#)
           tBusinessFields.tcColumnLabel    = trim (#T-30'GL Saf 2':15(1158)t-30#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptGLSaf2":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-31'GL Saf 3':30(1159)t-31#)
           tBusinessFields.tcColumnLabel    = trim (#T-32'GL Saf 3':15(1160)t-32#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptGLSaf3":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-33'GL Saf 4':30(1161)t-33#)
           tBusinessFields.tcColumnLabel    = trim (#T-34'GL Saf 4':15(1162)t-34#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptGLSaf4":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-35'GL Saf 5':30(1163)t-35#)
           tBusinessFields.tcColumnLabel    = trim (#T-36'GL Saf 5':15(1164)t-36#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptGLSaf5":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-37'Project Saf 1':30(1165)t-37#)
           tBusinessFields.tcColumnLabel    = trim (#T-38'Project Saf 1':15(1166)t-38#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptProjectSaf1":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-39'Project Saf 2':30(1167)t-39#)
           tBusinessFields.tcColumnLabel    = trim (#T-40'Project Saf 2':15(1168)t-40#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptProjectSaf2":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-41'Project Saf 3':30(1169)t-41#)
           tBusinessFields.tcColumnLabel    = trim (#T-42'Project Saf 3':15(1170)t-42#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptProjectSaf3":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-43'Project Saf 4':30(1171)t-43#)
           tBusinessFields.tcColumnLabel    = trim (#T-44'Project Saf 4':15(1172)t-44#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptProjectSaf4":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-45'Project Saf 5':30(1173)t-45#)
           tBusinessFields.tcColumnLabel    = trim (#T-46'Project Saf 5':15(1174)t-46#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcReceiptProjectSaf5":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-47'Cost Center Code':30(1175)t-47#)
           tBusinessFields.tcColumnLabel    = trim (#T-48'Cost Center Code':16(1176)T-48#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcCostCentreCode":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-49'Invoice Voucher':30(13790)T-49#)
           tBusinessFields.tcColumnLabel    = trim (#T-50'Inv Voucher':20(13792)T-50#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tiCInvoiceVoucher":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "i":U
           tBusinessFields.tcDisplayFormat  = "999999999":U
           tBusinessFields.tcControlType    = "NumericInt":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-51'Invoice Period':20(13794)T-51#)
           tBusinessFields.tcColumnLabel    = trim (#T-52'Invoice Pd':10(13796)T-52#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tiCInvoicePeriodPeriod":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "i":U
           tBusinessFields.tcDisplayFormat  = "99":U
           tBusinessFields.tcControlType    = "NumericInt":U
           tBusinessFields.tcFcDescription  = "":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-53'Invoice Year':30(13798)T-53#)
           tBusinessFields.tcColumnLabel    = trim (#T-54'Invoice Year':20(13800)T-54#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tiCInvoicePeriodYear":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "i":U
           tBusinessFields.tcDisplayFormat  = "9999":U
           tBusinessFields.tcControlType    = "NumericInt":U
           tBusinessFields.tcFcDescription  = "":U.
    
    create tBusinessFields.
    assign tBusinessFields.tcSideLabel      = trim (#T-55'Invoice Daybook':30(13801)T-55#)
           tBusinessFields.tcColumnLabel    = trim (#T-56'Inv Daybook':20(13802)T-56#)
           tBusinessFields.tcFcFieldName    = "tqCostAllocation.tcCInvoiceJournalCode":U
           tBusinessFields.tcFcFieldType    = "B":U
           tBusinessFields.tcDataType       = "c":U
           tBusinessFields.tcDisplayFormat  = "x(20)":U
           tBusinessFields.tcControlType    = "TextBox":U
           tBusinessFields.tcFcDescription  = "":U.