Ir para conteúdo
  • Cadastre-se

dev botao

Evento 2200 cnpjEmpregAnt


emarcolongo
Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 556 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia

Atualmente na leitura do arquivo ini existe o codigo abaixo:

      sSecao := 'sucessaoVinc';
      if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then
      begin
        vinculo.sucessaoVinc.tpInscAnt     := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1'));
        vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '');
        vinculo.sucessaoVinc.MatricAnt     := INIRec.ReadString(sSecao, 'matricAnt', '');
        vinculo.sucessaoVinc.dtTransf      := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0'));
        vinculo.sucessaoVinc.Observacao    := INIRec.ReadString(sSecao, 'observacao', '');
      end;

mas na versão simplificada não há mais a tag 'cnpjEmpregAnt'

Fiz a alteração para avaliarem:

      sSecao := 'sucessaoVinc';
      //if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then
      //begin
        vinculo.sucessaoVinc.tpInscAnt     := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1'));
        vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '');
        vinculo.sucessaoVinc.MatricAnt     := INIRec.ReadString(sSecao, 'matricAnt', '');
        vinculo.sucessaoVinc.dtTransf      := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0'));
        vinculo.sucessaoVinc.Observacao    := INIRec.ReadString(sSecao, 'observacao', '');

        vinculo.sucessaoVinc.tpInscAnt     := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInsc', '1'));
        vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'nrInsc', '');
      //end;

 

Grato

Eduardo/Keli - AS Informática

pcesS2200.pas

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution
Em 18/02/2022 at 09:52, emarcolongo disse:

Bom dia

Atualmente na leitura do arquivo ini existe o codigo abaixo:

      sSecao := 'sucessaoVinc';
      if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then
      begin
        vinculo.sucessaoVinc.tpInscAnt     := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1'));
        vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '');
        vinculo.sucessaoVinc.MatricAnt     := INIRec.ReadString(sSecao, 'matricAnt', '');
        vinculo.sucessaoVinc.dtTransf      := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0'));
        vinculo.sucessaoVinc.Observacao    := INIRec.ReadString(sSecao, 'observacao', '');
      end;

mas na versão simplificada não há mais a tag 'cnpjEmpregAnt'

Fiz a alteração para avaliarem:

      sSecao := 'sucessaoVinc';
      //if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then
      //begin
        vinculo.sucessaoVinc.tpInscAnt     := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1'));
        vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '');
        vinculo.sucessaoVinc.MatricAnt     := INIRec.ReadString(sSecao, 'matricAnt', '');
        vinculo.sucessaoVinc.dtTransf      := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0'));
        vinculo.sucessaoVinc.Observacao    := INIRec.ReadString(sSecao, 'observacao', '');

        vinculo.sucessaoVinc.tpInscAnt     := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInsc', '1'));
        vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'nrInsc', '');
      //end;

 

Grato

Eduardo/Keli - AS Informática

pcesS2200.pas 29 kB · 0 downloads

Muito obrigado pela contribuição

Adicionei na minha lista de tarefas TK-2390.

Assim que possível darei um retorno.

[]'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 para o comentário
Compartilhar em outros sites

  • 5 meses depois ...
  • 1 mês depois ...
  • Consultores
55 minutos atrás, Kelly Diego Rakelly disse:

bom dia @EMBarbosa sobre essa atualização já se encontra no SVN?

Olá.

   Creio que sim. Mas, já houveram várias modificações nessa parte do código... Por exemplo as relacionadas nesse tópico abaixo

Se ainda estiverem com problemas, por favor, queiram detalhar o problema para que possamos analisar melhor.

 

Em 09/08/2022 at 22:15, IMATECH disse:

Ajuste adicional, não esta gerando a tag [sucessaoVinc] no Layout S.1 e/ou Simplificado

*removido limitação para geração somente até a versão/Layout 2.5

pcesS2200.pas 32 kB · 1 download

Desculpe a demora no retorno. Mas eu não entendi bem a modificação já que os dois "IF" são excludentes, um para pegar a versão 2.5 e o outro pra pegar justamente as versões simplificado S1 e posteriores...

[]'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 para o comentário
Compartilhar em outros sites

  • Consultores
3 horas atrás, IMATECH disse:

*Melhoria sugerida seria começar a eliminar código exclusivo para versões legadas do eSocial ( Layout 2.5 e anteriores)

Podemos fazer isso aos poucos a medida que vamos recebendo contribuições... muito obrigado pela sugestão.

[]'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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.