projekt kivitendo

sub get_openvc {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  my $dbh = SL::DB->client->dbh;

  my $arap = ($form->{vc} eq 'customer') ? 'ar' : 'ap';

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

  my $query =

    qq|SELECT count(*) | .

    qq|FROM $vc ct, $arap a | .

    qq|WHERE (a.${vc}_id = ct.id) AND (a.amount != a.paid)|;

  my ($count) = selectrow_query($form, $dbh, $query);

  # build selection list

  if ($count < $myconfig->{vclimit}) {

    $query =

      qq|SELECT DISTINCT ct.id, ct.name | .

      qq|FROM $vc ct, $arap a | .

      qq|WHERE (a.${vc}_id = ct.id) AND (a.amount != a.paid) | .

      qq|ORDER BY ct.name|;

    $form->{"all_$form->{vc}"} = selectall_hashref_query($form, $dbh, $query);

  }

  $main::lxdebug->leave_sub();

}

  # setup customer/vendor selection for open invoices

  if ($form->{all_vc}) {

    # Dieser Zweig funktioniert derzeit NIE. Ggf. ganz raus oder

    # alle offenen Zahlungen wieder korrekt anzeigen. jb 12.10.2010

    $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});

  } else {

    CP->get_openvc(\%myconfig, \%$form);

  }

  # Auswahlliste für vc zusammenbauen

  # Erweiterung für schliessende option und erweiterung um value

  # für bugfix 1771 (doppelte Leerzeichen werden nicht 'gepostet')

  $form->{"select$form->{vc}"} = "";

  if ($form->{"all_$form->{vc}"}) {

    $form->{"select$form->{vc}"} .= "<option value=\"\"></option>\n";

    # s.o. jb 12.10.2010

    $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};

    # hotfix for 2450. TODO remove legacy code and use L

    map { $form->{"select$form->{vc}"} .= "<option value=\"" . H($_->{name}) . "--$_->{id}\">" . H($_->{name}) . "--$_->{id}</option>\n" }

      @{ $form->{"all_$form->{vc}"} };

  }

  my ($vc, $arap, $exchangerate);

  if ($form->{ $form->{vc} } eq "") {

  # sometimes it happens that values in customer arrive without the signs '--'

  # but in order to select the right option field we need values with '--'

  if ($form->{vc} eq "customer" && $form->{"all_$form->{vc}"}){

    my ($customername) = split /--/, $form->{ $form->{vc} };

    $form->{ $form->{vc} } = $customername . "--" . $form->{customer_id};

  }

  for my $item ($form->{vc}, "account", "currency", $form->{ARAP}) {

  $vc =

    ($form->{"select$form->{vc}"})

    ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>|

    : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|;

  $form->{openinvoices} = $form->{all_vc} ? "" : 1;

    vccontent   => $vc,

  my ($new_name_selected) = @_;

  my ($buysell, $newvc, $updated, $exchangerate, $amount);

  # if we switched to all_vc

  # funktioniert derzeit nicht 12.10.2010 jb

  if ($form->{all_vc} ne $form->{oldall_vc}) {

    $form->{openinvoices} = ($form->{all_vc}) ? 0 : 1;

    $form->{"select$form->{vc}"} = "";

    if ($form->{all_vc}) {

      $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});

      if ($form->{"all_$form->{vc}"}) {

        map {

          $form->{"select$form->{vc}"} .=

            "<option>$_->{name}--$_->{id}\n"

        } @{ $form->{"all_$form->{vc}"} };

      }

    } else {  # ab hier wieder ausgeführter code (s.o.):

      CP->get_openvc(\%myconfig, \%$form);

      if ($form->{"all_$form->{vc}"}) {

        $newvc =

          qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|;

        map {

          $form->{"select$form->{vc}"} .=

            "<option>$_->{name}--$_->{id}\n"

        } @{ $form->{"all_$form->{vc}"} };

      }

      # if the name is not the same

      if ($form->{"select$form->{vc}"} !~ /$form->{$form->{vc}}/) {

        $form->{ $form->{vc} } = $newvc;

      }

    }

  }

  # search by customernumber

  # the customernumber has to be correct otherwise nothing is found

  if ($form->{vc} eq 'customer' and $form->{customernumber} and $form->{ARAP} eq 'AR') {

    $form->{open} ='Y'; # only open invoices

    # ar_transactions automatically searches by $form->{customer_id} or else

    # $form->{customer} if available, and these variables will always be set

    # so we have to empty these values first

    $form->{customer_id} = '';

    $form->{customer} = '';

    AR->ar_transactions(\%myconfig, \%$form);

    # Here we just take the first returned value even if the custumernumber

    # may not be unique

    $form->{customer} = $form->{AR}[0]{name};

    $form->{customer_id} = $form->{AR}[0]{customer_id};

  }

        $form->{$form->{vc}} = $i->{name};

        #$form->{"old${form->{vc}"} = $i->{customer_id};

        $form->{$form->{vc}} = $form->{AR}[0]{name};

      $form->{$form->{vc}} = $form->{AP}[0]{name};

  if ( $form->{customer_id} and ($form->{invnumber} or $form->{customernumber}) ) {

    # we already know the exact customer_id, so fill $form with customer data

    $updated = 1;

  } else {

    # check_name is called with "customer" or "vendor" and otherwise uses contents of $form

    # check_name also runs get_customer/get_vendor

    $updated = &check_name($form->{vc});

  };

  if ($new_name_selected || $updated) {

    # get open invoices from ar/ap using $form->{vc} and a.${vc}_id, i.e. customer_id

    CP->get_openinvoices(\%myconfig, \%$form);

    ($newvc) = split /--/, $form->{ $form->{vc} };

    $form->{"old$form->{vc}"} = qq|$newvc--$form->{"$form->{vc}_id"}|;

    $updated = 1;

  if ($form->{currency} ne $form->{oldcurrency}) {

    $form->{oldcurrency} = $form->{currency};

    if (!$updated) {

      CP->get_openinvoices(\%myconfig, \%$form);

      $updated = 1;

    }

  }

  if ($updated) {

  &list_invoices;

  &check_name($form->{vc});

[%- USE LxERP %]

<table width=100%>

          <td>[% vccontent %]</td>

         [% IF vc == 'customer' %]

           [% L.hidden_tag('selectcustomer', selectcustomer) %]

           [% L.hidden_tag('customer_id', customer_id) %]

           [% L.hidden_tag('oldcustomer', oldcustomer) %]

          [% ELSE %]

           [% L.hidden_tag('selectvendor', selectvendor) %]

           [% L.hidden_tag('vendor_id', vendor_id) %]

           [% L.hidden_tag('oldvendor', oldvendor) %]

          [% END %]

        </tr>

        [% IF vc == 'customer' %]

        <tr>

          <th align=right>[% 'Customer Number' | $T8 %]</th>

          <td><input name="customernumber" size="35"></td>

        [% END %]