private void InitBatchAndJournal()
{
F_GLDataset = TGLPosting.CreateABatch(F_LedgerNum);
F_batch = F_GLDataset.ABatch[0];
F_batch.BatchDescription = Catalog.GetString("Period end revaluations");
TAccountPeriodInfo accountingPeriodInfo = new TAccountPeriodInfo(F_LedgerNum);
accountingPeriodInfo.AccountingPeriodNumber = F_batch.BatchPeriod;
F_batch.DateEffective = accountingPeriodInfo.PeriodEndDate;
F_batch.BatchStatus = MFinanceConstants.BATCH_UNPOSTED;
F_journal = F_GLDataset.AJournal.NewRowTyped();
F_journal.LedgerNumber = F_batch.LedgerNumber;
F_journal.BatchNumber = F_batch.BatchNumber;
F_journal.JournalNumber = 1;
F_journal.DateEffective = F_batch.DateEffective;
F_journal.JournalPeriod = F_batch.BatchPeriod;
F_journal.TransactionCurrency = F_BaseCurrency;
F_journal.JournalDescription = F_batch.BatchDescription;
F_journal.TransactionTypeCode = CommonAccountingTransactionTypesEnum.REVAL.ToString();
F_journal.SubSystemCode = CommonAccountingSubSystemsEnum.GL.ToString();
F_journal.LastTransactionNumber = 0;
F_journal.DateOfEntry = DateTime.Now;
F_journal.ExchangeRateToBase = 1.0M;
F_GLDataset.AJournal.Rows.Add(F_journal);
}
private void TCommonAccountingTool_(string ABatchDescription)
{
FBatchTDS = TGLPosting.CreateABatch(FLedgerInfo.LedgerNumber);
FBaseCurrencyInfo = new TCurrencyInfo(FLedgerInfo.BaseCurrency);
FBatchRow = FBatchTDS.ABatch[0];
FBatchRow.BatchDescription = ABatchDescription;
FBatchRow.BatchStatus = MFinanceConstants.BATCH_UNPOSTED;
FBatchNumber = FBatchRow.BatchNumber;
FJournalCount = 0;
blnReadyForTransaction = false;
blnInitBatchDate = true;
}
private void InitBatchAndJournal(decimal AExchangeRate, string ACurrencyCode)
{
F_GLDataset = TGLPosting.CreateABatch(F_LedgerNum, false, true);
F_batch = F_GLDataset.ABatch[0];
F_batch.BatchDescription = Catalog.GetString("Period end revaluations");
TAccountPeriodInfo accountingPeriodInfo = new TAccountPeriodInfo(F_LedgerNum);
accountingPeriodInfo.AccountingPeriodNumber = F_batch.BatchPeriod;
F_batch.DateEffective = accountingPeriodInfo.PeriodEndDate;
F_batch.BatchStatus = MFinanceConstants.BATCH_UNPOSTED;
F_journal = F_GLDataset.AJournal.NewRowTyped();
F_journal.LedgerNumber = F_batch.LedgerNumber;
F_journal.BatchNumber = F_batch.BatchNumber;
F_journal.JournalNumber = 1;
F_journal.DateEffective = F_batch.DateEffective;
F_journal.ExchangeRateTime = 14400; // revaluations are typically later than 'new rates'
F_journal.JournalPeriod = F_batch.BatchPeriod;
F_journal.TransactionCurrency = F_BaseCurrency;
F_journal.JournalDescription = F_batch.BatchDescription;
F_journal.TransactionTypeCode = CommonAccountingTransactionTypesEnum.REVAL.ToString();
F_journal.SubSystemCode = CommonAccountingSubSystemsEnum.GL.ToString();
F_journal.LastTransactionNumber = 0;
F_journal.DateOfEntry = DateTime.Now;
F_journal.ExchangeRateToBase = 1.0M;
F_GLDataset.AJournal.Rows.Add(F_journal);
ARevaluationRow revalRow = F_GLDataset.ARevaluation.NewRowTyped();
revalRow.LedgerNumber = F_journal.LedgerNumber;
revalRow.BatchNumber = F_journal.BatchNumber;
revalRow.JournalNumber = F_journal.JournalNumber;
revalRow.ExchangeRateToBase = AExchangeRate;
revalRow.RevaluationCurrency = ACurrencyCode;
F_GLDataset.ARevaluation.Rows.Add(revalRow);
}
