Importar SPED FIscal

[nazarenoneto]

Boa noite pessoal, faz tempo que não mecho com SPED e queria saber se tem algum componente importador do SPED Fiscal, lendo do txt e alimentando o componente ACBrSPEDFiscal?

[EMBarbosa]

Não... Tem para o PIS/COFINS.

[Juliomar Marchetti]

Lembrando que é um componente separado!

minha sugestão é usar o próprio componente e preencher o mesmo com os dados !

[nazarenoneto]

Vlw pessoal, é porque um cliente quer que eu faço a importação, manipule algumas informações para ele e depois gere novamente o arquivo, vou alterar apenas o bloco H, vou ver como fazer, se for o caso vou me base no importador do PIS/COFINS e faço um novo, ou então apenas altero na "mão" mesmo o que ele quer.

[Rodrigo - Digibyte]

Foi feito alguma coisa para importar Sped Fiscal? Se não tiver nada vou iniciar com base no TFrmImpoSped

[Juliomar Marchetti]

1 hora atrás, Digibyte disse:

Foi feito alguma coisa para importar Sped Fiscal? Se não tiver nada vou iniciar com base no TFrmImpoSped

Não tem !

mas a sugestão é que faça o load no componente mesmo sem criar um novo para isso. pois o que tem hoje para alguns speds está criando outro componente

[Rodrigo - Digibyte]

Realmente acho que a opção de load ficaria melhor. No momento porém eu teria que estudar um pouco mais como fazer e levaria mais tempo pois não tenho tanta experiência com a parte de componentes. De qualquer forma desenvolvi o importador Fiscal com base no importador Contribuições.

ACBr_SPEDImportar.dpk

ACBrEFDBlocos.pas

ACBrSPEDFiscalImportar.rar

[Juliomar Marchetti]

Em 13/07/2017 at 15:02, Digibyte disse:

Realmente acho que a opção de load ficaria melhor. No momento porém eu teria que estudar um pouco mais como fazer e levaria mais tempo pois não tenho tanta experiência com a parte de componentes. De qualquer forma desenvolvi o importador Fiscal com base no importador Contribuições.

ACBr_SPEDImportar.dpk

ACBrEFDBlocos.pas

ACBrSPEDFiscalImportar.rar

Boa noite

não entendi . tu colocou no mesmo componente pra importar isso

como faço pra usar e configurações.

[Rodrigo - Digibyte]

Foi criado um novo componente (TACBrSpedFiscalImportar) que é o importador do Sped Fiscal. Ele foi criado nos mesmos moldes do importador do Sped Contribuições e colocado no mesmo pacote de instalação. Para usá-lo basta ligar o mesmo, pela propriedade ACBrSpedFiscal, a um TAcbrSpedFiscal e usar da seguinte forma:

  if OpenDialog.Execute then
  begin
    ACBrSpedImpEF.Arquivo := OpenDialog.FileName; (ler arquivo sped)
    ACBrSpedImpEF.Importar;
  end;

Feito isso estarão disponíveis os valores como por exemplo:

  with ACBrSpedImpEF.ACBrSPEDFiscal.Bloco_0 do
  begin
    vCnpj := ACBrSpedImpEF.ACBrSpedFiscal.Bloco_0.Registro0000.CNPJ;
    vCpf := ACBrSpedImpEF.ACBrSpedFiscal.Bloco_0.Registro0000.CPF;
  end;

Pode ter melhorias a fazer mas está plenamente funcional.

[Juliomar Marchetti]

Boa tarde

subi ao svn mas se quiser ajudar e deixar essa possibilidade junto ao componente do Sped é melhor

[Rodrigo - Digibyte]

Segue correção da importação dos registros C500, C590

ACBrEFDBloco_C_Importar.pas

[Juliomar Marchetti]

21 horas atrás, Digibyte disse:

Segue correção da importação dos registros C500, C590

ACBrEFDBloco_C_Importar.pas

Bom dia

Obrigado já está no svn.

[Rodrigo - Digibyte]

