carlos_tedex

Boa tarde, somente hoje pude fazer um teste... Usei o TWebBrowser mesmo. Click do botão: procedure Tform_principal.btn_view_xmlClick(Sender: TObject); begin try FDQuery1.Close; FDQuery1.SQL.Text := 'SELECT ENT_XML FROM ENTRADA WHERE ENT_CODIGO = :ENT_CODIGO'; FDQuery1.ParamByName('ENT_CODIGO').Value := edt_compra.Text; FDQuery1.Open; if FDQuery1.FieldByName('ENT_XML').AsString <> '' then begin form_preview_xml := Tform_preview_xml.Create(nil); try WBLoadHTML(form_preview_xml.WebBrowser1, FDQuery1.FieldByName('ENT_XML').AsString); form_preview_xml.ShowModal; finally form_preview_xml.Free; end; end; except on E: Exception do ShowMessage(E.Message); end; end; Função auxiliar: WBLoadHTML uses SHDocVw, ActiveX; procedure Tform_principal.WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string); var sl: TStringList; ms: TMemoryStream; begin WebBrowser.Navigate('about:blank') ; while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(WebBrowser.Document) then begin sl := TStringList.Create; try ms := TMemoryStream.Create; try sl.Text := HTMLCode; sl.SaveToStream(ms) ; ms.Seek(0, 0) ; (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ; finally ms.Free; end; finally sl.Free; end; end; end;

Assim que possível farei um teste meu amigo

Bom dia meu amigo, O motivo de NÃO salvar em disco partiu do gerente da empresa... mas tem algo haver com uma migração que iram fazer para AWS. Mas para esse caso de visualizar o XML vou salvar em disco mesmo na pasta TEMP. E se realmente for necessário visualizar SEM salvar em disco eu tentarei usar via webbrowser ou edge como o @Juliomar Marchetti sugeriu ou usar um TreeView como vc sugeriu. Grato pela atenção!

Obrigado pelo retorno Juliomar. Imaginei isso tb Pode fechar o post.

Boa tarde, Gostaria de saber se é possível abrir o arquivo XML da NFe que está armazenado em banco de dados direto no navegador padrão sem salva-lo antes em disco. Estou utilizando o Delphi 10 com SQL Server. Grato!

Boa noite @Juliomar Marchetti Funcionou certinho... bem mais simples! Só tive que dar um FDConnection.Commit após os comandos commitupdates ou applayupdates para liberar o registro no banco de dados. Muito obrigado meu amigo!

Opa! Assim que eu consegui alterar aqui já posto o resultado @Juliomar Marchetti Grato meu amigo!

Boa tarde, Estou iniciando o uso do FireDAC no Delphi 10.4 e estou com o seguinte problema, talvez por falta de conhecimento FDCommand + FDTableAdapter + FDMemTable + DBGrid Ao usar o conjunto de componentes acima tudo funciona bem... os dados são apresentados no DBGrid. Porém ao alterar alguma informação no DBGrid o mesmo comita no banco de dados no mesmo instante que desço o cursor para seguinte linha. Minha dúvida: Gostaria que somente fosse atualizado no banco de dados ao clicar em um botão Confirma por exemplo dando um FDMemTable.ApplyUpdates(-1). Já desativei essa opção no UpdateOptions "AutoCommitUpdates=False" do FDCommand mas sem sucesso. Nos meus projetos mais antigos usando assim (TSQLQuery + DataSetProvider + ClientDataSet) só é gravado no banco de dados quando dou um ApplyUpdates Banco de dados SQL Server 2008 Express Edition Grato!

Tudo certo agora Diego, muito obrigado!

Valeu Diego!

Correção no endereço para obter o link para o PDF. Segue o arquivo alterado para análise. Grato! ACBrNFSeXServicos.ini

Boa tarde Italo, Muito obrigado pelo seu tempo e análise feita em todos esses procedimentos. Vou fazer o que sugeriu de entrar em contato com o provedor e expor todos os problemas de padronização. Caso queiram fechar esse tópico fiquem à vontade... assim que tiver algum retorno posso abrir um novo. Grato meu amigo!

Boa tarde Italo, Apaguei todos os logs/xml da pasta e refiz os testes e anexei todos os XML gerados para Envio, Cancelamento e a Consulta NFSe por RPS. Se ainda precisar que faça mais algum teste é só dizer. Grato! - Envio: - Cancelamento: - Consulta NFSe por RPS: XML.zip

Bom dia Italo, Estou usando dessa forma aqui onde bImpDANFSe é um parâmetro do meu sistema onde o cliente define se vai querer imprimir o DANFSe ou não. ACBrNFSeX1.Emitir(vNumLote, meAutomatico, bImpDANFSe); Vou testar da forma que sugeriu e lhe enviar todos os XML envolvidos. Seria desta forma aqui: ACBrNFSeX1.Emitir(vNumLote, meLoteSincrono); É isso mesmo? Grato meu amigo!

Seque o XML da nota e também o RPS. Qq coisa é só avisar Italo. 3222113595146600015756000000000000130-rps.xml3222113595146600015756000000000000476-nfse.xml

Boa tarde Italo! Após atualização e reinstalação dos fontes, obtive o seguinte retorno: Pelo erro retornado acredito que foi algo com o formato da data enviada ou recebida. OBS: Para esse provedor SmarAPD Versão: 2.03 não é passado data de envio ao executar o cancelamento "ACBrNFSeX1.CancelarNFSe" conforme exemplo do demo. Em anexo segue os arquivos XML e também um manual que obtive da prefeitura aqui de Vila Velha/ES caso precise. Muito obrigado! ManualWebServiceVilaVelha.pdf XML.zip

Muito obrigado Italo. Caso precise de algum outro tipo de teste estou à disposição!

Segue os arquivos conforme solicitado Italo. Também vou enviar minhas abas de configuração. XML.zip

Boa tarde Italo, desculpe a demora do retorno meu amigo... Vamos lá: Cidade : Vila Velha/ES Provedor: SmarAPD Versão: 2.03 Fiz novamente um teste de cancelamento com a opção ConsultaAposCancelar ativada e realmente o XML da nota não é atualizado... Mas quando executo o método "ConsultarNFSeporRps" o arquivo XML tem sua tag de cancelamento inserida no arquivo. Também notei que o XML de retorno do cancelamento sempre é retornado independente do parâmetro "ConsultaAposCancelar" estar True ou False; OBS: No demo ocorre o mesmo cenário. Grato!

Bom dia! Gostaria de saber se tem alguma forma de atualizar o arquivo XML após executar um cancelamento. Hoje para atualizar o arquivo eu executo esse método: "ConsultarNFSeporRps". OBS: - Estou com essas opções ativadas: "ACBrNFSeX1.Configuracoes.Geral.Salvar := True" e "ACBrNFSeX1.Configuracoes.Arquivos.Salvar := True" - Também testei essa propriedade, mais sem sucesso: "ACBrNFSeX1.Configuracoes.Geral.ConsultaAposCancelar := True" Grato!

Bom dia, somente hoje consegui retomar os testes de emissão. Vamos lá: Mesmo aumentando o timeout ainda sim hoje ocorreu o erro de conexão: Erro Interno: 10060 citado acima em meus testes. Mas em contrapartida consegui enviar várias notas sem erro nenhum. Me parece ser um problema intermitente ou algo que ainda não consegui visualizar. Para amenizar um pouco o problema tive que utilizar alguns recursos de consulta para resgatar alguns campos para serem gravados no banco de dados, pois quando ocorre o erro não tem retorno das notas. Por mim podem fechar o tópico. Agradeço a atenção de todos!

Após o novo erro citado acima resolvi testar com os protocolos libOpenSSL novamente e com esse conjunto de DLLs e finalmente consegui enviar 2 notas no mesmo lote Na quinta-feira vou testar na empresa que trabalho, pois lá utilizamos proxy na rede. Depois reporto os resultados aqui. Grato!

Fiz novamente o teste instalando o certificado A1 como mencionou e ao testar enviando 2 notas no mesmo lote demorou um pouco e deu esse erro e as 2 notas não foram transmitidas: Quando envio somente 1 nota fiscal vai de boa:

Ei Italo fiz a mudança que sugeriu, porém dessa forma não foi também. Vou postar o print e os xmls gerados. Só uma observação: Quando alterei de libOpenSSL para libWinCrypt foi trocado todo o conjunto de protocolos. Era isso mesmo? Caso queira que eu faça mais algum teste é só falar. Hoje mais a noite vou tentar fazer mais testes também e qq novidade posto aqui. Por hora muito obrigado. 45-env-lot-sinc-soap.xml 45-env-lot-sinc.xml

Note que mesmo com o erro as notas foram transmitidas. Segue o print do site da prefeitura: