Revision f8529382
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 147 | 147 |
} |
| 148 | 148 |
} |
| 149 | 149 |
|
| 150 |
my $payment_id; |
|
| 151 |
if ($form->{payment_id}) {
|
|
| 152 |
$payment_id = $form->{payment_id};
|
|
| 153 |
} |
|
| 154 |
my $language_id; |
|
| 155 |
if ($form->{language_id}) {
|
|
| 156 |
$language_id = $form->{language_id};
|
|
| 157 |
} |
|
| 158 |
my $taxzone_id; |
|
| 159 |
if ($form->{taxzone_id}) {
|
|
| 160 |
$taxzone_id = $form->{taxzone_id};
|
|
| 161 |
} |
|
| 162 |
my $id; |
|
| 163 |
if ($form->{id}) {
|
|
| 164 |
$id = $form->{id};
|
|
| 165 |
} |
|
| 166 |
my $shipto_id; |
|
| 167 |
if ($form->{shipto_id}) {
|
|
| 168 |
$shipto_id = $form->{shipto_id};
|
|
| 169 |
} |
|
| 150 |
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes id shipto_id)); |
|
| 170 | 151 |
|
| 171 |
my $cp_id = $form->{cp_id};
|
|
| 172 | 152 |
IS->get_customer(\%myconfig, \%$form); |
| 173 | 153 |
|
| 174 | 154 |
#quote all_customer Bug 133 |
| 175 | 155 |
foreach my $ref (@{ $form->{all_customer} }) {
|
| 176 | 156 |
$ref->{name} = $form->quote($ref->{name});
|
| 177 | 157 |
} |
| 178 |
if ($id) {
|
|
| 179 |
$form->{id} = $id;
|
|
| 180 |
} |
|
| 181 |
IS->retrieve_invoice(\%myconfig, \%$form); |
|
| 182 |
$form->{cp_id} = $cp_id;
|
|
| 183 | 158 |
|
| 184 |
if ($payment_id) {
|
|
| 185 |
$form->{payment_id} = $payment_id;
|
|
| 186 |
} |
|
| 187 |
if ($language_id) {
|
|
| 188 |
$form->{language_id} = $language_id;
|
|
| 189 |
} |
|
| 190 |
if ($taxzone_id) {
|
|
| 191 |
$form->{taxzone_id} = $taxzone_id;
|
|
| 192 |
} |
|
| 193 |
if ($shipto_id) {
|
|
| 194 |
$form->{shipto_id} = $shipto_id;
|
|
| 195 |
} |
|
| 159 |
$form->restore_vars(qw(id)); |
|
| 160 |
|
|
| 161 |
IS->retrieve_invoice(\%myconfig, \%$form); |
|
| 162 |
$form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id shipto_id)); |
|
| 163 |
$form->restore_vars(qw(taxincluded)) if $form->{id};
|
|
| 164 |
$form->restore_vars(qw(salesman_id)) if $main::editing; |
|
| 196 | 165 |
|
| 197 | 166 |
# build vendor/customer drop down comatibility... don't ask |
| 198 | 167 |
if (@{ $form->{"all_customer"} }) {
|
Auch abrufbar als: Unified diff
Vars in is::invoice_links besser sichern.