Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Dúvida Bloco D - Registro D100


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

Recommended Posts

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;

Link to comment
Share on other sites

  • Consultores

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

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

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;

Link to comment
Share on other sites

  • Consultores

Isso.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • 2 months later...
  • Consultores

Subi para o SVN na revisão 3932

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.