Nº DE SERIE DO ECF BEMATECH NO SISTEMA

[Juninho]

[/b] TENHO UM SISTEMA EM GAS-PRO4, E ESTOU PRECISANDO COLOCAR O Nº DE SERIE DO ECF NELE PARA QUE O SISTEMA SÓ TRABALHE COM AQUELE ECF, O ECF EM QUESTÃO É BEMATECH, ESPERO QUE OS AMIGOS DO FORUM POSSAM ME AJUDAR POIS ESTOU PRECISANDO RESOLVER ISSO COM UMA CERTA URGENCIA

AGUARDO RETORNO

JUNIOR

coracyjr@hotmail.com
help_suport@hotmail.com

[gransoft]

ARAGUARI-MG, 7 de julho de 2004.

Prezado Júnior,

Segue exemplo.

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

Código: Selecionar todos

IF ALLTRIM(NumSerieECF()) <> "4708000146823"
   Beep(1)
   SETCOLOR(cCor5)
   Mensagem("*** NUMERO DE SERIE DO ECF NAO AUTORIZADO !!! ***")
   SETCOLOR(cCor2)
   RETURN
END


*** FUNCTION PARA VERIFICAR O NUMERO DE SERIE DO ECF ***
FUNCTION NumSerieECF()
*
cRetorno := ""
*
cSeqECF   := GeraSeqECF()
*
cTextoECF := CHR(27) + CHR(251) + "35|00|" + CHR(27)
*
EnviaDriver(cSeqECF,"??",cTextoECF)
*
Le_Porta(018)
*
cRetorno := SUBSTR(cRetorno, 1, 18)
*
* MostraRet()
*
RETURN(cRetorno)
***

[Juninho]

coloco no inicio do sistema?

[gransoft]

coloco no inicio do sistema?

ARAGUARI-MG, 7 de julho de 2004.

Prezado Júnior,

Se for "Frente de Caixa", SIM, pois ABSOLUTAMENTE NENHUM comando do Aplicativo Fiscal poderá ser executado pelo ECF.

Lembre-se de que, se você armazenar Números de Série em arquivo, o acesso deverá ser criptografado, e em hipótese alguma, o seu "cliente" poderá ter acesso ou conhecimento de senhas para esse fim.

Eu prefiro testar o ECF no fonte mesmo. Se o Aplicativo for pirateado ...

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

[Juninho]

obrigado e mais uma coisa, na função que vc me enviou tem um nº de serie de uma impressora fiscal bematech neste eu só faço substitui pelo o do meu cliente e pronto?


Aguardo Retorno