X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Frc.pl;h=47344335fef4312463172af277532c9c1af415b4;hb=b29783a3f0cff568b5d344d4fd34fe65840bea46;hp=d9e395cdab566982f1a7d9ad66c40673d1eb6898;hpb=b3e7f0164d41f3fae5631dd5e30736f40f49a998;p=kivitendo-erp.git diff --git a/bin/mozilla/rc.pl b/bin/mozilla/rc.pl index d9e395cda..47344335f 100644 --- a/bin/mozilla/rc.pl +++ b/bin/mozilla/rc.pl @@ -33,6 +33,8 @@ use SL::RC; +require "bin/mozilla/common.pl"; + 1; # end of main @@ -40,6 +42,8 @@ use SL::RC; sub reconciliation { $lxdebug->enter_sub(); + $auth->assert('cash'); + RC->paymentaccounts(\%myconfig, \%$form); $selection = ""; @@ -47,11 +51,14 @@ sub reconciliation { @{ $form->{PR} }; $form->{title} = $locale->text('Reconciliation'); - + $form->{javascript} .= qq||; + $form->{"jsscript"} = 1; $form->header; + $onload = qq|focus()|; + $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|; print qq| - +

{script}> @@ -70,9 +77,11 @@ sub reconciliation { | . $locale->text('From') . qq| - - | . $locale->text('To') . qq| - + + + | . $locale->text('Until') . qq| + + @@ -82,13 +91,13 @@ sub reconciliation { +| . $form->write_trigger(\%myconfig, 2, + "fromdate", "BL", "trigger_fromdate", + "todate", "BL", "trigger_todate") . qq| +
-{path}> -{login}> -{password}> - @@ -101,11 +110,13 @@ sub reconciliation { $lxdebug->leave_sub(); } -sub continue { &{ $form->{nextsub} } } +sub continue { call_sub($form->{"nextsub"}); } sub get_payments { $lxdebug->enter_sub(); + $auth->assert('cash'); + ($form->{accno}, $form->{account}) = split /--/, $form->{accno}; RC->payment_transactions(\%myconfig, \%$form); @@ -118,6 +129,8 @@ sub get_payments { sub display_form { $lxdebug->enter_sub(); + $auth->assert('cash'); + @column_index = qw(cleared transdate source name credit debit balance); $column_header{cleared} = " "; @@ -152,7 +165,7 @@ sub display_form { if ($form->{todate}) { $option .= "\n
" if ($option); $option .= - $locale->text('Bis') . " " + $locale->text('Until') . " " . $locale->date(\%myconfig, $form->{todate}, 0); } @@ -359,24 +372,14 @@ sub display_form { {fromdate}> {todate}> -{path}> -{login}> -{password}> -
|; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } + . $locale->text('Done') . qq|"> - print qq|

@@ -389,6 +392,8 @@ sub display_form { sub update { $lxdebug->enter_sub(); + $auth->assert('cash'); + RC->payment_transactions(\%myconfig, \%$form); foreach $ref (@{ $form->{PR} }) { @@ -406,6 +411,8 @@ sub update { sub select_all { $lxdebug->enter_sub(); + $auth->assert('cash'); + RC->payment_transactions(\%myconfig, \%$form); map { $_->{cleared} = "checked" unless $_->{fx_transaction} } @@ -419,8 +426,9 @@ sub select_all { sub done { $lxdebug->enter_sub(); - $form->{callback} = - "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&password=$form->{password}"; + $auth->assert('cash'); + + $form->{callback} = "$form->{script}?action=reconciliation"; $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1);