Revision 5cbbffe2
Von Stephan Köhler vor fast 19 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 467 | 467 |
|
| 468 | 468 |
my ($self, $myconfig ,$form) = @_; |
| 469 | 469 |
|
| 470 |
for my $i (1 .. $form->{rowcount}) {
|
|
| 471 |
|
|
| 472 |
map {
|
|
| 473 |
$form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"})
|
|
| 474 |
} qw(qty ship); |
|
| 475 |
if ($delete_oe_id) {
|
|
| 476 |
$form->{"orderitems_id_$i"} = "";
|
|
| 477 |
} |
|
| 478 |
|
|
| 479 |
if ($form->{"qty_$i"}) {
|
|
| 480 |
|
|
| 481 |
# set values to 0 if nothing entered |
|
| 482 |
$form->{"discount_$i"} =
|
|
| 483 |
$form->parse_amount($myconfig, $form->{"discount_$i"});
|
|
| 484 |
|
|
| 485 |
$form->{"sellprice_$i"} =
|
|
| 486 |
$form->parse_amount($myconfig, $form->{"sellprice_$i"});
|
|
| 487 |
} |
|
| 488 |
} |
|
| 470 | 489 |
# get ids from $form |
| 471 | 490 |
map { push @ids, $form->{"ordnumber_$_"} if $form->{"ordnumber_$_"} } (1 .. $form->{rowcount});
|
| 472 | 491 |
|
Auch abrufbar als: Unified diff
Merge von 684, 686-689 aus unstable: Sammelauftraege
r684 - Umwandeln eines Sammelauftrags in eine Rechnung ignoriert Nachkommastellen
r686 - Sammelbestellungen koennen nur aus Auftraegen generiert werden
r687 - Noch ein paar Formatierungsfehler bei Umwandlung von Sammelbestellung in Rechnung
r688 - Bereitstellen der Variablen transdate_$i und ordnumber_$i von Sammelbestellungen fuer die Druckausgabe
r689 - Variablen fuer Druck bei Sammelrechnungen umbenannt von ordnumber und transdate nach ordnumber_oe und transdate_oe wg. Namenskollision