Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package Application::IfTFiBu;

use strict;
use Algorithm::Diff;
use Digest::MD5;
use Data::Dumper;

# our $slash = "/";

#*****************************************************************

sub new {

   my $class   = shift;
   $class      = ref($class) || $class;
   my $self    = {};
   $self->{'FILE'} = shift;
   bless($self,$class);
   return($self);
   
}

#*****************************************************************

sub shell {

   my $self  = shift;
   my $cmd   = shift;
   my $datei = shift;
   my $pars  = [@_];
   
   my $o; my $o1; my $mark; my $mark1; my $zaehler; my $file;
   my $konten = {}; 


   if ($cmd eq "use" and $datei) {
      while ($datei) {
         $o     = $o . substr($datei,0,1) . ".\*";
         $datei = substr($datei,1);
      }
      $datei = ".\*" . $o;
   }

   my $laenge = 0;
   opendir(DDIR,$self->{'FILE'} || ".");
   while (0 == 0) {
      $o = readdir(DDIR);
      last if (!$o);
      if ($o =~ /^(.*)\.(csv|kto|txt|sql)$/) {
         $konten->{$1} = $2;
         $o  = $1;
         $o1 = length($o);
         $laenge = $o1 if ($o1 > $laenge);
         if ($cmd eq "use" and !$mark1 and $o =~ /$datei/) {
            $mark1 = $o;
         }
      }
      elsif ($o =~ /^mark\.(.*)$/) {
         $mark = $1;
      }
   }
   closedir(DDIR);
   
   if ($mark1) {
      unlink("mark.$mark");
      open(FFILE,">mark.$mark1");
      print FFILE "1\n";
      close(FFILE);
      $mark = $mark1;
   }
   
   if ($cmd eq "use") {
      print "\n\n\nKontenliste:\n-------------\n";
      foreach $o (sort keys %$konten) {
         $o = substr($o." "x$laenge,0,$laenge) . "  <--- aktives Konto" if ($o eq $mark);
         print $o . "\n";
      }
      print "-------------\n\n";
   }
   
   elsif ($cmd =~ /^(ex|im)/) {
      $self->new($mark.".".$konten->{$mark})->viewkonto_txt($datei);
   }

   elsif ($datei eq "csv") {
      $self->new($mark.".".$konten->{$mark})->viewkonto_txt($cmd,$datei);
   }

   elsif ($datei eq "kto") {
      $self->new($mark.".".$konten->{$mark})->viewkonto_txt($cmd,$datei);
   }

   else {
      $datei = $datei || "edit";
      $file = $self->new($mark.".".$konten->{$mark})->viewkonto_txt($cmd);
      return($file) if ($file =~ /ERROR/);
      $self->$datei($file) if ($file !~/xxx/);
      $file = $self->new($mark.".".$konten->{$mark})->viewkonto_txt($cmd);
   }
   
   
}

#*****************************************************************

sub edit { my $self = shift; my $file = shift; system("joe $file"); }

#*****************************************************************

