Edevair Viesa Junior

Pessoal resolvi em TODOS os clientes da seguinte forma : Primeiro verifique o IE instalado e se for menor que a versão 11 atualizar Abrir o Windows Update e Verificar se tem as atualizações KB2992611 e KB3140245 instaladas. Se não tiver, clicar no botão "Verificar se há atualizações" Após procurar as atualizações, clique no link atualizações importantes e desmarque todas as opções, deixando marcada somente a KB2992611, depois clique em ok. Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização, abrir o windows update novamente e clique no botão novamente "Verificar se há atualizações" Após procurar as atualizações, clique em atualizações opcionais e marque a atualização KB3140245, clique em ok, clique no link atualizações importantes e desmarque todas as opções e clique em ok Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização abra o navegador e faça o download da instalação .Net Framework 4.6.2, faça a instalação. reinicie o computador e faça o teste de conexão no sistema.

Já alterei e não funciona !!!!

Hoje parou também Produção.. Vários clientes.. Todos atualizados Windows 7 SP 1 com todas as atualizações de segurança... Como resolvo o erro ??

Então, é exatamente este o problema. Já perdí 1 cliente por conta disso.

Exatamente por isso está tão difícil.. rssss Mas como em todos os casos, quando se trata de governo, sempre nós que pagamos o pato. Se o arquivo está no servidor, e ficará lá pra sempre, se tenho um certificado digital válido, por quê a responsabilidade de guardar os arquivos é do contribuinte ?? Um absurdo... Mesmo assim sigo tentando.. Se mais alguém puder ter alguma idéia.. segundo entendi o @guerreiro conseguiu, de acordo com o último tópico respondido, seria possível compartilhar a solução ??

Certíssimo, mas em momento algum eu disse que não usaria o certificado... Minha pergunta foi como gerar a criptografia para usar no param... Sobre o certificado ele será solicitado de qualquer forma no momento do download, mas a dificuldade está em criptografar a chave e enviar em param

Acho que quem não entendeu foi você... Através do sitio danfeonline.com.br é possível fazer o DOWNLOAD do arquivo .xml da NFe desde que tenha um certificado digital do emitente. Faz um teste lá pra vc ver.. A forma de fazer o download é assim, ele envia via link como esse abaixo : https://nfe.fazenda.sp.gov.br/ConsultaNFe/xml/DownloadXML.aspx?param=V1ddcQJaXVkBWVRsXVRXVVFyAEReXABQU2pYWV5WVHQAR15cAFFUaVxcXlZVdABHX1wdU1F3XVtBVFV1CFdfXgpSVWJdWg== e faz o download do arquivo .xml que consta na sefaz, como se estivesse usando site da própria sefaz, não tem nada de gerar a danfe de acordo com html é o download do arquivo .xml assinado... O que preciso descobrir é como a partir da chave de acesso, criptografar os dados contidos em param assim : https://nfe.fazenda.sp.gov.br/ConsultaNFe/xml/DownloadXML.aspx?param="Como montar estes dados a partir da chave pra fazer o download" Sobre o link, seria bem simples de resolver usando uma tabela de links de cada sefaz de cada UF e verificar qual a UF do cliente e usar o link do estado, isso não é o problema, o problema é descobrir como fazer a encriptação da chave de acesso para gerar o param.... Entendeu ???

Não é verdade, é possível fazer o download do arquivo .xml do sefaz...

Reabrindo o tópico galera !!! Alguém conseguiu fazer o download do xml usando o link ?? Como monto param ?? Se o site https://www.danfeonline.com.br/ faz, com certeza é possível fazermos tb. No caso de perder os arquivos, mesmo com back up na nuvem isso pode ocorrer, é um transtorno fazer o download pelo site.. Muito Obrigado !

@José M. S. Junior obrigado por responder.. Em ambos os casos o certificado já estava instalado e funcionando com a versão 3.10 da NFe com o componente ACBr. Foram instalados com permissão de administrador sim. A solicitação do PIN no Windows 10 passou a acorrer após a atualização dos fontes para o uso do layout 4.0 da NFe.

