Código Da Situação Do Registro 1900 Efd-Contribuições.

[Ezequiel]

No guia prático versão 1.11 do EFD-Contribuições campo 06 – COD_SIT do registro 1900 é informado os seguintes códigos de situação:

00 – Documento regular

02 – Documento cancelado

99 – Outros

Porem nos componente disponibilizados pela AcBr na unit ACBrEPCBloco_1_Class.pas,os códigos de situação apresentados não estão de acordo com o que é especificado no guia prático, com isso gerando o arquivo de forma incorreta. Segue a baixo como está agora:

 

procedure TBloco_1.WriteRegistro1900(Reg1001: TRegistro1001);

var strCOD_SIT,

    strCST_PIS,

    strCST_COFINS:string;

    intFor:Integer;

begin

  if Assigned(Reg1001.Registro1900) then

  begin

     for intFor := 0 to Reg1001.Registro1900.Count - 1 do

     begin

        with Reg1001.Registro1900.Items[intFor] do

        begin

          //if Length(CNPJ) > 0 then Check(funChecaCNPJ(CNPJ), '(0-1900) %s-%s, o CNPJ "%s" digitado é inválido!', [CNPJ]);

 

          case COD_SIT of

            sdfRegular           : strCOD_SIT  := '00';

            sdfExtRegular        : strCOD_SIT  := '01';

            sdfCancelado         : strCOD_SIT  := '02';

            sdfExtCancelado      : strCOD_SIT  := '03';

            sdfDenegado          : strCOD_SIT  := '04';

            sdfInutilizado       : strCOD_SIT  := '05';

            sdfComplementar      : strCOD_SIT  := '06';

            sdfExtComplementar   : strCOD_SIT  := '07';

            sdfEspecial          : strCOD_SIT  := '08';

          end;