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