Dúvida BLOCO 0 - REGISTRO0000

[djtrcprog]

Bom dia!

Quando TIPO_ESCRIT = 0 não devo informar NUM_REC_ANTERIOR, porem ele traz 41 zeros. Como passar NUM_REC_ANTERIOR vazio?

Obrigado!

[EMBarbosa]

Eu não tive prazo ainda para testar. Mas se puder fazê-lo, altere a seguinte função no arquivo ACBrEPCBloco_0_Class.pas:

procedure TBloco_0.WriteRegistro0000;

var

strCOD_VER: AnsiString;

strTIPO_ESCRIT: AnsiString;

strIND_SIT_ESP: AnsiString;

strIND_NAT_PJ: AnsiString;

strIND_ATIV: AnsiString;

strNUM_REC_ANTERIOR: AnsiString;

begin

  if Assigned(Registro0000) then

  begin

     with Registro0000 do

     begin

       case COD_VER of

         vlVersao100: strCOD_VER := '001'; // Código 001 - Versão 100 ADE Cofis nº 31/2010 de 01/01/2011

         vlVersao101: strCOD_VER := '002'; // Código 002 - Versão 101 ADE Cofis nº 34/2010 de 01/01/2011

       end;

       case TIPO_ESCRIT of

         tpEscrOriginal: strTIPO_ESCRIT := '0';

         tpEscrRetificadora: strTIPO_ESCRIT := '1';

       end;

       case IND_SIT_ESP of

         indSitAbertura: strIND_SIT_ESP := '0';

         indSitCisao: strIND_SIT_ESP := '1';

         indSitFusao: strIND_SIT_ESP := '2';

         indSitIncorporacao: strIND_SIT_ESP := '3';

         indSitEncerramento: strIND_SIT_ESP := '4';

         indNenhum: strIND_SIT_ESP := ' ';

       end;

       case IND_NAT_PJ of

         indNatPJSocEmpresariaGeral   : strIND_NAT_PJ := '00'; //0 - Sociedade empresária geral

         indNatPJSocCooperativa       : strIND_NAT_PJ := '01'; //1 - Sociedade Cooperativa

         indNatPJEntExclusivaFolhaSal : strIND_NAT_PJ := '02'; //2 - Entidade sujeita ao PIS/Pasep exclusivamente com base  na folha de salários

       end;

       case IND_ATIV of

         indAtivIndustrial: strIND_ATIV := '0';

         indAtivPrestadorServico: strIND_ATIV := '1';

         indAtivComercio: strIND_ATIV := '2';

         indAtivoFincanceira: strIND_ATIV := '3';

         indAtivoImobiliaria: strIND_ATIV := '4';

         indAtivoOutros: strIND_ATIV := '9';

       end;


       if (TIPO_ESCRIT = tpEscrRetificadora) then

          strNUM_REC_ANTERIOR := LFill( NUM_REC_ANTERIOR, 41 )

       else

          strNUM_REC_ANTERIOR := '';


       Check(funChecaCNPJ(CNPJ), '(0-0000) ENTIDADE: O CNPJ "%s" digitado é inválido!', [CNPJ]);

       Check(funChecaUF(UF), '(0-0000) ENTIDADE: A UF "%s" digitada é inválido!', [UF]);

       Check(funChecaMUN(COD_MUN), '(0-0000) ENTIDADE: O código do município "%s" digitado é inválido!', [IntToStr(COD_MUN)]);

       ///

       Add( LFill( '0000' ) +

            LFill( strCOD_VER ) +

            LFill( strTIPO_ESCRIT ) +

            LFill( strIND_SIT_ESP ) +

            LFill( strNUM_REC_ANTERIOR ) +

            LFill( DT_INI ) +

            LFill( DT_FIN ) +

            LFill( NOME ) +

            LFill( CNPJ ) +

            LFill( UF ) +

            LFill( COD_MUN, 7 ) +

            LFill( SUFRAMA, 9 ) +

            LFill( strIND_NAT_PJ ) +

            LFill( strIND_ATIV ) );

       ///

       Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;

     end;

  end;

end;[/code]


Obrigado pelo report.

[EMBarbosa]

Essa alteração já está no SVN.