X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Frc.pl;h=f0ef98e732687c5a062f376cd0b60600869abf3a;hb=c659bf5189f2c7ba71a600711516d8556831880d;hp=b36f6e381de7aa950cb99b761fd4a3d910c8e60f;hpb=b390c3884452b45898a4e8ff4624ac36e20fe943;p=kivitendo-erp.git diff --git a/bin/mozilla/rc.pl b/bin/mozilla/rc.pl index b36f6e381..f0ef98e73 100644 --- a/bin/mozilla/rc.pl +++ b/bin/mozilla/rc.pl @@ -24,7 +24,8 @@ # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +# MA 02110-1335, USA. #====================================================================== # # Account reconciliation module @@ -32,6 +33,7 @@ #====================================================================== use SL::RC; +use SL::Locale::String qw(t8); require "bin/mozilla/common.pl"; @@ -47,6 +49,8 @@ sub reconciliation { RC->paymentaccounts(\%::myconfig, $::form); + setup_rc_reconciliation_action_bar(); + $::form->header; print $::form->parse_html_template('rc/step1', { selection_sub => sub { ("$_[0]{accno}--$_[0]{description}")x2 }, @@ -55,357 +59,138 @@ sub reconciliation { $::lxdebug->leave_sub; } -sub continue { call_sub($main::form->{"nextsub"}); } - sub get_payments { - $main::lxdebug->enter_sub(); - - my $form = $main::form; - my %myconfig = %main::myconfig; - - $main::auth->assert('cash'); + $::lxdebug->enter_sub; + $::auth->assert('cash'); - ($form->{accno}, $form->{account}) = split /--/, $form->{accno}; + ($::form->{accno}, $::form->{account}) = split /--/, $::form->{accno}; - RC->payment_transactions(\%myconfig, \%$form); + RC->payment_transactions(\%::myconfig, $::form); - &display_form; + display_form(); - $main::lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub display_form { - $main::lxdebug->enter_sub(); - - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; - - $main::auth->assert('cash'); - - my @column_index = qw(cleared transdate source name credit debit balance); - my %column_header; - $column_header{cleared} = "