2400 erro 481

[digifred]

Bom dia estou com o seguinte problema: Erro 481 - O valor informado não pertence aos valores válidos para o campo: /esocial/envioloteeventos/@grupo

segue xml rejeitado:

<eSocial xmlns="http://www.esocial.gov.br/schema/evt/evtCdBenefIn/v_S_01_02_00">
<evtCdBenefIn Id="ID1875720790000002024082708013716167">
<ideEvento>
<indRetif>1</indRetif>
<tpAmb>2</tpAmb>
<procEmi>1</procEmi>
<verProc>24.5.27.0</verProc>
</ideEvento>
<ideEmpregador>
<tpInsc>1</tpInsc>
<nrInsc>87572079</nrInsc>
</ideEmpregador>
<beneficiario>
<cpfBenef>62389810097</cpfBenef>
<nmBenefic>NAINE</nmBenefic>
<dtNascto>1973-03-25</dtNascto>
<dtInicio>2024-07-11</dtInicio>
<sexo>F</sexo>
<racaCor>1</racaCor>
<estCiv>1</estCiv>
<incFisMen>N</incFisMen>
<endereco>
<brasil>
<tpLograd>R</tpLograd>
<dscLograd>SEBBEN</dscLograd>
<nrLograd>64</nrLograd>
<bairro>CENTRO</bairro>
<cep>98400000</cep>
<codMunic>4308508</codMunic>
<uf>RS</uf>
</brasil>
</endereco>
</beneficiario>
</evtCdBenefIn>
<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
<SignedInfo>
<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
<SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/>
<Reference URI="">
<Transforms>
<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
<Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
</Transforms>
<DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/>
<DigestValue>hDlQXdPMToP5uBlgkEo7S8bHSq7yljDVLhca77t+hU8=</DigestValue>
</Reference>
</SignedInfo>
<SignatureValue>INBWXjNTI4r3DA/FuUb8NUUO8I5vMnKNCHRviyiE9BOcac9QsMPTug+JUca+jfTOgRR4rGEKmnN6kubTQfIgxnF4iIMv2DuNncqv+tWsLen0CX5iVKMDipl4YqnX0ZhrSNSuEKzFko+4TQ3Ktwm6BKM91knu4zwYGR5W0fy9MEUvwb5pl5umyGRT5FUq+3PiUuMKKbD2feh25VOX2waERtWSzhsECZH0yVdup4NrTaQxYBxcZ3FJ0Vu4FxyvlYmoEb7ge+HE0KSepSehL+lo8L8KVo7TCrMZ4dI0/cO+EBoPG7zGzYfTJXSHAYKvM3oMW7mXe1fd+qyVC9/hYDoalg==</SignatureValue>
<KeyInfo>
<X509Data>
<X509Certificate>MIIHXDCCBUSgAwIBAgIIG0MjEhE73kIwDQYJKoZIhvcNAQELBQAwWTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxFTATBgNVBAsTDEFDIFNPTFVUSSB2NTEeMBwGA1UEAxMVQUMgU09MVVRJIE11bHRpcGxhIHY1MB4XDTIzMTIxMTE5NDMwMFoXDTI0MTIxMDE5NDMwMFowge8xCzAJBgNVBAYTAkJSMRMwEQYDVQQKEwpJQ1AtQnJhc2lsMQswCQYDVQQIEwJSUzEbMBkGA1UEBxMSU2FvIFZpY2VudGUgZG8gU3VsMR4wHAYDVQQLExVBQyBTT0xVVEkgTXVsdGlwbGEgdjUxFzAVBgNVBAsTDjI5ODAzOTAyMDAwMTQ4MRMwEQYDVQQLEwpQcmVzZW5jaWFsMRowGAYDVQQLExFDZXJ0aWZpY2FkbyBQSiBBMTE3MDUGA1UEAxMuTVVOSUNJUElPIERFIFNBTyBWSUNFTlRFIERPIFNVTDo4NzU3MjA3OTAwMDEwMzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAIFE1hkyIZvE3a/dOcOCYkJz0Usi8u4n93B6KV4kI4lZ8C6X1EVZPZ5Aakyoq5Aj8q67nsh2lh3JeZrmjv3SGzap/A23rbQs2xqAfQ698VTbKnv9FCCeWCbrZWsPpiP+E2i+p/0mdgCKCVjjzLLl5CosFVmLD2DzgTR2Ay+VPqMSxGey9EOqXieE8RAI/onlpc0cLe025eFk1KRCM5udxxiazKIAJBm62jfsi7A5mBtnMnZIX23Vvabx7h1K4grAMXpkg4eHauo2sDwQsHSQOn6xO5LoJR5qk1Np7ewB8PBLd01dd557hZehyeoi5gIt9KjGX+edsYJQ4LEYMg9XBiMCAwEAAaOCAo8wggKLMAkGA1UdEwQCMAAwHwYDVR0jBBgwFoAUxVLtJYAJ35yCyJ9Hxt20XzHdubEwVAYIKwYBBQUHAQEESDBGMEQGCCsGAQUFBzAChjhodHRwOi8vY2NkLmFjc29sdXRpLmNvbS5ici9sY3IvYWMtc29sdXRpLW11bHRpcGxhLXY1LnA3YjCBygYDVR0RBIHCMIG/gSRjb250YWRvcmlhQHNhb3ZpY2VudGVkb3N1bC5ycy5nb3YuYnKgIQYFYEwBAwKgGBMWRkVSTkFORE8gREEgUk9TQSBQQUhJTaAZBgVgTAEDA6AQEw44NzU3MjA3OTAwMDEwM6BABgVgTAEDBKA3EzUwNjAzMTk4MjAwMDEwOTUxMDI0MDAwMDAwMDAwMDAwMDAwMDEwODI1MjkyMzlTSlMvRElSU6AXBgVgTAEDB6AOEwwwMDAwMDAwMDAwMDAwXQYDVR0gBFYwVDBSBgZgTAECASYwSDBGBggrBgEFBQcCARY6aHR0cDovL2NjZC5hY3NvbHV0aS5jb20uYnIvZG9jcy9kcGMtYWMtc29sdXRpLW11bHRpcGxhLnBkZjAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgYwGA1UdHwSBhDCBgTA+oDygOoY4aHR0cDovL2NjZC5hY3NvbHV0aS5jb20uYnIvbGNyL2FjLXNvbHV0aS1tdWx0aXBsYS12NS5jcmwwP6A9oDuGOWh0dHA6Ly9jY2QyLmFjc29sdXRpLmNvbS5ici9sY3IvYWMtc29sdXRpLW11bHRpcGxhLXY1LmNybDAdBgNVHQ4EFgQUIzZskG4vzhEh94FsXw03wniFaLswDgYDVR0PAQH/BAQDAgXgMA0GCSqGSIb3DQEBCwUAA4ICAQChEvKnwDnVEN1wOevPaHKjGq3xza+64L2Z4M6gFrn3fWh2hkpB0s3PM9NVmd0tuy+dnSxfgFXrfT/gAPh3gY+aty3Rb8CcLy60A7jjxY4s5W0A4VpPhwxBBwKUvXU4nFBLftVzUpfuu3b33cjY8VNHtYM7UQlmOgNtNlpD9wwfEvAHogY6ywJUObnmqC9b7hhGOqmJ2SZoSrvwjqxqYeFSCurFUSKw2gKeXpV1dAY+79CWWjFbMt8X/DYOTRP/zKil7wKIYAhPS1WQjICWS5bVJItCUHuCwtTkU9xmm0nyZwLNCFMp1YpNQOnM1Amjz/ttsk97UmezzxjAM/l41Z7ciL0kfMyiF/Zr97XzmAEzaRraKm8Y8e5mhhDC0BSyJkmseS2gIXgI7NNgZkKpBToVj/OgdOeTSueElwAfS+RAQNvGjGnEjmmfVTxRGW8f9rztrBC3J+wNsH1mhJ50TT++BKG4TCVq1PwWC7Vs8aBIxZeC7emACbYp19QyPJJJ2kSHL1cD7brDLlh5im0zj84/fOYx2CL0aOpIgixiTsGZCLKj/y1CAuMg8x+ddOrnCgiHHHrrPxPk8Zi0NxKPT9W44yWboX09CIFSNjHRrduevlJCx8jlIQGQ/IfbiVZcRHQdMXPa1/AD6nzmBX4TIrhptvTVVdZZmivzrNMEYl9jLA==</X509Certificate>
</X509Data>
</KeyInfo>
</Signature>
</eSocial>

 

