*Bilanzdruck
#main
*-------------------------------------------------------------------------
* Variablen:
* Zeile     aktuelle Zeilenummer
* ZlMax     Zeile ab der der Fussbereich beginnt
* Seite     Seitennummer beginnend mit 1
* RandX     linker Rand in cm
* RandY     oberer Rand in cm
* SizeX     Druckbreite ab Rand links
* recMAIN   Datensatz fuer Main-Schleifen
*--------------------------------------------------------------------------
VAR RepTitel(C,70,0)
VAR Zeile(s,2,0)
VAR Seite(s,2,0)
VAR ZlMax(s,2,0)
VAR Seite(s,2,0)
VAR RandX(d,8,2)
VAR RandY(d,8,2)
VAR SizeX(d,8,2)
VAR Heute(D,10,0)
VAR cyZeile(d,8,3)
VAR mLPI(N,4,1)
VAR mTop(L,1,0)

* Datensatz EIGENE_ANSCHRIFTEN
REC recADR(EIGENE_ANSCHRIFTEN,0,2)01
* Datensatz Steuernummer
REC recStNr(OPTIONEN,0,5) 6110

*-------------------------------------------------------------------------
* Prüfen der Übergabe von Filtervariablen
IFNOT ISVAR(pKey)
  VAR pKey(u,7,0)
VAR pKeyMon(u,3,0)
VAR pKeyJahr(u,4,0)
pKeyJahr=$[pKey<4]
pKeyMon=$[pKey>3]
pKeyMon=$[pKeyMon<2]

VAR mVorschau(C,30,0)
VAR mBerichtig(u,1,0)
VAR mKreuz01(u,1,0)
VAR mKreuz02(u,1,0)
VAR mKreuz03(u,1,0)
VAR mKreuz04(u,1,0)
VAR mKreuz05(u,1,0)
VAR mKreuz06(u,1,0)
VAR mKreuz07(u,1,0)
VAR mKreuz08(u,1,0)
VAR mKreuz09(u,1,0)
VAR mKreuz10(u,1,0)
VAR mKreuz11(u,1,0)
VAR mKreuz12(u,1,0)
mKreuz$[pKeyMon<2]=X
IF BOOL(($[pKey>1]) = (2))
  mBerichtig=1
IF BOOL(($[pKey>1]) = (0))
  mVorschau=-Muster/Vorschau-

REC recA(USTVA,0,7)$[pKey<7]
REC recB(USTVA,0,7)$[pKey<7]

VAR mFAName1(C,50,0)
VAR mFAName2(C,50,0)
VAR mFAName3(C,50,0)
REC recFAName(OPTIONEN,0,0)
SEEK recFAName( 6151)
mFAName1=$[recFAName.OptDataC]
SEEK recFAName( 6152)
mFAName2=$[recFAName.OptDataC]
SEEK recFAName( 6153)
mFAName3=$[recFAName.OptDataC]


* Code für den
* Berichtsablauf ein.

IFNOT ISVAR(mWert)
  VAR mWert(N,12,2)
IFNOT ISVAR(mWertA)
  VAR mWertA(N,12,0)
IFNOT ISVAR(mSumme)
  VAR mSumme(N,12,2)
IFNOT ISVAR(mA)
  VAR mA(C,12,0)
IFNOT ISVAR(mB)
  VAR mB(C,12,0)

SUB #subPaperDefs

RepTitel=

*-----------------------------------------------------------------------------
* Vorbereiten der Ausgabe 
* Initialisierung der Drucksteuerdaten
OUT INITPAGESIZE
OUT STARTJOB $[RepTitel]
OUT TRANSPARENT
OUT STARTPAGE

Zeile=0
Seite=1
SUB #subFill1
Zeile=1

OUT ##out01

OUT ##out02
OUT ##out03
OUT ##out04
OUT ##out05
OUT ##out06
OUT ##out07
OUT ##out08
OUT ##out09
OUT ##out10
OUT ##out11
OUT ##out12
OUT ##out13
OUT ##out14
OUT ##out15
OUT ##out16

OUT ##out17

OUT ##out18

OUT ##out19

OUT ##out20

SEEK recA(21A)
SEEK recB(21B)
SUB #subCalcAB
OUT ##out21

SEEK recA(22A)
SEEK recB(22B)
SUB #subCalcAB
OUT ##out22

SEEK recA(23A)
SEEK recB(23B)
SUB #subCalcAB
OUT ##out23

SEEK recA(24A)
SEEK recB(24B)
SUB #subCalcAB
OUT ##out24

SEEK recA(25A)
SEEK recB(25B)
SUB #subCalcAB
OUT ##out25

OUT ##out26

OUT ##out27

SEEK recA(28A)
SEEK recB(28B)
SUB #subCalcAB
OUT ##out28


SEEK recA(29A)
SEEK recB(29B)
SUB #subCalcAB
OUT ##out29

SEEK recA(30A)
SEEK recB(30B)
SUB #subCalcAB
OUT ##out30

OUT ##out31

SEEK recA(32A)
SEEK recB(32B)
SUB #subCalcAB
OUT ##out32

SEEK recA(33A)
SEEK recB(33B)
SUB #subCalcAB
OUT ##out33

OUT ##out34

SEEK recA(35A)
SEEK recB(35B)
SUB #subCalcAB
OUT ##out35

