EMITIDA EM CONTIGENCIA

[Canestraro]

Boa Tarde !!!

Tenho um problema na impressão ao mandar a NFCe depois que sai da contingencia exemplo:

Para mandar em contingencia utilizo rotina

ACBrNFe1.Configuracoes.Geral.FormaEmissao  := teOffLine;

ACBrNFe1.NotasFiscais.Add.NFe.Ide.tpEmis   := teOffLine;

ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.NotasFiscais.Assinar;
ACBrNFe1.NotasFiscais.Validar;

 ACBrNFe1.NotasFiscais.Imprimir;

Na Impressao que esta no arquivo anexo 1.png sai tudo certo que esta em contingencia porem quando volta a internet eu mando seguindo a rotina :

ACBrNFe1.Configuracoes.Geral.FormaEmissao  := teNormal;
ACBrNFe1.NotasFiscais.Add.NFe.Ide.tpEmis   := teNormal;

ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.NotasFiscais.Assinar;
ACBrNFe1.NotasFiscais.Validar;

ACBrNFe1.Enviar(vpNumeroNota,vpImprimir,true);

porem a impressão fica igual o arquivo 2.png, ja estou a um tempo nisso algum pode me ajudar ?

 

GRato

 

 

 

 

 

 

[Italo Giurizzato Junior]

Boa tarde,

Você esta fazendo errado.

Não pode mudar o tipo de emissão para normal e gerar novamente o XML assinar e enviar.

Com isso você esta gerando uma nova chave diferente da que esta impressa no DANFE entregue ao consumidor.

Caso este venha a consultar na SEFAZ vai acusar que a nota não foi enviada.

Você tem que mudar somente a forma de emissão para normal na configuração do componente, carregar o XML com o LoadFromFile e passando o valor False no segundo parâmetro para que a nota seja mantida.

Exemplo:

ACBrNFe1.Configuracoes.Geral.FormaEmissao  := teNormal;

ACBrNFe1.NotasFiscais.LoadFromFile(nomeXML, False);

depois executar o Enviar.

[Canestraro]

Ola muito obrigado pela atenção, porem ainda estou com um problema: ficou assim o envio conforme me falou:

ACBrNFe1.NotasFiscais.Clear;
TempStream := TStringStream.Create(dmnfce.qryNFCEContigenciaXML.AsString);
.ACBrNFe1.NotasFiscais.LoadFromStream(TempStream,False);

ACBrNFe1.Enviar(qryNFCEContigencianNfce.AsString,false,true);

quando vou imprimir continua saindo "Emitida em contingência" conforme imagem 2.png.

 

[Canestraro]

Ola dando uma analisada seria necessário alterar:

ACBrNFeDANFEFRDM

Linha 729

 if (FNFe.Ide.tpEmis <> teNormal) then
    FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM CONTINGÊNCIA')
else
    FieldByName('MensagemFiscal').AsString := ACBrStr('ÁREA DE MENSAGEM FISCAL');

mudar para

if (FNFe.Ide.tpEmis <> teNormal) and (FNFe.procNFe.cStat<>100) and (FNFe.procNFe.cStat<>150) then
   FieldByName('MensagemFiscal').AsString := ACBrStr('EMITIDA EM CONTINGÊNCIA')
else
   FieldByName('MensagemFiscal').AsString := ACBrStr('ÁREA DE MENSAGEM FISCAL');

Não sei se é possível contribui....

[BigWings]

Isso não é correto, a informação de emitida em contingência deve continuar aparecendo.

Faça a consulta do QR Code e veja a representação do DANFE no site da Sefaz, e mostre para o seu cliente como aparece a nota no site, mesmo depois de autorizada.