Ir para conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Showing results for tags 'onclik'.

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • Fórum Aberto - ACBr
    • Notícias do ACBr
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • Boteco do ACBr
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categorias

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Download Livre
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendários

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Calendário da Comunidade
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


Website URL

Encontrado 1 registro

  1. Ao executar o evento onclick (do botao btn_ImportarNFe) o programa chama o mesmo evento onclick novamente a partir da chamada do método `Nfe.EnviarEvento(StrToInt(IDLote));` do segundo trecho de código (ver listagem completa abaixo). Ao executar o mesmo evento onclick em modo debug essa segunda chamada não acontece. Trecho de código da Procedure ImportarNFe: procedure Tfrm_LancamentosDespesas.btn_ImportarNFeClick(Sender: TObject); var dlgImportarNFe : TFrm_BuscarChave; Chave, CNPJ, idLote : string; i : Integer; XMLtsl : TStringList; XMLStream : TStringStream; begin dlgImportarNFe := TFrm_BuscarChave.Create(nil); XMLtsl := TStringList.Create; XMLStream := TStringStream.Create; dlgImportarNFe.ShowModal; if dlgImportarNFe.ModalResult = mrCancel then begin Exit end else begin if dlgImportarNFe.chk_BuscarXML.Checked = False then begin Chave := dlgImportarNFe.edt_Chave.Text; CNPJ := dm.EmpresaControlada.CGC; idLote := '1'; dlgImportarNFe.free; dm_NFe.EventoConfirmacao(Chave, idLote, CNPJ); dm_NFe.DistribuicaoDFePorChaveNFe(31, CNPJ, Chave); op.FileName := dm_NFe.nfe.Configuracoes.Arquivos.DownloadNFe.PathDownload + dm_NFe.nfe.WebServices.DistribuicaoDFe.ListaArqs[0]; end; Trecho de código com método EnviarEvento : procedure Tdm_NFe.EventoConfirmacao(Chave, idLote, CNPJ: string); var lMsg : string; RetornoWS : string; begin Chave := Trim(OnlyNumber(Chave)); idLote := Trim(OnlyNumber(idLote)); CNPJ := Trim(OnlyNumber(CNPJ)); nfe.Configuracoes.WebServices.Ambiente := dm_NFe.tipoAmbiente; nfe.Configuracoes.Certificados.NumeroSerie := dm_logon.dat_EmpresaCTRLNUMSERIE_NFE.AsString; nfe.Configuracoes.WebServices.UF := 'MG'; DataModuleCreate(nil); Nfe.EventoNFe.Evento.Clear; with Nfe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; Nfe.EnviarEvento(StrToInt(IDLote)); Alguem sabe o que pode estar acontecendo?
×
×
  • 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.