OUT ##out36

SEEK recA(37A)
SEEK recB(37B)
SUB #subCalcAB
OUT ##out37

SEEK recA(38A)
SEEK recB(38B)
SUB #subCalcAB
OUT ##out38

SEEK recA(39A)
SEEK recB(39B)
SUB #subCalcAB
OUT ##out39

SEEK recA(40A)
SEEK recB(40B)
SUB #subCalcAB
OUT ##out40

OUT ##out41

SEEK recA(42A)
SEEK recB(42B)
SUB #subCalcAB
OUT ##out42

OUT ##out43
OUT ##outFormStamp


OUT ENDPAGE
OUT STARTPAGE

Zeile=0
Seite=2
SUB #subFill2
Zeile=1

OUT ##out44
OUT ##out45
OUT ##out46
OUT ##out47

SEEK recA(48A)
SEEK recB(48B)
SUB #subCalcAB
OUT ##out48

SEEK recA(49A)
SEEK recB(49B)
SUB #subCalcAB
OUT ##out49

SEEK recA(50A)
SEEK recB(50B)
SUB #subCalcAB
OUT ##out50

SEEK recA(51A)
SEEK recB(51B)
SUB #subCalcAB
OUT ##out51

SEEK recA(52A)
SEEK recB(52B)
SUB #subCalcAB
OUT ##out52

OUT ##out53

OUT ##out54

SEEK recA(55A)
SEEK recB(55B)
SUB #subCalcAB
OUT ##out55

SEEK recA(56A)
SEEK recB(56B)
SUB #subCalcAB
OUT ##out56

SEEK recA(57A)
SEEK recB(57B)
SUB #subCalcAB
OUT ##out57

SEEK recA(58A)
SEEK recB(58B)
SUB #subCalcAB
OUT ##out58

SEEK recA(59A)
SEEK recB(59B)
SUB #subCalcAB
OUT ##out59

SEEK recA(60A)
SEEK recB(60B)
SUB #subCalcAB
OUT ##out60

SEEK recA(61A)
SEEK recB(61B)
SUB #subCalcAB
OUT ##out61

OUT ##out62
OUT ##out63

SEEK recA(64A)
SEEK recB(64B)
SUB #subCalcAB
OUT ##out64

OUT ##out65

SEEK recA(66A)
SEEK recB(66B)
SUB #subCalcAB
OUT ##out66

OUT ##out67
OUT ##out68
OUT ##out69


OUT ##out70
OUT ##out71
OUT ##out72
OUT ##out73
OUT ##out74
OUT ##out75
OUT ##out76
OUT ##out77
OUT ##out78
OUT ##out79
OUT ##out80
OUT ##out81
OUT ##out82
OUT ##out83
OUT ##out84
OUT ##out85
OUT ##out86
OUT ##outFormStamp


OUT ENDPAGE
OUT ENDJOB


#end

##KopfBericht
CY=3
L=0;0;50;1;Arial,10,N;$[recADR.NAME1] $[recADR.NAME2]
L=0;1;50;1;Arial,10,N;$[recADR.STRASSE]
L=0,0;2,0;50,0;1,0;Arial,10,N;$[recADR.PLZORT]
R=50;0;50;1;Arial,10,F;$[RepTitel]
R=70;2;30;1;Arial,10,N;Druck $[Heute] Seite -$[Seite]-

#end

##KopfSeite
CY=3
L=0;0;50;1;Arial,10,N;$[recADR.NAME1] $[recADR.NAME2]
L=0;1;50;1;Arial,10,N;$[recADR.STRASSE]
L=0,0;2,0;50,0;1,0;Arial,10,N;$[recADR.PLZORT]
R=50;0;50;1;Arial,10,F;$[RepTitel]
R=70;2;30;1;Arial,10,N;Druck $[Heute] Seite -$[Seite]-

#end

##KopfDetail
CY=3
L=0;0;100;1; ;\-
L=0,0;1,0;12,0;1,0;Arial,10,F;Pos.
L=12,0;1,0;37,0;1,0;Arial,10,F;Text
R=74,0;1,0;26,0;1,0;Arial,10,F;Bezug auf
L=0;2;100;1; ;\-
L=50,0;1,0;24,0;1,0;Arial,10,F;Typ

#end

#subPaperDefs
* Definition des Basislayouts und Papiergrößen

* Zeilen per Inc
mLPI=4,2

*RepTitel=$[pTitel]
Heute=H
RandX=      1,80
RandY=      0,80
SizeX=      17,4
Seite=      1
Zeile=      0
cyZeile=    2.54/$[mLPI]
ZlMax=     60

RETURN

#end

##out01
CY=1
L=0,0;0,0;4,0;0,3;Arial,8,N;Zeile
R=0,0;0,4;2,0;0,7;Arial,10,N;1
R=51,0;0,0;49,0;2,0;Arial,24,F;$[mVorschau] $[pKey<4]
C=4,0;0,5;5,0;1,0;Arial, 8,N;Fallart
C=25,0;0,5;9,0;1,0;Arial, 8,N;Unterfallart
C=8,0;0,5;17,0;1,0;Arial,10,F;Steuernummer

#end

##out02
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;2
C=5,0;0,5;3,0;1,0;Arial,10,F;11
C=25,0;0,5;9,0;1,0;Arial,10,F;56
C=8,0;0,5;17,0;1,0;Arial,10,F;$[recStNr.OptDataC]

