[ medixsa @ 23.09.2007. 13:55 ] @
procedure TfrmRacun.Edit3Change(Sender: TObject); var Duzina : integer; S : string; begin S := Edit1.Text; Duzina := Length(S); // Sifra if Duzina <= 6 then begin tblArtikli.Locate('Sifra',Edit3.Text,[loPartialKey]); Edit4.Text := frmRacun.tblArtikliNAZIV.AsString; end else begin Pitanje ? // Treba mi ovdje da u Edit4 komponetni ispise "artikal ne postoji" end else begin tblArtikli.Locate('Barcode',Edit3.Text,[loPartialKey]); Edit4.Text := frmRacun.tblArtikliNAZIV.AsString; end else begin Pitanje ? // Treba mi ovdje da u Edit4 komponetni ispise "artikal ne postoji end; Hvala puno !!! Hitno molim Vas |