Revision 03d3d025
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 149 | 149 |
|
| 150 | 150 |
my $editing = $form->{id};
|
| 151 | 151 |
|
| 152 |
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded currency cp_id intnotes id shipto_id)); |
|
| 152 |
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id |
|
| 153 |
taxincluded currency cp_id intnotes id shipto_id |
|
| 154 |
delivery_term_id)); |
|
| 153 | 155 |
|
| 154 | 156 |
IS->get_customer(\%myconfig, \%$form); |
| 155 | 157 |
|
| ... | ... | |
| 161 | 163 |
$form->restore_vars(qw(id)); |
| 162 | 164 |
|
| 163 | 165 |
IS->retrieve_invoice(\%myconfig, \%$form); |
| 164 |
$form->restore_vars(qw(payment_id language_id taxzone_id currency intnotes cp_id shipto_id)); |
|
| 166 |
$form->restore_vars(qw(payment_id language_id taxzone_id currency intnotes |
|
| 167 |
cp_id shipto_id delivery_term_id)); |
|
| 165 | 168 |
$form->restore_vars(qw(taxincluded)) if $form->{id};
|
| 166 | 169 |
$form->restore_vars(qw(salesman_id)) if $editing; |
| 167 | 170 |
|
| ... | ... | |
| 460 | 463 |
|
| 461 | 464 |
$form->{oldinvtotal} = $form->{invtotal};
|
| 462 | 465 |
|
| 466 |
$form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
|
|
| 467 |
|
|
| 463 | 468 |
print $form->parse_html_template('is/form_footer', {
|
| 464 | 469 |
is_type_credit_note => ($form->{type} eq "credit_note"),
|
| 465 | 470 |
totalpaid => $totalpaid, |
Auch abrufbar als: Unified diff
Lieferbedingungen analog zu Zahlungsbedingungen eingeführt.
Sie können angelegt werden, beim Benutzer voreingestellt werden
und in allen Ein- und Verkaufsmasken gesetzt werden.