Revision 34a2b6e1
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 116 | 116 |
} |
| 117 | 117 |
} |
| 118 | 118 |
|
| 119 |
my ($payment_id, $language_id, $taxzone_id, $currency, $delivery_term_id); |
|
| 119 |
my ($payment_id, $language_id, $taxzone_id, $currency, $delivery_term_id, $intnotes);
|
|
| 120 | 120 |
if ($form->{payment_id}) {
|
| 121 | 121 |
$payment_id = $form->{payment_id};
|
| 122 | 122 |
} |
| ... | ... | |
| 132 | 132 |
if ($form->{delivery_term_id}) {
|
| 133 | 133 |
$delivery_term_id = $form->{delivery_term_id};
|
| 134 | 134 |
} |
| 135 |
if (exists $form->{intnotes}) {
|
|
| 136 |
$intnotes = $form->{intnotes};
|
|
| 137 |
} |
|
| 135 | 138 |
|
| 136 | 139 |
my $cp_id = $form->{cp_id};
|
| 137 | 140 |
IR->get_vendor(\%myconfig, \%$form); |
| ... | ... | |
| 153 | 156 |
if ($delivery_term_id) {
|
| 154 | 157 |
$form->{delivery_term_id} = $delivery_term_id;
|
| 155 | 158 |
} |
| 159 |
if (defined $intnotes) {
|
|
| 160 |
$form->{intnotes} = $intnotes;
|
|
| 161 |
} |
|
| 156 | 162 |
|
| 157 | 163 |
my @curr = $form->get_all_currencies(); |
| 158 | 164 |
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
|
Auch abrufbar als: Unified diff
Interne Bemerkungen im Workflow von Einkaufslieferschein nach Rechnung nicht überschreiben ...
... mit Werten aus den Stammdaten.
Behebt #2136.