*Rechnungsausgangsbuch
#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,50,0)
VAR Zeile(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(s,2,0)

* Datensatz EIGENE_ANSCHRIFTEN
REC recADR(EIGENE_ANSCHRIFTEN,0,2)01

VAR mWaehr(u,3,0)

* Umsatzsteuerprozentsaetze
VAR mUst1(d,8,1)
VAR mUst2(d,8,1)
* Summen Netto/Ust
VAR mSuN1(d,8,2)
VAR mSuN2(d,8,2)
VAR mSuU1(d,8,2)
VAR mSuU2(d,8,2)
* Summen Brutto Mark/Euro
VAR mSuBM(d,8,2)
VAR mSuBE(d,8,2)
VAR mVKZ(C,3,0)
VAR mFltText(C,50,0)

* neue Summen ab 2011 nach Satz getrennt
VAR mNetto19(N,14,2)
VAR mMwst19(N,14,2)
VAR mBrutto19(N,14,2)
VAR mNetto16(N,14,2)
VAR mMwst16(N,14,2)
VAR mBrutto16(N,14,2)
VAR mNetto15(N,14,2)
VAR mMwst15(N,14,2)
VAR mBrutto15(N,14,2)
VAR mNetto14(N,14,2)
VAR mMwst14(N,14,2)
VAR mBrutto14(N,14,2)
VAR mNetto07(N,14,2)
VAR mMwst07(N,14,2)
VAR mBrutto07(N,14,2)
VAR mNetto00(N,14,2)
VAR mMwst00(N,14,2)
VAR mBrutto00(N,14,2)
VAR mNetto13B(N,14,2)
VAR mMwst13B(N,14,2)
VAR mBrutto13B(N,14,2)
VAR mNettoSonst(N,14,2)
VAR mMwstSonst(N,14,2)
VAR mBruttoSonst(N,14,2)
VAR mNettoAnd(N,14,2)
VAR mMwstAnd(N,14,2)
VAR mBruttoAnd(N,14,2)
VAR mNettoAll(N,14,2)
VAR mMwstAll(N,14,2)
VAR mBruttoAll(N,14,2)
VAR mTotal(N,14,2)
VAR mDeduc(N,14,2)

mWaehr=DEM
mUst1=16
mUst2=7

*-------------------------------------------------------------------------
* Prüfen der Übergabe von Filtervariablen
IFNOT ISVAR(FltMon)
  VAR FltMon(s,2,0)
IFNOT ISVAR(FltJahr)
  VAR FltJahr(s,2,0)
IFNOT ISVAR(FltKW)
  VAR FltKW(s,2,0)
IFNOT ISVAR(mQuartal)
  VAR mQuartal(L,1,0)

VAR FltMonVon(s,2,0)
VAR FltMonBis(s,2,0)

SUB #subMonFilter

IF BOOL($[FltKW])
  mFltText=KW $[FltKW] / $[FltJahr]
ELSE
  mFltText=$[FltMonVon]..$[FltMonBis] / $[FltJahr]



* Code für den
* Berichtsablauf ein.

SUB #subPaperDefs

REC recMAIN(BELEGVERZEICHNIS,1,0)
REC recEUR(WÄHRUNGEN,1,3)EUR
IF EOF(recEUR)
  recEUR.EUROKURS=1,00000
REC recDEM(WÄHRUNGEN,1,3)DEM
IF EOF(recDEM)
  recDEM.EUROKURS=1,95883
* Datensatzschleife OPTIONEN
REC recOPT(OPTIONEN,0,5) 7008
IF EOF(recOPT)
  recOPT.OPTDATAC=DEM
IF EMPTY(recOPT.OPTDATAC)
  recOPT.OPTDATAC=DEM
mWaehr=$[recOPT.OPTDATAC]
REC recMWC(WÄHRUNGEN,1,6)$[recOPT.OPTDATAC<6]
IF EOF(recMWC)
  recMWC.EUROKURS=1,00000

*-----------------------------------------------------------------------------
* Vorbereiten der Ausgabe 
* Initialisierung der Drucksteuerdaten
OUT INITPAGESIZE
OUT STARTJOB $[RepTitel]
OUT TRANSPARENT
OUT STARTPAGE
Zeile=0
OUT ##KopfBericht
OUT ##KopfDetail
*-----------------------------------------------------------------------------

* Aufruf des Unterprogramms loopMAIN fuer jeden Datensatz
* der an recMAIN gebundenen Tabelle
LOOP recMAIN(#loopMAIN)

* ----------------------------------------------------
* Druckdatei abschliessen
Zeile=$[ZlMax]
OUT ##FussBericht
*OUT ##outPost
OUT ENDPAGE
OUT ENDJOB


#end

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

#end

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

#end

##KopfDetail
CY=3
L=0;0;100;1; ;\-
L=0,0;1,0;10,0;1,0;Arial,8,F;Beleg-Nr.
L=48,0;1,0;8,0;1,0;Arial,8,F;Datum
L=13,0;1,0;3,0;1,0;Arial,8,F;V*
L=16,0;1,0;22,0;1,0;Arial,8,F;KdNr/Konto
R=56,0;1,0;5,0;1,0;Arial,8,F;Ust%
R=61,0;1,0;13,0;1,0;Arial,8,F;Netto
R=74,0;1,0;13,0;1,0;Arial,8,F;Mwst.
R=87,0;1,0;13,0;1,0;Arial,8,F;Br EUR
L=10,0;1,0;3,0;1,0;Arial,8,F;Art
L=38,0;1,0;10,0;1,0;Arial,8,F;Projekt
L=0,0;2,0;100,0;1,0; ;\-

#end

#subMonFilter
* Unterprgramm von OnPreReport

*==== :Kond_FB79 Bedingungscode
IF BOOL(($[FltJahr]) = (0))
  RETURN

*==== :Kond_FBC1 Bedingungscode
IFNOT BOOL(($[FltMon]) = (0))
  GOTO :Kond_FBC1_end

FltMonVon=  1
FltMonBis= 12
RETURN

:Kond_FBC1_end


FltMonVon=$[FltMon]
FltMonBis=$[FltMon]


IFNOT BOOL($[mQuartal])
  RETURN

FltMonVon= 10
IF BOOL($[FltMon] < 10)
  FltMonVon= 7
IF BOOL($[FltMon] < 7)
  FltMonVon= 4
IF BOOL($[FltMon] < 4)
  FltMonVon= 1
FltMonBis= $[FltMonVon] + 2

RETURN

#end

#Kopf
* Dieser Code wird immer beim Seitenwchsel
* aufgerufen, um den Kopf der nächsten Seite
* auszugeben
* Der Kopf für die erste Seite steht jedoch
* im Codestück OnPreReport

Zeile=0
OUT ##KopfSeite
OUT ##KopfDetail

#end

#Fuss
* Dieser Code wird immer beim Seitenwchsel
* aufgerufen, um den Fuss der aktuellen Seite
* auszugeben
* Der Fuss für die letzte Seite steht jedoch
* im Codestück OnPostReport

Zeile=$[ZlMax]
OUT ##FussSeite
*OUT ##outPost
OUT ENDPAGE
Seite=$[Seite]+1
Zeile=0
OUT STARTPAGE

#end

##outUebertr
CY=2
R=61,0;0,0;13,0;1,0;Arial,8,N;$[mNettoAll!0]
R=74,0;0,0;13,0;1,0;Arial,8,N;$[mMwstAll!0]
R=87,0;0,0;13,0;1,0;Arial,8,N;$[mTotal!0]
L=0,0;0,0;40,0;1,0;Arial,8,N;Übertrag von Seite -$[mSeiteZuvo]-
L=0,0;1,0;100,0;1,0; ;\-

#end

#CheckPage
* Fussbereich ausgeben, wenn letzte Zeile erreicht
VAR mSeiteZuvo(s,2,0)

IFNOT BOOL($[Zeile] >= ($[ZlMax]-1))
   RETURN

SUB #Fuss
SUB #Kopf
mSeiteZuvo= $[Seite] - 1
OUT ##outUebertr

#end

#NeueSeite
* nächste Seite anfangen
SUB #Fuss
SUB #Kopf

#end

##outMAIN
CY=1
L=0,0;0,0;10,0;1,0;Arial,8,N;$[recMAIN.BELEGNR]
L=10,0;0,0;3,0;1,0;Arial,8,N;$[recMAIN.BELEGART]
L=13,0;0,0;3,0;1,0;Arial,8,N;$[mVKZ]
L=38,0;0,0;10,0;1,0;Arial,8,N;$[recMAIN.PRJNR]
L=48,0;0,0;8,0;1,0;Arial,8,N;$[recMAIN.TAG].$[recMAIN.MONAT].$[recMAIN.JAHR>2]
R=56,0;0,0;5,0;1,0;Arial,8,N;$[cMwstSatz]
L=16,0;0,0;22,0;1,0;Arial,8,N;$[recMAIN.KDNR] / $[recMAIN.DEBKONTO]
R=61,0;0,0;13,0;1,0;Arial,8,N;$[mN1!]
R=74,0;0,0;13,0;1,0;Arial,8,N;$[mU1!0]
R=87,0;0,0;13,0;1,0;Arial,8,N;$[mBE!0]

#end

##outLine
CY=1
L=0;0;100;1; ;\-

#end

##outLineFeed
CY=1

#end

##outService
CY=1
L=0,0;0,0;56,0;1,0;Arial,8,N;$[recMAIN.NAME1] $[recMAIN.STRASSE] $[recMAIN.PLZ<5] $[recMAIN.ORT]
R=56,0;0,0;5,0;1,0;Arial,8,N;$[recMAIN.USTVH2]
R=61,0;0,0;13,0;1,0;Arial,8,N;$[mN2!]
R=74,0;0,0;13,0;1,0;Arial,8,N;$[mU2!0]

#end

##outNormal
CY=1
L=0,0;0,0;100,0;1,0;Arial,8,N;$[recMAIN.NAME1] $[recMAIN.BETREFF1]

#end

#subDoSumme
* diese Werte summieren
* VAR locSatz(C,10,0)
* VAR locNetto(N,14,2)
* VAR locMwst(N,14,2)

IFNOT CMP(locSatz,=)§13b
  GOTO :END_13b
mNetto13B=  $[mNetto13B]  + $[locNetto]
mBrutto13B= $[mBrutto13B] + $[locNetto]
RETURN
:END_13b
*----------------------------------------------
IFNOT CMP(locSatz,=)19,00
  GOTO :END_19
mNetto19=  $[mNetto19]  + $[locNetto]
mMwst19=   $[mMwst19]   + $[locMwst]
mBrutto19= $[mBrutto19] + $[locNetto] + $[locMwst]
RETURN
:END_19
*----------------------------------------------
IFNOT CMP(locSatz,=)16,00
  GOTO :END_16
mNetto16=  $[mNetto16]  + $[locNetto]
mMwst16=   $[mMwst16]   + $[locMwst]
mBrutto16= $[mBrutto16] + $[locNetto] + $[locMwst]
RETURN
:END_16
*----------------------------------------------
IFNOT CMP(locSatz,=)15,00
  GOTO :END_15
mNetto15=  $[mNetto15]  + $[locNetto]
mMwst15=   $[mMwst15]   + $[locMwst]
mBrutto15= $[mBrutto15] + $[locNetto] + $[locMwst]
RETURN
:END_15
*----------------------------------------------
IFNOT CMP(locSatz,=)14,00
  GOTO :END_14
mNetto14=  $[mNetto14]  + $[locNetto]
mMwst14=   $[mMwst14]   + $[locMwst]
mBrutto14= $[mBrutto14] + $[locNetto] + $[locMwst]
RETURN
:END_14
*----------------------------------------------
IFNOT CMP(locSatz,=)7,00
  GOTO :END_07
mNetto07=  $[mNetto07]  + $[locNetto]
mMwst07=   $[mMwst07]   + $[locMwst]
mBrutto07= $[mBrutto07] + $[locNetto] + $[locMwst]
RETURN
:END_07
*----------------------------------------------
IFNOT CMP(locSatz,=)0,00
  GOTO :END_00
mNetto00=  $[mNetto00]  + $[locNetto]
mMwst00=   $[mMwst00]   + $[locMwst]
mBrutto00= $[mBrutto00] + $[locNetto] + $[locMwst]
RETURN
:END_00
*----------------------------------------------
mNettoSonst=  $[mNettoSonst]  + $[locNetto]
mMwstSonst=   $[mMwstSonst]   + $[locMwst]
mBruttoSonst= $[mBruttoSonst] + $[locNetto] + $[locMwst]

RETURN

#end

#subCalcSummen
* Unterprgramm von ReportMain/loopMAIN

VAR locSatz(C,10,0)
VAR locNetto(N,14,2)
VAR locMwst(N,14,2)

locSatz=$[cMwstSatz]
locNetto=$[mN1]
locMwst=$[mU1]
SUB #subDoSumme

locSatz=$[cMwstSatz2]
locNetto=$[mN2]
locMwst=$[mU2]
SUB #subDoSumme

mNettoAnd=  $[mNetto14]   + $[mNetto15]  + $[mNetto16]  + $[mNettoSonst] 
mMwstAnd=   $[mMwst14]    + $[mMwst15]   + $[mMwst16]   + $[mMwstSonst]
mBruttoAnd= $[mBrutto14]  + $[mBrutto15] + $[mBrutto16] + $[mBruttoSonst]
mNettoAll=  $[mNettoAnd]  + $[mNetto19]  + $[mNetto07]  + $[mNetto00]  + $[mNetto13B]
mMwstAll=   $[mMwstAnd]   + $[mMwst19]   + $[mMwst07]   + $[mMwst00]   + $[mMwst13B]
mBruttoAll= $[mBruttoAnd] + $[mBrutto19] + $[mBrutto07] + $[mBrutto00] + $[mBrutto13B]

mTotal= $[mSuBE]
mDeduc= $[mSuBE] - $[mBruttoAll]

RETURN

#end

#loopMAIN
* Unterprogramm von ReportMain
* Datensatzschleife recMAIN

REC recKWoche(VIRTUELLES_DATUM,1,8)$[recMAIN.JAHR]$[recMAIN.MONAT]$[recMAIN.TAG]
*==== :Kond_9684 Bedingungscode

* ---------------- Rechnungsbelege filtern
IF BOOL($[recMAIN.BELEGART] < 1)
   RETURN
IF BOOL($[recMAIN.BELEGART] > 4)
   RETURN

* ---------------- Zeitraum filtern
IF BOOL($[FltJahr]=0)
   GOTO :NoFlt
IF BOOL($[FltJahr]<>$[recMAIN.JAHR])
   RETURN
IF BOOL($[FltKW]=0)
   GOTO :NoFltKW
IF BOOL(($[recKWoche.KALENDERWO]) <> ($[FltKW]))
  RETURN
GOTO :NoFlt
:NoFltKW
IF BOOL($[FltMonVon]>$[recMAIN.MONAT])
   RETURN
IF BOOL($[FltMonBis]<$[recMAIN.MONAT])
   RETURN
:NoFlt

VAR mN1(d,8,2)
VAR mN2(d,8,2)
VAR mU1(d,8,2)
VAR mU2(d,8,2)
VAR mBM(d,8,2)
VAR mBE(d,8,2)
VAR mNummer(C,10,0)
VAR mDatum(C,8,0)
VAR mKunde(C,30,0)
VAR mIs13b(L,1,0)
VAR c13b(u,4,0)
VAR cMwstSatz(C,10,0)
VAR cMwstSatz2(C,10,0)

REC recWAEHR(WÄHRUNGEN,1,6)$[recMAIN.WAEHRUNG<6]
IF EOF(recWAEHR)
  recWAEHR.EUROKURS=1,00000
:EOF_recWAEHR
***************************************************

cMwstSatz=$[recMAIN.MWSTSATZ]
cMwstSatz2=$[recMAIN.USTVH2]
c13b=$[recMAIN.RES4NG2]
c13b=$[c13b>3]
IF CMP(c13b,=)13B
  cMwstSatz=§13b

mN1=$[recMAIN.NETTO]  * ($[recMWC.EUROKURS] / $[recWAEHR.EUROKURS])
mN2=0
mU1=$[recMAIN.MWST]   * ($[recMWC.EUROKURS] / $[recWAEHR.EUROKURS])
mU2=0
mBM=$[recMAIN.BRUTTO] * ($[recDEM.EUROKURS] / $[recWAEHR.EUROKURS])
mBE=$[recMAIN.BRUTTO] * ($[recEUR.EUROKURS] / $[recWAEHR.EUROKURS])

* Servicebericht Brutto ??
IFNOT CMP(recMAIN.PHASE,=)3B
  GOTO :KeinService

mN1=$[recMAIN.NETTO1]  * ($[recMWC.EUROKURS] / $[recWAEHR.EUROKURS])
mN2=$[recMAIN.NETTO2]  * ($[recMWC.EUROKURS] / $[recWAEHR.EUROKURS])
mU1=$[recMAIN.UST1]    * ($[recMWC.EUROKURS] / $[recWAEHR.EUROKURS])
mU2=$[recMAIN.UST2]    * ($[recMWC.EUROKURS] / $[recWAEHR.EUROKURS])
:KeinService


IF BOOL($[recMAIN.BELEGART] <> 2)
   GOTO :KeineGS

* Vorzeichen fuer Gutschriftsbeleg umkehren
mN1=0-$[mN1]
mN2=0-$[mN2]
mU1=0-$[mU1]
mU2=0-$[mU2]
mBM=0-$[mBM]
mBE=0-$[mBE]
:KeineGS


* Verarbeitungskennung setzen
IF BOOL($[recMAIN.ZUVERBUCH])
  mVKZ=1/
ELSE
  mVKZ=0/
IF BOOL($[recMAIN.VERBUCHT])
  mVKZ=$[mVKZ]1
ELSE
  mVKZ=$[mVKZ]0

SUB #CheckPage
OUT ##outMAIN

*==== Servicebericht Brutto ?? 
IF CMP(recMAIN.PHASE,=)3B
  OUT ##outService
ELSE
  OUT ##outNormal

mSuN1=$[mSuN1]+$[mN1]
mSuN2=$[mSuN2]+$[mN2]
mSuU1=$[mSuU1]+$[mU1]
mSuU2=$[mSuU2]+$[mU2]
mSuBM=$[mSuBM]+$[mBM]
mSuBE=$[mSuBE]+$[mBE]
SUB #subCalcSummen

IF BOOL($[Zeile] < ($[ZlMax]-1))
   OUT ##outLine

RETURN

#end

##outPost
CY=2
L= 0;0;15;1;Arial,8,N;$[recADR.BANK1_NAME]  
L=15;0;35;1;Arial,8,N;(BLZ: $[recADR.BANK1_BLZ])  Kto-Nr. $[recADR.BANK1_KONT]
L=0,0;1,0;15,0;1,0;Arial,8,N;$[recADR.BANK2_NAME]
L=15;1;35;1;Arial,8,N;(BLZ: $[recADR.BANK2_BLZ])  Kto-Nr. $[recADR.BANK2_KONT]
L=50;0;15;1;Arial,8,N;Telefon
L=50;1;15;1;Arial,8,N;$[recADR.TELEFON]
L=65;0;15;1;Arial,8,N;Telefax
L=65,0;1,0;15,0;1,0;Arial,8,N;$[recADR.FAXNR]
R=80;0;20;1;Arial,8,N;E-Mail
R=80;1;20;1;Arial,8,N;$[recADR.NAME3]

#end

#subPaperDefs
* Definition des Basislayouts und Papiergrößen

* Zeilen per Inc
mLPI=8

RepTitel=Rechnungsausgangsbuch
Heute=H
RandX=      1,80
RandY=      0,80
SizeX=      18,0
Seite=      1
Zeile=      0
cyZeile=    2.54/$[mLPI]
ZlMax=     ( 26.5/$[cyZeile] ) -1

RETURN

#end

##FussSeite
CY=6
L=0;0;100;1; ;\-
L=0,0;1,0;16,0;1,0;Arial,8,N;Umsatz $[mFltText]
L=0,0;4,0;10,0;1,0;Arial,8,N;Liste 401
L=10,0;2,0;6,0;1,0;Arial,8,N;Netto
L=10,0;3,0;6,0;1,0;Arial,8,N;USt.
L=10,0;4,0;6,0;1,0;Arial,8,N;Brutto
R=16,0;1,0;12,0;1,0;Arial,8,N;ohne USt.
R=16,0;2,0;12,0;1,0;Arial,8,N;$[mNetto00!0]
R=16,0;3,0;12,0;1,0;Arial,8,N;$[mMwst00!0]
R=16,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto00!0]
R=28,0;1,0;12,0;1,0;Arial,8,N;7% USt.
R=28,0;2,0;12,0;1,0;Arial,8,N;$[mNetto07!0]
R=28,0;3,0;12,0;1,0;Arial,8,N;$[mMwst07!0]
R=28,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto07!0]
R=40,0;1,0;12,0;1,0;Arial,8,N;19% USt.
R=40,0;2,0;12,0;1,0;Arial,8,N;$[mNetto19!0]
R=40,0;3,0;12,0;1,0;Arial,8,N;$[mMwst19!0]
R=40,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto19!0]
R=52,0;1,0;12,0;1,0;Arial,8,N;§13b UStG.
R=52,0;2,0;12,0;1,0;Arial,8,N;$[mNetto13B!0]
R=52,0;3,0;12,0;1,0;Arial,8,N;$[mMwst13B!0]
R=52,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto13B!0]
R=64,0;1,0;12,0;1,0;Arial,8,N;andere Sätze
R=64,0;2,0;12,0;1,0;Arial,8,N;$[mNettoAnd!0]
R=64,0;3,0;12,0;1,0;Arial,8,N;$[mMwstAnd!0]
R=64,0;4,0;12,0;1,0;Arial,8,N;$[mBruttoAnd!0]
R=76,0;1,0;12,0;1,0;Arial,8,N;Gesamt
R=76,0;2,0;12,0;1,0;Arial,8,N;$[mNettoAll!0]
R=76,0;3,0;12,0;1,0;Arial,8,N;$[mMwstAll!0]
R=76,0;4,0;12,0;1,0;Arial,8,N;$[mBruttoAll!0]
R=88,0;1,0;12,0;1,0;Arial,8,N;Brutto Zu/Ab
R=88,0;2,0;12,0;1,0;Arial,8,N;$[mDeduc!0]
R=88,0;3,0;12,0;1,0;Arial,8,N;Summe
R=88,0;4,0;12,0;1,0;Arial,8,N;$[mTotal!0]
L=0;5;100;1; ;\-

