braune Kekse
www.4AP.de - ABAP Syntaxbeispiele:
Beispielcoding: Braune Kekse: (kopieren erlaubt aber auf eigene Gefahr :-))
*&---------------------------------------------------------------------*
*& Report Z_BRAUNE_KEKSE *
*
* Coded by Thorsten Neubüser - 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:
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
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 '10'. " Spalte für Texte
*======================================================================*
* SELEKTIONSBILDSCHIRM *
*======================================================================*
selection-screen begin of block block_1.
parameters:
p_mehl like mehl, " Mehlmenge
p_gewsep as checkbox. " Gewürze separat ausweisen
selection-screen end of block block_1.
*======================================================================*
* Initialisierung *
*======================================================================*
initialization.
*======================================================================*
* Start-of-selection *
*======================================================================*
start-of-selection.
if p_mehl ne ''.
perform rezeptur_berechnen.
endif. " p_mehl ne ''
skip.
write: / '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 Anis!!!',
at /sp 'in eine Schüssel sieben.'.
if p_gewsep = 'X'.
* Detailausgabe
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: / 'Staezs Pfefferkuchengewürz [20g]',
/ 'EAN 4 008555 000007',
/ 'Gewürzmühle Nesse GmbH, Im Tweyad 1, 27612 Loxstedt-Nesse',
/ '+49 4744 - 9181 - 0',
/ 'mailto:service@nesse.de',
/ 'http://www.nesse.de/'.
*======================================================================*
* END-of-selection *
*======================================================================*
end-of-selection.
*=====================================================================*
* 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 *
* *
* `---´ *
* *
***************
