Importação Arquivo Sped

[econdotta]

Olá a todos.

Estou tentando importar arquivos SPED EFD-Contribuições e Sped-Fiscal mas estou tendo problemas para ler o Bloco 0 Registro 150.

A função SpedFiscal.Bloco_0.Registro0150Count retorna zero sempre e dentro do arquivo (que já foi validado pela Sefaz) existem estes registros como abaixo descrevo.

|0150|FOR000000008|DOANDO DISTRIBUIDORA LTDA|1058|32254261000228||1770119075|4303103||R. DO SANTO NASCIMENTO|90||DISTRITO INDUSTRIAL|
|0150|FOR000000009|PARAMIM S.A|1058|82949812000171||250864877|4216909||RUA DO DENTISTA|475||PADRE FRANCISCO|
|0150|FOR000000011|COOPERATIVA SANTO AMARO LTDA|1058|88388357003001||0250317821|4305108||R IRMAO JOSE|20||SANTA FAMILIA|
 

Estou fazendo o seguinte codigo:

For Linha := 0 To DM.SpedContribuicao.Bloco_0.Registro0150Count - 1 Do
  Begin
    LocaldeDestino := DM.SpedContribuicao.Bloco_0.Registro0150New.COD_PART;

End;
O que pode estar acontecendo? Desde já agradeço a atenção de todos.

[Juliomar Marchetti]

Tu está usando o componente de importação que possui ou está manualmente preenchendo o componente para isso?

[econdotta]

Bom dia, eu faço a importação do arquivo txt através do do componente ACBRSpedPCImp associado ao ACBRSpedFiscal seguindo o exemplo do ACBR, o bloco 0 Registro 0000 consigo ler corretamente. O problema fica na leitura do Bloco 0 Registro 150. A propriedade DM.SpedContribuicao.Bloco_0.Registro0150Count retorna sempre 0.

Obrigado

[Juliomar Marchetti]

Entendi. tu conseguiu fazer a correção? pois parece que quase ninguém está usando.

caso queira anexar a unit podemos validar
 

[econdotta]

Vou tentar ver o que consigo fazer. 

Obrigado

 

[econdotta]

Pessoal achei o meu erro.

Para acessar os Registros 0150 utilizei o seguinte código.
   For Linha := 0 To SpedFiscal.Bloco_0.Registro0001.Registro0150.Count - 1 Do
   Begin
      Codigo := SpedFiscal.Bloco_0.Registro0001.Registro0150.Items[Linha].COD_PART;
  End;

Muito obrigado a todos.

[Juliomar Marchetti]

Erro no componente? se for anexe a alteração que validamos

[Juliana Tamizou]

Obrigado por reportar.

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

[EMBarbosa]

Apenas para registro, não consegui reproduzir esse problema. Não parece ser no componente.

Mas notei o seguinte destacado em negrito na mensagem:

Em 18/07/2020 at 07:54, econdotta disse:

Bom dia, eu faço a importação do arquivo txt através do do componente ACBRSpedPCImp associado ao ACBRSpedFiscal seguindo o exemplo do ACBR, o bloco 0 Registro 0000 consigo ler corretamente. O problema fica na leitura do Bloco 0 Registro 150. A propriedade DM.SpedContribuicao.Bloco_0.Registro0150Count retorna sempre 0.

Obrigado

Como se pode ver, apesar de estarmos falando de importação pelo componente do SPED Fiscal, o componente citado no código parece ser o do PIS/COFINS (SpedContribuicao).

Assim, é possível que o erro seja apenas a troca dos componentes nessa linha específica.