TACBrBoleto - Problema arquivo .dfm Delphi

[Gabriel Bonzanini]

Bom dia pessoal.

 

Atualizamos os componentes recentemente, e ao abrir e salvar uma tela que possui um componente TACBrBoleto, o arquivo dfm fica "bugado", desta forma:

  object BoletoACBr: TACBrBoleto
    Banco.TamanhoMaximoNossoNum = 10
    Banco.TipoCobranca = cobNenhum
    Banco.LayoutVersaoArquivo = 0
    Banco.LayoutVersaoLote = 0
    Banco.CasasDecimaisMoraJuros = 2
    Cedente.TipoInscricao = pOutras
    Cedente.IdentDistribuicao = tbBancoDistribui
    Cedente.PIX.TipoChavePIX = tchNenhuma
    Cedente.IntegradoraBoleto = tibNenhum
    NumeroArquivo = 0
    ImprimirMensagemPadrao = False
    ACBrBoletoFC = FaturaComercialACBr
    Configuracoes.Arquivos.LogNivel = logNenhum
    Configuracoes.WebService.SSLHttpLib = httpOpenSSL
    Configuracoes.WebService.StoreName = 'My'
    Configuracoes.WebService.Ambiente = toX0H  �H  �      �   ���
VencimentoX0P  �P  �      �   ���
DataDocumento,X0X  �X  �      �   ���NumeroDoc
    Configuracoes.WebService.Operacao = tpInclui
    Configuracoes.WebService.VersaoDF = '1.2'
    Left = 280
    Top = 280
  end

Alguém sabe o que poderia ser? Tentei reiniciar o Delphi, reiniciar o computador, reinstalar os componentes, e o problema persiste... Nunca vi algo semelhante.

[Antonio Gomes]

2 horas atrás, Gabriel Bonzanini disse:

Bom dia pessoal.

 

Atualizamos os componentes recentemente, e ao abrir e salvar uma tela que possui um componente TACBrBoleto, o arquivo dfm fica "bugado", desta forma:

  object BoletoACBr: TACBrBoleto
    Banco.TamanhoMaximoNossoNum = 10
    Banco.TipoCobranca = cobNenhum
    Banco.LayoutVersaoArquivo = 0
    Banco.LayoutVersaoLote = 0
    Banco.CasasDecimaisMoraJuros = 2
    Cedente.TipoInscricao = pOutras
    Cedente.IdentDistribuicao = tbBancoDistribui
    Cedente.PIX.TipoChavePIX = tchNenhuma
    Cedente.IntegradoraBoleto = tibNenhum
    NumeroArquivo = 0
    ImprimirMensagemPadrao = False
    ACBrBoletoFC = FaturaComercialACBr
    Configuracoes.Arquivos.LogNivel = logNenhum
    Configuracoes.WebService.SSLHttpLib = httpOpenSSL
    Configuracoes.WebService.StoreName = 'My'
    Configuracoes.WebService.Ambiente = toX0H  �H  �      �   ���
VencimentoX0P  �P  �      �   ���
DataDocumento,X0X  �X  �      �   ���NumeroDoc
    Configuracoes.WebService.Operacao = tpInclui
    Configuracoes.WebService.VersaoDF = '1.2'
    Left = 280
    Top = 280
  end

Alguém sabe o que poderia ser? Tentei reiniciar o Delphi, reiniciar o computador, reinstalar os componentes, e o problema persiste... Nunca vi algo semelhante.

Corrompeu nao? HD ?apaga essas linhas, se vc deixa salvo no dfm, refaz

[Gabriel Bonzanini]

Boa tarde @Antonio Gomes. Infelizmente, toda vez que vou salvar o form, esse conteúdo indesejado é adicionado novamente... Temos alguns forms com esse componente, e em todos eles ocorre o mesmo problema.

[Antonio Gomes]

Pensei que era até alguma property do tipo variant ou olevariant viu.

[Gabriel Bonzanini]

Depois de muito "bater cabeça", descobri.

Como o conteúdo indesejado iniciava na property Configuracoes.WebService.Ambiente, fiquei desconfiado da mesma. Provavelmente, em algum refactoring, o nome dos elementos deste tipo enumerado foi alterado; como o .dfm já estava salvo com o nome antigo (e atualmente inexistente), o Delphi acabou se perdendo:

 

 

Grato pela ajuda @Antonio Gomes... Às vezes aparecem uns problemas aparentemente "sobrenaturais", mas depois vê-se a lógica dos mesmos hehehe

Acredito que o Delphi poderia avisar que o valor armazenado é atualmente inválido, mas tudo bem.

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Victor H. Gonzales - Panda]