projekt kivitendo

  my $swiss_data = $::instance_conf->get_sepa_swiss_xml_export eq 1 && $arap eq 'ap' ?

                    " vc.iban AS vc_iban, vc.bic AS vc_bic, ap.qrbill_data AS qrbill_data, " : '';

         vc.name AS vcname, vc.language_id, vc.iban AS vc_iban, vc.bic AS vc_bic,

         ${arap}.duedate as duedate, ${arap}.direct_debit,

         $swiss_data

      $columns = qq|, arap.invnumber, arap.invoice, arap.transdate AS reference_date,

                      arap.qrbill_data AS qrbill_data, vc.name AS vc_name,

                      vc.${vc}number AS vc_number, vc.street AS vc_street,

                      vc.zipcode AS vc_zipcode, vc.city AS vc_city, vc.country AS vc_country,

                      c.accno AS chart_accno, c.description AS chart_description ${mandator_id},

                      cur.name AS currency_name|;

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

                    LEFT JOIN currencies cur ON (arap.currency_id = cur.id)

                    |;

package SL::SEPA::SwissXML;

use strict;

use utf8;

use parent qw(SL::SEPA::XML);

use Carp;

use Encode;

use POSIX qw(strftime);

use XML::Writer;

use SL::Iconv;

use SL::SEPA::XML::SwissTransaction;

sub add_transaction {

  my $self = shift;

  foreach my $transaction (@_) {

    croak "Expecting hash reference." if (ref $transaction ne 'HASH');

    push @{ $self->{transactions} }, SL::SEPA::XML::SwissTransaction->new(%{ $transaction }, 'sepa' => $self);

  }

  return 1;

}

sub _group_transactions {

  my $self    = shift;

  my $grouped = {

    'sum_amount' => 0,

    'groups'     => { },

  };

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

    my $key                      = $self->{grouped} ? join("\t", map { $transaction->get($_) } qw(src_bic src_iban execution_date is_sepa_payment)) : 'all';

    $grouped->{groups}->{$key} ||= {

      'sum_amount'   => 0,

      'transactions' => [ ],

    };

    push @{ $grouped->{groups}->{$key}->{transactions} }, $transaction;

    $grouped->{groups}->{$key}->{sum_amount} += $transaction->{amount};

    $grouped->{sum_amount}                   += $transaction->{amount};

  }

  return $grouped;

}

