Calmeida79

Italo, bom dia.
Conversei com o responsavel e essa informação não é necessária.
Vamos deixar como esta.
Pode fechar o post por favor.

Italo, vc é fera.
 
1    16.02    Outros serviços de transporte de natureza municipal.
2    20.01    Serviços portuários, ferroportuários, utilização de porto, movimentação de passageiros, reboque de embarcações, rebocador escoteiro, atracação, desatracação, serviços de praticagem, capatazia, armazenagem de qualquer natureza, serviços acessórios, movimentação de mercadorias, serviços de apoio marítimo, de movimentação ao largo, serviços de armadores, estiva, conferência, logística e congêneres
3    11.04    Armazenamento, Depósito, Carga, Descarga, Arrumação E Guarda De Bens De Qualquer Espécie
4    20.03    Serviços De Terminais Rodoviários, Ferroviários, Metroviários, Movimentação De Passageiros, Mercadorias, Inclusive Suas Operações Logísticas E Congêneres
5    14.01    Lubrificação, Limpeza, Lustração, Revisão, Carga E Recarga, Conserto, Restauração, Blindagem, Manutenção E Conservação De Máquinas, Veículos, Aparelhos, Equipamentos, Motores, Elevadores Ou De Qualquer Objeto (Exceto Peças E Partes Empregadas, Que Ficam Sujeitas Ao ICMS).

Italo, bom dia.
 
Entendi as explicações acima e irei questionar o provedor.
 
Para resolver o problema visualmente estou forçando o DANFE a imprimir NÃO dessa forma:
 

 
 

 
 
Pode encerrar esse tópico, por gentileza.
 
 

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';
 
 

Pesquisando e lendo um pouco mais aqui... vi que o meu sat (RB200 Bematech) não suporta a versão 0.08...
 

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;