procedure TdmCadSolicMaterial.Validate_Item(Sender: Integer);
begin
query.Close();
query.SQL.Text := 'select DESCRICAO_ITEM' + #13 +
' where ITEM.CODIGO_ITEM = ' + IntToStr(Sender);
try
qryValidaItem.Open();
Except
On E:Exception do
ShowMessage('Erro Item: ' + E.Message);
end;
if qryValidaItem.IsEmpty then
begin
MessageDlg('Campo código do item precisa ser preenchido!', mtError, [mbOK],0);
Abort;
end
else
Begin
qrySolicItem.FieldByName('DESCITEM_SOL_EST_ITEM').AsString :=
qryValidaItem.FieldByName('DESCRICAO_ITEM').AsString;
End;