projekt kivitendo

  $main::lxdebug->message(LXDebug->DEBUG1(), "Auth::create_database DSN: $dsn");

  $charset     ||= Common::DEFAULT_CHARSET;

  my $encoding   = $Common::charset_to_db_encoding{$charset};

  $encoding    ||= 'UNICODE';

  my $self = shift;

  my $dbh  = $self->dbconnect();

  $charset     ||= Common::DEFAULT_CHARSET;

  $dbh->rollback();

  my ($form) = @_;

  return $main::lxdebug->leave_sub()

  my ($path, $number);

      my $content_type  = $options->{type} eq 'js' ? 'text/javascript' : 'text/html';

      print $::form->create_http_response(content_type => $content_type,

    } else {

      $::form->{title} = $locals{title} if $locals{title};

                 AUTH     => $::auth,

                 FORM     => $::form,

                 LOCALE   => $::locale,

                               latex_templates        => $::lx_office_conf{print_templates}->{latex},

                               opendocument_templates => $::lx_office_conf{print_templates}->{opendocument},

                             },

                 LXDEBUG  => $::lxdebug,

                 MYCONFIG => \%::myconfig,

sub _calculate_assembly_item {

  my ($self, $data, $part, $total_qty, $base_factor) = @_;

  foreach my $assembly_entry (@{ $part->assemblies }) {

    push @{ $data->{assembly_items}->[-1] }, { part      => $assembly_entry->part,

  _dbg("cpsi tq " . $total_qty);

  my ($entry);

  $base_factor           ||= 1;

=item 6. Items in C<invoice> are updated according to their allocation

status (regarding for costs of goold sold). Will only be done if

Lx-Office is not configured to use Einnahmenüberschussrechnungen

=item 7. The invoice and its items are saved.

  return 0 if !@unapplied_scripts;

  $self->{form}->{login} ||= 'admin';

  map { $_->{description} = SL::Iconv::convert($_->{charset}, $db_charset, $_->{description}) } values %{ $self->{all_controls} };

  $form->{saved_donumber} = $form->{donumber};

  $main::lxdebug->leave_sub();

    $sth->finish();

  }

  $main::lxdebug->leave_sub();

  my $template             = shift;

  my $error_type           = shift || '';

  $::form->{error}         = $::locale->text('The session is invalid or has expired.') if ($error_type eq 'session');

  $::form->{error}         = $::locale->text('Incorrect password!.')                   if ($error_type eq 'password');

  $::form->{stylesheet}    = 'css/lx-office-erp.css';

  $::form->header;

  $self->unrequire_bin_mozilla;

  $::cgi         = CGI->new('');

  $::form        = Form->new;

  %::called_subs = ();

sub fix_print_and_internal_encoding_after_0_68 {

  return if version->new("$FCGI::VERSION")->numify <= version->new("0.68")->numify;

  my $encoder             = Encode::find_encoding('UTF-8');

  my $original_fcgi_print = \&FCGI::Stream::PRINT;

    $self->_request_to_hash($content);

  }

  $db_charset    ||= Common::DEFAULT_CHARSET;

  my $encoding     = $self->{INPUT_ENCODING} || $db_charset;

  # extra code is currently only used by menuv3 and menuv4 to set their css.

  # it is strongly deprecated, and will be changed in a future version.

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

  my @header;

  $::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;

  my ($self) = @_;

  my $cgi        = $main::cgi || CGI->new('');

  my $output     = $cgi->header('-charset' => $db_charset);

  my $language;

  if (!%::myconfig || !$::myconfig{"countrycode"}) {

  } else {

    $language = $main::myconfig{"countrycode"};

  }

    map { $additional_params->{"myconfig_${_}"} = $main::myconfig{$_}; } keys %::myconfig;

  }

  $additional_params->{"conf_latex_templates"}        = $::lx_office_conf{print_templates}->{latex};

  $additional_params->{"conf_opendocument_templates"} = $::lx_office_conf{print_templates}->{opendocument};

  if (%main::debug_options) {

    map { $additional_params->{'DEBUG_' . uc($_)} = $main::debug_options{$_} } keys %main::debug_options;

      map { $mail->{$_} = $self->{$_} }

        qw(cc bcc subject message version format);

      $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};

      $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;

      $mail->{fileid} = "$fileid.";

    $form->{"qty_$i"}  = $form->parse_amount($myconfig, $form->{"qty_$i"});

    $form->{"qty_$i"} *= -1 if $form->{storno};

    # get item baseunit

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

  # delete zero entries

  do_query($form, $dbh, qq|DELETE FROM acc_trans WHERE amount = 0|);

  # Link this record to the records it was created from.

  RecordLinks->create_links('dbh'        => $dbh,

  }

  $sth->finish();

  $dbh->disconnect();

  # save printed, emailed and queued

  $form->save_status($dbh);

  # Link this record to the records it was created from.

  RecordLinks->create_links('dbh'        => $dbh,

    # sellprice is the cost of the item

    my $linetotal = $form->round_amount(($ref->{sellprice} * $qty) / ( ($ref->{price_factor} || 1) * ( $basefactor || 1 )), 2);

      $ref->{expense_accno} = ($form->{"expense_accno_$row"}) ? $form->{"expense_accno_$row"} : $ref->{expense_accno};

      # add to expense

      $form->{amount_cogs}{ $form->{id} }{ $ref->{expense_accno} } += -$linetotal;

    }

    $sth->finish;

  }

  my $rc = $dbh->commit;

  my ($type, $country) = @_;

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

  $country   =~ s|\.||g;

    }

  }

  if ($self->{is_utf8}) {

    binmode STDOUT, ":utf8";

  $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?

                                       "quonumber" : "ordnumber"};

  my $rc = $dbh->commit;

  $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");

  $self->load_periodic_invoice_config($form);

  my $num_columns     = scalar @visible_columns;

  my $num_header_rows = 1;

  foreach my $name (@visible_columns) {

    push @column_props, { 'justify' => $self->{columns}->{$name}->{align} eq 'right' ? 'right' : 'left' };

  my $self = $type->SUPER::new(@_);

  $self->{"rnd"}   = int(rand(1000000));

  $self->set_tag_style('<%', '%>');

  $self->{quot_re} = '"';

    closedir(SQLDIR);

  }

  $db_charset ||= Common::DEFAULT_CHARSET;

  my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver});

  $form->{sid} = $form->{dbdefault};

  my $rc         = -2;

  map { $_->{description} = SL::Iconv::convert($_->{charset}, $db_charset, $_->{description}) } values %{ $dbupdater->{all_controls} };

  }

  closedir SQLDIR;

  $default_charset ||= Common::DEFAULT_CHARSET;

  my $cluster_encoding = User->dbclusterencoding($form);

  if ($cluster_encoding && ($cluster_encoding =~ m/^(?:UTF-?8|UNICODE)$/i)) {

      $form->show_generic_error($locale->text('The selected  PostgreSQL installation uses UTF-8 as its encoding. ' .

                                              'Therefore you have to configure Lx-Office to use UTF-8 as well.'),

                                'back_button' => 1);

    map { $mail->{$_} = $form->{$_} } qw(from to cc subject message);

    $mail->{attachments} = [ { "filename" => $tmp, "name" => $name } ];

    $mail->send();

    $form->error($locale->text('Database backups and restorations are disabled in lx-erp.conf.'));

  }

  $default_charset    ||= Common::DEFAULT_CHARSET;

  $form->{DBENCODINGS}  = [];

  $form->{title} = $locale->text('Type of Business');

  my @column_index = qw(description discount customernumberinit);

  my %column_header;

  $column_header{description} =

      qq|<th class=listheading width=60%>|

    $form->format_amount(\%myconfig, $form->{discount} * 100);

  my $salesman_code;

    $salesman_code = qq|

  <tr>

    <th align="right">| . $locale->text('Representative') . qq|</th>

  }

  my $linkaccounts;

    $linkaccounts = qq|

               <tr>

                <th align=right>| . $locale->text('Inventory') . qq|</th>

  $form->{title} = $locale->text('Chart of Accounts');

    $form->{method} = "cash";

  }

          <td colspan=3><select name=department>$form->{selectdepartment}</select></td>

        </tr>