#end

##FussBericht
CY=6
L=0;0;100;1; ;\-
L=0,0;1,0;16,0;1,0;Arial,8,N;Umsatz $[mFltText]
L=0,0;4,0;10,0;1,0;Arial,8,N;Liste 401
L=10,0;2,0;6,0;1,0;Arial,8,N;Netto
L=10,0;3,0;6,0;1,0;Arial,8,N;USt.
L=10,0;4,0;6,0;1,0;Arial,8,N;Brutto
R=16,0;1,0;12,0;1,0;Arial,8,N;ohne USt.
R=16,0;2,0;12,0;1,0;Arial,8,N;$[mNetto00!0]
R=16,0;3,0;12,0;1,0;Arial,8,N;$[mMwst00!0]
R=16,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto00!0]
R=28,0;1,0;12,0;1,0;Arial,8,N;7% USt.
R=28,0;2,0;12,0;1,0;Arial,8,N;$[mNetto07!0]
R=28,0;3,0;12,0;1,0;Arial,8,N;$[mMwst07!0]
R=28,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto07!0]
R=40,0;1,0;12,0;1,0;Arial,8,N;19% USt.
R=40,0;2,0;12,0;1,0;Arial,8,N;$[mNetto19!0]
R=40,0;3,0;12,0;1,0;Arial,8,N;$[mMwst19!0]
R=40,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto19!0]
R=52,0;1,0;12,0;1,0;Arial,8,N;§13b UStG.
R=52,0;2,0;12,0;1,0;Arial,8,N;$[mNetto13B!0]
R=52,0;3,0;12,0;1,0;Arial,8,N;$[mMwst13B!0]
R=52,0;4,0;12,0;1,0;Arial,8,N;$[mBrutto13B!0]
R=64,0;1,0;12,0;1,0;Arial,8,N;andere Sätze
R=64,0;2,0;12,0;1,0;Arial,8,N;$[mNettoAnd!0]
R=64,0;3,0;12,0;1,0;Arial,8,N;$[mMwstAnd!0]
R=64,0;4,0;12,0;1,0;Arial,8,N;$[mBruttoAnd!0]
R=76,0;1,0;12,0;1,0;Arial,8,N;Gesamt
R=76,0;2,0;12,0;1,0;Arial,8,N;$[mNettoAll!0]
R=76,0;3,0;12,0;1,0;Arial,8,N;$[mMwstAll!0]
R=76,0;4,0;12,0;1,0;Arial,8,N;$[mBruttoAll!0]
R=88,0;1,0;12,0;1,0;Arial,8,N;Brutto Zu/Ab
R=88,0;2,0;12,0;1,0;Arial,8,N;$[mDeduc!0]
R=88,0;3,0;12,0;1,0;Arial,8,N;Summe
R=88,0;4,0;12,0;1,0;Arial,8,N;$[mTotal!0]
L=0;5;100;1; ;\-

#end

