Adicionar campo no FieldsEditor do IbClientDataSet runtime

10/07/2008

1

alo a todos?
pesquisei muito por aqui e nao consegui nenhum topico para esclarecer exatamente minha duvida.

Seguinte;
em um form uso um ibclientdataset para poder alterar dados provenientes de uma consulta, até aí tudo bem, mas estou com a necessidade de incluir um campo VALOR_DESCONTO_DIFERENCIADO CURRENCY no fields editor em tempo real.

Alguem sabe alguma forma?
Neste IBCLIENTDATASET existem alguns campos InternalCalc, não poderia apagar a lista de campos no fieldseditor mesmo sabendo que o DELPHI recria esta lista na hora da consulta caso a mesma esteja em branco.

Resumindo: teria que apenas manter a minha lista de campos, mas quando efetuar uma certa consutla, preciso adicionar um ou outro campo ´FTCURRENCY´ em tempo real.

desde ja agradeço.


Responder

Posts

12/07/2008

Micheus

Acho que vc está procurando pela propriedade [i:e3a5ea6514]Fields[/i:e3a5ea6514] - o [i:e3a5ea6514]FieldsEditor[/i:e3a5ea6514] é utilizado apenas em design-time.

Tente algo similar ao comando a seguir, antes de abrir o dataset:
...
var
  CurField :TCurrencyField;  // ver help para outros tipos
begin
 // alocamos o field dinamicamente
  CurField := TCurrencyField.Create(Self);
 // inicializamos suas propriedades principais
  with CurField do 
  begin
   // nome do campo na tabela
    CurField.FieldName := ´VALOR_DESCONTO_DIFERENCIADO´;
   // defina a máscara se precisar
    CurField.DisplayFormat := ´#,0.00´;
   // nome do campo não pode ser repetido - seguimos padrão do delphi
    CurField.Name := ´IBCLIENTDATASET1VALOR_DESCONTO_DIFERENCIADO´;
   // aqui vinculamos o campo ao dataset 
    CurField.DataSet := IBCLIENTDATASET1;
  end;
  ...
  IBCLIENTDATASET1.Open;
  ...
end;


para remover ele da lista de fields:
...
  if Assigned(IBCLIENTDATASET1.Fields.FieldByName(´VALOR_DESCONTO_DIFERENCIADO)) then
    IBCLIENTDATASET1.Fields.FieldByName(´VALOR_DESCONTO_DIFERENCIADO´).Free;
...


Abraços


Responder

15/07/2008

Seven

Obrigado micheus...
funcionou perfeitamente.


Responder

31/01/2013

Lisandro Otto

Excelente Micheus.....
Responder

28/02/2013

José

Obrigado pelo retorno, Seven. Sendo assim, estou fechando este tópico. Caso precise, fique à vontade para abrir novos.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira