projekt kivitendo

    # extract accno

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

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

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

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

                 $form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $taxkey, $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f', conv_i($form->{"tax_id_$i"}), $accno);

           a.taxkey, t.rate AS taxrate, t.id,

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(charts));

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

  my @ids      = map { $_->{id} } @{ $params{charts} };

  if (!@ids) {

    $main::lxdebug->leave_sub();

    return;

  }

                 WHERE chart_id IN (| . join(', ', ('?') x scalar(@ids)) . qq|)

  my %balances = selectall_as_map($form, $dbh, $query, 'chart_id', 'sum', @ids);

  foreach my $chart (@{ $params{charts} }) {

    $chart->{balance} = $balances{ $chart->{id} } || 0;

  }

  $main::lxdebug->leave_sub();

sub get_tax_dropdown {

  my ($self, $accno) = @_;

  my $myconfig = \%main::myconfig;

  my $form = $main::form;

  my $dbh = $form->get_standard_dbh($myconfig);

  my $query = qq|SELECT category FROM chart WHERE accno = ?|;

  my ($category) = selectrow_query($form, $dbh, $query, $accno);

  $query = qq|SELECT * FROM tax WHERE chart_categories like '%$category%' order by taxkey, rate|;

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

  my @tax_accounts = ();

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

    push(@tax_accounts, $ref);

  }

  return @tax_accounts;

      $form->{"accno_$i"} = "$ref->{accno}--$ref->{tax_id}";

  my %chart_labels = ();

  my @chart_values = ();

  my %charts = ();

  my $taxchart_init;

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

    if ($item->{charttype} eq 'H'){ # skip headings

      next;

    }

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

    $taxchart_init = $item->{tax_id} unless (@chart_values);

    push(@chart_values, $key);

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

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

  }

    my $selected_accno_full;

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

    my %taxcharts = ();

    my $filter_accno;

    $filter_accno = $::form->{ALL_CHARTS}[0]->{accno};

    $filter_accno = $selected_accno if (!$init and $i < $form->{rowcount});

    foreach my $item ( GL->get_tax_dropdown($filter_accno) ) {

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

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

      push(@taxchart_values, $key);

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

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

    }

    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_accno      = '' if ($init);

    $selected_taxchart ||= $taxchart_init;

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

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

                           '-onChange' => "updateTaxes($i);",

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

                           '-values' => \@chart_values,

                           '-labels' => \%chart_labels,

                           '-default' => $selected_accno_full))

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

                     '-default' => $selected_accno_full)

    <td id="chart_balance_$i" align="right">&nbsp;</td>

  GL->get_chart_balances('charts' => $::form->{ALL_CHARTS});

    $::request->{layout}->focus("#accno_$::form->{rowcount}");

  $main::lxdebug->enter_sub();

  my $form = $main::form;

  my @tax_accounts = GL->get_tax_dropdown($form->{accno});

  foreach my $item (@tax_accounts) {

    $item->{taxdescription} = $::locale->{iconv_utf8}->convert($item->{taxdescription});

    $item->{taxdescription} .= ' ' . $form->round_amount($item->{rate} * 100);

  }

  $form->{TAX_ACCOUNTS} = [ @tax_accounts ];

  print $form->ajax_response_header, $form->parse_html_template("gl/update_tax_accounts");

  $main::lxdebug->leave_sub();

function updateTaxes(row)

{

  var accno  = document.getElementById('accno_' + row);

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

  var reg = /^(.*?)--(\d*)$/;

  var found = reg.exec(taxkey);

  var account = found[1];

  var default_tax_id = found[2];

  $.ajax({

    url: 'gl.pl?action=get_tax_dropdown',

    data: { accno: account,

            selected_tax_id: default_tax_id},

    dataType: 'html',

    success: function (new_html) {

                                $("#taxchart_" + row).html(new_html);

                              },

  });

};

[%- PROCESS 'gl/form_header_chart_balances_js.html' %]

[% USE HTML %]

[% USE JavaScript %]

[% USE LxERP %]

<script type="text/javascript">

 <!--

var chart_balances = new Array();

[% FOREACH chart = ALL_CHARTS %]

chart_balances[[% loop.count - 1 %]] = '[% JavaScript.escape(LxERP.format_amount(chart.balance, 2, 0, 'DRCR')) %]';

[%- END %]

function show_chart_balance(obj) {

  var row = $(obj).attr('name').replace(/.*_/, '');

  var idx = $('#accno_' + row).prop('selectedIndex');

  $('#chart_balance_' + row).html(chart_balances[idx]);

}

$(document).ready(function() {

  [%- SET row=0 %]

  [%- WHILE row < rowcount %]

   [%- SET row=row + 1 %]

   $('#accno_[% row %]').change(function() { show_chart_balance(this); });

   show_chart_balance($('#accno_[% row %]'));

  [%- END %]

});

-->

</script>

[% USE L %]

<option value='[% row.id %]--[% row.rate %]'[% IF row.id == selected_tax_id%] selected[% END %]>[% row.taxdescription %] %</option>