ACBrECF
Unit com as funções para comunicação com ECF's
Modelos de ECF Suportados pelo Componente TACBrECF atualmente:
Bematech, Sweda, Daruma, Schalter e Mecaf.
Diversos fabricantes usam o chipset da Mecaf como por exemplo: Elgin, Digiarte, Zanthus, Acr, Aoki, Chronos, Promcomp, TrendsSTS, Unigraph. Isso pode ser indentificado por alguma indicação no corpo do equipamento. Entretanto não há garantia de plena compatibilidade entre os diferentes equipamentos. (Favor reportar possiveis BUGS).
Principais Métodos
procedure Ativar ;
procedure Desativar ;
function TestarDialog : Boolean ;
procedure CarregaAliquotas ;
function AchaICMSAliquota( Aliquota : Double ) : TACBrECFAliquota ;
function AchaICMSIndice( Indice : String ) : TACBrECFAliquota ;
procedure CarregaFormasPagamento ; virtual ;
function AchaFPGDescricao( Descricao : String ) : TACBrECFFormaPagamento ;
function AchaFPGIndice( Indice : String ) : TACBrECFFormaPagamento ;
Function EmLinha( lTimeOut : Integer
= 1) : Boolean ;
Procedure AbreCupom( CPF_CNPJ : String = '') ;
Procedure VendeItem( Codigo, Descricao : String; AliqotaICMS : String; Qtd : Double ; ValorUnitario : Double; DescontoPorc : Double = 0; Unidade : String = '') ;
Procedure SubtotalizaCupom( DescontoAcrescimo : Double = 0 ) ;
Procedure EfetuaPagamento( CodFormaPagto : String; Valor : Double; Observacao : String = ''; ImprimeVinculado : Boolean = false) ;
Procedure
FechaCupom(
Observacao : String = '') ;
Procedure CancelaCupom;
Procedure CancelaItemVendido( NumItem : Integer ) ;
Procedure
AbreGaveta ;
Procedure LeituraX;
Procedure ReducaoZ( DataHora : TDateTime ) ;
Procedure RelatorioGerencial(Relatorio : TStrings; Vias : Integer = 1) ;
Procedure CupomVinculado(COO, CodFormaPagto : String; Valor : Double; Relatorio : TStrings; Vias : Integer = 1) ;
Procedure
FechaRelatorio ;
Procedure ImprimeCheque(Banco : String; Valor : Double ;
Favorecido, Cidade : String;
Data : TDateTime ;Observacao : String) ;
Procedure CancelaImpressaoCheque;
Procedure MudaHorarioVerao;
Procedure PreparaTEF ;
Procedure CorrigeEstadoErro ;
Procedure
ImpactoAgulhas ;
Function EnviaComando(
cmd : String): String; overload;
Procedure TestaPodeAbrirCupom ;