my ($self, $myconfig, $form, $params) = @_;
$params = $form unless defined $params && ref $params eq "HASH";
- $main::lxdebug->message(0, Dumper($params));
# connect to database
my $dbh = $form->dbconnect($myconfig);
}
my $query =
qq|SELECT
- v.id, v.name AS vendor, v.creditlimit, v.terms, v.notes AS intnotes,
+ v.name AS vendor, v.creditlimit, v.terms, v.notes AS intnotes,
v.email, v.cc, v.bcc, v.language_id, v.payment_id,
v.street, v.zipcode, v.city, v.country, v.taxzone_id,
$duedate + COALESCE(pt.terms_netto, 0) AS duedate,
map { $form->{$_} = $ref->{$_} } keys %$ref;
+ my $custom_variables = CVar->get_custom_variables('dbh' => $dbh,
+ 'module' => 'CT',
+ 'trans_id' => $form->{vendor_id});
+ map { $form->{"vc_cvar_$_->{name}"} = $_->{value} } @{ $custom_variables };
+
$dbh->disconnect();
$main::lxdebug->leave_sub();