Description
This method is used to set filters for reports on the UI.
Parameters
| icReportName | input | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bdebtorreport.p)
if can-do("DebtorAgeingAnalysisCurrent,DebtorAACGroup,DebtorAgeingAnalysisBackwards,DebtorAABGroup,DebtorBillingAAB,DebtorAgingHistAcroDomain":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-1'Summary Info By':30(1475)t-1#)
tBusinessFields.tcFcDescription = trim(#T-2'Summary Info By':100(1476)t-2#)
tBusinessFields.tcFcFieldName = "SummaryBy":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
if icReportName = "DebtorBillingAAB":U
then assign tBusinessFields.tcValueList = {&DEBTORSUMMARYBYSBILL}.
else if icReportName = "DebtorAgingHistAcroDomain":U
then assign tBusinessFields.tcValueList = {&DEBTORSUMMARYBYSHARESET}.
else assign tBusinessFields.tcValueList = {&DEBTORSUMMARYBYS}.
end.
if can-do("DebtorAccountsHistoryDet":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-5'Detail Level':30(1477)t-5#)
tBusinessFields.tcFcDescription = trim(#T-6'Detail Level':100(1478)t-6#)
tBusinessFields.tcValueList = {&DEBTORDETAILLEVELS}
tBusinessFields.tcFcFieldName = "DetailLevel":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorAACGroup,DebtorAABGroup":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-9'Group By':30(1481)t-9#)
tBusinessFields.tcFcDescription = trim(#T-10'Group By':100(1482)t-10#)
tBusinessFields.tcValueList = {&DEBTORGROUPINGLEVELS}
tBusinessFields.tcFcFieldName = "GroupingLevel":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorReminders":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-11'Reminder Date':30(1697)t-11#)
tBusinessFields.tcFcDescription = trim(#T-12'Reminder Date':100(1698)t-12#)
tBusinessFields.tcFcFieldName = "ReminderDate":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-13'Days of Delay':30(1699)t-13#)
tBusinessFields.tcFcDescription = trim(#T-14'Days of Delay':100(1700)t-14#)
tBusinessFields.tcFcFieldName = "DaysOfDelay":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = ">9":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-15'Min Number of Days':30(1701)t-15#)
tBusinessFields.tcFcDescription = trim(#T-16'Minimum Number of Days between Two Reminders':100(1702)T-16#)
tBusinessFields.tcFcFieldName = "MinimumDelay":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = ">9":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-17'Min Customer Open Balance':50(999890289)T-17#)
tBusinessFields.tcColumnLabel = trim(#T-18'Min Customer Open Balance':50(999890289)T-18#)
tBusinessFields.tcFcDescription = trim(#T-19'Minimum Customer Open Balance':100(999890290)T-19#)
tBusinessFields.tcFcFieldName = "MinimumAmount":U
tBusinessFields.tcDataType = "d":U
tBusinessFields.tcControlType = "NumericDecimal":U
tBusinessFields.tcDisplayFormat = "-99999999999":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-20'All Invoices':30(1705)t-20#)
tBusinessFields.tcFcDescription = trim(#T-21'All Invoices':100(1706)t-21#)
tBusinessFields.tcFcFieldName = "AllInvoices":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-22'Reminder Level':100(1707)T-22#)
tBusinessFields.tcFcDescription = trim(#T-23'Reminder Level':100(1707)T-23#)
tBusinessFields.tcValueList = trim(#T-24'1':40(1708)T-24#) + chr(2) + "1":U + chr(2) +
trim(#T-25'2':40(1709)T-25#) + chr(2) + "2":U + chr(2) +
trim(#T-26'3':40(1710)T-26#) + chr(2) + "3":U
tBusinessFields.tcFcFieldName = "ReminderLevel_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
if viSessionID = 0 or
viSessionID = ?
then do:
<I-43 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "Session"}>
end.
else do:
<I-569 {bFcOpenInstance
&CLASS = "Session"}>
end.
<M-7 run GetIntegerValue
(input 'SharedSetForDebtor' (icName),
output viSharedSetID (oiValue),
output oiReturnStatus (oiReturnStatus)) in Session>
if viSharedSetID > 0 then do:
<Q-46 run CompanyBySharedSet (all) (Read) (NoCache)
(input ?, (CompanyId)
input viSharedSetID, (SharedSetId)
output dataset tqCompanyBySharedSet) in BCompany >
assign vcCompanyList = "":U.
for each tqCompanyBySharedSet:
vcCompanyList = vcCompanyList + tqCompanyBySharedSet.tcCompanyCode + chr(2) + tqCompanyBySharedSet.tcCompanyCode + chr(2).
end.
assign vcCompanyList = trim(vcCompanyList,chr(2)).
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-102'Entity':30(57149)T-102#)
tBusinessFields.tcFcDescription = trim(#T-103'Entity':100(57150)T-103#)
tBusinessFields.tcFcFieldName = "Company_CANDO":U
tBusinessFields.tcValidationMask = "IsEntityCode"
tBusinessFields.tcValueList = vcCompanyList
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
<I-822 {bFcCloseInstance
&CLASS = "Session"}>
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-95'Header Entity':100(57151)T-95#)
tBusinessFields.tcFcDescription = trim(#T-96'Header Entity':100(57151)T-96#)
tBusinessFields.tcValueList = vcCompanyCode
tBusinessFields.tcFcFieldName = "EntityFilter":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcValidationMask = "IsEntityCode"
tBusinessFields.tcLookupQuery = "BCompanySAO.SelectCompany":U
tBusinessFields.tcLookupReturnField = "tqSelectCompany.tcCompanyCode":U
tBusinessFields.tcLookupFilterField = "tCompany.CompanyCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-27'Invoice Status Code':25(63651)T-27#)
tBusinessFields.tcFcDescription = trim(#T-28'Invoice Status Code':100(57152)T-28#)
tBusinessFields.tcFcFieldName = "InvoiceReasonCode_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BReasonSAO.SelectReason":U
tBusinessFields.tcLookupReturnField = "tqSelectReason.tcReasonCode":U
tBusinessFields.tcLookupFilterField = "tReason.ReasonCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-29'Update Counters':30(1713)t-29#)
tBusinessFields.tcFcDescription = trim(#T-30'Update Counters':100(1714)t-30#)
tBusinessFields.tcFcFieldName = "UpdateCounters":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-31'Active Customers':30(1715)T-31#)
tBusinessFields.tcFcDescription = trim(#T-32'Active Customers':100(1716)T-32#)
tBusinessFields.tcFcFieldName = "ActiveDebtors":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorList,DebtorMasterCard":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-33'Active':30(1489)t-33#)
tBusinessFields.tcFcDescription = trim(#T-34'Active':100(1490)t-34#)
tBusinessFields.tcFcFieldName = "ActiveCreditor":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-35'Print Statement':30(1717)t-35#)
tBusinessFields.tcFcDescription = trim(#T-36'Print Statement':100(1718)t-36#)
tBusinessFields.tcFcFieldName = "Print Statement":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-37'Print Reminder':30(1719)t-37#)
tBusinessFields.tcFcDescription = trim(#T-38'Print Reminder':100(1720)t-38#)
tBusinessFields.tcFcFieldName = "PrintReminder":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-48'Business Relation Name':30(1722)t-48#)
tBusinessFields.tcFcDescription = trim(#T-49'Business Relation Name':100(1505)T-49#)
tBusinessFields.tcFcFieldName = "BusinessRelationName_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBusinessRelationSAO.SelectBusinessRelation":U
tBusinessFields.tcLookupReturnField = "tqSelectBusinessRelation.tcBusinessRelationName1":U
tBusinessFields.tcLookupFilterField = "tBusinessRelation.BusinessRelationName1":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-50'Address Street':30(1506)t-50#)
tBusinessFields.tcFcDescription = trim(#T-51'Address Street':100(1507)t-51#)
tBusinessFields.tcFcFieldName = "AddressStreet1_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBusinessRelationSAO.SelectAddress":U
tBusinessFields.tcLookupReturnField = "tqSelectAddress.tcAddressStreet1":U
tBusinessFields.tcLookupFilterField = "tAddress.AddressStreet1":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-52'Address City':30(1508)t-52#)
tBusinessFields.tcFcDescription = trim(#T-53'Address City':100(1509)t-53#)
tBusinessFields.tcFcFieldName = "AddressCity_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBusinessRelationSAO.SelectAddress":U
tBusinessFields.tcLookupReturnField = "tqSelectAddress.tcAddressCity":U
tBusinessFields.tcLookupFilterField = "tAddress.AddressCity":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-54'Control GL Profile (Invoice)':45(16292)T-54#)
tBusinessFields.tcFcDescription = trim(#T-55'Control GL Profile (Invoices)':100(1511)T-55#)
tBusinessFields.tcFcFieldName = "ProfileCodeInv_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BProfileSAO.SelectProfile":U
tBusinessFields.tcLookupReturnField = "tqSelectProfile.tcProfileCode":U
tBusinessFields.tcLookupFilterField = "tProfile.ProfileCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-56'Control GL Profile (Credit Note)':45(16293)T-56#)
tBusinessFields.tcFcDescription = trim(#T-57'Control GL Profile (Credit Notes)':100(1513)T-57#)
tBusinessFields.tcFcFieldName = "ProfileCodeCn_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BProfileSAO.SelectProfile":U
tBusinessFields.tcLookupReturnField = "tqSelectProfile.tcProfileCode":U
tBusinessFields.tcLookupFilterField = "tProfile.ProfileCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-58'Sub-Account Profile':30(1514)t-58#)
tBusinessFields.tcFcDescription = trim(#T-59'Sub-Account Profile':100(1515)T-59#)
tBusinessFields.tcFcFieldName = "ProfileCodeDiv_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BProfileSAO.SelectProfile":U
tBusinessFields.tcLookupReturnField = "tqSelectProfile.tcProfileCode":U
tBusinessFields.tcLookupFilterField = "tProfile.ProfileCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-60'Bank Account Profile':30(1516)T-60#)
tBusinessFields.tcFcDescription = trim(#T-61'Bank GL Profile':100(1517)T-61#)
tBusinessFields.tcFcFieldName = "ProfileCodeGL_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BProfileSAO.SelectProfile":U
tBusinessFields.tcLookupReturnField = "tqSelectProfile.tcProfileCode":U
tBusinessFields.tcLookupFilterField = "tProfile.ProfileCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-62'Invoice Status Code':255(56434)T-62#)
tBusinessFields.tcFcDescription = trim(#T-63'Invoice Status Code':255(56435)T-63#)
tBusinessFields.tcFcFieldName = "Reason_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BReasonSAO.SelectReason":U
tBusinessFields.tcLookupReturnField = "tqSelectReason.tcReasonCode":U
tBusinessFields.tcLookupFilterField = "tReason.ReasonCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-64'BLWI Group':30(1528)t-64#)
tBusinessFields.tcFcDescription = trim(#T-65'BLWI Group Code':100(1529)t-65#)
tBusinessFields.tcFcFieldName = "BLWIGroup_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBLWIGroupSAO.SelectBLWIGroup":U
tBusinessFields.tcLookupReturnField = "tqSelectBLWIGroup.tcPaymentBLWICode":U
tBusinessFields.tcLookupFilterField = "tBLWIGroup.BLWIGroupCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-105'Federal Tax Id':30(61763)T-105#
tBusinessFields.tcFcDescription = #T-106'Federal Tax Id':20(61764)T-106#
tBusinessFields.tcFcFieldName = "FederalTaxId":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(18)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-107'State Tax Id':30(61765)T-107#
tBusinessFields.tcFcDescription = #T-108'State Tax Id':20(61766)T-108#
tBusinessFields.tcFcFieldName = "StateTaxId":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(18)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorMasterCard,SalesOrder":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-66'Credit Terms':255(56517)T-66#)
tBusinessFields.tcFcDescription = trim(#T-67'Credit Terms':255(56517)T-67#)
tBusinessFields.tcFcFieldName = "PaymentConditionCodeNm_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPaymentConditionSAO.SelectPaymentCondition":U
tBusinessFields.tcLookupReturnField = "tqSelectPaymentCondition.tcPaymentConditionCode":U
tBusinessFields.tcLookupFilterField = "tPaymentCondition.PaymentConditionCode":U.
end.
if can-do("DebtorList":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-87'Credit Terms':255(56504)T-87#)
tBusinessFields.tcFcDescription = trim(#T-88'Credit Terms':255(56505)T-88#)
tBusinessFields.tcFcFieldName = "PaymentConditionCodeNm_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPaymentConditionSAO.SelectPaymentCondition":U
tBusinessFields.tcLookupReturnField = "tqSelectPaymentCondition.tcPaymentConditionCode":U
tBusinessFields.tcLookupFilterField = "tPaymentCondition.PaymentConditionCode":U.
end.
<M-86 run GetBusinessFields3 (input icReportName (icReportName),
output oiReturnStatus (oiReturnStatus)) in BDebtorReport>