#end

##out03
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;3

#end

##out04
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;4
L=51,0;0,0;3,0;1,0;Arial,10,F;30
L=54,0;0,5;20,0;0,5;Arial, 8,N;Eingangsstempel oder -datum
L=54,0;1,0;27,0;0,1; ;\-

#end

##out05
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;5
L=5,0;0,5;15,0;0,7;Arial,10,F;Finanzamt
L=51,0;0,0;49,0;1,0;Arial,14,F;Umsatzsteuer-Voranmeldung $[pKey<4]

#end

##out06
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;6
C=51,0;0,0;49,0;1,0;Arial,8,F;Voranmeldezeitraum

#end

##out07
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;7
L=5,0;0,5;40,0;1,0;Arial,10,F;$[mFAName1]

#end

##out08
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;8
L=51,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 01
L=56,0;0,0;3,0;1,0;Arial, 8,N;Jan.
C=59,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz01]
L=66,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 07
L=71,0;0,0;3,0;1,0;Arial, 8,N;Juli
C=74,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz07]
L=82,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 41
R=87,0;0,0;2,0;1,0;Arial, 8,N;I.
L=90,0;0,1;6,0;0,4;Arial,7,N;Kalender-
L=90,0;0,5;6,0;0,4;Arial,7,N;vierteljahr
L=5,0;0,5;40,0;1,0;Arial,10,F;$[mFAName2]

#end

##out09
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;9
L=51,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 02
L=56,0;0,0;3,0;1,0;Arial, 8,N;Feb.
C=59,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz02]
L=66,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 08
L=71,0;0,0;3,0;1,0;Arial, 8,N;Aug.
C=74,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz08]
L=82,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 42
R=87,0;0,0;2,0;1,0;Arial, 8,N;II.
L=90,0;0,1;6,0;0,4;Arial,7,N;Kalender-
L=90,0;0,5;6,0;0,4;Arial,7,N;vierteljahr
L=5,0;0,5;40,0;1,0;Arial,10,F;$[mFAName3]

#end

##out10
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;10
L=51,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 03
L=56,0;0,0;3,0;1,0;Arial, 8,N;März
C=59,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz03]
L=66,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 09
L=71,0;0,0;3,0;1,0;Arial, 8,N;Sept.
C=74,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz09]
L=82,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 43
R=87,0;0,0;2,0;1,0;Arial, 8,N;III.
L=90,0;0,1;6,0;0,4;Arial,7,N;Kalender-
L=90,0;0,5;6,0;0,4;Arial,7,N;vierteljahr

#end

##out11
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;11
L=51,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 04
L=56,0;0,0;3,0;1,0;Arial, 8,N;April
C=59,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz04]
L=66,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 10
L=71,0;0,0;3,0;1,0;Arial, 8,N;Okt.
C=74,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz10]
L=82,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 44
R=87,0;0,0;2,0;1,0;Arial, 8,N;IV.
L=90,0;0,1;6,0;0,4;Arial,7,N;Kalender-
L=90,0;0,5;6,0;0,4;Arial,7,N;vierteljahr

#end

##out12
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;12
L=51,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 05
L=56,0;0,0;3,0;1,0;Arial, 8,N;Mai
C=59,0;0,0;4,0;1,0;Arial,12,F;$[mKreuz05]
L=66,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 11
L=71,0;0,0;3,0;1,0;Arial, 8,N;Nov.
C=74,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz11]
L=5,0;0,0;40,0;0,5;Arial, 7,N;Unternehmer - ggf. abweichende Firmenbezeichnung - Anschrift - Telefon
L=5,0;0,4;40,0;1,0;Arial,10,F;$[recADR.Name1]

#end

##out13
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;13
L=51,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 06
L=56,0;0,0;3,0;1,0;Arial, 8,N;Juni
C=59,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz06]
L=66,0;0,0;5,0;1,0;Arial,10,F;$[pKeyJahr>2] 12
L=71,0;0,0;3,0;1,0;Arial, 8,N;Dez.
C=74,0;0,0;4,0;1,0;Arial,14,F;$[mKreuz12]
L=5,0;0,1;40,0;1,0;Arial,10,F;$[recADR.Name2]

#end

##out14
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;14
L=75,0;0,5;3,0;1,0;Arial,10,F;10
L=78,0;1,0;5,0;1,0; ;\-
L=51,0;0,5;21,0;0,5;Arial, 8,F;Berichtigte Anmeldung
C=78,0;0,5;5,0;1,0;Arial,14,F;$[mBerichtig]
L=5,0;-0,2;40,0;1,0;Arial,10,F;$[recADR.Strasse]

#end

##out15
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;15
L=51,0;0;21,0;0,5;Arial, 8,N;(falls ja, bitte eine "1" eintragen)
L=5,0;-0,5;40,0;1,0;Arial,10,F;$[recADR.PlzOrt]
L=5,0;0,2;40,0;1,0;Arial,10,N;Telefon $[recADR.Telefon]

#end

##out16
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;16

#end

##out17
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;17
L=4,0;0,2;70,0;1,2;Arial,14,F;I. Anmeldung der Umsatzsteuer-Vorauszahlung

#end

##out18
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;18

#end

