</td>
<td>
<table>
+|;
+
+ if ($form->{type} =~ /^sales_/) {
+ print qq|
<tr>
<th align=left>| . $locale->text('Ertrag') . qq|</th>
<td>| . $form->format_amount(\%myconfig, $form->{marge_total}, 2, 0) . qq|</td>
<th align=left>| . $locale->text('Ertrag prozentual') . qq|</th>
<td>| . $form->format_amount(\%myconfig, $form->{marge_percent}, 2, 0) . qq| %</td>
</tr>
+|;
+ }
+
+ print qq|
<input type=hidden name="marge_total" value="$form->{"marge_total"}">
<input type=hidden name="marge_percent" value="$form->{"marge_percent"}">
</table>
<td align=left width=30%><b>Dateiname</b></td>
<td align=left width=70%><b>Webdavlink</b></td>
|;
- foreach $file (keys %{ $form->{WEBDAV} }) {
+ foreach $file (@{ $form->{WEBDAV} }) {
$webdav_list .= qq|
<tr>
- <td align=left>$file</td>
- <td align=left><a href="$form->{WEBDAV}{$file}">$form->{WEBDAV}{$file}</a></td>
+ <td align="left">$file->{name}</td>
+ <td align="left"><a href="$file->{link}">$file->{type}</a></td>
</tr>
|;
}
<input class=submit type=submit name=action value="|
. $locale->text('Purchase Order') . qq|">|;
}
- if (1) {
print qq|
<input class=submit type=submit name=action value="|
. $locale->text('Invoice') . qq|">
|;
-}
if ($form->{type} =~ /sales_order$/) {
print qq|
<td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td>
<td><input name="l_shipvia" class=checkbox type=checkbox value=Y> |
. $locale->text('Ship via') . qq|</td>
- <td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td>
</tr>
<tr>
<td><input name="l_netamount" class=checkbox type=checkbox value=Y> |
<input type="hidden" name="yes_nextsub" value="delete_order_quotation">
<input name=action class=submit type=submit value="|
. $locale->text('Yes') . qq|">
-<input name=action class=submit type=submit onclick="history.back()" value="|
- . $locale->text('No') . qq|">
+<button class=submit type=button onclick="history.back()">|
+ . $locale->text('No') . qq|</button>
</form>
</body>
$exchangerate =
$form->check_exchangerate(\%myconfig, $form->{currency}, $orddate,
$buysell);
- print(STDERR "CURRENCY $form->{currency} DEFAULT: $form->{defaultcurrency} EXCHANGE $exchangerate\n");
if (!$exchangerate) {
&backorder_exchangerate($orddate, $buysell);