Kombinuj
Kod:
String Sub Daj_skrot_firmy()
int err
int kh = Open KatalogFirmy() + "51kh.dat" for base "KH"
SetKey( kh, "id" )
SetKeySeg( kh, "id", 1 )
err = GetRec( kh,EQ )
if !err then
Daj_skrot_firmy = GetField( kh,"kod" )
else
Daj_skrot_firmy = "*** brak ***"
message "BŁĄD ! Nie znaleziono rekordu o ID = 1 w bazie KH"
endif
EndSub
message Daj_skrot_firmy()
error "" // tej linii nie wstawiaj do kodu źródłowego - to tylko w celach testowych :-)
