# script um namen und email adresse in PayPal CSVs in umgekehrter Reihenfolge einzulesen und in Währungsumrechnungen einzufügen



BEGIN { 

   FS="\t";

}



FNR == 1 {

   print "Datum;Betrag;Beschreibung;Belegnummer;Konto;Steuersatz;Betrieb;Bestandskonto"

   

   # ursprüngliche Kopfzeile:

   #for (i = 1; i <= 42; i++)

   #{

   #   if (substr($i, 1, 1) == " ")

   #      $i = substr($i, 2);

   #   printf "%s;", $i;

   #}

   #print

}



FNR > 0 {

   for (i = 1; i <= 42; i++)

      array[count,i] = $i;



   Betrag = array[count,10];

   

   Betrag_mit_Dezimalpunkt = Betrag

   sub(/ *\"$/, "", Betrag_mit_Dezimalpunkt)   # Anführungszeichen am Ende des Betrags löschen

   sub(/^\"/, "", Betrag_mit_Dezimalpunkt)    # Anführungszeichen am Anfang des Betrags löschen

   sub(/,/, ".", Betrag_mit_Dezimalpunkt)      # Komma durch Punkt ersetzen   



   if (Betrag_mit_Dezimalpunkt < 0)

   {      

      if (length (array[count,4]) > 5 && (substr(array[count,4], 2, 3) == "in " || substr(array[count,4], 2, 4) == "von "))

      {

         array[count,11] = email

         name_alt = array[count,4]

         sub(/ *\"$/, "", name_alt)      # Leerzeichen und Anführungszeichen am Ende des Namens löschen

         sub(/^\"/, "", name_alt)       # Anführungszeichen am Anfang des Namens löschen

         array[count,4] = sprintf("%s (%s)", name, name_alt)

      }

      else if (array[count,11] != "" && array[count,11] != "\"\"") 

      {

         email = array[count,11];

         name = array[count,4];

      }

   }

   

   count++;

}



END {

  #ursprüngliche Zeile:

  #for (i = 1; i <= 42; i++)

  #   printf "%d:%s;", i, array[count-1,i] > "/dev/stderr"

  #print

   for (line = count-1; line > 0; line--)

   {

    # $1 "Datum", $2 "Uhrzeit", $3 "Zeitzone", $4 "Name", $5 "Typ", $6 "Status", $7 "Währung", $8 "Brutto", $9 "Gebühr", $10 "Netto",

    # $11 "Absender E-Mail-Adresse", $12 "Empfänger E-Mail-Adresse", $13 "Transaktionscode", §14 "Lieferadresse", $15 "Adress-Status",

    # $16 "Artikelbezeichnung", $17 "Artikelnummer", $18 "Versand- und Bearbeitungsgebühr", $19 "Versicherungsbetrag", $20 "Umsatzsteuer",

    # $21-24 "Option 1 Name","Option 1 Wert","Option 2 Name","Option 2 Wert",

    # $25 "Zugehöriger Transaktionscode", $26 "Rechnungsnummer", $27 "Zollnummer", $28 "Anzahl", $29 "Empfangsnummer", $30 "Guthaben",

    # $31 "Adresszeile 1", $32 "Adresszusatz", $33 "Ort", $34 "Bundesland", $35 "PLZ", $36 "Land", $37 "Telefon", $38 "Betreff",

    # $39 "Hinweis", $40 "Ländervorwahl", $41 "Auswirkung auf Guthaben"

      

    Betrag = array[line,10];

      

      Betrag_mit_Dezimalpunkt = Betrag

      sub(/ *\"$/, "", Betrag_mit_Dezimalpunkt)   # Anführungszeichen am Ende des Betrags löschen

      sub(/^\"/, "", Betrag_mit_Dezimalpunkt)    # Anführungszeichen am Anfang des Betrags löschen

      sub(/,/, ".", Betrag_mit_Dezimalpunkt)      # Komma durch Punkt ersetzen   

   

      if (Betrag_mit_Dezimalpunkt >= 0)

      {         

         if (length (array[line,4]) > 5 && (substr(array[line,4], 2, 3) == "in " || substr(array[line,4], 2, 4) == "von "))

         {

            array[line,11] = email

            name_alt = array[line,4]

            sub(/ *\"$/, "", name_alt)      # Leerzeichen und Anführungszeichen am Ende des Namens löschen

            sub(/^\"/, "", name_alt)       # Anführungszeichen am Anfang des Namens löschen

            array[line,4] = sprintf("%s (%s)", name, name_alt)

         }

         else if (array[line,11] != "" && array[line,11] != "\"\"") 

         {

            email = array[line,11];

            name = array[line,4];

         }

      }

            

      Datum = array[line,1];

      Beschreibung = array[line,4];

      Belegnummer = array[line,13];

      

      if (array[line,7] == "\"EUR\"" || array[line,7] == "EUR")   # nur EUR-Zeilen ausgeben

      {

         #ursprüngliche Zeile:

         #for (i = 1; i <= 42; i++)

         #   printf "%s;", array[line,i];

         #print

         

         Betrieb = "Mein Betrieb";

         Bestandskonto = "PayPal für meinen Betrieb";

         

         Konto = "Warenverkäufe";

         Steuersatz = 19;

         

         if (array[line,5] == "\"Abbuchung auf Bankkonto\"" || array[line,5] == "\"Allgemeine Abbuchung\"" ||

            array[line,5] == "Abbuchung auf Bankkonto" || array[line,5] == "Allgemeine Abbuchung")

         {

            Konto = "/Transfers zwischen Bankkonten";

        Beschreibung = "PayPal-Abbuchung auf Bankkonto"

            Steuersatz = 0;

         }



      # Buchungen, die mit 0% Steuer gemacht werden müssen

         switch (Beschreibung)

         {

            case /Pommeroy/:

            case /Badalamenti/:

               Konto = "Warenverkäufe Ausland"

               Steuersatz = 0

               break

            case /Privateinkauf/:

            case /Einlage/:

               Steuersatz = 0;

               if (Betrag_mit_Dezimalpunkt > 0)

               {

                  Konto = "/Privateinlagen"

               }

               else

               {

                  Konto = "/Privatentnahmen"

               }

               break;

            case /Deutsche Post AG/:

               Steuersatz = 0;

               if (Betrag_mit_Dezimalpunkt > 0)

               {

                  Konto = "Sonstige Betriebseinnahmen"

               }

               else

               {

                  Konto = "Porto"

               }

               break;

            case /Zulieferer/:

            case /Servicedienstleister/:

               Steuersatz = 0;

               if (Betrag_mit_Dezimalpunkt > 0)

               {

                  Konto = "Sonstige Betriebseinnahmen"

               }

               else

               {

                  Konto = "Sonstige Betriebsausgaben"

               }

               break;

         }

         print Datum ";" Betrag ";" Beschreibung ";" Belegnummer ";" Konto ";" Steuersatz ";" Betrieb ";" Bestandskonto

      }

   }

      

   print count " Zeilen verarbeitet" > "/dev/stderr"

}

sub(/ Jan. /,"01.", $1)

sub(/ Feb. /,"02.", $1)

sub(/ Mär. /,"03.", $1)

... usw.