Revision 480c6709
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 2496 | 2496 |
$lxdebug->leave_sub(); |
| 2497 | 2497 |
} |
| 2498 | 2498 |
|
| 2499 |
sub check_for_direct_delivery_yes {
|
|
| 2500 |
$lxdebug->enter_sub(); |
|
| 2501 |
|
|
| 2502 |
$form->{direct_delivery_checked} = 1;
|
|
| 2503 |
delete @{$form}{grep /^shipto/, keys %{ $form }};
|
|
| 2504 |
map { s/^CFDD_//; $form->{$_} = $form->{"CFDD_${_}"} } grep /^CFDD_/, keys %{ $form };
|
|
| 2505 |
$form->{shipto} = 1;
|
|
| 2506 |
purchase_order(); |
|
| 2507 |
$lxdebug->leave_sub(); |
|
| 2508 |
} |
|
| 2509 |
|
|
| 2510 |
sub check_for_direct_delivery_no {
|
|
| 2511 |
$lxdebug->enter_sub(); |
|
| 2512 |
|
|
| 2513 |
$form->{direct_delivery_checked} = 1;
|
|
| 2514 |
delete @{$form}{grep /^shipto/, keys %{ $form }};
|
|
| 2515 |
purchase_order(); |
|
| 2516 |
|
|
| 2517 |
$lxdebug->leave_sub(); |
|
| 2518 |
} |
|
| 2519 |
|
|
| 2520 |
sub check_for_direct_delivery {
|
|
| 2521 |
$lxdebug->enter_sub(); |
|
| 2522 |
|
|
| 2523 |
if ($form->{direct_delivery_checked}
|
|
| 2524 |
|| (!$form->{shiptoname} && !$form->{shiptostreet} && !$form->{shipto_id})) {
|
|
| 2525 |
$lxdebug->leave_sub(); |
|
| 2526 |
return; |
|
| 2527 |
} |
|
| 2528 |
|
|
| 2529 |
if ($form->{shipto_id}) {
|
|
| 2530 |
Common->get_shipto_by_id(\%myconfig, $form, $form->{shipto_id}, "CFDD_");
|
|
| 2531 |
|
|
| 2532 |
} else {
|
|
| 2533 |
map { $form->{"CFDD_${_}"} = $form->{$_ } } grep /^shipto/, keys %{ $form };
|
|
| 2534 |
} |
|
| 2535 |
|
|
| 2536 |
delete $form->{action};
|
|
| 2537 |
$form->{VARIABLES} = [ map { { "key" => $_, "value" => $form->{$_} } } grep { ref $_ eq "" } keys %{ $form } ];
|
|
| 2538 |
|
|
| 2539 |
$form->header(); |
|
| 2540 |
print $form->parse_html_template("oe/check_for_direct_delivery");
|
|
| 2541 |
|
|
| 2542 |
$lxdebug->leave_sub(); |
|
| 2543 |
|
|
| 2544 |
exit 0; |
|
| 2545 |
} |
|
| 2546 |
|
|
| 2499 | 2547 |
sub purchase_order {
|
| 2500 | 2548 |
$lxdebug->enter_sub(); |
| 2501 | 2549 |
|
| 2550 |
if ($form->{type} eq 'sales_order') {
|
|
| 2551 |
check_for_direct_delivery(); |
|
| 2552 |
} |
|
| 2553 |
|
|
| 2502 | 2554 |
if ( $form->{type} eq 'sales_quotation'
|
| 2503 | 2555 |
|| $form->{type} eq 'request_quotation') {
|
| 2504 | 2556 |
OE->close_order(\%myconfig, \%$form); |
| ... | ... | |
| 2602 | 2654 |
$lxdebug->leave_sub(); |
| 2603 | 2655 |
} |
| 2604 | 2656 |
|
| 2657 |
sub yes {
|
|
| 2658 |
call_sub($form->{yes_nextsub});
|
|
| 2659 |
} |
|
| 2660 |
|
|
| 2661 |
sub no {
|
|
| 2662 |
call_sub($form->{no_nextsub});
|
|
| 2663 |
} |
|
Auch abrufbar als: Unified diff
Beim Erstellen eines Lieferantenauftrages aus einem Kundenauftrag wird überprüft, ob eine Lieferadresse ausgewählt oder eingegeben war. Wenn ja, so wird der Benutzer gefragt, ob er diese Lieferadresse beibehalten will, damit der Lieferant direkt an den Kunden liefern kann.