SPED ECF - Leiaute 7.0

[SG Sistemas]

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

[Juliomar Marchetti]

No SVN

Obrigado