projekt kivitendo

  my $query    =

    qq|SELECT ac.acc_trans_id, ac.transdate, ac.trans_id,ar.id, ac.amount, ac.taxkey,

         ar.invnumber, ar.duedate, ar.amount as umsatz, ar.deliverydate,

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

         ar.invoice,

         t.rate AS taxrate

       SELECT ac.acc_trans_id, ac.transdate, ac.trans_id,ap.id, ac.amount, ac.taxkey,

         ap.invnumber, ap.duedate, ap.amount as umsatz, ap.deliverydate,

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

         ap.invoice,

         t.rate AS taxrate

       SELECT ac.acc_trans_id, ac.transdate, ac.trans_id,gl.id, ac.amount, ac.taxkey,

         gl.reference AS invnumber, gl.transdate AS duedate, ac.amount as umsatz, NULL as deliverydate,

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

         FALSE AS invoice,

         t.rate AS taxrate

      my $datevautomatik = 0;

      my $taxkey         = 0;

      my $charttax       = 0;

      my ($haben, $soll);

      my $iconv          = $::locale->{iconv_utf8};

      my %umlaute = ($iconv->convert('ä') => 'ae',

          $soll = $i;

        }

      }

      # Umwandlung von Umlauten und Sonderzeichen in erlaubte Zeichen bei Textfeldern

      foreach my $umlaut (keys(%umlaute)) {

        $transaction->[$haben]->{'invnumber'} =~ s/${umlaut}/${umlaute{$umlaut}}/g;

        if ($transaction->[$haben]->{'name'} ne "") {

          $buchungstext = "\x1E" . $transaction->[$haben]->{'name'} . "\x1C";

        }

        if ($transaction->[$haben]->{'duedate'} ne "") {

          $belegfeld2 = "\xBE" . &datetofour($transaction->[$haben]->{'duedate'}, 1) . "\x1C";

        }

      $kne_file->add_block($datum);

      $kne_file->add_block($konto);

      $kne_file->add_block($buchungstext);

      $kne_file->add_block($waehrung . "\x79");

    }