projekt kivitendo

our @EXPORT_CREATE = qw(create_zugferd_data create_zugferd_xmp_data);

our @EXPORT_IMPORT = qw(import_zugferd_xml);

our @EXPORT_OK = (@EXPORT_CREATE, @EXPORT_IMPORT);

our %EXPORT_TAGS     = (

  ALL => (@EXPORT_CREATE, @EXPORT_IMPORT),

  CREATE => \@EXPORT_CREATE,

  IMPORT => \@EXPORT_IMPORT,

);

use SL::DB::RecordTemplate;

sub import_zugferd_xml {

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

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

  my $ustid = $zugferd_xml->findnodes(

    '//ram:SellerTradeParty/ram:SpecifiedTaxRegistration'

  )->string_value;

  die t8("No VAT Info for this Factur-X/ZUGFeRD invoice," .

         " please ask your vendor to add this for his Factur-X/ZUGFeRD data.") unless $ustid;

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

  # 1.1 check if we a have a vendor with this VAT-ID (vendor.ustid)

  my $vendor_name = $zugferd_xml->findnodes('//ram:SellerTradeParty/ram:Name')->string_value;

  my $vendor = SL::DB::Manager::Vendor->find_by(

    ustid => $ustid,

    or    => [

      obsolete => undef,

      obsolete => 0,

    ]);

  if (!$vendor) {

    # 1.2 If no vendor with the exact VAT ID number is found, the

    # number might be stored slightly different in the database

    # (e.g. with spaces breaking up groups of numbers). Iterate over

    # all existing vendors with VAT ID numbers, normalize their

    # representation and compare those.

    my $vendors = SL::DB::Manager::Vendor->get_all(

      where => [

        '!ustid' => undef,

        '!ustid' => '',

        or       => [

          obsolete => undef,

          obsolete => 0,

        ],

      ]);

    foreach my $other_vendor (@{ $vendors }) {

      next unless SL::VATIDNr->normalize($other_vendor->ustid) eq $ustid;

      $vendor = $other_vendor;

      last;

    }

  }

  die t8("Please add a valid VAT-ID for this vendor: #1", $vendor_name)

    unless (ref $vendor eq 'SL::DB::Vendor');

  # 2. check if we have a ap record template for this vendor (TODO only the oldest template is choosen)

  my $template_ap = SL::DB::Manager::RecordTemplate->get_first(where => [vendor_id => $vendor->id]);

  die t8("No AP Record Template for vendor #1 found, please add one", $vendor_name)

    unless (ref $template_ap eq 'SL::DB::RecordTemplate');

  # 3. parse the zugferd data and fill the ap record template

  # -> no need to check sign (credit notes will be negative) just record thei ZUGFeRD type in ap.notes

  # -> check direct debit (defaults to no)

  # -> set amount (net amount) and unset taxincluded

  #    (template and user cares for tax and if there is more than one booking accno)

  # -> date (can be empty)

  # -> duedate (may be empty)

  # -> compare record iban and generate a warning if this differs from vendor's master data iban

  my $total = $zugferd_xml->findnodes(

    '//ram:SpecifiedTradeSettlementHeaderMonetarySummation' .

    '/ram:TaxBasisTotalAmount'

  )->string_value;

  my $invnumber = $zugferd_xml->findnodes(

    '//rsm:ExchangedDocument/ram:ID'

  )->string_value;

  # parse dates to kivi if set/valid

  my %dates = (

    transdate => {

      key => '//ram:IssueDateTime',

      value => undef,

    },

    duedate   => {

      key => '//ram:DueDateDateTime',

      value => undef,

    },

  );

  foreach my $date (keys %dates) {

    my $string_value = $zugferd_xml->findnodes($dates{$date}->{key})->string_value;

    $string_value =~ s/^\s+|\s+$//g;

    if ($string_value =~ /^[0-9]{8}$/) {

      $dates{$date}->{value} = DateTime->new(

        year  => substr($string_value,0,4),

        month => substr ($string_value,4,2),

        day   => substr($string_value,6,2)

      )->to_kivitendo;

    }

  }

  my $transdate = $dates{transdate}->{value};

  my $duedate   = $dates{duedate}->{value};

  my $type = $zugferd_xml->findnodes(

    '//rsm:ExchangedDocument/ram:TypeCode'

  )->string_value;

  my $dd   = $zugferd_xml->findnodes(

    '//ram:ApplicableHeaderTradeSettlement' .

    '/ram:SpecifiedTradeSettlementPaymentMeans/ram:TypeCode'

  )->string_value;

  my $direct_debit = $dd == 59 ? 1 : 0;

  my $iban = $zugferd_xml->findnodes(

    '//ram:ApplicableHeaderTradeSettlement/ram:SpecifiedTradeSettlementPaymentMeans' .

    '/ram:PayeePartyCreditorFinancialAccount/ram:IBANID'

  )->string_value;

  my $ibanmessage;

  $ibanmessage = $iban ne $vendor->iban ?

      "Record IBAN $iban doesn't match vendor IBAN " . $vendor->iban

    : $iban if $iban;

  # write values to self

  my $today = DateTime->today_local;

  my $additional_notes = "ZUGFeRD Import. Type: $type\nIBAN: " . $ibanmessage;

  my %params = (

    invoice      => 0,

    vendor_id   => $vendor->id,

    taxzone_id   => $vendor->taxzone_id,

    currency_id => $template_ap->currency_id,

    direct_debit => $direct_debit,

    globalproject_id  => $template_ap->project_id,

    payment_id  => $template_ap->payment_id,

    invnumber   => $invnumber,

    transdate   => $transdate || $today->to_kivitendo,

    duedate     => $duedate   || (

      $template_ap->vendor->payment ?

        $template_ap->vendor->payment->calc_date(reference_date => $today)->to_kivitendo

      : $today->to_kivitendo

    ),

    department_id => $template_ap->department_id,

    ordnumber => $template_ap->ordnumber,

    taxincluded => 0,

    notes    => join("\n", $template_ap->notes, $additional_notes),

    transactions => [],

    transaction_description => $template_ap->transaction_description,

  );

  $self->assign_attributes(%params);

  foreach my $template_item (@{$template_ap->items}) {

    my %line_params = (

      amount => $total,

      project_id => $template_item->project_id,

      tax_id => $template_item->tax_id,

      chart  => $template_item->chart,

    );

    $self->add_ap_amount_row(%line_params);

  }

  $self->recalculate_amounts();

  my $ap_chart = SL::DB::Manager::Chart->get_first(

    where => [id => $template_ap->ar_ap_chart_id]

  );

  $self->create_ap_row(chart => $ap_chart);

  return $self;

}

use SL::DB::Helper::ZUGFeRD qw(:CREATE);

use SL::DB::Helper::ZUGFeRD qw(:IMPORT);

sub create_from_zugferd_xml {

  my ($class, $zugferd_xml) = @_;

  my $ap_invoice = $class->new();

  $ap_invoice->import_zugferd_xml($zugferd_xml)->save();

}

  'No AP Record Template for vendor #1 found, please add one' => 'Kein Belegvorlage für Lieferant #1 gefunden, bitte eine anlegen',

  'No AP Record Template for this vendor found, please add one' => '',

  'No AP Record Template for vendor #1 found, please add one' => '',