.bmp)
|
|
|
:0 @chcp 1252 @color 9f @title Formular alle Rechnungen und Buchungen nach CSV exportieren @goto 400
:100 @set /a i=0
:110 @set /a i=i+1
:120 @if %i% GEQ 77 goto 150 @if not exist Spaltenbezeichnung.%i% goto 130 @type Spaltenbezeichnung.%i% >> %str%
:130 @type Buchstabe.Strichpunkt >> %str% @goto 110
:150 @set /a AktuelleRechnungsnummer=1 @type Buchstabe.Eingabetaste >> %str%
:160 @set /a i=0
:170 @set /a i=i+1
:180 @if %i% GEQ 77 goto 190 @if not exist Rechnung%AktuelleRechnungsnummer%.%i% goto 185 @if not exist Spaltenbezeichnung.%i% goto 185 @type Buchstabe.Semikolon >> %str% @type Rechnung%AktuelleRechnungsnummer%.%i% >> %str% @type Buchstabe.Eingabetaste >> %str% @type Buchstabe.Semikolon >> %str%
:185 @type Buchstabe.Strichpunkt >> %str% @goto 170
:190 @set/a AktuelleRechnungsnummer=AktuelleRechnungsnummer+1 @if %AktuelleRechnungsnummer% GEQ %NeueRechnungsnummer% goto 550 @type Buchstabe.Eingabetaste >> %str% @goto 160
:200 @cls @set /a NeueRechnungsnummer=0
:210 @set /a NeueRechnungsnummer=NeueRechnungsnummer+1
:220 @if exist Rechnung%NeueRechnungsnummer%.* goto 210
:250 @set /a NeueBuchungsnummer=0
:260 @set /a NeueBuchungsnummer=NeueBuchungsnummer+1
:270 @if exist Buchung%NeueBuchungsnummer%.* goto 260 @goto 100
:300 @exit
:400 @cls @set str="C:\Users\Sascha\Desktop\Buchhaltung (CSV-Export).csv" @del %str% > NUL @if exist %str% goto 400 @goto 200
:550 @set /a AktuelleBuchungsnummer=1 @type Buchstabe.Eingabetaste >> %str%
:560 @set /a i=0
:570 @set /a i=i+1
:580 @if %i% GEQ 77 goto 590 @if not exist Buchung%AktuelleBuchungsnummer%.%i% goto 585 @if not exist Spaltenbezeichnung.%i% goto 585 @type Buchstabe.Semikolon >> %str% @type Buchung%AktuelleBuchungsnummer%.%i% >> %str% @type Buchstabe.Eingabetaste >> %str% @type Buchstabe.Semikolon >> %str%
:585 @type Buchstabe.Strichpunkt >> %str% @goto 570
:590 @set/a AktuelleBuchungsnummer=AktuelleBuchungsnummer+1 @if %AktuelleBuchungsnummer% GEQ %NeueBuchungsnummer% goto 300 @type Buchstabe.Eingabetaste >> %str% @goto 560
|