Revision af853490
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 37 | 37 |
|
| 38 | 38 |
package CT; |
| 39 | 39 |
use Data::Dumper; |
| 40 |
|
|
| 40 |
use SL::DBUtils; |
|
| 41 | 41 |
|
| 42 | 42 |
sub get_tuple {
|
| 43 | 43 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 373 | 373 |
$form->{obsolete} *= 1;
|
| 374 | 374 |
$form->{business} *= 1;
|
| 375 | 375 |
$form->{salesman_id} *= 1;
|
| 376 |
$form->{language_id} *= 1;
|
|
| 377 | 376 |
$form->{payment_id} *= 1;
|
| 378 | 377 |
$form->{taxzone_id} *= 1;
|
| 379 | 378 |
$form->{creditlimit} = $form->parse_amount($myconfig, $form->{creditlimit});
|
| ... | ... | |
| 472 | 471 |
ustid = '$form->{ustid}',
|
| 473 | 472 |
username = '$form->{username}',
|
| 474 | 473 |
salesman_id = '$form->{salesman_id}',
|
| 475 |
language_id = '$form->{language_id}',
|
|
| 474 |
language_id = | . conv_i($form->{language_id}, "NULL") . qq|,
|
|
| 476 | 475 |
payment_id = '$form->{payment_id}',
|
| 477 | 476 |
taxzone_id = '$form->{taxzone_id}',
|
| 478 | 477 |
user_password = | . $dbh->quote($form->{user_password}) . qq|,
|
| ... | ... | |
| 518 | 517 |
$dbh->do($query) || $form->dberror($query); |
| 519 | 518 |
} |
| 520 | 519 |
} |
| 521 |
print(STDERR "SHIPTO_ID $form->{shipto_id}\n");
|
|
| 522 | 520 |
# add shipto |
| 523 | 521 |
$form->add_shipto($dbh, $form->{id}, "CT");
|
| 524 | 522 |
|
| ... | ... | |
| 553 | 551 |
$form->{obsolete} *= 1;
|
| 554 | 552 |
$form->{business} *= 1;
|
| 555 | 553 |
$form->{payment_id} *= 1;
|
| 556 |
$form->{language_id} *= 1;
|
|
| 557 | 554 |
$form->{taxzone_id} *= 1;
|
| 558 | 555 |
$form->{creditlimit} = $form->parse_amount($myconfig, $form->{creditlimit});
|
| 559 | 556 |
|
| ... | ... | |
| 626 | 623 |
ustid = '$form->{ustid}',
|
| 627 | 624 |
payment_id = '$form->{payment_id}',
|
| 628 | 625 |
taxzone_id = '$form->{taxzone_id}',
|
| 629 |
language_id = '$form->{language_id}',
|
|
| 626 |
language_id = | . conv_i($form->{language_id}, "NULL") . qq|,
|
|
| 630 | 627 |
username = '$form->{username}',
|
| 631 | 628 |
user_password = '$form->{user_password}',
|
| 632 | 629 |
v_customer_id = '$form->{v_customer_id}'
|
Auch abrufbar als: Unified diff
Verwalten von Einheitennamen für jede angelegte Sprache. Beim Druck werden die Einheitennamen durch diejenigen ersetzt, die für die ausgewählte Ausgabesprache gespeichert sind.