##out19
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;19
L=4,0;-0,5;51,0;1,0;Arial,14,F;Lieferungen und sonstige Leistungen
L=4,0;0,2;59,0;1,0;Arial,10,F;(einschließlich unentgeltlicher Wertabgaben)
C=63,0;0,1;19,0;1,0;Arial,8,F;Bemessungsgrundlage
C=85,0;0,1;15,0;1,0;Arial,8,F;Steuer

#end

##out20
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;20
L=4,0;-0,3;51,0;1,0;Arial,12,F;Steuerfreie Umsätze mit Vorsteuerabzug
L=4,0;0,2;59,0;1,0;Arial,8,N;Innergemeinschaftliche Lieferungen (§ 4 Nr. 1 Buchst. b UStG)
C=65,0;0,1;15,0;1,0;Arial,8,F;volle EUR
C=85,0;0,1;15,0;1,0;Arial,8,F;EUR,Ct

#end

##out21
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;21
L=4,0;0,0;59,0;1,0;Arial,8,N;an Abnehmer mit USt-IdNr.
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
L=62,0;0,0;3,0;1,0;Arial,10,F;41

#end

##out22
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;22
L=4,0;0,0;59,0;1,0;Arial,8,N;neuer Fahrzeuge an Abnehmer ohne USt-IdNr.
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
L=62,0;0,0;3,0;1,0;Arial,10,F;44

#end

##out23
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;23
L=4,0;0,0;59,0;1,0;Arial,8,N;neuer Fahrzeuge außerhalb eines Unternehmens (§ 2a UStG)
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
L=62,0;0,0;3,0;1,0;Arial,10,F;49

#end

##out24
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;24
L=4,0;-0,3;51,0;1,0;Arial,10,F;Weitere steuerfreie Umsätze mit Vorsteuerabzug
L=4,0;0,2;59,0;1,0;Arial,8,N;(z.B. Ausfuhrlieferungen, Umsätze nach § 4 Nr. 2 bis 7 UStG)
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
L=62,0;0,0;3,0;1,0;Arial,10,F;43

#end

##out25
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;25
L=4,0;-0,3;51,0;1,0;Arial,12,F;Steuerfreie Umsätze ohne Vorsteuerabzug
L=4,0;0,2;55,0;1,0;Arial,8,N;Umsätze nach § 4 Nr. 8 bis 28 UStG
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
L=62,0;0,0;3,0;1,0;Arial,10,F;48

#end

##out26
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;26

#end

##out27
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;27
L=4,0;-0,3;51,0;1,0;Arial,12,F;Steuerpflichtige Umsätze
L=4,0;0,2;59,0;1,0;Arial,8,N;(Lieferungen und sonstige Leistungen einschl. unentgeltlicher Wertabgaben)

#end

##out28
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;28
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zum Steuersatz von 16 v.H.
L=62,0;0,0;3,0;1,0;Arial,10,F;51
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out29
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;29
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zum Steuersatz von 7 v.H.
L=62,0;0,0;3,0;1,0;Arial,10,F;86
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out30
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;30
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;Umsätze, die anderen Steuersätzen unterliegen
L=62,0;0,0;3,0;1,0;Arial,10,F;35
L=82,0;0,0;3,0;1,0;Arial,10,F;36

#end

##out31
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;31
L=4,0;0,0;51,0;1,0;Arial,8,F;Umsätze land- und fortswirtschaftlicher Betriebe nach § 24 UStG

#end

##out32
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;32
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;-0,3;51,0;1,0;Arial,8,N;Lieferungen in das übrige Gemeinschaftsgebiet
L=4,0;0,1;51,0;1,0;Arial,8,N;an Abnehmer mit USt-IdNr.
L=62,0;0,0;3,0;1,0;Arial,10,F;77
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out33
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;33
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;-0,3;51,0;1,0;Arial,8,N;Umsätze, für die eine Steuer nach § 24 UStG zu entrichten ist (Säge-
L=4,0;0,1;51,0;1,0;Arial,8,N;werkserzeugnisse, Getränke und akohol. Flüssigkeiten, z.B. Wein)
L=62,0;0,0;3,0;1,0;Arial,10,F;76
L=82,0;0,0;3,0;1,0;Arial,10,F;80

#end

##out34
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;34
L=4,0;-0,4;51,0;1,0;Arial,14,F;Innergemeinschaftliche Erwerbe
L=4,0;0,3;59,0;1,0;Arial,10,F;Steuerfreie innergemeinschaftliche Erwerbe


#end

##out35
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;35
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
L=4,0;0,0;51,0;1,0;Arial,8,N;Erwerbe nach § 4b UStG
L=62,0;0,0;3,0;1,0;Arial,10,F;91
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out36
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;36
L=4,0;0,0;51,0;1,0;Arial,10,F;Steuerpflichtige innergemeinschaftliche Erwerbe


#end

##out37
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;37
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zum Steuerstaz von 16 v.H.
L=62,0;0,0;3,0;1,0;Arial,10,F;97
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out38
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;38
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zum Steuerstaz von 7 v.H.
L=62,0;0,0;3,0;1,0;Arial,10,F;93
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out39
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;39
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zu anderen Steuersätzen
L=62,0;0,0;3,0;1,0;Arial,10,F;95
L=82,0;0,0;3,0;1,0;Arial,10,F;98

#end

