Pessoal,

Como faço pra formatar essa coluna, pois nao acho comando nenhum pra isso. 
Codigo abaixo: o EditMaskText nao esta funcionando.

procedure TfrmPesqClientes.CDSPesqClientesCPFCNPJGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  inherited;
  if CDSPesqClientesTIPCLI.AsString = 'F' then
    Text := EditMaskText('000\.000\.000-00;0;_', Sender.AsString)
  else if CDSPesqClientesTIPCLI.AsString = 'J' then
    CDSPesqClientesCPFCNPJ.EditMask := '00\.000\.000/0000-00;0;_';

end;



[As partes desta mensagem que não continham texto foram removidas]

Responder a