Dúvida Bloco D - Registro D100

[rvaccari]

No manual do EFD versão 1.07, página 136, o campo 17 - IND_FRT sofrerá uma alteração a partir de 01/07/2012. Alterei a unit ACBrEPCBloco_D_Class.pas linha 563.

Caso não seja a forma apropriada, favor desconsiderar e se possível indicar uma forma mais elegante para proceder a alteração.

if Date() < StrToDate('01/07/2012') then   // 18/06/2012 - rvaccari

begin

  case IND_FRT of

    tfPorContaTerceiros        : strIND_FRT := '0';

    tfPorContaEmitente         : strIND_FRT := '1';

    tfPorContaDestinatario     : strIND_FRT := '2';

    tfSemCobrancaFrete         : strIND_FRT := '9';

    tfNenhum : strIND_FRT      := '';

  end;

end

else

begin

  case IND_FRT of

    tfPorContaEmitente         : strIND_FRT := '0';

    tfPorContaDestinatario     : strIND_FRT := '1';

    tfPorContaTerceiros        : strIND_FRT := '2';

    tfSemCobrancaFrete         : strIND_FRT := '9';

    tfNenhum : strIND_FRT      := '';

  end;

end;

[EMBarbosa]

Seria melhor verificar a data especificada no Bloco 0 ao invés de usar a função Date().

[rvaccari]

Dessa forma?

if Bloco_0.DT_INI < StrToDate('01/07/2012') then   // 18/06/2012 - rvaccari

begin

  case IND_FRT of

    tfPorContaTerceiros        : strIND_FRT := '0';

    tfPorContaEmitente         : strIND_FRT := '1';

    tfPorContaDestinatario     : strIND_FRT := '2';

    tfSemCobrancaFrete         : strIND_FRT := '9';

    tfNenhum : strIND_FRT      := '';

  end;

end

else

begin

  case IND_FRT of

    tfPorContaEmitente         : strIND_FRT := '0';

    tfPorContaDestinatario     : strIND_FRT := '1';

    tfPorContaTerceiros        : strIND_FRT := '2';

    tfSemCobrancaFrete         : strIND_FRT := '9';

    tfNenhum : strIND_FRT      := '';

  end;

end;

[EMBarbosa]

Isso.

[rodrigofmp]

Também aguardo por esse ajuste.

[EMBarbosa]

Subi para o SVN na revisão 3932