Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Seja um membro do ACBr Pro e agilize seu software Participe do Discord do ACBr Regras e orientações da nossa comunidade DIA DO ACBR 2026 - O GRANDE ENCONTRO DA COMUNIDADE

SistemasMais

Membro Pro Verificado
 Perfil  Explorar Conteúdo

  • Total de ítens

    62

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que SistemasMais postou

  1. SistemasMais
    to execultando essa rotina na maquina do dev e funciona quando vou fazer em outra maquina da (Access violation at address 00F842DB in module 'OmniNFSe.exe'. Read of address 00000000), pelo que vi tem haver com ele ACBrNFSeXDANFSeFR1 := TACBrNFSeXDANFSeFR.Create(Self); procedure TfrmACBrNFSe.exibirDanfe(xml_nfse,situacao:String); var chNFSe, PathNFSe : String; XMLStream : TStringStream; bEmitirNfce:Boolean; ACBrNFSeXDANFSeFR1: TACBrNFSeXDANFSeFR; begin if not Assigned(ACBrNFSeX1) then raise Exception.Create('ACBrNFSeX ainda não foi criado'); ACBrNFSeXDANFSeFR1 := TACBrNFSeXDANFSeFR.Create(Self); ACBrNFSeXDANFSeFR1.AcbrNFSE := ACBrNFSeX1; case rgDanfe.ItemIndex of 0:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSE.fr3'; 1:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeBrasiliaDF.fr3'; 2:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeIturama.fr3'; 3:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeNovo.fr3'; 4:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSEPadrao.fr3'; 5:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeProvedorEL_ProvedorNacional.fr3'; 6:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSEProvedorGinfes.fr3'; 7:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeProvedorISSDSF.fr3'; 8:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeSarandi.fr3'; 9:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeVitoriaES_2.fr3'; end; EsperaComMsg(True,'Buscando nota'); try XMLStream := TStringStream.Create(xml_nfse); XMLStream.Position := 0; frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Clear; frmACBrNFSe.ACBrNFSeX1.NotasFiscais.LoadFromStream(XMLStream); finally XMLStream.free; end; // ACBrNFSeX1.NotasFiscais.Items[0].NFSe.OutrasInformacoes := 'Outras Informações 1;Outras Informações 2'; frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Imprimir; frmACBrNFSe.ACBrNFSeX1.NotasFiscais.ImprimirPDF; if frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NomeArqRps <> '' then frmACBrNFSe.memoLog.Lines.Add('Arquivo Carregado de: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NomeArqRps) else frmACBrNFSe.memoLog.Lines.Add('Arquivo Carregado de: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NomeArq); frmACBrNFSe.memoLog.Lines.Add('Chave do DPS.........: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.InfID.ID); frmACBrNFSe.memoLog.Lines.Add('Nota Numero..........: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Numero); frmACBrNFSe.memoLog.Lines.Add('Código de Verificação: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.CodigoVerificacao); frmACBrNFSe.memoLog.Lines.Add('Data de Emissão......: ' + DateToStr(frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.DataEmissao)); frmACBrNFSe.memoLog.Lines.Add('Prestador............: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Prestador.RazaoSocial); frmACBrNFSe.memoLog.Lines.Add('Tomador..............: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Tomador.RazaoSocial); if frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.SituacaoNfse = ACBrNFSeXConversao.snCancelado then begin frmACBrNFSe.memoLog.Lines.Add('A Nota encontra-se Cancelada.'); if situacao<>'Cancelado' then end; frmACBrNFSe.pgRespostas.ActivePageIndex := 0; EsperaComMsg(False,'fim. Buscando nota'); ACBrNFSeXDANFSeFR1.Free; end;
  2. SistemasMais
    deu certo. muito obrigado
  3. SistemasMais
    eu removi o ACBrNFeServicos.ini. e fui testa de novo a nota foi normal. irei fazer novos teste qualquer coisa volto a comunicar. obrigado
  4. SistemasMais
    fiz o teste e recebi isso - na consulta de status CONEXÃO FALHOU! SISTEMA FICARÁ EM MODO DE CONTINGÊNCIA - ERRO INTERNO: 0 ERRO HTTP: 404 URL: HTTPS://HOMNFCE.SEFAZ.AM.GOV.BR/NFCE-SERVICES/SERVICES/NFESTATUSSERVICO4 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 DRAFT//EN"> <HTML> <HEAD> <TITLE>ERROR 404--NOT FOUND</TITLE> </HEAD> <BODY BGCOLOR="WHITE"> <FONT FACE=HELVETICA><BR CLEAR=ALL> <TABLE BORDER=0 CELLSPACING=5><TR><TD><BR CLEAR=ALL> <FONT FACE="HELVETICA" COLOR="BLACK" SIZE="3"><H2>ERROR 404--NOT FOUND</H2> </FONT></TD></TR> </TABLE> <TABLE BORDER=0 WIDTH=100% CELLPADDING=10><TR><TD VALIGN=TOP WIDTH=100% BGCOLOR=WHITE><FONT FACE="COURIER NEW"><FONT FACE="HELVETICA" SIZE="3"><H3>FROM RFC 2068 <I>HYPERTEXT TRANSFER PROTOCOL -- HTTP/1.1</I>:</H3> </FONT><FONT FACE="HELVETICA" SIZE="3"><H4>10.4.5 404 NOT FOUND</H4> </FONT><P><FONT FACE="COURIER NEW">THE SERVER HAS NOT FOUND ANYTHING MATCHING THE REQUEST-URI. NO INDICATION IS GIVEN OF WHETHER THE CONDITION IS TEMPORARY OR PERMANENT.</P><P>IF THE SERVER DOES NOT WISH TO MAKE THIS INFORMATION AVAILABLE TO THE CLIENT, THE STATUS CODE 403 (FORBIDDEN) CAN BE USED INSTEAD. THE 410 (GONE) STATUS CODE SHOULD BE USED IF THE SERVER KNOWS, THROUGH SOME INTERNALLY CONFIGURABLE MECHANISM, THAT AN OLD RESOURCE IS PERMANENTLY UNAVAILABLE AND HAS NO FORWARDING ADDRESS.</FONT></P> </FONT></TD></TR> </TABLE> </BODY> </HTML> Hambiente homologação
  5. SistemasMais
    1-env-lot.xml 1-pro-lot.xml Não estou conseguindo transmitir a NFC-e com os novos tributos. Estou recebendo erro de SCHEMA da Sefaz. No entanto, a NFe está sendo enviada normalmente e já validei o XML no validador da Sefaz, que confirmou estar correto.
  6. SistemasMais
    a Função ehAutorizacao já possui esse codigo atualizado no ACBr. Vou checar o arquivo .ini
  7. SistemasMais
    Eu tenho conversado com alguns amigos para nos organizarmos em Associação para podermos tratar desses e outros assuntos juntos as Secretarias de Fazenda. Acredito ser esta uma boa saída, pois hoje não há quem cobre uma posição e fica tudo muito disperso.
  8. SistemasMais
    Olá, estamos passando pela mesma dificuldade com NFC-e, já envie e-mail para sefaz-am perguntando se o servidor de produção estava passando algum tipo de instabilidade, mas segundo eles está tudo normal. Quando testamos em homologação funciona normalmente, mas basta colocar em produção e apenas consultar o status de uma nota que o sistema já retorna timeOut.
  9. SistemasMais
    Nós também estamos com essa mesma dificuldade em nossos módulos fiscais. Mesmo configurando o ACBr com os parâmetros abaixo o sistema retorna modo: Assincrono ou Sincrono SSLLib=Wincrypt, CryptLib=WinCrypt, HTTPLib=Winhttp, XMLSign=MsXML, Timeout=30000 e Tantivas=4 Mesmo assim continuamos tendo problemas com a maioria dos nossos clientes.
  10. SistemasMais

    ESCPOS MFe

    um tópico no fórum postou SistemasMais ACBrMonitor PLUS

    Preciso salvar o texto da impressão da DANFE para ser enviada na tag ImpressãoFiscal da RespostaFiscal do MFe existe uma maneira de fazer isso? estou usando ESCPOS do AcbrMonitor, mas ele não retorna nenhum texto.
  11. SistemasMais
    Já havia visto este tópico e não resolveu. Hoje voltou a funcionar normalmente. : ) Obrigada.
  12. SistemasMais
    uso certificado próprio e sou do amazonas
  13. SistemasMais
    Comecei a testar a versão 4.0 do nfce e está retornando este erro. Erro Interno: 0 Erro HTTP: 500
  14. SistemasMais
    Olá pessoal, estou com o mesmo problema citado no tópico. No meu caso já reinstalei várias vezes o Delphi 7, gostaria que alguém apontasse a forma correta de instalar o Delphi!
  15. SistemasMais
    Como faço pra usar com OpenSSL André?...
  16. SistemasMais
    Olás Regys, geralmente uso Serasa ou VALID, em ambos já tive essa dificuldade, você já usou algum certificados desses com o WebService do Amazonas?
  17. SistemasMais
    Olá senhores, como já é do conhecimento de todos, para que funcione corretamente o envio de Notas Fiscais, é necessário que nas Configurações Avançadas da Internet, estejam marcadas as opções: SSL 2.0 e TLS 1.0, e estejam desmarcadas as opções SSL 3.0 e TLS 1.1 e TLS 1.2, pois bem, tenho um cliente que utiliza o site da Caixa Econômica para realizar diversos serviços por lá, para que tudo funcione corretamente no site é necessários que as opções SSL 3.0 e TLS 1.1 e 1.2 estejam marcadas, eu gostaria de saber se há alguma solução para este conflito? e qual o motivo de termos que configurar as opções de internet desta maneira?
  18. SistemasMais
    Estou com o mesmo problema citado acima... Já tem solução?
  19. SistemasMais
    Barbosa, estou precisando gerar o SPED com NFCe, e nesse caso não devem ser informados no C100 e C190 os registros de PIS e COFINS, e nem os de ST de todos, já tentei colocar com zero, mas ele cria os campos e isso gera um erro no validador. Essa mudança contempla isso também?
  20. SistemasMais
    André encontrei a falha nesta rotina. O seu aruiqvo de teste não possui a tag <enviDIe> e por consequência o seu fechamento <enviDIe>. quando invoco o método Assinar que ele acrescenta a estrutura de assinatura ao final ele devolve apenas a </DIe>, faltando acrescentar a tag </enviDIe>. Feito isto a rotina funcionou perfeitamente. Se possível seria interessante acrescentar na rotina de assinatura o tipo DIe em futuras versões do ACBr, se este tipo de documento existir para outros estados além do Amazonas. Muito obrigado pela colaboração. É sempre bom saber que podemos contar com a cooperação de profissionais competentes. Cordialmente, Rômulo Araújo.
  21. SistemasMais
    André, usando esta rotina quando tentar carregar o arquivo na instrução: If not xmldoc.loadXML(XML) then raise EACBrNFeException.Create('Não foi possível carregar o arquivo XML:'+XML); Ela retorna Exceção. Em anexo estou colocando um dos vários arquivos que usei para teste. DIe1401507761.xml
  22. SistemasMais
    Andre vou testar e te retorno. Por enquanto muito obrigado.
  23. SistemasMais
    André, Valeu pelas dicas. Executei todos os procedimentos cima citados por você. Acredito que não estou conseguindo assinar corretamente o documento XML, pois após gerar o XML assinado eu invoco o método NFeUtil.ValidaAssinatura e ele me retorna a seguinte mensagem: "Erro ao verificar assinatura do arquivo: The digest value computed does not match with the provided one for Reference uri '#Die1401507761'. É como se o digest fosse calculado para um arquivo e depois este arquivo é alterado. Porém para mim isto é muito estranho pois esta rotina é praticamente um clone da Rotina NFeUtil.AssinarMSXML, como você pode ver anteriormente. Em anexo estou te enviando um arquivo menor que estou usando para teste com versão assinada e outra não assinada, para ver se juntos encontramos o que pode estar acontecendo. Acredito que seja algum detalhe que eu esteja cometendo de errado nesta rotina de assinar, mas como você tem mais experiência poderá me auxiliar melhor. Desde já agradeço pela cooperação. DIe1401507761notsingned.xml DIe1401507761.xml
  24. SistemasMais
    Utilizo ao ACBr para emissão de NFe e NFCe, e em ambos os casos tudo tem funcionado perfeitamente com a CAPICOM. Também criei uma função com base na função NFeUtil.Assinar para assinar outro modelo de documento XML chamado de DAI (Declaração Amazonense de Importação), enquanto eu estava usando a versão anterior do ACBr eu conseguia assinar e validar estes arquivos de DAI no site da sefaz. Porém a poucos dias atualizei a versão do ACBR, devido a atualização para o padrão 3.10 do NFCe e e estes documentos de DAI passaram a ser rejeitos com a seguinte mensagem de retorno: Assinatura Inválida (Digest do Documento não Confere). O Interessante é quando utilize outro aplicativo para assinar o documento como XML Signer o digest value gerado é diferente do gerado por esta função que uso (detalhe estou usando o mesmo certificado digital para ambas aplicações). Alguém pode me dar uma dica do que está acontecendo? Abaixo a função que uso e em anexo o arquivo assinado: Desde já agradeço pelo suporte técnico. function AssinarDIe(XML : AnsiString; Certificado : ICertificate2; out XMLAssinado : AnsiString): Boolean; var I, J, PosIni, PosFim : Integer; URI : String ; Tipo : Integer; xmlHeaderAntes, xmlHeaderDepois : AnsiString ; xmldoc : IXMLDOMDocument3; xmldsig : IXMLDigitalSignature; dsigKey : IXMLDSigKey; signedKey : IXMLDSigKey; begin Assinatura:=TStringList.Create; Assinatura.Clear; if (Pos('<Signature',XML) <= 0) and (TipoAssinatura='Matriz') then //Assinar MatrizDIe begin I := pos('<InfMatrizDIe',XML) ; Tipo := 1; URI := 'MatrizDIe00000041483057' ; if Tipo = 1 then XML := copy(XML,1,pos('</MatrizDIe>',XML)-1); XML := XML + '<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/2000/09/xmldsig#rsa-sha1" />'; XML := XML + '<Reference URI="#'+URI+'">'; XML := XML + '<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/2000/09/xmldsig#sha1" />'; XML := XML + '<DigestValue></DigestValue></Reference></SignedInfo><SignatureValue></SignatureValue><KeyInfo></KeyInfo></Signature>'; if Tipo = 1 then XML := XML + '</MatrizDIe>'+'</enviMatrizDIe>'; end Else begin //Assinar DIe I := pos('<InfDIe',XML) ; Tipo := 2; URI := URIDIe ; end; // Lendo Header antes de assinar // xmlHeaderAntes := '' ; I := pos('?>',XML) ; if I > 0 then xmlHeaderAntes := copy(XML,1,I+1) ; xmldoc := CoDOMDocument50.Create; xmldoc.async := False; xmldoc.validateOnParse := False; xmldoc.preserveWhiteSpace := True; xmldsig := CoMXDigitalSignature50.Create; if (not xmldoc.loadXML(XML) ) then begin Log:=TStringList.Create; Log.Text:=xml; Log.SaveToFile('C:\LogDAI.XML'); raise EACBrNFeException.Create('Não foi possível carregar o arquivo (Foi Gerado um Log em C:\LogDAI.txt).'); end; xmldoc.setProperty('SelectionNamespaces', DSIGNS); xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature'); if (xmldsig.signature = nil) then raise EACBrNFeException.Create('É preciso carregar o template antes de assinar.'); if NumCertCarregado <> Certificado.SerialNumber then CertStoreMem := nil; if CertStoreMem = nil then begin CertStore := CoStore.Create; CertStore.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); CertStoreMem := CoStore.Create; CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); Certs := CertStore.Certificates as ICertificates2; for i:= 1 to Certs.Count do begin Cert := IInterface(Certs.Item) as ICertificate2; if Cert.SerialNumber = Certificado.SerialNumber then begin CertStoreMem.Add(Cert); NumCertCarregado := Certificado.SerialNumber; end; end; end; OleCheck(IDispatch(Certificado.PrivateKey).QueryInterface(IPrivateKey,PrivateKey)); xmldsig.store := CertStoreMem; dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0); if (dsigKey = nil) then raise EACBrNFeException.Create('Erro ao criar a chave do CSP.'); signedKey := xmldsig.sign(dsigKey, $00000002); if (signedKey <> nil) then begin XMLAssinado := xmldoc.xml; PosIni := Pos('<SignatureValue>',XMLAssinado) + length('<SignatureValue>'); PosFim := Pos('</SignatureValue>',XMLAssinado)-1; PosIni := Pos('<SignatureValue>',XMLAssinado)+length('<SignatureValue>'); XMLAssinado := copy(XMLAssinado,1,PosIni-1) + StringReplace( copy(XMLAssinado,PosIni,length(XMLAssinado)), ' ', '', [rfReplaceAll] ) ; PosIni := Pos('<X509Certificate>',XMLAssinado)-1; PosFim := DFeUtil.PosLast('<X509Certificate>',XMLAssinado); XMLAssinado := copy(XMLAssinado,1,PosIni)+copy(XMLAssinado,PosFim,length(XMLAssinado)); end else raise EACBrNFeException.Create('Assinatura Falhou.'); if xmlHeaderAntes <> '' then begin I := pos('?>',XMLAssinado) ; if I > 0 then begin xmlHeaderDepois := copy(XMLAssinado,1,I+1) ; if xmlHeaderAntes <> xmlHeaderDepois then XMLAssinado := StuffString(XMLAssinado,1,length(xmlHeaderDepois),xmlHeaderAntes) ; end else XMLAssinado := xmlHeaderAntes + XMLAssinado ; end ; dsigKey := nil; signedKey := nil; xmldoc := nil; xmldsig := nil; Assinatura.Clear; Assinatura.Text:=XMLAssinado; Result := True; end; 1413914987.xml
  25. SistemasMais
    Obrigado Italo, então já vou verificando aqui como posso resolver esta situação da mensagem em contingência, depois dou um retorno aqui no grupo.
×
×
  • 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.