Revision db9ec33a
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 3326 | 3326 |
# compatibility. |
| 3327 | 3327 |
$self->{$_} = $defaults->$_ for qw(company address taxnumber co_ustid duns sepa_creditor_id);
|
| 3328 | 3328 |
|
| 3329 |
$self->{"myconfig_${_}"} = $::myconfig{$_} for grep { $_ ne 'dbpasswd' } keys %::myconfig;
|
|
| 3330 |
|
|
| 3331 |
if (!$self->{employee_id}) {
|
|
| 3332 |
$self->{"employee_${_}"} = $::myconfig{$_} for qw(email tel fax name signature);
|
|
| 3333 |
$self->{"employee_${_}"} = $defaults->$_ for qw(address businessnumber co_ustid company duns sepa_creditor_id taxnumber);
|
|
| 3334 |
} |
|
| 3335 |
|
|
| 3329 | 3336 |
# set shipto from billto unless set |
| 3330 | 3337 |
my $has_shipto = any { $self->{"shipto$_"} } qw(name street zipcode city country contact);
|
| 3331 | 3338 |
if (!$has_shipto && ($self->{type} =~ m/^(?:purchase_order|request_quotation)$/)) {
|
| ... | ... | |
| 3344 | 3351 |
$output_longdates = 1; |
| 3345 | 3352 |
} |
| 3346 | 3353 |
|
| 3354 |
$self->{myconfig_output_dateformat} = $output_dateformat;
|
|
| 3355 |
$self->{myconfig_output_longdates} = $output_longdates;
|
|
| 3356 |
$self->{myconfig_output_numberformat} = $output_numberformat;
|
|
| 3357 |
|
|
| 3347 | 3358 |
# Retrieve accounts for tax calculation. |
| 3348 | 3359 |
IC->retrieve_accounts(\%::myconfig, $self, map { $_ => $self->{"id_$_"} } 1 .. $self->{rowcount});
|
| 3349 | 3360 |
|
Auch abrufbar als: Unified diff
SL::Form->prepare_for_printing: Variablen aus %::myconfig sowie output_*format zur Verfügung stellen