Frage zum Alias [Erledigt]

[Jan]

Hallo,

normalerweise setze ich DbXXX-Funktionen immer so ein: adressen->(DbSeek(....)). Wenn ich aber die Standard-Funktionen erweitern möchte - wie mache ich das dann mit einer eigenen Db-Funktion? Also z. B. adressen->(MyDbSeek(...))? Wie bekomme ich den angegebenen Alias in meine Funktion rein? Kann ich den vorgestellten Alias irgendwie abfragen? Oder rmuß ich den besser als zusätzlichen Parameter mit übergeben?

Jan

[brandelh]

probiert habe ich es nicht, aber es müsste so sein, dass in deiner Funktion dann der richtige Selectbereich / Alias angesprochen wird.
Versuche es einfach aus:

Code: Alles auswählen

use db1 alias DB1 NEW
use db2 alias DB2 NEW
? MyFunc() // sollte DB2 sein
? DB1->(MyFunc()) // sollte DB1 sein

function MyFunc()
return alias()

[georg]

Hallo, Jan -


ich verstehe die Schreibweise alias->(Funktion()) so, dass die Funktion ausgeführt wird, und dabei der aktuelle Select()-Bereich (z.B. "Kunden") mit dem Alias "überschrieben" wird, der angegeben ist (z.B. "Artikel"). Das funktioniert auch mit anderen Funktionen, d.h. Huberts Beispiel zeigt es recht gut.

Um den Alias-Namen zu erfahren, führst Du einfach die alias()-Funktion aus.

Ich habe eine DBF-Klasse, in der ich in den Methoden mit (::alias)->(irgendwas()) operiere.

[brandelh]

Es ist so wie ich dachte, etwas ausführlicheres Testprogramm:

Code: Alles auswählen

procedure main
   set alternate to test.txt
   set alternate on
   use db1 alias DB1 NEW
   use db2 alias DB2 NEW
   ? "1. direkt",alias(),select()
   MyFunc() // sollte DB2 sein
   ? "2. direkt",alias(),select()
   DB1->(MyFunc()) // sollte DB1 sein
   inkey(10)
return

function MyFunc()
   ? alias(),select()
return alias()

Ergebnis:

Code: Alles auswählen

1. direkt DB2          2
DB2          2
2. direkt DB2          2
DB1          1

[Jan]

Hallo Hubert,

da bist Du mir mit Deinem Testergebnis zuvor gekommen. Vielen Dank für die Arbeit.

Das macht die Arbeit mit erweiterten DbXXX()-Funktionen natürlich wesentlich einfacher.

Jan