Pessoal, eu uso o ACBrNFehá tempos e é a primeira vez que isso acontece. Em dois clientes passou a acontecer isso após eu atualizar o sistema com a NFe 4.0, porém especificamente percebí que nos dois casos usam o Windows 10, portanto quase certeza absoluta que o problema é no SO. Eu salvo a senha no BD e quando abro o sistema configuro a senha no componente. porém mesmo com a senha sendo informada no componente abre a tela de pin, porém como disse nos clientes que usam Windows 7 isso não acontece, somente no Windows 10. Existe alguma configuração adicional que deve ser feita no caso de usar o Windows 10 ?? Uso conexão WinCrypt Geral.SSLLib := libWinCrypt; Geral.SSLCryptLib := CryWinCrypt; Geral.SSLHttpLib := httpWinHttp; Geral.SSLXmlSignLib := xsLibXML2;

Bom dia @Italo Jurisato Junior era exatamente isso. Tudo liberado e funcionando. Muito Obrigado mais uma vez ! Abs Ao @BigWings tb muito obrigado pela ajuda !!!

Bom dia @Italo Jurisato Junior muito obrigado pelo retorno, eu realmente havia imaginado isso mesmo. Vou entrar em contato com o provedor GINFES para ver o procedimento. Assim que me responderem posto os resultados. Muito Obrigado !

@BigWings resolví configurando o TLS corretamente. Agora a mensagem é outra : Será que tem que fazer alguma solicitação / homologação junto ao provedor ?? Só pra cosntar estou usando nossa prórpia empresa como teste de envio e emitimos NFSe via site do ginfes normalmente ! Seguem em anexo o PDF e o XML do RPS gerados !!! No xml pude verificar na tag prestador -> cnpj que o mesmo está preenchido corretamente, mas no PDF está tudo 0 (zero) Será que estou configurando o xml errado ?? 3518040893460300017256000000000000009-rps.xml 3518040893460300017256000000000000009-nfse.pdf

Mudei para Capicom e agora retorna o seguinte erro : Estou configurando assim : if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'SSL' then begin SSLLib := libOpenSSL; SSLCryptLib := cryOpenSSL; SSLHttpLib := httpOpenSSL; SSLXmlSignLib := xsXmlSec; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'WinCript' then begin SSLLib := libWinCrypt; SSLCryptLib := CryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXML2; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'Capicom Delphi SOAP' then begin SSLLib := libCapicomDelphiSoap; SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLXmlSignLib := xsMsXmlCapicom; end else begin SSLLib := libCapicom; SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLXmlSignLib := xsMsXmlCapicom; end;

Rsss. Eu acabei de fazer isso e vc me respondeu. Segue a tela de erro : Estou configurando o componente para usar wincrypt

Muito Obrigado por responder... Show. Porém como trato os erros se não tenho nenhum retorno no método ?? No programa exemplo não há nenhuma tratativa de um retorno com erro. Tem alguma propriedade que preciso setar para obter tais informações ??

@Italo Jurisato Junior muito obrigado pela resposta, porém mais do mesmo. Já ví o vídeo uma centena de vezes e todas as rotinas que vc descreveu estão sendo feitas rigorosamente conforme você postou. De acordo com minha resposta : O problema não está na forma em como usar o componente e sim que ele não retorna NADA após o método enviar, como vou consultar o lote se não tenho NENHUMA informação ?????? Não tenho número de protocolo e mesmo com a propriedade ConsultarLOteAposEnvio = True o componente no método Enviar retorna False e não faz nada !!! Não estou vendo caminhos para conseguir resolver o problema... Este retorno como False não deveria gerar algum log ou dar alguma mensagem do motivo de retornar False no método enviar ???

