projekt kivitendo

  die "illegal trans_id passed for DATEV export: " . $self->{trans_id} . "\n" unless $self->{trans_id} =~ m/^\d+$/;

  my $fromto   = shift;

  if ( $self->{trans_id} ) {

    # ignore dates when trans_id is passed so that the entire transaction is

    # checked, not just either the initial bookings or the subsequent payments

    # (the transdates will likely differ)

    $fromto = '';

    $trans_id_filter = 'ac.trans_id = ' . $self->trans_id;

  } else {

    $fromto      =~ s/transdate/ac\.transdate/g;

  };

  my $continue = 1; #

  my $name;

  while ( $continue && (my $ref = $sth->fetchrow_hashref("NAME_lc")) ) {

    last unless $ref;  # for single transactions

      unless ( $ref2 ) {

        $continue = 0;

        last;

      };

      # trans_id of the first line in group, i.e. we haven't finished a 0-group

      # before moving on to the next trans_id, error will likely be in the old

      # trans_id.

        require SL::DB::Manager::AccTransaction;

        if ( $trans->[0]->{trans_id} ) {

          my $acc_trans_old_obj  = SL::DB::Manager::AccTransaction->get_first(where => [ trans_id => $trans->[0]->{trans_id} ]);

          $self->add_error("Unbalanced ledger! Old: " . $acc_trans_old_obj->transaction_name) if ref($acc_trans_old_obj);

        };

        if ( $ref2->{trans_id} ) {

          my $acc_trans_curr_obj = SL::DB::Manager::AccTransaction->get_first(where => [ trans_id => $ref2->{trans_id} ]);

          $self->add_error("Unbalanced ledger! New:" . $acc_trans_curr_obj->transaction_name) if ref($acc_trans_curr_obj);

        };

        $self->add_error("count: $count");

      require SL::DB::Manager::AccTransaction;

      my $acc_trans_obj  = SL::DB::Manager::AccTransaction->get_first(where => [ trans_id => $trans->[0]->{trans_id} ]);

      $self->add_error("Datev-Export fehlgeschlagen! Bei Transaktion " . $acc_trans_obj->transaction_name . " ($absumsatz)");

  my $startdate = DateTime->new(year => 2014, month => 9, day => 1);

  my $enddate   = DateTime->new(year => 2014, month => 9, day => 31);

  # To only export transactions from a specific trans_id: (from and to are ignored)

  my $invoice = SL::DB::Manager::Invoice->find_by( invnumber => '216' );

  my $datev = SL::DATEV->new(

    exporttype => DATEV_ET_BUCHUNGEN,

    format     => DATEV_FORMAT_KNE,

    trans_id   => $invoice->trans_id,

  );

  # manually clean up temporary directories older than 8 hours

Generic constructor. See section attributes for information about what to pass.

Returns a list of filenames generated by this DATEV object. This only works if the files were generated during its lifetime, not if the object was created from a download_token.

Set boundary dates for the export. Unless a trans_id is passed these MUST be

set for the export to work.

=item trans_id

To check only one gl/ar/ap transaction, pass the trans_id. The attributes

L<from> and L<to> are currently still needed for the query to be assembled

correctly.

OBE export was called, which is not yet implemented.

transaction could not be reliably sorted out, or had rounding errors above the acceptable threshold.

Handling of Vollvorlauf is currently not fully implemented. You must provide both from and to in order to get a working export.