Szukanie kontrahenta po ID w FK
Witam,
Klient potrzebował wyszukiwania kontrahenta po identyfikatorze z FK w Handlu Premium. Oto co udało mi się spłodzić korzystając z forumowej wiedzy:
Kod:
//"idfkF.sc","IDFK{F}","\Procedury\Raporty z menu kartotek\Kontrahenci\",0,1.0.0,SYSTEM
////////////////////////////////
// IDFK{F}
// idfkF.sc
/////////////////////////////
long sFKID
FORM "Szukaj po FKID", 140,100
edit "",sFKID,30,15,40,20
button "Szukaj",30,40,80,20,2
int rx = ExecForm
if rx == -1 then error ""
baseKH kh
ioRec ioLista
long lIdKh
lIdKh=0
kh.SetKey ("fk")
kh.SetKeySeg("idfk",sFKID)
if kh.GetRec(EQ) then
// message using "%i",kh.GetRec(EQ)
message "Brak"
NoOutput()
else
lIdKh = kh.GetField("id")
ioLista.SetField("id",(using "%l", lIdKh))
ShowListWindow( ioLista, "KH" )
NoOutput()
endif
Pytanie brzmi czy da się po wyszukaniu otworzyć okno kartoteki tego kontrahenta zamiast ShowListWindow?
Pozdrawiam
