projekt kivitendo

  my ($title, $readonly, $exchangerate, $rows);

  my ($notes, $department, $customer, $employee, $amount, $project);

  my ($ARselected);

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

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

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

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

    project_labels       => \%project_labels,

    rows                 => $rows,

    ARselected           => $ARselected,

    title_str            => $title,

    follow_up_trans_info => $follow_up_trans_info,

  });

  my $cgi      = $::request->{cgi};

  my ($customer, $department);

  # setup customer selection

  $form->all_vc(\%myconfig, "customer", "AR");

  $::form->{title} = $::locale->text('List Transactions') . " - " . $::locale->text('Account') . " $::form->{accno}";

  $::form->header;

  print $::form->parse_html_template('ca/list', {

    year => DateTime->today->year,

    cash => $::instance_conf->get_accounting_method eq 'cash',

  });

  $auth->assert('cash');

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

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

    map { $form->{"addr$_"} = "" } (1 .. 4);

  $form->header;

  $arap = lc $form->{ARAP};

  print $::form->parse_html_template('cp/form_header', {

    is_customer => $form->{vc}   eq 'customer',

    is_receipt  => $form->{type} eq 'receipt',

    arap        => $arap,

    vccontent   => $vc,

  });

  $form->header();

  print $form->parse_html_template("dunning/search");

  $main::lxdebug->leave_sub();

  );

  $::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);

  $::form->header;

  print $::form->parse_html_template('gl/search', {

    department_label => sub { ("$_[0]{description}--$_[0]{id}")x2 },

    employee_label => sub { "$_[0]{id}--$_[0]{name}" },

  });

  $::form->get_lists("projects" => { "key" => "ALL_PROJECTS", "all" => 1 });

  my $is_projects         = $::form->{report} eq "projects";

  my $is_income_statement = $::form->{report} eq "income_statement";

  my $is_bwa              = $::form->{report} eq "bwa";

    vc                  => $vc,

    label               => $label,

    year                => DateTime->today->year,

    nextsub             => $nextsub,

    accrual             => $::instance_conf->get_accounting_method ne 'cash',

    cash                => $::instance_conf->get_accounting_method eq 'cash',

  $form->{jsscript} = 1;

#  $form->{fokus}   = "partnumber";

  $form->{title}   = $locale->text("Report about warehouse contents");

  $form->header();

   <br>

   <input class=submit type=submit name=action value="[% 'Continue' | $T8 %]">

  </form>

[%- USE LxERP %]

[%- USE T8 %]

[%- USE L %]

<script type="text/javascript">

  <!--

  function setTaxkey(row) {

[% IF creditwarning != '' %]

       alert('[% 'Credit Limit exceeded!!!' | $T8 %]');

[% ELSE %]

[% END %]

     });

     function set_duedate() {

[% ELSIF creditwarning != '' %]

       alert('[% 'Credit Limit exceeded!!!' | $T8 %]');

[% ELSE %]

[% END %]

     });

     function set_duedate() {