Marca D'agua " Nfe Cancelada "

[MARCOS JOSE DE CARVALHO]

Utilizo o rave e não consigo imprimir o DANF com a expressão "NFE cancelada", porém utilizando outro visualizador ela aparece, alguem teria alguma sugestão.

 

[Juliomar Marchetti]

Bom vamos ao começo

hoje o cancelamento é feito através de um evento

então o xml que foi autorizado vai sempre ser sempre autorizado 

e terá eventos vinculados a essa nf-e

e o xml não é mais alterado para que o formato antigo que modificava adicionando a parte de cancelamento

no componente veja que possui a propriedade NFeCancelada uma propriedade booleana

então é só verificar no seu sistema se tem o evento de cancelamento vinculado a nf-e e informar a propriedade antes de imprimir

[Edson Fernandes]

Para saber se a nota fiscal cancelada:

==============================================

var sXML : string;
begin
  if tbl_vendas.active = false then exit;
  if tbl_vendas.recordcount = 0 then exit;
  sXML := tbl_vendas.fieldbyname('nfe_end_xml').asstring;
  if sxml = '' then
  BEGIN
    MESSAGEERRO('ARQUIVO XML AINDA NÃO FOI GERADO.');
    exit;
  END;
  try
    ACBrNFe1.Configuracoes.WebServices.Visualizar:=true;
    if FileExists(sxml) then
    begin
      bMensagem := true;
      ACBrNFe1.NotasFiscais.Clear;
      ACBrNFe1.NotasFiscais.LoadFromFile(sXML);
      ACBrNFe1.Consultar;

      if ACBrNFe1.NotasFiscais.Items[0].Confirmada then
      begin
        TBL_VENDAS.edit;
        TBL_VENDAS.FieldByName('nfe_end_xml').asstring := sXML;
        TBL_VENDAS.FieldByName('nfe_situacao').asinteger := 6;
        TBL_VENDAS.FieldByName('nfe_motivo').asstring := 'Autorizado o uso da NF-e';
        TBL_VENDAS.FieldByName('NFE_chave').AsString := copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44);
        TBL_VENDAS.FieldByName('nfe_data').asdatetime:=ACBrNFe1.WebServices.Consulta.DhRecbto;
        TBL_VENDAS.FieldByName('nfe_hora').asstring:=timetostr(ACBrNFe1.WebServices.Consulta.DhRecbto);
        TBL_VENDAS.FieldByName('nfe_protocolo').asstring:=ACBrNFe1.WebServices.Consulta.protocolo;
        TBL_VENDAS.post;
      end;
      if ACBrNFe1.WebServices.Consulta.cStat = 101 then //cancelada
      begin
        TBL_VENDAS.edit;
        TBL_VENDAS.FieldByName('nfe_end_xml').asstring := sXML;
        TBL_VENDAS.FieldByName('nfe_situacao').asinteger := 8;
        TBL_VENDAS.FieldByName('nfe_motivo').asstring := 'Cancelamento de NF-e homologado';
        TBL_VENDAS.FieldByName('nfe_data').asdatetime:=ACBrNFe1.WebServices.Consulta.DhRecbto;
        TBL_VENDAS.FieldByName('nfe_hora').asstring:=timetostr(ACBrNFe1.WebServices.Consulta.DhRecbto);
        TBL_VENDAS.FieldByName('nfe_protocolo').asstring:=ACBrNFe1.WebServices.Consulta.protocolo;
        TBL_VENDAS.post;
      end;

    end
    else
    begin
      application.messagebox('Arquivo XML não encontraddo!','Erro',mb_ok+mb_iconerror);
    end;

  except
    on E:exception do
    begin
      ACBrNFe1.Configuracoes.WebServices.Visualizar:=false;
      application.MessageBox(PAnsiChar('Erro ao consultar a NFe!'+#13+
                                       'Mensagem: '+E.message),'Erro',
                                       mb_ok+mb_iconerror);
    end;
  end;

 

======================================================================================================

Veja bem, se o cStat = 101 quer dizer que a nota foi cancelada na sefaz

 

uma vez que você detectou isto, basta colocar o comando:

      ACBrNFe1.danfe.nfecancelada:=true

antes do procedimento de imprimir o DANFE.

 

Espero que ajude.