Ir para conteúdo
  • Cadastre-se

Eloi Filho

Membros
  • Total de ítens

    16
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Eloi Filho postou

  1. boa tarde, desculpem a demora em responder, mas resolvi o problema já, fiz oq ja tinha feito ant e não tinha dado certo... tirei muitos caminhos no library instalei novamente o ACBr, funcionou normalmente e depois voltei os caminhos novamente. obrigado pela ajuda e paciência de todos
  2. segue anexo o arquivo de log log_Delphi_10_Seattle.txt
  3. bom dia amigos, ja fiz isso td tbm, o Synapse por padrão já vem marcado e em relação ao path é muito grande eu ja coloquei todos os componentes no "C:\ACBr" e mesmo assim continuou com o mesmo erro. agradeço a quem puder ajudar... acredito que não seja só eu com esse problema.
  4. bom dia a todos, estou com esse problema desde segunda dia 04/12/2017, gostaria de saber se alguém já tem solução para esse problema... não consigo de maneira nenhuma instalar o componente, ja pesquisei aqui no forum e fora dele, já fiz todos os procedimentos informados em todos os sites que vi e até agora nada de resolver o problema. obs: alguém por favor pra ajudar a resolver? segue o meu log anexo log_Delphi_10_Seattle.txt
  5. boa noite... não estou conseguindo, mas mesmo assim muito obrigado a todos como faço pra fechar o post? abraços
  6. boa noite... alguém mais tem uma ideia do q pode ta acontecendo?
  7. sim... estão iguais... componentes atualizados e recopilados pelo ACBrInstall também
  8. bom dia Juliomar, ja olhei no projeto ACBrNFeMonitor e percebi q os campos estão informados do mesmo jeito q eu informo no meu sistema, mas não grava nas pastas informadas, continua gravando todos os eventos na pasta Logs e somente lá... se mais alguem puder me dar uma dica, eu agradeço... abraços...
  9. boa noite... alguém pode me ajudar com o problema citado acima? precio resolver essa situação e não to encontrando a solução, por favor alguém me ajude. abraços...
  10. boa tarde Tiago Ravache, desculpa amigão... não me atentei pra isso... mas voltando ao assunto eu uso o ACBr Versão: 0.5.0a q eu atualizei ontem e não to conseguindo fazer o que foi dito antes. abraços
  11. boa tar a todos eu estou com o seguinte problema: tenho minha procedure de gravação e leitura das configurações exatamente como está no demo do acbr mas na hora da gravação dos aquivos ele só grava na pasta logs alguém pode me ajudar? as procedures são essas: procedure Tf_menu.GravarConfiguracao; Var IniFile : String ; Ini : TIniFile ; StreamMemo : TMemoryStream; begin IniFile := ChangeFileExt( Application.ExeName, '.ini') ; Ini := TIniFile.Create( IniFile ); try Ini.WriteString( 'Certificado','Caminho' ,edtCaminho.Text) ; Ini.WriteString( 'Certificado','Senha' ,edtSenha.Text) ; Ini.WriteString( 'Certificado','NumSerie',edtNumSerie.Text) ; Ini.WriteBool( 'Geral','AtualizarXML' ,ckSalvar.Checked) ; Ini.WriteBool( 'Geral','ExibirErroSchema' ,ckSalvar.Checked) ; Ini.WriteString( 'Geral','FormatoAlerta' ,edtFormatoAlerta.Text) ; Ini.WriteInteger( 'Geral','FormaEmissao',cbFormaEmissao.ItemIndex) ; Ini.WriteInteger( 'Geral','ModeloDF',cbModeloDF.ItemIndex) ; Ini.WriteInteger( 'Geral','VersaoDF',cbVersaoDF.ItemIndex) ; Ini.WriteString( 'Geral','IdToken' ,edtIdToken.Text) ; Ini.WriteString( 'Geral','Token' ,edtToken.Text) ; Ini.WriteBool( 'Geral','RetirarAcentos' ,cbxRetirarAcentos.Checked) ; Ini.WriteBool( 'Geral','Salvar' ,ckSalvar.Checked) ; Ini.WriteString( 'Geral','PathSalvar' ,edtPathLogs.Text) ; Ini.WriteString( 'Geral','PathSchemas' ,edtPathSchemas.Text) ; Ini.WriteString( 'WebService','UF' ,cbUF.Text) ; Ini.WriteInteger( 'WebService','Ambiente' ,rgTipoAmb.ItemIndex) ; Ini.WriteBool( 'WebService','Visualizar',cbxVisualizar.Checked) ; Ini.WriteBool( 'WebService','SalvarSOAP',cbxSalvarSOAP.Checked) ; Ini.WriteBool( 'WebService','AjustarAut',cbxAjustarAut.Checked) ; Ini.WriteString( 'WebService','Aguardar' ,edtAguardar.Text) ; Ini.WriteString( 'WebService','Tentativas' ,edtTentativas.Text) ; Ini.WriteString( 'WebService','Intervalo' ,edtIntervalo.Text) ; Ini.WriteString( 'Proxy','Host' ,edtProxyHost.Text) ; Ini.WriteString( 'Proxy','Porta' ,edtProxyPorta.Text) ; Ini.WriteString( 'Proxy','User' ,edtProxyUser.Text) ; Ini.WriteString( 'Proxy','Pass' ,edtProxySenha.Text) ; Ini.WriteBool( 'Arquivos','Salvar' ,cbxSalvarArqs.Checked) ; Ini.WriteBool( 'Arquivos','PastaMensal' ,cbxPastaMensal.Checked) ; Ini.WriteBool( 'Arquivos','AddLiteral' ,cbxAdicionaLiteral.Checked) ; Ini.WriteBool( 'Arquivos','EmissaoPathNFe' ,cbxEmissaoPathNFe.Checked) ; Ini.WriteBool( 'Arquivos','SalvarCCeCanPathEvento',cbxSalvaCCeCancelamentoPathEvento.Checked) ; Ini.WriteBool( 'Arquivos','SepararPorCNPJ' ,cbxSepararPorCNPJ.Checked) ; Ini.WriteBool( 'Arquivos','SepararPorModelo',cbxSepararPorModelo.Checked) ; Ini.WriteString( 'Arquivos','PathNFe' ,edtPathNFe.Text) ; Ini.WriteString( 'Arquivos','PathCan' ,edtPathCan.Text) ; Ini.WriteString( 'Arquivos','PathInu' ,edtPathInu.Text) ; Ini.WriteString( 'Arquivos','PathDPEC' ,edtPathDPEC.Text) ; Ini.WriteString( 'Arquivos','PathCCe' ,edtPathCCe.Text) ; Ini.WriteString( 'Arquivos','PathEvento' ,edtPathEvento.Text) ; Ini.WriteString( 'Emitente','CNPJ' ,edtEmitCNPJ.Text) ; Ini.WriteString( 'Emitente','IE' ,edtEmitIE.Text) ; Ini.WriteString( 'Emitente','RazaoSocial',edtEmitRazao.Text) ; Ini.WriteString( 'Emitente','Fantasia' ,edtEmitFantasia.Text) ; Ini.WriteString( 'Emitente','Fone' ,edtEmitFone.Text) ; Ini.WriteString( 'Emitente','CEP' ,edtEmitCEP.Text) ; Ini.WriteString( 'Emitente','Logradouro' ,edtEmitLogradouro.Text) ; Ini.WriteString( 'Emitente','Numero' ,edtEmitNumero.Text) ; Ini.WriteString( 'Emitente','Complemento',edtEmitComp.Text) ; Ini.WriteString( 'Emitente','Bairro' ,edtEmitBairro.Text) ; Ini.WriteString( 'Emitente','CodCidade' ,edtEmitCodCidade.Text) ; Ini.WriteString( 'Emitente','Cidade' ,edtEmitCidade.Text) ; Ini.WriteString( 'Emitente','UF' ,edtEmitUF.Text) ; Ini.WriteString( 'Email','Host' ,edtSmtpHost.Text) ; Ini.WriteString( 'Email','Port' ,edtSmtpPort.Text) ; Ini.WriteString( 'Email','User' ,edtSmtpUser.Text) ; Ini.WriteString( 'Email','Pass' ,edtSmtpPass.Text) ; Ini.WriteString( 'Email','Assunto' ,edtEmailAssunto.Text) ; Ini.WriteBool( 'Email','SSL' ,cbEmailSSL.Checked ) ; StreamMemo := TMemoryStream.Create; mmEmailMsg.Lines.SaveToStream(StreamMemo); StreamMemo.Seek(0,soFromBeginning); Ini.WriteBinaryStream( 'Email','Mensagem',StreamMemo) ; StreamMemo.Free; Ini.WriteInteger( 'DANFE','Tipo' ,rgTipoDanfe.ItemIndex) ; Ini.WriteString( 'DANFE','LogoMarca' ,edtLogoMarca.Text) ; finally Ini.Free ; end; end; procedure Tf_menu.LerConfiguracao; Var IniFile : String ; Ini : TIniFile ; Ok : Boolean; StreamMemo : TMemoryStream; begin IniFile := ChangeFileExt( Application.ExeName, '.ini') ; Ini := TIniFile.Create( IniFile ); try {$IFDEF ACBrNFeOpenSSL} Label7.Top := 56; edtSenha.Top := 72; gbCertificado.Height := 144; edtCaminho.Text := Ini.ReadString( 'Certificado','Caminho' ,'') ; edtSenha.Text := Ini.ReadString( 'Certificado','Senha' ,'') ; ACBrNFe.Configuracoes.Certificados.Certificado := edtCaminho.Text; ACBrNFe.Configuracoes.Certificados.Senha := edtSenha.Text; edtNumSerie.Visible := False; Label25.Visible := False; sbtnGetCert.Visible := False; {$ELSE} edtNumSerie.Text := Ini.ReadString( 'Certificado','NumSerie','') ; edtSenha.Text := Ini.ReadString( 'Certificado','Senha' ,'') ; ACBrNFe.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; edtNumSerie.Text := ACBrNFe.Configuracoes.Certificados.NumeroSerie; Label6.Caption := 'Informe o número de série do certificado'#13+ 'Disponível no Internet Explorer no menu'#13+ 'Ferramentas - Opções da Internet - Conteúdo '#13+ 'Certificados - Exibir - Detalhes - '#13+ 'Número do certificado'; Label7.Top := 136; edtSenha.Top := 152; gbCertificado.Height := 184; Label7.Visible := True; edtSenha.Visible := True; edtCaminho.Visible := False; sbtnCaminhoCert.Visible := False; {$ENDIF} cbxAtualizarXML.Checked := Ini.ReadBool( 'Geral','AtualizarXML',True) ; cbxExibirErroSchema.Checked := Ini.ReadBool( 'Geral','ExibirErroSchema',True) ; edtFormatoAlerta.Text := Ini.ReadString( 'Geral','FormatoAlerta' ,'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.') ; cbFormaEmissao.ItemIndex := Ini.ReadInteger( 'Geral','FormaEmissao',0) ; cbModeloDF.ItemIndex := Ini.ReadInteger( 'Geral','ModeloDF',0) ; cbVersaoDF.ItemIndex := Ini.ReadInteger( 'Geral','VersaoDF',0) ; edtIdToken.Text := Ini.ReadString( 'Geral','IdToken' ,'') ; edtToken.Text := Ini.ReadString( 'Geral','Token' ,'') ; ckSalvar.Checked := Ini.ReadBool( 'Geral','Salvar' ,True) ; cbxRetirarAcentos.Checked := Ini.ReadBool( 'Geral','RetirarAcentos',True) ; edtPathLogs.Text := Ini.ReadString( 'Geral','PathSalvar' ,PathWithDelim(ExtractFilePath(Application.ExeName))+'Logs') ; edtPathSchemas.Text := Ini.ReadString( 'Geral','PathSchemas' ,PathWithDelim(ExtractFilePath(Application.ExeName))+'Schemas\'+GetEnumName(TypeInfo(TpcnVersaoDF), integer(cbVersaoDF.ItemIndex) )) ; with ACBrNFe.Configuracoes.Geral do begin AtualizarXMLCancelado := cbxAtualizarXML.Checked; ExibirErroSchema := cbxExibirErroSchema.Checked; FormatoAlerta := edtFormatoAlerta.Text; FormaEmissao := TpcnTipoEmissao(cbFormaEmissao.ItemIndex); ModeloDF := TpcnModeloDF(cbModeloDF.ItemIndex); VersaoDF := TpcnVersaoDF(cbVersaoDF.ItemIndex); IdToken := edtIdToken.Text; Token := edtToken.Text; Salvar := ckSalvar.Checked; PathSalvar := edtPathLogs.Text; PathSchemas := edtPathSchemas.Text; end; cbUF.ItemIndex := cbUF.Items.IndexOf(Ini.ReadString( 'WebService','UF','SP')) ; rgTipoAmb.ItemIndex := Ini.ReadInteger( 'WebService','Ambiente' ,0) ; cbxVisualizar.Checked := Ini.ReadBool( 'WebService','Visualizar',False) ; cbxSalvarSOAP.Checked := Ini.ReadBool( 'WebService','SalvarSOAP',False) ; cbxAjustarAut.Checked := Ini.ReadBool( 'WebService','AjustarAut' ,False) ; edtAguardar.Text := Ini.ReadString( 'WebService','Aguardar' ,'0') ; edtTentativas.Text := Ini.ReadString( 'WebService','Tentativas','5') ; edtIntervalo.Text := Ini.ReadString( 'WebService','Intervalo' ,'0') ; edtProxyHost.Text := Ini.ReadString( 'Proxy','Host' ,'') ; edtProxyPorta.Text := Ini.ReadString( 'Proxy','Porta' ,'') ; edtProxyUser.Text := Ini.ReadString( 'Proxy','User' ,'') ; edtProxySenha.Text := Ini.ReadString( 'Proxy','Pass' ,'') ; with ACBrNFe.Configuracoes.WebServices do begin UF := cbUF.Text; Ambiente := StrToTpAmb(Ok,IntToStr(rgTipoAmb.ItemIndex+1)); Visualizar := cbxVisualizar.Checked; Salvar := cbxSalvarSOAP.Checked; AjustaAguardaConsultaRet := cbxAjustarAut.Checked; if DFeUtil.NaoEstaVazio(edtAguardar.Text)then AguardarConsultaRet := DFeUtil.SeSenao(StrToInt(edtAguardar.Text)<1000,StrToInt(edtAguardar.Text)*1000,StrToInt(edtAguardar.Text)) else edtAguardar.Text := IntToStr(AguardarConsultaRet); if DFeUtil.NaoEstaVazio(edtTentativas.Text) then Tentativas := StrToInt(edtTentativas.Text) else edtTentativas.Text := IntToStr(Tentativas); if DFeUtil.NaoEstaVazio(edtIntervalo.Text) then IntervaloTentativas := DFeUtil.SeSenao(StrToInt(edtIntervalo.Text)<1000,StrToInt(edtIntervalo.Text)*1000,StrToInt(edtIntervalo.Text)) else edtIntervalo.Text := IntToStr(ACBrNFe.Configuracoes.WebServices.IntervaloTentativas); ProxyHost := edtProxyHost.Text; ProxyPort := edtProxyPorta.Text; ProxyUser := edtProxyUser.Text; ProxyPass := edtProxySenha.Text; end; if ACBrNFe.Configuracoes.WebServices.Ambiente = taHomologacao then sbambiente.Visible := True else sbambiente.Visible := False; cbxSalvarArqs.Checked := Ini.ReadBool( 'Arquivos','Salvar' ,false); cbxPastaMensal.Checked := Ini.ReadBool( 'Arquivos','PastaMensal',false); cbxAdicionaLiteral.Checked := Ini.ReadBool( 'Arquivos','AddLiteral' ,false); cbxEmissaoPathNFe.Checked := Ini.ReadBool( 'Arquivos','EmissaoPathNFe',false); cbxSalvaCCeCancelamentoPathEvento.Checked := Ini.ReadBool( 'Arquivos','SalvarCCeCanPathEvento',false); cbxSepararPorCNPJ.Checked := Ini.ReadBool( 'Arquivos','SepararPorCNPJ',false); cbxSepararPorModelo.Checked := Ini.ReadBool( 'Arquivos','SepararPorModelo',false); edtPathNFe.Text := Ini.ReadString( 'Arquivos','PathNFe' ,'') ; edtPathCan.Text := Ini.ReadString( 'Arquivos','PathCan' ,'') ; edtPathInu.Text := Ini.ReadString( 'Arquivos','PathInu' ,'') ; edtPathDPEC.Text := Ini.ReadString( 'Arquivos','PathDPEC' ,'') ; edtPathCCe.Text := Ini.ReadString( 'Arquivos','PathCCe' ,'') ; edtPathEvento.Text := Ini.ReadString( 'Arquivos','PathEvento','') ; with ACBrNFe.Configuracoes.Arquivos do begin Salvar := cbxSalvarArqs.Checked; PastaMensal := cbxPastaMensal.Checked; AdicionarLiteral := cbxAdicionaLiteral.Checked; EmissaoPathNFe := cbxEmissaoPathNFe.Checked; SalvarCCeCanEvento := cbxSalvaCCeCancelamentoPathEvento.Checked; SepararPorCNPJ := cbxSepararPorCNPJ.Checked; SepararPorModelo := cbxSepararPorModelo.Checked; PathNFe := edtPathNFe.Text; PathCan := edtPathCan.Text; PathCCe := edtPathCCe.Text; PathInu := edtPathInu.Text; PathDPEC := edtPathDPEC.Text; PathEvento := edtPathEvento.Text; end; edtEmitCNPJ.Text := Ini.ReadString( 'Emitente','CNPJ' ,'') ; edtEmitIE.Text := Ini.ReadString( 'Emitente','IE' ,'') ; edtEmitRazao.Text := Ini.ReadString( 'Emitente','RazaoSocial','') ; edtEmitFantasia.Text := Ini.ReadString( 'Emitente','Fantasia' ,'') ; edtEmitFone.Text := Ini.ReadString( 'Emitente','Fone' ,'') ; edtEmitCEP.Text := Ini.ReadString( 'Emitente','CEP' ,'') ; edtEmitLogradouro.Text := Ini.ReadString( 'Emitente','Logradouro' ,'') ; edtEmitNumero.Text := Ini.ReadString( 'Emitente','Numero' ,'') ; edtEmitComp.Text := Ini.ReadString( 'Emitente','Complemento','') ; edtEmitBairro.Text := Ini.ReadString( 'Emitente','Bairro' ,'') ; edtEmitCodCidade.Text := Ini.ReadString( 'Emitente','CodCidade' ,'') ; edtEmitCidade.Text :=Ini.ReadString( 'Emitente','Cidade' ,'') ; edtEmitUF.Text := Ini.ReadString( 'Emitente','UF' ,'') ; edtSmtpHost.Text := Ini.ReadString( 'Email','Host' ,'') ; edtSmtpPort.Text := Ini.ReadString( 'Email','Port' ,'') ; edtSmtpUser.Text := Ini.ReadString( 'Email','User' ,'') ; edtSmtpPass.Text := Ini.ReadString( 'Email','Pass' ,'') ; edtEmailAssunto.Text := Ini.ReadString( 'Email','Assunto','') ; cbEmailSSL.Checked := Ini.ReadBool( 'Email','SSL' ,False) ; StreamMemo := TMemoryStream.Create; Ini.ReadBinaryStream( 'Email','Mensagem',StreamMemo) ; mmEmailMsg.Lines.LoadFromStream(StreamMemo); StreamMemo.Free; rgTipoDanfe.ItemIndex := Ini.ReadInteger( 'DANFE','Tipo' ,0) ; edtLogoMarca.Text := Ini.ReadString( 'DANFE','LogoMarca' ,'') ; if ACBrNFe.DANFE <> nil then begin ACBrNFe.DANFE.TipoDANFE := StrToTpImp(OK,IntToStr(rgTipoDanfe.ItemIndex+1)); ACBrNFe.DANFE.Logo := edtLogoMarca.Text; end; finally Ini.Free ; end; end; não consigo fazer ele gravar nas respectivas pastas obrigado a todos q puderem me ajudar... Eloi Filho
  12. Boa Noite, desculpem aminha santa ignorancia, mas alguém pode me dizer onde fica essa função "GerarXML" usa no fonte do amigo usada na função abaixo em destaque?, pq ja rodei tudo e nao consigo resolver eu problema procedure TfrmPrincipal.GeraXml; var i: integer; begin FPath:=GerarXML(Memo2.Lines.Text); WBXML.Navigate(FPath); MessageBox(0,PChar('XML '+FPath+' gerado com sucesso!'),'Informação', MB_ICONINFORMATION+MB_TASKMODAL); btnNovaConsulta.Enabled := True; btnPegarHTML.Enabled := True; ACBrNFe1.NotasFiscais.LoadFromFile(FPath); Edit1.Text := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.xNome; edtChaveNFe.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); EdChave.Text := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); carregaItens; PageControl1.ActivePageIndex := 3; end;
  13. bom dia Leonardo, vou verificar como vc fez... isso está nesse post q vc me passou? abraços
  14. Boa tarde Italo, o que impede é q a empresa onde to fazendo as implementações usa o Delphi 5 e não pretende alterar nesse momento por conta de varios outros componentes de terceiro... entende? abraços
  15. bom dia a todos, estou tentando instalar o ACBr no Delphi 5 e me dá a seguinte msg Versão do Delphi não suportada pelo ACBr. mas na na opção Versão do Delphi da instalação existe a versão Delphi 5 poderia me dizer oq e onde está errado? abraços Eloi Filho Programador de Sistemas [email protected]
  16. Eloi Filho

    Download De Xml Da Nfe

    Boa noite a todos, Gostaria se possivel que alguém pudesse ver o código abaixo e me desse alguma ideia do que possa está errado, não consigo fazer o download do XML da NFe, moro em Manaus/AM e não sei se o problema é no código ou nos servidores da Sefaz daqui, desde ja agradeço aquem puder me ajudar. procedure TfrmCadENTRADA_PRODUTO.pgcntrlcadastroChange(Sender: TObject); begin inherited; if pgcntrlcadastro.ActivePage = tbshtDownloadXML then begin dmENTRADA_PRODUTO.qryParamNFCe.close; dmENTRADA_PRODUTO.qryParamNFCe.params[0].asinteger := 1; dmENTRADA_PRODUTO.qryParamNFCe.open; pgcntrlcadastro.ActivePage := tbshtDownloadXML; try ACBrNFe2.Configuracoes.Certificados.NumeroSerie := dmENTRADA_PRODUTO.qryParamNFCeSERIE_CERTIFICADO.AsString; ACBrNFe2.Configuracoes.WebServices.UF := dmENTRADA_PRODUTO.qryParamNFCeUF_WEBSERVICE.AsString; // 'AM'; case dmENTRADA_PRODUTO.qryParamNFCeID_AMBIENTE.AsInteger of 1: ACBrNFe2.Configuracoes.WebServices.Ambiente := taProducao; 2: ACBrNFe2.Configuracoes.WebServices.Ambiente := taHomologacao; end; finally end; end; end; procedure TfrmCadENTRADA_PRODUTO.btnSalvarXMLClick(Sender: TObject); var aNOMEARQ: string; aChave, idLote, aCNPJ: string; lMsg: string; begin inherited; try dmENTRADA_PRODUTO.qryEmpresa.close; dmENTRADA_PRODUTO.qryEmpresa.open; aChave := dbedtCHAVENFe.Text; aChave := Trim(OnlyNumber(aChave)); idLote := '1'; aCNPJ := dmENTRADA_PRODUTO.qryEmpresaCNPJ.AsString; ACBrNFe2.Configuracoes.Geral.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\vm40'; ACBrNFe2.EventoNFe.Evento.Clear; with ACBrNFe2.EventoNFe.Evento.Add do begin InfEvento.cOrgao := StrToInt(Copy(aChave,1,2)); infEvento.chNFe := aChave; infEvento.CNPJ := aCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; if ACBrNFe2.EnviarEventoNFe(StrToInt(idLote)) then begin if ACBrNFe2.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 657 then begin // ACBrNFe2.EventoNFe.Evento.Items[0].InfEvento.cOrgao := ACBrNFe2.WebServices.EnvEvento.EventoRetorno.cOrgao; with AcbrNFe2.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= 'Id: '+Id+#13+ 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ 'verAplic: '+verAplic+#13+ 'cOrgao: '+IntToStr(cOrgao)+#13+ 'cStat: '+IntToStr(cStat)+#13+ 'xMotivo: '+xMotivo+#13+ 'chNFe: '+chNFe+#13+ 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ 'xEvento: '+xEvento+#13+ 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ 'CNPJDest: '+CNPJDest+#13+ 'emailDest: '+emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: '+nProt; end; end; end; MemoResp.Lines.Text := lMsg+#13#13; // ShowMessage(lMsg); MemoResp.Lines.Text := MemoResp.Lines.Text + UTF8Encode(ACBrNFe2.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe2.WebServices.EnvEvento.RetornoWS); LoadXML(MemoResp, WBResposta); ACBrNFe2.Configuracoes.Certificados.Senha := dbedtSENHA.Text; ACBrNFe2.Configuracoes.Geral.FormaEmissao := teNormal; ACBrNFe2.Configuracoes.Geral.PathSalvar := ExtractFilePath(Application.ExeName); ACBrNFe2.Configuracoes.Geral.PathSchemas := 'C:\LSI Sistemas\CLICK\Esquemas\vm40'; //'local onde está os Schemas'; //'C:\acbr\Exemplos\ACBrNFe2\Delphi\Schemas'; ACBrNFe2.Configuracoes.Geral.Salvar := true; MemoResp.Clear; MemoRespWS.Clear; with ACBrNFe2.DownloadNFe do begin Download.CNPJ := dmENTRADA_PRODUTO.qryEmpresaCNPJ.AsString; // ACBrNFe2.Configuracoes.Certificados. '84.522.994/0001-04'; //Edit2.Text; with Download.Chaves.Add do begin chNFe := dbedtCHAVENFe.Text; end; end; try aNOMEARQ := ACBrNFe2.Configuracoes.Arquivos.PathNFe+'C:\LSI Sistemas\ClickLite\DownNFe\'+dbedtCHAVENFe.Text+'-down-nfe.xml'; ACBrNFe2.Download; ACBrNFe2.Configuracoes.Geral.Save(aNOMEARQ,ACBrNFe2.WebServices.DownloadNFe.retDownloadNFe.XML); MemoResp.Lines.Text := ACBrNFe2.WebServices.DownloadNFe.RetornoWS; MemoRespWS.Lines.Text := ACBrNFe2.WebServices.DownloadNFe.RetWS; except on e:Exception do MemoResp.Lines.Text := e.Message; end; finally begin ShowMessage('Processo Concluído com sucesso !!!'); pgcntrlcadastro.ActivePage := tbshtDados; dmENTRADA_PRODUTO.qryParamNFCe.close; dmENTRADA_PRODUTO.qryEmpresa.close; end; end; end; os arquivos q ele me retorna são: Obrigado abraçs!!! 20130815202405-ped-down-nfe.xml 20130815202406-down-nfe.xml 35130873076408000110550010000435821000435827-down-nfe.xml
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.