##out40
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;40
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;-0,3;51,0;1,0;Arial,8,F;neuer Fahrzeuge
L=4,0;0,1;51,0;1,0;Arial,8,N;von Lieferern ohne USt-IdNr. zum allgemeinen Steuersatz
L=62,0;0,0;3,0;1,0;Arial,10,F;94
L=82,0;0,0;3,0;1,0;Arial,10,F;96

#end

##out41
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;41

#end

##out42
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;42
L=4,0;-0,1;66,0;1,0;Arial,8,N;Lieferungen des ersten Abnehmers (§ 25b Abs. 2 UStG) bei
L=4,0;0,4;66,0;1,0;Arial,8,F;innergemeinschaftlichen Dreiecksgeschäften
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
L=62,0;0,0;3,0;1,0;Arial,10,F;42


#end

##out43
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;43
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mSumme]
L=4,0;0,0;51,0;1,0;Arial,10,F;Übertrag
R=55,0;0,1;22,0;0,8;Arial,8,N;zu übertragen in Zeile 45
L=0,0;0,5;100,0;1,0; ;\-

#end

##out44
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;44
C=85,0;0,1;15,0;0,5;Arial,8,F;Steuer
C=85,0;0,6;15,0;0,5;Arial,8,F;EUR,Ct
L=4,0;0,0;66,0;1,0;Arial,10,F;Steuernummer: $[recStNr.OptDataC] $[mVorschau]

#end

##out45
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;45
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mSumme]
L=4,0;-0,3;51,0;1,0;Arial,10,F;Übertrag

#end

##out46
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;46
L=4,0;-0,3;45,0;1,0;Arial,12,F;Umsätze, für die der Leistungsempfänger die
L=4,0;0,5;45,0;1,0;Arial,12,F;Steuer nach § 13 Abs. 2 UStG schuldet
C=63,0;0,1;19,0;1,0;Arial,8,F;Bemessungsgrundlage

#end

##out47
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;47
* L=4,0;0,3;45,0;1,0;Arial,8,N;(ggf. unter Anrechnung nach § 27 Abs. 4 UStG)
C=63,0;0,1;19,0;1,0;Arial,8,F;volle EUR

#end

##out48
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;48
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zum Steuersatz von 16 v.H.
L=62,0;0,0;3,0;1,0;Arial,10,F;54
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out49
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;49
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zum Steuersatz von 7 v.H.
L=62,0;0,0;3,0;1,0;Arial,10,F;55
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out50
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;50
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,8,N;zu anderen Steuersätzen
L=62,0;0,0;3,0;1,0;Arial,10,F;57
L=82,0;0,0;3,0;1,0;Arial,10,F;58

#end

#subCalcAB
* Unterprgramm von ReportMain

mA=-/-
mB=-/-
mWert=0

IF EOF(recA)
  GOTO :DoRecB

mWertA=$[recA.SaldoNeu] - $[recA.SaldoAlt]
IF BOOL(($[mWertA]) <> (0))
  mA=$[mWertA>12]

:DoRecB
IF EOF(recB)
  RETURN

mWert=$[recB.SaldoNeu] - $[recB.SaldoAlt]
IF BOOL(($[mWert]) <> (0))
  mB=$[mWert>12]

mSumme=$[mSumme] + $[mWert]

RETURN

#end

##out51
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;51
R=65,0;0,0;15,0;1,0;Arial,10,N;$[mA]
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;0,0;51,0;1,0;Arial,12,F;nicht steuerbare Umsätze
L=62,0;0,0;3,0;1,0;Arial,10,F;45
L=82,0;0,0;3,0;1,0;Arial,10,F;

#end

##out52
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;52
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]
L=4,0;-0,3;61,0;1,0;Arial,8,N;Steuer infolge Wechsels der Besteuerungsart/-form
L=4,0;0,3;61,0;1,0;Arial,8,N;sowie Nachsteuer auf versteuerte Anzahlungen wegen Steuersatzerhöhung
L=82,0;0,0;3,0;1,0;Arial,10,F;65

#end

##out53
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;53
R=85,0;0;15,0;1,0;Arial,10,N;$[mSumme]
L=4,0;0;51,0;1,0;Arial,10,F;Umsatzsteuer

#end

##out54
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;54
L=4,0;0;51,0;1,0;Arial,12,F;Abziehbare Vorsteuerbeträge

#end

