Nº de Serie do ECf?

[Juninho]

JÁ POSTEI ESTE TOPICO OUTRAS VEZES E AS DICAS Q ME DERAM NÃO FUNCIONARAM, E POR ISSO VOLTO A PEDIR A AJUDA DOS COLEGAS NOVAMENTE.


TO COM UM CLIENTE Q TEM UM ECF BEMATECH MP20 E PRECISO COLOCAR NO SISTEMA Q ELE SÓ VENDA COM A IMPRESSORA COM O Nº CADASTRADO E SE COLOCAR OUTRA NÃO FUNCIONE


ESPERO Q OS NOBRE COLEGAS POSSAM ME AJUDAR


FICO NO AGUARDO

[rrfsistemas]

Olá eu uso desta forma :

talves te enteresse.

ECF_SER = "nº do ECF a ser usado"
tamanho_de_retorno := 15
prepara_string := inicio_protocolo + "35" + fim_protocolo_driver
**********
Ret_Serial := Str(Val(comunica_com_impressora(prepara_string,tamanho_de_retorno)))

If Alltrim(ECF_SER) = alltrim(Ret_Serial)
@ 24,25 Say "ECF n§ ¯ " + ECF_SER + " em " + transform(WNPorta,"!!!!") color "W+/N"
else
set color to
cls
for x = 1 to 3
tone(1500)
next
@ 10,10 say "O serial informado pelo sistema esta diferente "
@ 11,10 say "do serial informado pela impressora, impossivel"
@ 12,10 say "continuar..."
@ 13,10 say "Serial Sistema.....=" + ECF_Ser
@ 14,10 say "Serial Impressora..=" + Alltrim(ret_serial)
Inkey(0)
set color to
cls
quit
endif

[Juninho]

Olá eu uso desta forma :

talves te enteresse.

ECF_SER = "nº do ECF a ser usado"
tamanho_de_retorno := 15
prepara_string := inicio_protocolo + "35" + fim_protocolo_driver
**********
Ret_Serial := Str(Val(comunica_com_impressora(prepara_string,tamanho_de_retorno)))

If Alltrim(ECF_SER) = alltrim(Ret_Serial)
@ 24,25 Say "ECF n§ ¯ " + ECF_SER + " em " + transform(WNPorta,"!!!!") color "W+/N"
else
set color to
cls
for x = 1 to 3
tone(1500)
next
@ 10,10 say "O serial informado pelo sistema esta diferente "
@ 11,10 say "do serial informado pela impressora, impossivel"
@ 12,10 say "continuar..."
@ 13,10 say "Serial Sistema.....=" + ECF_Ser
@ 14,10 say "Serial Impressora..=" + Alltrim(ret_serial)
Inkey(0)
set color to
cls
quit
endif

MAIS ONDE EU COLOCO O Nº DE SERIE DA ECF E COLOCO ESSAS LINHAS NO INICIO DO PROGRAMA?

FICO NO AGUARDO

[rrfsistemas]

As linhas podem ser colocadas em qqer parte do sistema , em uma rotima, dai pode-se chamar de qqer parte.


O nº do ECF vc pd colocar direto no programa principal ou em um DBF , de forma que nimguém possa ter acesso, por exemplo um DBF criptografado.