Revision 563cbd55
Von Philip Reetz vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 205 | 205 |
$form->{jsscript} = 1;
|
| 206 | 206 |
|
| 207 | 207 |
my $editing = $form->{id};
|
| 208 |
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes)); |
|
| 208 | 209 |
|
| 209 | 210 |
OE->retrieve(\%myconfig, \%$form); |
| 210 | 211 |
|
| ... | ... | |
| 217 | 218 |
|
| 218 | 219 |
$form->{"$form->{vc}_id"} ||= $form->{"all_$form->{vc}"}->[0]->{id} if $form->{"all_$form->{vc}"};
|
| 219 | 220 |
|
| 220 |
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes)); |
|
| 221 | 221 |
$form->{shipto} = 1 if $form->{id};
|
| 222 | 222 |
|
| 223 | 223 |
# get customer / vendor |
| ... | ... | |
| 342 | 342 |
$credittext = $locale->text('Credit Limit exceeded!!!');
|
| 343 | 343 |
|
| 344 | 344 |
my $follow_up_vc = $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
|
| 345 |
$follow_up_vc =~ s/--\d*\s*$//;
|
|
| 345 |
$follow_up_vc =~ s/--.*?//;
|
|
| 346 | 346 |
$TMPL_VAR{follow_up_trans_info} = ($form->{type} =~ /_quotation$/ ? $form->{quonumber} : $form->{ordnumber}) . " ($follow_up_vc)";
|
| 347 | 347 |
|
| 348 | 348 |
if ($form->{id}) {
|
Auch abrufbar als: Unified diff
Die Variablen wurden beim Umwandeln zu spaet gesichert