From 82254cc7c2fab1a48c291f75a0a04f2fdaaa6b11 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 4 Mar 2008 19:47:19 +0000
Subject: Adding David Mora's single-payment interface patches

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2098 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/AM.pm               |  4 ++--
 LedgerSMB/DBObject/Payment.pm | 18 ++++++++++++++++--
 2 files changed, 18 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index 803a9f32..e1ff4043 100644
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -158,8 +158,8 @@ sub save_account {
 
     $form->{link} = "";
     foreach my $item (
-        $form->{AR},        $form->{AR_amount},  $form->{AR_tax},
-        $form->{AR_paid},   $form->{AP},         $form->{AP_amount},
+        $form->{AR},        $form->{AR_amount},  $form->{AR_tax}, $form->{AR_overpayment},
+        $form->{AR_paid},   $form->{AP},         $form->{AP_amount}, $form->{AP_overpayment},
         $form->{AP_tax},    $form->{AP_paid},    $form->{IC},
         $form->{IC_income}, $form->{IC_sale},    $form->{IC_expense},
         $form->{IC_cogs},   $form->{IC_taxpart}, $form->{IC_taxservice}
diff --git a/LedgerSMB/DBObject/Payment.pm b/LedgerSMB/DBObject/Payment.pm
index bf507190..7e85e049 100644
--- a/LedgerSMB/DBObject/Payment.pm
+++ b/LedgerSMB/DBObject/Payment.pm
@@ -314,6 +314,20 @@ sub list_accounting {
  return @{$self->{pay_accounts}}; 
 }
 
+=item list_overpayment_accounting
+
+This method lists all accounts that match the role specified in account_class property and
+are availible to store an overpayment / advanced payment / pre-payment. 
+=back
+=cut
+
+sub list_overpayment_accounting {
+ my ($self) = @_;
+ @{$self->{overpayment_accounts}} = $self->exec_method( funcname => 'chart_list_overpayment');
+ return @{$self->{overpayment_accounts}}; 
+}
+
+
 =item get_sources
 
 This method builds all the possible sources of money,
@@ -378,8 +392,8 @@ $self->{account_class}
 
 sub get_vc_info {
  my ($self) = @_; 
- #@{$self->{vendor_customer_info}} = $self->call_procedure(procname => 'vendor_customer_info');
- #return @{$self->{vendor_customer_info}};
+ @{$self->{vendor_customer_info}} = $self->exec_method(funcname => 'payment_get_vc_info');
+ return @{$self->{vendor_customer_info}};
 }
 
 =item get_payment_detail_data
-- 
cgit v1.2.3