diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/customer.pl | 17 | ||||
-rw-r--r-- | scripts/vendor.pl | 18 | ||||
-rw-r--r-- | scripts/vouchers.pl | 4 |
3 files changed, 39 insertions, 0 deletions
diff --git a/scripts/customer.pl b/scripts/customer.pl index 1834da7a..2828c377 100644 --- a/scripts/customer.pl +++ b/scripts/customer.pl @@ -49,6 +49,7 @@ sub get { $customer->set( entity_class=> '2' ); my $result = $customer->get(); + $customer->get_credit_id(); my $template = LedgerSMB::Template->new( user => $user, template => 'contact', language => $user->{language}, @@ -161,10 +162,26 @@ sub save { _render_main_screen($customer); } +sub save_credit { + my ($request) = @_; + my $customer = LedgerSMB::DBObject::Customer->new({base => $request}); + $customer->save_credit(); + $customer->get(); + _render_main_screen($customer); +} + +sub save_credit_new { + my ($request) = @_; + $request->{credit_id} = undef; + save_credit($request); +} + + sub edit{ my $request = shift @_; my $customer = LedgerSMB::DBObject::Customer->new({base => $request}); $customer->get(); + $customer->get_credit_id(); _render_main_screen($customer); } diff --git a/scripts/vendor.pl b/scripts/vendor.pl index f84cee1d..321f76d4 100644 --- a/scripts/vendor.pl +++ b/scripts/vendor.pl @@ -49,6 +49,7 @@ sub get { $vendor->set( entity_class=> '1' ); $vendor->get(); + $vendor->get_credit_id(); $vendor->get_metadata(); _render_main_screen($vendor); } @@ -219,10 +220,27 @@ sub save { _render_main_screen($vendor); } +sub save_credit { + + my ($request) = @_; + + my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); + $vendor->save_credit(); + $vendor->get(); + _render_main_screen($vendor); +} + +sub save_credit_new { + my ($request) = @_; + $request->{credit_id} = undef; + save_credit($request); +} + sub edit{ my $request = shift @_; my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); $vendor->get(); + $vendor->get_credit_id(); _render_main_screen($vendor); } diff --git a/scripts/vouchers.pl b/scripts/vouchers.pl index da3901d6..5f4d8401 100644 --- a/scripts/vouchers.pl +++ b/scripts/vouchers.pl @@ -4,6 +4,8 @@ # the GNU General Public License. For more information please see the included # LICENSE and COPYRIGHT files +# THIS FILE NEEDS POD + package LedgerSMB::Scripts::vouchers; our $VERSION = '0.1'; @@ -36,6 +38,8 @@ sub create_vouchers { add_vouchers($batch); } +sub search_transactions { + sub add_vouchers { # This function is not safe for caching as long as the scripts are in bin. |