marcionicolao

Membros
  • Total de ítens

    3
  • Registro em

  • Última visita

Reputação

0 Neutral

Sobre marcionicolao

  • Rank
    Novato

Contact Methods

  • Website URL
    http://www.amltda.com.br

Profile Information

  • Sexo
    Masculino
  • Localização
    canoas/rs

Últimos Visitantes

97 visualizações
  1. Atualizei mas ainda da erro [dcc32 Error] unt_Principal.pas(530): E2003 Undeclared identifier: 'PathCan' [dcc32 Error] unt_Principal.pas(531): E2003 Undeclared identifier: 'PathCCe' [dcc32 Error] unt_Principal.pas(533): E2003 Undeclared identifier: 'SalvarCCeCanEvento' [dcc32 Error] unt_Principal.pas(555): E2003 Undeclared identifier: 'PathSalvar' [dcc32 Warning] unt_Principal.pas(938): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] unt_Principal.pas(942): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] unt_Principal.pas(946): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Error] unt_Principal.pas(1403): E2003 Undeclared identifier: 'SaveToFile' [dcc32 Warning] unt_Principal.pas(1414): W1057 Implicit string cast from 'RawByteString' to 'string' [dcc32 Error] unt_Principal.pas(1415): E2003 Undeclared identifier: 'PathSalvar' [dcc32 Error] unt_Principal.pas(1440): E2003 Undeclared identifier: 'SaveToFile'
  2. http://www.flexdocs.com.br/guianfe/gerarNFe.detalhe.imp.ICMS.html
  3. 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