dougglas2002
Membros-
Total de ítens
4 -
Registro em
-
Última visita
dougglas2002's Achievements
-
Problema com tACBrECFEstado
dougglas2002 replied to dougglas2002's tópico in Dúvidas Gerais sobre o ACBr
Então Juliomar, isso eu já tinha feito... o problema é que eu estava cometendo um erro na declaração... era para eu ter declarado ACBrDevice, que é justamente onde se encontra os estados. Mesmo eu fazendo isso que você recomendou, não daria certo sem a declaração do ACBrDevice... sempre apareceria Undeclared Identified. Brigadão pelas dicas e disponibilidade. -
Problema com tACBrECFEstado
dougglas2002 replied to dougglas2002's tópico in Dúvidas Gerais sobre o ACBr
Você não está falando disso? uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, IWSystem, Vcl.Menus, Vcl.ComCtrls, ACBrBase, ACBrECF, IniFiles; -
Problema com tACBrECFEstado
dougglas2002 replied to dougglas2002's tópico in Dúvidas Gerais sobre o ACBr
Olá Juliomar, obrigado pelo retorno. Eu sempre utilizei a uses ACBRECF nas versões anteriores. Mas com esta versão para o xe8 não está funcionando. Seria outra declaração? -
Olá pessoal, estou com uma dúvida com relação ao estado do ecf com o componente ACBrECF. Quando declaro a constante estados e dentro do vetor eu coloco tACBrECFEstado está me retornando um erro de Undeclared Identified. Estou utilizando o Delphi XE8. Por que isto está acontecendo, já que o mesmo problema não acontece em uma versão anterior? Estou esquecendo de alguma coisa, alguma configuração? Segue abaixo o exemplo. O erro está acontecendo na palavra em destaque. Agradeço a ajuda. const Estados : array[tACBrECFEstado] of String = ('Não Inicializada', 'Desconhecido', 'Livre', 'Venda', 'Pagamento', 'Relatório', 'Bloqueada', 'Requer Z', 'Requer X', 'Nao Fiscal' ); implementation uses Rotina, uBematech; function Frm_Principal.EstadoECF : String ; begin try Result := Estados[ ACBrECF.Estado ] ; { GetEnumName(TypeInfo(TACBrECFEstado), integer( ACBrECF1.Estado ) ) ;} except Result := 'Falha ao ler' ; ShowMessage('**** Falha ao ler ESTADO do ECF ****'); end ; end ;