diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-14 03:59:29 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-14 03:59:29 +0000 |
commit | 7db620259e76a61e53e93c2ec7d55fb51e27b4d9 (patch) | |
tree | 1ad584829c429b477e380d1be5c66f57600288bc /LedgerSMB/RP.pm | |
parent | faa9ebb791fe3cb94fecce91e0b063c61306707c (diff) |
Now possible to save vendors (minus telephone info). AR/AP aging reports now run
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1276 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/RP.pm')
-rw-r--r-- | LedgerSMB/RP.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm index 0697675c..4bdd4360 100644 --- a/LedgerSMB/RP.pm +++ b/LedgerSMB/RP.pm @@ -1603,14 +1603,15 @@ sub aging { # select outstanding vendors or customers, depends on $ct $query = qq| - SELECT DISTINCT ct.id, ct.name, ct.language_code + SELECT DISTINCT ct.id, e.name, ct.language_code FROM $form->{ct} ct - JOIN $form->{arap} a ON (a.$form->{ct}_id = ct.id) + JOIN $form->{arap} a USING (entity_id) + JOIN entity e ON (ct.entity_id = e.id) WHERE $where AND a.paid != a.amount AND (a.$transdate <= ?) - ORDER BY ct.name|; + ORDER BY e.name|; my $sth = $dbh->prepare($query); - $sth->execute( $form->{todate} ) || $form->dberror; + $sth->execute( $form->{todate} ) || $form->dberror($query); my @ot = (); while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) { |