project QadFinancials > class BAPMatchingReport > method GetBusinessFields2

Description

This method is the extended method of GetBusinessFields2 for the word count limitation.


Parameters


icReferenceinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BAPMatchingReport.GetBusinessFields


program code (program7/bapmatchingreport.p)

if can-do("MatchingVarianceForLC":U, icReference) then
do:

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-1'Order Type':50(65379)T-1#)
           tBusinessFields.tcFcDescription = trim(#T-2'Order Type':50(65381)T-2#)
           tBusinessFields.tcValueList     = {&APMATCHINGLNPVODORDERTYPES}
           tBusinessFields.tcFcFieldName   = "OrderType":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "ComboBoxM":U
           tBusinessFields.tcDisplayFormat = "x(30)":U
           tBusinessFields.tcFcFieldType   = "F":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = #T-6'Only Blank Supplier':100(65386)T-6#
           tBusinessFields.tcFcDescription = #T-7'Only Blank Supplier':100(65387)T-7#
           tBusinessFields.tcFcFieldName   = "OnlyBlankCreditor":U
           tBusinessFields.tcDataType      = "l":U
           tBusinessFields.tcControlType   = "Bool":U
           tBusinessFields.tcDisplayFormat = "yes/no":U
           tBusinessFields.tcFcFieldType   = "F":U. 

   create tBusinessFields.
   assign tBusinessFields.tcSideLabel           = trim(#T-8'Ship From':30(65229)T-8#)
          tBusinessFields.tcFcDescription       = trim(#T-9'Ship From':30(65229)T-9#)
          tBusinessFields.tcFcFieldName         = "ShipFrom_RANGE":U
          tBusinessFields.tcDataType            = "c":U
          tBusinessFields.tcControlType         = "TextBox":U
          tBusinessFields.tcDisplayFormat       = "x(8)":U
          tBusinessFields.tcFcFieldType         = "F":U
          tBusinessFields.tcLookupQuery         = "BMfgSiteSAO.SelectMfgSite":U
          tBusinessFields.tcLookupReturnField   = "tqSelectMfgSite.tcsi_site":U
          tBusinessFields.tcLookupFilterField   = "tsi_mstr.si_site":U.

   create tBusinessFields.
   assign tBusinessFields.tcSideLabel           = trim(#T-10'Ship To':30(65230)T-10#)
          tBusinessFields.tcFcDescription       = trim(#T-11'Ship To':30(65230)T-11#)
          tBusinessFields.tcFcFieldName         = "ShipTo_RANGE":U
          tBusinessFields.tcDataType            = "c":U
          tBusinessFields.tcControlType         = "TextBox":U
          tBusinessFields.tcDisplayFormat       = "x(8)":U
          tBusinessFields.tcFcFieldType         = "F":U
          tBusinessFields.tcLookupQuery         = "BMfgSiteSAO.SelectMfgSite":U
          tBusinessFields.tcLookupReturnField   = "tqSelectMfgSite.tcsi_site":U
          tBusinessFields.tcLookupFilterField   = "tsi_mstr.si_site":U.
      
/*
   create tBusinessFields.
   assign tBusinessFields.tcSideLabel     = trim(#T-12'Receipt Site':30(65231)T-12#)
          tBusinessFields.tcFcDescription = trim(#T-13'Receipt Site':30(65231)T-13#)
          tBusinessFields.tcFcFieldName   = "Site_CANDO":U
          tBusinessFields.tcValueList     = vcSiteList
          tBusinessFields.tcDataType      = "c":U
          tBusinessFields.tcControlType   = "ComboBox":U
          tBusinessFields.tcDisplayFormat = "x(8)":U
          tBusinessFields.tcFcFieldType   = "F":U.
*/

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-14'Logistics Charge':30(64866)t-14#)
           tBusinessFields.tcFcDescription = trim(#T-15'From - To Logistics Charge':100(64867)T-15#)
           tBusinessFields.tcFcFieldName   = "LgCharge_RANGE":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "TextBox":U
           tBusinessFields.tcDisplayFormat = "x(20)":U
           tBusinessFields.tcFcFieldType   = "F":U.

    create tBusinessFields.
    assign tBusinessFields.tcSideLabel     = trim(#T-16'Sort By':50(65274)T-16#)
           tBusinessFields.tcFcDescription = trim(#T-17'Sort By':50(65275)T-17#)
           tBusinessFields.tcValueList     = trim(#T-18'Logistic Charge Code':50(65388)T-18#) + CHR(2) + vcSortByLGCHARGE + CHR(2) +
                                             trim(#T-19'Supplier':30(65389)T-19#) + CHR(2) + vcSortBySUPPLIER + CHR(2) +                                                                       
                                             trim(#T-20'Internal Reference':30(65390)T-20#) + CHR(2) + vcSortByINTREF + CHR(2) +                                                                       
                                             trim(#T-21'Order':30(65391)T-21#) + CHR(2) + vcSortByORDER + CHR(2)                                                                     
           tBusinessFields.tcFcFieldName   = "SortBy":U
           tBusinessFields.tcDataType      = "c":U
           tBusinessFields.tcControlType   = "ComboBoxM":U
           tBusinessFields.tcDisplayFormat = "x(30)":U
           tBusinessFields.tcFcFieldType   = "F":U.

end. /*if can-do("MatchingVarianceForLC":U, icReference) then*/