| if $form->{selectdepartment};

  my $name_1    = "fromdate";

  my $id_1      = "fromdate";

  $form->{description} =~ s/\"/"/g;

  print qq|

<body onLoad="$onload">

<input type=hidden name=accno value=$form->{accno}>

<input type=hidden name=description value="$form->{description}">

<input type=hidden name=sort value=transdate>

<input type=hidden name=accounttype value=$form->{accounttype}>

<table border=0 width=100%>

                   taxzones  => "ALL_TAXZONES");

  $form->get_pricegroup(\%myconfig, { all => 1 });

  $form->{ALL_SALESMEN}   = $form->{ALL_EMPLOYEES};

  $form->{taxincluded}    = ($form->{taxincluded}) ? "checked" : "";

  $::form->isblank("name", $::locale->text("Name missing!"));

    $::form->{salesman_id} = $::form->{new_salesman_id};

    delete $::form->{new_salesman_id};

  }

  $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

  # retrieve order/quotation

  $form->{jsscript} = 1;

  my $editing = $form->{id};

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

    map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);

      # und keinen anderen discount wert an $i ...

      $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt

    }

      foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {

        $request->{parts_id} = $form->{"id_$i"};

        $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;

        my $map_key          = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});

        my $pinfo = $part_info_map{$request->{parts_id}};

        my $binfo = $bin_info_map{$request->{bin_id}};

            push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",

                                                     $pinfo->{description},

                                                     $binfo->{warehouse_description},

  $auth->assert('part_service_assembly_edit');

  $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };

  $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;

  $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);

  return if (scalar(@missing_modules) == 0);

  use SL::Locale;

  print(qq|content-type: text/html

    ::end_of_request();

  }

  #   if (   $form->{print_and_post}

  #       && $form->{second_run}

    qw(bin listprice inventory_accno income_accno expense_accno unit weight

       assembly taxaccounts partsgroup formel longdescription not_discountable

       part_payment_id partnotes id lastcost price_factor_id price_factor);

  push @new_fields, grep { m/^ic_cvar_/ } keys %{ $form->{item_list}->[0] };

  my $i = 0;

  foreach my $ref (@{ $form->{item_list} }) {

    my $checked = ($i++) ? "" : "checked";

      if ($ref->{inventory_accno} > 0) {

        $ref->{"lizenzen"} = qq|<option></option>|;

        foreach my $item (@{ $form->{LIZENZEN}{ $ref->{"id"} } }) {

    $form->{payment_id} = $form->{"part_payment_id_$i"};

  }

    map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } qw(lizenzen);

  }

  my $script = $form->{"script"};

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

  $script =~ s|.pl$||;

  map { $form->{"select$_"} = "" } ($form->{vc}, "currency");

  $form->{vc} = 'vendor';

  # create links

  $form->{jsscript} = 1;

  $form->create_links("AP", \%myconfig, "vendor");

  $form->{vc} = 'customer';

  # create links

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

        $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});

          if ($form->{"inventory_accno_$i"} ne "") {

            $form->{"lizenzen_$i"} = qq|<option></option>|;

            foreach my $item (@{ $form->{LIZENZEN}{ $form->{"id_$i"} } }) {

  $form->{title} = $locale->text('Add License');

    $form->error(

                 $locale->text(

                   'The licensing module has been deactivated in lx-erp.conf.')

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

    $form->error(

                 $locale->text(

                   'The licensing module has been deactivated in lx-erp.conf.')

sub show_error {

  my $template           = shift;

  my %myconfig           = %main::myconfig;

  $form->{stylesheet}    = 'css/lx-office-erp.css';

  $form->header();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $callback            = $form->unescape($form->{callback});

  $callback               = URI->new($callback)->rel($callback) if $callback;

  $callback               = "login.pl?action=company_logo"      if $callback =~ /^(\.\/)?$/;

  $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

  # retrieve order/quotation

  $form->{jsscript} = 1;

  my $editing = $form->{id};

  print $form->parse_html_template("oe/form_footer", {

     %TMPL_VAR,

     print_options   => print_options(inline => 1),

     label_edit      => $locale->text("Edit the $form->{type}"),

     label_workflow  => $locale->text("Workflow $form->{type}"),

  $form->language_payment(\%myconfig);

  &form_header;

  $form->{title} = $locale->text($title{ $form->{report} });

  my $year = (localtime)[5] + 1900;

  my $sepa_xml   = SL::SEPA::XML->new('company'     => $myconfig->{company},

                                      'creditor_id' => $myconfig->{sepa_creditor_id},

                                      'message_id'  => $message_id,

                                      'grouped'     => 1,

                                      'collection'  => $vc eq 'customer',

    $form->error($locale->text('The warehouse or the bin is missing.'));

  }

      $form->{bestbefore} = '';

  }

1;

1;

[paths]

# path to temporary files (must be writeable by the web server)

userspath = users

  SL::Dispatcher::_decode_recursively(\%::lx_office_conf);

  $::lxdebug = LXDebug->new;

  $::cgi    = CGI->new qw();

  $::form   = Form->new;

  $::auth   = SL::Auth->new;

  eval { require "config/lx-erp-local.conf"; 1; } or die $EVAL_ERROR if -f "config/lx-erp-local.conf";

  $::lxdebug = LXDebug->new;

  $::cgi     = CGI->new qw();

  $::form    = Form->new;

  $::auth    = SL::Auth->new;

      foreach my $job (@{ $jobs }) {

        # Provide fresh global variables in case legacy code modifies

        # them somehow.

        $::form   = Form->new;

        $job->run;

  $sth->execute() || mydberror($query);

  my $query_update = "UPDATE parts SET buchungsgruppen_id = ?";

  $query_update .= " WHERE id = ?";

  my $sth_update = $dbh->prepare($query_update);

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

    foreach my $bg (@{$buchungsgruppen}) {

           ($ref->{"inventory_accno_id"} == $bg->{"inventory_accno_id"})) &&

          ($ref->{"income_accno_id"} == $bg->{"income_accno_id_0"}) &&

          ($ref->{"expense_accno_id"} == $bg->{"expense_accno_id_0"})) {

        my @values = ($bg->{"id"}, $ref->{"id"});

        $sth_update->execute(@values) ||

          mydberror($query_update . " (" . join(", ", @values) . ")");

        last;

      if (($ref->{"income_accno_id"} == $bg->{"income_accno_id_0"}) &&

          ($ref->{"expense_accno_id"} == $bg->{"expense_accno_id_0"})) {

        my @values = ($bg->{"id"}, $ref->{"id"});

        $sth_update->execute(@values) ||

          mydberror($query_update . " (" . join(", ", @values) . ")");

        last;

    $entry->{"ACC_INVENTORY"} = $acc_inventory;

    $entry->{"ACC_INCOME"} = $acc_income;

    $entry->{"ACC_EXPENSE"} = $acc_expense;

  }

  # $form->parse_html_template("dbupgrade/buchungsgruppen_parts")

  # If balancing is off then force parts.inventory_accno_id to

  # a single value for parts.

  # Force "IC" to be present in chart.link for all accounts

  # which have been used as inventory accounts in parts.