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("SalesOrder":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-37'Sales Order Number':30(1723)T-37#)
tBusinessFields.tcFcDescription = trim(#T-38'Sales Order Number':30(1723)T-38#)
tBusinessFields.tcFcFieldName = "SONumber":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BSOSAO.SelectSO":U
tBusinessFields.tcLookupReturnField = "tqSelectSO.tcSONumber":U
tBusinessFields.tcLookupFilterField = "tSO.SONumber":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-39'Sales Order Number':30(1723)T-39#)
tBusinessFields.tcFcDescription = trim(#T-40'From-To Sales Order Number':100(1725)T-40#)
tBusinessFields.tcFcFieldName = "SONumber_RANGE":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BSOSAO.SelectSO":U
tBusinessFields.tcLookupReturnField = "tqSelectSO.tcSONumber":U
tBusinessFields.tcLookupFilterField = "tSO.SONumber":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-41'SO Planned Start Date':30(17691)T-41#)
tBusinessFields.tcFcDescription = trim(#T-42'Planned Start Date':100(1727)T-42#)
tBusinessFields.tcFcFieldName = "PlannedStartDate_RANGE":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-43'SO Planned End Date':30(17692)T-43#)
tBusinessFields.tcFcDescription = trim(#T-44'Planned End Date':100(1729)T-44#)
tBusinessFields.tcFcFieldName = "PlannedEndDate_RANGE":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-45'SO Status':30(57154)T-45#)
tBusinessFields.tcFcDescription = trim(#T-46'Sales Order Status':100(1731)T-46#)
tBusinessFields.tcFcFieldName = "SOStatus_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BSOStatusSAO.SelectSOStatus":U
tBusinessFields.tcLookupReturnField = "tqSelectSOStatus.tcSOStatusCode":U
tBusinessFields.tcLookupFilterField = "tSOStatus.SOStatusCode":U.
end.
if can-do("DebtorAgeingAnalysisCurrent,DebtorAACGroup,DebtorAgeingAnalysisBackwards,DebtorAABGroup,DebtorBillingAAB,DebtorAgingHistAcroDomain":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-119'Sort By':20(59810)T-119#)
tBusinessFields.tcFcDescription = trim(#T-120'Sort By':20(59810)T-120#)
tBusinessFields.tcFcFieldName = "SortBy":U
tBusinessFields.tcValueList = trim(#T-121'Customer Name':40(57525)T-121#) + chr(2) + "1":U + chr(2) +
trim(#T-122'Customer Code':30(1737)T-122#) + chr(2) + "2":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorAccountsSummary,DebtorAccountsHistory,DebtorAccountsHistoryDet,DebtorAccountMovements":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-33'Check if Balances Are Up to Date':60(65164)T-33#
tBusinessFields.tcFcDescription = #T-34'Check if Balances Are Up to Date':60(65164)T-34#
tBusinessFields.tcFcFieldName = "CheckHistory":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorAccountsSummary,DebtorAccountMovements":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-1'Summary By':30(15436)T-1#)
tBusinessFields.tcColumnLabel = trim(#T-2'Summary By':20(15437)T-2#)
tBusinessFields.tcFcDescription = trim(#T-3'Summary By':100(15438)T-3#)
tBusinessFields.tcValueList = trim(#T-451'None':20(236)T-451#) + chr(2) + "NONE":U + chr(2) +
trim(#T-5'Currency':40(3957)T-5#) + chr(2) + "CURRENCY":U + chr(2) +
trim(#T-7'GL':40(4286)T-7#) + chr(2) + "GL":U + chr(2) +
trim(#T-8'Daybook':40(4294)T-8#) + chr(2) + "JOURNAL":U + chr(2)
tBusinessFields.tcFcFieldName = "SummaryBy":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
/* Cross company */
if can-do("DebtorAgeingAnalysisCurrent,DebtorAgeingAnalysisBackwards,DebtorAACGroup,DebtorAABGroup,DebtorBillingAAB":U, icReportName)
then do:
assign vcCompanyList = "":U.
<Q-103 run CompanyByDomainActive (all) (Read) (NoCache)
(input ?, (CompanyId)
input viDomainID, (DomainId)
input true, (CompanyIsActive)
output dataset tqCompanyByDomainActive) in BCompany >
for each tqCompanyByDomainActive where
tqCompanyByDomainActive.tiDomain_ID = viDomainID and
tqCompanyByDomainActive.tlCompanyIsActive = true:
if vcCompanyList <> "":U
then assign vcCompanyList = vcCompanyList + chr(2).
assign vcCompanyList = vcCompanyList + tqCompanyByDomainActive.tcCompanyCode + chr(2) + tqCompanyByDomainActive.tcCompanyCode.
end.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-10'Entity':30(4232)T-10#)
tBusinessFields.tcFcDescription = trim(#T-11'Entity':100(15456)T-11#)
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.
/* Debtor Aging History Accross Domain */
if can-do("DebtorAgingHistAcroDomain":U, icReportName)
then do:
if viSessionID = 0 or
viSessionID = ?
then do:
<I-922 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "Session"}>
end.
else do:
<I-78 {bFcOpenInstance
&CLASS = "Session"}>
end.
<M-16 run GetIntegerValue
(input 'SharedSetForDebtor' (icName),
output viSharedSetID (oiValue),
output oiReturnStatus (oiReturnStatus)) in Session>
if viSharedSetID > 0 then do:
<Q-318 run CompanyBySharedSetUsrRole (all) (Read) (NoCache)
(input ?, (CompanyId)
input viSharedSetID, (ShareSetId)
input vcUserLogin, (UserCode)
output dataset tqCompanyBySharedSetUsrRole) in BCompany>
assign vcCompanyList = "":U.
for each tqCompanyBySharedSetUsrRole:
vcCompanyList = vcCompanyList + tqCompanyBySharedSetUsrRole.tcCompanyCode + chr(2) + tqCompanyBySharedSetUsrRole.tcCompanyCode + chr(2).
end.
assign vcCompanyList = trim(vcCompanyList,chr(2)).
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-273'Entity':30(57149)T-273#)
tBusinessFields.tcFcDescription = trim(#T-6'Entity':100(57150)T-6#)
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-72 {bFcCloseInstance
&CLASS = "Session"}>
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-30'Type for Aging Calculate':255(480560461)T-30#)
tBusinessFields.tcFcDescription = trim(#T-71'Type for Aging Calculate':255(480560461)T-71#)
tBusinessFields.tcFcFieldName = "TypeForAging":U
tBusinessFields.tcValueList = {&DEBTORAGINGDATETYPES}
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorOpenItems,DebtorInvoicePrint":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-85'Invoice Date':30(3369)T-85#)
tBusinessFields.tcFcDescription = trim(#T-86'From-To Invoice Date':100(61051)T-86#)
tBusinessFields.tcFcFieldName = "InvoiceDate_RANGE":U
tBusinessFields.tcDataType = "t":U
tBusinessFields.tcControlType = "DateTime":U
tBusinessFields.tcDisplayFormat = "99/99/9999":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorOpenItems":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-13'Details':30(1483)T-13#)
tBusinessFields.tcFcDescription = trim(#T-14'Print Details':100(16153)T-14#)
tBusinessFields.tcFcFieldName = "PrintDetails":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-17'Include Invoices':30(16155)T-17#)
tBusinessFields.tcFcDescription = trim(#T-18'Include Invoices':100(16156)T-18#)
tBusinessFields.tcFcFieldName = "IncludeInvoices":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-19'Include Credit Notes':30(16157)T-19#)
tBusinessFields.tcFcDescription = trim(#T-20'Include Credit Notes':100(16158)T-20#)
tBusinessFields.tcFcFieldName = "IncludeCreditNotes":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-21'Include Prepayments':30(16159)T-21#)
tBusinessFields.tcFcDescription = trim(#T-22'Include Prepayments':100(16160)T-22#)
tBusinessFields.tcFcFieldName = "IncludePrePayments":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-23'Include Adjustments':30(16161)T-23#)
tBusinessFields.tcFcDescription = trim(#T-24'Include Adjustments':100(16162)T-24#)
tBusinessFields.tcFcFieldName = "IncludeAdjustments":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-25'Include Invoice Corrections':40(16163)T-25#)
tBusinessFields.tcFcDescription = trim(#T-26'Include Invoice Corrections':100(16164)T-26#)
tBusinessFields.tcFcFieldName = "IncludeInvoiceCorrection":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-27'Include Credit Note Corrections':40(16165)T-27#)
tBusinessFields.tcFcDescription = trim(#T-28'Include Credit Note Corrections':100(16166)T-28#)
tBusinessFields.tcFcFieldName = "IncludeCreditnoteCorrection":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
assign tBusinessFields.tcSideLabel = trim(#T-409'Include Deductions':30(846468741)T-409#)
tBusinessFields.tcFcDescription = trim(#T-4'Include Deductions':30(846468741)T-4#)
tBusinessFields.tcFcFieldName = "IncludeDeductions":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'Due Invoices Only':30(16235)T-31#)
tBusinessFields.tcFcDescription = trim(#T-32'Due Invoices Only':100(16236)T-32#)
tBusinessFields.tcFcFieldName = "DueInvoicesOnly":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorAccountState":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-47'Statement Date':30(57326)T-47#)
tBusinessFields.tcFcDescription = trim(#T-48'Statement Date':100(57327)T-48#)
tBusinessFields.tcFcFieldName = "StatementDate":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-97'Statement Cycle':30(63682)T-97#)
tBusinessFields.tcFcDescription = trim(#T-98'Statement Cycle':30(63682)T-98#)
tBusinessFields.tcFcFieldName = "StatementCycle_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BDebtorSAO.DebtorForSC":U
tBusinessFields.tcLookupReturnField = "tqDebtorForSC.tcDebtorStatementCycle":U
tBusinessFields.tcLookupFilterField = "tDebtorForSC.tcDebtorStatementCycle":U.
end.
if can-do("DebtorRemindersOverview":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-67'Due Date Before':30(59547)T-67#)
tBusinessFields.tcFcDescription = trim(#T-68'Due Date Before':100(59548)T-68#)
tBusinessFields.tcFcFieldName = "DueDateBefore":U
tBusinessFields.tcDataType = "t":U
tBusinessFields.tcControlType = "DateTime":U
tBusinessFields.tcDisplayFormat = "99/99/9999":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorAccountState,DebtorRemindersOverview":U, icReportName)
then do:
if viSessionID = 0 or
viSessionID = ?
then do:
<I-758 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "Session"}>
end.
else do:
<I-669 {bFcOpenInstance
&CLASS = "Session"}>
end.
<M-74 run GetIntegerValue
(input 'SharedSetForDebtor' (icName),
output viSharedSetID (oiValue),
output oiReturnStatus (oiReturnStatus)) in Session>
if viSharedSetID > 0 then do:
<Q-960 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-50'Entity':30(57149)T-50#)
tBusinessFields.tcFcDescription = trim(#T-51'Entity':100(57150)T-51#)
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.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-52'Header Entity':100(57151)T-52#)
tBusinessFields.tcFcDescription = trim(#T-53'Header Entity':100(57151)T-53#)
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.
end.
<I-49 {bFcCloseInstance
&CLASS = "Session"}>
end.
/* Customer Credit Overview */
if can-do("CustomerCreditOverview":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-54'Customer Code':30(57458)T-54#)
tBusinessFields.tcFcDescription = trim(#T-55'From-To Customer Code':100(1738)T-55#)
tBusinessFields.tcFcFieldName = "DebtorCode_RANGE":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BDebtorSAO.SelectDebtor":U
tBusinessFields.tcLookupReturnField = "tqSelectDebtor.tcDebtorCode":U
tBusinessFields.tcLookupFilterField = "tDebtor.DebtorCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-61'Customer Type':30(57464)T-61#)
tBusinessFields.tcFcDescription = trim(#T-62'Customer Type':100(57462)T-62#)
tBusinessFields.tcFcFieldName = "DebtorType_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BDebtorTypeSAO.SelectDebtorType":U
tBusinessFields.tcLookupReturnField = "tqSelectDebtorType.tcDebtorTypeCode":U
tBusinessFields.tcLookupFilterField = "tDebtorType.DebtorTypeCode":U.
<Q-56 run CompanyPrim (all) (Read) (NoCache)
(input ?, (LookupCompanyId)
input ?, (CompanyCode)
output dataset tqCompanyPrim) in BCompany >
assign vcCompanyList = "":U.
for each tqCompanyPrim:
vcCompanyList = vcCompanyList + tqCompanyPrim.tcCompanyCode + chr(2) + tqCompanyPrim.tcCompanyCode + chr(2).
end.
assign vcCompanyList = trim(vcCompanyList,chr(2)).
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-57'Entity':30(57149)T-57#)
tBusinessFields.tcFcDescription = trim(#T-58'Entity':100(57150)T-58#)
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.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-59'Over Credit Limit Only':30(57459)T-59#)
tBusinessFields.tcFcDescription = trim(#T-60'Over Credit Limit Only':100(57460)T-60#)
tBusinessFields.tcFcFieldName = "OverCreditLimitOnly":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-63'Report Currency':30(57522)T-63#)
tBusinessFields.tcFcDescription = trim(#T-64'Report Currency':100(57523)T-64#)
tBusinessFields.tcFcFieldName = "ReportCurrency":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BCurrencySAO.SelectCurrency":U
tBusinessFields.tcLookupReturnField = "tqSelectCurrency.tcCurrencyCode":U
tBusinessFields.tcLookupFilterField = "tCurrency.CurrencyCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-65'Suppress zero amounts':30(57467)T-65#)
tBusinessFields.tcFcDescription = trim(#T-66'Suppress zero amounts':100(57468)T-66#)
tBusinessFields.tcFcFieldName = "SuppressZeroAmounts":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end. /* end of Customer Credit Overview */
if can-do("DebtorInvoicePrint":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-87'Invoice Due Date':255(61366)T-87#)
tBusinessFields.tcFcDescription = trim(#T-88'From-To Invoice Due Date':255(61367)T-88#)
tBusinessFields.tcFcFieldName = "InvoiceDueDate_RANGE":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-89'Invoice Type':255(61016)T-89#)
tBusinessFields.tcFcDescription = trim(#T-90'Invoice Type':255(61016)T-90#)
tBusinessFields.tcValueList = {&INVOICETYPES}
tBusinessFields.tcFcFieldName = "InvoiceType":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-75'Year':255(60916)T-75#)
tBusinessFields.tcFcDescription = trim(#T-76'Year':255(60916)T-76#)
tBusinessFields.tcFcFieldName = "AccYear":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = "9999":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-91'Voucher':255(62342)T-91#)
tBusinessFields.tcFcDescription = trim(#T-92'From-To Voucher':255(62343)T-92#)
tBusinessFields.tcFcFieldName = "DInvoiceVoucher_RANGE":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = "99999999":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-93'Invoice Open':255(62347)T-93#)
tBusinessFields.tcFcDescription = trim(#T-94'Invoice Open':255(62347)T-94#)
tBusinessFields.tcFcFieldName = "InvoiceOpen":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorOpenItemsQuick,DebtorOpenItems":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-101'Daybook Codes':30(1571)T-101#)
tBusinessFields.tcFcDescription = trim(#T-102'Daybook Codes':100(1572)T-102#)
tBusinessFields.tcFcFieldName = "JournalCode_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BJournalSAO.SelectJournal":U
tBusinessFields.tcLookupReturnField = "tqSelectJournal.tcJournalCode":U
tBusinessFields.tcLookupFilterField = "tJournal.JournalCode":U.
end.
if can-do("DebtorInvoicePrint":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-116'Entity':255(56602)T-116#)
tBusinessFields.tcFcDescription = trim(#T-117'Entity':255(56602)T-117#)
tBusinessFields.tcFcFieldName = "EntityFilter1":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-104'Bill-To Customer':255(65281)T-104#)
tBusinessFields.tcFcDescription = trim(#T-105'From - To Bill-To Customer':255(65282)T-105#)
tBusinessFields.tcFcFieldName = "BillToDebtorCode_RANGE":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BDebtorSAO.SelectDebtor":U
tBusinessFields.tcLookupReturnField = "tqSelectDebtor.tcBillToDebtorCode":U
tBusinessFields.tcLookupFilterField = "tDebtor.BillToDebtorCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-112'Ship-To Customer':255(65417)T-112#)
tBusinessFields.tcFcDescription = trim(#T-113'From - To Ship-To Customer':50(65419)T-113#)
tBusinessFields.tcFcFieldName = "ShipToDebtorCode_RANGE":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BDebtorShipToSAO.ApiShipToAndHOAddress":U
tBusinessFields.tcLookupReturnField = "tqApiShipToAndHOAddress.tcDebtorShipTocode":U
tBusinessFields.tcLookupFilterField = "tDebtorShipTo.DebtorShipToCode":U.
end.
if can-do("DebtorAgeingAnalysisCurrent":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-127'Add Comments':255(999890357)T-127#)
tBusinessFields.tcFcDescription = trim(#T-128'Add Comments':255(999890357)T-128#)
tBusinessFields.tcFcFieldName = "AddComments":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("DebtorAgeingAnalysisCurrent,DebtorAACGroup,DebtorAgeingAnalysisBackwards,DebtorAABGroup,DebtorBillingAAB,DebtorAgingHistAcroDomain":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-129'Customer Type':100(57462)T-129#)
tBusinessFields.tcFcDescription = trim(#T-130'Customer Type':100(57462)T-130#)
tBusinessFields.tcFcFieldName = "DebtorType_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BDebtorTypeSAO.SelectDebtorType":U
tBusinessFields.tcLookupReturnField = "tqSelectDebtorType.tcDebtorTypeCode":U
tBusinessFields.tcLookupFilterField = "tDebtorType.DebtorTypeCode":U.
end.
if can-do("DebtorAgeingAnalysisCurrent,DebtorAACGroup,DebtorAgeingAnalysisBackwards,DebtorAABGroup,DebtorBillingAAB,DebtorAgingHistAcroDomain":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-366'Salesperson':40(4720)T-366#)
tBusinessFields.tcFcDescription = trim(#T-260'Salesperson':40(4720)T-260#)
tBusinessFields.tcFcFieldName = "Salesperson":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BMfgSalesPersonSAO.SelectSalesPerson":U
tBusinessFields.tcLookupReturnField = "tqSelectSalesPerson.tcsp_addr":U
tBusinessFields.tcLookupFilterField = "tsp_mstr.sp_addr":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-96'Payment Group':30(1526)T-96#)
tBusinessFields.tcFcDescription = trim(#T-81'Payment Group':30(1526)T-81#)
tBusinessFields.tcFcFieldName = "PaymentGroup":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPaymentGroupSAO.SelectPaymentGroup":U
tBusinessFields.tcLookupReturnField = "tqSelectPaymentGroup.tcPaymentGroupCode":U
tBusinessFields.tcLookupFilterField = "tPaymentGroup.PaymentGroupCode":U.
end.
if can-do("DebtorBillingAAB":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-35'Other Open Items of Entity':255(367472073)T-35#)
tBusinessFields.tcFcDescription = trim(#T-405'Other Open Items of Entity':255(367472073)T-405#)
tBusinessFields.tcFcFieldName = "IncludeNonBillInv":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.