*Aufmassliste
#main
VAR Seite(s,2,0)
VAR Zeile(s,2,0)
VAR Heute(D,10,0)

IF ISVAR(mNo)
  GOTO :_mNo
VAR mNo(u,20,2)
:_mNo

IF ISVAR(cyZeile)
  GOTO :_cyZeile
VAR cyZeile(N,8,4)
cyZeile= 2,54/6
:_cyZeile

IF ISVAR(ZlMax)
  GOTO :_ZlMax
VAR ZlMax(N,2,0)
ZlMax= 63
:_ZlMax

IF ISVAR(RandX)
  GOTO :_RandX
VAR RandX(N,5,2)
RandX= 1,80
:_RandX

IF ISVAR(RandY)
  GOTO :_RandY
VAR RandY(N,5,2)
RandY= 0,80
:_RandY

IF ISVAR(SizeX)
  GOTO :_SizeX
VAR SizeX(N,5,2)
SizeX= 18,40
:_SizeX

IFNOT ISVAR(mBCFont)
  VAR mBCFont(C,30,0)
IFNOT EMPTY(mBCFont)
  mBCFont=$Free 3 of 9 Extended,960

Seite=1
Zeile=0
Heute=H



* Datensatz BELEGVERZEICHNIS

REC recINV(MAREONINVOICES,1,20)$[mNo<20]
REC recCOMPANY(MAREONCOMPANY,0,20)$[recINV.UNR<20]
REC recDEST(ADRESSSTAMM,0,15)$[recCOMPANY.DestNr<15]
REC recSTEURNR(OPTIONEN,0,5) 6110
REC recUSTIDNR(OPTIONEN,0,5) 6112
REC recLOGO(OPTIONEN,0,5) 7021
REC recEIG(EIGENE_ANSCHRIFTEN,0,2)$[mADRNR>2]
REC recJOB(MAREONJOBS,0,70)$[recINV.UNR<20]$[recINV.JobERP<30]$[recINV.SubUNR<20]
REC recOWNER(MAREONJOBPERSON,1,34)$[recJOB.NrBsh<20]   0OWNER     !
REC recLOCAT(MAREONJOBPERSON,1,34)$[recJOB.NrBsh<20]   0LOCATION  !
REC recPos(MAREONINVOICEPOS,0,21)$[recINV.NrBsh<20]0

VAR adrZeile1(C,81,0)
VAR adrZeile2(C,81,0)
VAR adrZeile3(C,81,0)
VAR adrZeile4(C,81,0)
VAR adrZeile5(C,81,0)
VAR adrStrasse(C,40,0)
VAR adrPlzOrt(C,50,0)
adrZeile1=$[recCOMPANY.Name1]
adrZeile2=$[recCOMPANY.Name2]
adrZeile3=
adrZeile4=
adrZeile5=
adrStrasse=$[recCOMPANY.Street]
adrPlzOrt=$[recCOMPANY.Zip] $[recCOMPANY.City]


VAR mAdr21(C,60,0)
VAR mAdr22(C,60,0)
VAR mAdr23(C,60,0)
VAR mAdr24(C,60,0)
VAR mAdr25(C,60,0)

