Description
This method is the extended method of GetBusinessFields2 for the word count limitation.
Parameters
icReference | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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*/