projekt kivitendo

  for my $i (1 .. $form->{rowcount}) {

    $form->{AP_amounts}{"amount_$i"} =

      (split(/--/, $form->{"AP_amount_$i"}))[0];

  }

  ($form->{AP_amounts}{payables}) = split(/--/, $form->{APselected});

  ($form->{AP_payables})          = split(/--/, $form->{APselected});

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

          qq|  ?, ?, ?, ?, ?,| .

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

        @values = ($form->{id}, $form->{AP_amounts}{"amount_$i"},

                   $form->{AP_amounts}{"amount_$i"});

      qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, | .

      qq|        (SELECT taxkey_id FROM chart WHERE accno = ?),| .

      qq|         WHERE chart_id= (SELECT id | .

      qq|                          FROM chart| .

      qq|                          WHERE accno = ?)| .

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

    @values = ($form->{id}, $form->{AP_amounts}{payables}, $form->{payables},

               conv_date($form->{transdate}), $form->{AP_amounts}{payables}, $form->{AP_amounts}{payables}, conv_date($form->{transdate}),

               $form->{AP_amounts}{payables});

          qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, | .

          qq|        (SELECT taxkey_id FROM chart WHERE accno = ?),| .

          qq|         WHERE chart_id= (SELECT id | .

          qq|                          FROM chart| .

          qq|                          WHERE accno = ?)| .

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

        @values = ($form->{id}, $form->{AP_payables}, $amount,

                   $form->{AP_payables}, $form->{AP_payables}, conv_date($form->{"datepaid_$i"}),

                   $form->{AP_payables});

          }

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

          my $q_description    = quotemeta($form->{acc_trans}{$key}->[$i-1]->{description});

          $form->{"select${key}"} =~

            m/<option value=\"

                ($form->{acc_trans}{$key}->[$i-1]->{accno}--[^\"]*)

              \">

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

              --

              ${q_description}

              <\/option>\n/x;

          $form->{"${key}_$k"} = $1;

          if ($akey eq "AP") {

            $form->{APselected} = $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};

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

    # setup last accounts used

    $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 ap a         ON (a.id = ac.trans_id)

         WHERE (a.vendor_id = ?)

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

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

    my $refs = selectall_hashref_query($form, $dbh, $query, $vid, $vid);

    my $i = 0;

    for $ref (@$refs) {

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

        $i++;

        my ($tax_id, $rate);

        if ($params->{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 <= ?)

                             ORDER BY tk.startdate DESC

                             LIMIT 1|;

          ($tax_id, $rate) = selectrow_query($form, $dbh, $tax_query, $ref->{id}, $params->{initial_transdate});

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

        }

        $params->{"AP_amount_$i"} = "$ref->{accno}--$tax_id";

      }

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

        $params->{APselected} = $params->{AP_1} = $ref->{accno};

      }

    }

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

  }

  my $taxchart_init;

      if ( $taxchart_init eq '' ) {

        $taxchart_init = $item->{tax_id};

      }

      push(@{ $form->{ALL_CHARTS_AP_amount} }, $item);

    }

    elsif ( grep({ $_ eq 'AP' } @{ $item->{link_split} }) ) {

      push(@{ $form->{ALL_CHARTS_AP} }, $item);

    }

    elsif ( grep({ $_ eq 'AP_paid' } @{ $item->{link_split} }) ) {

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

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

      $taxchart_init = $key;

    }

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

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

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

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

    my $selected_accno_full;

    my ($accno_row) = split(/--/, $form->{"AP_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_AP_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}";

    $selected_taxchart = $taxchart_init unless ($form->{"taxchart_$i"});

    $form->{'selected_accno_full_'. $i} = $selected_accno_full;

    $form->{'selected_taxchart_'. $i} = $selected_taxchart;

  $form->{AP_amount_value_title_sub} = sub {

    my $item = shift;

    return [

      $item->{accno} .'--'. $item->{tax_id},

      $item->{accno} .'--'. $item->{description},

    ];

  };

  $form->{APselected_value_title_sub} = sub {

    my $item = shift;

    return [

      $item->{accno},

      $item->{accno} .'--'. $item->{description}

    ];

  };

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

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

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

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

  } else {

    delete $form->{taxchart_1};

  }

  my ($debitaccno,    $debittaxkey)    = split /--/, $form->{AP_amountselected};

  my ($taxkey,        $NULL)           = split /--/, $form->{taxchartselected};

  my ($payablesaccno, $payablestaxkey) = split /--/, $form->{APselected};

#  $form->{AP_amount_1}  = $debitaccno;

  $form->{AP_payables}  = $payablesaccno;

  $form->{taxkey}       = $taxkey;

[%- USE LxERP %]

<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>

<script type="text/javascript" src="js/show_history.js"></script>

                    <select name="vendor" onchange="document.getElementById('update_button').click();">[% selectvendor %]</select>

                    <input name=vendor value="[% vendor | html %]" size="35">

              [% selected_accno_full = "selected_accno_full_"_ i %]

              [% L.select_tag('AP_amount_'_ i, ALL_CHARTS_AP_amount, value_title_sub = \AP_amount_value_title_sub, onchange = 'setTaxkey(this, '_ i _')', default = $selected_accno_full) %]

              <input type="hidden" name="previous_AP_amount_[% i %]" value="[% $selected_accno_full %]">

            [% L.select_tag('APselected', ALL_CHARTS_AP, value_title_sub = \APselected_value_title_sub, default = APselected) %]