Ir para conteúdo
  • Cadastre-se

digifred

Membros Pro
  • Total de ítens

    18
  • Registro em

  • Última visita

Sobre digifred

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

digifred's Achievements

Apprentice

Apprentice (3/14)

  • One Year In
  • Collaborator Rare
  • Reacting Well Rare
  • Dedicated Rare
  • One Month Later

Recent Badges

5

Reputação

  1. Estou com problema para validação da assinatura, segue arquivo. Certificado A1. envelopeAssinado.xml
  2. Sim, me referi em cargas grandes de lotes, ai não encontrei o evento problemático ainda.
  3. Estava tentando encontrar o evento com problema porém acontece somente ás vezes, sem alguma simulação, se encontrar algo trarei.
  4. Bom dia, estou com esse problema, , já verifiquei alguns tópicos aqui do acbr nenhum surgiu efeito, acontece enviando cargas grandes de eventos e de vez enquando, então não tenho uma simulação, se alguém tiver alguma informação do que pode ser, agradeço.
  5. Bom dia, estou gerando o campo mtvTermino porém no xml so vai o valor vazio ; procurei alguma coisa que pudesse alterar esse valor, mas ainda não encontrei, o valor que passo na variável é '01'.
  6. digifred

    2400 erro 481

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

    2400 erro 481

    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>
  8. Para o tpPlanRP funcionou corretamente. no caso do duração vem este erro ao verificar o xml vem esses dados O problema é que não coloco dados no mesmo, no if em azul ele da false logo não cai no with em amarelo e mesmo assim coloca dados, teria alguma coisa parecida com o prpnenhum?
  9. Estou com problemas na geração do 2200; vi este tópico Estou com o mesmo problema no grupo <duracao> e também <InfoEstatutario></TpPlanRP></InfoEstatutario> onde TpPlanRP está vindo com valor mesmo eu não estando colocando valor. Tem alguma solução ou devo ajustar o pcesgerador?
  10. Após eu passar para dentro de uma procedure específica e passar o componente como parâmetro, trabalhei com ele dentro da procedure e utilizei FESocial.Eventos.Periodicos.S1200.Count-1 e agora funcionou. Obrigado pelas dicas.
  11. Testei desta maneira também continua com o estouro.
  12. Olá, gostaria de saber se existe uma maneira de excluir um evento que foi gerado incorretamente, exemplo: dei um FESocial.Eventos.Periodicos.S1200.New e deu algum erro no restante da geração, eu gostaria de limpar aquele que foi criado, tentei pelo FESocial.Eventos.Periodicos.S1200.Delete(FESocial.Eventos.Periodicos.S1200.Count);, mas ele da erro de estouro de lista, tentei encontrar algum exemplo nos fontes mas não achei nada, teriam alguma ideia de como posso fazer esta operação?
  13. Bom dia, estou trabalhando na nova implementação do evento S1210 onde enviamos os valores de IR, quando envio o xml para testes retorna este erro: mas o xml aparenta estar correto: pelo erro me parece ser os links que talvez mudaram, mas não encontrei nada a respeito. Se alguém tiver uma ideia do que possa estar ocorrendo agradeço.
  14. Bom dia, No sistema que implementamos a Geração/Envio/Controle dos eventos EFD-Reinf é implantado em dois modelos em nossos clientes: 1º: Sistema desktop padrão, 2º: Sistema virtualizado em nuvem. Em ambos os casos, a assinatura A1 funciona corretamente no componente do ACBR; o A3 por motivos de segurança não funciona em sistema virtualizado em nuvem, somente funcionando em sistema desktop. Para realizar a assinatura com certificado A3, possuímos um sistema a parte, que roda fora da nuvem virtualizada, e que realiza as assinaturas. A dúvida é: Com o componente ACBReinf, é possível desvincular totalmente a assinatura dos eventos Reinf para uma assinatura em um outro componente interno? Nesse caso, o componente ACBR seria responsável pela geração dos XML e envio, todo o processamento de assinaturas deveria ser realizado por meio de outro componente interno nosso. Isso deveria funcionar para a geração do eventos periódicos, geração de eventos de lote, geração de eventos de consulta, etc...
  15. Bom dia, Obrigado pela ajuda.
×
×
  • 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.