Ir para conteúdo
  • Cadastre-se

Calmeida79

Membros
  • Total de ítens

    158
  • Registro em

  • Última visita

Community Answers

  1. Calmeida79's post in Salvar PDF Carta de correção was marked as the answer   
    Boa tarde... acabei por descobrir que faltou definir o caminho, por isso não estava gravando, para falar a verdade descobri que estava gravando dentro do diretório da aplicação
    adicionei a linha:
    NFE.DANFE.PathPDF := 'caminho do PDF da NF-e';
     
     
  2. Calmeida79's post in Erro Desconhecido - SAT 0.08 was marked as the answer   
    Pesquisando e lendo um pouco mais aqui... vi que o meu sat (RB200 Bematech) não suporta a versão 0.08...
     

  3. Calmeida79's post in Gravar XML do evento was marked as the answer   
    Acabei por conseguir...
     
    caso alguém precise está aqui a minha solução:
     
    EnderecoXML := "Caminho onde está o meu xml que vou cancelar"
      DM.NFE.NotasFiscais.Clear;
      DM.NFE.EventoNFe.Evento.Clear;
      if not DM.NFE.NotasFiscais.LoadFromFile(EnderecoXML) then
      Begin
        raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica para cancelamento!');
        Exit;
      End;

      strNrNota   := "123456"
      iNumeroLote := StrToInt("123456");
      DM.NFE.EventoNFe.idLote := iNumeroLote;
      strProtocolo := "Protocolo do XML"
      strChave     := "Chave do XML"
      with DM.NFE.EventoNFe.Evento.Add do
      begin
        infEvento.chNFe           := strChave;
        infEvento.CNPJ            := strCnpjCompleto;
        infEvento.dhEvento        := now;
        infEvento.tpEvento        := teCancelamento;
        infEvento.detEvento.xJust := Justificativa;
        infEvento.detEvento.nProt := strProtocolo;
      end;
      DM.nfe.Configuracoes.Arquivos.Salvar             := True;
      DM.nfe.Configuracoes.Arquivos.SalvarEvento       := true;
      DM.nfe.Configuracoes.Arquivos.PathNFe            := EnderecoDiretorioXML;
      DM.nfe.Configuracoes.Arquivos.PathEvento         := EnderecoDiretorioXML;
      DM.nfe.Configuracoes.Arquivos.EmissaoPathNFe     := True;
      if DM.NFE.EnviarEvento(iNumeroLote) then
      begin
          with DM.NFE.WebServices.EnvEvento do
          begin       
             DataProtocolo   := FormatDateTime('dd/mm/yyyy hh:nn:ss',EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento);
             NrProtocolo     := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
             XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
             Result          := 'Cod:' + IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat) + '-' + EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;
     
             DM.nfe.ImprimirEventoPDF;     
         END
    End;
×
×
  • 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.