Witam - to mój pierwszy post więc gratuluję pomysłu, forum znalazłem przypadkiem, radości było co niemiara ;)
Mam tego typu problem - AmBasic HMP - niby prosty SetKeySeg, niby powinno działać (opieram się na założeniu, że INTEGER z Pervasive'a to LONG z AmBasic'a), a nie chce... Co robię nie tak?
Kod:
int iPosDW = SetTaggedPos( FS )
long lIdDW = GetLineId(iPosDW)
int errDW
string sciezkaDW = KatalogFirmy()+"51dw.dat"
int iBazaDW = Open sciezkaDW for base "DW"
SetKey(iBazaDW,"id")
SetKeySeg(iBazaDW,"id",lIdDW)
errDW = GetRec(iBazaDW,EQ)
if errDW != 0 then Error "Blad obslugi bazy danych DW"
lIdDW = GetField(iBazaDW,"id")
int errPW
string sciezkaPW = KatalogFirmy()+"51pw.dat"
int iBazaPW = Open sciezkaPW for base "PW"
SetKey(iBazaPW,"dostawy")
SetKeySeg(iBazaPW,"iddw",lIdDW)
errPW = GetRec(iBazaPW,EQ)
if errPW != 0 then Error "Blad obslugi bazy danych PW"
print lIdDW
print LF
print GetField(iBazaPW,"id")
pozdrawiam
irek
