dmGlobal.qryBuscarAnexo.SQL.Clear;
SqlStr := 'Select * From tblAnexo where Empresa = ' + QuotedStr(dmGlobal.g_CodigoEmpresa);
if _tipo = 0 then
SqlStr := SqlStr + ' and Codigo Like ' + QuotedStr(_Anexo + '%')
SqlStr := SqlStr + ' Order By Codigo';
dmGlobal.qryBuscarAnexo.SQL.Add(SqlStr);
dmGlobal.qryBuscarAnexo.Open;