##out55
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;55
L=4,0;-0,5;76,0;1,0;Arial,8,N;Vorsteuerbeträge aus Rechnungen von anderen Unternehmen (§ 15 Abs. 1 Satz 1 Nr. 1 UStG)
L=4,0;0,0;76,0;1,0;Arial,8,N;aus Leistungen im Sinne des § 13a Abs. 1 Nr. 6 UStG (§ 15 Abs. 1 Satz 1 Nr. 5 UStG) und aus
L=4,0;0,5;76,0;1,0;Arial,8,N;innergemeinschaftlichen Dreiecksgeschäften (§ 25b Abs. 5 UStG)
L=82,0;0,0;3,0;1,0;Arial,10,F;66
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out56
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;56
L=4,0;-0,1;66,0;1,0;Arial,8,N;Vorsteuerbeträge aus dem innergemeinschaftlichen Erwerb von Gegenständen
L=4,0;0,4;66,0;1,0;Arial,8,N;(§ 15 Abs. 1 Satz 1 Nr. 3 UStG)
L=82,0;0,0;3,0;1,0;Arial,10,F;61
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out57
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;57
L=4,0;0;66,0;1,0;Arial,8,N;Entrichtete Einfuhrumsatzsteuer (§ 15 Abs. 1 Satz 1 Nr. 2 UStG)
L=82,0;0,0;3,0;1,0;Arial,10,F;62
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out58
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;58
L=4,0;0,0;74,0;1,0;Arial,8,N;Vorsteuerbeträge aus Leistungen im Sinne des § 13b Abs. 1 UStG (§ 15 Abs. 1 Satz 1 Nr. 4 UStG)
L=82,0;0,0;3,0;1,0;Arial,10,F;67
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out59
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;59
L=4,0;0,0;76,0;1,0;Arial,8,N;Vorsteuerbeträge die nach allgemeinen Durchschnittssätzen berechnet sind (§§ 23 und 23a UStG)
L=82,0;0,0;3,0;1,0;Arial,10,F;63
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out60
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;60
L=4,0;0,0;76,0;1,0;Arial,8,N;Berichtigung des Vorsteuerabzugs (§ 15a UStG)
L=82,0;0,0;3,0;1,0;Arial,10,F;64
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out70
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;70
L=4,0;0,0;90,0;0,5;Arial, 8,N;Ein Erstattungsbetrag wird auf das dem Finanzamt bekannte Konto überwiesen, soweit der Betrag
L=4,0;0,5;90,0;0,5;Arial, 8,N;nicht mit Steuerschulden verrechnet wird.

#end

##out71
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;71
L=4,0;0,0;78,0;0,5;Arial, 8,F;Verrechnung des Erstattungsbetrages erwünscht / Erstattungsbetrag ist abgetreten.
L=4,0;0,5;90,0;0,5;Arial, 8,N;(falls ja, bitte eine "1" eintragen)
R=82,0;0,0;3,0;1,0;Arial,12,F;29
L=86,0;0,5;5,0;1,0; ;\-

#end

##out72
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;72
L=4,0;0,0;90,0;0,5;Arial, 8,N;Geben Sie bitte die Verrechnungswünsche auf einem besonderen Blatt an oder auf dem beim Finanzamt
L=4,0;0,5;90,0;0,5;Arial, 8,N;erhältlichen Vordruck "Verrechnungsantrag".

#end

##out73
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;73
L=4,0;0,5;78,0;0,5;Arial, 8,N;Die Einzugsermächtigung wird ausnahmsweise (z.B. wegen Verrechnungswünschen) für diesen
R=82,0;0,5;3,0;1,0;Arial,12,F;26
L=86,0;1,0;5,0;1,0; ;\-

#end

##out74
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;74
L=4,0;0,0;78,0;0,5;Arial, 8,N;Voranmeldungszeitraum widerrufen (falls ja, bitte eine "1" eintragen)
L=4,0;0,5;78,0;0,5;Arial, 8,N;Ein ggf. verbleibender Restbetrag ist gesondert zu entrichten.

#end

##out75
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;75
L=60,0;-0,5;40,0;1,0; ;\-
L=59,5;0,0;1,0;12,0; ;\|
L=4,0;0,5;54,0;0,5;Arial, 8,F;Hinweis nach den Vorschriften der Datenschutzgesetze:
C=61,0;0,2;38,0;1,0;Arial, 8,F;- nur vom Finanzamt auszufüllen -

#end

##out76
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;76
R=62,0;0,0;3,0;1,0;Arial,12,F;11
R=82,0;0,0;3,0;1,0;Arial,12,F;19
L=4,0;0,0;78,0;0,5;Arial, 8,N;Die mit der Steueranmeldung angeforderten Daten werden auf Grund
L=4,0;0,5;78,0;0,5;Arial, 8,N;der §§ 149 ff. der Abgabenordnung und der §§ 18, 18b des

#end

##out77
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;77
L=4,0;0,0;78,0;0,5;Arial, 8,N;Umsatzsteuergesetzes erhoben.
L=4,0;0,5;78,0;0,5;Arial, 8,N;Die Angabe der Telefonnummern ist freiwillig.

#end

##out78
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;78
R=62,0;0,0;3,0;1,0;Arial,12,F;
R=82,0;0,0;3,0;1,0;Arial,12,F;12
L=4,0;0,2;43,0;0,6;Arial, 8,N;Bei der Anfertigung dieser Steueranmeldung hat mitgewirkt:
L=4,0;0,8;34,0;0,7;Arial, 7,N;(Name, Anschrift, Telefon)

#end

##out79
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;79
L=61,0;0,4;38,0;0,5;Arial, 8,F;Bearbeitungshinweis

#end

##out80
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;80
L=61,0;0,0;2,0;0,5;Arial, 8,N;1.
L=63,0;0,0;36,0;0,5;Arial, 7,N;Die aufgeführten Daten sind mit Hilfe des geprüften und genehmigten
L=63,0;0,5;36,0;0,5;Arial, 7,N;Programms sowie ggf. unter Berücksichtigung der gespeicherten

#end

##out81
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;81
L=63,0;0,0;36,0;0,5;Arial, 7,N;Daten maschinell zu verarbeiten.
L=61,0;0,5;2,0;0,5;Arial, 8,N;2.
L=63,0;0,5;36,0;0,5;Arial, 7,N;Die weitere Bearbeitung richtet sich nach den Ergebnissen der

