Leitura Registro C800 - CFe SAT

[João Paulo Müller]

Olá prezados.

Fiz um ajuste no registro C800 incluindo alguns campos que não estavam sendo importados no SPED.

Segue alteração e unit em anexo.

procedure TACBrSpedFiscalImportar_BlocoC.RegC800;
begin
  with ACBrSpedFiscal.Bloco_C.RegistroC800New do
  begin
    COD_MOD    := Valor;
    COD_SIT    := StrToCodSit(Valor);
    NUM_CFE    := Valor;
    DT_DOC     := ValorD;
    VL_CFE     := ValorF;
    VL_PIS     := ValorF;
    VL_COFINS  := ValorF;
    CNPJ_CPF   := Valor;
    NR_SAT     := Valor;
    CHV_CFE    := Valor;
  end;
end;

 

ACBrEFDBloco_C_Importar.pas

[antonio.carlos]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[EMBarbosa]

Em 02/06/2021 at 00:26, João Paulo Müller disse:

Olá prezados.

Fiz um ajuste no registro C800 incluindo alguns campos que não estavam sendo importados no SPED.

Segue alteração e unit em anexo.

procedure TACBrSpedFiscalImportar_BlocoC.RegC800;
begin
  with ACBrSpedFiscal.Bloco_C.RegistroC800New do
  begin
    COD_MOD    := Valor;
    COD_SIT    := StrToCodSit(Valor);
    NUM_CFE    := Valor;
    DT_DOC     := ValorD;
    VL_CFE     := ValorF;
    VL_PIS     := ValorF;
    VL_COFINS  := ValorF;
    CNPJ_CPF   := Valor;
    NR_SAT     := Valor;
    CHV_CFE    := Valor;
  end;
end;

 

ACBrEFDBloco_C_Importar.pas 21 kB · 1 download

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  22310.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.