projekt kivitendo

    my ($columns, $joins);

    if ($params{details}) {

      $joins   = qq|LEFT JOIN ${arap} arap ON (sei.${arap}_id = arap.id)

                    LEFT JOIN ${vc} vc     ON (arap.${vc}_id  = vc.id)

                    LEFT JOIN chart c      ON (sei.chart_id   = c.id)|;

  $self->{src_charset}  = 'UTF-8';

  $self->{grouped}      = 0;

  $self->{iconv} = SL::Iconv->new($self->{src_charset}, "UTF-8") || croak "Unsupported source charset $self->{src_charset}.";

  my $missing_parameter = first { !$self->{$_} } qw(company message_id);

  croak "Missing parameter: $missing_parameter" if ($missing_parameter);

}

sub add_transaction {

  my $self   = shift;

  my $amount = shift;

}

sub _group_transactions {

                                DATA_INDENT => 2,

                                ENCODING    => 'utf-8');

  my $grouped_transactions = $self->_group_transactions();

  $xml->xmlDecl();

  $xml->startTag('Document',

                 'xmlns:xsi'          => 'http://www.w3.org/2001/XMLSchema-instance',

  $xml->startTag('GrpHdr');

  $xml->dataElement('MsgId', encode('UTF-8', substr($self->{message_id}, 0, 35)));

    my $master_transaction = $transaction_group->{transactions}->[0];

    $xml->startTag('PmtInf');

    $xml->startTag('PmtTpInf');

    $xml->startTag('SvcLvl');

    $xml->dataElement('Cd', 'SEPA');

    $xml->endTag('SvcLvl');

    $xml->endTag('PmtTpInf');

    $xml->dataElement('Nm', encode('UTF-8', substr($self->{company}, 0, 70)));

    $xml->startTag('Id');

    $xml->dataElement('IBAN', $master_transaction->get('src_iban', 34));

    $xml->endTag('Id');

    $xml->startTag('FinInstnId');

    $xml->dataElement('BIC', $master_transaction->get('src_bic', 20));

    $xml->endTag('FinInstnId');

    $xml->dataElement('ChrgBr', 'SLEV');

    foreach my $transaction (@{ $transaction_group->{transactions} }) {

      $xml->startTag('PmtId');

      $xml->dataElement('EndToEndId', $transaction->get('end_to_end_id', 35));

      $xml->endTag('PmtId');

      $xml->startTag('FinInstnId');

      $xml->dataElement('BIC', $transaction->get('dst_bic', 20));

      $xml->endTag('FinInstnId');

      $xml->startTag('Id');

      $xml->dataElement('IBAN', $transaction->get('dst_iban', 34));

      $xml->endTag('Id');

      $xml->startTag('RmtInf');

      $xml->dataElement('Ustrd', $transaction->get('reference', 140));

      $xml->endTag('RmtInf');

    }

    $xml->endTag('PmtInf');

  }

  $xml->endTag('Document');

  return $output;

  $self->{sepa}  = $params{sepa};

  delete $params{sepa};

  croak "Missing parameter: $missing_parameter" if ($missing_parameter);

  $params{end_to_end_id}  ||= 'NOTPROVIDED';

  map { $self->{$_} = $self->{sepa}->{iconv}->convert($params{$_})       } keys %params;

  map { $self->{$_} =~ s/\s+//g                                          } qw(src_iban src_bic dst_iban dst_bic);

}

sub get {

  $main::lxdebug->leave_sub();

}

sub bank_transfer_download_sepa_xml {

  $main::lxdebug->enter_sub();

  my $myconfig = \%main::myconfig;

  my $locale   =  $main::locale;

  my $cgi      =  $main::cgi;

  if (!$myconfig->{company}) {

    $form->show_generic_error($locale->text('You have to enter a company name in your user preferences (see the "Program" menu, "Preferences").'), 'back_button' => 1);

  }

  my @ids;

  if ($form->{mode} && ($form->{mode} eq 'multi')) {

     @ids = map $_->{id}, grep { $_->{selected} } @{ $form->{exports} || [] };

  my @items = ();

  foreach my $id (@ids) {

    push @items, grep { !$_->{executed} } @{ $export->{items} } if ($export && !$export->{closed});

  }

  my $message_id = strftime('MSG%Y%m%d%H%M%S', localtime) . sprintf('%06d', $$);

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

                                      'src_charset' => $main::dbcharset || 'ISO-8859-15',

                                      'message_id'  => $message_id,

                                      'grouped'     => 1,

    );

  foreach my $item (@items) {

      $requested_execution_date = sprintf '%04d-%02d-%02d', $yy, $mm, $dd;

    }

    $sepa_xml->add_transaction({ 'src_iban'       => $item->{our_iban},

                                 'src_bic'        => $item->{our_bic},

                                 'amount'         => $item->{amount},

                                 'reference'      => $item->{reference},

                                 'execution_date' => $requested_execution_date,

                                 'end_to_end_id'  => $item->{end_to_end_id} });

  }

  my $xml = $sepa_xml->to_xml();

  print $cgi->header('-type'                => 'application/octet-stream',

                     '-content-length'      => length $xml);

  print $xml;

  'You have to create at least one group, grant it access to Lx-Office\'s functions and assign users to it.' => 'Sie müssen mindestens eine Benutzergruppe anlegen, ihr Zugriff auf die verschiedenen Funktionsbereiche von Lx-Office gewähren und Benutzer dieser Gruppe zuordnen.',

  'You have to create new Buchungsgruppen for all the combinations of inventory, income and expense accounts that have been used already.' => 'Sie müssen neue Buchungsgruppen für alle Kombinationen aus Inventar-, Erlös- und Aufwandskonto, die bereits benutzt wurden.',

  'You have to enter a company name in your user preferences (see the "Program" menu, "Preferences").' => 'Sie m?ssen einen Firmennamen in Ihren Einstellungen angeben (siehe Men? "Programm", "Einstellungen").',

  'You have to fill in at least an account number, the bank code, the IBAN and the BIC.' => 'Sie m?ssen zumindest die Kontonummer, die Bankleitzahl, die IBAN und den BIC angeben.',

  'You have to specify a department.' => 'Sie m?ssen eine Abteilung w?hlen.',

  'You have to specify an execution date for each antry.' => 'Sie m?ssen f?r jeden zu buchenden Eintrag ein Ausf?hrungsdatum angeben.',