S-1200 TSV erro tag infoComplCont

[EdmarFrazao]

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;

 

[Italo Giurizzato Junior]

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

[EdmarFrazao]

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;

 

[Italo Giurizzato Junior]

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?

[EdmarFrazao]

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.

 

 

[Alisson Souza Pereira]

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



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.

Edited May 17, 2018 by Alisson Souza Pereira
Incompleto

[Alisson Souza Pereira]

Alterações no S-1200 para informações de TSV
pcesS1200.pas

[Italo Giurizzato Junior]

Bom dia Alisson,

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