Salvar XML em Diretório Diário

[MarcosRWeimer]

  Em 22/06/2017 at 20:58, Daniel Simoes disse:

Parece uma boa implementação... como o tipo "TOrdPathArray", se comportará no Object Inspector ?

Expandir  

Não havia me atentado a isso (estava criando o componente em runtime), criei um novo projeto, adicionei o acbrcte e não apareceu a ordenação, Talvez tenha de reinstalar o componente.

[MarcosRWeimer]

@Daniel Simoes Reinstalei o componente e não apareceu, alguma dica de como resolver?

[Wess]

  Em 23/06/2017 at 11:00, -=Ma®©oS=- disse:

@Daniel Simoes Reinstalei o componente e não apareceu, alguma dica de como resolver?

Expandir  

Verifica se a property está na sessão published

[MarcosRWeimer]

@Wess está sim, acho que o problema é pq é um array of TOrdPath

[Wess]

  Em 23/06/2017 at 11:42, -=Ma®©oS=- disse:

@Wess está sim, acho que o problema é pq é um array of TOrdPath

Expandir  

Tenta dar uma olhada na implementação da FormaEmissao em TGeralConf na unit ACBrDFeConfiguracoes, vejo que segue a mesma lógica, deve estar faltando algum detalhe.

[Daniel Simoes]

  Em 23/06/2017 at 11:00, -=Ma®©oS=- disse:

@Daniel Simoes Reinstalei o componente e não apareceu, alguma dica de como resolver?

Expandir  

Provavelmente o Tipo Array não seja suportado (não tenha um editor padrão) no Object Inspector...

Acho que o correto seria usar um "Set Of" ao invés de Array

[MarcosRWeimer]

@Daniel Simoes Ai já está fugindo dos meus conhecimentos

[RicardoVoigt]

  Em 23/06/2017 at 12:10, -=Ma®©oS=- disse:

@Daniel Simoes Ai já está fugindo dos meus conhecimentos

Expandir  

Por exemplo, componente DBNavigator tem a propriedade VisibleButtons (set of TNavigateBtn) onde vc marca e desmarca quais botões quer que ele mostre, mas não tem como mudar a ordem dos botões.

Att

Ricardo

[Daniel Simoes]

  Em 23/06/2017 at 12:13, RicardoVoigt disse:

mas não tem como mudar a ordem dos botões.

Expandir  

Realmente... Um Set de Tipos, não tem o conceito de ordem de entrada...

  Em 23/06/2017 at 12:10, -=Ma®©oS=- disse:

Ai já está fugindo dos meus conhecimentos

Expandir  

Marcos... Não parece seguro subir para o SVN as sugestões nos fontes, até a resolução do Editor de Propriedades...

[MarcosRWeimer]

@Daniel SimoesEntendo, está funcionando, mas não está aparecendo no object inspector, no meu ponto de vista não seria um impeditivo. Mas tudo bem

[BigWings]

  Em 23/06/2017 at 13:01, Daniel Simoes disse:

Realmente... Um Set de Tipos, não tem o conceito de ordem de entrada...

Marcos... Não parece seguro subir para o SVN as sugestões nos fontes, até a resolução do Editor de Propriedades...

Expandir  

Daniel, se puder analisar as alterações em anexo no Lazarus... está ocorrendo AV após editar a propriedade.

 

 

[BigWings]

Segue novamente, com correções e removendo a separação por série, já que essa implementação depende modificações nas outras classes.

 

ACBrDFeConfiguracoes.pas

pcnConversao.pas

[MarcosRWeimer]

@BigWingsAqui continua não aparecendo no object inspector, e complicou um pouco a maneira de informar em runtime.

 

[BigWings]

  Em 23/06/2017 at 14:08, -=Ma®©oS=- disse:

@BigWingsAqui continua não aparecendo no object inspector, e complicou um pouco a maneira de informar em runtime.

Expandir  

Qual Delphi?

Testei no XE5, 2007 e Lazarus. 

[MarcosRWeimer]

@BigWings

XE8 Pro, mas consegui arrumar, desinstalei o acbr e instalei novamente, assim apareceu corretamente no object inspector.

 

Aproveitando, qual seria o melhor modo de setar a ordenação em um componente criado em runtime ?

[RicardoVoigt]

  Em 23/06/2017 at 16:35, -=Ma®©oS=- disse:

@BigWings

