ACBRGNRe Erro de conversão

[Marcelo Calvi Belanga]

Boa tarde,

Estou com problema de conversão de dados durante a impressão das guias do GNRe, me parece que desta vez é no campo NumDocOrigem, mas estou vendo que o problema está com a função RemoverZeros.

Poderiam me ajudar por favor a resolver esse problema?

Segue imagem e arquivo txt da guia gerada e autorizada onde ocorre o problema.

 

858100000005579902911607860100000007036852902000-gnre.txt

[Juliomar Marchetti]

Boa tarde

favor fazer update e testar novamente!

 

[Marcelo Calvi Belanga]

Juliomar, fiz o update, instalai novamente, mas não mudou em nada.

[Juliomar Marchetti]

22 minutos atrás, Marcelo Calvi Belanga disse:

Juliomar, fiz o update, instalai novamente, mas não mudou em nada.

o código acima continua igual?

[Marcelo Calvi Belanga]

Desculpe-me....

 

Erro diferente, mas na mesma função.

[Marcelo Calvi Belanga]

Na verdade o erro permanece no RemoverZeros do campo NumDocOrigem.

[Marcelo Calvi Belanga]

No caso da emissão de guia para o Acre ele imprimiu sem erro de conversão, então não sei mais o que ocorre, pois eu acreditava que o erro estava na conversão do NumDocOrigem, vou testando estado a estado e informando novidades, mas se tiver alguma dica para consertar o mesmo.

Porém com informações complementares automática no caso do pagamento apenas no banco do brasil, que acredito que seja uma regra do estado e na separação com caracteres estranhos como se segue:

858200000007058000751601920000012205162336554008-gnre.txt

[Marcelo Calvi Belanga]

Boa tarde @Juliomar Marchetti, estou testando emissão para Alagoas, o GNRE é emitido normalmente, porém ocorre o erro na tentativa de impressão na mesma função de RemoverZeros do mesmo campo NumDocOrigem. É executado aproximadamente o while da função umas 18 vezes, somente após isso apresenta o erro.

Infelizmente não estou conseguindo anexar arquivo algum, pois, esta retornando a seguinte mensagem:  "Você só tem permissão para fazer o uploade de 2mb", mas o arquivo tem apenas 215k.

Consegue me ajudar de alguma forma? Estou ainda me acostumando com os componente e forma de desenvolvimento e ainda não consegui arrumar uma solução.

Desde já agradeço pela compreensão.

Obrigado.

[Juliomar Marchetti]

13 minutos atrás, Marcelo Calvi Belanga disse:

Boa tarde @Juliomar Marchetti, estou testando emissão para Alagoas, o GNRE é emitido normalmente, porém ocorre o erro na tentativa de impressão na mesma função de RemoverZeros do mesmo campo NumDocOrigem. É executado aproximadamente o while da função umas 18 vezes, somente após isso apresenta o erro.

Infelizmente não estou conseguindo anexar arquivo algum, pois, esta retornando a seguinte mensagem:  "Você só tem permissão para fazer o uploade de 2mb", mas o arquivo tem apenas 215k.

Consegue me ajudar de alguma forma? Estou ainda me acostumando com os componente e forma de desenvolvimento e ainda não consegui arrumar uma solução.

Desde já agradeço pela compreensão.

Obrigado.

Boa tarde!

vá em seu profile e exclua alguns anexos que dai pode ser anexado!

[Marcelo Calvi Belanga]

 

4 minutos atrás, Juliomar Marchetti disse:

Boa tarde!

vá em seu profile e exclua alguns anexos que dai pode ser anexado!

Segue arquivos....

858600000004058002911606960100000003037098643001-gnre.txt

858000000003029002911602960100000003037098644008-gnre.txt

[EMBarbosa]

Em 05/04/2016 at 16:43, Marcelo Calvi Belanga disse:

 

Segue arquivos....

858600000004058002911606960100000003037098643001-gnre.txt

858000000003029002911602960100000003037098644008-gnre.txt

Ainda está tendo esse problema? Em caso positivo, qual o valor da variável Str dentro da função RemoberZeros?

[Marcelo Calvi Belanga]

Bom dia @EMBarbosa, continuo sim, inclusive nesse momento estou finalizando os testes de todos os estados para voltar nesse caso e tentar resolver.

Quando ocorre o erro o valor inicial da variável Str está '000000000000000000', e o erro ocorre após remover o último zero.

Fazendo os teste percebi que mesmo enviando o lote com a informação <c04_docOrigem>318</c04_docOrigem>, em alguns casos o retorno do campo é '000000000000000000', acabei de ter um retorno interessante.... Enviei um lote para Pernambuco contento duas GNRE uma 100102 e outra 100129, no retorno a 100102 voltou com o documento origem e a 100129 voltou com zeros....

Uso Delphi 7 e Fortes.

Segue os anexos.

858400000000029003061610070101201606403964795000-gnre.txt

858400000000058003061614070101201606403964787008.xml

858400000000058003061614070101201606403964787008-gnre.txt

1613364064-pro-rec.xml

858400000000029003061610070101201606403964795000.xml

[EMBarbosa]

Então acho que ficou mais fácil corrigir. Poderia fazer o seguinte teste? Subistitua o código pelo seguinte:

  function RemoverZeros(Str: string): string;
  begin
    while (Trim(Str) <> '') and (Str[1] = '0') do
      Str := Copy(Str, 2, Length(Str));

    Result := Trim(Str);
  end;

E verifique se corrige o problema.

[Marcelo Calvi Belanga]

@EMBarbosa, fiz a alteração, executei um Build em meu projeto, mas parece que não acatou a atualização.

Preciso instalar novamente o ACBR para ele compilar o código alterado? ou tem uma forma mais fácil?

[Juliomar Marchetti]

Acho que é necessário recompilar os componentes!

[Marcelo Calvi Belanga]

Boa tarde @Juliomar Marchetti, a maneira mais fácil de recompilar os componentes é usando o acbr install? 

[Juliomar Marchetti]

Agora, Marcelo Calvi Belanga disse:

Boa tarde @Juliomar Marchetti, a maneira mais fácil de recompilar os componentes é usando o acbr install? 

Sim!

[Marcelo Calvi Belanga]

5 horas atrás, EMBarbosa disse:

Então acho que ficou mais fácil corrigir. Poderia fazer o seguinte teste? Subistitua o código pelo seguinte:

  function RemoverZeros(Str: string): string;
  begin
    while (Trim(Str) <> '') and (Str[1] = '0') do
      Str := Copy(Str, 2, Length(Str));

    Result := Trim(Str);
  end;

E verifique se corrige o problema.

Fiz a alteração, compilei e funcionou perfeitamente.

Todas as guias onde o numero de retorno do  c04_docOrigem é '000000000000000000' imprime normalmente.

Obrigado pela ajuda.

[EMBarbosa]

Já está no SVN. Obrigado.

19 horas atrás, Marcelo Calvi Belanga disse:

Fiz a alteração, compilei e funcionou perfeitamente.

Todas as guias onde o numero de retorno do  c04_docOrigem é '000000000000000000' imprime normalmente.

Obrigado pela ajuda.