[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb: [1616] trunk/LedgerSMB/DBObject/Report.pm
- Subject: SF.net SVN: ledger-smb: [1616] trunk/LedgerSMB/DBObject/Report.pm
- From: ..hidden..
- Date: Sat, 15 Sep 2007 20:45:31 -0700
Revision: 1616
http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1616&view=rev
Author: einhverfr
Date: 2007-09-15 20:45:30 -0700 (Sat, 15 Sep 2007)
Log Message:
-----------
LedgerSBM/DBObject/Report.pm now compiles
Modified Paths:
--------------
trunk/LedgerSMB/DBObject/Report.pm
Modified: trunk/LedgerSMB/DBObject/Report.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report.pm 2007-09-16 03:09:45 UTC (rev 1615)
+++ trunk/LedgerSMB/DBObject/Report.pm 2007-09-16 03:45:30 UTC (rev 1616)
@@ -30,7 +30,8 @@
sub definition_invoice_aging {
my ($self) = @_;
- my @{$self->{entities}} =
+
+ @{$self->{entities}} =
$self->exec_method(funcname => 'payment_get_all_accounts');
my $entity_options = [];
@@ -42,8 +43,12 @@
}
$self->{criteria} = [
- {}
+ {name => 'entity', type => 'select', label => 'Account',
+ options => $entity_options},
];
+ $self->{hidden_elements} = [
+ {name => 'account_class', value => $self->{account_class}}
+ ];
$self->{columns} = [
{id => 'entity_id', label => 'Entity ID'},
{id => 'account_number', label => 'Account Number'},
@@ -62,10 +67,16 @@
{id => 'c30', label => '30'},
{id => 'c60', label => '60'},
{id => 'c90', label => '90'},
- {id => 'duedate' label => 'Due'},
+ {id => 'duedate', label => 'Due'},
{id => 'curr', label => 'Currency'},
{id => 'exchangerate', label => 'Exchange Rate'},
];
+ $self->{report_types} = [
+ {label => "Detailed", value => "detailed"},
+ {label => "Summary", value => "summary"},
+ {label => "Overdue", value => "overdue"},
+ {label => "Overdue Summary", value => "overdue_summary"},
+ ];
}
@@ -73,3 +84,4 @@
=cut
+1;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.