DBEDIT und "relation to"

[dvdbommel]

Ich wußte das schonmal aber mir fällt es im Moment nicht ein :


in clipper:

select 8
use dbf_a index tnummer
select 5
set relation to dbf_b into dbf_a

....

DECLARE F1 [3]
F1[1]="a->rdatum"
F1[2]="bm1"
F1[3]="vkp1"


in xbase wird es zwar ohne fehler kompiliert

jedoch kommt beim Ausführen dann in dieser Zeile ein Fehler

F1[1]="a->rdatum"


Fehlermeldung:
oError:args :
-> VALTYPE: D VALUE:
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: N
oError:cargo : NIL
oError:description : Parameter has a wrong data type
oError:filename :
oError:genCode : 2,00
oError:operation : <[1]>:=< >
oError:osCode : 0,00
oError:severity : 2,00
oError:subCode : 3,00
oError:subSystem : BASE
oError:thread : 1,00
oError:tries : 0,00
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from VKUEBS(36)
Called from VKMENU(20)
Called from ZMENU(33)
Called from MAIN(364)

Gruß Frank

für rasche Hilfe wäre ich sehr DANKBAR !!!

[Martin Altmann]

Hallo Frank,
hmm - das Datum ist leer, also kein Eintrag in dem Feld in der Datei A.
Versuch doch mal, nicht das Feld selber sondern einen String in Dein Array zu speichern. Also:

Code: Alles auswählen

F1[1]=dtos( a->rdatum )

und wenn Du es dann später benutzen willst, mußt Du halt

Code: Alles auswählen

stod( F1[1] )

nehmen...
Mich wundert nur, warum Du die Felder in " eingeschlossen hast - war das jetzt nur hier so, oder machst Du das auch im Code so? Und wenn ja, warum?

Viele Grüße,
Martin

[dvdbommel]

DECLARE F1 [3]
F1[1]="a->rdatum"
F1[2]="bm1"
F1[3]="vkp1"

...

DBEDIT(1,0,23,79,F1,"vkedit","",K1)


das mach ich in clipper schon immer so ... kann ich die "" bei "bm1" wohl weglassen ?

clipper hat sich da noch nicht dran gestört

[Martin Altmann]

Hallo Frank,
sorry!! Das mit DbEdit hatte ich total überlesen

Viele Grüße,
Martin

[Rolf Ramacher]

Hi Frank,

warum setzt du auf die Datenbank keinen Index und sucht mit Dbseek
Das geht immer sehr schnell

[AUGE_OHR]

hi,

in clipper:

select 8
use dbf_a index tnummer
select 5
set relation to dbf_b into dbf_a
....
DECLARE F1 [3]
F1[1]="a->rdatum"
F1[2]="bm1"
F1[3]="vkp1"

in xbase wird es zwar ohne fehler kompiliert
jedoch kommt beim Ausführen dann in dieser Zeile ein Fehler

F1[1]="a->rdatum"

vorweg : Xbase++ ist "penibler" als Cl*pper

du verwendest "a->" als ALIAS(). Für Xbase++ bedeutet es das du :
1.) entweder einen ALIAS() hat der "a" heist
2.) oder der "erste" SELECT() Bereich

das ist bei dir aber beides nicht der Fall den :
1.) der ALIAS() heist nicht "a" sondern "dbf_a"
2.) der SELECT() ist 8

ändere es mal nach Xbase++ "Standart" und es wird auch unter Cl*pper
(besser) laufen.

gruss by OHR
Jimmy