*IF BOOL($[recCOMPANY.ownerDiff])
LOOP recOWNER(#loopOWNER)
SUB #subFmtAdr1

REC recWKZ(WÄHRUNGEN,1,6)$[recINV.Currency<6]
VAR cWKZ(C,6,0)
IF EMPTY(recWKZ.Zeichen)
  cWKZ=$[recINV.Currency]
ELSE
  cWKZ=$[recWKZ.Zeichen]

VAR mBetreff1(C,40,0)
VAR mBetreff2(C,40,0)
VAR mBetreff3(C,40,0)

mBetreff1=Auftrag Nr. $[recJOB.DisplayNo]
LOOP recLOCAT(#loopLOCAT)


*--------------------------------------------------
* Erste Seite initialisieren und PFD Angaben senden

* PDF Options Header
REC recPDF(OPTIONEN,0,5)20003
VAR mJobHead(C,250,0)
mJobHead=Mareon Abrechnung $[recINV.NrBsh]
*mJobHead=@saPS2PDF-c$[recPDF.OptDataC]@ @saPS2PDF-p$[recBVZ.PRJNR]@ @saPS2PDF-a$[recBVZ.KDNR]@
*mJobHead=@saPS2PDF-dKurfassung $[recBVZ.PRJNR]/$[recBVZ.BELEGART]/$[recBVZ.BELEGNR]@ $[mJobHead]

OUT INITPAGESIZE
OUT STARTJOB $[mJobHead]
SUB #Kopf
SUB #subVORTEXT
LOOP recPos(#loopPos)

VAR mWagesBtr(N,10,2)
IF BOOL($[recINV.UStG13b])
  SUB #subSumm13B
ELSE
  SUB #subSummUST

*--------------------------------------------------
* letzte Seite abschliessen
:MainFuss
SUB #Fuss
OUT ENDJOB


#end

#CheckPage
* Fussbereich ausgeben, wenn letzte Zeile erreicht
IF BOOL($[Zeile] >= $[ZlMax])
   SUB #Fuss
* Kopfbereich ausgeben, wenn erste Zeile erreicht
IF BOOL($[Zeile] = 0)
   SUB #Kopf



#end

#Fuss
*========================= Fusszeile drucken ?
IF ISVAR(mDrkFuss)
  GOTO :_mDrkFuss
VAR mDrkFuss(N,2,0)
mDrkFuss=$[ZlMax]
:_mDrkFuss

Zeile=$[mDrkFuss]
IF BOOL($[mDrkFuss] > 0)
  OUT ##FussBericht
OUT ENDPAGE

Seite=$[Seite]+1
Zeile=0

#end

##outBarcode
CY=0
C=0,0;-2,0;100,0;2,0;$[mBCFont];*$[recINV.Barcode]*
C=0,0;2,0;100,0;1,0;Courier New,10,N;$[recINV.Barcode]

#end

#subKopf1
*========================= Kopf Seite 1
Zeile=0
IF BOOL($[bLogo1])
  SUB #subLOGO
Zeile=0
IF BOOL($[bBarcode1])
  OUT ##outBarcode
Zeile=0

*========================= Seitennummer drucken ?
IF ISVAR(mDrkPgNo1)
  GOTO :_mDrkPgNo1
VAR mDrkPgNo1(N,2,0)
mDrkPgNo1=-1
:_mDrkPgNo1
IF BOOL($[mDrkPgNo1] < 0)
  GOTO :_xDrkPgNo1
Zeile=$[mDrkPgNo1]
OUT ##outPgNo
:_xDrkPgNo1

*========================= Kopf drucken ?
IF ISVAR(mDrkHdr1)
  GOTO :_mDrkHdr1
VAR mDrkHdr1(N,2,0)
mDrkHdr1=0
:_mDrkHdr1
IF BOOL($[mDrkHdr1] < 0)
  GOTO :_xDrkHdr1
Zeile=$[mDrkHdr1]
OUT ##KopfBericht
:_xDrkHdr1

*========================= Absender drucken ?
IF ISVAR(mDrkAbs1)
  GOTO :_mDrkAbs1
VAR mDrkAbs1(N,2,0)
mDrkAbs1=10
:_mDrkAbs1
IF BOOL($[mDrkAbs1] < 0)
  GOTO :_xDrkAbs1
Zeile=$[mDrkAbs1]
OUT ##outAbsender
:_xDrkAbs1

*========================= Merkmale drucken ?
IF ISVAR(mDrkMrk1)
  GOTO :_mDrkMrk1
VAR mDrkMrk1(N,2,0)
mDrkMrk1=11
:_mDrkMrk1
IF BOOL($[mDrkMrk1] < 0)
  GOTO :_xDrkMrk1
Zeile=$[mDrkMrk1]
OUT ##outMerkmale1
OUT ##outSachstand
:_xDrkMrk1

*========================= Anschrift1 drucken ?
IF ISVAR(mDrkAdr1)
  GOTO :_mDrkAdr1
VAR mDrkAdr1(N,2,0)
mDrkAdr1=11
:_mDrkAdr1
IF BOOL($[mDrkAdr1] < 0)
  GOTO :_xDrkAdr1
Zeile=$[mDrkAdr1]
OUT ##outAdresse1
:_xDrkAdr1

*========================= Detailbeginn Seite 1
IF ISVAR(mZlStart1)
  GOTO :_mZlStart1
VAR mZlStart1(N,2,0)
mZlStart1=20
:_mZlStart1
Zeile=$[mZlStart1]



#end

#subKopf2
*========================= Kopf Seite 2
Zeile=0
IF BOOL($[bLogo2])
  SUB #subLOGO
Zeile=0
IF BOOL($[bBarcode2])
  OUT ##outBarcode
Zeile=0

*========================= Seitennummer drucken ?
IF ISVAR(mDrkPgNo2)
  GOTO :_mDrkPgNo2
VAR mDrkPgNo2(N,2,0)
mDrkPgNo2=0
:_mDrkPgNo2
IF BOOL($[mDrkPgNo2] < 0)
  GOTO :_xDrkPgNo2
Zeile=$[mDrkPgNo2]
OUT ##outPgNo
:_xDrkPgNo2

*========================= Kopf drucken ?
IF ISVAR(mDrkHdr2)
  GOTO :_mDrkHdr2
VAR mDrkHdr2(N,2,0)
mDrkHdr2=0
:_mDrkHdr2
IF BOOL($[mDrkHdr2] < 0)
  GOTO :_xDrkHdr2
Zeile=$[mDrkHdr2]
OUT ##KopfSeite
:_xDrkHdr2

*========================= Absender drucken ?
IF ISVAR(mDrkAbs2)
  GOTO :_mDrkAbs2
VAR mDrkAbs2(N,2,0)
mDrkAbs2=10
:_mDrkAbs2
IF BOOL($[mDrkAbs2] < 0)
  GOTO :_xDrkAbs2
Zeile=$[mDrkAbs2]
OUT ##outAbsender
:_xDrkAbs2

*========================= Merkmale drucken ?
IF ISVAR(mDrkMrk2)
  GOTO :_mDrkMrk2
VAR mDrkMrk2(N,2,0)
mDrkMrk2=11
:_mDrkMrk2
IF BOOL($[mDrkMrk2] < 0)
  GOTO :_xDrkMrk2
Zeile=$[mDrkMrk2]
OUT ##outMerkmale1
:_xDrkMrk2

*========================= Anschrift1 drucken ?
IF ISVAR(mDrkAdr2)
  GOTO :_mDrkAdr2
VAR mDrkAdr2(N,2,0)
mDrkAdr2=11
:_mDrkAdr2
IF BOOL($[mDrkAdr2] < 0)
  GOTO :_xDrkAdr2
Zeile=$[mDrkAdr2]
OUT ##outAdresse1
:_xDrkAdr2

*========================= Detailbeginn Seite 2
IF ISVAR(mZlStart2)
  GOTO :_mZlStart2
VAR mZlStart2(N,2,0)
mZlStart2=20
:_mZlStart2
Zeile=$[mZlStart2]

OUT ##KopfDetail


#end

#Kopf
* naechste Seite anfangen
Zeile=0
OUT STARTPAGE
OUT NOSORT
OUT CALCBORDER
OUT XOFFSET  0,00
OUT YOFFSET  0,00
OUT TRANSPARENT

IF BOOL($[Seite] = 1)
  OUT DEVICE $[mDevice1]
ELSE
  OUT DEVICE $[mDevice2]
OUT CALCBORDER

IF BOOL($[Seite] = 1)
  SUB #subKopf1
ELSE
  SUB #subKopf2

#end

##KopfBericht
CY=8
L=3,0;1,0;40,0;1,0;Arial,10,N;$[recEIG.Name1]
L=3,0;2,0;40,0;1,0;Arial,10,N;$[recEIG.Name2]
L=3,0;3,0;40,0;1,0;Arial,10,N;$[recEIG.Strasse]
L=3,0;4,0;40,0;1,0;Arial,10,N;Postfach $[recEIG.Postfach]
L=3,0;5,0;40,0;1,0;Arial,10,F;$[recEIG.PlzOrt]

#end

##KopfSeite
CY=8
L=3,0;1,0;40,0;1,0;Arial,10,N;$[recEIG.Name1]
L=3,0;2,0;40,0;1,0;Arial,10,N;$[recEIG.Name2]
L=3,0;3,0;40,0;1,0;Arial,10,N;$[recEIG.Strasse]
L=3,0;4,0;40,0;1,0;Arial,10,N;Postfach $[recEIG.Postfach]
L=3,0;5,0;40,0;1,0;Arial,10,F;$[recEIG.PlzOrt]


#end

##KopfDetail
CY=3
L=0,0;0,4;100,0;1,0; ;\-
L=0,0;1,0;4,0;1,0;Arial,10,F;Pos.
R=3;1;11;1,0;Arial,10,F;Menge
L=15;1;4;1,0;Arial,10,F;ME
L=20,0;1,0;13,0;1,0;Arial,10,F;Leistungs-Nr.
R=33,0;1,0;12,0;1,0;Arial,10,F;EP
R=45,0;1,0;12,0;1,0;Arial,10,F;GP
R=57,0;1,0;7,0;1,0;Arial,10,F;Rab.
R=64,0;1,0;12,0;1,0;Arial,10,F;Rabatt
R=76,0;1,0;12,0;1,0;Arial,10,F;Lohnanteil
R=88,0;1,0;12,0;1,0;Arial,10,F;Gesamt $[cWKZ]
L= 0;1,6;100;1; ;\-

#end

##outLINE
* TODO: beschreiben Sie hier die Verwendung
CY=1
L= 0;0;100;1; ;\-

#end

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

L= 0,0;0,57;15,0;1,0;Arial, 8,N;$[recEIG.Bank1_Name]
L=15,0;0,57;18,0;1,0;Arial, 8,N;Konto: $[recEIG.Bank1_Kont]
L=33,0;0,57;15,0;1,0;Arial, 8,N;(BLZ $[recEIG.Bank1_BLZ])

L= 0,0;1,44;15,0;1,0;Arial, 8,N;$[recEIG.Bank2_Name]
L=15,0;1,44;18,0;1,0;Arial, 8,N;Konto: $[recEIG.Bank2_Kont]
L=33,0;1,44;15,0;1,0;Arial, 8,N;(BLZ $[recEIG.Bank2_BLZ])

L=82,0;0,57; 7,0;1,0;Arial, 8,N;Steuer-Nr.
R=88,0;0,57;12,0;1,0;Arial, 8,N;$[recSTEURNR.OptDataC]

L=82,0;1,44; 7,0;1,0;Arial, 8,N;USt-Ident
R=88,0;1,44;12,0;1,0;Arial, 8,N;$[recUSTIDNR.OptDataC]

L=48,0;0,57;34,0;1,0;Arial, 8,N;$[mDocName] Nr. $[mNo]

L=0;2,0;100;1; ;\-

#end

#subFill
* Unterprgramm von ReportMain
VAR mFillStart(d,8,2)
VAR mFillCY(d,8,2)
mFillStart= $[RandY] + ($[cyZeile] * $[Zeile])
mFillCY=$[cyZeile]

OUT RGBFILL $[RandX];$[mFillStart];$[SizeX];$[mFillCY];14211288
RETURN

#end

##outAdresse1
CY=7
L=3,0;0,0;40,0;1,0;Arial,10,N;$[adrZeile2]
L=3,0;1,0;40,0;1,0;Arial,10,N;$[adrZeile3]
L=3,0;2,0;40,0;1,0;Arial,10,N;$[adrZeile4]
L=3,0;3,0;40,0;1,0;Arial,10,N;$[adrZeile5]
L=3,0;4,0;40,0;1,0;Arial,10,N;$[adrStrasse]
L=3,0;6,0;40,0;1,0;Arial,10,F;$[adrPlzOrt]

#end

#subFmtAdr1
* Unterprgramm von ReportMain

:Test5
IFNOT EMPTY(adrZeile5)
  GOTO :Test4
adrZeile5=$[adrZeile4]
adrZeile4=$[adrZeile3]
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=
IFNOT EMPTY(adrZeile5)
  GOTO :Test4
adrZeile5=$[adrZeile4]
adrZeile4=$[adrZeile3]
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=
IFNOT EMPTY(adrZeile5)
  GOTO :Test4
adrZeile5=$[adrZeile4]
adrZeile4=$[adrZeile3]
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=
IFNOT EMPTY(adrZeile5)
  GOTO :Test4
adrZeile5=$[adrZeile4]
adrZeile4=$[adrZeile3]
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=

:Test4
IFNOT EMPTY(adrZeile4)
  GOTO :Test3
adrZeile4=$[adrZeile3]
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=
IFNOT EMPTY(adrZeile4)
  GOTO :Test3
adrZeile4=$[adrZeile3]
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=
IFNOT EMPTY(adrZeile4)
  GOTO :Test3
adrZeile4=$[adrZeile3]
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=

:Test3
IFNOT EMPTY(adrZeile3)
  GOTO :Test2
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=
IFNOT EMPTY(adrZeile3)
  GOTO :Test2
adrZeile3=$[adrZeile2]
adrZeile2=$[adrZeile1]
adrZeile1=

:Test2
IFNOT EMPTY(adrZeile2)
  GOTO :Test1
adrZeile2=$[adrZeile1]
adrZeile1=

:Test1
RETURN

#end

##outAbsender
* Ausgabe für ReportMain
CY=1
L=0,0;0,0;40,0;1,0;Arial, 8,KU;$[recEIG.Name1] * $[recEIG.Strasse] * $[recEIG.PlzOrt]

#end

##outMerkmale1
CY=7
L=56,0;1,5;44,0;1,0; ;\-
L=56,0;3,5;44,0;1,0; ;\-
L=56,0;0,7;44,0;1,0;Arial,14,F;$[mDocName]
L=56,0;2,0;11,0;1,0;Arial, 8,N;Datum
L=67,0;2,0;11,0;1,0;Arial, 8,N;Beleg-Nr.
R=89,0;2,0;11,0;1,0;Arial, 8,N;Kunden-Nr.
L=56,0;3,0;11,0;1,0;Arial,10,N;$[recINV.DateInvoic]
L=67,0;3,0;22,0;1,0;Arial,10,N;$[mNo]
R=90,0;3,0;10,0;1,0;Arial,10,N;$[recDEST.DESTDEBNR]
L=56,0;4,0;28,0;1,0;Arial, 8,N;$[mBetreff1]
L=56,0;5,0;28,0;1,0;Arial, 8,N;$[mBetreff2]
L=56,0;6,0;28,0;1,0;Arial, 8,N;$[mBetreff3]
L=85,0;4,0;8,0;1,0;Arial, 8,N;UZ
R=93,0;4,0;7,0;1,0;Arial, 8,N;$[recINV.UZ]
L=85,0;5,0;8,0;1,0;Arial, 8,N;Ausgeführt
R=93,0;5,0;7,0;1,0;Arial, 8,N;$[recINV.DateDone]
L=85,0;6,0;8,0;1,0;Arial, 8,N;Weiterleitung
R=93,0;6,0;7,0;1,0;Arial, 8,N;$[recINV.DateFwd]

#end

##outPgNo
* Ausgabe für ReportMain
CY=1
R=85,0;0,0;15,0;1,0;Arial, 8,N;Seite $[Seite]

#end

#subLOGO
VAR mLogoX2(N,5,0)
VAR mLogoY2(N,5,0)

mLogoX2=$[mLogoX] + $[mLogoCX]
mLogoY2=$[mLogoY] + $[mLogoCY]

OUT BITMAP $[mLogoX];$[mLogoY];$[mLogoX2];$[mLogoY2];$[recLOGO.OptDataC]
RETURN


#end

#loopOWNER
* Anschrift durch Eigentümeradresse ersetzen
adrZeile1=$[recOWNER.Name1]
adrZeile2=$[recOWNER.Name2]
adrZeile3=
adrZeile4=
adrZeile5=
adrStrasse=$[recOWNER.Street]
adrPlzOrt=$[recOWNER.Zip] $[recOWNER.City]

mAdr21=Auftraggeber:
mAdr22=$[recCOMPANY.Name1]
mAdr23=$[recCOMPANY.Name2]
mAdr24=$[recCOMPANY.Street]
mAdr25=$[recCOMPANY.Zip] $[recCOMPANY.City]

BREAK recOWNER

#end

#loopLOCAT
mBetreff2=$[recLOCAT.Street]
mBetreff3=$[recLOCAT.Zip] $[recLOCAT.City]
BREAK recLOCAT

#end

##outVortext
CY=1
L=0,0;0,0;100,0;1,0;Courier New,10,N;$[recVortext.Daten]

#end

#loopVortext
* Unterprogramm von ReportMain/subVORTEXT
* Datensatzschleife recVortext

SUB #CheckPage
OUT ##outVortext
IF BOOL($[recVortext.Abschluss])
  BREAK recVortext
RETURN

#end

#subVORTEXT
* Ausgabe der Vortexte

REC recVortext(LANGTEXTZEILEN,0,18)15IHTEXTRN$[recINV.TextRN>8]
LOOP recVortext(#loopVortext)

IF BOOL($[Zeile] >= ($[ZlMax] - 5))
   SUB #Fuss
ELSE
   OUT ##KopfDetail
RETURN

#end

##outPos
CY=1
L=0,0;0,0;3,0;1,0;Courier New,10,N;$[recPos.Pos]
R=3,0;0,0;11,0;1,0;Courier New,10,N;$[recPos.Quantity]
L=15,0;0,0;4,0;1,0;Courier New,10,N;$[recPos.Unit]
L=20,0;0,0;13,0;1,0;Courier New,10,N;$[recPos.TodoKey]
R=33,0;0,0;12,0;1,0;Courier New,10,N;$[recPos.Price]
R=45,0;0,0;12,0;1,0;Courier New,10,N;$[recPos.nettoGP]
R=57,0;0,0;7,0;1,0;Courier New,10,N;$[recPos.Discount]
R=64,0;0,0;12,0;1,0;Courier New,10,N;$[recPos.DscAmount]
R=76,0;0,0;12,0;1,0;Courier New,10,N;$[recPos.wagesAmoun]
R=88,0;0,0;12,0;1,0;Courier New,10,N;$[recPos.nettoBetra]

#end

##outPosText
* Ausgabe für ReportMain/loopPos/loopPosText
CY=1
L=20,0;0,0;80,0;1,0;Courier New,10,N;$[recPosText.Daten]

#end

#loopPosText
* Unterprogramm von ReportMain/loopPos
* Datensatzschleife recPosText
SUB #CheckPage
OUT ##outPosText
IF BOOL($[recPosText.Abschluss])
  BREAK recPosText


#end

#loopPos
* Unterprogramm von ReportMain
* Datensatzschleife Positionen

SUB #CheckPage
OUT ##outPos
REC recPosText(LANGTEXTZEILEN,0,16)15IPTEXT$[recPos.TextPos>8]
LOOP recPosText(#loopPosText)

RETURN

#end

##outSumm13B
* Ausgabe für ReportMain/subSumm13B
CY=5
L=20,0;0,0;44,0;1,0;Courier New,10,N;Nettosummen
R=76,0;0,0;12,0;1,0;Courier New,10,N;$[recINV.PosWages]
R=88,0;0,0;12,0;1,0;Courier New,10,N;$[recINV.PosNetto]

L=20,0;1,0;44,0;1,0;Courier New,10,N;Festpreisabkommen Abzug
R=88,0;1,0;12,0;1,0;Courier New,10,N;-$[recINV.fpaOff]
L=20,0;2,0;44,0;1,0;Courier New,10,N;Festpreisabkommen Zuschlag
R=88,0;2,0;12,0;1,0;Courier New,10,N;$[recINV.fpaPlus]

L=20,0;3,0;44,0;1,0;Courier New,10,N;Nettoabrechnung nach §13b UStG.
R=76,0;3,0;12,0;1,0;Courier New,10,N;$[mWagesNet]
R=88,0;3,0;12,0;1,0;Courier New,10,N;$[recINV.netAmount]

L=20,0;4,0;80,0;1,0;Courier New,10,N;Steuerpflichtig ist der Leistungsempfänger. 

#end

#subSumm13B
* Unterprgramm von ReportMain
VAR mWagesNet(N,10,2)
VAR mWagesUst(N,10,2)

mWagesNet=$[recINV.PosWages]
mWagesUst=0
mWagesBtr=$[mWagesNet] + $[mWagesUst]

IF BOOL($[Zeile] >= ($[ZlMax] - 13))
   SUB #Fuss
SUB #CheckPage

OUT ##outLINE
OUT ##outSumm13B
*OUT ##outLINE
*OUT ##outSummen
OUT ##outLINE
OUT ##outZahlung
OUT ##outLINE

RETURN

#end

##outSummenU
* Ausgabe für ReportMain/subSummUST
CY=5
L=20,0;0,0;44,0;1,0;Courier New,10,N;Nettosummen
R=76,0;0,0;12,0;1,0;Courier New,10,N;$[recINV.PosWages]
R=88,0;0,0;12,0;1,0;Courier New,10,N;$[recINV.PosNetto]

L=20,0;1,0;44,0;1,0;Courier New,10,N;Festpreisabkommen Abzug
R=88,0;1,0;12,0;1,0;Courier New,10,N;-$[recINV.fpaOff]
L=20,0;2,0;44,0;1,0;Courier New,10,N;Festpreisabkommen Zuschlag
R=88,0;2,0;12,0;1,0;Courier New,10,N;$[recINV.fpaPlus]

L=20,0;3,0;44,0;1,0;Courier New,10,N;Nettoabrechnungsbeträge
R=76,0;3,0;12,0;1,0;Courier New,10,N;$[mWagesNet]
R=88,0;3,0;12,0;1,0;Courier New,10,N;$[recINV.netAmount]

L=20,0;4,0;44,0;1,0;Courier New,10,N;Mehrwertsteuer
R=66,0;4,0;10,0;1,0;Courier New,10,N;$[recINV.VAT]%
R=76,0;4,0;12,0;1,0;Courier New,10,N;$[mWagesUst]
R=88,0;4,0;12,0;1,0;Courier New,10,N;$[recINV.vatAmount]



#end

#subSummUST
* Unterprgramm von ReportMain
VAR mWagesNet(N,10,2)
VAR mWagesUst(N,10,2)

mWagesNet=$[recINV.PosWages]
IF BOOL(($[mWagesNet]) > ($[recINV.netAmount]))
  mWagesNet=$[recINV.netAmount]
mWagesUst=($[mWagesNet] * $[recINV.VAT]) / 100
mWagesBtr=$[mWagesNet] + $[mWagesUst]

IF BOOL($[Zeile] >= ($[ZlMax] - 15))
   SUB #Fuss
SUB #CheckPage

OUT ##outLINE
OUT ##outSummenU
OUT ##outLINE
OUT ##outSummen
OUT ##outLINE
OUT ##outZahlung
OUT ##outLINE

RETURN


#end

##outSummen
* Ausgabe für ReportMain
CY=1
L=20,0;0,0;44,0;1,0;Courier New,10,N;Bruttoabrechnungsbeträge
R=76,0;0,0;12,0;1,0;Courier New,10,N;$[mWagesBtr]
R=88,0;0,0;12,0;1,0;Courier New,10,N;$[recINV.bshBrutto]

#end

##outZahlung
* Ausgabe für ReportMain
CY=5
L=20,0;0,0;44,0;1,0;Courier New,10,N;Bauabzugsteuer
R=88,0;0,0;12,0;1,0;Courier New,10,N;-$[recINV.taxDed48]
L=20,0;1,0;44,0;1,0;Courier New,10,N;Projektabzüge
R=88,0;1,0;12,0;1,0;Courier New,10,N;-$[recINV.PrjDedSum]
L=20,0;2,0;44,0;1,0;Courier New,10,N;Restbetrag (Skontobasis)
R=88,0;2,0;12,0;1,0;Courier New,10,N;$[recINV.bshSkBasis]
L=20,0;3,0;44,0;1,0;Courier New,10,N;Skontoabzugsbetrag
R=66,0;3,0;10,0;1,0;Courier New,10,N;$[recINV.Skonto]%
R=88,0;3,0;12,0;1,0;Courier New,10,N;-$[recINV.bshSkBetra]
L=20,0;4,0;44,0;1,0;Courier New,10,N;Bis zum $[recINV.Datetopay] fälliger Zahlbetrag
R=88,0;4,0;12,0;1,0;Courier New,10,N;$[recINV.bshZahlBtr]

#end

##outSachstand
CY=6
L=0,0;3,0;20,0;1,0;Courier New,10,N;Sachstand vom
L=20,0;3,0;20,0;1,0;Courier New,10,N;$[recINV.Modify]
L=0,0;4,0;20,0;1,0;Courier New,10,N;Datenabgleich am
L=20,0;4,0;20,0;1,0;Courier New,10,N;$[recINV.HostDate]
L=0,0;5,0;20,0;1,0;Courier New,10,N;Dieser Ausdruck
L=20,0;5,0;20,0;1,0;Courier New,10,N;$[Heute]
L=56,0;1,0;44,0;1,0;Arial,10,N;$[mAdr21]
L=56,0;2,0;44,0;1,0;Arial,10,N;$[mAdr22]
L=56,0;3,0;44,0;1,0;Arial,10,N;$[mAdr23]
L=56,0;4,0;44,0;1,0;Arial,10,N;$[mAdr24]
L=56,0;5,0;44,0;1,0;Arial,10,N;$[mAdr25]

#end

