Dúvida Bloco C - Registro C100

[rvaccari]

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?

[analista.edilson]

Eu acho mais prudente testar a data do dodos

para setar o conteúdo da variável "strIND_PGTO".

[Angelo Gomes]

Ola amigos, realmente já a partir do mês 07 mudaram os código para os tipos de pagamento. Fiz uma solução parecida com a do amigo que abriu o tópico, para meus clientes já conseguirem emitir.

[netstart]

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

[pedron]

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:

[Gr@c@]

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.

[JLuis]

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.

[Gr@c@]

Pessoal, como será a solução correta dessa questão? Já estamos gerando mes 07 e ainda persiste o erro. As alterações feitas pelo nosso colega rvaccari não foram aprovadas?

[adilsonpazzini]

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 .

[adilsonpazzini]

Acho que poderia deixar o tipo tpSemPagamento , Mais bloquealo no C100

[dantemartins]

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.

[Isaque Pinheiro]

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.