Revision 5cbbffe2
Von Stephan Köhler vor fast 19 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 110 | 110 |
push(@{ $form->{deliverydate} }, qq|$form->{"deliverydate_$i"}|);
|
| 111 | 111 |
|
| 112 | 112 |
push(@{ $form->{sellprice} }, $form->{"sellprice_$i"});
|
| 113 |
push(@{ $form->{ordnumber_oe} }, qq|$form->{"ordnumber_$i"}|);
|
|
| 114 |
push(@{ $form->{transdate_oe} }, qq|$form->{"transdate_$i"}|);
|
|
| 113 | 115 |
|
| 114 | 116 |
if ($form->{lizenzen}) {
|
| 115 | 117 |
if ($form->{"licensenumber_$i"}) {
|
| 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 |
|
| bin/mozilla/io.pl | ||
|---|---|---|
| 1546 | 1546 |
push @a, |
| 1547 | 1547 |
("partnumber_$i", "description_$i",
|
| 1548 | 1548 |
"partsgroup_$i", "serialnumber_$i", |
| 1549 |
"bin_$i", "unit_$i"); |
|
| 1549 |
"bin_$i", "unit_$i", |
|
| 1550 |
"transdate_$i", "ordnumber_$i"); |
|
| 1550 | 1551 |
} |
| 1551 | 1552 |
map { push @a, "${_}_description" } split / /, $form->{taxaccounts};
|
| 1552 | 1553 |
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1833 | 1833 |
# close orders/quotations |
| 1834 | 1834 |
$form->{closed} = 1;
|
| 1835 | 1835 |
|
| 1836 |
# save order iff one ordnumber has been given
|
|
| 1836 |
# save order if one ordnumber has been given |
|
| 1837 | 1837 |
# if not it's most likely a collective order, which can't be saved back |
| 1838 | 1838 |
# so they just have to be closed |
| 1839 |
if ($form->{ordnumber} ne '') {
|
|
| 1839 |
if (($form->{ordnumber} ne '') || ($form->{quonumber} ne '')) {
|
|
| 1840 | 1840 |
OE->save(\%myconfig, \%$form); |
| 1841 | 1841 |
} else {
|
| 1842 | 1842 |
OE->close_orders(\%myconfig, \%$form); |
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