| Current Path : /var/www/web-klick.de/dsh/21_finance/30/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/21_finance/30/acc2.py |
import os,re,sys
buchh = sys.argv[1]
def convert (ktox,kr):
ktoz = "WARNING:"
ktoy = ""
m = re.search(r"^(-10-7000-B)(\d)(\-.*)$",ktox)
if m:
ktoy = "-10-B22-1890-" + {1:"ift",2:"gbr",3:"rea",4:"mus",9:"pri"}[int(m.group(2))]
ktox = m.group(3)
# print ("II",ktoy,ktox)
for krkey in kr:
# print(krkey,kr[krkey],ktox)
if ktox[0:len(krkey)] == krkey:
ktox = kr[krkey] + ktox[len(krkey):]
return(ktoy+ktox)
return(ktoz+ktoy+ktox)
text = ""
text1 = open("../29/acc.kto").read()
text1 = re.sub(r" -10-1095"," -10-1295", text1,99999999)
text1 = re.sub(r" -40-jid"," -40-7000-jid", text1,99999999)
text1 = re.sub(r" -90-wienenergie"," -90-7000-wienenergie", text1,99999999)
text1 = re.sub(r" -90-2080-Strom"," -90-7000-wienenergie", text1,99999999)
text1 = re.sub(r" -90-2010-Miete"," -90-7000-storch", text1,99999999)
text1 = re.sub(r" -90-2010-infra"," -90-7000-infra", text1,99999999)
text1 = re.sub(r" -90-2010-Oel"," -90-7000-oel", text1,99999999)
text1 = re.sub(r" -90-2000-HEW"," -90-7000-hew", text1,99999999)
text1 = re.sub(r" -90-2000-HWW"," -90-7000-hww", text1,99999999)
text1 = re.sub(r" -90-1201-IF"," -90-1241", text1,99999999)
text1 = re.sub(r" -90-1201-FR"," -90-1241", text1,99999999)
text1 = re.sub(r" -90-1208"," -93-Dani", text1,99999999)
text1 = re.sub(r" -90-2000-Miete"," -93-mietebrucknerstr", text1,99999999)
text1 = re.sub(r" -90-2070-Miete"," -93-mietehechendorf", text1,99999999)
text1 = re.sub(r" -90-1610", " -90-7000-dreieinigkeitskirche", text1,99999999)
text1 = re.sub(r" -90-1300"," -90-1500-1509", text1,99999999)
text1 = re.sub(r" -90-1310"," -90-1500-1509", text1,99999999)
text1 = re.sub(r" -90-1350"," -90-1500-1509", text1,99999999)
text1 = re.sub(r" -90-1235"," -10-7000-gesell", text1,99999999)
text1 = re.sub(r" -30-1011", " -30-7000-gertraudenstr", text1,99999999)
text1 = re.sub(r" -32-MieteArnold"," -32-8400-mietearnold", text1,99999999)
text1 = re.sub(r" -93-"," -93-6750-",text1,99999999)
text1 = re.sub(r" -43-"," -43-6750-",text1,99999999)
text1 = re.sub(r" -33-"," -33-6750-",text1,99999999)
text1 = re.sub(r" -23-"," -23-6750-",text1,99999999)
text1 = re.sub(r" -92-"," -92-8400-", text1,99999999)
text1 = re.sub(r" -42-"," -42-8400-", text1,99999999)
kontenrahmen = '''
11-1400 2900 Einlage
11-1805 1805 Endbestand
10-0201 10-A11-0500 Anlagen
10-7000-agentes 10-B11-1210-agentes agentes
10-7000-dmc 10-B11-1210-dmc dmc
10-7000-hays 10-B11-1210-hays hays
10-7000-kistler 10-B11-1210-kistler kistler
10-7000-pentasys 10-B11-1210-pentasys pentasys
10-7000-progressive 10-B11-1210-progressive progressive
10-7000-sirona 10-B11-1210-sirona sirona
10-7000-sterling 10-B11-1210-sterling sterling
10-7000-usu 10-B11-1210-usu usu
10-7000-zim 10-B11-1210-zim zim
10-7000-cgabriel 10-B12-1310-cgabriel Forderungen gegen GmbH-Gesellschafter
11-1500 10-B12-1340 Lohnkonten
10-1241 10-B12-1355 Mietkautionen
10-1000 10-B22-1600 Kassenbestand
10-1301 10-B22-1610 interne Buchungen zu anderen Buchhaltungen
10-1302 10-B22-1620 externe Buchungen zu anderen Buchhaltungen
10-1202 10-B22-1802 Sparkasse Fuerth
10-1222 10-B22-1851 Zinskonto Sparkasse
10-1297 10-B22-1861 Hauskredit
10-1298 10-B22-1862 Hauskredit
10-1200 10-B22-1800 Commerzbank
10-1203 10-B22-1803 Consors
10-1204 10-B22-1804 Flessabank
10-1205 10-B22-1805 VR Bank
10-1242 10-B22-1852 Zinskonto
10-1290 10-B22-1885 Transfer Bankueberweisungen
10-1295 10-B22-1887 Planung
10-1500-1506 10-B12-1435-1506 Beitragskonto Gewerbesteuer
10-1500-1508 10-B12-1435-1508 Beitragskonto Steuer divers
10-1500-1509 10-B12-1435-1509 Beitragskonto Finanzamt allgemein
10-1500-1510 10-B12-1361-1510 Beitragskonto DAK
10-1500-1511 10-B12-1361-1511 Beitragskonto AOK Hessen
10-1500-1512 10-B12-1361-1512 Beitragskonto Minijob-Zentrale
10-1500-1513 10-B12-1361-1513 Beitragskonto VBU-BKKfutur
10-1500-1514 10-B12-1361-1514 Beitragskonto AOK Bayern
10-1500-1515 10-B12-1361-1515 Beitragskonto Mobiloil
10-1500-1516 10-B12-1361-1516 Beitragskonto SBK
10-1500-1517 10-B12-1361-1517 Beitragskonto Techniker KK
10-1500-1518 10-B12-1361-1518 Beitragskonto Barmer
10-1500-1519 10-B12-1361-1519 Beitragskonto Debeka
10-1500-1520 10-B12-1361-1520 Beitragskonto AOK RheinlandPfalz
10-1500-1521 10-B12-1361-1521 Beitragskonto AOK NordWest
10-1500-1522 10-B12-1361-1522 Beitragskonto AOK Ulm
10-1500-1523 10-B12-1361-1523 Beitragskonto IKKClassic
10-7000-KK 10-B12-3695-KK KK
10-7000-arnold 10-B12-3695-arnold arnold
10-7000-beate 10-B12-3695-beate beate
10-7000-dirk 10-B12-3695-dirk dirk
10-7000-gewhl 10-B12-3695-gewhl gewhl
10-7000-afriemann 10-B12-3695-afriemann afriemann
10-7000-allianz 10-B12-3695-allianz allianz
10-7000-arjasanow 10-B12-3695-arjasanow arjasanow
10-7000-bayme 10-B12-3695-bayme bayme
10-7000-bvmw 10-B12-3695-bvmw bvmw
10-7000-cbeville 10-B12-3695-cbeville cbeville
10-7000-ccsengery 10-B12-3695-ccsengery ccsengery
10-7000-cpkettner 10-B12-3695-cpkettner cpkettner
10-7000-dblume 10-B12-3695-dblume dblume
10-7000-ddienlin 10-B12-3695-ddienlin ddienlin
10-7000-divers 10-B12-3695-divers divers
10-7000-dperic 10-B12-3695-dperic dperic
10-7000-dps 10-B12-3695-dps dps
10-7000-drosdol 10-B12-3695-drosdol drosdol
10-7000-ebc 10-B12-3695-ebc ebc
10-7000-emagine 10-B12-3695-emagine emagine
10-7000-enbw 10-B12-3695-enbw enbw
10-7000-erauch 10-B12-3695-erauch erauch
10-7000-fuerthoffice 10-B12-3695-fuerthoffice fuerthoffice
10-7000-gduan 10-B12-3695-gduan gduan
10-7000-gewsthl 10-B12-3695-gewsthl gewsthl
10-7000-gez 10-B12-3695-gez gez
10-7000-gfk 10-B12-3695-gfk gfk
10-7000-gulp 10-B12-3695-gulp gulp
10-7000-hparfuss 10-B12-3695-hparfuss hparfuss
10-7000-ihk 10-B12-3695-ihk ihk
10-7000-hew 10-B12-3695-hew hew
10-7000-hww 10-B12-3695-hww hww
10-7000-infra 10-B12-3695-infra infra
10-7000-inso 10-B12-3695-inso inso
10-7000-jid 10-B12-3695-jid jid
10-7000-jansen 10-B12-3695-jansen jansen
10-7000-wien 10-B12-3695-wien wien
10-7000-jfriedrichs 10-B12-3695-jfriedrichs jfriedrichs
10-7000-jungbluthonorar 10-B12-3695-jungbluthonorar jungbluthonorar
10-7000-kfessmann 10-B12-3695-kfessmann kfessmann
10-7000-kfzsteuer 10-B12-3695-kfzsteuer kfzsteuer
10-7000-lfocken 10-B12-3695-lfocken lfocken
10-7000-lli 10-B12-3695-lli lli
10-7000-lpschierer 10-B12-3695-lpschierer lpschierer
10-7000-mainzerhof 10-B12-3695-mainzerhof mainzerhof
10-7000-meissner 10-B12-3695-meissner meissner
10-7000-mherrschel 10-B12-3695-mherrschel mherrschel
10-7000-nle 10-B12-3695-nle nle
10-7000-nrnmesse 10-B12-3695-nrnmesse nrnmesse
10-7000-oel 10-B12-3695-oel oel
10-7000-oppenl 10-B12-3695-oppenl oppenl
10-7000-qu08 10-B12-3695-qu08 qu08
10-7000-qu11 10-B12-3695-qu11 qu11
10-7000-qu12 10-B12-3695-qu12 qu12
10-7000-qu13 10-B12-3695-qu13 qu13
10-7000-qu14 10-B12-3695-qu14 qu14
10-7000-qu15 10-B12-3695-qu15 qu15
10-7000-qu16 10-B12-3695-qu16 qu16
10-7000-qu17 10-B12-3695-qu17 qu17
10-7000-qu18 10-B12-3695-qu18 qu18
10-7000-qu19 10-B12-3695-qu19 qu19
10-7000-jazztage 10-B12-3695-jazztage jazztage
10-7000-gertraudenstr 10-B12-3695-gertraudenstr gertraudenstr
10-7000-rbetageri 10-B12-3695-rbetageri rbetageri
10-7000-dreieinigkeitskirche 10-B12-3695-dreieinigkeitskirche dreieinigkeitskirche
10-7000-rgerungan 10-B12-3695-rgerungan rgerungan
10-7000-rndengang 10-B12-3695-rndengang rndengang
10-7000-sdjomo 10-B12-3695-sdjomo sdjomo
10-7000-sipgate 10-B12-3695-sipgate sipgate
10-7000-siupgate 10-B12-3695-siupgate siupgate
10-7000-sivantos 10-B12-3695-sivantos sivantos
10-7000-sjain 10-B12-3695-sjain sjain
10-7000-solcom 10-B12-3695-solcom solcom
10-7000-sonstig 10-B12-3695-sonstig sonstig
10-7000-stschwarz 10-B12-3695-stschwarz stschwarz
10-7000-suschuster 10-B12-3695-suschuster suschuster
10-7000-swonneberger 10-B12-3695-swonneberger swonneberger
10-7000-telekabel 10-B12-3695-telekabel telekabel
10-7000-tes 10-B12-3695-tes tes
10-7000-tjungblut 10-B12-3695-tjungblut tjungblut
10-7000-tmp 10-B12-3695-tmp tmp
10-7000-uniteddomains 10-B12-3695-uniteddomains uniteddomains
10-7000-upc 10-B12-3695-upc upc
10-7000-vbg 10-B12-3695-vbg vbg
10-7000-vgabriel 10-B12-3695-vgabriel vgabriel
10-7000-vhv 10-B12-3695-vhv vhv
10-7000-vrbank 10-B12-3695-vrbank vrbank
10-7000-weber 10-B12-3695-weber weber
10-7000-whv 10-B12-3695-whv whv
10-7000-wiclub 10-B12-3695-wiclub wiclub
10-7000-wienoffice 10-B12-3695-wienoffice wienoffice
10-7000-zahlung 10-B12-3695-zahlung zahlung
10-7000-xshang 10-B12-3695-xshang xshang
10-7000-zaunz 10-B12-3695-zaunz zaunz
10-7000-zhwang 10-B12-3695-zhwang zhwang
10-7000-wienenergie 10-B12-3695-wienenergie wienenergie
10-7000-storch 10-B12-3695-storch storch
10-7000-infra 10-B12-3695-infra storch
11-1502 11-C13-3060 Berechnung Umsatzsteuer
11-1503 11-C13-3065 Berechnung Lohnsteuer
11-1505 11-C13-3040 Berechnung Koerperschaftsteuer
11-1506 11-C13-3035 Berechnung Gewerbesteuer
11-1507 11-C13-3050 Berechnung Quellensteuer
11-1510 11-C13-3740-1510 Berechnung DAK
11-1511 11-C13-3740-1511 Berechnung AOK Hessen
11-1512 11-C13-3740-1512 Berechnung Minijob-Zentrale
11-1513 11-C13-3740-1513 Berechnung VBU-BKKfutur
11-1514 11-C13-3740-1514 Berechnung AOK Bayern
11-1515 11-C13-3740-1515 Berechnung Mobiloil
11-1516 11-C13-3740-1516 Berechnung SBK
11-1517 11-C13-3740-1517 Berechnung Techniker KK
11-1518 11-C13-3740-1518 Berechnung Barmer
11-1519 11-C13-3740-1519 Berechnung Debeka
11-1520 11-C13-3740-1520 Berechnung AOK RheinlandPfalz
11-1521 11-C13-3740-1521 Berechnung AOK NordWest
11-1522 11-C13-3740-1522 Berechnung AOK Ulm
11-1523 11-C13-3740-1523 Berechnung IKKClassic
10-1510-1502 11-C13-3751-1502 Beitragsnachweise Umsatzsteuer
10-1510-1503 11-C13-3751-1503 Beitragsnachweise Lohnsteuer
10-1510-1505 11-C13-3751-1505 Beitragsnachweise Koerperschaftsteuer
10-1510-1506 11-C13-3751-1506 Beitragsnachweise Gewerbesteuer
10-1510-1507 11-C13-3751-1507 Beitragsnachweise Quellensteuer
10-1510-1510 11-C13-3759-1510 Beitragsnachweise DAK
10-1510-1511 11-C13-3759-1511 Beitragsnachweise AOK Hessen
10-1510-1512 11-C13-3759-1512 Beitragsnachweise Minijob-Zentrale
10-1510-1513 11-C13-3759-1513 Beitragsnachweise VBU-BKKfutur
10-1510-1514 11-C13-3759-1514 Beitragsnachweise AOK Bayern
10-1510-1515 11-C13-3759-1515 Beitragsnachweise Mobiloil
10-1510-1516 11-C13-3759-1516 Beitragsnachweise SBK
10-1510-1517 11-C13-3759-1517 Beitragsnachweise Techniker KK
10-1510-1518 11-C13-3759-1518 Beitragsnachweise Barmer
10-1510-1519 11-C13-3759-1519 Beitragsnachweise Debeka
10-1510-1520 11-C13-3759-1520 Beitragsnachweise AOK RheinlandPfalz
10-1510-1521 11-C13-3759-1521 Beitragsnachweise AOK NordWest
10-1510-1522 11-C13-3759-1522 Beitragsnachweise AOK Ulm
10-1510-1523 11-C13-3759-1523 Beitragsnachweise IKKClassic
10-1510-1510 11-C13-3759-1510 Beitragsnachweise DAK
10-1510-1511 11-C13-3759-1511 Beitragsnachweise AOK Hessen
10-1510-1512 11-C13-3759-1512 Beitragsnachweise Minijob-Zentrale
10-1510-1513 11-C13-3759-1513 Beitragsnachweise VBU-BKKfutur
10-1510-1514 11-C13-3759-1514 Beitragsnachweise AOK Bayern
10-1510-1515 11-C13-3759-1515 Beitragsnachweise Mobiloil
10-1510-1516 11-C13-3759-1516 Beitragsnachweise SBK
10-1510-1517 11-C13-3759-1517 Beitragsnachweise Techniker KK
10-1510-1518 11-C13-3759-1518 Beitragsnachweise Barmer
10-1510-1519 11-C13-3759-1519 Beitragsnachweise Debeka
10-1510-1520 11-C13-3759-1520 Beitragsnachweise AOK RheinlandPfalz
10-1510-1521 11-C13-3759-1521 Beitragsnachweise AOK NordWest
10-1510-1522 11-C13-3759-1522 Beitragsnachweise AOK Ulm
10-1510-1523 11-C13-3759-1523 Beitragsnachweise IKKClassic
10-7000-gesell 11-C12-3310-gesell gesell
10-7000-guess 11-C12-3310-guess guess
10-7000-reality 11-C12-3310-reality reality
10-7000-schlotz 11-C12-3310-schlotz schlotz
12-8400 12-D1a-4400 expert
12-8402 12-D1a-4402 sonst
12-8410 12-D1a-4410 china
12-8411 12-D1a-4411 sensor
12-8412 12-D1a-4412 kurs
12-8200 12-D3a-4440 Foerderung
12-6001 12-D3a-4982 Krankmeldungen
12-7100 12-D3a-7141 Zinsen
12-9995 12-D3a-4982 Lohnsteuererstattung
13-6000 13-D5a-6010 Loehne
13-5900 13-D5a-6020-frei Freiberufliche Taetigkeit
13-6002 13-D5a-6020-china Freiberuflich China
13-6010 13-D5b-6110 Sozialanteile Arbeitgeber
13-6011 13-D9a-7303 Mahngebuehren Krankenkassen
13-6540 13-D6a-6220 Abschreibungen
13-6310 13-D7a-6310-officefuerth Miete Office Fuerth
13-6311 13-D7a-6310-officeffm Miete Appartement/Buero Frankfurt
13-6312 13-D7a-6310-officeluebeck Miete Office Luebeck
13-6313 13-D7a-6310-officewien Miete Serverraum und Office Wien
13-6315 13-D7a-6310-eltville Miete Appartement Eltville
13-6316 13-D7a-6310-unterfoehring Miete Appartement Unterfoehring
13-6317 13-D7a-6310-stellplatz1 Miete Stellplatz 8 Fuerth
13-6320 13-D7a-6325-betrieb Betriebs_Heizkosten_Buero
13-6325 13-D7a-6325-strom Stromkosten
13-6826 13-D7b-6420-allg Versicherungen
13-6121 13-D7b-6420-vbg Beitrag_VBG
13-6122 13-D7b-6420-ihk Beitrag_IHK
13-6123 13-D7b-6420-gez Beitrag_GEZ
13-6124 13-D7b-6420-bvmw Beitrag_BVMW
13-6125 13-D7b-6420-vbw Beitrag_VBW
13-6126 13-D7b-6420-adac Beitrag_ADAC
13-6128 13-D7b-6420-wiclub Beitrag_Wirtschaftsclub
13-6129 13-D7b-6420-wiku Beitrag_Wiku_Club
13-6012 13-D7b-6436-saeumnis Saeumniszuschlaege Finanzamt
13-6013 13-D7b-6436-bundesanzeiger Gebuehren Bundesanzeiger
13-6014 13-D7b-6436-arbeitsagentur Gebuehren Arbeitsagentur
13-6015 13-D7b-6436-ordnungsgeld Ordnungsgelder
13-6017 13-D7b-6436-verspaetung Zinsen und Verspaetungszuschlaege Finanzamt
13-6019 13-D7b-6436-sonstig Sonstige Gebuehren
13-7690 13-D7b-6436-abgaben Steuern und Abgaben
13-6683 13-D7b-6420-visum Visumgebuehren
13-6430 13-D7b-6436-allgemein Allgemeine Gebuehren
13-6700 13-D7c-6490-technik Technischer Bedarf Computer ua
13-6701 13-D7c-6490-computer Computer Kleinteile Elektronik
13-6816 13-D7c-6490-kleingeraete Kleingeraete
13-6127 13-D7d-6520-versicherung Kfz_Versicherung
13-6530 13-D7d-6530-kfz KFZ Laufende Kosten
13-6532 13-D7d-6560-leasing KFZ Leasing
13-7685 13-D7d-6530-steuern KFZ Steuern
13-6531 13-D7d-6570-gebuehren KFZ Gebuehren
13-6533 13-D7d-6570-reparatur KFZ Instandhaltung
13-6534 13-D7d-6570-fahrrad Fahrrad und Scooter
13-6602 13-D7e-6600 Werbekosten
13-6605 13-D7e-6600 Werbekosten
13-6641 13-D7e-6643 Geschenke
13-6608 13-D7e-6600 Sales
13-6620 13-D7e-6643 Geschenke
13-6640 13-D7e-6640 Bewirtung
13-6680 13-D7e-6660-hotel Hotel
13-6682 13-D7e-6660-reise Reisegebuehren
13-6670 13-D7e-6663-fahrt Fahrtkosten
13-6671 13-D7e-6663-taxi Taxi
13-6901 13-D7f-6303-kurs Kurskosten
13-6813 13-D7f-6850-druck Druckkosten
13-6800 13-D7f-6800 Porto
13-6350 13-D7f-6805 Netz und Telefon
13-6815 13-D7f-6815 Buerobedarf
13-6600 13-D7f-6815 Buerokosten
13-6814 13-D7f-6822 Getraenke
13-6825 13-D7f-6825-steuer Steuerberatungskosten
13-6827 13-D7f-6825-zim ZIM-Beratung
13-6830 13-D7f-6825-recht Rechtskosten
13-6710 13-D7f-6850-software Software
13-6828 13-D7f-6850-schulung Trainings und Schulungen
13-6300 13-D7f-6850-buecher Buecher
13-6750 13-D7f-6850-licht Licht und Ton
13-7777 13-D7f-6850-misc noch_zu_identifizieren
13-9998 13-D7f-6850-versch Diverses
13-9999 13-D7f-6850-sonstig Sonstig
13-6331 13-D7f-6335-gera Instandhaltung Haus Gera
13-6855 13-D7f-6855 Kosten des Geldverkehrs
13-7100 13-D8a-7100 Zinsen
13-7300 13-D9a-7300-zins Zinsen allgemein
13-6330 13-D9a-7300-gera Zinsen Haus
14-7603 14-Daa-7600 Koerperschaftsteuer 3040
14-7604 14-Daa-7608 Soli Koerperschaftsteuer 3040
14-7610 14-Daa-7610 Gewerbesteuer 3035
14-7630 14-Dba-7790 Ausschuettung
14-7632 14-Dba-3700 Quellensteuer
14-7633 14-Dba-3700 Soli Quellensteuer
14-7639 14-Dca-7639 Jahresueberschuess
93
'''
konten = {}
kr = {}
kr1 = {}
for zeile in kontenrahmen.split("\n"):
zeile = re.sub(r"\.","",zeile,99)
m = re.search(r"^(\S+) +(\S+) +(.*)$",zeile)
if m:
print(m.group(1),m.group(2))
kr["-"+m.group(1)] = "-"+m.group(2)
kr1["-"+m.group(1)] = m.group(2)
for zeile in (text1+text).split("\n"):
m = re.search(r"^(\d\d\d\d\d\d\d\d) +(\-?\d+\.\d\d) +(\S+) +(\S+) +0.00 +(.*)$",zeile)
if not m:
continue
datum = m.group(1)
betrag = m.group(2)
ktoa = m.group(3)
ktob = m.group(4)
if ktoa[1] == "2" and datum[0:3] == "201":
ktoa = "-1" + ktoa[2:]
if ktob[1] == "2" and datum[0:3] == "201":
ktob = "-1" + ktob[2:]
konten[ktoa] = 1
konten[ktob] = 1
remark = m.group(5)
if True:
if not ktoa[1] == buchh:
ktoc = ktoa
ktoa = ktob
ktob = ktoc
betrag = "%3.2f" % (-float(betrag))
if not ktoa[1] == buchh:
continue
if ktoa[0:4] == "-19-" or ktoa[0:4] == "-18-":
continue
if ktob[4:8] == "1000":
ktob = "-10-1000"
if ktoa[4:8] == "1000":
ktoa = "-10-1000"
if not ktob[1] == buchh:
ktob = "-10-7000-B" + ktob[1] + "-1" + ktob[2:]
# else:
# ktob = "-10-1302-" + ktob[1] + "0"
if "Gegenbuchung" in remark:
continue
ktoa = "-1" + ktoa[2:]
ktob = "-1" + ktob[2:]
ktoa = convert(ktoa,kr)
ktob = convert(ktob,kr)
print(datum + " " + betrag + " " + ktoa + " " + ktob + " 0.00 " + remark)
print("")
print("---------------------------------------------------")
print("")
konten = list(konten.keys())
konten.sort()
for kto in konten:
if kto in kr:
print( ("%-30s"%kto[1:]) + " " + ("%-30s"%(kr[kto])) + " " + kr1[kto] )
else:
print( ("%-30s"%kto[1:]) + " " + ("%-30s"%kto[1:]) + " xxx" )