E a baixo segue o xml processado no nosso sistema antigo sem ACBR:
 

<eSocial xmlns="http://www.esocial.gov.br/schema/evt/evtCdBenefIn/v_S_01_02_00">
<evtCdBenefIn Id="ID1875720790000002024082708390300001">
<ideEvento>
<indRetif>1</indRetif>
<tpAmb>2</tpAmb>
<procEmi>1</procEmi>
<verProc>24.8.19.0</verProc>
</ideEvento>
<ideEmpregador>
<tpInsc>1</tpInsc>
<nrInsc>87570079</nrInsc>
</ideEmpregador>
<beneficiario>
<cpfBenef>00089810017</cpfBenef>
<nmBenefic>NAINE LO</nmBenefic>
<dtNascto>1973-03-25</dtNascto>
<dtInicio>2024-07-11</dtInicio>
<sexo>F</sexo>
<racaCor>1</racaCor>
<estCiv>1</estCiv>
<incFisMen>N</incFisMen>
<endereco>
<brasil>
<tpLograd>R</tpLograd>
<dscLograd>SEBBEN</dscLograd>
<nrLograd>64</nrLograd>
<bairro>CENTRO</bairro>
<cep>998700000</cep>
<codMunic>4308508</codMunic>
<uf>RS</uf>
</brasil>
</endereco>
</beneficiario>
</evtCdBenefIn>
</eSocial>

 

