Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

fidel

Membros
  • Content Count

    11
  • Joined

  • Last visited

Community Reputation

2 Neutral

About fidel

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Location
    sao paulo

Recent Profile Visitors

621 profile views
  1. fidel

    Erro msvcrt

    Eu estava com o mesmo problema no Esocial, resolvi copiando a libxml2.dll do diretorio C:\acbr\DLLs\LibXml2\x64 para o diretorio do windows C:\Windows\SysWOW64. Obs: estou usando o windows 7.
  2. Eu estava com o mesmo problema no Esocial, resolvi copiando a libxml2.dll do diretorio C:\acbr\DLLs\LibXml2\x64 para o diretorio do windows C:\Windows\SysWOW64. Obs: estou usando o windows 7.
  3. Bom dia, Sandro SIM. Agora esta dando este erro: no programa ACBrDFeXsXmlSec nesta linha: { sign the template } SignResult := xmlSecDSigCtxSign(FdsigCtx, SignNode);
  4. Bom dia. Renato Agora esta dando este erro: no programa ACBrDFeXsXmlSec nesta linha: { sign the template } SignResult := xmlSecDSigCtxSign(FdsigCtx, SignNode);
  5. Obs estou usando o delphi XE7
  6. Desculpa , o erro esta nesta rotina em vermelho, o doc esta retorna ndo nil function TDFeSSLXmlSignXmlSec.XmlSecSign(const ConteudoXML: AnsiString; SignatureNode, SelectionNamespaces, InfElement: AnsiString): AnsiString; var doc: xmlDocPtr; SignNode: xmlNodePtr; buffer: PAnsiChar; bufSize, SignResult: integer; xmlsecMsg: PAnsiChar; begin doc := Nil; Result := ''; if Trim(ConteudoXML) = '' then Exit; CreateCtx; try { load template } doc := xmlParseDoc(PAnsiChar(ConteudoXML)); if (doc = nil) then raise EAC
  7. eu atualizei o ACBrReinf.rar e compilei o ACBr_DFeComum mas continua dando o mesmo erro nesta rotina grifada em vermelho. nao sei onde estou errando. ACBRDFESSL function TDFeSSL.Assinar(const ConteudoXML, docElement, infElement: String; SignatureNode: String; SelectionNamespaces: String; IdSignature: String; IdAttr: String ): String; Var XmlAss, DeclaracaoXMLAntes, DeclaracaoXMLDepois: String; Assinado: Boolean; begin // Nota: ConteudoXML, DEVE estar em UTF8 // // Lendo Header antes de assinar, Se Header não for UTF8 não usa... // if XmlEhU
  8. Obrigado. agora OK. Desculpa. mas agora esta dando o seguinte erro.
  9. Obrigado. mas continua dando erro agora nesta linha XMLAss := SSL.Assinar(ArqXML, 'Reinf', String(ANomeEvento), '', '', '', 'id'); em anexo rotina do ACBrReinfEventosBase. function TEventoReinf.Assinar(AXMLEvento, ANomeEvento: AnsiString): AnsiString; var XMLAss: string; ArqXML: string; begin Result := ''; ArqXML := string(AXMLEvento); ArqXML := ConverteXMLtoUTF8(ArqXML); FXMLOriginal := ArqXML; with TACBrReinf(FACBrReinf) do begin //XMLAss := SSL.Assinar(ArqXML, 'Reinf', String(ANomeEvento)); //XMLAss :=
  10. XMLAss := SSL.Assinar(ArqXML, 'Reinf', String(ANomeEvento)); esta dando erro
×
×
  • Create New...