Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 1370 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

Boa tarde,

Fiz algumas alterações para tratar do Leiaute 7.0. Manual disponível em: http://sped.rfb.gov.br/arquivo/download/5717

ACBRECFBlocos.pas
acrescentado ECFVersao700 em:
- Type TACBrECFCodVer = (ECFVersao100, ECFVersao200, ECFVersao300, ECFVersao400, ECFVersao500, ECFVersao600, ECFVersao700);
- function CodVerToStr(AValue: TACBrECFCodVer): string;
- function StrToCodVer(const AValue: string): TACBrECFCodVer;

ACBrECFBloco_0_Class.pas
acrescentado ECFVersao700 em:
- procedure TBloco_0.WriteRegistro0010;
- procedure TBloco_0.WriteRegistro0020;

ACBrECFBloco_Y_Class.pas
acrescentado ECFVersao700 na procedure TBloco_Y.WriteRegistroY800;

 

Seguem em anexo, arquivos alterados para verificação e commit nos fontes.

 

ACBrECFBloco_0_Class.pas ACBrECFBloco_Y_Class.pas ACBrECFBlocos.pas

  • Curtir 2
  • Este tópico foi criado há 1370 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...