Ir para conteúdo
  • Cadastre-se

dev botao

S-1200 TSV erro tag infoComplCont


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

Recommended Posts

Os trabalhadores TSV tem que informar a TAG.

Mas se enformar da erro , ela fica no ideDmDev.

        with infoComplCont do
        Begin
          infoComplCont.codCBO       := '111111';
          infoComplCont.natAtividade := navNaoInformar;
          infoComplCont.qtdDiasTrab  := 1;
        End;

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Edmar,

Segundo o manual do eSocial versão 2.4.02 o grupo infoComplCont fica dentro do grupo dmDev, visto que o ideDmDev é um elemento que também fica dentro do grupo dmDev.

No manual consta a seguinte observação referente ao grupo infoComplCont:

Registro preenchido exclusivamente quando o evento de remuneração se referir a trabalhador cuja categoria não estiver obrigada ao evento de início de TSVE e se não houver evento S-2300 correspondente (CPF + categoria). 

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Sim, mas quando prenche o mesmo da erro.

 

No Exemploesocial não esta implementado.

 

Mas acrecentei e gerei, mas da erro quando acessa as propriedades.  Tenho TSV que não envia por falta desta tag que da erro ao ser preenchida.

 

 

veja codigo

procedure TFExemploEsocial.GerareSocial1200;
begin
  with ACBreSocial1.Eventos.Periodicos.S1200.Add do
  begin
    with evtRemun do
    begin
      Sequencial := 0;

      with ideEvento do
      begin
        indRetif := ireOriginal;
        // NrRecibo  := '4564654'; Numero do recibo que será retificado.
        IndApuracao := tpIndApuracao(iapuMensal);
        perApur := '052015';
        TpAmb := taProducaoRestrita;
        ProcEmi := peAplicEmpregador;
        VerProc := '1.0';
      end;

      IdeEmpregador.TpInsc := tiCNPJ;
      IdeEmpregador.NrInsc := '012345678987654';

      with ideTrabalhador do
      begin
        CpfTrab := '01234567890';
        NisTrab := '09876543210';

        with infoMV do
        begin
          indMV := imvDescontadaempregador;

          { Os Grupos abaixo são opcionais
            O grupo abaixocorresponde a funcionários que tenham dois empregos em empresas diferentes }
            remunOutrEmpr.Clear;

          with remunOutrEmpr.Add do
          begin
            TpInsc := tiCNPJ;
            NrInsc := '01234567890123';
            CodCateg := 222;
            vlrRemunOE := 1230.10;
          end;
        end;

        // o grupo abaixo corresponde apenas a trabalhadores cuja categoria não está sujeita ao evento de admissão
        // ou TSV-início
        with infoComplem do
        begin
          NmTrab := 'João das Neves';
          DtNascto := date;
          codCBO := '000001';
          NatAtividade := navUrbano;
          qtdDiasTrab := 10;

          with sucessaoVinc do
          begin
            cnpjEmpregAnt := '12345678987654';
            MatricAnt := '123';
            DtAdm := Now;
            observacao := 'obs sucessao vinc';
          end;
        end;

        // os dados abaixo só devem ser informados em caso do processo existir e houver decisão que incida sobre as
        // contribuições
        procJudTrab.Clear;

        with procJudTrab.Add do
        begin
          tpTrib := tptPrevidenciaria;
          nrProcJud := '95135703320156150258';
          codSusp := 1;
        end;
      end;

      dmDev.Clear;

      with dmDev.Add do
      begin
        ideDmDev := '1';
        CodCateg := 111;

        with infoPerApur.ideEstabLot.Add do
        begin
          TpInsc := tiCNPJ;
          NrInsc := '012345678987654';
          codLotacao := 'SACI54321';
          qtdDiasAv := 22;

          remunPerAnt.Clear;

          with remunPerApur.Add do
          begin
            Matricula := 'A1234';
            indSimples := idsIntegralmente;

            itensRemun.Clear;

            with itensRemun.Add do
            begin
              CodRubr := '987654';
              ideTabRubr := 'E380';
              qtdRubr := 100;
              fatorRubr := 50;
              vrUnit := 3296.35;
              vrRubr := 3330.30;
            end;

            infoSaudeColet.detOper.Clear;

            with infoSaudeColet.detOper.Add do
            begin
              cnpjOper := '01234567898765';
              regANS := 'A1B2C3';
              vrPgTit := 1.50;

              detPlano.Clear;

              with detPlano.Add do
              begin
                tpDep := tdConjuge;
                cpfDep := '01234567898';
                nmDep := 'José das Areias';
                DtNascto := date;
                vlrPgDep := 0.75;
              end;
            end;

            infoAgNocivo.grauExp := ge1;
          end;
        end;


        infoPerAnt.ideADC.Clear;

        with infoPerAnt.ideADC.Add do
        begin
          dtAcConv := Now;
          tpAcConv := tacLegislacaoFederalEstadualMunicipalDistrital;
          dtEfAcConv := Now;
          compAcConv := '2017-01';
          dsc := 'Dissídio';

          idePeriodo.Clear;

          with IdePeriodo.Add do
          begin
            perRef := '201504';

            ideEstabLot.Clear;

            with ideEstabLot.Add do
            begin
              TpInsc := tiCNPJ;
              NrInsc := '01234567898765';
              codLotacao := 'TESTE123';

              remunPerAnt.Clear;

              with remunPerAnt.Add do
              begin
                Matricula := 'A1234';
                indSimples := idsIntegralmente;

                itensRemun.Clear;

                with itensRemun.Add do
                begin
                  CodRubr := '987654';
                  ideTabRubr := 'E380';
                  qtdRubr := 100;
                  fatorRubr := 50;
                  vrUnit := 3296.35;
                  vrRubr := 3330.30;
                end;

                infoAgNocivo.grauExp := ge1;
              end;
            end;
          end;
        end;

        infoTrabInterm.Clear;

        with infoTrabInterm.Add do
          codConv := '123456';

        with infoComplCont do
        Begin
          infoComplCont.codCBO       := '111111';
          infoComplCont.natAtividade := navNaoInformar;
          infoComplCont.qtdDiasTrab  := 1;
        End;


      end;
    end;
  end;
end;

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Edmar,

Primeiramente, peço que não poste fragmento de códigos longo como texto da postagem, procure colocar em um arquivo texto e anexar.

Qual é o erro que ocorre?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

o erro e interno, acho que não esta implementado a inicialização.

      with infoComplCont do
        Begin
          infoComplCont.codCBO       := '111111';

// ja da erro em execução em qualquer destas..


          infoComplCont.natAtividade := navNaoInformar;
          infoComplCont.qtdDiasTrab  := 1;
        End;

 

 

qualquer uma das propriedades se tentar usa-las da erro em execução.

 

 

Link para o comentário
Compartilhar em outros sites

  • Solution

@Italo Jurisato Junior o que o @EdmarFrazao está falando é que a classe TInfoComplCont em S1200 não está sendo criada dai quando tentamos preencher qualquer uma das propriedades (codCBO/codCBO/qtdDiasTrab )
Gera um  Access violation pois a classe ainda não foi criada. 


image.png.7683f831e98b77d1cfc6bb0732894b7f.png

Ela não é um TCollection e deveria ser criada no create da classe TDMDevCollection(dmDev)


Obs* Não postei a solução porque identifiquei o erro agora, se conseguir resolver posto o código.

Editado por Alisson Souza Pereira
Incompleto
  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Alisson,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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