map { $form->{$_} = $ref->{$_} } keys %$ref;
+ # remove any trailing whitespace
+ $form->{curr} =~ s/\s*$//;
+
$sth->finish;
if ( $form->{salesman_id} ) {
my $query =
$form->{klass} = 0 unless ($form->{klass});
# connect to database
- my $dbh = $form->dbconnect_noauto($myconfig);
+ my $dbh = $form->get_standard_dbh;
map( {
$form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
qq|taxzone_id = ?, | .
qq|user_password = ?, | .
qq|c_vendor_id = ?, | .
- qq|klass = ? | .
+ qq|klass = ?, | .
+ qq|curr = ? | .
qq|WHERE id = ?|;
my @values = (
$form->{customernumber},
$form->{user_password},
$form->{c_vendor_id},
conv_i($form->{klass}),
+ substr($form->{currency}, 0, 3),
$form->{id}
);
do_query( $form, $dbh, $query, @values );
'always_valid' => 1);
my $rc = $dbh->commit();
- $dbh->disconnect();
$main::lxdebug->leave_sub();
return $rc;
$form->{taxzone_id} *= 1;
# connect to database
- my $dbh = $form->dbconnect_noauto($myconfig);
+ my $dbh = $form->get_standard_dbh;
map( {
$form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
qq| language_id = ?, | .
qq| username = ?, | .
qq| user_password = ?, | .
- qq| v_customer_id = ? | .
+ qq| v_customer_id = ?, | .
+ qq| curr = ? | .
qq|WHERE id = ?|;
my @values = (
$form->{vendornumber},
$form->{username},
$form->{user_password},
$form->{v_customer_id},
+ substr($form->{currency}, 0, 3),
$form->{id}
);
do_query($form, $dbh, $query, @values);
'always_valid' => 1);
my $rc = $dbh->commit();
- $dbh->disconnect();
$main::lxdebug->leave_sub();
return $rc;
$form->{sort} = $sortorder;
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
- if ($sortorder ne 'id' && 1 >= scalar grep { $form->{$_} } qw(l_ordnumber l_quonumber l_invnumber)) {
+ if ($sortorder !~ /(business|id)/ && 1 >= scalar grep { $form->{$_} } qw(l_ordnumber l_quonumber l_invnumber )) {
$sortorder = "lower($sortorder) ${sortdir}";
} else {
$sortorder .= " ${sortdir}";
push(@values, conv_i($form->{business_id}));
}
+ # Nur Kunden finden, bei denen ich selber der Verkäufer bin
+ # Gilt nicht für Lieferanten
+ if ($cv eq 'customer' && !$main::auth->assert('customer_vendor_all_edit', 1)) {
+ $where .= qq| AND ct.salesman_id = (select id from employee where login= ?)|;
+ push(@values, $form->{login});
+ }
+
my ($cvar_where, @cvar_values) = CVar->build_filter_query('module' => 'CT',
'trans_id_field' => 'ct.id',
'filter' => $form);
$main::lxdebug->enter_sub();
my ( $self, $myconfig, $form ) = @_;
+
+ die 'Missing argument: cp_id' unless $::form->{cp_id};
+
my $dbh = $form->dbconnect($myconfig);
my $query =
qq|SELECT * FROM contacts c | .
$main::lxdebug->leave_sub();
}
+# TODO: remove in 2.7.0 stable
sub delete_shipto {
$main::lxdebug->enter_sub();
my %myconfig = %main::myconfig;
my $dbh = $form->get_standard_dbh(\%myconfig);
- do_query($form, $dbh, qq|UPDATE contacts SET cp_cv_id = NULL WHERE cp_id = ?|, $shipto_id);
+ do_query($form, $dbh, qq|UPDATE shipto SET trans_id = NULL WHERE shipto_id = ?|, $shipto_id);
+
+ $dbh->commit();
+
+ $main::lxdebug->leave_sub();
+}
+
+# TODO: remove in 2.7.0 stable
+sub delete_contact {
+ $main::lxdebug->enter_sub();
+
+ my $self = shift;
+ my $cp_id = shift;
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $dbh = $form->get_standard_dbh(\%myconfig);
+
+ do_query($form, $dbh, qq|UPDATE contacts SET cp_cv_id = NULL WHERE cp_id = ?|, $cp_id);
$dbh->commit();