Pesquisar na Comunidade
Showing results for tags 'recuperar protocolo perdido..'.
Encontrado 1 registro
-
procedure TForm1.RecuperarXML1Click(Sender: TObject); begin OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir :='c:\WS\logs\NFe\'; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); Datamodulo.CDSEmitente.Active:=false; datamodulo.SQLDSEmitente.CommandText:='select * from EMITENTE WHERE EMITENTE.CNPJ=:v_CNPJ'; DataModulo.SQLDSEmitente.Params[0].Value:=ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; datamodulo.CDSEmitente.Active:=True; LerConfiguracao; ACBrNFe1.Consultar; sleep(3000); ACBrNFe1.NotasFiscais.Items[0].GravarXML(Chave+'-procnfe.xml','c:\Teste\'); end; end; faço dessa forma mesmo assim da esse erro