Pesquisar na Comunidade
Showing results for tags 'Assinatura Digital'.
Encontrado 5 registros
-
"Tópico Bye Bye CAPICOM" - Valor default das novas propriedades
um tópico no fórum postou Gabriel Bonzanini ACBrNFe
Bom dia. Estou tendo problemas com alguns clientes depois da última atualização referente à comunicação com os certificados digitais. Gostaria de saber como ajustar as propriedades para que os componentes trabalhem da mesma forma utilizada anteriormente ao refactoring. Reparei que o valor defaul para as propriedades é 'none': constructor TGeralConf.Create(AConfiguracoes: TConfiguracoes); begin ... FSSLLib := libNone; FSSLCryptLib := cryNone; FSSLHttpLib := httpNone; ... end; Dependendo do sistema operacional do cliente, estão sendo apresentados os seguintes erros: Método "Enviar" não implementado em: TDFeSSLHttpClass; Parâmetro incorreto; Falha em obter Provedor de Cripotografia do Certificado. Erro: 80090016. Como proceder? Obrigado. -
Bom dia Pessoal, como nunca trabalhei com assinatura digital estou tendo uma certa dificuldade para assinar um arquivo XML não fiscal onde não terá aquela parte de referência a Nota Fiscal, utilizo o Delphi 7, está assinando normalmente, mas sempre ao validar diz estar com a assinatura inválida, tenho tomado cuidado em não editá-lo após a assinatura, se alguém poder me ajudar: var A : TDFeSSL; S : AnsiString; I : Integer; begin Result := true; A := TDFeSSL.Create; A.SSLLib := libCapicom; try A.SelecionarCertificado; {Carrega o XML} XMLSignature.Active := false; XMLSignature.Active := True; XMLSignature.LoadFromFile ( 'C:\CertSignature_tmp.xml' ) ; with TStringList.Create do try S := ''; {retira dos os espaços em braco e quebras de linha} for I := 0 to Count - 1 do S := S + Trim ( StringReplace ( StringReplace ( Strings[ I ] , #13 , '' , [ rfReplaceAll ] ) , #10 , '' , [ rfReplaceAll ] ) ) ; // obtém o XML assinado no Text do StringList Text := '<?xml version="1.0" encoding="utf-8"?>' + A.Assinar ( XMLSignature.XML.Text , 'Assinatura' , '' ) ; // salva o XML em disco SaveToFile ( CaminhoCertidao ) ; finally Free; end; A.Free; {Apaga o arquivo temporário} DeleteFile ( 'C:\CertSignature_tmp.xml' ) ; except MessageBox ( Handle , 'Erro ao carregar os certificados.' , 'Erro' , MB_ICONSTOP or MB_OK ) ; Result := false; Abort; end;
-
Dúvidas e "Erro:Arquivo enviado com erro na assinatura."
um tópico no fórum postou Alexandre França ACBrNFSe
Boa tarde, estou tentando enviar um RPS para o provedor da Fiorilli (Dourado). Porém possuo uma dúvida.. Estou assinando o XML com um certificado que possuo de um cliente que sei que não utiliza nota de serviço isso pode influenciar? Após assinar pego o XML e tento validar o mesmo no site da receita, porem o mesmo diz que possui erros na assinatura, mas não consigo identificar o que pode ser... Ao enviar para o provedor ocorre o seguinte erro : "Erro:Arquivo enviado com erro na assinatura." Alguém consegue me dar uma mãozinha? desde ja obrigado. PS: foi alterado a URL do Ambiente de homologação para : RecepcaoLoteRPS=http://fi1.fiorilli.com.br:5663/IssWeb-ejb/IssWebWS/IssWebWS?wsdl -
Free Lancer Para Uma Rotina Em Lazarus...
um tópico no fórum postou Egon José Klipstein Classificados
Necessito uma rotina que efetue a assinatura digital em um arquivo XML com um certificado A3. Esta rotina deve receber como parâmetro um Stringlist ou o endereço de arquivo e devolva um Stringlist com o conteúdo assinado ou o endereço do arquivo assinado. Esta rotina deve ser feita no LAZARUS, e deve rodar no LINUX. Pode ser escolhido um hardware específico, como um SMARTCARD perto, TOKEN, etc.. Obs.: Não é o arquivo de NFe. Necessito que os fontes sejam comentados. Meu endereço de email é [email protected]. Meus telefones são (51)8584.6366 / 8204.4159 Favor informar valor e tempo de execução. -
boa tarde a todos! Estou precisando implantar em meu sistema, feita em delphi, uma função para assinar documentos PDF. Sei que aqui tem a função de assinar o XML, que inclusive uso em meu sistema. Alguém poderia me ajudar? Grato
