Erro ao gerar arquivo Sintegra - ACBrUtil.pas

[Sistemas.Distribuidos]

Senhores, tenho atualizado o ACBr constantemente e até a atualização 3481 estava tudo perfeito. Apos essa atualização, nao consigo gerar mais o arquivo sintegra. Está dando um erro ao gerar os registros 54. Não consegui detectar a origem do problema. Mas ao retornar para revisao 3481 fica tudo perfeito novamente.

Percebi que a partir dessa revisao, perciso agora adicionar o diretorio SPEDFiscal para conseguir compilar o componente PAF.

[Régys Silveira]

É necessário ao menos a mensagem de erro para que possamos te ajudar, se possível um passo a passo de como o erro acontece também.

[Sistemas.Distribuidos]

Project Projeto.exe raised exception class EAcessViolation with message 'Acess violation at adress 0040211C in module 'Projeto.exe'. Write of adress 00001274'. Process stopped. Use Step or Run to continue.

Quando clico no ok ele vai para o ACBRSintegra.pas

e para na ultima linha abaixo :

var

wregistro: string;

i: Integer;

a:integer;

begin

for i:=0 to Registros54.Count-1 do

begin

wregistro:='54';

wregistro:=wregistro+TBStrZero(TiraPontos(Registros54.CPFCNPJ),14);

wregistro:=wregistro+TBStrZero(Registros54.Modelo,2);

wregistro:=wregistro+Padl(Registros54.Serie,3);

wregistro:=wregistro+TBStrZero(RightStr(Registros54.Numero,6),6);

wregistro:=wregistro+Padl(TiraPontos(Registros54.CFOP),4);

wregistro:=wregistro+Padl(Registros54.CST,3);

wregistro:=wregistro+IntToStrZero(Registros54.NumeroItem,3);

if Registros54.NumeroItem<=900 then

wregistro:=wregistro+Padl(Registros54.Codigo,14) //codigo do produto

só que eu ja revisei esse codigo e nao houve modificação do dia 27/04 para cá nessa rotina.

Muito obrigado pela a ajuda de todos.

[Sistemas.Distribuidos]

Esqueci de avisar que uso OpenSSL no ACBr.inc

[Régys Silveira]

Você tem certeza que não tem nenhum objeto com problemas no teu app, porque violação de acesso geralmente é algum objeto que não foi criado corretamente ou algo similar.

[Sistemas.Distribuidos]

Vou revisar o código, o problema é que se eu remover todo o compenete e instalar o ACBr na revisão 3481 fica tudo perfeito.

Se atualizar até hoje, dá esse erro. Uso Delphi 6 e OpenSSL.

Vou passar um pente fino a aplicação para ver onde está o erro.

Por falar nisso, já estou providenciando o delphi XE2. O DataSnap do XE2 vai me dar uma penca de soluções.

[Régys Silveira]

Tente recompilar todos os pacotes, pode ser que algo esteja errado nos teus bpls, verifique também se não existe nenhum arquivo em conflito no seu repositório local.

[Sistemas.Distribuidos]

Conseguir identificar que o problema acontece entre as revisões 3482 e 3483. Vou verificar os arquivos modificados para tentar identificar o que esta acontecendo.

[Sistemas.Distribuidos]

Conseguir isolar mais o problema. Está acontecendo alguma coisa no ACBrUtil.pas

Atualizei todos os compenentes até a revisão 3507 (atual) e reverti o ACBrUtil.pas para revisão (3482) e até agora esta tudo rodando ok. o Arquivo sintegra voltou a funcionar 100%.

[EMBarbosa]

Olá,

Eu não consegui identificar no ACBrUtil.pas dessa revisão nada que pudesse fazer esse AV. Você conseguiu identificar pelo menos qual é a função do ACBrUtil que onde acontece o AV?

[Sistemas.Distribuidos]

Vou verificar esse fim de semana as funções alteradas.

[Sistemas.Distribuidos]

Consegui finalmente isolar a linha que esta gerando o erro no meu sintegra.

AcbrUtil.pas

Linha 793 : Result := PadR(AnsiString(Trim(String(Texto))),Tamanho,'0') ; ----> Esta gerando o erro!

Linha 793 : Result := PadR(Trim(Texto),Tamanho,'0') ; ---- > Está Ok.

Se colocar o AcbrUtil.pas atual e só usar a linha 793 acima fica tudo ok denovo.

Só não entendo de onde está vindo esse problema !

[Régys Silveira]

Qual é o seu ambiente de desenvolvimento? (versão do windows, delphi, etc)

[Sistemas.Distribuidos]

Estou usando Windows Xp delphi 6 e OpenSSL

Mais uma vez, obrigado !

[Régys Silveira]

Eu testei aqui em todos do Delphi 7 para a frente e está OK, com certeza é algo que o delphi 6 entende diferente.

[Sistemas.Distribuidos]

O problema pode estar na minha rotina de gerar o sintegra. Isso só acontece no registro 54.

Estou verificando se em algum ponto eu gero alguma informação nula para ver se o erro está ai ?

[Anizair Lopes]

Pessoal, eu também estou utilizando Windows XP e Delphi 6.

Esta ocorrendo o erro na função IntToStrZero do abrUtil a qual faz a chamada a função que o colega colocou.

Para testar eu mudei a linha da geração do Registro 54 onde está

wregistro:=wregistro+IntToStrZero(Registros54[i].NumeroItem), 3);

para esta linha abaixo:

wregistro:=wregistro+TBStrZero(IntToStr(Registros54[i].NumeroItem), 3);

e o problema foi solucionado não gerando mais o erro.

Deve ser alguma função que não está disponível no Delphi 6, então peço que façam o teste que coloquei em outras versões para ver se ocorre algum erro, caso não ocorra erros nenhum em outras versões sugiro que seja esta a abordagem a ser colocado no componente para fins de compatibilidade com o DELPHI 6.

sem mais para o momento sou grato.

[Daniel Simoes]

Atualmente não temos como testar o ACBr no Delphi 6 pois a Embarcadero não nos disponibiliza acesso a esta IDE... ( a menor é o D7)

E sinceramente seria difícil consumir o pouco tempo dos desenvolvedores com esta compatibilização e testes...

Se desejar, nos forneça "patchs" com as correções necessárias para rodar no D6 corretamente. Podemos avaliar se elas causariam algum problema nos Delphis atuais ou Lazarus...

[Anizair Lopes]

Olá Daniel, entendo o seu ponto.

A minha pergunta é se a correção que coloquei para compatibilidade com o Delphi 6 pode ser aplicado sem nenhum problema de compatibilidades com outras ides ?

E caso eu encontre mais algum problema vou colocandos as correções aqui para análise da equipe ficando a disposição para sanar eventuais dúvidas dos nosso colegas.

Obrigado e tenha um bom dia.

[Daniel Simoes]

Por favor anexe as Units alteradas no tópico, assim podemos comparar com o WinMerge e ver exatamente o que foi modificado...