[Renato Rubinho]

Ao enviar o evento, você deve informar a qual grupo ele pertence. 

1. Se estiver utilizando o componente, veja como é feito no programa de exemplo

procedure TfrmACBreSocial.btnEnviarClick(Sender: TObject);
.
.
.
     ACBreSocial1.Enviar(TESocialGrupo(rdgGrupo.ItemIndex + 1));

 

2. Se estiver utilizando a Lib, segue documentação

https://acbr.sourceforge.io/ACBrLib/eSocial_EnviareSocial.html

 

[digifred]

@Renato Rubinho segue parcial de como enviamos, os outros eventos tbm sao montados assim:
 

if(not QrBuscaDados.IsEmpty)then
    begin
      sCNPJEmpregador  := QrBuscaDados.FieldByName('CNPJ_EMPR').AsString;

      if ((not IsEmpresaComNaturezaJuridicaQueGeraArquivoS1000(QrBuscaDados.FieldByName('COD_NATJUR').AsInteger)) and
          (Trim(QrBuscaDados.FieldByName('CNPJEFR_EMPR').AsString) <> '')) then
      begin
        sCNPJEmpregador := QrBuscaDados.FieldByName('CNPJEFR_EMPR').AsString;
      end;

      with FESocial.Eventos.NaoPeriodicos.S2400.New do
      begin
        with EvtCdBenefIn do
        begin
          Id := GerarChaveEsocial(Now(), sCNPJEmpregador, 0);
          SalvarIdEventoNoBanco(Id, IntToStr(FEvento.iCodigoEvento), FTransacao);

          with IdeEvento do
          begin
            if (FEvento.sTipoOperacao = CL_TIPOOPERACAOESOCIAL_RETIFICACAO) then
            begin
              IndRetif := ireRetificacao;
              NrRecibo := BuscaReciboUltimoEnvio(38, QrBuscaDados.FieldByName('COD_ESOCIAL').AsInteger);
            end
            else
            begin
              IndRetif := ireOriginal;
            end;

            procEmi  := peAplicEmpregador;
            verProc  := GetBuildInfo();
          end;

          sCNPJEmpregador := QrBuscaDados.FieldByName('CNPJ_EMPR').AsString;

          if (not IsEmpresaComNaturezaJuridicaQueGeraArquivoS1000(QrBuscaDados.FieldByName('COD_NATJUR').AsInteger)) and
              (Trim(QrBuscaDados.FieldByName('CNPJEFR_EMPR').AsString) <> '') then
          begin
            sCNPJEmpregador := QrBuscaDados.FieldByName('CNPJEFR_EMPR').AsString;
          end;

          with IdeEmpregador do
          begin
            tpInsc := tiCNPJ;
            nrInsc := sCNPJEmpregador;
          end;

          if (2 = CL_IDEEVENTO_TPAMBRESTRITO) then
          begin
            dDataDeInicioDeObrigatoriedadeDeEventosNaoPeriodicos := EncodeDate(2021, 11, 22);// EncodeDate(2020, 05, 01);
          end
          else
          begin
            dDataDeInicioDeObrigatoriedadeDeEventosNaoPeriodicos :=  EncodeDate(2021, 11, 22);
          end;

          with beneficiario do
          begin
            //dados pessoais do beneficiario
            CpfBenef                        := QrBuscaDados.FieldByName('CPF_FUNC').AsString;
            NmBenefic                       := QrBuscaDados.FieldByName('NOME_FUNC').AsString;
            DtNascto                        := QrBuscaDados.FieldByName('DATANASC_FUNC').AsDateTime;

            //pega data de inicio do beneficio
            QrInformacoesAdicionais.Close;
            QrInformacoesAdicionais.SQL.Text := CL_SQL_BENEFICIORPPS_2400;
            QrInformacoesAdicionais.ParamByName('COD_FUNC').AsInteger      := QrBuscaDados.FieldByName('COD_FUNC').AsInteger;
            QrInformacoesAdicionais.Open;

            if(QrInformacoesAdicionais.FieldByName('DATAINICIO_BEN').AsDateTime < dDataDeInicioDeObrigatoriedadeDeEventosNaoPeriodicos)then
            begin
              dtInicio                      := dDataDeInicioDeObrigatoriedadeDeEventosNaoPeriodicos;
              bDtInicioPosteriorAoInicioDaObrigatoriedade                    := False;
            end
            else
            begin
              dtInicio                      := QrInformacoesAdicionais.FieldByName('DATAINICIO_BEN').AsDateTime;
              bDtInicioPosteriorAoInicioDaObrigatoriedade                    := True;
            end;

            sexo                            := QrBuscaDados.FieldByName('SEXO_FUNC').AsString;

            case QrBuscaDados.FieldByName('COD_RACA').AsInteger of
              1 : racaCor  := CL_COR_INDIGENA;
              2 : racaCor  := CL_COR_BRANCA;
              4 : racaCor  := CL_COR_PRETA;
              6 : racaCor  := CL_COR_AMARELA;
              8 : racaCor  := CL_COR_PARDA;
              9 : racaCor  := CL_COR_NAO_INFORMADO;
            end;

            case QrBuscaDados.FieldByName('SIGLA_ESTCIV').AsString[1] of
              'C' : estCiv := CL_ESTADO_CIVIL_CASADO;
              'D' : estCiv := CL_ESTADO_CIVIL_DIVORCIADO;
              'J' : estCiv := CL_ESTADO_CIVIL_SEPARADO;
              'S' : estCiv := CL_ESTADO_CIVIL_SOLTEIRO;
              'V' : estCiv := CL_ESTADO_CIVIL_VIUVO;
            end;

            if(QrBuscaDados.FieldByName('POSSUIDOENCAGRAVE_FUNC').AsString = CG_SIM)then
            begin
              incFisMen                       := eSStrToSimNao(ok, CG_SIM);
              dtIncFisMen                     := QrBuscaDados.FieldByName('DATADOENCAGRAVE_FUNC').AsDateTime;
            end
            else
            begin
              incFisMen                       := eSStrToSimNao(ok, CG_NAO);
            end;

            if (IsEnderecoBrasil()) then
            begin
              with  Endereco.Brasil do
              begin
                TpLograd      := QrBuscaDados.FieldByName('SIGLA_TPLOG').AsString;
                DscLograd     := QrBuscaDados.FieldByName('ENDERECO_FUNC').AsString;
                NrLograd      := QrBuscaDados.FieldByName('NUMEROENDER_FUNC').AsString;
                Complemento   := QrBuscaDados.FieldByName('COMPLENDER_FUNC').AsString;
                Bairro        := QrBuscaDados.FieldByName('BAIRRO_FUNC').AsString;
                Cep           := QrBuscaDados.FieldByName('CEP_FUNC').AsString;
                CodMunic      := QrBuscaDados.FieldByName('CIDADE_ENDERECO').AsInteger;
                Uf            := QrBuscaDados.FieldByName('UF_ENDERECO').AsString;
              end;
            end
            else
            begin
               with  Endereco.Exterior do
               begin
                  PaisResid   := CompletarComZerosAEsquerda(QrBuscaDados.FieldByName('PAIS_EXT').AsString, 3);
                  DscLograd   := QrBuscaDados.FieldByName('ENDEXTERIOR_FUNC').AsString;
                  NrLograd    := QrBuscaDados.FieldByName('NROENDEXTERIOR_FUNC').AsString;
                  Complemento := QrBuscaDados.FieldByName('COMPLEXTERIOR_FUNC').AsString;
                  Bairro      := QrBuscaDados.FieldByName('BAIRROEXT_FUNC').AsString;
                  NmCid       := QrBuscaDados.FieldByName('NOMECIDADEEXTERIOR_FUNC').AsString;
                  CodPostal   := QrBuscaDados.FieldByName('CEPEXTERIOR_FUNC').AsString;
               end;
            end;

 

[Diego Foliene]

Boa tarde!

Em seu trecho de código não consta a informação mencionada pelo @Renato Rubinho.

Veja como é a função Enviar do componente ACBreSocial:

function TACBreSocial.Enviar(AGrupo: TeSocialGrupo): boolean;
begin
  WebServices.EnvioLote.Clear;

  result := WebServices.Envia(AGrupo);
end;

Note que ele requer um parâmetro do tipo TeSocialGrupo cujos valores são:

  TeSocialGrupo = (egIniciais = 1, egNaoPeriodicos = 2, egPeriodicos = 3);

Esta é a informação que você precisa checar.

O evento S-2400 é do tipo egNaoPeriodicos, se você estiver enviando com valor diferente deste pode ser a razão de estar recebendo o erro.