XE8 Pro, mas consegui arrumar, desinstalei o acbr e instalei novamente, assim apareceu corretamente no object inspector.

 

Aproveitando, qual seria o melhor modo de setar a ordenação em um componente criado em runtime ?

Expandir  

Claro... usando TCollection, vai se comporta como, por exemplo, a propriedade Panels do componente StatusBar...

Em tempo de execução, acho que ficaria assim:

ACBrCTe1.Configuracoes.Arquivos.OrdenacaoPath.Clear;
with ACBrCTe1.Configuracoes.Arquivos.OrdenacaoPath.Add do
  item := opData;
with ACBrCTe1.Configuracoes.Arquivos.OrdenacaoPath.Add do
  item := opModelo;

Att

Ricardo

[MarcosRWeimer]

@RicardoVoigt Achei que havia um geito com "menos código" de fazer.

 

Gerei mais alguns CT-es aqui e nos testes que fiz funcionou corretamente,

[Daniel Simoes]

Obrigado Marcos e BigWings... Testei no Lazarus e D7, e me pareceu tudo correto...

A compatibilidade com aplicações anteriores está mantida... (se a nova propriedade não tiver nada atribuído)

Enviei para o SVN com pequenos ajustes...

  Citar

-- ACBrDFeConfiguracoes --
[+] Adicionada a propriedade "TArquivosConf.OrdenacaoPath", que permite definir
    a ordem de criação dos subdiretórios. Mantém a compatibilidade da ordem
    anterior, por motivo de compatibilidade, e respeitando as propriedades:
    SepararPorCNPJ, SepararPorModelo, SepararPorAno/Mes/Dia, AdicionarLiteral
    (por: -=Ma®©oS=- e BigWings)

Expandir  

 

[MarcosRWeimer]

@Daniel Simoes Vlw! Já vou sincronizar e testar

  Em 26/06/2017 at 20:27, -=Ma®©oS=- disse:

@Daniel Simoes Vlw! Já vou sincronizar e testar

Expandir  

Testei aqui no XE8 com a versão que vc subiu para o SVN e está funcionando corretamente. Obrigado!

 

[Pedro E. Braga]

  Em 26/06/2017 at 20:24, Daniel Simoes disse:

Obrigado Marcos e BigWings... Testei no Lazarus e D7, e me pareceu tudo correto...

A compatibilidade com aplicações anteriores está mantida... (se a nova propriedade não tiver nada atribuído)

Enviei para o SVN com pequenos ajustes...

 

Expandir  

Boa Tarde Daniel, como mencionei anteriormente acredito que seria interessante aplicar essa mesma Regra para o SAT tbm, onde tempos o mesmo conceito. acho que deveria ser feito um refactory nessa parte unificando essas opções e regras.

[Daniel Simoes]

Realmente o SAT não herda de " TArquivosConf"... Não sei se seria simples implementar essa herança, sem perda de compatibilidade... Vou analisar com mais calma no futuro..

[BigWings]

  Em 26/06/2017 at 20:24, Daniel Simoes disse:

Obrigado Marcos e BigWings... Testei no Lazarus e D7, e me pareceu tudo correto...

Expandir  

Uma situação no Lazarus que não consegui resolver, conforme mencionei anteriormente:

1-Adicionar o componente

2-Adicionar um item a OrdenacaoPath

3-Tentar deletar o componente.

As vezes ocorre AV, as vezes o Lazarus simplesmente trava.

 

 

[Daniel Simoes]

Não consegui reproduzir... aqui (Lazarus 1.6.4, FPC 3.0.2, 32 bits)... o Editor de propriedades funcionou a contento... inserindo e removendo os itens...

Você recompilou a sua IDE ?

[BigWings]

  Em 26/06/2017 at 21:31, Daniel Simoes disse:

Não consegui reproduzir... aqui (Lazarus 1.6.4, FPC 3.0.2, 32 bits)... o Editor de propriedades funcionou a contento... inserindo e removendo os itens...

Você recompilou a sua IDE ?

Expandir  

Sim... menos mal então, achei que seria erro de implementação.

[Daniel Simoes]

Corrigi um pequeno Bug relacionado a essa modificação:

  Citar

-- ACBrDFeConfiguracoes --
[-] Correção em "TArquivosConf.Assign", onde o Objeto "OrdenacaoPath" não era
    duplicado, mas sim copiado por referência, causando A.V. na liberação de
    Objetos copiados. 

Expandir