#end

##out82
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;82
L=63,0;0,0;36,0;0,5;Arial, 7,N;maschinellen Verarbeitung.

#end

##out83
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;83
L=4,0;0,0;50,0;0,6;Arial, 8,F;Ich versichere, die Angaben in dieser Steueranmeldung
L=4,0;0,6;50,0;0,6;Arial, 8,F;wahrheitsgemäß nach bestem Wissen und Gewissen gemacht
L=4,0;1,2;50,0;0,6;Arial, 8,F;zu haben.
C=61,0;0,5;38,0;0,5;Arial, 7,N;Datum, Namenszeichen

#end

##out84
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;84
L=60,0;0,0;40,0;1,0; ;\-

#end

##out85
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;85
L=61,0;0,0;38,0;0,5;Arial, 8,N;Kontrollzahl und/oder Datenerfassungsvermerk

#end

##out86
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;86
L=0,0;0,5;100,0;1,0; ;\-
L=4,0;0,2;40,0;0,8;Arial, 7,N;Datum, Unterschrift

#end

##out61
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;61
L=4,0;-0,3;76,0;1,0;Arial,8,N;Vorsteuerabzug für innergemeinschaftliche Lieferungen neuer Fahrzeuge außerhalb eines Unternehmens
L=4,0;0,2;76,0;1,0;Arial,8,N;(§ 2a UStG) sowie Kleinunternehmen im Sinne des § 19 Abs. 1 UStG (§ 15 Abs. 4a UStG)
L=82,0;0,0;3,0;1,0;Arial,10,F;59
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out62
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;62
R=85,0;0;15,0;1,0;Arial,10,N;$[mSumme]
L=4,0;0;51,0;1,0;Arial,8,N;verbleibender Betrag

#end

##out63
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;63
L=4,0;-0,3;76,0;1,0;Arial,8,N;Steuerbeträge, die vom letzten Abnehmer eines innergemeinschaftlichen Dreiecksgeschäfts geschuldet
L=4,0;0,2;76,0;1,0;Arial,8,N;werden (§ 25b Abs. 2 UStG), in Rechnungen unrichtig oder unberechtigt ausgewiesene Steuerbeträge
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out64
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;64
L=4,0;-0,3;76,0;1,0;Arial,8,N;sowie Steuerbeträge, die nach § 6a Abs. 4 Satz 2 oder § 17 Abs. 1 Satz 2 UStG geschuldet werden
L=4,0;0,2;76,0;1,0;Arial,8,N;
L=82,0;0,0;3,0;1,0;Arial,10,F;69
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out65
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;65
R=85,0;0;15,0;1,0;Arial,10,N;$[mSumme]
L=4,0;0;51,0;1,0;Arial,10,F;Umsatzsteuer-Vorauszahlung/Überschuss

#end

##out66
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;66
L=4,0;-0,3;76,0;1,0;Arial,8,N;Anrechnung (Abzug) der festgesetzten Sondervorauszahlung für Dauerfristverlängerung
L=4,0;0,2;76,0;1,0;Arial,8,N;(nur auszufüllen in der letzten Voranmeldung des Besteuerungszeitraumes, in der Regel Dezember)
L=82,0;0,0;3,0;1,0;Arial,10,F;39
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mB]

#end

##out67
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;67
L=4,0;-0,1;37,0;1,0;Arial,10,FU;Verbleibende Umsatzsteuer-Vorauszahlung 
L=4,0;0,7;37,0;1,0;Arial,10,F;Verbleibender Überschuß
L=82,0;0,0;3,0;1,0;Arial,10,F;83
R=85,0;0,0;15,0;1,0;Arial,10,N;$[mSumme]
R=42,0;0,7;37,0;1,0;Arial, 8,N;- bitte dem Betrag ein Minuszeichen voranstellen -
R=49,0;-0,1;30,0;1,0;Arial,10,F;(bitte in jedem Fall ausfüllen)

#end

##out68
* Ausgabe für ReportMain
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;68

#end

##out69
CY=1
R=0,0;0,0;2,0;1,0;Arial,10,N;69
L=4,0;-0,4;60,0;1,3;Arial,14,F;II. Sonstige Angaben und Unterschrift

#end

#subFillAB
VAR mFillY(d,8,2)
VAR mFillX(d,8,2)
VAR mFillCX(d,8,2)
mFillY= $[RandY] + ($[cyZeile] * $[Zeile])

* links füllen
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,605
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

* Mitte füllen
mFillX= $[RandX] + ($[SizeX] * 0,66)
mFillCX=$[SizeX] * 0,145
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

* Rechts füllen
mFillX= $[RandX] + ($[SizeX] * 0,86)
mFillCX=$[SizeX] * 0,145
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

#end

#subFillB
VAR mFillY(d,8,2)
VAR mFillX(d,8,2)
VAR mFillCX(d,8,2)
mFillY= $[RandY] + ($[cyZeile] * $[Zeile])

* links füllen
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,605
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

* Rechts füllen
mFillX= $[RandX] + ($[SizeX] * 0,86)
mFillCX=$[SizeX] * 0,145
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

#end

