Spalten bzw. Zeilenfarbe in Tbrowse [ERLEDIGT]

[messing]

Guten Tag,
Ich hab da ein kleines Problem, möchte in einer Tabelle Felder hervorheben, welche ein gewisses Datum erreichen, zwecks HU und AU und SP.

Habe folgende Zeilen

Code: Alles auswählen

tabelle2:=TbrowseDB(2,0,maxrow(),maxcol())
tabelle2:addColumn(TBColumnNew( "KFZART:", {|| kfzart } ))
tabelle2:addColumn(TBColumnNew( "Marke:", {|| marke } ))
tabelle2:addColumn(TBColumnNew( "Kennzeichen:", {|| kennz } ))
tabelle2:addColumn(TBColumnNew( "TUEV bis:", {|| tuev } ))
tabelle2:addColumn(TBColumnNew( "SP bis:", {|| sp_unt } ))
tabelle2:addColumn(TBColumnNew( "Fahrgestellnr.:", {|| kfz_ident } ))

möchte das die Zelle, bei TUEV und SP hervorgehoben wird, wenn noch ein Monat Zeit ist.
Die Felder TUEV und SP sind Datumsfelder.
Kann jemand helfen mit Hinweis, was wo passiert. Habe bis heute große Probleme mit den in der Hilfe befindlichen Anweisungen z.B. oTBColumn:colorBlock := {|n| IIf( n<0, {3,4}, {1,2} ) }
Was dort in den Klammern steht? { |n| für was dieses n? IIf( n<0, {3,4},{1,2} ) } und dann der Vergleich das dieses n kleiner als 0???.
Bitte nicht so umständlich, oder mit Hinweisen, damit ich endlich mal kapiere was in diesen Klammern überhaupt passiert.

Danke an alle.

Gruß Messing

[brandelh]

Hallo,

das n ist nur ein Beispiel für numerische Variablen die in der Spalte angezeigt werden, unter 0 die eine sonst die andere Farbkombination.
Bei dir wäre nValue ein Datum ...

Code: Alles auswählen

oTBColumn:colorBlock := {|dDatum| IIf( dDatum+30 > date() , {3,4}, {1,2} ) } // einfacher Vergleich mit fixen Tagen

wenn deine Bedingung komplexer ist, besser in eine eigene Funktion auslagern

Code: Alles auswählen

// Farbauswahl festlegen
oTBrowse:colorSpec := "w,n,w+,g,r" // ich hoffe mal dass ich das richtig in Erinnerung habe ;-)

oTBColumn:colorBlock := {|dDatum| DatumSpezialFarbe(dDatum) }

function  DatumSpezialFarbe(dDatum)
    local aColor
    IF ... hier kommt irgend eine sehr komplexe Abfrage mit .t. / .f. Ergebnis 
        aColor := {1,3}  // vordergrund Farbe 1, Hintergrund 3
    else
        aColor := {4,6}  // vordergrund Farbe 4, Hintergrund 6
    endif
return aColor

[messing]

Hallo,

das n ist nur ein Beispiel für numerische Variablen die in der Spalte angezeigt werden, unter 0 die eine sonst die andere Farbkombination.
Bei dir wäre nValue ein Datum ...

Code: Alles auswählen

oTBColumn:colorBlock := {|dDatum| IIf( dDatum+30 > date() , {3,4}, {1,2} ) } // einfacher Vergleich mit fixen Tagen

wenn deine Bedingung komplexer ist, besser in eine eigene Funktion auslagern

Code: Alles auswählen

// Farbauswahl festlegen
oTBrowse:colorSpec := "w,n,w+,g,r" // ich hoffe mal dass ich das richtig in Erinnerung habe ;-)

oTBColumn:colorBlock := {|dDatum| DatumSpezialFarbe(dDatum) }

function  DatumSpezialFarbe(dDatum)
    local aColor
    IF ... hier kommt irgend eine sehr komplexe Abfrage mit .t. / .f. Ergebnis 
        aColor := {1,3}  // vordergrund Farbe 1, Hintergrund 3
    else
        aColor := {4,6}  // vordergrund Farbe 4, Hintergrund 6
    endif
return aColor

Vielen Dank!
Greife nochmal auf diese Klammer zurück, {|dDatum| DatumSpezialFarbe(dDatum) }
was passiert im ersten Teil |dDatum| eigentlich, egal ob es ein Datum ist oder nicht, was passiert in diesen beiden Strichen?
Das Ende ist mir schon klar, da rufe ich eine Funktion auf mit Wertübergabe.
Ich hab das bis heut nicht reingekriegt ,
Gruß
Messing

