STARTSEITE    LEXIKON    INTERN    IMPRESSUM    LINKS   

:0

@chcp 1252

@color 9f

@title Formular Eigenkapital buchen mit Adressbuch

@goto 400

:100

@set /a AktuellerAdresseintrag=0

:105

@set /a AktuellerAdresseintrag=AktuellerAdresseintrag+1

@if %AktuellerAdresseintrag% GEQ %NeuerAdresseintrag% goto 100

:107

@set /a i=0

@cls

:110

@set /a i=i+1

:120

@if %i% GEQ 76 goto 130

@if not exist Adresseintrag%AktuellerAdresseintrag%.%i% goto 110

@if not exist Spaltenbezeichnung.%i% goto 110

@find "%Suchbegriff%" Adresseintrag%AktuellerAdresseintrag%.* > NUL

@if %errorlevel% GEQ 1 goto 105

@type Spaltenbezeichnung.%i%

@type Buchstabe.Doppelpunkt

@type Adresseintrag%AktuellerAdresseintrag%.%i%

@goto 110

:130

@type Buchstabe.Eingabetaste

@echo Suchbegriff eingeben (für Adressübernahme den Begriff Buchung eingeben, weiter blättern mit der Taste EINGABE) ...

@set str=

@set /p str=

@if not defined str goto 105

@if %str%==Buchung goto 500

@if %str%==buchung goto 500

@set Suchbegriff=%str%

@goto 105

:200

@cls

@set /a NeuerAdresseintrag=0

:210

@set /a NeuerAdresseintrag=NeuerAdresseintrag+1

:220

@if exist Adresseintrag%NeuerAdresseintrag%.* goto 210

@goto 100

:400

@cls

@echo Suchbegriff eingeben ...

@set Suchbegriff=

@set /p Suchbegriff=

@if not defined Suchbegriff goto 400

@goto 200

:500

@set /a NeueBuchungsnummer=0

:510

@set /a NeueBuchungsnummer=NeueBuchungsnummer+1

:520

@if exist Buchung%NeueBuchungsnummer%.* goto 510

@copy Adresseintrag%AktuellerAdresseintrag%.* Buchung%NeueBuchungsnummer%.* > NUL

:530

@type Spaltenbezeichnung.90

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 530

@find "%str%" Liste.Datumsangaben > NUL

@if %errorlevel% GEQ 1 goto 530

@echo %str% > Buchung%NeueBuchungsnummer%.30

:540

@type Spaltenbezeichnung.91

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 550

@find "%str%" Liste.Datumsangaben > NUL

@if %errorlevel% GEQ 1 goto 540

@echo %str% > Buchung%NeueBuchungsnummer%.31

:550

@type Spaltenbezeichnung.92

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 550

@find "%str%" Liste.Kommazahlen > NUL

@if %errorlevel% GEQ 1 goto 550

@echo %str% > Buchung%NeueBuchungsnummer%.53

:1000

@goto 107

Zurück