sub to_xml {

  my $self = shift;

  croak "No transactions added yet." if (!@{ $self->{transactions} });

  my $output = '';

  my $xml    = XML::Writer->new(OUTPUT      => \$output,

                                DATA_MODE   => 1,

                                DATA_INDENT => 2,

                                ENCODING    => 'utf-8');

  my @now       = localtime;

  # (removed time zone stuff in accordance with SIX examples)

  my $now_str   = strftime('%Y-%m-%dT%H:%M:%S', @now);

  my $payment_inf_id_counter = 1;

  my $transaction_id_counter = 1;

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

  # Note: the transaction->get function, respectively the encode function

  # that is used there produces garbled characters for example:

  # encode('UTF-8', '& & äöü <123>') -> &amp; &amp; äöü &lt;123&gt;

  # not fully clear why, for now I'll omit the function in some places

  $xml->xmlDecl();

  $xml->startTag('Document',

                 'xmlns'              => "urn:iso:std:iso:20022:tech:xsd:pain.001.001.09",

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

                 'xsi:schemaLocation' => "urn:iso:std:iso:20022:tech:xsd:pain.001.001.09 pain.001.001.09.ch.03.xsd");

  $xml->startTag('CstmrCdtTrfInitn');

  $xml->startTag('GrpHdr');

  $xml->dataElement('MsgId', $self->_restricted_identification_sepa1($self->{message_id}));

  $xml->dataElement('CreDtTm', $now_str);

  $xml->dataElement('NbOfTxs', scalar @{ $self->{transactions} });

  $xml->dataElement('CtrlSum', $self->_format_amount($grouped_transactions->{sum_amount}));

  $xml->startTag('InitgPty');

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

  # (details about the software)

  $xml->startTag('CtctDtls');

  $xml->startTag('Othr');

  $xml->dataElement('ChanlTp', 'NAME');

  $xml->dataElement('Id', 'Kivitendo');

  $xml->endTag('Othr');

  $xml->endTag('CtctDtls');

  # TODO (optional): get current kivitendo version

  # $xml->startTag('Othr');

  # $xml->dataElement('ChanlTp', 'VRSN');

  # $xml->dataElement('Id', '...');

  # $xml->endTag('Othr');

  $xml->endTag('InitgPty');

  $xml->endTag('GrpHdr');

  foreach my $key (keys %{ $grouped_transactions->{groups} }) {

    my $transaction_group  = $grouped_transactions->{groups}->{$key};

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

    $xml->startTag('PmtInf');

    my $payment_inf_id = 'PMTINF-' . sprintf('%010d', $payment_inf_id_counter);

    $xml->dataElement('PmtInfId', $payment_inf_id);

    $xml->dataElement('PmtMtd', 'TRF');

    # if batch booking true there will be "1 booking per group"

    # (according to swiss business rules specification)

    # I don't fully understand how there can be 1 booking for multiple transactions

    # furthermore in that case we should make sure there is only 1 currency in the group

    # (function _group_transactions)

    # so for now I'm setting this to false

    $xml->dataElement('BtchBookg', 'false');

    if ($master_transaction->get('is_sepa_payment')) {

      $xml->startTag('PmtTpInf');

      $xml->startTag('SvcLvl');

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

      $xml->endTag('SvcLvl');

      $xml->endTag('PmtTpInf');

    }

    $xml->startTag('ReqdExctnDt');

    $xml->dataElement('Dt', $master_transaction->get('execution_date'));

    $xml->endTag('ReqdExctnDt');

    $xml->startTag('Dbtr');

    # not using get here because it's garbling the characters

    $xml->dataElement('Nm', $self->{company});

    $xml->endTag('Dbtr');

    $xml->startTag('DbtrAcct');

    $xml->startTag('Id');

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

    $xml->endTag('Id');

    $xml->endTag('DbtrAcct');

    $xml->startTag('DbtrAgt');

    $xml->startTag('FinInstnId');

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

    $xml->endTag('FinInstnId');

    $xml->endTag('DbtrAgt');

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

      $xml->startTag('CdtTrfTxInf');

      $xml->startTag('PmtId');

      # using a simple counter here, analog to examples from SIX

      my $instr_id = 'INSTRID-' .

        sprintf('%010d', $payment_inf_id_counter) . '-' .

        sprintf('%010d', $transaction_id_counter);

      $xml->dataElement('InstrId', $instr_id);

      $xml->dataElement('EndToEndId',

        $self->_restricted_identification_sepa1($transaction->get('end_to_end_id')));

      $xml->endTag('PmtId');

      $xml->startTag('Amt');

      $xml->startTag('InstdAmt', 'Ccy' => $transaction->{currency});

      $xml->characters($self->_format_amount($transaction->{amount}));

      $xml->endTag('InstdAmt');

      $xml->endTag('Amt');

      if ($transaction->{is_sepa_payment}) {

        $xml->startTag('CdtrAgt');

        $xml->startTag('FinInstnId');

        $xml->dataElement('BICFI', $transaction->{dst_bic});

        $xml->endTag('FinInstnId');

        $xml->endTag('CdtrAgt');

      }

      $xml->startTag('Cdtr');

      if ($transaction->{is_qrbill}) {

        $xml->dataElement('Nm', $transaction->{creditor_name});

        $xml->startTag('PstlAdr');

        # don't use empty elements here, according to SIX validator

        $xml->dataElement('StrtNm', $transaction->{creditor_street_name}) if $transaction->{creditor_street_name};

        $xml->dataElement('BldgNb', $transaction->{creditor_building_number}) if $transaction->{creditor_building_number};

        $xml->dataElement('PstCd', $transaction->{creditor_postal_code});

        $xml->dataElement('TwnNm', $transaction->{creditor_town_name});

        $xml->dataElement('Ctry', $transaction->{creditor_country});

        $xml->endTag('PstlAdr');

      } else {

        $xml->dataElement('Nm', $transaction->{company});

        if ($transaction->{has_creditor_address}) {

          $xml->startTag('PstlAdr');

          $xml->dataElement('StrtNm', $transaction->{creditor_street_name}) if $transaction->{creditor_street_name};

          $xml->dataElement('BldgNb', $transaction->{creditor_building_number}) if $transaction->{creditor_building_number};

          $xml->dataElement('PstCd', $transaction->{creditor_postal_code});

          $xml->dataElement('TwnNm', $transaction->{creditor_town_name});

          $xml->dataElement('Ctry', $transaction->{creditor_country});

          $xml->endTag('PstlAdr');

        }

      }

      $xml->endTag('Cdtr');

      $xml->startTag('CdtrAcct');

      $xml->startTag('Id');

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

      $xml->endTag('Id');

      $xml->endTag('CdtrAcct');

      $xml->startTag('RmtInf');

      if ($transaction->{end_to_end_id} =~ /^ENDTOENDID-(QRR|SCOR)$/) {

        $xml->startTag('Strd');

        $xml->startTag('CdtrRefInf');

        $xml->startTag('Tp');

        $xml->startTag('CdOrPrtry');

        if ($transaction->{end_to_end_id} eq 'ENDTOENDID-QRR') {

          $xml->dataElement('Prtry', 'QRR');

        } else {

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

        }

        $xml->endTag('CdOrPrtry');

        $xml->endTag('Tp');

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

        $xml->endTag('CdtrRefInf');

        if ($transaction->{unstructured_message}) {

          $xml->dataElement('AddtlRmtInf', $transaction->get('unstructured_message'));

        }

        $xml->endTag('Strd');

      } else {

        if ($transaction->{reference}) {

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

        }

      }

      $xml->endTag('RmtInf');

      $xml->endTag('CdtTrfTxInf');

      $transaction_id_counter++;

    }

    $xml->endTag('PmtInf');

    $payment_inf_id_counter++;

  }

  $xml->endTag('CstmrCdtTrfInitn');

  $xml->endTag('Document');

  $xml->end();

  return $output;

}

