//"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