From dde3b204b288b72ce848bdc72762acab5399fef0 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 16 Jul 2007 00:03:37 +0000 Subject: Credit/Debit notes now work, credit/debit invoices still need some testing git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1399 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/aa.pl | 51 ++++++++++++++++++++++++++++++++++++++++++++++----- bin/ir.pl | 24 ++++++++++++++++++------ bin/is.pl | 25 ++++++++++++++++++------- 3 files changed, 82 insertions(+), 18 deletions(-) (limited to 'bin') diff --git a/bin/aa.pl b/bin/aa.pl index 73550101..e097a7b2 100644 --- a/bin/aa.pl +++ b/bin/aa.pl @@ -92,6 +92,18 @@ sub add { $form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + if ($form->{type} eq "credit_note"){ + $form->{reverse} = 1; + $form->{subtype} = 'credit_note'; + $form->{type} = 'transaction'; + } elsif ($form->{type} eq 'debit_note'){ + $form->{reverse} = 1; + $form->{subtype} = 'debit_note'; + $form->{type} = 'transaction'; + } + else { + $form->{reverse} = 0; + } &create_links; @@ -103,6 +115,18 @@ sub add { sub edit { $form->{title} = "Edit"; + if ($form->{reverse}){ + if ($form->{ARAP} eq 'AR'){ + $form->{subtype} = 'credit_note'; + $form->{type} = 'transaction'; + } elsif ($form->{ARAP} eq 'AP'){ + $form->{subtype} = 'debit_note'; + $form->{type} = 'transaction'; + } else { + $form->error("Unknown AR/AP selection value: $form->{ARAP}"); + } + + } &create_links; &display_form; @@ -375,12 +399,29 @@ qq|