projekt kivitendo

  $form->{vc} = $vc if ref($self) =~ m{^SL::DB::(?:.*Invoice|Order)};

  my @vc_fields          = (qw(account_number bank bank_code bic business city contact country creditlimit

                               payment_terms phone street taxnumber ustid zipcode),

                            "${vc}number",

                            ($vc eq 'customer')? 'c_vendor_id': 'v_customer_id');

sub _sort_spec {

  return ( default => [ 'name', 1 ],

           columns => { SIMPLE => 'ALL',

                      });

}

    default => [ 'name', 1 ],

    columns => {

      SIMPLE => 'ALL',

                                              name notes phone street taxnumber user_password username ustid v_customer_id vendornumber zipcode)

    });

}

  my $shipto;

  my @values;

                       contact cp_gender phone fax email)) {

    if ($self->{"shipto$item"}) {

      $shipto = 1 if ($self->{$item} ne $self->{"shipto$item"});

                       shiptozipcode = ?,

                       shiptocity = ?,

                       shiptocountry = ?,

                       shiptocontact = ?,

                       shiptocp_gender = ?,

                       shiptophone = ?,

                       shiptozipcode = ? AND

                       shiptocity = ? AND

                       shiptocountry = ? AND

                       shiptocontact = ? AND

                       shiptocp_gender = ? AND

                       shiptophone = ? AND

      if(!$insert_check){

        $query =

          qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2,

                                 shiptocontact, shiptocp_gender, shiptophone, shiptofax, shiptoemail, module)

        do_query($self, $dbh, $query, $id, @values, $module);

      }

    }

      $ref->{street} = $customer->street;

      $ref->{zipcode} = $customer->zipcode;

      $ref->{country} = $customer->country;

    }

    my $contact = SL::DB::Manager::Contact->find_by(cp_id => $::form->{cp_id});

    if ($contact) {

  map { $::form->{$_} = $::form->parse_amount(\%::myconfig, $::form->{$_}) } qw(exchangerate creditlimit creditremaining);

  # get details for customer/vendor

  $::form->{rowcount}--;

                         shiptocontact shiptocp_gender shiptophone shiptofax shiptoemail

                         shiptodepartment_1 shiptodepartment_2);

  my $previous_form = $::auth->save_form_in_session(skip_keys => [ @shipto_vars, qw(header shipto_id) ]);

    id action type media format queued printed emailed title vc discount

    title creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id

    max_dunning_level dunning_amount

    shiptoemail shiptodepartment_1 shiptodepartment_2 message email subject cc bcc taxaccounts cursor_fokus

    convert_from_do_ids convert_from_oe_ids show_details gldate useasnew

  ), @custom_hiddens,

    id action type media format queued printed emailed title vc discount

    title creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id

    max_dunning_level dunning_amount dunning_description

    shiptoemail shiptodepartment_1 shiptodepartment_2  shiptocp_gender message email subject cc bcc taxaccounts cursor_fokus

    convert_from_do_ids convert_from_oe_ids convert_from_ar_ids useasnew

    invoice_id

     qw(id action type vc formname media format proforma queued printed emailed

        title creditlimit creditremaining tradediscount business

        max_dunning_level dunning_amount shiptoname shiptostreet shiptozipcode

        shiptodepartment_1 shiptodepartment_2 shiptoemail shiptocp_gender

        message email subject cc bcc taxpart taxservice taxaccounts cursor_fokus

        show_details useasnew),

   <td>[% HTML.escape(country) %]</td>

  </tr>

  <tr>

   <td align="right">[% 'Contact Person' | $T8 %]</td>

   <td>[% IF greeting %][% HTML.escape(greeting) %] [% END %][% HTML.escape(contact) %]</td>

    <td>[% HTML.escape(row.shiptocountry) %]</td>

   </tr>

   <tr>

    <td align="right">[% 'Contact Person' | $T8 %]</td>

    <td>[% HTML.escape(row.shiptocontact) %]</td>

  <input type="hidden" name="shiptocontact" value="[% HTML.escape(shiptocontact) %]">

  <input type="hidden" name="shiptocp_gender" value="[% HTML.escape(shiptocp_gender) %]">

  <input type="hidden" name="shiptocountry" value="[% HTML.escape(shiptocountry) %]">

  <input type="hidden" name="shiptodepartment_1" value="[% HTML.escape(shiptodepartment_1) %]">

  <input type="hidden" name="shiptodepartment_2" value="[% HTML.escape(shiptodepartment_2) %]">

  <input type="hidden" name="shiptoemail" value="[% HTML.escape(shiptoemail) %]">

      shiptozipcode:      "[% JavaScript.escape(vc_obj.zipcode) %]",

      shiptocity:         "[% JavaScript.escape(vc_obj.city) %]",

      shiptocountry:      "[% JavaScript.escape(vc_obj.country) %]",

      shiptocontact:      "[% JavaScript.escape(vc_obj.contact) %]",

      shiptocp_gender:    "[% JavaScript.escape(vc_obj.cp_gender) %]",

      shiptophone:        "[% JavaScript.escape(vc_obj.phone) %]",

      shiptozipcode:      "[% JavaScript.escape(shipto.shiptozipcode) %]",

      shiptocity:         "[% JavaScript.escape(shipto.shiptocity) %]",

      shiptocountry:      "[% JavaScript.escape(shipto.shiptocountry) %]",

      shiptocontact:      "[% JavaScript.escape(shipto.shiptocontact) %]",

      shiptocp_gender:    "[% JavaScript.escape(shipto.shiptocp_gender) %]",

      shiptophone:        "[% JavaScript.escape(shipto.shiptophone) %]",

    <td>[% HTML.escape(country) %]</td>

    <td>[% L.input_tag("shiptocountry", shiptocountry, "size", "35") %]</td>

   </tr>

   <tr>

    <th align="right" nowrap>[% LxERP.t8('Contact') %]</th>

    <td>[% HTML.escape(contact) %]</td>

    <td valign="top">[% HTML.escape(CFDD_shiptocountry) %]</td>

   </tr>

   <tr>

    <th align="right" valign="top">[% 'Contact' | $T8 %]:</th>

    <td valign="top">[% HTML.escape(CFDD_shiptocontact) %]</td>