Jump to content

Promoção 25 Anos de Delphi
25% de desconto em todas as versões

Saiba mais

Ganhe o curso Tributação NF-e para Desenvolvedores

Assinando o SAC Anual este mês
botao.png

 

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

ornei

Membros
  • Content Count

    184
  • Joined

  • Last visited

Community Reputation

16 Good

1 Follower

About ornei

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Boa tarde Ítalo muito obrigado pelo retorno, se conseguir fazer a rotina posto no forum o fonte.
  2. boa tarde ao enviar a carta de correção por algum motivo não retornou os dados do recebimento, e o cliente tentou enviar novamente e retornou erro de duplicidade e o xml da carta de correção ficou com o retorno do erro e quando vai imprimir na tag xMotivo imprime a mensagem do erro, teria como apos consulta da NFe como citado acima gerar um novo xml valido da carta de correção apos essa consulta.
  3. boa tarde ao enviar a carta de correção por algum motivo não retornou os dados do recebimento, e o cliente tentou enviar novamente e retornou erro de duplicidade e o xml da carta de correção ficou com o retorno do erro e quando vai imprimir na tag xMotivo imprime a mensagem do erro, teria como apos consulta da NFe como citado acima gerar um novo xml valido da carta de correção apos essa consulta.
  4. bom dia, estou fazendo desta maneira: procedure TfrmNotasEnviadas.mnuEnviarCancelamentoEmailClick( Sender: TObject); var Para, Copia, lsXML, lsXMLCanc, Remetente, sNomeCancN: String; Anexo, Mensagem: Tstrings; CC:TStringList; Confirmacao: Boolean; tpCancelamento: TpcnTpEvento; begin { Crio os objeto } Anexo := TstringList.Create; CC := TstringList.Create; with dmMonitorNFCe do try Para := Trim(cdsBuscaNFCeEMAIL.AsString); Confirmacao := True; Mensagem := nil; if cdsBuscaNFCePROTOCOLO_CANC.AsString <> EmptyStr then begin if MostraFormularioEmail(Para,Copia,Confirmacao,Mensagem) = mrOk then begin ConfiguraComponenteNFe; { Define o nome do arquivo XML do cancelamento } if cdsBuscaNFCeCHAVE_CONTINGENCIA.AsString = EmptyStr then begin sNomeCancN := '110111'+Trim(cdsBuscaNFCeCHAVE.AsString)+'01'+'-procEventoNFe.xml'; tpCancelamento := teCancelamento; end else begin sNomeCancN := '110112'+Trim(cdsBuscaNFCeCHAVE.AsString)+'01'+'-procEventoNFe.xml'; tpCancelamento := teCancSubst; end; { Arquivo XML do Cancelamento } lsXMLCanc := NFCe.Configuracoes.Arquivos.GetPathEvento(tpCancelamento,'',cdsBuscaNFCeDATA_CANCELAMENTO.AsDateTime)+ PathDelim + 'Cancelamento' + PathDelim + sNomeCancN; { Arquivo XML da NFCe Cancelada } lsXML := NFCe.Configuracoes.Arquivos.GetPathNFe(cdsBuscaNFCeDATA_EMISSAO.AsDateTime) + PathDelim + Trim(cdsBuscaNFCeCHAVE.AsString) + '-nfe.xml'; { Carrego o XML da NFC-e } NFCe.NotasFiscais.Clear; NFCe.NotasFiscais.LoadFromFile(lsXML); { Carrego o XML do Cancelamento } NFCe.EventoNFe.Evento.Clear; NFCe.EventoNFe.LerXML(lsXMLCanc); { Carrego os anexos } Anexo.Clear; Anexo.Add(lsXMLCanc); MinhaExtractStrings(';',Copia,CC); { Configura os dados do ACBr_Email } EMail.From := EMail.Username; EMail.ReadingConfirmation := Confirmacao; EMail.FromName := Trim(NFCe.NotasFiscais.Items[0].NFe.Emit.xNome); { Gera mensagem para ser enviada } mmEmailMsgCanc.Lines.Text:=format(mmEmailMsgCanc.Lines.Text,[cdsBuscaNFCeNUMERO.AsString, cdsBuscaNFCeSERIE.AsString, Trim(Remetente), FloatToStrF(cdsBuscaNFCeVALOR.AsFloat,ffNumber,10,2), Trim(Remetente)]); NFCe.EnviarEmailEvento(Trim(Para) , 'Cancelamento referente ' + Trim(Email.Subject) + ' n. '+LFIll(cdsBuscaNFCeNUMERO.AsString,9) , mmEmailMsgCanc.Lines , CC //Lista com emails que serão enviado cópias - TStrings , Anexo); // Lista de anexos - TStrings TUtil.ExibirMsg('XML do Cancelamento da Nota Fiscal ' + LFIll(cdsBuscaNFCeNUMERO.AsString,9) + ' enviada com secesso!','Nota Fiscal Eletrônica'); end end finally CC.Free; Anexo.Free; end; end; o erro acontece para a NFCe, a NFe envia normal.
  5. Boa tarde, estou tentando enviar o evento do cancelamento por e-mail, e esta retornando esta mensagem: Add Attachment: File not Exists. como pode ver pela imagem no demo esta ocorrendo também.
  6. Boa noite, Carcara, instalei perfeitamente muito obrigado pela dica, valeu.
  7. boa tarde, esto instalando o componente no lazarus 2.0.2- fpc 3.0.4 e esta ocorrendo um erro ao instalar o pacote ACBrNFe, todos os outro foram instalados sem problema so do da NFe, que esta segue a imagem do erro. Obrigado
  8. Bom dia, Daniel, fiz a atualização Revisão 16274 instalou sem nenhum erro. Muito obrigado
  9. EMBarbosa, fiz a atualização e a opção do "sem capicom" marcada ou desmarcada ainda esta ocorrendo o erro.
  10. Juliomar, marquei esta opção remover arquivos antigos do disco e mesmo assim ocorreu o erro.
  11. Boa tarde, apaguei a pasta e baixei tudo de novo e agora esta acusando este erro: Compiling package C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk "C:\Program Files\Borland\Delphi7\bin\dcc32.exe" "C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrDFeCapicom.pas(45) Fatal: File not found: 'ACBrCAPICOM_TLB.dcu' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.
  12. sempre faço o update da pasta raiz, vou fazer o update do zero e posto se deu certo, obrigado
  13. Bom dia atualizei o acbr e na hora de instalar usando o acbrinstall esta ocorrendo o seguinte erro: Pacote "ACBrDFeReportRL.dpk" compilado com sucesso. Compiling package C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBr_NFeDanfeRL.dpk "C:\Program Files\Borland\Delphi7\bin\dcc32.exe" "C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBr_NFeDanfeRL.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLRetrato.pas(2026) Error: Undeclared identifier: 'infSeparadamente' C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLRetrato.pas(2026) Error: Incompatible types C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLClass.pas(141) Fatal: Could not compile used unit '..\..\..\..\..\..\..\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLRetrato.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk". att Ornei
  14. Bom dia, obrigado pela atenção e desculpa pela demora em responder e que digitei a resposta mas não enviei kkk, o cliente conversou com o contador ele pediu pra fazer uma entrada devolução para retornar o estoque e fazer a NF correta.
  15. Boa noite, 1.tenho um cliente que emitiu a Nfe em seguida o MDFe e logo em seguida fez o encerramento do MDFe, e precisa cancelar a NFe, e quando tenta cancelar retorna Rejeição 690: Pedido de cancelamento para NF-e com CT-e ou MDF-e.tem alguma maneira de cancelar a NFe 2. o mesmo cliente fez outra NFe depois o MDFe e o destinatário fez a ciência da operação que tambem precisa cancelar a NFe, foi feito o cancelamento do MDFe e o destinatário fez a recusa da operação e mesmo assim ocorre a mesma rejeição, o interessante e que no portal nacional aparece a autorização, o MDFe, a Ciência do destinatario, cancelamento do MDFe e o evento de operação não realizada pelo destinatario, e no portal de MG so aparece as três primeiras situações. Neste caso ha possibilidade tambem de cancelar a NFe.
×
×
  • Create New...