@Italo Jurisato Junior depois de muito teste ví onde está o erro. É que estava tentando pegar a informação do componente da NFSe com o número da nota fiscal e o mesmo está em branco, pois não houve retorno do método enviar. Percebi debugando que o método sempre retorna como resultado False e por isso não tenho as informações do número de nota fiscal, já que o mesmo não foi validado. Pergunta, pq o método enviar me retorna em branco e como devo tratar este tipo de retorno ? Não consegui achar esta informação no exemplo do ACBrNFSe !!! Segue a configuração do componente, talvez esteja faltando algo : if Result then begin v_nome_arquivo := l_client.FieldByName('C_CAMINHO_ARQ_INI_NFSE').AsString + '\Cidades.ini'; if not FileExists(v_nome_arquivo) then begin Result := False; MessageDlg('Arquivo de Parâmetro não encontrado: ' + v_nome_arquivo, mtError, [mbOk], 0); end else begin v_memo_ini := TMemIniFile.Create(v_nome_arquivo); l_provedor := v_memo_ini.ReadString(IntToStr(g_num_municipio_servicos), 'Provedor', ''); v_memo_ini.Free; end; end; if Result then begin try with l_acbr.Configuracoes do begin with Certificados do begin NumeroSerie := l_client.FieldByname('C_NUMERO_SERIE_CERT_DIGITAL').AsString; if not VerificarValidade then begin MessageDlg('Certificado Digital Vencido.'+#13#10+#13#10+ 'Impossível CONTINUAR !', mtError, [mbOk], 0); Result := False; end; if Trim(l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString) <> '' then begin Senha := F_Uncript( l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString); end; end; if Result then begin with Geral do begin if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'SSL' then begin SSLLib := libOpenSSL; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'WynCript' then begin SSLLib := libWinCrypt; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'Capicom Delphi SOAP' then begin SSLLib := libCapicomDelphiSoap; end else begin SSLLib := libCapicom; end; with Emitente do begin CNPJ := g_cnpj_empresa; InscMun := g_inscr_municipal; RazSocial := g_nome_nf_empresa; WebUser := l_client.FieldByname('C_USUARIO_WS_NFSE').AsString; WebSenha := l_client.FieldByname('C_SENHA_WS_NFSE').AsString; WebFraseSecr := ''; end; PathIniCidades := l_client.FieldByname('C_CAMINHO_ARQ_INI_NFSE').AsString; PathIniProvedor := l_client.FieldByname('C_CAMINHO_ARQ_INI_NFSE').AsString; UserWeb := l_client.FieldByname('C_USUARIO_WS_NFSE').AsString; SenhaWeb := l_client.FieldByname('C_SENHA_WS_NFSE').AsString; CodigoMunicipio := l_client.FieldByname('C_NUM_MUN_NF').AsInteger; FormaEmissao := F_Forma_Emissao(l_tipo_emissao); Salvar := True; ConsultaLoteAposEnvio := True; SetConfigMunicipio; end; with Arquivos do begin PathSalvar := l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString; PathSchemas := l_client.FieldByName('C_CAMINHO_SCHEMAS_NFSE').AsString; PathGer := l_client.FieldByName('C_CAMINHO_LOGS_NFSE').AsString; AdicionarLiteral := True; EmissaoPathNFSe := True; SepararPorMes := False; SepararPorCNPJ := False; NomeLongoNFSe := True; end; with WebServices do begin UF := g_uf_origem_empresa; Ambiente := F_Ambiente_Emissao(l_client.FieldByName('C_AMBIENTE_NFSE').AsInteger); Visualizar := True; Salvar := True; if Trim(l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString) <> '' then begin ProxyPass := F_Uncript( l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString); end; end; end; end; if Result then begin RLPrinter.PrinterName := F_Nome_Impressora(g_cod_impressora_nfe); if not DirectoryExists(l_client.FieldByName('C_CAMINHO_SCHEMAS_NFSE').AsString) then begin CreateDir(l_client.FieldByName('C_CAMINHO_SCHEMAS_NFSE').AsString); end; if not DirectoryExists(l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString) then begin CreateDir(l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString); end; if not DirectoryExists(l_client.FieldByName('C_CAMINHO_SALVAR_PDF_NFSE').AsString) then begin CreateDir(l_client.FieldByName('C_CAMINHO_SALVAR_PDF_NFSE').AsString); end; l_acbr_danfe.PathPDF := l_client.FieldByName('C_CAMINHO_SALVAR_PDF_NFSE').AsString; v_sql := 'select C_COD_EMPRESA, C_LOGO_EMPRESA '+ 'from EM0100 '+ 'where C_COD_EMPRESA = '''+g_cod_empresa+''''; F_Query(MD.QGERAL, MD.cdsGeral, v_sql, 'O'); v_imagem := TImage.Create(g_component); v_stream := MD.cdsGeral.CreateBlobStream(MD.cdsGeral.FieldByName('C_LOGO_EMPRESA'), bmRead); v_imagem.Picture.Bitmap.LoadFromStream(v_stream); v_imagem.Picture.SaveToFile(l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString+'\Logo.bmp'); v_stream.Free; v_imagem.Free; with l_acbr.DANFSE do begin //Logo := l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString+'\Logo.bmp'; PrestLogo := l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString+'\Logo.bmp'; TipoDANFSE := tpPadrao; end; end; except on E:Exception do begin MessageDlg('Erro ao CARREGAR as CONFIGURAÇÕES do CERTIFICADO DIGITAL. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; end;

Bom dia @Italo Jurisato Junior Muito obrigado por responder !! Com o programa de exemplo funciona 100%, este é um teste implementando no meu código. Qual seria a propriedade para eu verificar se está consultando o lote após o envio ?? Neste trecho do código dá o erro :

Boa tarde. Eu estou homologando a amissão de Notas de Serviços em nosso sistema, cheguei a gerar o arquivo .RPS e na hora de enviar da o seguinte erro : Seguem os arquivos xml da rps, e o recibo de entrega e também o comprovante do envio do lote. Não achei o arquivo xml da NFSe !!!! Alguém sabe o que estou fazendo errado ?? 3518040893460300017256000000000000001-rps.xml 3-env-lot.xml 3518040893460300017256000000000000001-nfse.pdf

Eu já tentei desta forma. Segue meu código de configuração da conexão : if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'SSL' then begin l_acbr.SSL.SSLType := LT_all; Geral.SSLLib := libOpenSSL; Geral.SSLCryptLib := cryOpenSSL; Geral.SSLHttpLib := httpOpenSSL; Geral.SSLXmlSignLib := xsXmlSec; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'WinCript' then begin l_acbr.SSL.SSLType := LT_TLSv1_2; Geral.SSLLib := libWinCrypt; Geral.SSLCryptLib := CryWinCrypt; Geral.SSLHttpLib := httpWinHttp; Geral.SSLXmlSignLib := xsLibXML2; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'Capicom Delphi SOAP' then begin Geral.SSLLib := libCapicomDelphiSoap; Geral.SSLCryptLib := cryCapicom; Geral.SSLHttpLib := httpWinINet; Geral.SSLXmlSignLib := xsMsXmlCapicom; end else begin Geral.SSLLib := libCapicom; Geral.SSLCryptLib := cryCapicom; Geral.SSLHttpLib := httpWinINet; Geral.SSLXmlSignLib := xsMsXmlCapicom; end; Dar um update via svn ??? Fiz sim.. Se for de outro modo como proceder ??

A1 alterado para uso com arquivo PFX e SSL está funcionando perfeitamente em ambiente de produção, em homologação permanece o erro do início do post. Com o A3 (tanto em produção como homologação), eu liguei na certificadora e está tudo atualizado, consultei no sefaz tb e está tudo ok. Porém agora nem CAPICOM está funcionando... Tem mais alguma idéia do que fazer ?

Já está configurado. Está tudo atualizado... Como verifico isso ??? É que o certificado da empresa que faço desenvolvimento está em São Paulo e o A1 é do cliente que está no Paraná...

Na UF Paraná está usando A1 e em SP A3 Alterei de acordo com o que você me passou e o erro mudou : Acho que agora realmente é relacionado com o TLS Como resolvo isso ?? Tem idéia ?? Seguem os xmls !!! 20180416123123-ped-sta.xml 20180416123123-ped-sta-soap.xml