Appfield heading und Variablen [ERLEDIGT]

[Manfred]

Hi,

ich stehe mal wieder auf der Kante. Folgendes Scenario

Code: Alles auswählen

PRIVATE mNK_GRUPPE := oVtPara:NK_GRUPPE

APPFIELD (Alias())->GRUPPE    TYPE C  LEN 05  WIDTH 05  ALIGN right  READONLY HEADING "&mNK_GRUPPE." ALIGN right

Da mNk_Gruppe ja eigentlich der Wert von oVtPara:nk_gruppe ist, dachte ich mir das man das ja dann auch direkt als Heading Angabe machen kann. Es klappt aber nicht. Ich kriege dann immer nur oVtPara:nk_gruppe als Überschrift angezeigt und nicht den Inhalt. Ich habe m.E. alle Varianten ausprobiert, mit Makrooperator, ohne, mit Hochkomma und ohne. Es klappt nicht.

[georg]

Hallo, Manfred -


erzeuge doch mal eine .ppo-Datei (/p Parameter) und schau Dir an, was der Präprozessor aus dem Statement macht.

[Manfred]

Hi Georg,

damit kann ich auch nichts anfangen.

Code: Alles auswählen

appObject:fieldDef( {"GRUPPE","C",05,,(Alias()),{|| (Alias())->GRUPPE },IIf(.F.,.T.,.T.),05,,,,}, {,{52,2}}, {{50,"&mNK_GRUPPE."},{52,2}},  )

[georg]

Hallo, Manfred -


aus der Doku:

Syntax

APPFIELD <cFieldName> | <memvar> := <expression> ;
[ INTO <oApp> ] ;
[ TYPE <cType> ] ;
[ LEN <nLen> ] ;
[ DEC <nDec> ] ;
[ FONT <cFontCompoundName> ] ;
[ COLOR <nForeGround1> [, <nBackGround1>] ] ;
[ HILITE <nForeGround2> [, <nBackGround2>] ] ;
[ ALIGN LEFT | CENTER | RIGHT ] ;
[ WIDTH <nWidth> ] ;
[ READONLY ] ;
[ HEADING | CAPTION <cHeading> ;

Der Präprozessor erwartet einen String, daher schlagen auch alle Deine Versuche, ihm was anderes unterzujubeln, fehl.

Wenn Du das wirklich mit dieser PRIVATE Variablen machen willst, musst Du schon die Methode fieldDef manuell ausführen, dann kannst Du die Variable verwenden, weil Du ja dann den Code bestimmst:

Code: Alles auswählen

... {{50, mNK_GRUPPE},{52,2}}...

[Manfred]

Georg,

so wie das oben angegeben ist mit der Private Variablen klappt es ja. Ich verstehe nur nicht warum es nicht klappt, wenn ich die Ursprungsvariable eintrage.

[georg]

Hallo, Manfred -


jetzt hast Du mich verwirrt ...

Kannst Du mal mit der anderen Variante eine ppo-Datei erzeugen und den Code-Ausschnitt posten?

[Manfred]

es nutzt doch so nichts. Es wird nur der Text ausgetauscht. Ich weiß im Moment nicht, wie ich es richtig machen soll.

das ist das Original

Code: Alles auswählen

PRIVATE mNK_GRUPPE := oVtPara:NK_GRUPPE

APPFIELD (Alias())->GRUPPE    TYPE C  LEN 05  WIDTH 05  ALIGN right  READONLY HEADING "&mNK_GRUPPE." ALIGN right

und so dachte ich es mir

Code: Alles auswählen

PRIVATE mNK_GRUPPE := oVtPara:NK_GRUPPE

APPFIELD (Alias())->GRUPPE    TYPE C  LEN 05  WIDTH 05  ALIGN right  READONLY HEADING oVtPara:nk_gruppe ALIGN right

Aber es klappt nicht

so auch nicht

Code: Alles auswählen

PRIVATE mNK_GRUPPE := oVtPara:NK_GRUPPE

APPFIELD (Alias())->GRUPPE    TYPE C  LEN 05  WIDTH 05  ALIGN right  READONLY HEADING "oVtPara:nk_gruppe" ALIGN right

so auch nicht

Code: Alles auswählen

PRIVATE mNK_GRUPPE := oVtPara:NK_GRUPPE

APPFIELD (Alias())->GRUPPE    TYPE C  LEN 05  WIDTH 05  ALIGN right  READONLY HEADING &oVtPara:nk_gruppe ALIGN right

so auch nicht

Code: Alles auswählen

PRIVATE mNK_GRUPPE := oVtPara:NK_GRUPPE

APPFIELD (Alias())->GRUPPE    TYPE C  LEN 05  WIDTH 05  ALIGN right  READONLY HEADING "&oVtPara:nk_gruppe" ALIGN right

[Wolfgang Ciriack]

und &("oVtPara:nk_gruppe") ?

[georg]

Hallo, Manfred -


in Abwandlung von Wolfgang's Vorschlag:

&("oVtPara"):nk_gruppe

[Manfred]

Klappt beides nicht. Wolfgangs Lösung erscheint auch als reiner Text im Header und Georgs Lösung erzeugt eine Syntax Error Meldung beim Compilieren

[Manfred]

au man,

es muß so aussehen

Code: Alles auswählen

&(oVtPara:nk_gruppe)