[Martin Altmann]

Moin,
das ganze zwischen den {}-Klammern wird als Codeblock bezeichnet. Dieser erhält x Werte (mal 1, mal 2 oder auch 3), die in den || am Anfang stehen. Die dort genannten Namen sind einfach nur die Bezeichnungen der Parameter. Diese können innerhalb der {}-Klammern genutzt werden (z.B. als Übergabe an Funktionen).

Viele Grüße,
Martin

[brandelh]

ergänzend dazu ...

Code: Alles auswählen

::iVAR = "bitter"
{| a, b, c| MeineFunktion(a,b,c,::iVAR)}

a, b, c sind die Parameter, die der Codeblock vom aufrufenden Programm oder Control bekommt.
im Codeblock sind das LOCAL Variablen ! Siehe hierzu auch aEval()

::iVAR ist hier eine Instanzvariable vom aktuellen Fenster, die auch im Codeblock übernommen wird.
Diese ist NICHT LOCAL im Codeblock !!!
Und der Codeblock ist nicht innerhalb der Klasse, daher müsste hierfür die iVAR EXPORTED sein !

So hingegen wird die IVAR in einen lokalen Parameter umgewandelt:

Code: Alles auswählen

::iVAR = "bitter"
aEval({| a, b, c,d| MeineFunktion(a,b,c,d)}, p1,p2,self,::iVar 

a ist hier dann die KOPIE (also der Wert, nicht per Referenz) von p1
b " von p2
c " von SELF, also beinhaltet auch die neue Variable eine Referenz auf das aktuelle objekt
d " von ::iVar -> so kann man auch (lesend) auf eine protected iVar zugreifen.

[AUGE_OHR]

Code: Alles auswählen

oTBColumn:colorBlock := {|dDatum| IIf( dDatum+30 > date() , {3,4}, {1,2} ) } // einfacher Vergleich mit fixen Tagen

... was passiert im ersten Teil |dDatum| eigentlich, egal ob es ein Datum ist oder nicht, was passiert in diesen beiden Strichen?

die "Striche" nennt man "Pipes" und sind bei :colorBlock überflüssig.

Code: Alles auswählen

tabelle2:=TbrowseDB(2,0,maxrow(),maxcol())

da du wohl ein Hybrid Fenster verwendest : hast du noch INKEY() in deinem Sourcen ?

[messing]

Code: Alles auswählen

oTBColumn:colorBlock := {|dDatum| IIf( dDatum+30 > date() , {3,4}, {1,2} ) } // einfacher Vergleich mit fixen Tagen

... was passiert im ersten Teil |dDatum| eigentlich, egal ob es ein Datum ist oder nicht, was passiert in diesen beiden Strichen?

die "Striche" nennt man "Pipes" und sind bei :colorBlock überflüssig.

Code: Alles auswählen

tabelle2:=TbrowseDB(2,0,maxrow(),maxcol())

da du wohl ein Hybrid Fenster verwendest : hast du noch INKEY() in deinem Sourcen ?

Ja, habe INKEY() im Source.

Gruß
Messing
[erledigt]

[brandelh]

Code: Alles auswählen

oTBColumn:colorBlock := {|dDatum| IIf( dDatum+30 > date() , {3,4}, {1,2} ) } // einfacher Vergleich mit fixen Tagen

... was passiert im ersten Teil |dDatum| eigentlich, egal ob es ein Datum ist oder nicht, was passiert in diesen beiden Strichen?

die "Striche" nennt man "Pipes" und sind bei :colorBlock überflüssig.

Hallo Jimmy,

das stimmt nicht !

{|| } ist ein codeblock
{ } ohne die "Pipes" (?) Striche wird daraus ein Array !

oTB:colorBlock erwartet einen Codeblock, also müssen die Striche da rein
wenn ein Array erwartet wird, dürfen Sie nicht da rein ...

[AUGE_OHR]

das stimmt nicht !

{|| } ist ein codeblock
{ } ohne die "Pipes" (?) Striche wird daraus ein Array !

oTB:colorBlock erwartet einen Codeblock, also müssen die Striche da rein
wenn ein Array erwartet wird, dürfen Sie nicht da rein ...

klar hast du Recht, ich hab das falsch ausgedrückt.

Bei :colorBlock gibt es doch keinen Parameter, also muss nichts "zwischen" den Pipes stehen

Code: Alles auswählen

oCol:COLORBLOCK := { || IF( LIEFER->LIEFNR >= "99990", { 5, 2 }, { 1, 2 } ) }