diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-22 23:27:50 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-22 23:27:50 +0000 |
commit | ecf56eca694d9606ffe56d3cab13a6614efc6aa4 (patch) | |
tree | 84fc7c9a763a97ef1c633a885b80456fc93559a0 /LedgerSMB/DBObject | |
parent | 12a0239ccda7e2bd68cae034e916c6a664c3c430 (diff) |
Added format option to LedgerSMB::format_amount
Added batch information options for check template
Added batch default_date field
Corrected issues with payment batches not preserving post dates when adding vouchers to existing batch.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2219 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r-- | LedgerSMB/DBObject/Payment.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject/Payment.pm b/LedgerSMB/DBObject/Payment.pm index 50e7829f..11e5ebfd 100644 --- a/LedgerSMB/DBObject/Payment.pm +++ b/LedgerSMB/DBObject/Payment.pm @@ -89,6 +89,10 @@ sub get_metadata { for my $ref(@{$self->{cash_accounts}}){ $ref->{text} = "$ref->{accno}--$ref->{description}"; } + if ($self->{batch_id} && !defined $self->{batch_date}){ + my ($ref) = $self->exec_method(funcname => 'voucher_get_batch'); + $self->{batch_date} = $ref->{default_date}; + } } sub search { |