*Auskunftsbaltt
#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)

IFNOT ISVAR(FltKey)
  VAR FltKey(u,18,0)

REC recADR(EIGENE_ANSCHRIFTEN,0,2)01
REC recUPRJ(BELEGVERZEICHNIS,0,18)$[FltKey<18]
REC recMAIN(PROJEKTUEBERWACHUNG,0,8)$[recUPRJ.BELEGNR<8]

* Werte angeboten
VAR mEKA_Mat(d,8,2)
VAR mEKA_Lohn(d,8,2)
VAR mEKA_Fremd(d,8,2)
VAR mEKA_ges(d,8,2)
VAR mVKA_Mat(d,8,2)
VAR mVKA_Lohn(d,8,2)
VAR mVKA_Fremd(d,8,2)
VAR mVKA_ges(d,8,2)
VAR mZeitA(d,8,2)

* Werte berechnet
VAR mEKR_Mat(d,8,2)
VAR mEKR_Lohn(d,8,2)
VAR mEKR_Fremd(d,8,2)
VAR mEKR_ges(d,8,2)
VAR mVKR_Mat(d,8,2)
VAR mVKR_Lohn(d,8,2)
VAR mVKR_Fremd(d,8,2)
VAR mVKR_ges(d,8,2)
VAR mZeitR(d,8,2)

* Werte verbraucht
VAR mEKV_Mat(d,8,2)
VAR mEKV_Lohn(d,8,2)
VAR mEKV_Fremd(d,8,2)
VAR mEKV_ges(d,8,2)
VAR mZeitV(d,8,2)

* Variablen fuer Prozente
VAR mDif_Mat(d,8,2)
VAR mDif_Lohn(d,8,2)
VAR mDif_Fremd(d,8,2)
VAR mDif_ges(d,8,2)
VAR mDif_Zeit(d,8,2)
VAR mVH_Mat(d,8,2)
VAR mVH_Lohn(d,8,2)
VAR mVH_Fremd(d,8,2)
VAR mVH_ges(d,8,2)
VAR mVH_Zeit(d,8,2)

* Variablen fuer Kennziffern
VAR mAuf_Mat(d,8,2)
VAR mAuf_Lohn(d,8,2)
VAR mAuf_Fremd(d,8,2)
VAR mAuf_ges(d,8,2)

VAR mDB1S_Mat(d,8,2)
VAR mDB1S_Lohn(d,8,2)
VAR mDB1S_Fremd(d,8,2)
VAR mDB1S_ges(d,8,2)

* Code für den
* Berichtsablauf ein.

SUB #subPaperDefs
* TODO 
* fügen Sie hier eine Datensatzvariable
* mit dem Namen recMAIN ein.
* Diese Variable beinhaltet die Leittabelle.
*-----------------------------------------------------------------------------
* Vorbereiten der Ausgabe 
* Initialisierung der Drucksteuerdaten
OUT INITPAGESIZE
OUT STARTJOB $[RepTitel]
OUT TRANSPARENT
OUT STARTPAGE

