Jump to content

dev botao

Dúvida Bloco C - Registro C100


rvaccari
  • Este tópico foi criado há 4326 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 70, o campo 13 - IND_PGTO sofrerá uma alteração a partir de 01/07/2012.

A indicação de pgto "9- Sem pagamento" será substituída pela "2 - Outros".

Nesse caso, será alterado a unit ACBrEPCBlocos.pas acrescentando a opção tpOutros


TACBrTipoPagamento = (

                         tpVista,             // 0 - À Vista

                         tpPrazo,             // 1 - A Prazo

                         tpOutros,            // 2 - Outros

                         tpSemPagamento,      // 9 - Sem pagamento

                         tpNenhum             // Preencher vazio

                        );

e a unit ACBrEPCBloco_C_Class.pas, acrescentando a opção tpOutros

          case IND_PGTO of

            tpVista : strIND_PGTO        := '0';

            tpPrazo : strIND_PGTO        := '1';

            tpOutros: strIND_PGTO        := '2';

            tpSemPagamento : strIND_PGTO := '9';

            tpNenhum : strIND_PGTO       := '';

          end;

Ou existe uma forma mais apropriada de atender esse requisito?

Link to comment
Share on other sites

  • 2 weeks later...
  • 4 weeks later...
  • Membros Pro

Ocorreu o mesmo comigo , optei por substituir a campo:

TACBrTipoPagamento = (

tpVista, // 0 - À Vista

tpPrazo, // 1 - A Prazo

tpOutros, // 2 - Outros

tpNenhum // Preencher vazio

);

Acho que assim não vai confundir ja que a opção anterior não vai existir mais, vou anexar as units que eu mexi para o pessoal avaliar e subir para o SVN.

ACBrEPCBloco_A_Class.pas

ACBrEPCBloco_C_Class.pas

ACBrEPCBlocos.pas

Jorge – Analise / Desenvolvimento de Sistemas

Netstart Informatica - (18)3642-0900

www.netstart.com.br

Link to comment
Share on other sites

  • 2 weeks later...

Eu postei esse mesmo problema em outro tópico, mas trancaram o tópico porque não pesquisei, foi mals, cagada minha...

Beleza, só que o EMBarbosa, o usuário que trancou o tópico, não falou se vai aplicar as alterações ou não...

Acredito que a solução do rvaccari (que abriu o tópico) seja melhor que esta última (do netstart) porque também contempla arquivos antigos (caso seja necessário gerar arquivos substitutos).

A do rvaccari é igual a minha, lá no meu tópico fechado eu postei os arquivos:

Link to comment
Share on other sites

  • Moderadores

Fiz o update do componente hoje e a implementação ainda não foi feita.

/// Indicador do tipo de pagamento

TACBrTipoPagamento = (

tpVista, // 0 - À Vista

tpPrazo, // 1 - A Prazo

tpSemPagamento, // 9 - Sem pagamento

tpNenhum // Preencher vazio

);

usando tpSemPagamento e tpNenhum dá erro no validador, usando arquivo com versão de layout 003.

Link to comment
Share on other sites

  • Membros Pro

Estou com o mesmo problema :-(

Há previsão de alguém subir pro SVN alguma das soluções apresentadas?

Tem empresa precisando gerar os dados, me parece que o prazo é dia 16 e eu não queria fazer gambiarra pois dependendo da solução adotada implicará em nova atualização nos clientes.

Desde já agradeço.

Link to comment
Share on other sites

  • 2 weeks later...

Então GALERA . ref a alteração

TACBrTipoPagamento = (

tpVista, // 0 - À Vista

tpPrazo, // 1 - A Prazo

tpOutros, // 2 - Outros

tpNenhum // Preencher vazio

); de tipo excluir o tipo 9 ... Para o bloco A100 a.. o tpSemPagamento , deve continuar existindo . pois o Validador exige esse campo .

Adilson Pazzini .

Link to comment
Share on other sites

  • 2 weeks later...

Fiz assim aqui:


          case IND_PGTO of

            tpVista : strIND_PGTO := '0';

            tpPrazo : strIND_PGTO := '1';

            tpSemPagamento :

            begin

              if FBloco_0.Registro0000.DT_INI >= 41091 then //01/07/2012

                strIND_PGTO := '2'

              else

                strIND_PGTO := '9';

            end;

            tpNenhum : strIND_PGTO := '';

          end;

Porque senão meus clientes não poderão gerar arquivos anteriores a 01/07/2012 se simplesmente trocar 9 por 2.

Link to comment
Share on other sites

Fiz assim aqui:


case IND_PGTO of
tpVista : strIND_PGTO := '0';
tpPrazo : strIND_PGTO := '1';
tpSemPagamento :
begin
if FBloco_0.Registro0000.DT_INI >= 41091 then //01/07/2012
strIND_PGTO := '2'
else
strIND_PGTO := '9';
end;
tpNenhum : strIND_PGTO := '';
end;
[/code]

Porque senão meus clientes não poderão gerar arquivos anteriores a 01/07/2012 se simplesmente trocar 9 por 2.

Bom dia Dante, subi uma implementação baseada nessa que vc fez, se puder baixar, testar e me da um retorno se funcionou agradeço.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 4326 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.