Erro Na Criação Do Registro 0180

[Jerson Seling]

Bom dia,

Na criação do ECD estou tendo o erro de "Registro/Campo não informado ou inválido" no registro 0180: IDENTIFICAÇÃO DO RELACIONAMENTO COM O PARTICIPANTE

Vendo o arquivo, parece que o ACBr não está tratando o 0180 como filho do 0150.

Em vez de gerar isto por exemplo:

|0150|5-OS2328-PFJ004|PFJ 004|00105|61064911000177||00000000000|SP|535054653118||3550308|1122|SUFRAMA|
|0180|04|15022004||
|0150|5-OS2328-PFJ005|PFJ 005|00105|||00000000000|SP|||3550308|1122|000000000|
|0180|09|15022004||

Ele está gerando isto:

|0150|5-OS2328-PFJ004|PFJ 004|00105|61064911000177||00000000000|SP|535054653118||3550308|1122|SUFRAMA|
|0150|5-OS2328-PFJ005|PFJ 005|00105|||00000000000|SP|||3550308|1122|000000000|
|0180|04|15022004||
|0180|09|15022004||

Esses exemplos fiz com o demo que vem na ACBr para SPED Contábil.

Alterando na geração do bloco 0 do exemplo para que ele crie mais um participante, assim:

    with Registro0150.New do
    begin
      COD_PART := '5-OS2328-PFJ004';
      NOME := 'PFJ 004';
      COD_PAIS := '00105';
      CNPJ := '61064911000177';
      UF := 'SP';
      IE := '535054653118';
      COD_MUN := 3550308;
      IM := '1122';
      SUFRAMA := 'SUFRAMA';
      with Registro0180.New do
      begin
        COD_REL := '04';
        DT_INI_REL := StrToDate('15/02/2004');
      end;
    end;

    with Registro0150.New do
    begin
      COD_PART := '5-OS2328-PFJ005';
      NOME := 'PFJ 005';
      COD_PAIS := '00105';
      CNPJ := '';
      UF := 'SP';
      IE := '';
      COD_MUN := 3550308;
      IM := '1122';
      SUFRAMA := '';
      with Registro0180.New do
      begin
        COD_REL := '09';
        DT_INI_REL := StrToDate('15/02/2004');
      end;
    end;

 

O que é mais estranho ainda, é que o validador não acusa erro na estrutura do arquivo! Ele simplesmente ignora esses 0180 que ficaram soltos!

Qualquer ajuda, agradeço.

 

 

 

 

Editado 28 Julho, 2015 por Jerson Seling

[Jerson Seling]

Oi boa tarde,

Eu alterei os fontes da ACBr para resolver esse problema.

Alterei os arquivos ACBrECDBloco_0, ACBrECDBloco_0_Class e ACBrSpedContabil.

Me baseei no código do I050 para fazer essa alteração: passar o registro 0180 que estava

como "irmão" do 0150, para "filho". Os registros do bloco 9 (contadores) estão OK.

 

Em anexo estão esses arquivos com as alterações. Passei o arquivo texto no validador e esse problema não ocorre mais.

Alterados.rar

Editado 28 Julho, 2015 por Jerson Seling

[Juliomar Marchetti]

Bom dia!

tu aplicou algum formatador no código e modificou muita coisa !

[Jerson Seling]

Boa tarde, pois é o maldito formatador do delphi xe5. Quando vi ja tinha aplicado. E agora o q fazemos?

[Juliomar Marchetti]

Backup dos seus arquivos, revert neles , aplica suas correções testa e depois anexa novamente aqui !

[Jerson Seling]

Assim q eu tiver um tempo livre faço isso.

 

[Jerson Seling]

Passei um tempo sem mexer no SPED ECD, e os fontes que eu tinha do ACBr eram esses que eu tinha alterado e usado o formatador, por isso não tinha feito até hoje as alterações sem usar o formatador. Porém hoje atualizei o ACBr para o trunk 2 e meu projeto ficou sem esses fontes alterados. Ai alterei eles de novo só que desta vez sem o formatador. Seguem em anexo eles.

Também atualizei o Exemplo Delphi do ACBrSPEDContabil, ele não estava compilando por algumas chamadas de funções estarem desatualizadas (o método de salvar o arquivo e o preenchimento do reg I051). Adicionei também mais um registro 0150 e 0180 para visualizar melhor o problema que estava acontecendo neles e que com as alterações que fiz não ocorrem mais. Também ativei os ScrollBars dos memos do projeto para visualizar melhor os textos.

Abraços e feliz ano novo!

ACBrSPEDContabil.rar

[Juliomar Marchetti]

NO svn a contribuição