project QadFinancials > class TReportSwitchMenu > method CreateRptList


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method TReportSwitchMenu.GetCurrRptMenuSettings


program code (program1/treportswitchmenu.p)

/* check if list exists */
viListCount = 0.
for each tRptList:
    viListCount = viListCount + 1.
end.

if viListCount > 0 then return.

/* init report count */
viRepCount = 108.

do with viTeller = 1 to viRepCount:
	if viTeller = 1 then assign vcUri[viTeller] = 'BGLReport.Transactions_GL'.
	if viTeller = 2 then assign vcUri[viTeller] = 'BGLReport.AuditLogReport'.
	if viTeller = 3 then assign vcUri[viTeller] = 'BGLReport.BalanceByCurrency'.
	if viTeller = 4 then assign vcUri[viTeller] = 'BGLReport.GLHistory'.
	if viTeller = 5 then assign vcUri[viTeller] = 'BGLReport.GLOpenItems'.
	if viTeller = 6 then assign vcUri[viTeller] = 'BGLReport.JournalEntryReport'.
	if viTeller = 7 then assign vcUri[viTeller] = 'BGLReport.Transactions_DIV'.
	if viTeller = 8 then assign vcUri[viTeller] = 'BGLReport.Transactions_IC'.
	if viTeller = 9 then assign vcUri[viTeller] = 'BGLReport.Transactions_JRNL'.
	if viTeller = 10 then assign vcUri[viTeller] = 'BGLReport.TrialBalance'.
	if viTeller = 11 then assign vcUri[viTeller] = 'BAnalyticalReport.CostCentreTransDet'.
	if viTeller = 12 then assign vcUri[viTeller] = 'BAnalyticalReport.ProjectTransDet'.
	if viTeller = 13 then assign vcUri[viTeller] = 'BAnalyticalReport.SafOnlyTransDet'.
	if viTeller = 14 then assign vcUri[viTeller] = 'BAnalyticalReport.CostCentreTransSumm'.
	if viTeller = 15 then assign vcUri[viTeller] = 'BAnalyticalReport.ProjectTransSumm'.
	if viTeller = 16 then assign vcUri[viTeller] = 'BAnalyticalReport.SafOnlyTransSumm'.
	if viTeller = 17 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAgeingAnalysisCurrent'.
	if viTeller = 18 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAgeingAnalysisBackwards'.
	if viTeller = 19 then assign vcUri[viTeller] = 'BCashBoxReport.CashBook'.
	if viTeller = 20 then assign vcUri[viTeller] = 'BBox1099Report.M1099MiscReport'.
	if viTeller = 21 then assign vcUri[viTeller] = 'BGLReport.CBReceiptJournal'.
	if viTeller = 22 then assign vcUri[viTeller] = 'BGLReport.CBPaymentJournal'.
	if viTeller = 23 then assign vcUri[viTeller] = 'BDebtorReport.DebtorReminders'.
	if viTeller = 24 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAccountState'.
	if viTeller = 25 then assign vcUri[viTeller] = 'BCreditorReport.CreditorAgeingAnalysisCurrent'.
	if viTeller = 26 then assign vcUri[viTeller] = 'BCreditorReport.CreditorAgeingABackwards'.
	if viTeller = 27 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAACGroup'.
	if viTeller = 28 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAABGroup'.
	if viTeller = 29 then assign vcUri[viTeller] = 'BCreditorReport.CreditorAACGroup'.
	if viTeller = 30 then assign vcUri[viTeller] = 'BCreditorReport.CreditorAABGroup'.
	if viTeller = 31 then assign vcUri[viTeller] = 'BCreditorReport.CInvoiceRegister'.
	if viTeller = 32 then assign vcUri[viTeller] = 'BVATReport.VATBoxReturnSum'.
	if viTeller = 33 then assign vcUri[viTeller] = 'BVATReport.VATBoxReturnTran'.
	if viTeller = 34 then assign vcUri[viTeller] = 'BVATReport.VATRegisterTran'.
	if viTeller = 35 then assign vcUri[viTeller] = 'BDCollectionReport.DCollectionReport'.
	if viTeller = 36 then assign vcUri[viTeller] = 'BCDocumentReport.CDocumentReportDraft'.
	if viTeller = 37 then assign vcUri[viTeller] = 'BCDocumentReport.CDocumentReportTransfer'.
	if viTeller = 38 then assign vcUri[viTeller] = 'BCDocumentReport.CDocumentReportPromisNote'.
	if viTeller = 39 then assign vcUri[viTeller] = 'BCDocumentReport.CDocumentReportAutoIncasso'.
	if viTeller = 40 then assign vcUri[viTeller] = 'BCDocumentReport.CDocumentReportSumStatement'.
	if viTeller = 41 then assign vcUri[viTeller] = 'BPaymentSelectionReport.Paylist'.
	if viTeller = 42 then assign vcUri[viTeller] = 'BPaymentSelectionReport.Remittance'.
	if viTeller = 43 then assign vcUri[viTeller] = 'BCCollectionReport.CCollectionReport'.
	if viTeller = 44 then assign vcUri[viTeller] = 'BGLReport.VATPayableLedger'.
	if viTeller = 45 then assign vcUri[viTeller] = 'BDebtorReport.DebtorOpenItems'.
	if viTeller = 46 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAccountMovements'.
	if viTeller = 47 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAccountsSummary'.
	if viTeller = 48 then assign vcUri[viTeller] = 'BDebtorReport.DebtorAccountsHistoryDet'.
	if viTeller = 49 then assign vcUri[viTeller] = 'BCreditorReport.CreditorOpenItems'.
	if viTeller = 50 then assign vcUri[viTeller] = 'BCreditorReport.CreditorOpenItemsDetail'.
	if viTeller = 51 then assign vcUri[viTeller] = 'BCreditorReport.CreditorAccountMovements'.
	if viTeller = 52 then assign vcUri[viTeller] = 'BCreditorReport.CreditorAccountsHistory'.
	if viTeller = 53 then assign vcUri[viTeller] = 'BCreditorReport.CreditorAccountsSummary'.
	if viTeller = 54 then assign vcUri[viTeller] = 'BVATReport.VATVersusDet'.
	if viTeller = 55 then assign vcUri[viTeller] = 'BVATReport.VATQuarterTran'.
	if viTeller = 56 then assign vcUri[viTeller] = 'BVATReport.VATQuarterDet'.
	if viTeller = 57 then assign vcUri[viTeller] = 'BVATReport.VATYearlyListingBE'.
	if viTeller = 58 then assign vcUri[viTeller] = 'BVATReport.ReverseCharge'.
	if viTeller = 59 then assign vcUri[viTeller] = 'BGLReport.GLTransactionsOperational'.
	if viTeller = 60 then assign vcUri[viTeller] = 'BGLReport.AccTransJournal'.
	if viTeller = 61 then assign vcUri[viTeller] = 'BGLReport.ForeignCurrJournal'.
	if viTeller = 62 then assign vcUri[viTeller] = 'BGLReport.GeneralGLJournal'.
	if viTeller = 63 then assign vcUri[viTeller] = 'BGLReport.CBGLReport'.
	if viTeller = 64 then assign vcUri[viTeller] = 'BGLReport.SubLedgeReport'.
	if viTeller = 65 then assign vcUri[viTeller] = 'BGLReport.AccBalanceTOT'.
	if viTeller = 66 then assign vcUri[viTeller] = 'BGLReport.ColumnarLedgers'.
	if viTeller = 67 then assign vcUri[viTeller] = 'BGLReport.GLReport'.
	if viTeller = 68 then assign vcUri[viTeller] = 'BRevaluationReport.Revaluation'.
	if viTeller = 69 then assign vcUri[viTeller] = 'BDebtorReport.DebtorRemindersOverview'.
	if viTeller = 70 then assign vcUri[viTeller] = 'BDebtorReport.DebtorMasterCard'.
	if viTeller = 71 then assign vcUri[viTeller] = 'BDebtorReport.DebtorList'.
	if viTeller = 72 then assign vcUri[viTeller] = 'BDebtorReport.DebtorOpenItemsQuick'.
	if viTeller = 73 then assign vcUri[viTeller] = 'BDebtorReport.CustomerCreditOverview'.
	if viTeller = 74 then assign vcUri[viTeller] = 'BGLReport.GLList'.
	if viTeller = 75 then assign vcUri[viTeller] = 'BGLReport.GLMasterCard'.
	if viTeller = 76 then assign vcUri[viTeller] = 'BGLReport.ReversedReplacedGLReport'.
	if viTeller = 77 then assign vcUri[viTeller] = 'BGLReport.GLVerifandAppr'.
	if viTeller = 78 then assign vcUri[viTeller] = 'BGLReport.GLAccountSheet'.
	if viTeller = 79 then assign vcUri[viTeller] = 'BGLReport.MirrorAccountingTr'.
	if viTeller = 80 then assign vcUri[viTeller] = 'BAPMatchingReport.InvoiceMatching'.
	if viTeller = 81 then assign vcUri[viTeller] = 'BAPMatchingReport.MatchingVariance'.
	if viTeller = 82 then assign vcUri[viTeller] = 'BAPMatchingReport.MatchingVarianceForLC'.
	if viTeller = 83 then assign vcUri[viTeller] = 'BBudgetReporting.BudgetDetail'.
	if viTeller = 84 then assign vcUri[viTeller] = 'BDebtorReport.DebtorInvoicePrint'.
	if viTeller = 85 then assign vcUri[viTeller] = 'BGLReport.FSProForma'.
	if viTeller = 86 then assign vcUri[viTeller] = 'BDDocumentReport.DDocumentReportDraft'.
	if viTeller = 87 then assign vcUri[viTeller] = 'BDDocumentReport.DDocumentReportPromisNote'.
	if viTeller = 88 then assign vcUri[viTeller] = 'BDDocumentReport.DDocumentReportAutoIncasso'.
	if viTeller = 89 then assign vcUri[viTeller] = 'BDDocumentReport.DDocumentReportSumStatement'.
	if viTeller = 90 then assign vcUri[viTeller] = 'BClosingPostingsReport.VoucherCompleteness'.
	if viTeller = 91 then assign vcUri[viTeller] = 'BCLosingPostingsReport.HistoryPostingsCheck'.
	if viTeller = 92 then assign vcUri[viTeller] = 'BClosingPostingsReport.JournalEntryBalance'.
	if viTeller = 93 then assign vcUri[viTeller] = 'BClosingPostingsReport.DebtorControlGLBalance'.
	if viTeller = 94 then assign vcUri[viTeller] = 'BClosingPostingsReport.CreditorControlGLBalance'.
	if viTeller = 95 then assign vcUri[viTeller] = 'BClosingPostingsReport.AccUnmarkedTransactions'.
	if viTeller = 96 then assign vcUri[viTeller] = 'BClosingPostingsReport.CIRECBalance'.
	if viTeller = 97 then assign vcUri[viTeller] = 'BClosingPostingsReport.TransientLayers'.
	if viTeller = 98 then assign vcUri[viTeller] = 'BClosingPostingsReport.AllocationCheck'.
	if viTeller = 99 then assign vcUri[viTeller] = 'BClosingPostingsReport.RecurringEntries'.
	if viTeller = 100 then assign vcUri[viTeller] = 'BCreditorReport.CreditorMasterCard'.
	if viTeller = 101 then assign vcUri[viTeller] = 'BCreditorReport.CreditorList'.
	if viTeller = 102 then assign vcUri[viTeller] = 'BEmployeeReport.EmployeeMasterCard'.
	if viTeller = 103 then assign vcUri[viTeller] = 'BConCheckReport.ConCheckReport'.
	if viTeller = 104 then assign vcUri[viTeller] = 'BGLReport.BalanceSheetReport'.
	if viTeller = 105 then assign vcUri[viTeller] = 'BGLReport.IncomeStatement'.
	if viTeller = 106 then assign vcUri[viTeller] = 'BBudgetReporting.BudgetOverview'.
	if viTeller = 107 then assign vcUri[viTeller] = 'BGLReport.MultiColBalanceSheet'.
	if viTeller = 108 then assign vcUri[viTeller] = 'BGLReport.MultiColIncomeStatement'.	
end.

do with viTeller = 1 to viRepCount:
       create tRptList.
       assign tRptList.tiId   = viTeller
              tRptList.tcName = vcUri[viTeller].	
end.