Revision 94802c79
Von Bernd Blessmann vor fast 13 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 69 | 69 |
|
| 70 | 70 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 71 | 71 |
|
| 72 |
# remove any trailing whitespace |
|
| 73 |
$form->{curr} =~ s/\s*$//;
|
|
| 74 |
|
|
| 72 | 75 |
$sth->finish; |
| 73 | 76 |
if ( $form->{salesman_id} ) {
|
| 74 | 77 |
my $query = |
| ... | ... | |
| 315 | 318 |
qq|taxzone_id = ?, | . |
| 316 | 319 |
qq|user_password = ?, | . |
| 317 | 320 |
qq|c_vendor_id = ?, | . |
| 318 |
qq|klass = ? | . |
|
| 321 |
qq|klass = ?, | . |
|
| 322 |
qq|curr = ? | . |
|
| 319 | 323 |
qq|WHERE id = ?|; |
| 320 | 324 |
my @values = ( |
| 321 | 325 |
$form->{customernumber},
|
| ... | ... | |
| 357 | 361 |
$form->{user_password},
|
| 358 | 362 |
$form->{c_vendor_id},
|
| 359 | 363 |
conv_i($form->{klass}),
|
| 364 |
substr($form->{currency}, 0, 3),
|
|
| 360 | 365 |
$form->{id}
|
| 361 | 366 |
); |
| 362 | 367 |
do_query( $form, $dbh, $query, @values ); |
| ... | ... | |
| 524 | 529 |
qq| language_id = ?, | . |
| 525 | 530 |
qq| username = ?, | . |
| 526 | 531 |
qq| user_password = ?, | . |
| 527 |
qq| v_customer_id = ? | . |
|
| 532 |
qq| v_customer_id = ?, | . |
|
| 533 |
qq| curr = ? | . |
|
| 528 | 534 |
qq|WHERE id = ?|; |
| 529 | 535 |
my @values = ( |
| 530 | 536 |
$form->{vendornumber},
|
| ... | ... | |
| 564 | 570 |
$form->{username},
|
| 565 | 571 |
$form->{user_password},
|
| 566 | 572 |
$form->{v_customer_id},
|
| 573 |
substr($form->{currency}, 0, 3),
|
|
| 567 | 574 |
$form->{id}
|
| 568 | 575 |
); |
| 569 | 576 |
do_query($form, $dbh, $query, @values); |
Auch abrufbar als: Unified diff
Fix für Bug 1759: (Verbesserung) Währung bei Kunden / Lieferanten vorbelegen
Für Kunden und Lieferanten kann jetzt in den Stammdaten eine Währung
eingestellt werden, die als Voreinstellung in den Ver- und Einkaufs-
Masken dient.