OrdCreate nach Feld über Relation

[rschi]

Hallo zusammen

Gibt es eine Möglichkeit, eine Tabelle nach einem Feld aus einer andere Tabelle (via Relation) zu sortieren?

Zum Beispiel habe ich eine Tabelle AUFT mit Aufträgen. Darin habe ich unter anderem ein Feld KUNDE, mit der Kunden-Nummer.
Dann habe ich eine Tabelle KUNDEN, mit der Kunden-Nummer, und dem Namen.

Nun möchte ich die Tabelle AUFT nach dem Namen der Kunden sortieren.

Ist das möglich?
Hat mir jemand eine Idee?

Gruss
Robin

[Dieter]

Hallo Robin,

du brauchst in der Tabelle AUFT ein zusätzliches Feld in der die Sortierreihenfolge gespeichert werden kann, so dass ein zusätzlicher Index erzeugt werden kann. Da der Kundenname alleine nicht eineindeutig ist, könnte in dem Feld UPPER(kunden->namen)+STR(kunden->nr) gespeichert werden.

[Rolf Ramacher]

Hi Robin,

m.E. kann es nur geben beide Tabellen in einer neuen Zusammenzuführen. mit dem Namen und auf diesen den Index zu setzen.

[Martin Altmann]

Warum kann man nicht mit Set Relation (bzw. DbSetRelation() ) arbeiten und dann den Index entsprechend setzen?

Viele Grüße,
Martin

[Manfred]

Sicher,

den Rel Schlüssel nehmen und dann innerhalb dessen nach dem Kriterium untersortieren. Habe ich auch so gemacht.

key + Upper(name) oder so

[rschi]

Besten Dank für eure Antworten.

Manfred, kannst du mir sagen, wie das in meinem konkreten Beispiel aussähe?
Ich hab's mal versucht umzusetzen, es funktioniert aber nicht wirklich.

Beispiel:

Kunde:
Kd-Nr | Name

Auftrag:
Auft-Nr | Kd-Nr

--> Relation über Kd-Nr

Sortierung von Auftrag nach Kunden-Name

Freundliche Grüsse
Robin

[Manfred]

Hi Robin,

jetzt verstehe ich was Du meinst. Das Problem habe ich bei mir auch. Du hast also z.B. eine Auftragsdatei, in die Du nur die Kundennummer und die Artikelnummer usw. schreibst. Danach verknüpfst Du dann die Auftragsdatei über die Kundennummer mit der Kundendatei!?

[Martin Altmann]

Hmm,
Relation setzen und dann

Index on Kunde->NAME + strzero( AUFTRAG->AUFT-NR, 16 )

so in der Art - würde ich denken.

Viele Grüße,
Martin

[rschi]

@Manfred: Genau so war mein Beispiel gemeint.

@Martin: Leider kriege ich es so nicht hin.

Mein Beispiel, welches ich genannt habe, brachte ich, um meine Problembeschreibung zu vereinfachen.

Das effektive Beispiel sieht folgendermassen aus:

AUFT:
NR | TERMIN | ...

PROPLAN: (mehrere Records pro Auftrag)
AUFTNR | ...

Relation: Von PROPLAN->AUFTNR auf AUFT(->NR)

Nun möchte ich gerne die Tabelle PROPLAN nach dem Auftrag-Termin sortieren.

Die Relation ist (meiner Meinung nach) zu dem Zeitpunkt, zu dem ich sortieren möchte bereits gesetzt.

Wenn ich nun sowas wie
INDEX ON DTOS(AUFT->TERMIN) + PROPLAN->AUFTNR TO cKeyFile
mache, bekomme ich einen Fehler.

Fehlermeldung, die ich erhalte:
Fehler BASE/0
Beschreibung : D
Operation : DbCreateIndex

Hat jemand eine Idee, was ich falsch mache?

Gruss
Robin

[Martin Altmann]

Hallo Robin,
ist PROPLAN->AUFTNR denn ein Feld vom Typ "C"?
Wenn nicht, musst Du Deinen Index anders aufbauen:

Code: Alles auswählen

INDEX ON DTOS(AUFT->TERMIN) + strzero( PROPLAN->AUFTNR, 16 ) TO cKeyFile

Viele Grüße,
Martin

[Manfred]

Moment,

steht denn in der Auftragsdatei zu jedem Satz nicht das Datum drin? Sollte doch, oder.

Dann mache doch einfach Index on (Auftragsnummer + Dtos(Auftragdsdatum)). Entsprechend umschalten und es müßte sortiert sein.

Oder verstehe ich das jetzt nicht richtig?

[rschi]