#subFill1
* Füllen Seite 1
VAR mFillY(d,8,2)
VAR mFillX(d,8,2)
VAR mFillCX(d,8,2)
VAR mFillCY(d,8,2)

* ----------------------------------------------------- Kopf
mFillX= $[RandX] + ($[SizeX] * 0,48)
mFillCX=$[SizeX] * 0,525
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 1))
mFillCY=$[cyZeile] * 16
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976
mFillX= $[RandX] + ($[SizeX] * 0,04)
mFillCX=$[SizeX] * 0,46
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 1))
mFillCY=$[cyZeile] * 3,5
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 16))
mFillCY=$[cyZeile] * 1,0
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 11))
mFillCY=$[cyZeile] * 1
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* ----------------------------------------------------- links füllen
* Zeilen 1 .. 16
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,04
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 1))
mFillCY=$[cyZeile] * 16
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeilen 17 .. 42
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,605
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 17))
mFillCY=$[cyZeile] * 27
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

mFillX= $[RandX] + ($[SizeX] * 0,03)
mFillCX=$[SizeX] * 0,975
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 17))
mFillCY=$[cyZeile] * 1,5
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];12632256

* ----------------------------------------------------- Mitte füllen

mFillX= $[RandX] + ($[SizeX] * 0,605)
mFillCX=$[SizeX] * 0,40

mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 19))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 20))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

mFillX= $[RandX] + ($[SizeX] * 0,66)
mFillCX=$[SizeX] * 0,145

mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 31))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 34))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 36))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 41))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 43))
mFillX= $[RandX] + ($[SizeX] * 0,605)
mFillCX=$[SizeX] * 0,20
mFillCY=$[cyZeile]
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976


* ----------------------------------------------------- Rechts füllen
mFillX= $[RandX] + ($[SizeX] * 0,86)
mFillCX=$[SizeX] * 0,145

mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 21))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 22))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 23))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 24))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 25))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 26))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 27))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 31))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 32))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 34))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 35))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 36))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 41))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 42))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976



#end

#subFill2
* Füllen Seite 2
VAR mFillY(d,8,2)
VAR mFillX(d,8,2)
VAR mFillCX(d,8,2)
VAR mFillCY(d,8,2)

* ----------------------------------------------------- links füllen
* Zeilen 44 .. 45
mFillX= $[RandX] + ($[SizeX] * 0,605)
mFillCX=$[SizeX] * 0,20
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 44 - 43))
mFillCY=$[cyZeile] * 2
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeilen 44 .. 52
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,605
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 44 - 43))
mFillCY=$[cyZeile] * 9
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeile  52
mFillX= $[RandX] + ($[SizeX] * 0,605)
mFillCX=$[SizeX] * 0,20
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 52 - 43))
mFillCY=$[cyZeile]
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeilen 53 .. 69
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,805
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 53 - 43))
mFillCY=$[cyZeile] * 17
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeile  68
mFillX= $[RandX] + ($[SizeX] * 0,805)
mFillCX=$[SizeX] * 0,20
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 68 - 43))
mFillCY=$[cyZeile]
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeilen  68 .. 69
mFillX= $[RandX] + ($[SizeX] * 0,03)
mFillCX=$[SizeX] * 0,975
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 68,5 - 43))
mFillCY=$[cyZeile] * 1,5
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];12632256

* ----------------------------------------------------- Rechts füllen
mFillX= $[RandX] + ($[SizeX] * 0,86)
mFillCX=$[SizeX] * 0,145

mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 44 - 43))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 46 - 43))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 47 - 43))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 51 - 43))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 54 - 43))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

mFillX= $[RandX] + ($[SizeX] * 0,605)
mFillCX=$[SizeX] * 0,20

mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 46 - 43))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 47 - 43))
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[cyZeile];15263976

* ----------------------------------------------------- Unten
* Zeilen  70 .. 74
mFillX= $[RandX]
mFillCX=$[SizeX] * 1,005
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 70 - 43))
mFillCY=$[cyZeile] * 5
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeilen  74 .. 77
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,505
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 74 - 43))
mFillCY=$[cyZeile] * 4
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeilen  83 .. 84
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,505
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 83 - 43))
mFillCY=$[cyZeile] * 2
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976

* Zeilen  74 .. 86
mFillX= $[RandX]
mFillCX=$[SizeX] * 0,035
mFillY= $[RandY] + ($[cyZeile] * ($[Zeile] + 74 - 43))
mFillCY=$[cyZeile] * 13
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976
mFillX= $[RandX]+ ($[SizeX] * 0,48)
mFillCX=$[SizeX] * 0,102
OUT RGBFILL $[mFillX];$[mFillY];$[mFillCX];$[mFillCY];15263976


#end

##outFormStamp
CY=1
R=98,0;0,0;2,0;1,0;Arial, 8,N;-$[Seite]-
L=0,0;0,0;98,0;1,0;Arial, 8,N;USt 1 A - Umsatzsteuer-Voranmeldung 2004 - BEDAV GmbH (vorm. Taylorix Leipzig GmbH), OFD Chemnitz, 25.08.1999, S 7344-70/4-St34

#end

##FussSeite
CY=3
L=0;0;100;1; ;\-
L=0;2;100;1; ;\-

#end

##FussBericht
CY=3
L=0;0;100;1; ;\-
L=0;2;100;1; ;\-

#end

