projekt kivitendo

  map { ($form->{AR_amounts}{"amount_$_"}) = split /--/, $form->{"AR_amount_$_"} } 1 .. $form->{rowcount};

  $form->{AR_amounts}{receivables} = $form->{ARselected};

  $form->{AR}{receivables}         = $form->{ARselected};

                     VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?, ?, ?, ?, (SELECT c.link FROM chart c WHERE c.accno = ?))|;

                 VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?),

                  WHERE chart_id= (SELECT id

                                   FROM chart

                                   WHERE accno = ?)

                 (SELECT c.link FROM chart c WHERE c.accno = ?))|;

    @values = (conv_i($form->{id}), $form->{AR_amounts}{receivables}, conv_i($form->{receivables}), conv_date($form->{transdate}),

                $form->{AR_amounts}{receivables}, $form->{AR_amounts}{receivables}, conv_date($form->{transdate}), $form->{AR_amounts}{receivables});

                     VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?),

                      WHERE chart_id= (SELECT id

                                       FROM chart

                                       WHERE accno = ?)

                     (SELECT c.link FROM chart c WHERE c.accno = ?))|;

        @values = (conv_i($form->{id}), $form->{AR}{receivables}, $amount, conv_date($form->{"datepaid_$i"}), $project_id, $form->{AR}{receivables}, $form->{AR}{receivables}, conv_date($form->{"datepaid_$i"}),

        $form->{AR}{receivables});

  # Get the AR accno (which is normally done by Form::create_links()).

    qq|SELECT c.accno

  ($form->{ARselected}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{id}));

          }

          $form->{"${key}_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";

          if ($akey eq "AR") {

            $form->{ARselected} = $form->{acc_trans}{$key}->[$i-1]->{accno};

          } elsif ($akey eq "amount") {

            $form->{"${key}_$k"}   = $form->{acc_trans}{$key}->[$i-1]->{accno} . "--" . $form->{acc_trans}{$key}->[$i-1]->{id};

      SELECT c.accno, c.description, c.link, c.taxkey_id, tk2.tax_id

    $query = qq|SELECT c.accno, c.description, c.link, c.taxkey_id, tk.tax_id

           a.acc_trans_id, a.source, a.amount, a.memo, a.transdate, a.gldate, a.cleared, a.project_id, a.taxkey,

  # setup last accounts used for this customer

  if (!$form->{id} && $form->{type} !~ /_(order|quotation)/) {

    $query =

      qq|SELECT c.id, c.accno, c.description, c.link, c.category

         FROM chart c

         JOIN acc_trans ac ON (ac.chart_id = c.id)

         JOIN ar a ON (a.id = ac.trans_id)

         WHERE a.customer_id = ?

           AND NOT (c.link LIKE '%_tax%' OR c.link LIKE '%_paid%')

           AND a.id IN (SELECT max(a2.id) FROM ar a2 WHERE a2.customer_id = ?)|;

    $sth = prepare_execute_query($form, $dbh, $query, $cid, $cid);

    my $i = 0;

    while ($ref = $sth->fetchrow_hashref('NAME_lc')) {

      if ($ref->{category} eq 'I') {

        $i++;

        $form->{"AR_amount_$i"} = "$ref->{accno}--$ref->{description}";

        if ($form->{initial_transdate}) {

          my $tax_query =

            qq|SELECT tk.tax_id, t.rate

               FROM taxkeys tk

               LEFT JOIN tax t ON tk.tax_id = t.id

               WHERE (tk.chart_id = ?) AND (startdate <= date(?))

               ORDER BY tk.startdate DESC

               LIMIT 1|;

          my ($tax_id, $rate) =

            selectrow_query($form, $dbh, $tax_query, $ref->{id},

                            $form->{initial_transdate});

          $form->{"taxchart_$i"} = "${tax_id}--${rate}";

        }

      }

      if ($ref->{category} eq 'A') {

        $form->{ARselected} = $form->{AR_1} = $ref->{accno};

      }

    }

    $sth->finish;

    $form->{rowcount} = $i if ($i && !$form->{type});

  }

  my ($ARselected);

  $form->{javascript} = qq|<script type="text/javascript">

  <!--

  function setTaxkey(accno, row) {

    var taxkey = accno.options[accno.selectedIndex].value;

    var reg = /--([0-9]*)/;

    var found = reg.exec(taxkey);

    var index = found[1];

    index = parseInt(index);

    var tax = 'taxchart_' + row;

    for (var i = 0; i < document.getElementById(tax).options.length; ++i) {

      var reg2 = new RegExp("^"+ index, "");

      if (reg2.exec(document.getElementById(tax).options[i].value)) {

        document.getElementById(tax).options[i].selected = true;

        break;

      }

    }

  };

  //-->

  </script>|;

  # show history button js

  $form->{javascript} .= qq|<script type="text/javascript" src="js/show_history.js"></script>|;

  #/show history button js

  my (@AR_amount_values);

  my (@AR_values);

  my (@AR_paid_values);

  my %chart_labels;

  my %charts;

  my $taxchart_init;

      $taxchart_init = $item->{tax_id} if ($taxchart_init eq "");

      my $key = "$item->{accno}--$item->{tax_id}";

      push(@AR_amount_values, $key);

    } elsif ($item->{link_split}{AR}) {

      push(@AR_values, $item->{accno});

    # weirdness for AR_amount

    $chart_labels{$item->{accno}} = "$item->{accno}--$item->{description}";

    $chart_labels{"$item->{accno}--$item->{tax_id}"} = "$item->{accno}--$item->{description}";

    $charts{$item->{accno}} = $item;

  }

  my %taxchart_labels = ();

  my @taxchart_values = ();

  my %taxcharts = ();

  foreach my $item (@{ $form->{ALL_TAXCHARTS} }) {

    my $key = "$item->{id}--$item->{rate}";

    $taxchart_init = $key if ($taxchart_init eq $item->{id});

    push(@taxchart_values, $key);

    $taxchart_labels{$key} = "$item->{taxdescription} " . ($item->{rate} * 100) . ' %';

    $taxcharts{$item->{id}} = $item;

  $form->{javascript} .=

    qq|<script type="text/javascript" src="js/show_vc_details.js"></script>| .

    qq|<script type="text/javascript" src="js/follow_up.js"></script>| .

    qq|<script type="text/javascript" src="js/kivi.Draft.js"></script>|;

#  $amount  = $locale->text('Amount');

#  $project = $locale->text('Project');

    my $selected_accno_full;

    my ($accno_row) = split(/--/, $form->{"AR_amount_$i"});

    my $item = $charts{$accno_row};

    $selected_accno_full = "$item->{accno}--$item->{tax_id}";

    my $selected_taxchart = $form->{"taxchart_$i"};

    my ($selected_accno, $selected_tax_id) = split(/--/, $selected_accno_full);

    my ($previous_accno, $previous_tax_id) = split(/--/, $form->{"previous_AR_amount_$i"});

    if ($previous_accno &&

        ($previous_accno eq $selected_accno) &&

        ($previous_tax_id ne $selected_tax_id)) {

      my $item = $taxcharts{$selected_tax_id};

      $selected_taxchart = "$item->{id}--$item->{rate}";

    if (!$form->{"taxchart_$i"}) {

      if ($form->{"AR_amount_$i"} =~ m/.--./) {

        $selected_taxchart = join '--', map { ($_->{id}, $_->{rate}) } first { $_->{id} == $item->{tax_id} } @{ $form->{ALL_TAXCHARTS} };

      } else {

        $selected_taxchart = $taxchart_init;

      }

    }

      NTI($cgi->popup_menu('-name' => "AR_amount_$i",

                           '-id' => "AR_amount_$i",

                           '-style' => 'width:400px',

                           '-onChange' => "setTaxkey(this, $i)",

                           '-values' => \@AR_amount_values,

                           '-labels' => \%chart_labels,

                           '-default' => $selected_accno_full))

      . $cgi->hidden('-name' => "previous_AR_amount_$i",

                     '-default' => $selected_accno_full);

  $ARselected =

    NTI($cgi->popup_menu('-name' => "ARselected", '-id' => "ARselected",

                         '-style' => 'width:400px',

                         '-values' => \@AR_values, '-labels' => \%chart_labels,

                         '-default' => $form->{ARselected}));

                           '-labels' => \%chart_labels,

    ARselected           => $ARselected,

  my %saved_variables = map +( $_ => $form->{$_} ), qw(AR AR_amount_1 taxchart_1 customer_id notes);

  $form->{AR} = $saved_variables{AR};

  if ($saved_variables{AR_amount_1} =~ m/.--./) {

    map { $form->{$_} = $saved_variables{$_} } qw(AR_amount_1 taxchart_1);

  } else {

    delete $form->{taxchart_1};

  }

[%- USE LxERP %]

    <select id='customer' name="customer" onchange="document.getElementById('update_button').click();" class="initial_focus">[% selectcustomer %]</select>

    <input id='customer' name=customer value="[% customer | html %]" size=35 class="initial_focus">

          <td>[% ARselected %]</td>