braune Kekse
www.4AP.de - ABAP Syntaxbeispiele:
Beispielcoding: Braune Kekse: (kopieren erlaubt aber auf eigene Gefahr :-))
*&---------------------------------------------------------------------*
*& Report Z_BRAUNE_KEKSE *
*
* Coded by TN www.4ap.de
*
* Nach einem Originalrezept meiner Mama, die hat das von Ohse,
* die hat das von ...
* Meine Lieblingskekse, echt lecker.
*
* Das Programm läuft nur unter ABAP 7.0 :-))
*
*======================================================================*
report z_braune_kekse.
*======================================================================*
* TABELLEN- und DATENDEKLARATION *
*======================================================================*
data: " entspricht einfachem Rezept
sirup type p value '250',
zucker type p value '350',
butter type p value '450',
mehl type p value '750',
pfefferkuchengewuerz type p value '20' decimals 2,
rum type p value '10' decimals 2,
hirschhornsalz type p value '10' decimals 2,
gehackte_mandeln type p value '200',
halbe_mandeln type p value '50', " zum Verzieren
*das Staesz-Pferfferkuchengewürz besteht aus [die 2 g Anis sind
*weggelassen!]
pomeranzenschale type p value '5' decimals 2,
zitronenschale type p value '3' decimals 2,
zimt type p value '3' decimals 2,
nelken type p value '2' decimals 2,
ingwer type p value '2' decimals 2,
muskat type p value '2' decimals 2,
cardamon type p value '1' decimals 2,
* Hilfsvariablen
faktor type p decimals 2,
bleche type p value '4' decimals 2,
sp type i value '5'. " Spaltenmaß für Texte
*======================================================================*
* SELEKTIONSBILDSCHIRM *
*======================================================================*
selection-screen begin of block block_1.
parameters:
p_mehl like mehl DEFAULT '750', " Mehlmenge
p_gewsep as checkbox. " Gewürze separat ausweisen
selection-screen end of block block_1.
*======================================================================*
* Start-of-selection *
*======================================================================*
start-of-selection.
if p_mehl ne ''.
perform rezeptur_berechnen.
endif. " p_mehl ne ''
skip.
write: / 'Aus dem ', sy-sysid,
': Rezept für "Braune Pfefferkuchen-Plätzchen"',
/ 'Die gewählte Rezeptmenge ergibt ca. ',
bleche, ' Bleche.'.
uline.
write: / sirup, ' g ', ' dunklen Sirup',
/ zucker, ' g ', ' Zucker',
/ butter, ' g ', ' Butter',
at /sp 'erhitzen bis alles aufgelöst ist,',
at /sp 'danach mehrere Stunden abkühlen.'.
skip.
write: / mehl, ' g ', ' 405-er Mehl',
/ pfefferkuchengewuerz, ' g ',
' Staesz Pfefferkuchengewürz ohne Sternanis!!!',
at /sp 'in eine Schüssel sieben.'.
if p_gewsep = 'X'.
* Detailausgabe der Gewürzbestandteile
uline.
* skip.
write:
at /sp ' Bestandteile Pfefferkuchengewürz:',
at /sp ' Pomeranzenschale: ', pomeranzenschale, ' g ',
at /sp ' Zitronenschale: ', zitronenschale, ' g ',
at /sp ' Zimt: ', zimt, ' g ',
at /sp ' Nelken: ', nelken, ' g ',
at /sp ' Ingwer: ', ingwer, ' g ',
at /sp ' Muskat: ', muskat, ' g ',
at /sp ' Cardamon: ', cardamon, ' g '.
* skip.
uline.
endif. " p_gewsep = 'X'
skip.
write:
at /sp 'Die', hirschhornsalz, ' g ', ' Hirschhornsalz',
at /sp 'in ', rum, ' g ', ' Rum (oder Wasser) auflösen.'.
skip.
write:
at /sp 'Kaltes Sirup-Butter-Zucker-Gemisch zum Mehl geben,',
at /sp 'ebenso das Hirschhornsalz und',
/ gehackte_mandeln, ' g ', ' gehackte Mandeln.'.
skip.
write:
at /sp 'Alles gut mit den Knethaken der ',
'Küchenmaschine verkneten.',
at /sp 'Den Teigkloß 2-3 Tage abgedeckt kühl stellen.'.
skip.
write: / halbe_mandeln, ' g ',
' ganze Mandeln mit heißem Wasser überbrühen,',
at /sp 'die Haut abziehen und die Mandeln (längs) halbieren.'.
skip.
write:
at /sp 'Den Teig nicht zu dick ausrollen (ca. 2 mm), ausstechen',
at /sp 'und mit den halben Mandeln verzieren.',
at /sp 'Plätzchen 10-12 min bei 160 Grad Umluft backen.',
at /sp 'Achtung, beim ersten Blech unbedingt die Backzeit prüfen.'.
skip.
write:
at /sp 'Die Kekse unbedingt luftdicht + trocken lagern.'.
skip.
uline.
* skip.
write: / 'Staesz Pfefferkuchengewürz [20g]',
/ 'EAN 4 008555 000007',
/ 'FRUTAROM Savory Solutions GmbH',
/ 'Im Tweyad 1, D-27612 Loxstedt-Nesse',
/ 'www.gewuerzmuehlenesse.com', ' oder ', 'www.pikantum.de'.
*=====================================================================*
* ab hier nur noch
* FORM - ROUTINEN, Klassen und Module
*=====================================================================*
*&---------------------------------------------------------------------*
*& Form rezeptur_berechnen
*&---------------------------------------------------------------------*
form rezeptur_berechnen.
faktor = p_mehl / mehl.
bleche = bleche * faktor.
write: / 'Sie kalkulieren mit der ', faktor, ' fachen Rezeptmenge'.
* skip.
* Berechnen der Mengen:
sirup = sirup * faktor.
zucker = zucker * faktor.
butter = butter * faktor.
mehl = mehl * faktor.
pfefferkuchengewuerz = pfefferkuchengewuerz * faktor.
rum = rum * faktor.
hirschhornsalz = hirschhornsalz * faktor.
gehackte_mandeln = gehackte_mandeln * faktor.
halbe_mandeln = halbe_mandeln * faktor.
pomeranzenschale = pomeranzenschale * faktor.
zitronenschale = zitronenschale * faktor.
zimt = zimt * faktor.
nelken = nelken * faktor.
ingwer = ingwer * faktor.
muskat = muskat * faktor.
cardamon = cardamon * faktor.
endform. " rezeptur_berechnen
***************
* *
* T T *
* N *
* *
* `---´ *
* *
***************
