USTVA: Winston export ueberarbeitet. Kz vor die pos_ustva gesetzt, 'Kennzahl Nr'...

[kivitendo-erp.git] / bin / mozilla / cp.pl
diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl

index 2e58c8f..b68865a 100644 (file)
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -36,7 +36,8 @@ use SL::OP;
  use SL::IS;
  use SL::IR;
  
-require "$form->{path}/arap.pl";
+require "bin/mozilla/arap.pl";
+require "bin/mozilla/common.pl";
  
  1;
  
@@ -183,7 +184,7 @@ sub form_header {
  
      # with JavaScript Calendar
      $button1 = qq|
-       <td><input name=datepaid id=datepaid size=11 title="$myconfig{dateformat}" value="$form->{datepaid}">
+       <td><input name=datepaid id=datepaid size=11 title="$myconfig{dateformat}" value="$form->{datepaid}" onBlur=\"check_right_date_format(this)\">
         <input type=button name=datepaid id="trigger1" value=|
        . $locale->text('button') . qq|></td>
         |;
@@ -195,15 +196,17 @@ sub form_header {
  
      # without JavaScript Calendar
      $button1 = qq|
-                              <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
+                              <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\"></td>|;
    }
-
+  $form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
    $form->header;
  
    $arap = lc $form->{ARAP};
-
+  $onload = qq|focus()|;
+  $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
+  $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
    print qq|
-<body>
+<body onLoad="$onload">
  
  <form method=post action=$form->{script}>
  
@@ -305,7 +308,7 @@ sub form_header {
               <tr>
                 <th align=right nowrap>| . $locale->text('Amount') . qq|</th>
                 <td colspan=3><input name=amount size=10 value=|
-    . $form->format_amount(\%myconfig, $form->{amount}, 2) . qq|></td>
+    . $form->format_amount(\%myconfig, $form->{amount}, 2) . qq| onBlur=\"check_right_number_format(this)\"></td>
               </tr>
             </table>
           </td>
@@ -464,7 +467,6 @@ sub form_footer {
  </table>
  <input type=hidden name=rowcount value=$form->{rowcount}>
  
-<input type=hidden name=path value=$form->{path}>
  <input type=hidden name=login value=$form->{login}>
  <input type=hidden name=password value=$form->{password}>
  
@@ -679,7 +681,7 @@ sub print {
    $check->init;
    $form->{text_amount} = $check->num2text($whole);
  
-  &{"$form->{vc}_details"};
+  call_sub("$form->{vc}_details");
  
    $form->{callback} = "";
  
@@ -721,7 +723,7 @@ sub print {
  
    if ($form->{media} ne 'screen') {
      $form->{callback} =
-      "$form->{script}?action=payment&vc=$form->{vc}&path=$form->{path}&login=$form->{login}&password=$form->{password}&all_vc=$form->{all_vc}";
+      "$form->{script}?action=payment&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&all_vc=$form->{all_vc}";
  
      $form->redirect if (CP->process_payment(\%myconfig, \%$form));
      $form->error($locale->text('Cannot post payment!'));