@Martin:
PROPLAN->AUFTNR ist alphanummerisch, also vom Typ "C", ja.
Somit muss ich ja nur den Termin von Datum in einen String wandeln.

@Manfred:
Doch, in der AUFT-Datei steht für jeden Auftrag der Termin.
Aber ich möchte nicht nach der Nummer sortieren, sondern lediglich (oder in erster Linie) nach dem Termin.

[Manfred]

Sorry,

aber ich habe mal wieder nicht richtig gelesen.

Bevor ich jetzt noch mehr Blödsinn erzähle, möchtest Du die Aufträge aller Kunden anzeigen und dann nach Datum sortiert, oder nur jeweils eines einzigen, die aber nach Datum sortiert?

Wenn es alle sind, dann ziehe ich mich ab hier zurück, da habe ich auch keine Lösung auf der Hand im Moment. Aber wenn es jeweils nur ein Kunde ist, dann müßte doch schon durch die Reihenfolge der Auftragsnummernvergabe das Datum chronologisch sein.

[rschi]

Da hast du meine beiden Beispiele gemischt. Aber das ist mein Fehler, da ich zuerst ein anderes Beispiel gebracht habe und somit ein Durcheinander versursacht habe. Sorry!

In meinem konkreten Beispiel habe ich eine Auftragsdatei mit (unter anderem) Auftragsnummer und Termin des Auftrags.
Zudem eine Datei mit Operationsschritten (verschiedene Arbeitsschritte) - mit (unter anderem) einem Feld Auftragsnummer.

Nun möchte ich die Arbeitsschritte nach dem Termin sortieren. Das heisst, ich möchte wissen, für welchen Arbeitsschritt der Termin an nächsten ist.
Das Problem ist, dass der Termin nur in der Auftragsdatei steht und nicht auf jedem Arbeitsschritt.

Die Auftragsnummern sind gemäss dem Erstelldatum chronoligisch, aber die Aufträge dauern nicht immer gleich lang, deshalb besteht kein Zusammenhang der Reihenfolge von Auftragsnummer und Termin.

[UliTs]

Hallo Robin,

Das effektive Beispiel sieht folgendermassen aus:

AUFT:
NR | TERMIN | ...

PROPLAN: (mehrere Records pro Auftrag)
AUFTNR | ...

Relation: Von PROPLAN->AUFTNR auf AUFT(->NR)
INDEX ON DTOS(AUFT->TERMIN) + PROPLAN->AUFTNR TO cKeyFile
mache, bekomme ich einen Fehler.

ich selbst arbeite mit solchen Indizes erfolgreich (bei DBFNTX).
So könnte der Code aussehen:

Code: Alles auswählen

use AUFT
Index on Nr to AUFT
use ProPlan
Index on AuftNr to ProPlan
set relation to AuftNr into Auft
Index on DtoS(Auft->Termin)+ProPlan->AuftNr TO ProPlanTMP
set index to ProPlan,ProPlanTmp
set order to 2

Die Indexdatei ProPlanTMP muß immer neu erzeugt werden, wenn sich der Wert von Auft->Termin in Datensätzen ändert, die in Relation zu ProPlan stehen!
-
Probier mal aus, ob Du damit eine lauffähige Demo hinbekommst. Wenn die Demo nicht läuft, kannst Du mir mal selbige zusammen mit den beiden Tabellen zuschicken.

Uli

[brandelh]

Hi,

wäre es nicht sinnvoller die 8 Byte je Datensatz zu opfern und den Termin auch in der Datei PROPLAN vorzuhalten ?
Schneller wäre es auf alle Fälle (SCOPE ...)

[rschi]

Hallo Uli

Besten Dank für deinen Hinweis!
Ich werde es mal so ausprobieren und mich wieder melden. Leider habe ich zur Zeit gerade einen dringenderen Fall.

@Hubert: So habe ich es mal gelöst. Aber wenn Ulis Lösungsvorschlag klappe würde, wäre das auch für andere Fälle eine universelle Lösung und wir wären bei der Sortierung sehr flexibel - wenn auch mit Performance-Einbussen für diese Sortierungen.

Gruss
Robin

PS: An dieser Stelle auch mal ein grosser Dank an alle, die mir zu diesem Fall Tipps und Hinweise gaben.

[rschi]

Hallo Uli

Leider bin ich letzte Woche nicht mehr dazu gekommen, diesem Problem weiter nachzugehen.

Nun habe ich deine Zeilen versuche, aber leider erhalte ich den selben Fehler, den ich auch schon hatte:

Fehler BASE/0
Beschreibung : D
Operation : DbCreateIndex
Thread ID : 1

