Revision 8688e71e
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 36 | 36 |
#====================================================================== |
| 37 | 37 |
|
| 38 | 38 |
package CT; |
| 39 |
|
|
| 39 | 40 |
use Data::Dumper; |
| 41 |
|
|
| 42 |
use SL::CVar; |
|
| 40 | 43 |
use SL::DBUtils; |
| 41 | 44 |
|
| 42 | 45 |
sub get_tuple {
|
| ... | ... | |
| 381 | 384 |
# add shipto |
| 382 | 385 |
$form->add_shipto( $dbh, $form->{id}, "CT" );
|
| 383 | 386 |
|
| 387 |
CVar->save_custom_variables('dbh' => $dbh,
|
|
| 388 |
'module' => 'CT', |
|
| 389 |
'trans_id' => $form->{id},
|
|
| 390 |
'variables' => $form); |
|
| 391 |
|
|
| 384 | 392 |
$rc = $dbh->commit(); |
| 385 | 393 |
$dbh->disconnect(); |
| 386 | 394 |
|
| ... | ... | |
| 578 | 586 |
# add shipto |
| 579 | 587 |
$form->add_shipto( $dbh, $form->{id}, "CT" );
|
| 580 | 588 |
|
| 589 |
CVar->save_custom_variables('dbh' => $dbh,
|
|
| 590 |
'module' => 'CT', |
|
| 591 |
'trans_id' => $form->{id},
|
|
| 592 |
'variables' => $form); |
|
| 593 |
|
|
| 581 | 594 |
$rc = $dbh->commit(); |
| 582 | 595 |
$dbh->disconnect(); |
| 583 | 596 |
|
| ... | ... | |
| 666 | 679 |
push(@values, conv_i($form->{business_id}));
|
| 667 | 680 |
} |
| 668 | 681 |
|
| 682 |
my ($cvar_where, @cvar_values) = CVar->build_filter_query('module' => 'CT',
|
|
| 683 |
'trans_id_field' => 'ct.id', |
|
| 684 |
'filter' => $form); |
|
| 685 |
|
|
| 686 |
if ($cvar_where) {
|
|
| 687 |
$where .= qq| AND ($cvar_where)|; |
|
| 688 |
push @values, @cvar_values; |
|
| 689 |
} |
|
| 690 |
|
|
| 669 | 691 |
my $query = |
| 670 | 692 |
qq|SELECT ct.*, b.description AS business | . |
| 671 | 693 |
qq|FROM $cv ct | . |
Auch abrufbar als: Unified diff
Implementation des Features "Benutzerdefinierte Variablen für Kunden- und Lieferantenstammdaten".