Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 452 | 452 |
$form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
|
| 453 | 453 |
|
| 454 | 454 |
$TMPL_VAR{tax} .= qq|
|
| 455 |
<tr>
|
|
| 456 |
<th align=right>$form->{"${item}_description"} | . $form->{"${item}_rate"} * 100 .qq|%</th>
|
|
| 457 |
<td align=right>$form->{"${item}_total"}</td>
|
|
| 458 |
</tr> |;
|
|
| 455 |
<tr>
|
|
| 456 |
<th align=right>$form->{"${item}_description"} | . $form->{"${item}_rate"} * 100 .qq|%</th>
|
|
| 457 |
<td align=right>$form->{"${item}_total"}</td>
|
|
| 458 |
</tr> |;
|
|
| 459 | 459 |
} |
| 460 | 460 |
} |
| 461 | 461 |
|
| ... | ... | |
| 470 | 470 |
$form->{"${item}_netto"} = $form->format_amount(\%myconfig, $form->{"${item}_netto"}, 2);
|
| 471 | 471 |
|
| 472 | 472 |
$TMPL_VAR{tax} .= qq|
|
| 473 |
<tr>
|
|
| 474 |
<th align=right>Enthaltene $form->{"${item}_description"} | . $form->{"${item}_rate"} * 100 .qq|%</th>
|
|
| 475 |
<td align=right>$form->{"${item}_total"}</td>
|
|
| 476 |
</tr>
|
|
| 477 |
<tr>
|
|
| 478 |
<th align=right>Nettobetrag</th>
|
|
| 479 |
<td align=right>$form->{"${item}_netto"}</td>
|
|
| 480 |
</tr> |;
|
|
| 473 |
<tr>
|
|
| 474 |
<th align=right>Enthaltene $form->{"${item}_description"} | . $form->{"${item}_rate"} * 100 .qq|%</th>
|
|
| 475 |
<td align=right>$form->{"${item}_total"}</td>
|
|
| 476 |
</tr>
|
|
| 477 |
<tr>
|
|
| 478 |
<th align=right>Nettobetrag</th>
|
|
| 479 |
<td align=right>$form->{"${item}_netto"}</td>
|
|
| 480 |
</tr> |;
|
|
| 481 | 481 |
} |
| 482 | 482 |
} |
| 483 | 483 |
} |
| ... | ... | |
| 552 | 552 |
my $rows = scalar @{ $form->{item_list} };
|
| 553 | 553 |
|
| 554 | 554 |
# hier ist das problem fuer bug 817 $form->{discount} wird nicht durchgeschliffen
|
| 555 |
# ferner fallunterscheidung fuer verkauf oder einkauf s.a. bug 736 jb 04.05.2009
|
|
| 555 |
# ferner fallunterscheidung fuer verkauf oder einkauf s.a. bug 736 jb 04.05.2009
|
|
| 556 | 556 |
# select discount as vendor_discount from vendor || |
| 557 | 557 |
# select discount as customer_discount from customer |
| 558 | 558 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"$form->{vc}_discount"} * 100);
|
| ... | ... | |
| 1059 | 1059 |
# saving the history |
| 1060 | 1060 |
if(!exists $form->{addition}) {
|
| 1061 | 1061 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1062 |
$form->{addition} = "SAVED";
|
|
| 1063 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1062 |
$form->{addition} = "SAVED";
|
|
| 1063 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1064 | 1064 |
} |
| 1065 | 1065 |
# /saving the history |
| 1066 | 1066 |
|
| ... | ... | |
| 1166 | 1166 |
# saving the history |
| 1167 | 1167 |
if(!exists $form->{addition}) {
|
| 1168 | 1168 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1169 |
$form->{addition} = "SAVED";
|
|
| 1170 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1169 |
$form->{addition} = "SAVED";
|
|
| 1170 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1171 | 1171 |
} |
| 1172 | 1172 |
# /saving the history |
| 1173 | 1173 |
|
| ... | ... | |
| 1254 | 1254 |
# saving the history |
| 1255 | 1255 |
if(!exists $form->{addition}) {
|
| 1256 | 1256 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1257 |
$form->{addition} = "DELETED";
|
|
| 1258 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1257 |
$form->{addition} = "DELETED";
|
|
| 1258 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1259 | 1259 |
} |
| 1260 | 1260 |
# /saving the history |
| 1261 | 1261 |
$form->info($msg); |
| ... | ... | |
| 1460 | 1460 |
<td> |
| 1461 | 1461 |
<table> |
| 1462 | 1462 |
<tr> |
| 1463 |
<th align=right>| . $locale->text('Currency') . qq|</th>
|
|
| 1464 |
<td>$form->{currency}</td>
|
|
| 1465 |
</tr>
|
|
| 1466 |
<tr>
|
|
| 1467 |
<th align=right>| . $locale->text('Date') . qq|</th>
|
|
| 1468 |
<td>$orddate</td>
|
|
| 1469 |
</tr>
|
|
| 1463 |
<th align=right>| . $locale->text('Currency') . qq|</th>
|
|
| 1464 |
<td>$form->{currency}</td>
|
|
| 1465 |
</tr>
|
|
| 1466 |
<tr>
|
|
| 1467 |
<th align=right>| . $locale->text('Date') . qq|</th>
|
|
| 1468 |
<td>$orddate</td>
|
|
| 1469 |
</tr>
|
|
| 1470 | 1470 |
<tr> |
| 1471 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 1472 |
<td><input name=exchangerate size=11></td>
|
|
| 1471 |
<th align=right>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 1472 |
<td><input name=exchangerate size=11></td>
|
|
| 1473 | 1473 |
</tr> |
| 1474 | 1474 |
</table> |
| 1475 | 1475 |
</td> |
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.