projects / kivitendo-erp.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Lieferantennummer/Kundennummer in Kunden/Lieferantenberichten ersetzt durch schlicht...
[kivitendo-erp.git] / bin / mozilla / rc.pl
diff --git a/bin/mozilla/rc.pl b/bin/mozilla/rc.pl
index 2a17429..4734433 100644 (file)
--- 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|<script type="text/javascript" src="js/common.js"></script>|;
+  $form->{"jsscript"} = 1;
   $form->header;
+  $onload = qq|focus()|;
+  $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
 
   print qq|
-<body>
+<body onLoad="$onload">
 
 <form method=post action=$form->{script}>
 
@@ -70,9 +77,11 @@ sub reconciliation {
        </tr>
        <tr>
          <th align=right>| . $locale->text('From') . qq|</th>
-         <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
-         <th align=right>| . $locale->text('To') . qq|</th>
-         <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
+         <td><input name=fromdate id=fromdate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
+     <input type="button" name="fromdate" id="trigger_fromdate" value="?"></td>
+         <th align=right>| . $locale->text('Until') . qq|</th>
+         <td><input name=todate id=todate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
+     <input type="button" name="todate" id="trigger_todate" value="?"></td>
        </tr>
       </table>
     </td>
@@ -82,13 +91,13 @@ sub reconciliation {
   </tr>
 </table>
 
+| . $form->write_trigger(\%myconfig, 2,
+                         "fromdate", "BL", "trigger_fromdate",
+                         "todate", "BL", "trigger_todate") . qq|
+
 <br>
 <input type=hidden name=nextsub value=get_payments>
 
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
 <input type=submit class=submit name=action value="|
     . $locale->text('Continue') . qq|">
 
@@ -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} = "<th>&nbsp;</th>";
@@ -147,13 +160,13 @@ sub display_form {
     $option .= "\n<br>" if ($option);
     $option .=
         $locale->text('From') . "&nbsp;"
-      . $locale->date(\%myconfig, $form->{fromdate}, 1);
+      . $locale->date(\%myconfig, $form->{fromdate}, 0);
   }
   if ($form->{todate}) {
     $option .= "\n<br>" if ($option);
     $option .=
-        $locale->text('To') . "&nbsp;"
-      . $locale->date(\%myconfig, $form->{todate}, 1);
+        $locale->text('Until') . "&nbsp;"
+      . $locale->date(\%myconfig, $form->{todate}, 0);
   }
 
   $form->{title} = "$form->{accno}--$form->{account}";
@@ -359,24 +372,14 @@ sub display_form {
 <input type=hidden name=fromdate value=$form->{fromdate}>
 <input type=hidden name=todate value=$form->{todate}>
 
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
 <br>
 <input type=submit class=submit name=action value="|
     . $locale->text('Update') . qq|">
 <input type=submit class=submit name=action value="|
     . $locale->text('Select all') . qq|">
 <input type=submit class=submit name=action value="|
-    . $locale->text('Done') . qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
+    . $locale->text('Done') . qq|">
 
-  print qq|
 </form>
 
 </body>
@@ -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);
 
Unnamed repository; edit this file 'description' to name the repository.