LOOP recMAIN(#loopMAIN)

Zeile=0
OUT ##KopfBericht
OUT ##outVorlauf

* ==================================================
* Einkauf ausgeben
mDif_Mat=   $[mEKA_Mat]     - $[mEKV_Mat]
mDif_Lohn=  $[mEKA_Lohn]    - $[mEKV_Lohn]
mDif_Fremd= $[mEKA_Fremd]   - $[mEKV_Fremd]
mDif_ges=   $[mEKA_ges]     - $[mEKV_ges]
mDif_Zeit=  $[mZeitA]       - $[mZeitV]

IF BOOL(($[mEKA_Mat]) <> (0))
  mVH_Mat=   (100 * $[mEKV_Mat]) / $[mEKA_Mat]
ELSE
  mVH_Mat=100

IF BOOL(($[mEKA_Lohn]) <> (0))
  mVH_Lohn=   (100 * $[mEKV_Lohn]) / $[mEKA_Lohn]
ELSE
  mVH_Lohn=100

IF BOOL(($[mEKA_Fremd]) <> (0))
  mVH_Fremd=   (100 * $[mEKV_Fremd]) / $[mEKA_Fremd]
ELSE
  mVH_Fremd=100

IF BOOL(($[mEKA_ges]) <> (0))
  mVH_ges=   (100 * $[mEKV_ges]) / $[mEKA_ges]
ELSE
  mVH_ges=100

IF BOOL(($[mZeitA]) <> (0))
  mVH_Zeit=   (100 * $[mZeitV]) / $[mZeitA]
ELSE
  mVH_Zeit=100

OUT ##outAbstand
SUB #subFillHead
OUT ##outKopf_EK
OUT ##outDaten_EK

* ==================================================
* Verkauf ausgeben
mDif_Mat=   $[mVKR_Mat]     - $[mVKA_Mat]
mDif_Lohn=  $[mVKR_Lohn]    - $[mVKA_Lohn]
mDif_Fremd= $[mVKR_Fremd]   - $[mVKA_Fremd]
mDif_ges=   $[mVKR_ges]     - $[mVKA_ges]
mDif_Zeit=  $[mZeitR]       - $[mZeitA]

IF BOOL(($[mVKA_Mat]) <> (0))
  mVH_Mat=   (100 * $[mVKR_Mat]) / $[mVKA_Mat]
ELSE
  mVH_Mat=100

IF BOOL(($[mVKA_Lohn]) <> (0))
  mVH_Lohn=   (100 * $[mVKR_Lohn]) / $[mVKA_Lohn]
ELSE
  mVH_Lohn=100

IF BOOL(($[mVKA_Fremd]) <> (0))
  mVH_Fremd=   (100 * $[mVKR_Fremd]) / $[mVKA_Fremd]
ELSE
  mVH_Fremd=100

IF BOOL(($[mVKA_ges]) <> (0))
  mVH_ges=   (100 * $[mVKR_ges]) / $[mVKA_ges]
ELSE
  mVH_ges=100

IF BOOL(($[mZeitA]) <> (0))
  mVH_Zeit=   (100 * $[mZeitR]) / $[mZeitA]
ELSE
  mVH_Zeit=100

OUT ##outAbstand
SUB #subFillHead
OUT ##outKopf_VK
OUT ##outDaten_VK

* ==================================================
* Status ausgeben
mDif_Mat=   $[mVKA_Mat]     - $[mVKR_Mat]
mDif_Lohn=  $[mVKA_Lohn]    - $[mVKR_Lohn]
mDif_Fremd= $[mVKA_Fremd]   - $[mVKR_Fremd]
mDif_ges=   $[mVKA_ges]     - $[mVKR_ges]
mDif_Zeit=  $[mZeitA]       - $[mZeitR]

mVH_Mat=   $[mVKR_Mat]     - $[mEKV_Mat]
mVH_Lohn=  $[mVKR_Lohn]    - $[mEKV_Lohn]
mVH_Fremd= $[mVKR_Fremd]   - $[mEKV_Fremd]
mVH_ges=   $[mVKR_ges]     - $[mEKV_ges]
mVH_Zeit=  $[mZeitR]       - $[mZeitV]

OUT ##outAbstand
SUB #subFillHead
OUT ##outKopf_ST
OUT ##outDaten_ST

* ==================================================
* Kennziffern ausgeben

* DB1 ausrechnen
mDif_Mat=   $[mVKR_Mat]     - $[mEKV_Mat]
mDif_Lohn=  $[mVKR_Lohn]    - $[mEKV_Lohn]
mDif_Fremd= $[mVKR_Fremd]   - $[mEKV_Fremd]
mDif_ges=   $[mVKR_ges]     - $[mEKV_ges]

* DB1 % ausrechnen
IF BOOL(($[mVKR_Mat]) <> (0))
  mVH_Mat=   (100 * $[mDif_Mat]) / $[mVKR_Mat]
ELSE
  mVH_Mat=0

IF BOOL(($[mVKR_Lohn]) <> (0))
  mVH_Lohn=   (100 * $[mDif_Lohn]) / $[mVKR_Lohn]
ELSE
  mVH_Lohn=0

IF BOOL(($[mVKR_Fremd]) <> (0))
  mVH_Fremd=   (100 * $[mDif_Fremd]) / $[mVKR_Fremd]
ELSE
  mVH_Fremd=0

IF BOOL(($[mVKR_ges]) <> (0))
  mVH_ges=   (100 * $[mDif_ges]) / $[mVKR_ges]
ELSE
  mVH_ges=0

* Aufschlagsprozente % ausrechnen
IF BOOL(($[mEKV_Mat]) <> (0))
  mAuf_Mat=   (100 * $[mDif_Mat]) / $[mEKV_Mat]
ELSE
  mAuf_Mat=100

IF BOOL(($[mEKV_Lohn]) <> (0))
  mAuf_Lohn=   (100 * $[mDif_Lohn]) / $[mEKV_Lohn]
ELSE
  mAuf_Lohn=100

IF BOOL(($[mEKV_Fremd]) <> (0))
  mAuf_Fremd=   (100 * $[mDif_Fremd]) / $[mEKV_Fremd]
ELSE
  mAuf_Fremd=100

IF BOOL(($[mEKV_ges]) <> (0))
  mAuf_ges=   (100 * $[mDif_ges]) / $[mEKV_ges]
ELSE
  mAuf_ges=100

* DB1 je Stunde berechnen
mDB1S_Mat=   0
mDB1S_Lohn=  0
mDB1S_Fremd= 0
mDB1S_ges=   0

IF BOOL(($[mZeitV]) = (0))
  GOTO :KeineZeit

mDB1S_Mat=   $[mDif_Mat]   / $[mZeitV]
mDB1S_Lohn=  $[mDif_Lohn]  / $[mZeitV]
mDB1S_Fremd= $[mDif_Fremd] / $[mZeitV]
mDB1S_ges=   $[mDif_ges]   / $[mZeitV]

:KeineZeit

OUT ##outAbstand
SUB #subFillHead
OUT ##outKopf_KZ
OUT ##outDaten_KZ

OUT ##FussBericht
OUT ##outPost
OUT ENDPAGE
OUT ENDJOB


**


#end

##KopfBericht
CY=4
L=0;0;50;1;Times New Roman,10,N;$[recADR.NAME1] $[recADR.NAME2]
L=0;1;50;1;Times New Roman,10,N;$[recADR.STRASSE]
L=0,0;2,0;50,0;1,0;Times New Roman,10,N;$[recADR.PLZORT]
R=50,0;0,0;50,0;1,0;Times New Roman,10,F;$[RepTitel]
R=85;1;15;1;Times New Roman,10,N;$[Heute]
R=85;2;15;1;Times New Roman,10,N;Seite -$[Seite]-
L=0,0;3,0;100,0;1,0; ;\-

#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=6

RepTitel=Auskunftsblatt Nr. $[recUPRJ.BELEGNR]
Heute=H
RandX=      1,80
RandY=      0,80
SizeX=      17,0
Seite=      1
Zeile=      0
cyZeile=    2.54/$[mLPI]
ZlMax=     (26.5/$[cyZeile]) - 5

RETURN

#end

##outVorlauf
CY=6
L=0,0;1,0;10,0;1,0;Arial,10,F;Projekt
L=0,0;2,0;10,0;1,0;Arial,10,F;Kunden-Nr.
L=0,0;3,0;10,0;1,0;Arial,10,F;Kunde
L=0,0;4,0;10,0;1,0;Arial,10,F;Vorhaben
L=0,0;5,0;10,0;1,0;Arial,10,F;Betreff
L=10,0;1,0;1,0;1,0;Arial,10,F;:
L=10,0;2,0;1,0;1,0;Arial,10,F;:
L=10,0;3,0;1,0;1,0;Arial,10,F;:
L=10,0;4,0;1,0;1,0;Arial,10,F;:
L=10,0;5,0;1,0;1,0;Arial,10,F;:
L=12,0;1,0;15,0;1,0;Arial,10,N;$[recUPRJ.PRJNR]
L=12,0;2,0;15,0;1,0;Arial,10,N;$[recUPRJ.KDNR]
L=12,0;3,0;40,0;1,0;Arial,10,N;$[recUPRJ.NAME1]
L=12,0;4,0;15,0;1,0;Arial,10,N;$[recUPRJ.VORHABEN]
L=12,0;5,0;88,0;1,0;Arial,10,N;$[recUPRJ.BETREFF1] $[recUPRJ.BETREFF2] $[recUPRJ.BETREFF3]

#end

##outAbstand
* Ausgabe für ReportMain
CY=2

#end

##outKopf_EK
CY=3
L=0,0;0,0;100,0;1,0; ;\-
L=0,0;2,0;100,0;1,0; ;\-
L=0,0;1,0;20,0;1,0;Arial,10,F;Einkauf
R=20,0;1,0;20,0;1,0;Arial,10,F;angeboten €
R=40,0;1,0;20,0;1,0;Arial,10,F;verbraucht €
R=60,0;1,0;20,0;1,0;Arial,10,F;Differenz €
R=80,0;1,0;20,0;1,0;Arial,10,F;verbraucht %

#end

##outDaten_EK
CY=7
L=0,0;3,0;100,0;1,0; ;\-
L=0,0;5,0;100,0;1,0; ;\-

L=0,0;0,0;20,0;1,0;Arial,10,N;Material
L=0,0;1,0;20,0;1,0;Arial,10,N;Lohn
L=0,0;2,0;20,0;1,0;Arial,10,N;Fremdleistung
L=0,0;4,0;20,0;1,0;Arial,10,N;Summe
L=0,0;6,0;20,0;1,0;Arial,10,N;Zeit in Std.

R=20,0;0,0;20,0;1,0;Arial,10,N;$[mEKA_Mat]
R=20,0;1,0;20,0;1,0;Arial,10,N;$[mEKA_Lohn]
R=20,0;2,0;20,0;1,0;Arial,10,N;$[mEKA_Fremd]
R=20,0;4,0;20,0;1,0;Arial,10,N;$[mEKA_ges]
R=20,0;6,0;20,0;1,0;Arial,10,N;$[mZeitA]

R=40,0;0,0;20,0;1,0;Arial,10,N;$[mEKV_Mat]
R=40,0;1,0;20,0;1,0;Arial,10,N;$[mEKV_Lohn]
R=40,0;2,0;20,0;1,0;Arial,10,N;$[mEKV_Fremd]
R=40,0;4,0;20,0;1,0;Arial,10,N;$[mEKV_ges]
R=40,0;6,0;20,0;1,0;Arial,10,N;$[mZeitV]

R=60,0;0,0;20,0;1,0;Arial,10,N;$[mDif_Mat]
R=60,0;1,0;20,0;1,0;Arial,10,N;$[mDif_Lohn]
R=60,0;2,0;20,0;1,0;Arial,10,N;$[mDif_Fremd]
R=60,0;4,0;20,0;1,0;Arial,10,N;$[mDif_ges]
R=60,0;6,0;20,0;1,0;Arial,10,N;$[mDif_Zeit]

R=80,0;0,0;20,0;1,0;Arial,10,N;$[mVH_Mat]
R=80,0;1,0;20,0;1,0;Arial,10,N;$[mVH_Lohn]
R=80,0;2,0;20,0;1,0;Arial,10,N;$[mVH_Fremd]
R=80,0;4,0;20,0;1,0;Arial,10,N;$[mVH_ges]
R=80,0;6,0;20,0;1,0;Arial,10,N;$[mVH_Zeit]

#end

##outKopf_VK
* Ausgabe für ReportMain
CY=3
L=0,0;0,0;100,0;1,0; ;\-
L=0,0;2,0;100,0;1,0; ;\-
L=0,0;1,0;20,0;1,0;Arial,10,F;Verkauf
R=20,0;1,0;20,0;1,0;Arial,10,F;angeboten €
R=40,0;1,0;20,0;1,0;Arial,10,F;berechnet €
R=60,0;1,0;20,0;1,0;Arial,10,F;Differenz €
R=80,0;1,0;20,0;1,0;Arial,10,F;berechnet %

#end

##outDaten_VK
CY=7
L=0,0;3,0;100,0;1,0; ;\-
L=0,0;5,0;100,0;1,0; ;\-
L=0,0;0,0;20,0;1,0;Arial,10,N;Material
L=0,0;1,0;20,0;1,0;Arial,10,N;Lohn
L=0,0;2,0;20,0;1,0;Arial,10,N;Fremdleistung
L=0,0;4,0;20,0;1,0;Arial,10,N;Summe
L=0,0;6,0;20,0;1,0;Arial,10,N;Zeit in Std.

R=20,0;0,0;20,0;1,0;Arial,10,N;$[mVKA_Mat]
R=20,0;1,0;20,0;1,0;Arial,10,N;$[mVKA_Lohn]
R=20,0;2,0;20,0;1,0;Arial,10,N;$[mVKA_Fremd]
R=20,0;4,0;20,0;1,0;Arial,10,N;$[mVKA_ges]
R=20,0;6,0;20,0;1,0;Arial,10,N;$[mZeitA]

R=40,0;0,0;20,0;1,0;Arial,10,N;$[mVKR_Mat]
R=40,0;1,0;20,0;1,0;Arial,10,N;$[mVKR_Lohn]
R=40,0;2,0;20,0;1,0;Arial,10,N;$[mVKR_Fremd]
R=40,0;4,0;20,0;1,0;Arial,10,N;$[mVKR_ges]
R=40,0;6,0;20,0;1,0;Arial,10,N;$[mZeitR]

R=60,0;0,0;20,0;1,0;Arial,10,N;$[mDif_Mat]
R=60,0;1,0;20,0;1,0;Arial,10,N;$[mDif_Lohn]
R=60,0;2,0;20,0;1,0;Arial,10,N;$[mDif_Fremd]
R=60,0;4,0;20,0;1,0;Arial,10,N;$[mDif_ges]
R=60,0;6,0;20,0;1,0;Arial,10,N;$[mDif_Zeit]

R=80,0;0,0;20,0;1,0;Arial,10,N;$[mVH_Mat]
R=80,0;1,0;20,0;1,0;Arial,10,N;$[mVH_Lohn]
R=80,0;2,0;20,0;1,0;Arial,10,N;$[mVH_Fremd]
R=80,0;4,0;20,0;1,0;Arial,10,N;$[mVH_ges]
R=80,0;6,0;20,0;1,0;Arial,10,N;$[mVH_Zeit]

#end

##outKopf_ST
* Ausgabe für ReportMain
CY=3
L=0,0;0,0;100,0;1,0; ;\-
L=0,0;2,0;100,0;1,0; ;\-
L=0,0;1,0;20,0;1,0;Arial,10,F;Status
R=20,0;1,0;20,0;1,0;Arial,10,F;berechnet €
R=40,0;1,0;20,0;1,0;Arial,10,F;verbraucht €
R=60,0;1,0;20,0;1,0;Arial,10,F;offen €
R=80,0;1,0;20,0;1,0;Arial,10,F;akt. DB €

#end

##outDaten_ST
* Ausgabe für ReportMain
CY=7
L=0,0;3,0;100,0;1,0; ;\-
L=0,0;5,0;100,0;1,0; ;\-
L=0,0;0,0;20,0;1,0;Arial,10,N;Material
L=0,0;1,0;20,0;1,0;Arial,10,N;Lohn
L=0,0;2,0;20,0;1,0;Arial,10,N;Fremdleistung
L=0,0;4,0;20,0;1,0;Arial,10,N;Summe
L=0,0;6,0;20,0;1,0;Arial,10,N;Zeit in Std.

R=20,0;0,0;20,0;1,0;Arial,10,N;$[mVKR_Mat]
R=20,0;1,0;20,0;1,0;Arial,10,N;$[mVKR_Lohn]
R=20,0;2,0;20,0;1,0;Arial,10,N;$[mVKR_Fremd]
R=20,0;4,0;20,0;1,0;Arial,10,N;$[mVKR_ges]
R=20,0;6,0;20,0;1,0;Arial,10,N;$[mZeitR]

R=40,0;0,0;20,0;1,0;Arial,10,N;$[mEKV_Mat]
R=40,0;1,0;20,0;1,0;Arial,10,N;$[mEKV_Lohn]
R=40,0;2,0;20,0;1,0;Arial,10,N;$[mEKV_Fremd]
R=40,0;4,0;20,0;1,0;Arial,10,N;$[mEKV_ges]
R=40,0;6,0;20,0;1,0;Arial,10,N;$[mZeitV]

R=60,0;0,0;20,0;1,0;Arial,10,N;$[mDif_Mat]
R=60,0;1,0;20,0;1,0;Arial,10,N;$[mDif_Lohn]
R=60,0;2,0;20,0;1,0;Arial,10,N;$[mDif_Fremd]
R=60,0;4,0;20,0;1,0;Arial,10,N;$[mDif_ges]
R=60,0;6,0;20,0;1,0;Arial,10,N;$[mDif_Zeit]

R=80,0;0,0;20,0;1,0;Arial,10,N;$[mVH_Mat]
R=80,0;1,0;20,0;1,0;Arial,10,N;$[mVH_Lohn]
R=80,0;2,0;20,0;1,0;Arial,10,N;$[mVH_Fremd]
R=80,0;4,0;20,0;1,0;Arial,10,N;$[mVH_ges]
R=80,0;6,0;20,0;1,0;Arial,10,N;$[mVH_Zeit]

#end

##outKopf_KZ
CY=3
L=0,0;0,0;100,0;1,0; ;\-
L=0,0;2,0;100,0;1,0; ;\-
L=0,0;1,0;20,0;1,0;Arial,10,F;Kennziffern
R=20,0;1,0;20,0;1,0;Arial,10,F;DB1 €
R=40,0;1,0;20,0;1,0;Arial,10,F;DB1 %
R=60,0;1,0;20,0;1,0;Arial,10,F;Aufschlag %
R=80,0;1,0;20,0;1,0;Arial,10,F;DB1 € je Std.

#end

##outDaten_KZ
CY=7
L=0,0;5,0;100,0;1,0; ;\-
L=0,0;3,0;100,0;1,0; ;\-
L=0,0;0,0;20,0;1,0;Arial,10,N;Material
L=0,0;1,0;20,0;1,0;Arial,10,N;Lohn
L=0,0;2,0;20,0;1,0;Arial,10,N;Fremdleistung
L=0,0;4,0;20,0;1,0;Arial,10,N;Summe

R=20,0;0,0;20,0;1,0;Arial,10,N;$[mDif_Mat]
R=20,0;1,0;20,0;1,0;Arial,10,N;$[mDif_Lohn]
R=20,0;2,0;20,0;1,0;Arial,10,N;$[mDif_Fremd]
R=20,0;4,0;20,0;1,0;Arial,10,N;$[mDif_ges]

R=40,0;0,0;20,0;1,0;Arial,10,N;$[mVH_Mat]
R=40,0;1,0;20,0;1,0;Arial,10,N;$[mVH_Lohn]
R=40,0;2,0;20,0;1,0;Arial,10,N;$[mVH_Fremd]
R=40,0;4,0;20,0;1,0;Arial,10,N;$[mVH_ges]

R=60,0;0,0;20,0;1,0;Arial,10,N;$[mAuf_Mat]
R=60,0;1,0;20,0;1,0;Arial,10,N;$[mAuf_Lohn]
R=60,0;2,0;20,0;1,0;Arial,10,N;$[mAuf_Fremd]
R=60,0;4,0;20,0;1,0;Arial,10,N;$[mAuf_ges]

R=80,0;0,0;20,0;1,0;Arial,10,N;$[mDB1S_Mat]
R=80,0;1,0;20,0;1,0;Arial,10,N;$[mDB1S_Lohn]
R=80,0;2,0;20,0;1,0;Arial,10,N;$[mDB1S_Fremd]
R=80,0;4,0;20,0;1,0;Arial,10,N;$[mDB1S_ges]

L=0,0;6,0;50,0;1,0;Arial, 8,N;Stand der Erfassung vom $[Heute]
R=50,0;6,0;50,0;1,0;Arial,10,N;berücksichtigte verbrauchte Stunden $[mZeitV]

#end

#subFillHead
VAR mFillStart(d,8,2)
VAR mFillCY(d,8,2)
mFillStart= $[RandY] + ($[cyZeile] * $[Zeile]) + ($[cyZeile] * 0,6)
mFillCY=$[cyZeile] * 1,8

OUT RGBFILL $[RandX];$[mFillStart];$[SizeX];$[mFillCY];15263976

#end

#loopAngeboten
* Unterprogramm von ReportMain/loopMAIN
* Datensatzschleife recPOS nur Summenzeile beachten
IF BOOL(($[recPOS.SatzArt]) <> (1))
  RETURN

mEKA_Mat=  $[mEKA_Mat]   + (($[recPOS.EkMat] - $[recPOS.EkFremd]) / $[mKurs])
mEKA_Lohn= $[mEKA_Lohn]  + (($[recPOS.EkLohn]) / $[mKurs])
mEKA_Fremd=$[mEKA_Fremd] + (($[recPOS.EkFremd]) / $[mKurs])
mVKA_Mat=  $[mVKA_Mat]   + (($[recPOS.VkMat] - $[recPOS.VkFremd]) / $[mKurs])
mVKA_Lohn= $[mVKA_Lohn]  + (($[recPOS.VkLohn]) / $[mKurs])
mVKA_Fremd=$[mVKA_Fremd] + (($[recPOS.VkFremd]) / $[mKurs])
mZeitA=    $[mZeitA]     +  ($[recPOS.Zeit] / 60)

mEKA_ges=  $[mEKA_Mat] + $[mEKA_Lohn] + $[mEKA_Fremd]
mVKA_ges=  $[mVKA_Mat] + $[mVKA_Lohn] + $[mVKA_Fremd]

BREAK recPOS


#end

#loopRechnung
* Unterprogramm von ReportMain/loopMAIN
* Datensatzschleife recPOS nur Summenzeile beachten
IF BOOL(($[recPOS.SatzArt]) <> (1))
  RETURN

mEKR_Mat=  $[mEKR_Mat]   + (($[recPOS.EkMat] - $[recPOS.EkFremd]) / $[mKurs])
mEKR_Lohn= $[mEKR_Lohn]  + (($[recPOS.EkLohn]) / $[mKurs])
mEKR_Fremd=$[mEKR_Fremd] + (($[recPOS.EkFremd]) / $[mKurs])
mVKR_Mat=  $[mVKR_Mat]   + (($[recPOS.VkMat] - $[recPOS.VkFremd]) / $[mKurs])
mVKR_Lohn= $[mVKR_Lohn]  + (($[recPOS.VkLohn]) / $[mKurs])
mVKR_Fremd=$[mVKR_Fremd] + (($[recPOS.VkFremd]) / $[mKurs])
mZeitR=    $[mZeitR]     +  ($[recPOS.Zeit] / 60)

mEKR_ges=  $[mEKR_Mat] + $[mEKR_Lohn] + $[mEKR_Fremd]
mVKR_ges=  $[mVKR_Mat] + $[mVKR_Lohn] + $[mVKR_Fremd]

BREAK recPOS

#end

#loopGutschr
* Unterprogramm von ReportMain/loopMAIN
* Datensatzschleife recPOS nur Summenzeile beachten
IF BOOL(($[recPOS.SatzArt]) <> (1))
  RETURN

mEKR_Mat=  $[mEKR_Mat]   - (($[recPOS.EkMat] - $[recPOS.EkFremd]) / $[mKurs])
mEKR_Lohn= $[mEKR_Lohn]  - (($[recPOS.EkLohn]) / $[mKurs])
mEKR_Fremd=$[mEKR_Fremd] - (($[recPOS.EkFremd]) / $[mKurs])
mVKR_Mat=  $[mVKR_Mat]   - (($[recPOS.VkMat] - $[recPOS.VkFremd]) / $[mKurs])
mVKR_Lohn= $[mVKR_Lohn]  - (($[recPOS.VkLohn]) / $[mKurs])
mVKR_Fremd=$[mVKR_Fremd] - (($[recPOS.VkFremd]) / $[mKurs])
mZeitR=    $[mZeitR]     -  ($[recPOS.Zeit] / 60)

mEKR_ges=  $[mEKR_Mat] + $[mEKR_Lohn] + $[mEKR_Fremd]
mVKR_ges=  $[mVKR_Mat] + $[mVKR_Lohn] + $[mVKR_Fremd]

BREAK recPOS

#end

#loopVerbrM
* Unterprogramm von ReportMain/loopMAIN
* Datensatzschleife recPOS nur Summenzeile beachten
IF BOOL(($[recPOS.SatzArt]) <> (1))
  RETURN

mEKV_Mat=  $[mEKV_Mat]   + (($[recPOS.EkMat] - $[recPOS.EkFremd]) / $[mKurs])
mEKV_Fremd=$[mEKV_Fremd] + (($[recPOS.EkFremd]) / $[mKurs])

mEKV_ges=  $[mEKV_Mat] + $[mEKV_Lohn] + $[mEKV_Fremd]

BREAK recPOS

#end

#loopZeit
* Unterprgramm von ReportMain/loopMAIN
* Datensatzschleife recZEIT
REC recLOA(LOHNARTEN,0,3)$[recZEIT.lohnart<3]
VAR mLohn(d,8,2)

*==== Lohnart gehoert nicht zu Sollstunden
IF BOOL(($[recLOA.bsoll]) <> (1))
  GOTO :EndZeit

mZeitV=  $[mZeitV] + $[recZEIT.stunden]
:EndZeit
*=========================================

mLohn= ($[recZEIT.eklohn] * $[recLOA.ekfaktor] * $[recZEIT.stunden]) + $[recZEIT.betrag]
IF BOOL(($[recZEIT.eurokurs]) <> (0))
  mLohn= $[mLohn] / $[recZEIT.eurokurs]

mEKV_Lohn= $[mEKV_Lohn] + $[mLohn]
mEKV_ges=  $[mEKV_Mat]  + $[mEKV_Lohn] + $[mEKV_Fremd]

RETURN

#end

#loopMAIN
* Unterprogramm von ReportMain
* Datensatzschleife recMAIN
* beinhaltet die Belegverweise

REC recBELEG(BELEGVERZEICHNIS,0,18)$[recMAIN.Projekt<8]$[recMAIN.Belart<2]$[recMAIN.Belnr<8]
REC recPOS(BELEGPOSITIONEN,0,18)$[recMAIN.Projekt<8]$[recMAIN.Belart<2]$[recMAIN.Belnr<8]
REC recZEIT(ZEITERFASSUNG,1,10)$[recMAIN.Belart<2]$[recMAIN.Belnr<8]
VAR mKurs(d,8,6)

mKurs=$[recBELEG.KURSZUEURO]
IF BOOL(($[mKurs]) = (0))
  mKurs=1

IF CMP(recBELEG.BELEGART,=) 0
   LOOP recPOS(#loopAngeboten)
IF CMP(recBELEG.BELEGART,=) 7
   LOOP recPOS(#loopAngeboten)
IF CMP(recBELEG.BELEGART,=) 8
   LOOP recPOS(#loopAngeboten)

IF CMP(recBELEG.BELEGART,=) 1
   LOOP recPOS(#loopRechnung)
IF CMP(recBELEG.BELEGART,=) 3
   LOOP recPOS(#loopRechnung)
IF CMP(recBELEG.BELEGART,=) 4
   LOOP recPOS(#loopRechnung)

IF CMP(recBELEG.BELEGART,=) 2
   LOOP recPOS(#loopGutschr)

IF CMP(recBELEG.BELEGART,=) 5
   LOOP recPOS(#loopVerbrM)
IF CMP(recBELEG.BELEGART,=) 6
   LOOP recPOS(#loopVerbrM)
IF CMP(recBELEG.BELEGART,=) 9
   LOOP recPOS(#loopVerbrM)

LOOP recZEIT(#loopZeit)

RETURN

#end

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

#end

