- if (!$form->{customernumber} && $form->{business}) {
- $form->{customernumber} =
- $form->update_business($myconfig, $form->{business}, $dbh);
- }
- if (!$form->{customernumber}) {
- $form->{customernumber} =
- $form->update_defaults($myconfig, "customernumber", $dbh);
- }
-
- $query = qq|SELECT c.id FROM customer c WHERE c.customernumber = ?|;
- ($f_id) = selectrow_query($form, $dbh, $query, $form->{customernumber});
- if ($f_id ne "") {
- $main::lxdebug->leave_sub();
- return 3;
- }
-
- $query = qq|SELECT nextval('id')|;
- ($form->{id}) = selectrow_query($form, $dbh, $query);
-
- $query = qq|INSERT INTO customer (id, name) VALUES (?, '')|;
- do_query($form, $dbh, $query, $form->{id});
- }
-
- $query = qq|UPDATE customer SET | .
- qq|customernumber = ?, | .
- qq|name = ?, | .
- qq|greeting = ?, | .
- qq|department_1 = ?, | .
- qq|department_2 = ?, | .
- qq|street = ?, | .
- qq|zipcode = ?, | .
- qq|city = ?, | .
- qq|country = ?, | .
- qq|homepage = ?, | .
- qq|contact = ?, | .
- qq|phone = ?, | .
- qq|fax = ?, | .
- qq|email = ?, | .
- qq|cc = ?, | .
- qq|bcc = ?, | .
- qq|notes = ?, | .
- qq|discount = ?, | .
- qq|creditlimit = ?, | .
- qq|terms = ?, | .
- qq|business_id = ?, | .
- qq|taxnumber = ?, | .
- qq|sic_code = ?, | .
- qq|language = ?, | .
- qq|account_number = ?, | .
- qq|bank_code = ?, | .
- qq|bank = ?, | .
- qq|obsolete = ?, | .
- qq|ustid = ?, | .
- qq|username = ?, | .
- qq|salesman_id = ?, | .
- qq|language_id = ?, | .
- qq|payment_id = ?, | .
- qq|taxzone_id = ?, | .
- qq|user_password = ?, | .
- qq|c_vendor_id = ?, | .
- qq|klass = ? | .
- qq|WHERE id = ?|;
- my @values = (
- $form->{customernumber},
- $form->{name},
- $form->{greeting},
- $form->{department_1},
- $form->{department_2},
- $form->{street},
- $form->{zipcode},
- $form->{city},
- $form->{country},
- $form->{homepage},
- $form->{contact},
- $form->{phone},
- $form->{fax},
- $form->{email},
- $form->{cc},
- $form->{bcc},
- $form->{notes},
- $form->{discount},
- $form->{creditlimit},
- conv_i($form->{terms}),
- conv_i($form->{business}),
- $form->{taxnumber},
- $form->{sic},
- $form->{language},
- $form->{account_number},
- $form->{bank_code},
- $form->{bank},
- $form->{obsolete} ? 't' : 'f',
- $form->{ustid},
- $form->{username},
- conv_i($form->{salesman_id}),
- conv_i($form->{language_id}),
- conv_i($form->{payment_id}),
- conv_i($form->{taxzone_id}),
- $form->{user_password},
- $form->{c_vendor_id},
- conv_i($form->{klass}),
- $form->{id}
- );
- do_query( $form, $dbh, $query, @values );
-
- $query = undef;
- if ( $form->{cp_id} ) {
- $query = qq|UPDATE contacts SET | .
- qq|cp_greeting = ?, | .
- qq|cp_title = ?, | .
- qq|cp_givenname = ?, | .
- qq|cp_name = ?, | .
- qq|cp_email = ?, | .
- qq|cp_phone1 = ?, | .
- qq|cp_phone2 = ?, | .
- qq|cp_abteilung = ?, | .
- qq|cp_fax = ?, | .
- qq|cp_mobile1 = ?, | .
- qq|cp_mobile2 = ?, | .
- qq|cp_satphone = ?, | .
- qq|cp_satfax = ?, | .
- qq|cp_project = ?, | .
- qq|cp_privatphone = ?, | .
- qq|cp_privatemail = ?, | .
- qq|cp_birthday = ? | .
- qq|WHERE cp_id = ?|;
- @values = (
- $form->{cp_greeting},
- $form->{cp_title},
- $form->{cp_givenname},
- $form->{cp_name},
- $form->{cp_email},
- $form->{cp_phone1},
- $form->{cp_phone2},
- $form->{cp_abteilung},
- $form->{cp_fax},
- $form->{cp_mobile1},
- $form->{cp_mobile2},
- $form->{cp_satphone},
- $form->{cp_satfax},
- $form->{cp_project},
- $form->{cp_privatphone},
- $form->{cp_privatemail},
- $form->{cp_birthday},
- $form->{cp_id}
- );
- } elsif ( $form->{cp_name} || $form->{cp_givenname} ) {
- $query =
- qq|INSERT INTO contacts ( cp_cv_id, cp_greeting, cp_title, cp_givenname, | .
- qq| cp_name, cp_email, cp_phone1, cp_phone2, cp_abteilung, cp_fax, cp_mobile1, | .
- qq| cp_mobile2, cp_satphone, cp_satfax, cp_project, cp_privatphone, cp_privatemail, | .
- qq| cp_birthday) | .
- qq|VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
- @values = (
- $form->{id},
- $form->{cp_greeting},
- $form->{cp_title},
- $form->{cp_givenname},
- $form->{cp_name},
- $form->{cp_email},
- $form->{cp_phone1},
- $form->{cp_phone2},
- $form->{cp_abteilung},
- $form->{cp_fax},
- $form->{cp_mobile1},
- $form->{cp_mobile2},
- $form->{cp_satphone},
- $form->{cp_satfax},
- $form->{cp_project},
- $form->{cp_privatphone},
- $form->{cp_privatemail},
- $form->{cp_birthday}
- );