projekt kivitendo

use SL::DB::Helper::AccountingPeriod qw(get_balance_startdate_method_options);

use SL::Helper::ShippedQty;

use SL::VATIDNr;

__PACKAGE__->run_before('check_auth');

use Rose::Object::MakeMethods::Generic (

  'scalar --get_set_init' => [ qw(defaults all_warehouses all_weightunits all_languages all_currencies all_templates all_price_sources h_unit_name available_quick_search_modules available_shipped_qty_item_identity_fields

                                  posting_options payment_options accounting_options inventory_options profit_options balance_startdate_method_options

                                  displayable_name_specs_by_module) ],

);

sub init_h_unit_name     { first { SL::DB::Manager::Unit->find_by(name => $_) } qw(Std h Stunde)                         }

sub init_all_project_types    { SL::DB::Manager::ProjectType->get_all_sorted                                             }

sub init_all_project_statuses { SL::DB::Manager::ProjectStatus->get_all_sorted                                           }

sub init_posting_options {

  [ { title => t8("never"),           value => 0           },

use SL::Locale::String;

use SL::Util qw(trim);

use SL::Webdav;

use SL::Controller::Helper::GetModels;

use SL::Controller::Helper::ReportGenerator;

use SL::Controller::Helper::ParseFilter;

use Data::Dumper;

use Rose::Object::MakeMethods::Generic (

);

# safety

  );

}

sub _new_customer_vendor_object {

  my ($self) = @_;

      { method => 'bank',                                      title => t8('Bank'), },

      { method => 'bank_code',                                 title => t8('Bank code'), },

      { method => 'bic',                                       title => t8('BIC'), },

      { method => 'reconciliation_starting_date_as_date',      title => t8('Date'),    align => 'right' },

      { method => 'reconciliation_starting_balance_as_number', title => t8('Balance'), align => 'right' },

    ],

  my ($self, %params) = @_;

  $self->setup_zugferd_action_bar;

}

sub action_import_zugferd {

  if ($info->{result} != SL::ZUGFeRD::RES_OK()) {

    # An error occurred; log message from parser:

    $::lxdebug->message(LXDebug::DEBUG1(), "Could not extract ZUGFeRD data, error message: " . $info->{message});

  }

  # valid ZUGFeRD metadata

  my $dom   = XML::LibXML->load_xml(string => $info->{invoice_xml});

  # 1. check if ZUGFeRD SellerTradeParty has a VAT-ID

  my $ustid = $dom->findnodes('//ram:SellerTradeParty/ram:SpecifiedTaxRegistration')->string_value;

  $ustid = SL::VATIDNr->normalize($ustid);

      },

      zugferd              => {

        conformance_level  => 'EXTENDED',

        document_type      => 'INVOICE',

        version            => '1.0',

      },

use SL::Helper::ISO4217;

use SL::Helper::UNECERecommendation20;

use SL::VATIDNr;

use Carp;

use Encode qw(encode);

my @line_names = qw(LineOne LineTwo LineThree);

sub _u8 {

  my ($value) = @_;

  return encode('UTF-8', $value // '');

  #   <rsm:ExchangedDocumentContext>

  $params{xml}->startTag("rsm:ExchangedDocumentContext");

    $params{xml}->startTag("ram:TestIndicator");

    $params{xml}->dataElement("udt:Indicator", "true");

    $params{xml}->endTag;

  }

  $params{xml}->startTag("ram:GuidelineSpecifiedDocumentContextParameter");

  $params{xml}->endTag;

  $params{xml}->endTag;

  #   </rsm:ExchangedDocumentContext>

    $result{bank_account} = scalar(@{ $bank_accounts }) == 1 ? $bank_accounts->[0] : first { $_->use_for_zugferd } @{ $bank_accounts };

    if (!$result{bank_account}) {

    }

  }

