Revision 55e9890a
Von David Ohlbrecht vor fast 15 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 155 | 155 |
$ref->{name} = $form->quote($ref->{name});
|
| 156 | 156 |
} |
| 157 | 157 |
|
| 158 |
# Load data for a specific order and update form fields |
|
| 159 |
my $order_data = IS->get_order_data(); |
|
| 160 |
|
|
| 161 |
# Copy the fields we need to %form |
|
| 162 |
for my $key (qw(payment_id salesman_id orddate taxzone_id quonumber)) {
|
|
| 163 |
$form->{$key} = $order_data->{$key};
|
|
| 164 |
} |
|
| 165 |
|
|
| 158 | 166 |
$form->restore_vars(qw(id)); |
| 159 | 167 |
|
| 160 | 168 |
IS->retrieve_invoice(\%myconfig, \%$form); |
| ... | ... | |
| 162 | 170 |
$form->restore_vars(qw(taxincluded)) if $form->{id};
|
| 163 | 171 |
$form->restore_vars(qw(salesman_id)) if $main::editing; |
| 164 | 172 |
|
| 173 |
|
|
| 165 | 174 |
# build vendor/customer drop down comatibility... don't ask |
| 166 | 175 |
if (@{ $form->{"all_customer"} }) {
|
| 167 | 176 |
$form->{"selectcustomer"} = 1;
|
Auch abrufbar als: Unified diff
Zusätzliche Auftragsfelder beim Laden von Rechnungen holen.