STARTSEITE    LEXIKON    INTERN    IMPRESSUM    LINKS   

:0

@chcp 1252

@color 9f

@title Formular Rechnung erstellen 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 Rechnung eingeben, weiter blättern mit der Taste EINGABE) ...

@set str=

@set /p str=

@if not defined str goto 105

@if %str%==Rechnung goto 500

@if %str%==rechnung 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 NeueRechnungsnummer=0

:510

@set /a NeueRechnungsnummer=NeueRechnungsnummer+1

:520

@if exist Rechnung%NeueRechnungsnummer%.* goto 510

@copy Adresseintrag%AktuellerAdresseintrag%.* Rechnung%NeueRechnungsnummer%.* > 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% > Rechnung%NeueRechnungsnummer%.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% > Rechnung%NeueRechnungsnummer%.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% > Rechnung%NeueRechnungsnummer%.92

:560

@type Spaltenbezeichnung.93

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 560

@echo %str% > Rechnung%NeueRechnungsnummer%.93

:570

@type Spaltenbezeichnung.94

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 570

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

@if %errorlevel% GEQ 1 goto 570

@echo %str% > Rechnung%NeueRechnungsnummer%.94

:580

@type Spaltenbezeichnung.95

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 590

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

@if %errorlevel% GEQ 1 goto 580

@echo %str% > Rechnung%NeueRechnungsnummer%.95

:590

@type Spaltenbezeichnung.96

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 590

@echo %str% > Rechnung%NeueRechnungsnummer%.96

:600

@type Spaltenbezeichnung.97

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 600

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

@if %errorlevel% GEQ 1 goto 600

@echo %str% > Rechnung%NeueRechnungsnummer%.97

:610

@type Spaltenbezeichnung.98

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 610

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

@if %errorlevel% GEQ 1 goto 610

@echo %str% > Rechnung%NeueRechnungsnummer%.98

@type Rechnung%NeueRechnungsnummer%.98 >> Rechnung%NeueRechnungsnummer%.76

:620

@type Spaltenbezeichnung.102

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 630

@echo %str% > Rechnung%NeueRechnungsnummer%.102

:630

@type Spaltenbezeichnung.103

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 630

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

@if %errorlevel% GEQ 1 goto 630

@echo %str% > Rechnung%NeueRechnungsnummer%.61

:640

@type Spaltenbezeichnung.104

@type Buchstabe.Doppelpunkt

@set str=

@set /p str=

@if not defined str goto 640

@echo %str% > Rechnung%NeueRechnungsnummer%.104

:650

@echo 1 > Rechnung%NeueRechnungsnummer%.105

:660

@if %NeueRechnungsnummer% LSS 1000 type Buchstabe.0 > Rechnung%NeueRechnungsnummer%.106

@if %NeueRechnungsnummer% LSS 100 type Buchstabe.0 >> Rechnung%NeueRechnungsnummer%.106

@if %NeueRechnungsnummer% LSS 10 type Buchstabe.0 >> Rechnung%NeueRechnungsnummer%.106

@echo %NeueRechnungsnummer% >> Rechnung%NeueRechnungsnummer%.106

:1000

@goto 107

Zurück