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

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!