project QadFinancials > class BAPMatchingReport > method GetBusinessFields2

Description

Parameters

Internal usage

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*/