Sagt dir dieser Fehler was?
Der Fehler kommt auf der Zeile

Code: Alles auswählen

Index on DtoS(Auft->Termin)+ProPlan->AuftNr TO ProPlanTMP

Gruss
Robin

[UliTs]

Hallo Robin,

Probier mal aus, ob Du damit eine lauffähige Demo hinbekommst. Wenn die Demo nicht läuft, kannst Du mir mal selbige zusammen mit den beiden Tabellen zuschicken.

Uli

Kannst Du mir Deine DEMO mal zuschicken (PN) (mit den beiden Tabellen) oder hier veröffentlichen? Welche Version hast du von xBase++?

Uli

[Rolf]

ist die Datenbank den exclusiv(e) geöffnet?
Siehe auch noch mal in der Hilfe bei "INDEX" unter "Hinweise:",

Grüße Rolf

[UliTs]

Hier meine Demo,

welche mit Robins Daten funktioniert:

Code: Alles auswählen

PROCEDURE Main
  select 1
  use AUFTRAG alias Auftrag
  Index on Nr to Auftrag
  select 2
  use ProPlan alias ProPlan
  set relation to AuftNr into Auftrag
  Index on DtoS(Auftrag->Termin)+ProPlan->AuftNr TO ProPlanTMP
  DbEdit( 1,1,24,79,{"Auftrag->Termin","AuftNr","Auftrag->Nr","ArtNr" } )
  Alert( "Fertig!" )
RETURN

PROCEDURE dbeSys()
   IF ! DbeLoad( "FOXDBE", .T.)
      Alert( "Database-Engine FOXDBE nicht geladen" , {"OK"} )
   ENDIF
   IF ! DbeLoad( "CDXDBE",.T.)
      Alert( "Database-Engine CDXDBE nicht geladen" , {"OK"} )
   ENDIF
   IF ! DbeBuild( "FOXCDX", "FOXDBE", "CDXDBE" )
      Alert( "FOXCDX Database-Engine;konnte nicht erzeugt werden" , {"OK"} )
   ENDIF
   DbeSetDefault( "FOXCDX" )
RETURN

Rolf, es reicht, ein Filelocking durchzuführen.

Uli

[rschi]

Hallo Uli

Besten Dank für dein Demo-Programm.
Dieses funktioniert wunderbar. Aber wenn ich es in meine Applikation einbinden möchte, habe ich immer noch den selben Fehler.

Dein Code 1:1 einzubauen funktioniert irgendwie nicht. Da erhalte ich den selben Fehler.

Da ich die Tabellen eh schon geöffnet habe und auch Indexe erstellt habe, versuchte ich es folgendermassen:

Code: Alles auswählen

// Index auf "UPPER(NR)" setzen
AUFT->( DBSETORDER(1) )
// Index auf "AUFTNR+STR(OPORDNR,3)+STR(OPINDEX,3)+STR(JAHR,4)+STR(KW,2)" setzen
PROPLAN->( DBSETORDER(3) )

set relation to AuftNr into Auft

Index on DtoS(Auft->Termin)+ProPlan->AuftNr TO p_scratch + "SORT"+ORDBAGEXT()
...

Auf der letzten Zeile habe ich wieder den Fehler:

Fehler BASE
Beschreibung : D
Operation : DbCreateIndex

Ist denn das Problem, dass ich die Tabellen bereits geöffnet habe?
Kann ich das irgendwie umgehen?

Gruss
Robin

[UliTs]

Hallo Robin,

binde am besten zunächst den Beispielcode zu Beginn des Programms in der Prozedur Main() ein.
Funktioniert dann das Beispiel?
Wenn nicht, muß es etwas geben, was vor der Prozedur Main() ausgeführt, welches zu den Problemen führt (z.B. in der Prozedur dbeSys()?).
Oder setzt Du vielleicht eine andere Datenbank (z.B. ADS) ein? Aber das hättest Du ja sicher schon längst erwähnt.

Uli

[rschi]

Hallo Uli

Besten Dank für deine Antwort.

Ich setze eine DBF-Datenbank mit einem ADS ein.
Wieso meinst du, dass ich das sicher schon längst erwähnt hätte?
Funktioniert es damit nicht?

Robin

[UliTs]

Hallo Robin,

aaaahhhhh!
Natürlich kann es mit dem ADS nicht funktionieren! Aber damit geht es mit Hilfe von SQL-Statements ja viel leichter!
Greifst Du über ein Data Dictionary auf Deine Datenbank zu? Setzt Du ADT, DBF-CDX oder DBF-NTX Tabellen ein?

Uli