Alterações Fonte Acbrnf-E (Se Possivel)

[Alisson Suart]

Bom dia a todos,

 

sei que pode parecer besteira, mas como gosto de sempre ficar com meus fontes atualizados quando saem novas alterações do componente, então prefiro não ter alteraçoes dentro do projeto.

Pensei em algo que não é de tão grande importancia, porém pode ser de valorosa informação para alguns amigos.

 

No CT-e, quando não enviamos para sefaz, porem efetuamos a impressão do CT-e, o cStas esta como 0 e é exibida a mensagem: CT-E NÃO ENVIADO PARA SEFAZ.

 

Gostaria de saber se poderiam colocar o mesmo na NF-e ?

 

Motivo: Não sei se todos tem isso, porem temos alguns clientes que gostam de visualizar a Danfe, antes de enviar para confirmar dados informados, e outras coisas. Porém pra que nao fique em branco e algum usuario por descuido, ache que a Danfe foi enviada, essa observação acho de grande valia.

Sei que posso fazer no meu projeto, em particular, como ja fiz, porém, como ja existe esse "IF" no CT-e, pensei em colocarem tb.

 

Segue abaixo a informação:

 

Dentro do ACBrNFeDanfeQRRetrato

 

   if FNFe.procNFe.cStat > 0 then
    begin
      if ((FNFe.procNFe.cStat in [101, 151, 155]) or (FNFeCancelada)) then
      begin
        qrlMsgTeste.Caption := 'NF-e CANCELADA';
        qrlMsgTeste.Visible := True;
        qrlMsgTeste.Enabled := True;
      end;
      // Alterado de 102 para 110 por Italo em 27/01/2012
      case FNFe.procNFe.cStat of
      110,205,301,302:begin
          qrlMsgTeste.Caption := 'NF-e DENEGADA';
          qrlMsgTeste.Visible := True;
          qrlMsgTeste.Enabled := True;
        end;
      end;

      // Alterado de 102 para 110 por Italo em 27/01/2012
      if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155] then
      begin
        qrlMsgTeste.Caption := FNFe.procNFe.xMotivo;
        qrlMsgTeste.Visible := True;
        qrlMsgTeste.Enabled := True;
      end;
    end

Else Begin

            qrlMsgTeste.Caption := 'NF-e não enviada para Sefaz';
            qrlMsgTeste.Visible := True;
            qrlMsgTeste.Enabled := True;

        End ;

 

Bastaria incluir essa linha em negrito.

 

É uma coisa boba, mas que para alguns podem ajudar. E não vejo problema para com o projeto.

 

Agradeço se puderem mudar.