X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/9d1e95b0eb88a54c083815ffd2db30227c2acf4a..b12e8d1411cb7af3a1a9b6f7637692f0758b4741:/bin/mozilla/am.pl

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index d175ead80..e34957f94 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -47,10 +47,32 @@ require "$form->{path}/common.pl";
 # end of main
 
 sub add    { &{"add_$form->{type}"} }
-sub edit   { &{"edit_$form->{type}"} }
-sub save   { &{"save_$form->{type}"} }
 sub delete { &{"delete_$form->{type}"} }
 
+sub display {
+  if ($form->{display_nextsub}) {
+    &{ $form->{display_nextsub} }();
+  } else {
+    &{ $form->{nextsub} }();
+  }
+}
+
+sub save {
+  if ($form->{save_nextsub}) {
+    &{ $form->{save_nextsub} }();
+  } else {
+    &{ $form->{nextsub} }();
+  }
+}
+
+sub edit {
+  if ($form->{edit_nextsub}) {
+    &{ $form->{edit_nextsub} }();
+  } else {
+    &{ "edit_$form->{type}" }();
+  }
+}
+
 sub add_account {
   $lxdebug->enter_sub();
 
@@ -96,13 +118,16 @@ sub account_header {
   $form->{description} =~ s/\"/"/g;
 
   if (@{ $form->{TAXKEY} }) {
-    foreach $item (@{ $form->{TAXKEY} }) {
+    foreach my $item (@{ $form->{TAXKEY} }) {
+
+      $item->{rate} = $item->{rate} * 100 . '%';
+
       if ($item->{tax} == $form->{tax}) {
         $form->{selecttaxkey} .=
-          "<option value=$item->{tax} selected>$item->{taxdescription}\n";
+          "<option value=$item->{tax} selected>$item->{taxdescription} ($item->{rate})\n";
       } else {
         $form->{selecttaxkey} .=
-          "<option value=$item->{tax}>$item->{taxdescription}\n";
+          "<option value=$item->{tax}>$item->{taxdescription} ($item->{rate})\n";
       }
 
     }
@@ -112,7 +137,7 @@ sub account_header {
 	      <tr>
 		<th align=right>| . $locale->text('Steuersatz') . qq|</th>
 		<td><select name=tax>$form->{selecttaxkey}</select></td>
-		<th align=right>| . $locale->text('Gültig ab') . qq|</th>
+		<th align=right>| . $locale->text('Gültig ab') . qq|</th>
                 <td><input name=startdate value="$form->{startdate}"></td>
 	      </tr>|;
 
@@ -139,7 +164,7 @@ sub account_header {
                     <tr>
 		      <th align=right>| . $locale->text('Folgekonto') . qq|</th>
 		      <td><select name=new_chart_id>$form->{selectnewaccount}</select></td>
-                      <th align=right>| . $locale->text('Gültig ab') . qq|</th>
+                      <th align=right>| . $locale->text('Gültig ab') . qq|</th>
 		      <td><input name=valid_from value="$form->{valid_from}"></td>
                     </tr>
                   </table>
@@ -212,29 +237,29 @@ sub account_header {
 	      </tr>|;
 
   $form->{selecteur} = "<option>\n";
-  %eur = (1  => "Umsatzerlöse",
-          2  => "sonstige Erlöse",
+  %eur = (1  => "Umsatzerlöse",
+          2  => "sonstige Erlöse",
           3  => "Privatanteile",
-          4  => "Zinserträge",
-          5  => "Ausserordentliche Erträge",
+          4  => "Zinserträge",
+          5  => "Ausserordentliche Erträge",
           6  => "Vereinnahmte Umsatzst.",
           7  => "Umsatzsteuererstattungen",
-          8  => "Wareneingänge",
-          9  => "Löhne und Gehälter",
+          8  => "Wareneingänge",
+          9  => "Löhne und Gehälter",
           10 => "Gesetzl. sozialer Aufw.",
           11 => "Mieten",
           12 => "Gas, Strom, Wasser",
           13 => "Instandhaltung",
-          14 => "Steuern, Versich., Beiträge",
+          14 => "Steuern, Versich., Beiträge",
           15 => "Kfz-Steuern",
           16 => "Kfz-Versicherungen",
           17 => "Sonst. Fahrtkosten",
           18 => "Werbe- und Reisekosten",
           19 => "Instandhaltung u. Werkzeuge",
-          20 => "Fachzeitschriften, Bücher",
-          21 => "Miete für Einrichtungen",
+          20 => "Fachzeitschriften, Bücher",
+          21 => "Miete für Einrichtungen",
           22 => "Rechts- und Beratungskosten",
-          23 => "Bürobedarf, Porto, Telefon",
+          23 => "Bürobedarf, Porto, Telefon",
           24 => "Sonstige Aufwendungen",
           25 => "Abschreibungen auf Anlagever.",
           26 => "Abschreibungen auf GWG",
@@ -261,25 +286,25 @@ sub account_header {
 
   $form->{selectbwa} = "<option>\n";
 
-  %bwapos = (1  => 'Umsatzerlöse',
+  %bwapos = (1  => 'Umsatzerlöse',
              2  => 'Best.Verdg.FE/UE',
              3  => 'Aktiv.Eigenleistung',
              4  => 'Mat./Wareneinkauf',
-             5  => 'So.betr.Erlöse',
+             5  => 'So.betr.Erlöse',
              10 => 'Personalkosten',
              11 => 'Raumkosten',
              12 => 'Betriebl.Steuern',
-             13 => 'Vers./Beiträge',
+             13 => 'Vers./Beiträge',
              14 => 'Kfz.Kosten o.St.',
              15 => 'Werbe-Reisek.',
              16 => 'Kosten Warenabgabe',
              17 => 'Abschreibungen',
              18 => 'Rep./instandhlt.',
-             19 => 'Übrige Steuern',
+             19 => 'Übrige Steuern',
              20 => 'Sonst.Kosten',
              30 => 'Zinsauwand',
              31 => 'Sonst.neutr.Aufw.',
-             32 => 'Zinserträge',
+             32 => 'Zinserträge',
              33 => 'Sonst.neutr.Ertrag',
              34 => 'Verr.kalk.Kosten',
              35 => 'Steuern Eink.u.Ertr.');
@@ -1112,9 +1137,7 @@ sub list_business {
     $discount =
       $form->format_amount(\%myconfig, $ref->{discount} * 100);
     $description =
-      ($ref->{salesman})
-      ? "<b>$ref->{description}</b>"
-      : "$ref->{description}";
+      $ref->{description};
     $column_data{description} =
       qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$description</td>|;
     $column_data{discount}           = qq|<td align=right>$discount</td>|;
@@ -1164,7 +1187,6 @@ sub business_header {
   $lxdebug->enter_sub();
 
   $form->{title}    = $locale->text("$form->{title} Business");
-  $form->{salesman} = "checked" if $form->{salesman};
 
   # $locale->text('Add Business')
   # $locale->text('Edit Business')
@@ -1200,10 +1222,6 @@ sub business_header {
     <th align=right>| . $locale->text('Customernumberinit') . qq|</th>
     <td><input name=customernumberinit size=10 value=$form->{customernumberinit}></td>
   </tr>
-  <tr>
-    <td align=right>| . $locale->text('Salesman') . qq|</td>
-    <td><input name=salesman class=checkbox type=checkbox value=1 $form->{salesman}></td>
-  </tr>
   <td colspan=2><hr size=3 noshade></td>
   </tr>
 </table>
@@ -1575,7 +1593,7 @@ sub list_buchungsgruppe {
     . qq|</th>|;
   $column_header{income_accno_0} =
       qq|<th class=listheading>|
-    . $locale->text('Erlöse Inland')
+    . $locale->text('Erlöse Inland')
     . qq|</th>|;
   $column_header{expense_accno_0} =
       qq|<th class=listheading>|
@@ -1583,7 +1601,7 @@ sub list_buchungsgruppe {
     . qq|</th>|;
   $column_header{income_accno_1} =
       qq|<th class=listheading>|
-    . $locale->text('Erlöse EU m. UStId')
+    . $locale->text('Erlöse EU m. UStId')
     . qq|</th>|;
   $column_header{expense_accno_1} =
       qq|<th class=listheading>|
@@ -1591,7 +1609,7 @@ sub list_buchungsgruppe {
     . qq|</th>|;
   $column_header{income_accno_2} =
       qq|<th class=listheading>|
-    . $locale->text('Erlöse EU o. UStId')
+    . $locale->text('Erlöse EU o. UStId')
     . qq|</th>|;
   $column_header{expense_accno_2} =
       qq|<th class=listheading>|
@@ -1599,7 +1617,7 @@ sub list_buchungsgruppe {
     . qq|</th>|;
   $column_header{income_accno_3} =
       qq|<th class=listheading>|
-    . $locale->text('Erlöse Ausland')
+    . $locale->text('Erlöse Ausland')
     . qq|</th>|;
   $column_header{expense_accno_3} =
       qq|<th class=listheading>|
@@ -1646,7 +1664,7 @@ sub list_buchungsgruppe {
       $column_data{up} =
         qq|<td align="center" valign="center" width="16">| .
         qq|<a href="${swap_link}id1=$ref->{id}&id2=$pref->{id}">| .
-        qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">| .
+        qq|<img border="0" src="image/up.png" alt="| . $locale->text("up") . qq|">| .
         qq|</a></td>|;
     } else {
       $column_data{up} = qq|<td width="16">&nbsp;</td>|;
@@ -1659,7 +1677,7 @@ sub list_buchungsgruppe {
       $column_data{down} =
         qq|<td align="center" valign="center" width="16">| .
         qq|<a href="${swap_link}id1=$ref->{id}&id2=$nref->{id}">| .
-        qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">| .
+        qq|<img border="0" src="image/down.png" alt="| . $locale->text("down") . qq|">| .
         qq|</a></td>|;
     }
 
@@ -1725,7 +1743,7 @@ sub buchungsgruppe_header {
 
   $form->{title}    = $locale->text("$form->{title} Buchungsgruppe");
 
-  # $locale->text('Buchungsgruppe hinzufügen')
+  # $locale->text('Buchungsgruppe hinzufügen')
   # $locale->text('Buchungsgruppe bearbeiten')
 
   my ($acc_inventory, $acc_income, $acc_expense) = ({}, {}, {});
@@ -1776,7 +1794,7 @@ sub buchungsgruppe_header {
 
   $linkaccounts .= qq|
 	      <tr>
-		<th align=right>| . $locale->text('Erlöse Inland') . qq|</th>
+		<th align=right>| . $locale->text('Erlöse Inland') . qq|</th>
 		<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
 	      </tr>
 	      <tr>
@@ -1790,7 +1808,7 @@ sub buchungsgruppe_header {
     $form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_1}/  value=$form->{expense_accno_id_1} selected/;
   }
   $linkaccounts .= qq|	      <tr>
-		<th align=right>| . $locale->text('Erlöse EU m. UStId') . qq|</th>
+		<th align=right>| . $locale->text('Erlöse EU m. UStId') . qq|</th>
 		<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
 	      </tr>
 	      <tr>
@@ -1806,7 +1824,7 @@ sub buchungsgruppe_header {
   }
 
   $linkaccounts .= qq|	      <tr>
-		<th align=right>| . $locale->text('Erlöse EU o. UStId') . qq|</th>
+		<th align=right>| . $locale->text('Erlöse EU o. UStId') . qq|</th>
 		<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
 	      </tr>
 	      <tr>
@@ -1822,7 +1840,7 @@ sub buchungsgruppe_header {
   }
 
   $linkaccounts .= qq|	      <tr>
-		<th align=right>| . $locale->text('Erlöse Ausland') . qq|</th>
+		<th align=right>| . $locale->text('Erlöse Ausland') . qq|</th>
 		<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
 	      </tr>
 	      <tr>
@@ -1875,7 +1893,7 @@ sub delete_buchungsgruppe {
   $lxdebug->enter_sub();
 
   AM->delete_buchungsgruppe(\%myconfig, \%$form);
-  $form->redirect($locale->text('Buchungsgruppe gelöscht!'));
+  $form->redirect($locale->text('Buchungsgruppe gelöscht!'));
 
   $lxdebug->leave_sub();
 }
@@ -2213,7 +2231,7 @@ sub list_payment {
       $column_data{up} =
         qq|<td align="center" valign="center" width="16">| .
         qq|<a href="${swap_link}&id1=$ref->{id}&id2=$pref->{id}">| .
-        qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">| .
+        qq|<img border="0" src="image/up.png" alt="| . $locale->text("up") . qq|">| .
         qq|</a></td>|;
     } else {
       $column_data{up} = qq|<td width="16">&nbsp;</td>|;
@@ -2226,7 +2244,7 @@ sub list_payment {
       $column_data{down} =
         qq|<td align="center" valign="center" width="16">| .
         qq|<a href="${swap_link}&id1=$ref->{id}&id2=$nref->{id}">| .
-        qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">| .
+        qq|<img border="0" src="image/down.png" alt="| . $locale->text("down") . qq|">| .
         qq|</a></td>|;
     }
 
@@ -2416,97 +2434,218 @@ sub swap_payment_terms {
   $lxdebug->leave_sub();
 }
 
-sub display_stylesheet {
+sub display_template {
   $lxdebug->enter_sub();
 
-  $form->{file} = "css/$myconfig{stylesheet}";
-  &display_form;
+  $form->{edit} = 0;
+  display_template_form();
 
   $lxdebug->leave_sub();
 }
 
-sub display_form {
+sub edit_template {
   $lxdebug->enter_sub();
 
-  $form->{file} =~ s/^(.:)*?\/|\.\.\///g;
-  $form->{file} =~ s/^\/*//g;
-  $form->{file} =~ s/$userspath//;
+  $form->{edit} = 1;
+  display_template_form();
 
-  $form->error("$!: $form->{file}") unless -f $form->{file};
+  $lxdebug->leave_sub();
+}
 
-  AM->load_template(\%$form);
+sub save_template {
+  $lxdebug->enter_sub();
 
-  $form->{title} = $form->{file};
+  $form->isblank("formname", $locale->text("You're not editing a file.")) unless ($form->{type} eq "stylesheet");
 
-  # if it is anything but html
-  if ($form->{file} !~ /\.html$/) {
-    $form->{body} = "<pre>\n$form->{body}\n</pre>";
+  my ($filename) = AM->prepare_template_filename(\%myconfig, $form);
+  if (my $error = AM->save_template($filename, $form->{content})) {
+    $form->error(sprintf($locale->text("Saving the file '%s' failed. OS error message: %s"), $filename, $error));
   }
 
-  $form->header;
+  $form->{edit} = 0;
+  display_template_form();
 
-  print qq|
-<body>
+  $lxdebug->leave_sub();
+}
 
-$form->{body}
+sub display_template_form {
+  $lxdebug->enter_sub();
 
-<form method=post action=$form->{script}>
+  $form->{formname} =~ s|.*/||;
+  my $format = $form->{format} eq "html" ? "html" : "tex";
 
-<input name=file type=hidden value=$form->{file}>
-<input name=type type=hidden value=template>
+  my $title = $form->{type} eq "stylesheet" ? $locale->text("Edit the stylesheet") : $locale->text("Edit templates");
+  $form->{title} = $title;
 
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
+  my $edit_options;
 
-<input name=action type=submit class=submit value="|
-    . $locale->text('Edit') . qq|">
+  my @hidden = qw(login path password type format);
 
-  </form>
+  if (($form->{type} ne "stylesheet") && !$form->{edit}) {
+    $edit_options = "<p>";
 
-</body>
-</html>
+    my %formname_setup =
+      (
+       "balance_sheet" => { "translation" => $locale->text('Balance Sheet'), "html" => 1 },
+       "bin_list" => $locale->text('Bin List'),
+       "bwa" => { "translation" => $locale->text('BWA'), "html" => 1 },
+       "check" => { "translation" => $locale->text('Check'), "html" => 1 },
+       "credit_note" => $locale->text('Credit Note'),
+       "income_statement" => { "translation" => $locale->text('Income Statement'), "html" => 1 },
+       "invoice" => $locale->text('Invoice'),
+       "packing_list" => $locale->text('Packing List'),
+       "pick_list" => $locale->text('Pick List'),
+       "proforma" => $locale->text('Proforma Invoice'),
+       "purchase_order" => $locale->text('Purchase Order'),
+       "receipt" => { "translation" => $locale->text('Receipt'), "tex" => 1 },
+       "request_quotation" => $locale->text('RFQ'),
+       "sales_order" => $locale->text('Confirmation'),
+       "sales_quotation" => $locale->text('Quotation'),
+       "statement" => $locale->text('Statement'),
+       "storno_invoice" => $locale->text('Storno Invoice'),
+       "storno_packing_list" => $locale->text('Storno Packing List'),
+       "ustva-2004" => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 },
+       "ustva-2005" => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 },
+       "ustva-2006" => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 },
+       "ustva-2007" => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 },
+       "ustva" => $locale->text("USTVA"),
+       "zahlungserinnerung" => $locale->text('Payment Reminder'),
+      );
+
+    my (@values, %labels, $file, $setup);
+
+    while (($file, $setup) = each(%formname_setup)) {
+      next unless (!ref($setup) || $setup->{$format});
+
+      push(@values, $file);
+      $labels{$file} = ref($setup) ? $setup->{translation} : $setup;
+    }
+    @values = sort({ $labels{$a} cmp $labels{$b} } @values);
+
+    $edit_options .=
+      $locale->text("Template") . " " .
+      NTI($cgi->popup_menu("-name" => "formname", "-default" => $form->{formname},
+                           "-values" => \@values, "-labels" => \%labels));
+
+    $form->get_lists("printers" => "ALL_PRINTERS",
+                     "languages" => "ALL_LANGUAGES");
+
+    @values = ("");
+    %labels = ();
+
+    foreach my $item (@{ $form->{ALL_LANGUAGES} }) {
+      next unless ($item->{template_code});
+      my $key = "$item->{id}--$item->{template_code}";
+      push(@values, $key);
+      $labels{$key} = $item->{description};
+    }
+
+    if (1 != scalar(@values)) {
+      $edit_options .=
+        " " . $locale->text("Language") . " " .
+        NTI($cgi->popup_menu("-name" => "language", "-default" => $form->{language},
+                             "-values" => \@values, "-labels" => \%labels));
+    }
+
+    @values = ("");
+    %labels = ();
+
+    foreach my $item (@{ $form->{ALL_PRINTERS} }) {
+      next unless ($item->{template_code});
+      my $key = "$item->{id}--$item->{template_code}";
+      push(@values, $key);
+      $labels{$key} = $item->{printer_description};
+    }
+
+    if (1 != scalar(@values)) {
+      $edit_options .=
+        " " . $locale->text("Printer") . " " .
+        NTI($cgi->popup_menu("-name" => "printer", "-default" => $form->{printer},
+                             "-values" => \@values, "-labels" => \%labels));
+    }
+
+    $edit_options .= qq|
+
+  <input type="hidden" name="display_nextsub" value="display_template">
+
+  <input name="action" type="submit" class="submit" value="|
+    . $locale->text('Display') . qq|">
+
+ </p>
+
+ <hr>
 |;
 
-  $lxdebug->leave_sub();
-}
+  } else {
+    push(@hidden, qw(formname language printer));
+  }
 
-sub edit_template {
-  $lxdebug->enter_sub();
+  if ($form->{formname} || ($form->{type} eq "stylesheet")) {
+    my ($filename, $display_filename) = AM->prepare_template_filename(\%myconfig, $form);
+    my ($content, $lines) = AM->load_template($filename);
+
+    $body = qq|
+|;
+
+    if ($form->{edit}) {
+      $form->{fokus} = "Form.content";
+      $body = qq|\n<p><div class="listtop">| . $locale->text('Edit file') . " '" . H($display_filename) . qq|'</div></p>\n<p>|
+        . NTI($cgi->textarea("-name" => "content",
+                             "-id" => "content",
+                             "-default" => $content,
+                             "-columns" => 100,
+                             "-rows" => 25))
+        . qq|</p>
+
+ <p>
+  <input type="hidden" name="save_nextsub" value="save_template">
+
+  <input type="submit" name="action" value="| . $locale->text('Save') . qq|">
+ </p>
+|;
+
+    } else {
+      $content = "\n\n" unless ($content);
+
+      $body = qq|
+  <p><div class="listtop">| . $locale->text('Display file') . " '" . H($display_filename) . qq|'</div></p>
+
+  <input type="hidden" name="edit_nextsub" value="edit_template">
 
-  AM->load_template(\%$form);
+  <p><input name="action" type="submit" class="submit" value="| . $locale->text('Edit') . qq|"></p>
 
-  $form->{title} = $locale->text('Edit Template');
+  <p>
+    <pre class="filecontent">| . H($content) . qq|</pre>
+  </p>
+|;
 
-  # convert &nbsp to &amp;nbsp;
-  $form->{body} =~ s/&nbsp;/&amp;nbsp;/gi;
+      if ($lines > 25) {
+        $body .= qq|
+  <input name="action" type="submit" class="submit" value="|
+    . $locale->text('Edit') . qq|">
+|;
+      }
+    }
+  }
 
   $form->header;
 
   print qq|
 <body>
 
-<form method=post action=$form->{script}>
-
-<input name=file type=hidden value=$form->{file}>
-<input name=type type=hidden value=template>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
+<div class="listheading">$title</div>
 
-<input name=callback type=hidden value="$form->{script}?action=display_form&file=$form->{file}&path=$form->{path}&login=$form->{login}&password=$form->{password}">
+<form method="post" name="Form" action="am.pl">
 
-<textarea name=body rows=25 cols=70>
-$form->{body}
-</textarea>
+|;
+  $form->hide_form(@hidden);
 
-<br>
-<input type=submit class=submit name=action value="|
-    . $locale->text('Save') . qq|">
+  print qq|
+$edit_options
 
-  </form>
+$body
 
+</form>
 
 </body>
 </html>
@@ -2515,15 +2654,6 @@ $form->{body}
   $lxdebug->leave_sub();
 }
 
-sub save_template {
-  $lxdebug->enter_sub();
-
-  AM->save_template(\%$form);
-  $form->redirect($locale->text('Template saved!'));
-
-  $lxdebug->leave_sub();
-}
-
 sub config {
   $lxdebug->enter_sub();
 
@@ -3307,4 +3437,4 @@ sub swap_units {
   edit_units();
 
   $lxdebug->leave_sub();
-}
\ No newline at end of file
+}