1;

# Local Variables:

# coding: utf-8

# End:

package SL::SEPA::XML::SwissTransaction;

use strict;

use parent qw(SL::SEPA::XML::Transaction);

use Carp;

use Encode;

use List::Util qw(first);

use POSIX qw(strftime);

sub _init {

  my $self       = shift;

  my %params     = @_;

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

  delete $params{sepa};

  my $missing_parameter = first { !$params{$_} } qw(src_iban src_bic dst_iban company reference amount end_to_end_id);

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

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

  $params{execution_date} ||= strftime "%Y-%m-%d", localtime;

  croak "Execution date format wrong for '$params{execution_date}': not YYYY-MM-DD." if ($params{execution_date} !~ /^\d{4}-\d{2}-\d{2}$/);

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

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

  map { $self->{$_} = $self->{sepa}->_replace_special_chars($self->{$_}) } qw(company reference end_to_end_id);

}

1;

use SL::SEPA::SwissXML;

use SL::Helper::QrBillParser;

use SL::Helper::ISO3166;

use SL::Helper::QrBillFunctions qw(

  get_street_name_from_address_line

  get_building_number_from_address_line

);

  my $swiss_export = $::instance_conf->get_sepa_swiss_xml_export;

  $form->{title}    = $vc eq 'customer' ?

                        $::locale->text('Prepare bank collection via SEPA XML') :

                        $swiss_export ?

                          $locale->text('Prepare bank transfer via swiss XML') :

                          $locale->text('Prepare bank transfer via SEPA XML');

  # for swiss export override database check because of different cases

  if ($swiss_export) {

    foreach my $invoice (@{ $invoices }) {

      # determine invoice type

      if ($invoice->{qrbill_data}) {

        $invoice->{type} = 'QRBILL';

        # vendor iban comes from qrbill data

        # no further checks needed

        $invoice->{vc_bank_info_ok} = 1;

      } elsif ($invoice->{vc_iban} =~ m/^(CH|LI)/) {

        $invoice->{type} = 'DOMESTIC';

        # vendor iban is needed

        $invoice->{vc_bank_info_ok} = $invoice->{vc_iban} ? 1 : 0;

      } else {

        $invoice->{type} = 'SEPA';

        # vendor iban and bic are needed

        $invoice->{vc_bank_info_ok} = $invoice->{vc_iban} && $invoice->{vc_bic} ? 1 : 0

      }

    }

  }

  my $swiss_export = $::instance_conf->get_sepa_swiss_xml_export;

  $form->{title}    = $vc eq 'customer' ?

                        $::locale->text('Create bank collection via SEPA XML') :

                        $swiss_export ?

                          $locale->text('Create bank transfer via swiss XML') :

                          $locale->text('Create bank transfer via SEPA XML');

  # separate validation for swiss export

  if (!$swiss_export) {

    push @bank_columns, qw(mandator_id mandate_date_of_signature) if $vc eq 'customer';

    if ($form->{confirmation}) {

      $vc_bank_info = { map { $_->{id} => $_ } @{ $form->{vc_bank_info} || [] } };

      foreach my $info (values %{ $vc_bank_info }) {

        if (any { !$info->{$_} } @bank_columns) {

          $error_message = $locale->text('The bank information must not be empty.');

          last;

        }

  } else {

    ($error_message, $vc_bank_info) = validate_vendors_swiss_export(\@bank_transfers);

    if (!$swiss_export) {

      my @vc_ids = uniq map { $_->{vc_id} } @bank_transfers;

      $vc_bank_info ||= CT->get_bank_info('vc' => $vc, 'id' => \@vc_ids);

    }

    my @vc_bank_info = sort { lc $a->{name} cmp lc $b->{name} } values %{ $vc_bank_info };

    print $form->parse_html_template('sepa/bank_transfer_created',

                                      {

                                        'id' => $id,

                                        'vc' => $vc,

                                      });

sub validate_vendors_swiss_export {

  my ($bank_transfers) = @_;

  my $form          = $main::form;

  my $locale        = $main::locale;

  my $myconfig      = \%main::myconfig;

  # determine unique vendor types

  my %unique_vendor_types;

  for my $bt (@$bank_transfers) {

    my $uid = "$bt->{vc_id}_$bt->{type}";

    $unique_vendor_types{$uid} = {

      vc_id => $bt->{vc_id},

      type => $bt->{type}

    } unless defined $unique_vendor_types{$uid};

  }

  # get bank info for unique vendor types

  my $vendors = $form->{vc_bank_info} ?

    { map { $_->{id} => $_ } @{ $form->{vc_bank_info} } } :

    CT->get_bank_info('vc' => 'vendor', 'id' => [ map { $_->{vc_id} } values %unique_vendor_types ]);

  # combine bank info with unique vendor types

  for my $unique_vendor (values %unique_vendor_types) {

    $vendors->{$unique_vendor->{vc_id}}->{type} = $unique_vendor->{type};

  }

  # validate bank info for unique vendor types

  my $error_message;

  for my $vendor (values %$vendors) {

    next if ($vendor->{type} eq 'QRBILL');

    if ($vendor->{type} eq 'DOMESTIC' && !$vendor->{iban}) {

      $error_message = $locale->text('The bank information must not be empty.');

      last;

    } elsif ($vendor->{type} eq 'SEPA' && (!$vendor->{iban} || !$vendor->{bic})) {

      $error_message = $locale->text('The bank information must not be empty.');

      last;

    }

  }

  return $error_message, $vendors;

}

    message_ids   => { 'text' => !$::instance_conf->get_sepa_swiss_xml_export ? $locale->text('SEPA message IDs') : $locale->text('Message IDs'), },

  $form->{title}    = !$::instance_conf->get_sepa_swiss_xml_export ?

                        $locale->text('View SEPA export') :

                        $locale->text('View bank transfer');

  my $swiss_export = $::instance_conf->get_sepa_swiss_xml_export;

  my $sepa_xml;

  my %sepa_xml_params = (

    'company'     => $defaults->company,

    'creditor_id' => $defaults->sepa_creditor_id,

    'src_charset' => 'UTF-8',

    'message_id'  => $message_id,

    'grouped'     => 1,

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

  );

  if (!$swiss_export) {

      $sepa_xml = SL::SEPA::XML->new(%sepa_xml_params);

  } else {

      $sepa_xml = SL::SEPA::SwissXML->new(%sepa_xml_params);

  }

    my $transaction_data = {

      'src_iban'       => $item->{our_iban},

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

      'dst_iban'       => $item->{vc_iban},

      'dst_bic'        => $item->{vc_bic},

      'company'        => $item->{vc_name},

      'company_number' => $item->{vc_number},

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

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

      'mandator_id'    => $mandator_id,

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

      'execution_date' => $requested_execution_date,

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

      'date_of_signature' => $item->{mandate_date_of_signature},

    };

    # set data for swiss xml export

    if ($swiss_export) {

      $transaction_data->{currency} = $item->{currency_name};

      $transaction_data->{is_qrbill} = 0;

      $transaction_data->{is_sepa_payment} = 0;

      if ($item->{qrbill_data}) {

        my $qr_obj = SL::Helper::QrBillParser->new($item->{qrbill_data});

        # check if valid qr-bill

        if (!$qr_obj->is_valid) {

          $form->show_generic_error($locale->text('QR bill data invalid.'));

        }

        $transaction_data->{is_qrbill} = 1;

        # set qr reference type

        # setting these according to example pain_001_Example_PT_D_QRR_SCOR.xml

        # 'QRR'

        if ($qr_obj->{payment_reference}->{reference_type} eq 'QRR') {

          $transaction_data->{end_to_end_id} = 'ENDTOENDID-QRR';

        }

        # 'SCOR'

        elsif ($qr_obj->{payment_reference}->{reference_type} eq 'SCOR') {

          $transaction_data->{end_to_end_id} = 'ENDTOENDID-SCOR';

        }

        # 'NON'

        # (using the default end_to_end_id given above)

        # data for remittance information

        # this contains the reference for 'QRR' or 'SCOR'

        $transaction_data->{reference} = $qr_obj->{payment_reference}->{reference};

        # this can be used in any case

        $transaction_data->{unstructured_message} = $qr_obj->{additional_information}->{unstructured_message};

        # set currency and amount

        $transaction_data->{currency} = $qr_obj->{payment_amount_information}->{currency};

        $transaction_data->{amount} = $qr_obj->{payment_amount_information}->{amount};

        # set creditor name and address from qr data

        $transaction_data->{creditor_name} = $qr_obj->{creditor}->{name};

        $transaction_data->{creditor_street_name} = $qr_obj->get_creditor_street_name;

        $transaction_data->{creditor_building_number} = $qr_obj->get_creditor_building_number;

        $transaction_data->{creditor_postal_code} = $qr_obj->get_creditor_post_code;

        $transaction_data->{creditor_town_name} = $qr_obj->get_creditor_town_name;

        $transaction_data->{creditor_country} = $qr_obj->{creditor}->{country};

        # set creditor iban

        $transaction_data->{dst_iban} = $qr_obj->{creditor_information}->{iban};

      } else {

        # if no qr-bill data is given, we want to set the creditor address from the vc data

        # this is not needed for the creditor name as it is set above

        $transaction_data->{has_creditor_address} = 0;

        if ($item->{vc_zipcode} && $item->{vc_city} && $item->{vc_country}) {

          $transaction_data->{has_creditor_address} = 1;

          $transaction_data->{creditor_street_name} = get_street_name_from_address_line($item->{vc_street});

          $transaction_data->{creditor_building_number} = get_building_number_from_address_line($item->{vc_building_number});

          $transaction_data->{creditor_postal_code} = $item->{vc_zipcode};

          $transaction_data->{creditor_town_name} = $item->{vc_city};

          # use ISO 3166-1 alpha-2 country code

          $transaction_data->{creditor_country} = SL::Helper::ISO3166::map_name_to_alpha_2_code($item->{vc_country});

        }

        # if the Iban does not start with 'CH' or 'LI' we assume it is a SEPA payment

        if ($item->{vc_iban} !~ /^(CH|LI)/) {

          $transaction_data->{is_sepa_payment} = 1;

          # check if currency is EUR

          if ($transaction_data->{currency} ne 'EUR') {

            $form->show_generic_error($locale->text('SEPA payments must be in EUR.'));

          }

          # check if destination BIC is set

          if (!$transaction_data->{dst_bic}) {

            $form->show_generic_error($locale->text('SEPA payments require a destination BIC.'));

          }

          # TODO: set reference (unstructured or SCOR)

          # -> where should the data come from?

        }

      }

    }

    $sepa_xml->add_transaction($transaction_data);

  my $header;

  if ($swiss_export) {

    # I had to use encode for the length here, otherwise the xml output was cut off

    $header = {

      '-type' => 'text/xml; charset=utf-8',

      '-content-disposition' => 'attachment; filename="SWISS_' . $message_id . '.xml' . '"',

      '-content-length' => length Encode::encode('utf-8', $xml),

    };

  } else {

    $header = {

      '-type' => 'application/octet-stream',

      '-content-disposition' => 'attachment; filename="SEPA_' . $message_id . ($vc eq 'customer' ? '.cdd' : '.cct') . '"',

      '-content-length' => length $xml,

    };

  }

  print $cgi->header($header);

          !$::instance_conf->get_sepa_swiss_xml_export ? t8('SEPA XML download') : t8('Swiss XML download'),

          confirm => [ !$::instance_conf->get_sepa_swiss_xml_export ?

                          $params{is_vendor} ? t8('Do you really want to close the selected SEPA exports? No payment will be recorded for bank transfers that haven\'t been marked as executed yet.')

                                             : t8('Do you really want to close the selected SEPA exports? No payment will be recorded for bank collections that haven\'t been marked as executed yet.')

                                             : t8('Do you really want to close the selected Swiss XML exports? No payment will be recorded for bank transfers that haven\'t been marked as executed yet.') ],

          !$::instance_conf->get_sepa_swiss_xml_export ? t8('Undo SEPA exports') : t8('Undo Swiss XML exports'),

          confirm => [ !$::instance_conf->get_sepa_swiss_xml_export ?

            t8('Do you really want to undo the selected SEPA exports? You have to reassign the export again.') :

            t8('Do you really want to undo the selected Swiss XML exports? You have to reassign the export again.') ],

  access: cash & !client/sepa_swiss_xml_export

  module: sepa.pl

  params:

    action: bank_transfer_add

    vc: vendor

- parent: cash

  id: cash_bank_transfer_via_swiss_xml

  name: Bank transfer via swiss XML

  order: 450

  access: cash & client/sepa_swiss_xml_export

  access: cash & !client/sepa_swiss_xml_export

  module: sepa.pl

  params:

    action: bank_transfer_search

    vc: vendor

- parent: cash_reports

  id: cash_reports_bank_transfers_via_swiss_xml

  name: Bank transfers via swiss XML

  order: 400

  access: cash & client/sepa_swiss_xml_export

      <tr>

        <th>[% 'Activate Swiss Bank Transfer XML Export' | $T8 %]</th>

        <td>[% L.yes_no_tag('defaults.sepa_swiss_xml_export', SELF.defaults.sepa_swiss_xml_export) %]</td>

        <td class="long-desc">[% LxERP.t8('Bank transfer via SEPA is replaced by Bank transfer via swiss XML. According to Swiss Payment Standards, Customer Credit Transfer Initiation (pain.001).') %]</td>

      </tr>

          [% L.hidden_tag('bank_transfers[].type', invoice.type) %]

      [% IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

        [% "The required information consists of the IBAN and the BIC." | $T8 %]

      [% ELSE %]

        [% "The required information consists of the IBAN for domestic payments. And IBAN and the BIC for SEPA payments." | $T8 %]

      [% END %]

      [% IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

        <th>[% 'Bank' | $T8 %]</th>

      [% END %]

        [% IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

          <td> <input type="hidden" name="vc_bank_info[+].id" value="[% HTML.escape(vbi.id) %]"> <input type="hidden" name="vc_bank_info[].name" value="[% HTML.escape(vbi.name) %]"> [% HTML.escape(vbi.name) %] </td>

          <td><input type="text" name="vc_bank_info[].iban" size="34" value="[% HTML.escape(vbi.iban.substr(0, 34)) %]" maxlength="34"></td>

          <td><input type="text" name="vc_bank_info[].bic" size="20" value="[% HTML.escape(vbi.bic.substr(0, 20)) %]" maxlength="20"></td>

          <td><input type="text" name="vc_bank_info[].bank" size="30" value="[% HTML.escape(vbi.bank) %]"></td>

          [% IF vc == 'customer' %]

            <td><input type="text" name="vc_bank_info[].mandator_id" size="30" value="[% HTML.escape(vbi.mandator_id) %]"></td>

            <td>[% L.date_tag("vc_bank_info[].mandate_date_of_signature", vbi.mandate_date_of_signature) %]</td>

          [% END %]

        [% ELSE %]

          [% L.hidden_tag('vc_bank_info[+].id', vbi.id) %]

          [% L.hidden_tag('vc_bank_info[].type', vbi.type) %]

          [% IF vbi.type == 'QRBILL' %]

            [% L.hidden_tag('vc_bank_info[].name', vbi.name) %]

          [% ELSIF vbi.type == 'DOMESTIC' %]

            <td>

              [% HTML.escape(vbi.name) %]

              [% L.hidden_tag('vc_bank_info[].name', vbi.name) %]

            </td>

            <td>[% L.input_tag('vc_bank_info[].iban', vbi.iban) %]</td>

          [% ELSE %]

            <td>

              [% HTML.escape(vbi.name) %]

              [% L.hidden_tag('vc_bank_info[].name', vbi.name) %]

            </td>

            <td>[% L.input_tag('vc_bank_info[].iban', vbi.iban) %]</td>

            <td>[% L.input_tag('vc_bank_info[].bic', vbi.bic) %]</td>

          [% END %]

          [% IF INSTANCE_CONF.get_sepa_swiss_xml_export %]

            [% L.hidden_tag('bank_transfers[].type', bank_transfer.type) %]

          [% END %]

[% IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

  <p>[% 'The SEPA export has been created.' | $T8 %]</p>

  <ul>

    <li><a href="sepa.pl?action=bank_transfer_download_sepa_xml&id=[% HTML.url(id) %]&vc=[% HTML.url(vc) %]"> [% 'Download SEPA XML export file' | $T8 %] </a></li>

    <li><a href="sepa.pl?action=bank_transfer_list&l_open=1&l_not_executed=1&vc=[% HTML.url(vc) %]"> [% 'List open SEPA exports' | $T8 %] </a></li>

  </ul>

[% ELSE %]

  <p>[% 'The swiss XML export has been created.' | $T8 %]</p>

  <ul>

    <li><a href="sepa.pl?action=bank_transfer_download_sepa_xml&id=[% HTML.url(id) %]"> [% 'Download swiss XML export file' | $T8 %] </a></li>

    <li><a href="sepa.pl?action=bank_transfer_list&l_open=1&l_not_executed=1&vc=[% HTML.url(vc) %]"> [% 'List open bank exports' | $T8 %] </a></li>

  </ul>

[% END %]

      <th>

        [% IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

          [% LxERP.t8("SEPA message ID") %]

        [% ELSE %]

          [% LxERP.t8("Message ID") %]

        [% END %]

      </th>

  <tr>

    <td align="right">[% LxERP.t8('Bank transfer via SEPA is replaced by Bank transfer via swiss XML. According to Swiss Payment Standards, Customer Credit Transfer Initiation (pain.001).') %]</td>

    <td>[% L.yes_no_tag('defaults.sepa_swiss_xml_export', SELF.defaults.sepa_swiss_xml_export) %]</td>

  </tr>

     [% L.hidden_tag('bank_transfers[].type', invoice.type) %]

     [%- IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

      [% "The required information consists of the IBAN and the BIC." | $T8 %]

     [%- ELSE %]

      [% "The required information consists of the IBAN for domestic payments. And IBAN and the BIC for SEPA payments." | $T8 %]

     [%- END %]

     [%- IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

      <th class="listheading">[% 'Bank' | $T8 %]</th>

     [%- END %]

      [%- IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

        <td>

          <input type="hidden" name="vc_bank_info[+].id" value="[% HTML.escape(vbi.id) %]">

          <input type="hidden" name="vc_bank_info[].name" value="[% HTML.escape(vbi.name) %]">

          [% HTML.escape(vbi.name) %]

        </td>

        <td><input type="text" name="vc_bank_info[].iban" size="34" value="[% HTML.escape(vbi.iban.substr(0, 34)) %]" maxlength="34"></td>

        <td><input type="text" name="vc_bank_info[].bic" size="20" value="[% HTML.escape(vbi.bic.substr(0, 20)) %]" maxlength="20"></td>

        <td><input type="text" name="vc_bank_info[].bank" size="30" value="[% HTML.escape(vbi.bank) %]"></td>

        [%- IF vc == 'customer' %]

          <td><input type="text" name="vc_bank_info[].mandator_id" size="30" value="[% HTML.escape(vbi.mandator_id) %]"></td>

          <td>[% L.date_tag("vc_bank_info[].mandate_date_of_signature", vbi.mandate_date_of_signature) %]</td>

        [%- END %]

      [%- ELSE %]

        [% L.hidden_tag('vc_bank_info[+].id', vbi.id) %]

        [% L.hidden_tag('vc_bank_info[].type', vbi.type) %]

        [%- IF vbi.type == 'QRBILL' %]

          [% L.hidden_tag('vc_bank_info[].name', vbi.name) %]

        [%- ELSIF vbi.type == 'DOMESTIC' %]

          <td>

            [% HTML.escape(vbi.name) %]

            [% L.hidden_tag('vc_bank_info[].name', vbi.name) %]

          </td>

          <td>[% L.input_tag('vc_bank_info[].iban', vbi.iban) %]</td>

        [%- ELSE %]

          <td>

            [% HTML.escape(vbi.name) %]

            [% L.hidden_tag('vc_bank_info[].name', vbi.name) %]

          </td>

          <td>[% L.input_tag('vc_bank_info[].iban', vbi.iban) %]</td>

          <td>[% L.input_tag('vc_bank_info[].bic', vbi.bic) %]</td>

        [%- END %]

      [%- END %]

     [%- IF INSTANCE_CONF.get_sepa_swiss_xml_export %]

      [% L.hidden_tag('bank_transfers[].type', bank_transfer.type) %]

     [%- END %]

[% IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

  <p>[% 'The SEPA export has been created.' | $T8 %]</p>

    <li><a href="sepa.pl?action=bank_transfer_download_sepa_xml&id=[% HTML.url(id) %]&vc=[% HTML.url(vc) %]"> [% 'Download SEPA XML export file' | $T8 %] </a></li>

    <li><a href="sepa.pl?action=bank_transfer_list&l_open=1&l_not_executed=1&vc=[% HTML.url(vc) %]"> [% 'List open SEPA exports' | $T8 %] </a></li>

[% ELSE %]

  <p>[% 'The swiss XML export has been created.' | $T8 %]</p>

  <ul>

    <li><a href="sepa.pl?action=bank_transfer_download_sepa_xml&id=[% HTML.url(id) %]"> [% 'Download swiss XML export file' | $T8 %] </a></li>

    <li><a href="sepa.pl?action=bank_transfer_list&l_open=1&l_not_executed=1&vc=[% HTML.url(vc) %]"> [% 'List open bank exports' | $T8 %] </a></li>

  </ul>

[% END %]

     <td align="right">

      [%- IF !INSTANCE_CONF.get_sepa_swiss_xml_export %]

        [% LxERP.t8("SEPA message ID") %]

      [%- ELSE %]

        [% LxERP.t8("Message ID") %]

      [%- END %]

     </td>