diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-03-04 19:47:19 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-03-04 19:47:19 +0000 |
| commit | 82254cc7c2fab1a48c291f75a0a04f2fdaaa6b11 (patch) | |
| tree | 0f268e4b0153c5f41eacede46b4ffb9cc6f479d9 /LedgerSMB | |
| parent | 5c984b68bc2d43fb66dc8d2f60acc424b5a6ceca (diff) | |
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
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/AM.pm | 4 | ||||
| -rw-r--r-- | LedgerSMB/DBObject/Payment.pm | 18 |
2 files changed, 18 insertions, 4 deletions
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 |