projekt kivitendo

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

  $employee->update_attributes(name => $form->{name});

  $user->update_attributes(

    config_values => {

      %{ $user->config_values },

        qq|INSERT INTO ap (id, invnumber, employee_id,currency_id, taxzone_id) | .

        qq|VALUES (?, ?, (SELECT e.id FROM employee e WHERE e.login = ?),

                      (SELECT id FROM currencies WHERE name = ?), (SELECT taxzone_id FROM vendor WHERE id = ?) )|;

    }

  if (!$main::auth->assert('sales_all_edit', 1)) {

    # only show own invoices

    $where .= " AND a.employee_id = (select id from employee where login= ?)";

  } else {

    if ($form->{employee_id}) {

      $where .= " AND a.employee_id = ?";

  # Gilt nicht für Lieferanten

  if ($cv eq 'customer' &&   !$main::auth->assert('customer_vendor_all_edit', 1)) {

    $where .= qq| AND ct.salesman_id = (select em.id from employee em where em.login = ?)|;

  }

  my ($cvar_where, @cvar_values) = CVar->build_filter_query('module'         => 'CT',

  my $msg = t8('No warehouse has been created yet or the quantity of the bins is not configured yet.') . ' ';

    $msg .= t8('You can create warehouses and bins via the menu "System -> Warehouses".');

  } else {

    $msg .= t8('Please ask your administrator to create warehouses and bins.');

}

sub current {

}

sub update_entries_for_authorized_users {

             $dunning_id,       # duedate

             $curr,             # default currency

             sprintf($main::locale->text('Automatically created invoice for fee and interest for dunning %s'), $dunning_id), # notes

  do_query($form, $dbh, $query, @values);

  $query =

  map { $form->{$_} = $ref->{$_} } keys %{ $ref };

  $query = qq|SELECT * FROM employee WHERE login = ?|;

  map { $form->{"employee_${_}"} = $ref->{$_} } keys %{ $ref };

  $query = qq|SELECT * FROM acc_trans WHERE trans_id = ? ORDER BY acc_trans_id ASC|;

  }

  if (!$main::auth->assert('sales_all_edit', 1)) {

    push @where, qq|dord.employee_id = (select id from employee where login= ?)|;

  }

  foreach my $item (qw(donumber ordnumber cusordnumber transaction_description)) {

    qq|  (SELECT id FROM employee WHERE login = ?) | .

    qq|WHERE id = ?|;

  $dbh->commit();

    $query = qq|INSERT INTO follow_ups (created_by, done, note_id, follow_up_date, created_for_user, id)

                VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|;

  } else {

    $query = qq|UPDATE follow_ups SET done = ?, note_id = ?, follow_up_date = ?, created_for_user = ? WHERE id = ?|;

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

  my ($query, @values);

  $query            = qq|SELECT fu.*, n.subject, n.body, n.created_by

                         FROM follow_ups fu

                         LEFT JOIN notes n ON (fu.note_id = n.id)

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

  my ($query, $where, $where_user);

  my @values        = ();

  my @values_user   = ();

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

  do_query($form, $dbh, qq|DELETE FROM follow_up_access WHERE what = ?|, $id);

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

  my $access   = {};

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

    $query =

      qq|INSERT INTO gl (id, employee_id) | .

      qq|VALUES (?, (SELECT id FROM employee WHERE login = ?))|;

    do_query($form, $dbh, $query, @values);

  }

      push @{$cur_ary}, $token;

    } else {

    }

  }

    ($params{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('note_id')|);

    $query        = qq|INSERT INTO notes (created_by, trans_id, trans_module, subject, body, id)

                       VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|;

  } else {

    $query        = qq|UPDATE notes SET subject = ?, body = ? WHERE id = ?|;

  if (!$main::auth->assert('sales_all_edit', 1)) {

    $query .= " AND o.employee_id = (select id from employee where login= ?)";

  }

  if ($form->{employee_id}) {

    $query .= " AND o.employee_id = ?";

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

  my $query    = qq|SELECT id FROM employee WHERE login = ?|;

  $query       =

    qq|SELECT oe.id, oe.transdate, oe.reqdate, oe.quonumber, oe.transaction_description, oe.amount,

  $form->error("Missing Parameter: @_") if !$userspath || !$filename;

  $filename =~ s|.*/||;

  $filename = "$userspath/$filename";

  open my $FACONF, "<", $filename or do {# Annon Sub

  # limits by employees (Bearbeiter), not salesmen!

  if (!$main::auth->assert('sales_all_edit', 1)) {

    $where .= " AND ar.employee_id = (select id from employee where login= ?)";

  }

  # Stornierte Rechnungen und Stornorechnungen in invoice rausfiltern

  require SL::DB::Employee;

  require SL::DB::Inventory;

  my ($now)      = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT current_date|);

  my @directions = (undef, qw(out in transfer));

  $myconfig{show_form_details} = 1 unless (defined($myconfig{show_form_details}));

  $form->{CAN_CHANGE_PASSWORD} = $main::auth->can_change_password();

  $form->header();

  $form->{stylesheet} = $form->{usestylesheet};

  if (AM->save_preferences($form)) {

    if ($::auth->can_change_password()

        $form->error($::locale->text('The settings were saved, but the password was not changed.') . ' ' . join(' ', $verifier->errors($result)));

      }

    }

    $form->redirect($locale->text('Preferences saved!'));

if (-f "bin/mozilla/custom_arap.pl") {

  eval { require "bin/mozilla/custom_arap.pl"; };

}

}

1;

  my %params   = (

    'due_only'          => 1,

    'not_done'          => 1,

    );

  my $follow_ups = FU->follow_ups(%params);

  #                                                     payment_terms     => $form->{payment_terms},

  #                                                     all_partsgroup    => $form->{all_partsgroup}});

  print $form->parse_html_template('ic/form_header');

  $lxdebug->leave_sub();

if (-f "bin/mozilla/custom_invoice_io.pl") {

  eval { require "bin/mozilla/custom_invoice_io.pl"; };

}

}

1;

if (-f "bin/mozilla/custom_io.pl") {

  eval { require "bin/mozilla/custom_io.pl"; };

}

}

1;

  $main::lxdebug->enter_sub();

  my %myconfig = %main::myconfig;

  $form->{stylesheet} =  $myconfig{stylesheet};

  $form->{title}      =  $::locale->text('kivitendo');

      $bank_transfer->{chart_id} = $bank_account->{chart_id};

    }

                                     'bank_transfers' => \@bank_transfers,

                                     'vc'             => $vc);

  my %params   = @_;

  my $postfix  = $params{login_screen} ? '_login' : '';

  if ($params{login_screen} && !$todo_cfg{show_after_login}) {

    $main::lxdebug->leave_sub();

  $::auth->assert('advance_turnover_tax_return');

  $filename =~ s|.*/||;

  #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen

  # Anm. jb 18.3. vielleicht auch nur meine unwissenheit in perl-datenstrukturen

  my %TRANSFER = (

    'transfer_type'    => 'assembly',

    'dst_warehouse_id' => $form->{warehouse_id},

    'dst_bin_id'       => $form->{bin_id},

    'chargenumber'     => $form->{chargenumber},

  my $msg = $locale->text('No warehouse has been created yet or the quantity of the bins is not configured yet.') . ' ';

    $msg .= $locale->text('You can create warehouses and bins via the menu "System -> Warehouses".');

  } else {

    $msg .= $locale->text('Please ask your administrator to create warehouses and bins.');