Pesquisar na Comunidade
Showing results for tags 'CANCELAMENTO NFE ERRO'.
Encontrado 1 registro
-
Cancelamento NFe - Erro: Desativado de acordo com ajuste SINIEF 16/12. Usar o evento do cancelamento (NT 2011/006) Fiz a atualização na pasta c:\Program Files\Borland\BDS\3.0\lib\ACBR e depois compilei o projeto e na hora de cancelar ele da uma mensagem assim. Tenho um software proprio e essa chamada: ======================================================================= procedure TForm_NotaFiscal.BitBtn61Click(Sender: TObject); var lMotivo : string; begin // busca a nota certa no banco TbTabela.Locate('codigo',QryPesquisa.fieldbyname('codigo').asinteger,[]); if Application.MessageBox(pchar('Cancelamenta NF-e enviada a SEFAZ ?'),pchar('Aviso'),4+32+0)=Idno then exit; lMotivo := InputBox('Cancelamento de NFe','Informe a Justificativa:',''); if (lMotivo <> EmptyStr)then begin if Application.MessageBox('Deseja realmente cancelar esta NFe ?','Cancelamento de NFe',mb_yesno + MB_ICONQUESTION) = idYes then begin AquaNFe.CancelarNFe(TbTabelaNFE_CHAVEACESSO.AsString, TbTabelaNFE_PROTOCOLO.AsString, lMotivo); end; end else begin showmessage('Indentificar o motivo porque foi cancelada a NFE.'); exit; end; end; ======================================================================= SEMPRE FUNCIONOU SEM PROBLEMAS, MAS AGORA DA ESSA MENSAGEM, QUE POSTEI NO INICIO.... ALGUEM TEM A SOLUÇÃO