Ir para conteúdo
Fórum Script Brasil

leandro gawleta

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre leandro gawleta

Perfil

  • Gender
    Male

leandro gawleta's Achievements

0

Reputação

  1. Bom dia pessoal, Estou tentando montar um filtro para um relatório em que o usuário informa o período de data e em um combobox o Código do cliente, gostaria de ao colocar o código do cliente no combobox ele mostra-se o nome em um textbox. Fiz algo assim mas está informando dados incompatíveis, procedure Button1OnClick(Sender: TfrxComponent); begin if CbCliente.Text <> '' then tblCancelados.SQL.Add(' AND Clientes.CodCliente = ''' + CbCliente.Text + ''''); tblCancelados.SQL.Add(' ORDER BY Clientes.Data DESC'); end; var w: string; begin w := Cliente.SQL.Add('SELECT RAZAO FROM CLIENTES WITH(NOLOCK)WHERE CODIGO=' + StrToInt( CbCliente.Text) + ); Cliente.Close; Cliente.Open; Edit1.Date := date - 30; Edit2.Date := date; end.
  2. encontrei a sintaxe correta, fica a dica. Memo26.Font.Style := nil; -----> deixa sem nenhuma fonte
  3. Bom dia, Estou com a seguinte situação, Tenho uma condição em que ao gerar um relatório o mesmo me traz uma lista de pedidos, na lista aponta por ordem os que estão em atraso, nesse momento uso a condição se estiver em atraso irá deixar em negrito caso contrário a letra ficará normal. O problema é que ele está deixando tudo em negrito (bold), gostaria de na condição else e validasse o contrário ex: procedure DadosMastre1OnBeforePrint(Sender: TfrxComponent); begin if (tblCateira.FieldByName('ASTERISCO').AsString = '*') then -- valida se está em atraso Begin Memo26.Font.Style := fsBold; --- deixa o conteúdo em negrito end else Meno26.Font.Style ---- teria que atribuir novamente sem o negrito end;
×
×
  • Criar Novo...