use SL::FU;
use SL::Notes;
+use strict;
+
sub get_tuple {
$main::lxdebug->enter_sub();
qq|SELECT s.shiptoname, i.qty $qty_sign, | .
qq| ${arap}.id, ${arap}.transdate, ${arap}.invnumber, ${arap}.ordnumber, | .
qq| i.description, i.unit, i.sellprice, | .
- qq| oe.id AS oe_id | .
+ qq| oe.id AS oe_id, invoice | .
qq|FROM $arap | .
qq|LEFT JOIN shipto s ON | .
($arap eq "ar"
my $table = $params{vc} eq 'customer' ? 'customer' : 'vendor';
my @ids = ref $params{id} eq 'ARRAY' ? @{ $params{id} } : ($params{id});
- my $placeholders = ('?') x scalar @ids;
+ my $placeholders = join ", ", ('?') x scalar @ids;
my $query = qq|SELECT id, name, account_number, bank, bank_code, iban, bic
FROM ${table}
WHERE id IN (${placeholders})|;