sub create_zugferd_data {

  my ($self)        = @_;

  my $output        = '';

  return {

    conformance_level  => 'EXTENDED',

    document_type      => 'INVOICE',

    version            => '1.0',

  };

    pdf_a           => $record->create_pdf_a_print_options(zugferd_xmp_data => $record->create_zugferd_xmp_data),

    pdf_attachments => [

      { source       => $xmlfile,

        relationship => '/Alternative',

        mime_type    => 'text/xml',

      }

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

  # { source      => $xmlfile,

  my $file_name  =  blessed($file->{source}) && $file->{source}->can('filename') ? $file->{source}->filename : "" . $file->{source}->filename;

  my $embed_name =  $file->{name} // $file_name;

use List::Util qw(first);

use XML::LibXML;

use constant RES_OK                              => 0;

use constant RES_ERR_FILE_OPEN                   => 1;

use constant RES_ERR_NO_XMP_METADATA             => 2;

use constant RES_ERR_NOT_ZUGFERD                 => 4;

use constant RES_ERR_UNSUPPORTED_ZUGFERD_VERSION => 5;

sub _extract_zugferd_invoice_xml {

  my $doc        = shift;

  my $names_dict = $doc->getValue($doc->getRootDict->{Names}) or return {};

    next unless $ns;

    if ($ns->getData =~ m{urn:zugferd:pdfa:CrossIndustryDocument:invoice:2p0}) {

      last;

    }

      $zugferd_version = 'unsupported';

      last;

    }

  if (!$zugferd_version) {

    return {

      result  => RES_ERR_NOT_ZUGFERD(),

    };

  }

    return {

      result  => RES_ERR_UNSUPPORTED_ZUGFERD_VERSION(),

    };

  }

  if (!defined $invoice_xml) {

    return {

      result  => RES_ERR_NO_XML_INVOICE(),

    };

  }

=head1 NAME

=head1 SYNOPSIS

=item C<extract_from_pdf> C<$file_name>

Otherwise it'll continue to look through all embedded files in the

PDF. The first embedded XML file with a root node of

=item C<RES_OK> (0): parsing was OK; the returned hash will also

contain the keys C<xmp_metadata> and C<invoice_xml> which will contain

=item C<RES_ERR_…> (all values E<gt> 0): parsing failed; the hash will

also contain a key C<message> which contains a human-readable

use SL::ReportGenerator;

use SL::Locale::String qw(t8);

use SL::MoreCommon qw(uri_encode);

require "bin/mozilla/common.pl";

require "bin/mozilla/reportgenerator.pl";

sub _zugferd_settings {

  return ([ -1, $::locale->text('Use settings from client configuration') ],

}

sub search {

  push @options, $locale->text('Billing/shipping address (country)') . " : $form->{addr_country}" if $form->{addr_country};

  push @options, $locale->text('Billing/shipping address (GLN)')     . " : $form->{addr_gln}"     if $form->{addr_gln};

  push @options, $locale->text('Quick Search')                       . " : $form->{all}"          if $form->{all};

  if ($form->{business_id}) {

    my $business = SL::DB::Manager::Business->find_by(id => $form->{business_id});

    'creditlimit'       => { 'text' => $locale->text('Credit Limit'), },

    'ustid'             => { 'text' => $locale->text('VAT ID'), },

    'commercial_court'  => { 'text' => $locale->text('Commercial court'), },

    %column_defs_cvars,

  );

  setup_generictranslations_edit_zugferd_notes_action_bar();

  $::form->header;

  print $::form->parse_html_template('generictranslations/edit_zugferd_notes');

}

    );

  }

  edit_zugferd_notes();

}

    $form->{TEMPLATE_DRIVER_OPTIONS}->{pdf_a}           = $record->create_pdf_a_print_options(zugferd_xmp_data => $record->create_zugferd_xmp_data);

    $form->{TEMPLATE_DRIVER_OPTIONS}->{pdf_attachments} = [

      { source       => $xmlfile,

        relationship => '/Alternative',

        mime_type    => 'text/xml',

      }

			</orderedlist>

			<para>Wenn diese Voraussetzungen erfüllt sind, kann die Rechnung

			Schaltfläche ausgewählt werden und über die Schaltfläche „Import“

			eingeladen werden. Es öffnet sich daraufhin die Kreditorenbuchung.

			Die auslesbaren Daten aus dem eingebetteten XML der PDF Datei

  'Cost Center'                 => 'Kostenstelle',

  'Costs'                       => 'Kosten',

  'Could not create new project #1' => 'Neues Projekt #1 kann nicht angelegt werden',

  'Could not find an entry for this part in the pricegroup.' => 'Konnte keine Eintrag für diesen Artikel in der Preisgruppe finden.',

  'Could not load class #1 (#2): "#3"' => 'Konnte Klasse #1 (#2) nicht laden: "#3"',

  'Could not load class #1, #2' => 'Konnte Klasse #1 nicht laden: "#2"',

  'Create Date'                 => 'Erstelldatum',

  'Create HTML'                 => 'HTML erzeugen',

  'Create PDF'                  => 'PDF erzeugen',

  'Create a new background job' => 'Einen neuen Hintergrund-Job anlegen',

  'Create a new client'         => 'Einen neuen Mandanten anlegen',

  'Create a new delivery term'  => 'Neue Lieferbedingungen anlegen',

  'Create new version'          => 'Neue Version anlegen',

  'Create one from the context menu by right-clicking on this text.' => 'Erstellen Sie einen aus dem Kontextmenü, indem Sie auf diesen Text rechtsklicken.',

  'Create order'                => 'Auftrag erstellen',

  'Create tables'               => 'Tabellen anlegen',

  'Created by'                  => 'Erstellt von',

  'Created for'                 => 'Erstellt für',

  'Created on'                  => 'Erstellt am',

  'Displayable Name Preferences' => 'Einstellungen für Anzeigenamen',

  'Do not change the tax rate of taxkey 0.' => 'Ändern Sie nicht den Steuersatz vom Steuerschlüssel 0.',

  'Do not check for duplicates' => 'Nicht nach Dubletten suchen',

  'Do not link to a project.'   => 'Nicht mit einem Projekt verknüpfen.',

  'Do not modify this position' => 'Diese Position nicht verändern',

  'Do not run the task server for this client' => 'Task-Server nicht für diesen Mandanten ausführen',

  'Edit Dunning'                => 'Mahnungen konfigurieren',

  'Edit Dunning Process Config' => 'Mahnwesenkonfiguration bearbeiten',

  'Edit Employee #1'            => 'Benutzer #1 bearbeiten',

  'Edit Follow-Up'              => 'Wiedervorlage bearbeiten',

  'Edit Follow-Up for #1'       => 'Wiedervorlage für #1 bearbeiten',

  'Edit General Ledger Transaction' => 'Buchung im Hauptbuch bearbeiten',

  'Edit Vendor'                 => 'Lieferant editieren',

  'Edit Vendor Invoice'         => 'Einkaufsrechnung bearbeiten',

  'Edit Warehouse'              => 'Lager bearbeiten',

  'Edit acceptance status'      => 'Abnahmestatus bearbeiten',

  'Edit additional articles'    => 'Zusätzliche Artikel bearbeiten',

  'Edit all drafts'             => 'Entwürfe von allen Benutzern bearbeiten',

  'Extended status'             => 'Erweiterter Status',

  'Extension Of Time'           => 'Dauerfristverlängerung',

  'Factor'                      => 'Faktor',

  'Fax'                         => 'Fax',

  'Features'                    => 'Features',

  'Feb'                         => 'Feb',

  'If disabled purchase invoices can only be created by conversion from existing requests for quotations, purchase orders and purchase delivery orders.' => 'Falls deaktiviert, so können Einkaufsrechnungen nur durch Umwandlung aus bestehenden Preisanfragen, Lieferantenaufträgen und Einkaufslieferscheinen angelegt werden.',

  'If disabled sales orders cannot be converted into sales invoices directly.' => 'Falls deaktiviert, so können Verkaufsaufträge nicht direkt in Verkaufsrechnungen umgewandelt werden.',

  'If disabled sales quotations cannot be converted into sales invoices directly.' => 'Falls deaktiviert, so können Verkaufsangebote nicht direkt in Verkaufsrechnungen umgewandelt werden.',

  'If enabled a column will be shown in sales and purchase orders that lists both the amount and the value not shipped yet for each item.' => 'Falls eingeschaltet, wird für jede Position in Auftragsbestätigungen und Lieferantenaufträgen eine Spalte mit noch nicht gelieferter Menge und Wert angezeigt.',

  'If enabled a warning will be shown in purchase delivery orders on workflow to invoices if positions are not stocked in.' => 'Falls aktiviert, wird eine Warnung beim Workflow von Einkaufslieferscheinen zu Rechnungen ausgegeben, wenn die Positionen noch nicht eingelagert sind.',

  'If enabled a warning will be shown in sales and purchase orders if there are two or more positions of the same part (new controller only).' => 'Falls eingeschaltet, wird eine Warnung angezeigt, wenn der Auftrag mehrere gleiche Artikel enthält (nur neuer Controller).',

  'If the counted quantity differs more than this threshold from the quantity in the database, a warning will be shown. Set to 0 to switch of this feature.' => 'Wenn die gezählte Menge mehr als diesen Schwellenwert von der Menge in der Datenbank abweicht, wird eine Warnmeldung angezeigt. Setzen Sie den Schwellenwert auf 0, um dieses Feature abzuschalten.',

  'If the database user listed above does not have the right to create a database then enter the name and password of the superuser below:' => 'Falls der oben genannte Datenbankbenutzer nicht die Berechtigung zum Anlegen neuer Datenbanken hat, so können Sie hier den Namen und das Passwort des Datenbankadministratoraccounts angeben:',

  'If the default transfer out always succeed use this bin for negative stock quantity.' => 'Standardlagerplatz für Auslagern ohne Prüfung auf Bestand',

  'If yes, delivery order positions are considered "delivered" only if they have been stocked out of the inventory. Otherwise saving the delivery order is considered delivered.' => 'Wenn diese Option aktiviert ist, gelten Lieferscheinpositionen nur dann als geliefert wenn sie im Lieferschein ausgelagert wurden, und die Ware aus dem Lager ausgebucht wurde. Andernfalls gilt das Speichern des Lieferscheins als Lieferung.',

  'If you enter values for the part number and / or part description then only those bins containing parts whose part number or part description match your input will be shown.' => 'Wenn Sie für die Artikelnummer und / oder die Beschreibung etwas eingeben, so werden nur die Lagerplätze angezeigt, in denen Waren eingelagert sind, die Ihre Suchbegriffe enthalten.',

  'If you have not chosen for example the category revenue for a tax and you choose an revenue account to create a transfer in the general ledger, this tax will not be displayed in the tax dropdown.' => 'Wenn Sie z.B. die Kategory Erlös für eine Steuer nicht gewählt haben und ein Erlöskonto beim Erstellen einer Dialogbuchung wählen, wird diese Steuer auch nicht im Dropdown-Menü für die Steuern angezeigt.',

  'Import AR from Scanner or Email' => 'Verkaufsbelege importieren vom Scanner oder von Email',

  'Import CSV'                  => 'CSV-Import',

  'Import Status'               => 'Import Status',

  'Import a MT940 file:'        => 'Laden Sie eine MT940 Datei hoch:',

  'Import all'                  => 'Importiere Alle',

  'Import documents from #1'    => 'Importiere Dateien von Quelle \'#1\'',

  'Import file'                 => 'Import-Datei',

  'No Journal'                  => 'Kein Journal',

  'No Shopdescription'          => 'Keine Shop-Artikelbeschreibung',

  'No Shopimages'               => 'Keine Shop-Bilder',

  'No Vendor was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Händler gefunden',

  'No action defined.'          => 'Keine Aktion definiert.',

  'No article has been selected yet.' => 'Es wurde noch kein Artikel ausgewählt.',

  'No background job has been created yet.' => 'Es wurden noch keine Hintergrund-Jobs angelegt.',

  'No bank account chosen!'     => 'Kein Bankkonto ausgewählt!',

  'No bank account configured for bank code/BIC #1, account number/IBAN #2.' => 'Kein Bankkonto für BLZ/BIC #1, Kontonummer/IBAN #2 konfiguriert.',

  'No bank information has been entered in this customer\'s master data entry. You cannot create bank collections unless you enter bank information.' => 'Für diesen Kunden wurden in seinen Stammdaten keine Kontodaten hinterlegt. Solange dies nicht geschehen ist, können Sie keine Überweisungen für den Lieferanten anlegen.',

  'No bank information has been entered in this vendor\'s master data entry. You cannot create bank transfers unless you enter bank information.' => 'Für diesen Lieferanten wurden in seinen Stammdaten keine Kontodaten hinterlegt. Solange dies nicht geschehen ist, können Sie keine Überweisungen für den Lieferanten anlegen.',

  'No bins have been added to this warehouse yet.' => 'Es wurden zu diesem Lager noch keine Lagerplätze angelegt.',

  'The AR transaction #1 has been deleted.' => 'Die Debitorenbuchung #1 wurde gelöscht.',

  'The Bins in Inventory were only a information text field.' => 'Die Lagerplätze unter Stammdaten/Waren sind nur ein informatives Textfeld.',

  'The Bins in master data were only a information text field.' => 'Die Lagerplätze unter Stammdaten/Waren sind nur ein informatives Textfeld.',

  'The GL transaction #1 has been deleted.' => 'Die Dialogbuchung #1 wurde gelöscht.',

  'The Geierlein path has not been set in the configuration.' => 'Der Geierlein-Pfad wurde in der Konfigurationsdatei nicht gesetzt.',

  'The IBAN \'#1\' is not valid as IBANs in #2 must be exactly #3 characters long.' => 'Die IBAN \'#1\' ist ungültig, da IBANs in #2 genau #3 Zeichen lang sein müssen.',

  'The VAT ID number in the client configuration is invalid.' => 'Die UStID-Nummer in der Mandantenkonfiguraiton ist ungültig.',

  'The VAT registration number is missing in the client configuration.' => 'Die Umsatzsteuer-ID-Nummer fehlt in der Mandantenkonfiguration.',

  'The WebDAV feature has been used.' => 'Das WebDAV-Feature wurde benutzt.',

  'The ZUGFeRD invoice data cannot be generated because the data validation failed.' => 'Die ZUGFeRD-Rechnungsdaten können nicht erzeugt werden, da die Validierung fehlschlug.',

  'The abbreviation is missing.' => 'Abkürzung fehlt',

  'The access rights a user has within a client instance is still governed by his group membership.' => 'Welche Zugriffsrechte ein Benutzer innerhalb eines Mandanten hat, wird weiterhin über Gruppenmitgliedschaften geregelt.',

  'The access rights have been saved.' => 'Die Zugriffsrechte wurden gespeichert.',

  'Use default warehouse for assembly transfer' => 'Zum Fertigen Standardlager des Bestandteils verwenden',

  'Use existing templates'      => 'Vorhandene Druckvorlagen verwenden',

  'Use fill up when calculating shipped quantities?' => 'Sollen nicht verlinkte Positionen abgeglichen werden?',

  'Use linked items'            => 'Verknüpfte Positionen verwenden',

  'Use master default bin for Default Transfer, if no default bin for the part is configured' => 'Standardlagerplatz für Ein- / Auslagern über Standard-Lagerplatz, falls für die Ware kein expliziter Lagerplatz konfiguriert ist',

  'Use settings from client configuration' => 'Einstellungen aus Mandantenkonfiguration folgen',

  'Your download does not exist anymore. Please re-run the DATEV export assistant.' => 'Ihr Download existiert nicht mehr. Bitte starten Sie den DATEV-Exportassistenten erneut.',

  'Your import is being processed.' => 'Ihr Import wird verarbeitet',

  'Your target quantity will be added to the stocked quantity.' => 'Ihre gezählte Zielmenge wird zum Lagerbestand hinzugezählt.',

  'Zeitraum'                    => 'Zeitraum',

  'Zero amount posting!'        => 'Buchung ohne Wert',

  'Zip'                         => 'PLZ',

  'Zip, City'                   => 'PLZ, Ort',

  'Zipcode'                     => 'PLZ',

  'Zipcode and city'            => 'PLZ und Stadt',

  '[email]'                     => '[email]',

  'absolute'                    => 'absolut',

  'account_description'         => 'Beschreibung',

    action: YearEndTransactions/form

- parent: general_ledger

  id: zugferd_import

  icon: cbob

  order: 485

  access: ap_transactions

    action: edit_sepa_strings

- parent: system_languages_and_translations

  id: system_languages_and_translations_zugferd_notes

  order: 450

  module: generictranslations.pl

  params:

     </rdf:li>

[% IF zugferd %]

     <rdf:li rdf:parseType="Resource">

      <pdfaSchema:prefix>fx</pdfaSchema:prefix>

      <pdfaSchema:property>

       <rdf:Seq>

         <pdfaProperty:name>Version</pdfaProperty:name>

         <pdfaProperty:valueType>Text</pdfaProperty:valueType>

         <pdfaProperty:category>external</pdfaProperty:category>

        </rdf:li>

        <rdf:li rdf:parseType="Resource">

         <pdfaProperty:name>ConformanceLevel</pdfaProperty:name>

         <pdfaProperty:valueType>Text</pdfaProperty:valueType>

         <pdfaProperty:category>external</pdfaProperty:category>

        </rdf:li>

       </rdf:Seq>

      </pdfaSchema:property>

  </rdf:Description>

[% IF zugferd %]

                   fx:ConformanceLevel="[% zugferd.conformance_level | xml %]"

                   fx:DocumentFileName="[% zugferd.document_file_name | xml %]"

                   fx:DocumentType="[% zugferd.document_type | xml %]"

  </tr>

  <tr>

  <tr>

   <td>

   </td>

  </tr>

[% IF IS_CUSTOMER %]

   <tr>

     <td>[% L.select_tag('create_zugferd_invoices', ZUGFERD_SETTINGS, with_empty = 1) %]</td>

   </tr>

[% END %]

      <td>

        [% L.checkbox_tag('cv.order_lock', checked = SELF.cv.order_lock, for_submit=1) %]

      </td>

     </tr>

    [% END %]

  </table>

   <tr>

    <th class="listheading">&nbsp;</th>

   </tr>

   [%- FOREACH language = LANGUAGES %]

  <td>[% P.chart.picker('object.chart_id', SELF.object.chart_id, type='AR_paid,AP_paid', category='A,L,Q', choose=1, style=style, "data-validate"="required", "data-title"=LxERP.t8("Chart")) %]</td>

 </tr>

 <tr>

  <td>[% L.checkbox_tag('object.use_for_zugferd', checked = SELF.object.use_for_zugferd, for_submit=1) %]</td>

 </tr>

 <tr>

 <div class="listtop">[% FORM.title %]</div>

 <p>

 </p>

 <form method="post" action="controller.pl" enctype="multipart/form-data" id="form">

    [% L.input_tag('file', '', type => 'file', accept => '.pdf') %]

 </form>