carlos_tedex

Bom dia, Fiz a atualização/instalação do componente hoje e tudo funcionou 100% Provedor: SilTecnologia Cidade: Vila Velha/ES

Creio que faltou informar alguns campos do Prestador do Serviço.

Bom dia, Tente desmarcar essa opção do componente: (Configurações / Arquivos / TabServicosExt = False). Quando essa opção é selecionada a descrição é buscada nesse arquivo "TabServicos.txt". Caso dê um erro de "dhProc" e "nDFSe" tente alimentar esses campos: NumeroLote := NumLote; DataEmissaoRPS := Now;

Boa noite, Ao realizar o cancelamento de uma nota de serviço, o processo é concluído corretamente na prefeitura. Porém, ao obter o retorno pelo componente, ocorre um erro que impede confirmar se o cancelamento foi efetivado com sucesso. Vi que em conversas anteriores foi relatado sobre outros problemas no cancelamento também. Alguém já passou por esse erro e conseguiu pegar o retorno de outra forma? Fontes atualizados Revisão 44454. Grato!

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