Evento 2200 cnpjEmpregAnt

[emarcolongo]

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

[EMBarbosa]

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.

[IMATECH]

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

[Kelly Diego Rakelly]

Em 21/02/2022 at 15:57, EMBarbosa disse:

Muito obrigado pela contribuição

Adicionei na minha lista de tarefas TK-2390.

Assim que possível darei um retorno.

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

[EMBarbosa]

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...

[IMATECH]

@EMBarbosa Tardes

Verifiquei no repositório e vejo os ajustes já implementados no commit r25764

Tópico encerrado, obrigado.

 

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

[EMBarbosa]

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.