Junior Salzano

Fala galera... Eu vi alguns post falando a respeito do padrão de assinatura sha256, utilizado no EFD-REINF e E-Social. Porem nenhum dos tópicos estava com uma solução a respeito disso? Alguém tem alguma informação a respeito desse padrão, alguém conseguiu assinar o xml com esse padrão de hash sha256. Qualquer informação é muito bem vinda Muito obrigado pela atenção. Edson Junior

Galera ;;; Boa tarde .. Estou com esse mesmo problema para assinar o Xml nesse padrão SHA256. Alguem teve uma solução dessa situação ? Muito obrigado pela atenção. Edson Junior

Boa tarde Juliomar, Me desculpa, eu havia criado o tópico lá depois vi que vc tinha complementado aqui, Desculpa a duplicidade de informações no forum. Então.. estou adaptando a rotina do NFSE, para assinar o xml e para comunicar com webservice, Aparentemente vai dar tudo certo, porem estou com erro da autenticação do certificado, porem acredito que seja no meu certificado. Vou tentar utilizar outro, porem caso existir um componente especifico para essa situação do REINF, seria interessante! Muito obrigado pelas informações Juliomar! Valeu Abraço!

Existe alguma data prevista ?

Fala galera, boa tarde! Primeiramente um feliz ano novo para todos, e obrigado por todo o trabalho e atenção de todos dedicado a esse forum, Estive levantando algumas questões em relação ao componente NFSE, estou utilizando a mesma biblioteca para consumir o EFD-REINF. Segundo informações a ACBR esta trabalhando em um componente para o EFD_REINF. Isso é verdade ? Quando seria a disponibilidade dessa biblioteca ? Muito obrigado pela atenção, Feliz ano novo a todos!

Gala galera boa tarde... Estou com uma duvida: function enviarLote (xmlArquivo : WideString) : String; var certificado : TCertificados; xmlAssinado : WideString; server : TWebservice; retorno : WideString; begin certificado := TCertificados.Create(nil); certificado.SelecionarCertificado; AssinaXML(xmlArquivo, certificado.GetCertificado, xmlAssinado); server := TWebService.Create(nil); Server.VersaoSoap := '1.1'; Server.Certificado := certificado; Server.URL := 'https://preprodefdreinf.receita.fazenda.gov.br/RecepcaoLoteReinf.svc?'; Server.SoapAction := 'ReceberLoteEventos'; //Server.URL := 'https://reinf.receita.fazenda.gov.br/WsREINF/RecepcaoLoteReinf.svc'; //Server.URL := 'https://preprodefdreinf.receita.fazenda.gov.br/RecepcaoLoteReinf.svc?singleWSDL'; server.xml := xmlAssinado; server.executar(); result := server.XMLRetorno; end; Essa é minha function para enviar o lote.... Estou com um retorno informado que eu preciso de um certificado para concluir a autenticação. Vi em um outro foram um cara falando que ele não pode estanciar o objeto certificado com nil : certificado := TCertificados.Create(nil); Alguém sabe dessa informação ? Valeu !

É necessário um certificado para concluir a autenticação do cliente Esse é o retorno !

Fala galera! Bom dia, tudo certo ? Galera estou trabalhando no desenvolvimento da nova re-estruturação do SPED - EFD-REINF / E-SOCIAL. Estou transmitindo meu primeiro evento, o que acontece é o seguinte.... Estou utilizando a biblioteca da ACBR, top demais. Estou com um problema na autenticação do meu certificado digital do webservices. Ele me retorna informando que eu preciso de um certificado digital para finalizar a comunicação. Minha rotina de selecionar o certificado esta ok. Retornando todas as informações do certificado. Meu certificado é valido, e suas finalidades são: 'EmailSeguro', 'Autenticação do cliente'. Alguém tem alguma informação que poderia me ajudar solucionar essa situação. Muito obrigado pela atenção de todos. Abraço ! Valeu !

Bom dia Galera!!! Galera obrigado ae pelas informações tempo gasto para responder as minhas duvidas; Eu consegui solucionar o problema, era um erro amador! hehe.. Na chamada da função eu não estava estanciando o objeto, (erro amador), engraçado é que funcionava alguns atributos da classe, acabou desviando minha atenção para a classe e não para a chamada. Mais deu tudo certo, obrigado pela atenção de todos! Abraço !

Opa.. Valeu EMBarbosa pelas informações. Então... na verdade eu tenho esse conhecimento de como acontece um ACESS VIOLATION.. Porem aparentemente, esta tudo correto. Tanto é que os outros atributos da classe estão criado da mesma forma e todos funcionam normalmente, O problema esta apenas nesse FInformacao. Realmente me parece que no momento em que o compilador vai acessar esse atributo ele não existe, pq se eu declarar como uma variável no inicio da function, funciona normalmente. Ta um mistério bastante complicado para se achar a solução, Estou nele a uns 3 dias. Ta tenso... ¬¬

Então... Estou usando alguns partes da rotina, adaptada com meu sistema. Não teria alguma ideia do que pode ser esse erro ? Trabalho com Delphi EX4.

Alguma dica para eu resolver esse ACESS VIOLATION na própria rotina que já tenho inscrita ? Já tentei de tudo ! Ta foda =/

Olá Daniel, Obrigado pela atenção, Como posso fazer isso ? Estou usando a rotina para comunicar com o webservice da receita do sped EFD-REINF. Funciona da mesma forma.

Fala galera.. Bom dia... Estou utilizando a rotina do webservice ACBrNFSe Seguinte.... Na unit de configurações eu tenho essa clase: TCertificados = class(TComponent) private FSenhaCert : AnsiString; FNumeroSerie: AnsiString; FDataVenc : TDateTime; FInformacao : AnsiString; FCNPJ : String; function GetNumeroSerie : AnsiString; function GetDataVenc : TDateTime; function GetInformacao : AnsiString; function GetCNPJ : String; procedure SetNumeroSerie(const Value: AnsiString); public function SelecionarCertificado : AnsiString; function GetCertificado : ICertificate2; published property NumeroSerie: AnsiString read GetNumeroSerie write SetNumeroSerie; property Senha : AnsiString read FSenhaCert write FSenhaCert; property DataVenc : TDateTime read GetDataVenc; property Informacao : AnsiString read GetInformacao; property CNPJ : String read GetCNPJ; end; ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- No meu método SelecionarCertificado function TCertificados.SelecionarCertificado: AnsiString; var Store : IStore3; Certs : ICertificates2; Certs2 : ICertificates2; Cert : ICertificate2; begin Store := CoStore.Create; Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); Certs := Store.Certificates as ICertificates2; Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', false); if not(Certs2.Count = 0) then begin Cert := IInterface(Certs2.Item[1]) as ICertificate2; FNumeroSerie := Cert.SerialNumber; FDataVenc := Cert.ValidToDate; FInformacao := Cert.SubjectName; end; Result := NumeroSerie; end; Quando ele vai passar informação para o atributo FInformacao da um ACESS VIOLATION!!! CARA já fiz de tudo e não consigo entender o porque esta dando esse erro, apenas nesse atributo. Se eu declarar essa variavel no inicio da fucntion ele atribui a informação normalmente. O problema esta ao atribuir qualquer informação para esse atributo da classe FInformação; Já criei tb um metodo de escrita um SetInformacao, porem mesmo assim ocorre o mesmo errro. Já fiz de tudo, alguem tem alguma ideia que possa me ajudar ? Valeu galera ! Abraço!