Revision 26ae178f
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 238 | 238 |
|
| 239 | 239 |
$form->{"$form->{vc}_id"} ||= $form->{"all_$form->{vc}"}->[0]->{id} if $form->{"all_$form->{vc}"};
|
| 240 | 240 |
|
| 241 |
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes)); |
|
| 241 |
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes shipto_id));
|
|
| 242 | 242 |
$form->{shipto} = 1 if $form->{id};
|
| 243 | 243 |
|
| 244 | 244 |
# get customer / vendor |
| 245 | 245 |
IR->get_vendor(\%myconfig, \%$form) if $form->{type} =~ /(purchase_order|request_quotation)/;
|
| 246 | 246 |
IS->get_customer(\%myconfig, \%$form) if $form->{type} =~ /sales_(order|quotation)/;
|
| 247 | 247 |
|
| 248 |
$form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id)); |
|
| 248 |
$form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id shipto_id));
|
|
| 249 | 249 |
$form->restore_vars(qw(taxincluded)) if $form->{id};
|
| 250 | 250 |
$form->restore_vars(qw(salesman_id)) if $editing; |
| 251 | 251 |
$form->{forex} = $form->{exchangerate};
|
| ... | ... | |
| 1767 | 1767 |
sub poso {
|
| 1768 | 1768 |
$main::lxdebug->enter_sub(); |
| 1769 | 1769 |
|
| 1770 |
$::form->{"Watchdog::shipto_id"} = 2;
|
|
| 1771 |
|
|
| 1770 | 1772 |
my $form = $main::form; |
| 1771 | 1773 |
my %myconfig = %main::myconfig; |
| 1772 | 1774 |
|
Auch abrufbar als: Unified diff
Bei Umwandlung Angebot -> Auftrag ausgewählte Lieferadresse beibehalten