Segue uma pequena correção que valida as linhas do arquivo sped, ignorando quando não tem o "pipe". Alguns sistemas ERP geram uma linha com um comentário e isso causava erro.

ACBrEFDImportar.pas

[Rodrigo - Digibyte]

Além da alteração acima, mais uma que implementa o registro C465. São alterações no ACBrImporta e no ACBrSped.

ACBrEFDBloco_C.pas

ACBrEFDBloco_C_Class.pas

ACBrEFDBloco_C_Events.pas

ACBrEFDBloco_C_Importar.pas

ACBrSpedFiscal.pas

[Juliomar Marchetti]

2 horas atrás, Digibyte disse:

Além da alteração acima, mais uma que implementa o registro C465. São alterações no ACBrImporta e no ACBrSped.

ACBrEFDBloco_C.pas

ACBrEFDBloco_C_Class.pas

ACBrEFDBloco_C_Events.pas

ACBrEFDBloco_C_Importar.pas

ACBrSpedFiscal.pas

estão no svn.

mas por favor tente separar em tópicos distintos mesmo sendo quase um único situação mas separe.

[ivanilsonpacheco]

Bom dia, não sei seria aqui mesmo, mas poderiam me dar um help pra ler o registro c100 e c190?

[BigWings]

Bom dia,

3 minutos atrás, ivanilsonpacheco disse:

não sei seria aqui mesmo

Se está usando o componente, e a dúvida tem a ver com o tópico, sim, é aqui mesmo.

3 minutos atrás, ivanilsonpacheco disse:

mas poderiam me dar um help pra ler o registro c100 e c190?

Qual o problema?

[ivanilsonpacheco]

Estou tentando ler o conteúdo do registro C100 e C190, mas não consegui, todas as formas que tentei só me retorna vazio.

Se faço assim, consigo obter dados do RegistroC001, mas se mudar pra o c190 não retorna nada. Não tenho muita experiencia com ACBr.

begin
  opendialog1.FileName := '';
  if opendialog1.Execute then
  begin

    ACBrSpedFiscalImportar1.Arquivo := opendialog1.FileName;
    ACBrSpedFiscalImportar1.Importar;


    with ACBrSpedFiscalImportar1.ACBrSpedFiscal.Bloco_C do
    begin
      memo1.Lines.Add(ACBrSpedFiscalImportar1.ACBrSpedFiscal.Bloco_C.RegistroC001New.RegistroC100.Items[0].COD_MOD);
    end;
  end;

 

[BigWings]

25 minutos atrás, ivanilsonpacheco disse:

    with ACBrSpedFiscalImportar1.ACBrSpedFiscal.Bloco_C do     begin       memo1.Lines.Add(ACBrSpedFiscalImportar1.ACBrSpedFiscal.Bloco_C.RegistroC001New.RegistroC100.Items[0].COD_MOD);     end;

Os métodos com final New servem para gerar um novo registro no SPED e não consultar.

Teste assim:

  for I := 0 to ACBrSPEDFiscal1.Bloco_C.RegistroC001.RegistroC100.Count - 1 do
    Memo1.Lines.Add(ACBrSPEDFiscal1.Bloco_C.RegistroC001.RegistroC100.Items[I].CHV_NFE);

 

[ivanilsonpacheco]

Obrigado BigWings, vou testar aqui, assim que possível dou um retorno.

[Rodrigo - Digibyte]

Eu uso +- assim, acho que dá pra entender

 

      for i := 0 to ACBrSpedImpEF.ACBrSpedFiscal.Bloco_C.RegistroC001.RegistroC100.Count -1 do
      begin
        with ACBrSpedImpEF.ACBrSpedFiscal.Bloco_C.RegistroC001.RegistroC100.Items do             

          begin         

              for j := 0 to RegistroC190.Count -1 do
              begin
                  with RegistroC190.Items[j] do
                  begin

                      seu código :=  VL_BC_ICMS;

                      etc ...

                  end;
              end;

     end

[warlingarcia]

Olá , alguem poderia me ajudar a ler o 0200? existe essa possibilidade?