sub viewkonto_txt {

   my $self   = shift;
   my $kto    = shift;  #  Unterkonto, das angezeigt wird
   my $format = shift;

   my $text; my $text1; my $datum; my $kto1; my $kto2; my $betrag; my $remark;
   my $zeile; my $zeile1; my $zeile2; my $sum; my $o; my $o1; my $name; my $mode;
   my $diff; my $buchh; my $text0; my $header; my $file; my $merged; my $buchh0;
   my $anzahl_zeilen; my $zaehler;

#  1. Ermitteln des Ziel-Files


   return("___NO_SOURCE_FILE___") if ($self->{'FILE'} !~ /^(.*)\.(csv|txt|kto)$/);
   $buchh0 = $1;
   $buchh0 =~ s/^(.*)[\\\/](.*)$/$2/;
   $mode   = "kto"   if ($format =~ s/k//i or !$format);
   $mode   = "csv"   if ($format =~ s/c//i);
   $file   = $buchh0 . "--" . $kto . "." . $mode;
   while ($file =~ s/^(.*)\-\-(.*)\-\-(.*)/$1-$2--$3/) { 1; }
   $file   =~ s/\-+\./\./;
#   $buchh0 = $kto0 . "--" . $kto if ($kto);
   
#  2.  Aufloesen des Quellfiles in Buchhaltung ($buchh0) und Konto ($name)

   $name = "";
   if ($buchh0 =~ s/^(.*?)--(.*)$/$1/) {
      $name = $2;
   }

#  3.  Aufloesen des Kontos in Unterbuchhaltung ($kto0) und Unterkonto ($kto)

   my $kto0  = "";
   if ($kto  =~ s/^(.*)--(.*)$/$1-$2/) {
      $kto0  = $1;  #  Unterbuchhaltung
   }
   $kto =~ s/\-$//;
   
#  4. Auslesen der Quelldaten

   open(FFILE,"<".$self->{'FILE'});
   if (-f $file) {
      $text   = [<FFILE>];
      shift(@$text);
      $text0  = $buchh0 . "--" . $name . "\n" . join("",@$text); #  Speichern des gesamten Files im Falle eines Merge
      $text   = join("",grep(/$kto/,@$text))
   } else {
      $text = <FFILE>;
      $text = join("",grep(/$kto/,<FFILE>));  #  von vorneherein eine Beschraenkung auf Zeilen, die das Konto enthalten
   }
   close(FFILE);
   
#  5.  Eigentliche Berechnung des Exzerpts

   $text =~ s/(\d\d\d\d\d\d\d\d[; ]+\-?\d+\.\d\d[ ;]+)$kto(.*?[ ;]+)/$1---EMPTY---$2/g;  #  relativer Kontopfad
   $text =~ s/(\d\d\d\d\d\d\d\d[; ]+)(\-?\d+\.\d\d[ ;]+)([^ ;]+?[ ;]+)$kto(.*?[ ;]+)/$1\-$2---EMPTYY---$4$3/g; # Konten umdrehen

   $text =~ s/(---EMPTYY---[^\n]+\{/\{\{/;
   $text =~ s/
   $text =~ s/\{(.*?)$kto([a-zA-Z0-9\-\_\:]*)(.*?)\}/\{$1$2$3\}/g;  # Konten in Berechnungen aendern

   $text =~ s/---EMPTY----/-/g;  # Referenz auf das Konto selbst
   $text =~ s/---EMPTY---/-/g;   # eliminieren
   $text =~ s/(\d\d\d\d\d\d\d\d[; ]+-?)--/$1 /g;  #  doppelte Minuszeichen eliminieren
   $text =~ s/(\d\d\d\d\d\d\d\d[; ]+\-?\d+\.\d\d[ ;]+[^ ;-][^\n]+)//g; # ) { 1; } absolutes Konto als erstes Konto geht nicht
   $text =~ s/\n\s*\n/\n/gs;
   $text =~ s/^([^ \n;]+)[; ]+\-?\d+\.\d\d( *)$/$1/g; #  Kontobezeichnungen uebernehmen
   while ($text =~ s/\n$kto0-([^ ;]+[; ]+[^ ;]+)(\s*)\n/\n$1\n/gs) { 1; };  #  Kontobezeichnungen uebernehmen
   while ($text =~ s/\n$kto0-([^ ;]+[; ]+[^ ;]+)[ ;]+(-\d+\.\d\d)(\s*)\n/\n$1\n/gs) { 1; };  #  Kontobezeichnungen uebernehmen
#   while ($text =~ s/\n\s*\S+\s*\n/\n/gs) { 1; }   #  leere Kontoeintraege entfernen

   if ($kto0) {  #  wenn das $kto in Buchhaltung und Zielkonto gesplittet war ...
      $kto  =~ s/^$kto0//;
      $kto  =~ s/^-//;
      $kto0 = $buchh0 . ":" . $name . "-" . $kto0;
      $kto0 =~  s/[:-]-/:/g;
      $text =~ s/(\d\d\d\d\d\d\d\d[; ]+\-?\d+\.\d\d[ ;]+[^ ;]+?[ ;]+)([^ -][^ :;]*)/$1$buchh0\:$2/g;
      $text =~ s/\[([^-][^ :;]?)\]/\[$buchh0\:$1\]/g;
   } else {
      $kto0 = $buchh0;
   }

   $text =~ s/(\d\d\d\d\d\d\d\d[; ]+\-?\d+\.\d\d[ ;]+[^ ;]+?[ ;]+)($kto0\-)/$1/g;
   $text =~ s/\[$kto0\-(.*?)\]/\[$1\]/g;
   $kto0 =~ s/\:/\-/g;
   if (!$kto) {
      $text =~ s/(\d\d\d\d\d\d\d\d[; ]+\-?\d+\.\d\d[ ;]+)\-/$1/g;
      $text =~ s/(\d\d\d\d\d\d\d\d[; ]+\-?\d+\.\d\d[ ;]+[^ ;]+[ ;]+)\-/$1/g;
      $text =~ s/\[-(.*?)\]/\[$1\]/g;
   }
# print $text; exit;
   $text   = $self->to_txt($kto0."--".$kto."\n".$text,$mode,1);

#  6. --- Change mode -----------------------------------------------

   if ($text0) {

      $diff    = $self->compute_diff($text,$file);

      if (!(ref($diff))) { #  merge conflict
         $file = $file . "_" . $diff;
      } else {
# print "FILE: $file " . Dumper($diff) . "\n"; 

         $buchh   = $diff->[0];
         $kto     = $diff->[1];
         $merged  = 0;
         $anzahl_zeilen = scalar ( split(/\n/,$text0) );
#$self->mm("ABC");
         foreach $zeile (split(/\n/,$diff->[2])) {  #  delete list
            $zeile1 = "";
            $zeile =~ s/\+/\./g;
            $zeile =~ s/([ ;])[^ ;]+?\:/$1/g;
            if ($zeile =~ /^(\d\d\d\d\d\d\d\d)[; ]+-?(\d+\.\d\d)[; ]+([^ :;]*?)\-?+[; ]+([^ :;]*?)\-?[; ]+-?\d+\.\d\d[ ;]+(.*?)[ ;]*$/) {
               $zeile1 = "($1\[ ;\]+?-?$2\[ ;\]+?\[^ ;\]*$3\[ ;\]+?\[^ ;\]*$4\[ ;\]+?\-?\\d+\\.\\d\\d\[ ;\]+?$5" .
                         "|$1\[ ;\]+?-?$2\[ ;\]+?\[^ ;\]*$4\[ ;\]+?\[^ ;\]*$3\[ ;\]+?\-?\\d+\\.\\d\\d\[ ;\]+?$5)";
            }
            elsif ($zeile =~ /^([^ ;]+)[ ;]+([^ ;]+)[ ;]+-?(\d+\.\d\d)/) {
               $zeile1 = "\[^ ;\]*?$1\[ ;\]+$2\[ ;\]+\-?$3";
            }
            if ($zeile1) {
               
               $merged = $merged + 1;
#            return("ERROR: Line not found: $zeile  $zeile1\n") if ($zeile1 and $text0 !~ s/\n$zeile1[ ;]*//gs);
               return("ERROR: Line not found: $zeile\n") if ($text0 !~ s/\n$zeile1[ ;]*//s);  #  falls
               return("ERROR: Double line: $zeile\n") if ($text0 =~ /\n$zeile1[ ;]*/s);  #  solche Fehler auftreten
            }
         }                           #  mit diesen beiden Zeilen genauere Angabe als mit der einen darueber
#$self->mm("ABC");
         return("ERROR: Double line") if ( $anzahl_zeilen - $merged != scalar ( split(/\n/,$text0) ) );

         foreach $zeile (split(/\n/,$diff->[3])) {  #  add list
            $merged = 1;
            if ($zeile =~ s/^(\d\d\d\d\d\d\d\d[; ]+)([^ ;]+)([; ]+)([^ ;]+)([; ]+)([^ ;]+)(.*?)[ ;]*$/$1---BETRAG---$3---KTO1---$5---KTO2---$7/) {
               $o     = [$4,$6];
               $o1    = sprintf("%3.2f",eval($2));
               $zeile =~ s/\{[a-zA-Z0-9\-\_\:]+\}/\{\[$1\]\}/;
               $zeile =~ s/---BETRAG---/ $o1 /;
               $zaehler = 1;
               while (0 == 0) {             #   Auswerten der Formeln
                  last if ($zeile !~ s/\{(.*?)(\([a-zA-Z0-9\-\_]+\:[a-zA-Z0-9\-\_]+\)|\[[a-zA-Z0-9\-\_\:]+\])(.*?)\}/\{$1---FORMEL---$3\}/);
                  if ($2 =~ /[\[\(](.*?)[\)\]]/) {
                     push(@$o,$1);
                  }
                  $zaehler = $zaehler + 1;
               }
               foreach $o1 (@$o) {
                  $o1 =~ s/^-/$kto-/;       #  auf absoluten Kontopfad bringen
                  if ($o1 !~ /\:/) { $o1 = $buchh . ":" . $o1; }
                  $o1 =~ s/-$//;
                  if ($o1 =~ s/^$buchh0[-\:]//) {  # wieder relativieren
                     $o1 =~ s/\:/\-/gs;
                     if ($o1 =~ s/$name//) {
                        $o1 = "-" if (!$o1);
                     }
                  }
               }
               $o1 = shift(@$o);
               $zeile =~ s/---KTO1---/$o1/;
               $o1 = shift(@$o);
               $zeile =~ s/---KTO2---/$o1/;
               while (0 == 0) {   #  korrigierte Formeln
                  $o1 = shift(@$o);
                  last if (!$o1);
                  $zeile =~s /---FORMEL---/\[$o1\]/;
               }
#print "WW: $zeile\n";
            }
            elsif ($zeile =~ /$buchh(.*?)$kto(.*?)([^ ;]+?)[ ;]*$/) {
               $zeile = $buchh . "-" . $kto . "  " . $3;
               $zeile =~ s/^$buchh0\-//;
            }
            elsif ($zeile =~ /^([^ ;]+)[ ;]+([^ ;]+)/) {
               $zeile = $buchh . "-" . $zeile;
               $zeile =~ s/^$buchh0\-//;
            }
            $text0 = $zeile . "\n" . $text0;
         }
#exit;
         if ($merged or $kto eq "xxx") {
            $text  = join("\n",sort { $self->sortbuchung($a) cmp $self->sortbuchung($b) }
                              split(/\n/,$text0) );
            $text = $self->to_txt($text,$mode,0);
         }
         unlink($file);
         $file  = $self->{'FILE'};
         return($file) if (!$merged);
         
      }
         
   }

# 7. Abspeichern der Ergebnisdatei  ----------------------------------------

   open(FFILE,">$file");
   print FFILE $text;
   close(FFILE);

   return($file);


}

#******************************************************************************

sub to_txt {

   my $self = shift;
   my $text = shift;
   my $mode = shift;
   my $format = shift;
   
#   my $reduce_ktolist = 0;
#   $reduce_ktolist    = 1 if ($format =~ s/1//);
   
   my $zeile; my $datum; my $betrag; my $kto1; my $kto2; my $remark;
   my $o; my $space; my $tab; my $sum; my $kto3; my $xtab; my $ytab;
   my $buchh; my $kto; my $md5; my $kto9;
   
   my $text1      = "";   
   my $bezeichner = {};

   my $gesamt = {};
   foreach $zeile (split(/\n/,$text)) {
      if ($zeile =~ /^(\d\d\d\d\d\d\d\d)[; ]+(-?\d+\.\d\d)[; ]+([^ ;]+?)[; ]+([^ ;]+?)([; ]+)(.*)$/) {
         $datum  =  $1;
         $betrag =  $2;
         $kto1   =  $3;
         $kto2   =  $4;
         $sum    =  "0.00";
         $remark =  $6;
         $remark =~ s/^\-?\d+\.\d\d[; ]+//;
         if ($kto1 !~ /^\-/ and $kto1 !~ /^\-/ and $betrag < 0) {
            $betrag = (-1) * $betrag;
            $kto3 = $kto1;
            $kto1 = $kto2;
            $kto2 = $kto3;
            if ($remark !~ s/\{\-\((.*?)\)\}/\{$1\}/) {
               $remark =~  s/\{(.*?)\}/\{\-\($1\)\}/;
            }
         }

#if (1 or $reduce_ktolist) {
         $kto3 = $kto1;
         $kto3 =~ s/^\-/$kto9/;
         $kto3 =~ s/\-+$//g;
         while (0 == 0) {
            last if ($kto3 !~ /^$kto/);
            $gesamt->{$kto3} = $gesamt->{$kto3} + $betrag;
            last if (!$kto3);
            $kto3 = "" if ($kto3 !~ s/^(.*)\-(.*)$/$1/);
         }
         $kto3 = $kto2;
         $kto3 =~ s/^\-/$kto9/;
         $kto3 =~ s/\-+$//g;
         while (0 == 0) {
            last if ($kto3 !~ /^$kto/);
            $gesamt->{$kto3} = $gesamt->{$kto3} - $betrag;
            last if (!$kto3);
            $kto3 = "" if ($kto3 !~ s/^(.*)\-(.*)$/$1/);
         }
         $sum = $gesamt->{$kto};
#}

         if ($mode eq "kto") {
            if (length($kto1) < 13) { $kto1 = substr($kto1." "x13,0,13); }
            if (length($kto2) < 13) { $kto2 = substr($kto2." "x13,0,13); }
            while ($remark =~ s/^\;/   /) { 1; }
            $zeile = $datum . " " . sprintf("%11.2f",$betrag) . "  " .
                     $kto1 . "___TAB1___" . (sprintf("%09b",1023-length($kto1))) . "___ " .
                     $kto2 . "___TAB2___" . (sprintf("%09b",1023-length($kto2))) . "___  " .
                     sprintf("%11.2f",$sum) . "  " . $remark;
         } else {
            $zeile = $datum . ";" . sprintf("%3.2f",$betrag) . ";" .
                     $kto1 . ";" .
                     $kto2 . ";" .
                     sprintf("%3.2f",$sum) . ";" . $remark;
         }
         $text1 = $text1 . $zeile . "\n";
      }
      elsif ($zeile =~ /^\s*(.*?)([ ;]+)([^ ;\-0123456789][^ ]*)/) {
         $bezeichner->{$1} = $3;
#         if (!$reduce_ktolist) {
            $gesamt->{$1}     = "___EMPTY___" if (!(exists ($gesamt->{$1})));
#         }
      }
      elsif (!$buchh and $zeile =~ /^(.*)--(.*)/) {
         $buchh = $1;
         $kto   = $2;
         $kto9  = $kto . "-";
         if (!$kto) { $kto9 = ""; }
      } 
   }
   $text1 = $text1 . "\n";
   $xtab  = substr($kto,1);

   foreach $kto1 (sort keys %$gesamt) {
      $betrag  = $gesamt->{$kto1};
      if ($betrag eq "___EMPTY___") {
         $betrag = "";
      } else {
         $betrag = sprintf("%13.2f",$betrag);
      }
      $betrag =~ s/^(.*?)( *)$/$2$1/;
      $betrag =~ s/ /\\/g;
      $ytab   =  $kto1;
      $ytab   =~ s/[^-]//g;
      $ytab   =~ s/^$xtab//;
      if ($mode eq "kto") {
         $o     = $bezeichner->{$kto1} || ""; # "___undefined___";   #  Kontobezeichner
         if (length($betrag) < 13) { $betrag = substr($betrag." "x13,0,13); }
         if (length($kto1)   < 13) { $kto1   = substr( $kto1." "x13,0,13); }
         if (length($o)      < 13) { $o      = substr(    $o." "x13,0,13); }
         $ytab   =~ s/\-/\\/g;
         $zeile  = $kto1 . "___TAB3___" . (sprintf("%09b",1023-length($kto1))) . "___ " . $o;
         $zeile  = $zeile . "___TAB4___" . (sprintf("%09b",1023-length($o)))
                    . "___ " . $ytab . $ytab . $ytab . $betrag;  #  if ($betrag);
      } else {
         $ytab   =~ s/\-/\;/g;
         $zeile  = $kto1 . ";" .
                   $bezeichner->{$kto1} . ";" .
                   $ytab . $zeile;
      }
      $text1  = $text1 . $zeile . "\n";
   }

# if ($kto ne "10-1202") {  print $text1; exit; }
# print $text1; exit;

   if ($mode eq "kto") {
      foreach $tab (1,2,3,4) {  #  minimale Einrueckung bestimmen
         my $space1 = "";
         while (0 == 0) {
            $space1 = $space1 . "0";
            next if ($text1 =~ /___TAB$tab\___$space1/);
            $space1 = substr($space1,0,length($space1)-1) . "1";
            last if ($text1 !~ /___TAB$tab\___$space1/);
         }
         $space1 = eval("0b".substr($space1,0,length($space1)-1));
         while (0 == 0) {  #  Spezielle Einrueckungen vornehmen
            last if ($text1 !~ /___TAB$tab\___([01]+)\___/);
            $o = $1;
            $space = " " x  (eval("0b".$o) - $space1);
            $text1 =~ s/___TAB$tab\___$o\___/$space/gs;
         }
      }
      $text1 =~ s/\\/ /g;  #  if ($kto eq "10-1202");
   }
#   $o     = $text1;
#   $o     =~ s/[ ;]+/ /g;

   $text1 =~ s/( *)\n/\n/gs;
   my $md5 = Digest::MD5::md5_base64($text1);
   $md5    =~  s/\+/\-/gs;
   $md5    =~  s/\//\_/gs;

   if ($mode eq "kto") {
      $text1 = $buchh . ", " . $kto . " (" . $md5 . ")   -- " . $bezeichner->{$kto} . "\n\n" . $text1;
   } else {
      $text1 = $buchh . ";" . $kto . ";;" . $md5 . ";;" . $bezeichner->{$kto} . "\n\n" . $text1;
   }

   return($text1);

}

#******************************************************************

sub compute_diff {   #  compute a diff for changing the Buchungs-Liste

   my $self   = shift;
   my $list0  = shift;
   my $list   = shift;

   if (-f $list0) {
      open(FFILE,"<".$list0);
      $list0 = join("",<FFILE>);
      close(FFILE);
   }
   
   if(!$list) {
      $list  = $self->change_kto($list0);
   }
   elsif (-f $list) {
      open(FFILE,"<".$list);
      $list = join("",<FFILE>);
      close(FFILE);
   }
   

   return([]) if ($list0 !~ /^(.*?)[ ,;\(\)]+(.*?)[ ,;\(\)]+?([^ ,;\(\)]+)(.*?)\n/);
   my $buchh = $1;
   my $kto   = $2;
   my $md5   = $3;
   return($md5) if ($list  !~ /^$buchh[ ,;\(\)]+$kto[ ,;\(\)]+$md5(.*?)\n/);
      
   $list0 = [ sort { $self->sortbuchung($a) cmp $self->sortbuchung($b) }
                split(/\n/,$list0) ];
   $list  = [ sort { $self->sortbuchung($a) cmp $self->sortbuchung($b) }
                split(/\n/,$list) ];
   
   my $addlist = "";
   my $dellist = "";
   my $o; my $o1;
   
#   print Dumper ( Algorithm::Diff::diff( $list0,$list ) );  exit;
   
   foreach $o ( Algorithm::Diff::diff( $list0,$list ) ) {
      foreach $o1 (@$o) {
         if ($o1->[0] eq "+") {
            $addlist = $addlist . $o1->[2] . "\n";
         } else {
            $dellist = $dellist . $o1->[2] . "\n";
         }
      }
   }

   return([$buchh,$kto,$dellist,$addlist]);

}

#*****************************************************************
#*****************************************************************

sub sortbuchung {

   my $self = shift;
   my $text = shift;

   if ($text !~ /^(\d\d\d\d\d\d\d\d)[; ]+-?(\d+\.\d\d)[; ]+([^ ;]*?)[; ]+([^ ;]*?)+[; ]+-?\d+\.\d\d[ ;]+(.*)$/) {
      return("9999 " . $text);
   }
 
   my $erg   = $5;
   my $kto1  = $3;
   my $kto2  = $4;
   my $datum = $1;
   
   $erg    =~ s/[äöüÄÖÜß]/X/g;
   if ($erg =~ s/^\d(.*?)\((.*)\)$/$2/s) {  #  Umsatzsteuerbehandlung
      $erg = substr($erg,0,22) . "ZZZZZZZZZZZZZZZZZZZZZZZZZ";
   } else {
      $erg = substr($erg,0,22) . "AAAAAAAAAAAAAAAAAAAAAAAAA";
   }
   $erg = substr($erg,0,23);

   if    ($erg =~ /^Brutto-Lohn/)                  { $erg = "01" . $erg; }
   elsif ($erg =~ /^(LST|Lohnsteuer)/)             { $erg = "02" . $erg; }
   elsif ($erg =~ /^(KST|Kirchensteuer)/)          { $erg = "03" . $erg; }
   elsif ($erg =~ /^Soli/)                         { $erg = "04" . $erg; }
   elsif ($erg =~ /^KV-Beitrag/)                   { $erg = "05" . $erg; }
   elsif ($erg =~ /^PV-Beitrag/)                   { $erg = "06" . $erg; }
   elsif ($erg =~ /^RV-Beitrag/)                   { $erg = "07" . $erg; }
   elsif ($erg =~ /^AV-Beitrag/)                   { $erg = "08" . $erg; }
   elsif ($erg =~ /^A.-Anteil KV/)                 { $erg = "10" . $erg; }
   elsif ($erg =~ /^A.-Anteil ZU/)                 { $erg = "11" . $erg; }
   elsif ($erg =~ /^A.-Anteil RV/)                 { $erg = "12" . $erg; }
   elsif ($erg =~ /^A.-Anteil PV/)                 { $erg = "13" . $erg; }
   elsif ($erg =~ /^A.-Anteil KI/)                 { $erg = "14" . $erg; }
   elsif ($erg =~ /^A.-Anteil AV/)                 { $erg = "15" . $erg; }
   elsif ($erg =~ /^A.-Anteil ST/)                 { $erg = "16" . $erg; }
   elsif ($erg =~ /^A.-Anteil Umlage 1/)           { $erg = "17" . $erg; }
   elsif ($erg =~ /^A.-Anteil Umlage 2/)           { $erg = "18" . $erg; }
   elsif ($erg =~ /^A.-Anteil Inso/)               { $erg = "19" . $erg; }
   else { $erg = "00" . $erg; }
  
   my $o1 = $kto1;
   my $o2 = $kto2;
   if (($o1 cmp $o2) > 0) {
      $o1 = $kto2;
      $o2 = $kto1;
   }

   $erg = $datum . $erg . substr($o1."                                      ",0,20) .
                             substr($o2."                                      ",0,20);
   return($erg);
   
}

#**************************************************************************

sub mm {

   my $self    = shift;
   my $mark    = shift;
# $main::XCONSOLE = 1;
   if (!$main::XCONSOLE) {
       return(1);
   }
   eval("use Time::HiRes");
   my $newdate = sprintf("%16.5f",Time::HiRes::time());
   my $diff    = sprintf("%9.5f",$newdate - $main::lasttime);
   $main::lasttime = $newdate;
   my $erg = $newdate . "," . $diff . "," . $mark . "\n";

   if ($main::XCONSOLE > 1) {
      if (!($main::cgp_opened)) {
         open(GFILE,">".$mark);
         $main::cgp_opened = 1;
         $mark = $mark . " opened";
      }
      print GFILE $erg;
   }
   if ($main::XCONSOLE != 2) {
      print $erg;
   }

}

#***********************************************************************



1;