Jump to content

ornei

Membros
  • Content Count

    181
  • 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. 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.
  2. 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.
  3. Boa noite, Carcara, instalei perfeitamente muito obrigado pela dica, valeu.
  4. 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
  5. Bom dia, Daniel, fiz a atualização Revisão 16274 instalou sem nenhum erro. Muito obrigado
  6. EMBarbosa, fiz a atualização e a opção do "sem capicom" marcada ou desmarcada ainda esta ocorrendo o erro.
  7. Juliomar, marquei esta opção remover arquivos antigos do disco e mesmo assim ocorreu o erro.
  8. 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.
  9. sempre faço o update da pasta raiz, vou fazer o update do zero e posto se deu certo, obrigado
  10. 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
  11. 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.
  12. 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.
  13. Certo, muito obrigado.
  14. Boa tarde Dener obrigado pela atenção, só mai uma pergunta, tem alguma forma de informar o percentual em cima do valor do boleto e cobrado por dia. Att
  15. Boa noite quando informa o PercentualMulta e impresso a mensagem "Cobrar Multa de R$ 1,00 apos vencimento", gostaria de saber se e por dia, se sim ha possibilidade de sair impresso "Cobrar Multa de R$ 1,00 ao dia apos vencimento.", pois tenho um cliente querendo que sai este "ao dia", a principio alterei o fonte, mas quando for atualizar vou ter que refazer.
×
×
  • Create New...