Revision cc8edd18
Von Niclas Zimmermann vor etwa 12 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 228 | 228 |
} |
| 229 | 229 |
|
| 230 | 230 |
my $project_id; |
| 231 |
my $reqdate; |
|
| 231 |
my $items_reqdate;
|
|
| 232 | 232 |
|
| 233 | 233 |
$form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
|
| 234 | 234 |
my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} };
|
| ... | ... | |
| 284 | 284 |
$price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;
|
| 285 | 285 |
my $linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);
|
| 286 | 286 |
|
| 287 |
$reqdate = ($form->{"reqdate_$i"}) ? $form->{"reqdate_$i"} : undef;
|
|
| 287 |
$items_reqdate = ($form->{"reqdate_$i"}) ? $form->{"reqdate_$i"} : undef;
|
|
| 288 | 288 |
|
| 289 | 289 |
do_statement($form, $h_item_id, $q_item_id); |
| 290 | 290 |
my ($item_id) = $h_item_id->fetchrow_array(); |
| ... | ... | |
| 294 | 294 |
$form->{"description_$i"}, $form->{"longdescription_$i"},
|
| 295 | 295 |
$form->{"qty_$i"}, $baseqty,
|
| 296 | 296 |
$form->{"sellprice_$i"}, $form->{"discount_$i"} / 100,
|
| 297 |
$form->{"unit_$i"}, conv_date($reqdate), conv_i($form->{"project_id_$i"}),
|
|
| 297 |
$form->{"unit_$i"}, conv_date($items_reqdate), conv_i($form->{"project_id_$i"}),
|
|
| 298 | 298 |
$form->{"serialnumber_$i"},
|
| 299 | 299 |
$form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}),
|
| 300 | 300 |
$form->{"cusordnumber_$i"},
|
| ... | ... | |
| 327 | 327 |
$h_item_stock->finish(); |
| 328 | 328 |
|
| 329 | 329 |
|
| 330 |
# reqdate is last items reqdate (?: old behaviour) if not already set |
|
| 331 |
$form->{reqdate} ||= $items_reqdate;
|
|
| 330 | 332 |
# save DO record |
| 331 | 333 |
$query = |
| 332 | 334 |
qq|UPDATE delivery_orders SET |
| ... | ... | |
| 341 | 343 |
@values = ($form->{donumber}, $form->{ordnumber},
|
| 342 | 344 |
$form->{cusordnumber}, conv_date($form->{transdate}),
|
| 343 | 345 |
conv_i($form->{vendor_id}), conv_i($form->{customer_id}),
|
| 344 |
conv_date($reqdate), $form->{shippingpoint}, $form->{shipvia},
|
|
| 346 |
conv_date($form->{reqdate}), $form->{shippingpoint}, $form->{shipvia},
|
|
| 345 | 347 |
$form->{notes}, $form->{intnotes},
|
| 346 | 348 |
$form->{closed} ? 't' : 'f', $form->{delivered} ? "t" : "f",
|
| 347 | 349 |
conv_i($form->{department_id}), conv_i($form->{language_id}), conv_i($form->{shipto_id}),
|
| ... | ... | |
| 573 | 575 |
my $mode = !$params{ids} ? 'default' : ref $params{ids} eq 'ARRAY' ? 'multi' : 'single';
|
| 574 | 576 |
|
| 575 | 577 |
if ($mode eq 'default') {
|
| 576 |
$ref = selectfirst_hashref_query($form, $dbh, qq|SELECT current_date AS transdate, current_date AS reqdate|);
|
|
| 578 |
$ref = selectfirst_hashref_query($form, $dbh, qq|SELECT current_date AS transdate|); |
|
| 577 | 579 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 578 | 580 |
|
| 581 |
# if reqdate is not set from oe-workflow, set it to transdate (which is current date) |
|
| 582 |
$form->{reqdate} ||= $form->{transdate};
|
|
| 583 |
|
|
| 579 | 584 |
# get last name used |
| 580 | 585 |
$form->lastname_used($dbh, $myconfig, $vc) unless $form->{"${vc}_id"};
|
| 581 | 586 |
|
Auch abrufbar als: Unified diff
Lieferdatum, Lieferscheindatum und Liefertermin
Im Workflow Auftrag-Lieferschein-Rechnung gab es Probleme mit dem
Lieferdatum. Beim Auftrag wurde bisher ein Lieferdatum verlangt,
was jetzt in Liefertermin umbenannt wurde, um echtes Lieferdatum
und Lieferfrist zu unterscheiden.
Der Liefertermin wird jetzt auch in der Ansicht vom Lieferschein
angezeigt. Das Lieferscheindatum und das Lieferdatum sind synonym.
Somit wird in der Rechnung als Lieferdatum das Datum vom Liefer-
schein angegeben.
Siehe auch Bug #1958. Dort wird allerdings noch zwischen einem
Lieferdatum und Lieferschein unterschieden, was dieser commit noch
nicht leistet.