Description
method for filtering reports
Parameters
| icReportname | input | character | ReportName |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bcreditorreport.p)
if can-do("CreditorOpenItemsDetail":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-1'Details':30(1483)T-1#)
tBusinessFields.tcFcDescription = trim(#T-2'Print Details':100(16153)T-2#)
tBusinessFields.tcFcFieldName = "PrintDetails":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-3'Invoice Date':30(3369)T-3#)
tBusinessFields.tcFcDescription = trim(#T-4'From-To Invoice Date':100(16154)t-4#)
tBusinessFields.tcFcFieldName = "InvoiceDate_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-5'Include Invoices':30(16155)T-5#)
tBusinessFields.tcFcDescription = trim(#T-6'Include Invoices':100(16156)T-6#)
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-7'Include Credit Notes':30(16157)T-7#)
tBusinessFields.tcFcDescription = trim(#T-8'Include Credit Notes':100(16158)T-8#)
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-9'Include Prepayments':30(16159)T-9#)
tBusinessFields.tcFcDescription = trim(#T-10'Include Prepayments':100(16160)T-10#)
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-11'Include Adjustments':30(16161)T-11#)
tBusinessFields.tcFcDescription = trim(#T-12'Include Adjustments':100(16162)T-12#)
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-13'Include Invoice Corrections':40(16163)T-13#)
tBusinessFields.tcFcDescription = trim(#T-14'Include Invoice Corrections':100(16164)T-14#)
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-15'Include Credit Note Corrections':40(16165)T-15#)
tBusinessFields.tcFcDescription = trim(#T-16'Include Credit Note Corrections':100(16166)T-16#)
tBusinessFields.tcFcFieldName = "IncludeCreditnoteCorrection":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-17'Due Invoices Only':30(16235)T-17#)
tBusinessFields.tcFcDescription = trim(#T-18'Due Invoices Only':100(16236)T-18#)
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("CreditorOpenItems,CreditorOpenItemsDetail":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-27'Include Initial':30(69052)T-27#)
tBusinessFields.tcFcDescription = trim(#T-28'Include Initial':30(69052)T-28#)
tBusinessFields.tcFcFieldName = "IncludeInitial":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CreditorAgeingAnalysisCurrent,CreditorAACGroup,CreditorAgeingABackwards,CreditorAABGroup":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-25'Check For Unposted Transactions':255(65431)T-25#
tBusinessFields.tcFcDescription = #T-26'Check For Unposted Transactions':255(65431)T-26#
tBusinessFields.tcFcFieldName = "UnpostTrans":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CInvoiceRegister":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-31'Posting Date':20(250)T-31#
tBusinessFields.tcFcDescription = #T-67'Posting Date':100(251)T-67#
tBusinessFields.tcFcFieldName = "PostingDate_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-98'Supplier Type':30(45483)T-98#)
tBusinessFields.tcFcDescription = trim(#T-36'Supplier Type':30(45483)T-36#)
tBusinessFields.tcFcFieldName = "CreditorType_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BCreditorTypeSAO.SelectCreditorType":U
tBusinessFields.tcLookupReturnField = "tqSelectCreditorType.tcCreditorTypeCode":U
tBusinessFields.tcLookupFilterField = "tCreditorType.CreditorTypeCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-33'Purchase Type':20(53242)T-33#)
tBusinessFields.tcFcDescription = trim(#T-43'Purchase Type':20(53242)T-43#)
tBusinessFields.tcFcFieldName = "PurchaseType_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPurchaseTypeSAO.SelectPurchaseType":U
tBusinessFields.tcLookupReturnField = "tqSelectPurchaseType.tcPurchaseTypeCode":U
tBusinessFields.tcLookupFilterField = "tPurchaseType.PurchaseTypeCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-53'Open Only':255(765862241)T-53#
tBusinessFields.tcFcDescription = #T-50'Open Only':255(765862241)T-50#
tBusinessFields.tcFcFieldName = "OpenOnly":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-29'Include Initial':30(69052)T-29#)
tBusinessFields.tcFcDescription = trim(#T-63'Include Initial':30(69052)T-63#)
tBusinessFields.tcFcFieldName = "IncludeInitials":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-94'Sort By':20(59810)T-94#)
tBusinessFields.tcFcDescription = trim(#T-42'Sort By':20(59810)T-42#)
tBusinessFields.tcValueList = trim(#T-69'Supplier Code':255(996620981)T-69#) + chr(2) + "1":U + chr(2) +
trim(#T-75'Chronological':40(4509)T-75#) + chr(2) + "2":U
tBusinessFields.tcFcFieldName = "SortBy":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-805'Invoice Detail':40(810667612)T-805#)
tBusinessFields.tcFcDescription = trim(#T-87'Invoice Detail':40(810667612)T-87#)
tBusinessFields.tcValueList = trim(#T-88'Summary':100(17038)T-88#) + chr(2) + "1":U + chr(2) +
trim(#T-82'Detail':40(379234601)T-82#) + chr(2) + "2":U
tBusinessFields.tcFcFieldName = "InvDetail":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-54'Receipt Data':255(143597221)T-54#
tBusinessFields.tcFcDescription = #T-55'Receipt Data':255(143597221)T-55#
tBusinessFields.tcFcFieldName = "ReceiptData":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-34'GL Summary':255(885945063)T-34#)
tBusinessFields.tcFcDescription = trim(#T-80'GL Summary':255(885945063)T-80#)
tBusinessFields.tcValueList = trim(#T-66'Yes':100(80945196)T-66#) + chr(2) + "YES":U + chr(2) +
trim(#T-85'No':4(16038)T-85#) + chr(2) + "NO":U + chr(2) +
trim(#T-89'Only':40(299244890)T-89#) + chr(2) + "ONLY":U
tBusinessFields.tcFcFieldName = "GLSummary":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-635'Currency':20(220)T-635#)
tBusinessFields.tcFcDescription = trim(#T-35'Currency':20(220)T-35#)
tBusinessFields.tcFcFieldName = "CurrencyCode":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.
end.
if can-do("CreditorWithholdingTax":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-22'Supplier Code':30(1553)T-22#)
tBusinessFields.tcFcDescription = trim(#T-86'From - To Supplier Code':100(1554)T-86#)
tBusinessFields.tcFcFieldName = "CreditorCode_RANGE":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BCreditorSAO.SelectCreditor":U
tBusinessFields.tcLookupReturnField = "tqSelectCreditor.tcCreditorCode":U
tBusinessFields.tcLookupFilterField = "tCreditor.CreditorCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-44'Daybook Code':30(1025)T-44#)
tBusinessFields.tcFcDescription = trim(#T-780'From-To Daybook Code':100(1570)T-780#)
tBusinessFields.tcFcFieldName = "JournalCode_RANGE":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.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-46'Voucher':30(1866)T-46#)
tBusinessFields.tcFcDescription = trim(#T-76' From-To Voucher':30(809835580)T-76#)
tBusinessFields.tcFcFieldName = "Voucher_RANGE":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = ">999999999":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BCInvoiceSAO.SelectCInvoice":U
tBusinessFields.tcLookupReturnField = "tqSelectCInvoice.tiCInvoiceVoucher":U
tBusinessFields.tcLookupFilterField = "tCInvoice.CInvoiceVoucher":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-81'Year':20(935)T-81#)
tBusinessFields.tcFcDescription = trim(#T-52'Year':20(935)T-52#)
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-70'Month':20(654)T-70#)
tBusinessFields.tcFcDescription = trim(#T-37'Month':20(654)T-37#)
tBusinessFields.tcFcFieldName = "FromAccPeriod":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = "99":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-68'Include Expected Tax Amount':40(36066347)T-68#
tBusinessFields.tcFcDescription = #T-79'Include Expected Tax Amount':40(36066347)T-79#
tBusinessFields.tcFcFieldName = "InlucdeExpectedTaxAmt":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-77'Print Supplier Address':40(36577589)T-77#
tBusinessFields.tcFcDescription = #T-90'Print Supplier Address':40(36577589)T-90#
tBusinessFields.tcFcFieldName = "PrintCreditorAddress":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-64'Threshold':20(123792951)T-64#
tBusinessFields.tcFcDescription = #T-83'Threshold':20(123792951)T-83#
tBusinessFields.tcFcFieldName = "Threshold":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = "999999":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CreditorWHTCertificate":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-74'Supplier Code':30(1553)T-74#)
tBusinessFields.tcFcDescription = trim(#T-92'From - To Supplier Code':100(1554)T-92#)
tBusinessFields.tcFcFieldName = "CreditorCode_RANGE":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BCreditorSAO.SelectCreditor":U
tBusinessFields.tcLookupReturnField = "tqSelectCreditor.tcCreditorCode":U
tBusinessFields.tcLookupFilterField = "tCreditor.CreditorCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-30'Year':20(935)T-30#)
tBusinessFields.tcFcDescription = trim(#T-93'Year':20(935)T-93#)
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 = #T-32'New Page For Each Supplier':255(308079914)T-32#
tBusinessFields.tcFcDescription = #T-39'New Page For Each Supplier':255(308079914)T-39#
tBusinessFields.tcFcFieldName = "NewPageForEachSupp":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-65'WHT Number':15(147754968)T-65#
tBusinessFields.tcFcDescription = #T-51'From - To WHT Number':255(117709358)T-51#
tBusinessFields.tcFcFieldName = "WHTNumber_RANGE":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = ">>9":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-594'Reprint Certificate':255(399639718)T-594#
tBusinessFields.tcFcDescription = #T-24'Reprint Certificate':255(399639718)T-24#
tBusinessFields.tcFcFieldName = "ReprintCertificate":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-60'WHT Certificate By Payment':255(565297001)T-60#
tBusinessFields.tcFcDescription = #T-332'WHT Certificate By Payment':255(565297001)T-332#
tBusinessFields.tcFcFieldName = "WHTCertificateByPay":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-61'Certificate Format':40(67540850)T-61#
tBusinessFields.tcFcDescription = #T-58'Certificate Format':40(67540850)T-58#
tBusinessFields.tcFcFieldName = "CertificateFormat":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-84'Payment Number':15(68598)T-84#
tBusinessFields.tcFcDescription = #T-49'Payment Number':15(68598)T-49#
tBusinessFields.tcFcFieldName = "PaymentNumber_RANGE":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = ">>9":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BCDocumentSAO.SelectCDocument":U
tBusinessFields.tcLookupReturnField = "tqSelectCDocument.tiCDocumentNumber":U
tBusinessFields.tcLookupFilterField = "tCDocument.CDocumentNumber":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-728'Payment Selection Code':40(3034)T-728#
tBusinessFields.tcFcDescription = #T-21'Payment Selection Code':40(3034)T-21#
tBusinessFields.tcFcFieldName = "PaySelCode":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPaymentSelectionSAO.SelectPaySel":U
tBusinessFields.tcLookupReturnField = "tqSelectPaySel.tcPaySelCode":U
tBusinessFields.tcLookupFilterField = "tPaySel.PaySelCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-72'Creation Date':20(872)T-72#
tBusinessFields.tcFcDescription = #T-97'Creation Date':20(872)T-97#
tBusinessFields.tcFcFieldName = "CreationDate_RANGE":U
tBusinessFields.tcDataType = "t":U
tBusinessFields.tcControlType = "DateTime":U
tBusinessFields.tcDisplayFormat = "99/99/9999":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CreditorWithholdingTaxDue":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-56'Supplier Code':30(1553)T-56#
tBusinessFields.tcFcDescription = trim(#T-71'Supplier Code':30(1553)T-71#)
tBusinessFields.tcFcFieldName = "CreditorCode_RANGE":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BCreditorSAO.SelectCreditor":U
tBusinessFields.tcLookupReturnField = "tqSelectCreditor.tcCreditorCode":U
tBusinessFields.tcLookupFilterField = "tCreditor.CreditorCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-297'Year':20(950043701)T-297#
tBusinessFields.tcFcDescription = #T-45'Year':20(604925538)T-45#
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 = #T-41'Month':20(654)T-41#
tBusinessFields.tcFcDescription = #T-91'Month':20(654)T-91#
tBusinessFields.tcFcFieldName = "AccMonth":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = "99":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-47'WHT Report By Payment':30(997984749)T-47#
tBusinessFields.tcFcDescription = #T-38'WHT Report By Payment':30(997984749)T-38#
tBusinessFields.tcFcFieldName = "WHTByPayment":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-59'WHT Number':15(147754968)T-59#
tBusinessFields.tcFcDescription = #T-62'WHT Number':15(147754968)T-62#
tBusinessFields.tcFcFieldName = "WHTNumber_RANGE":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = "999999999":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-439'Payment Selection Code':40(3034)T-439#
tBusinessFields.tcFcDescription = #T-48'Payment Selection Code':40(3034)T-48#
tBusinessFields.tcFcFieldName = "PaySelCode":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPaymentSelectionSAO.SelectPaySel":U
tBusinessFields.tcLookupReturnField = "tqSelectPaySel.tcPaySelCode":U
tBusinessFields.tcLookupFilterField = "tPaySel.PaySelCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-78'Payment Number':15(68598)T-78#
tBusinessFields.tcFcDescription = #T-771'Payment Number':15(68598)T-771#
tBusinessFields.tcFcFieldName = "PaymentNumber_RANGE":U
tBusinessFields.tcDataType = "i":U
tBusinessFields.tcControlType = "NumericInt":U
tBusinessFields.tcDisplayFormat = "999999999":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-802'Certificate Format':40(67540850)T-802#
tBusinessFields.tcFcDescription = #T-968'Certificate Format':40(67540850)T-968#
tBusinessFields.tcFcFieldName = "CertificateFormat":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BWHTCertFormatSAO.SelectWHTCertFormat":U
tBusinessFields.tcLookupReturnField = "tqSelectWHTCertFormat.tcWHTCertFormatCode":U
tBusinessFields.tcLookupFilterField = "tWHTCertFormat.WHTCertFormatCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-751'Summary/Detail':25(778534537)T-751#
tBusinessFields.tcFcDescription = #T-424'Summary/Detail':25(778534537)T-424#
tBusinessFields.tcFcFieldName = "ShowDetail":U
tBusinessFields.tcValueList = trim(#T-342'Detail':40(379234601)T-342#) + chr(2) + "1":U + chr(2) +
trim(#T-736'Summary':100(17038)T-736#) + chr(2) + "2":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-23'Description':15(32238)T-23#
tBusinessFields.tcFcDescription = #T-427'Description':15(32238)T-427#
tBusinessFields.tcFcFieldName = "WHTDescription":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(4)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CreditorAgeingAnalysisCurrent,CreditorAACGroup,CreditorAgeingABackwards,CreditorAABGroup":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-339'Payment Group':30(1526)T-339#)
tBusinessFields.tcFcDescription = trim(#T-73'From - To Payment Group':255(126717797)T-73#)
tBusinessFields.tcFcFieldName = "PaymentGroup_RANGE":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.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-616'Payment Groups':255(118884081)T-616#)
tBusinessFields.tcFcDescription = trim(#T-356'Payment Groups':255(118884081)T-356#)
tBusinessFields.tcFcFieldName = "PaymentGroup1_CANDO":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.