PC Toledo

Olá amigos,

Preciso desenvolver aplicativo fiscal para impressora QUATTRO EASY IIF, mas não tenho nenhum exemplo...

Favor enviar para o meu e-mail.

obrigado.

Janio

Prezado colega Janio

veja se isto serve

funct Fimprime
//
// imprime cabecalho
//
fwrite(HANDLE,chr(27)+".17}")
status:=le_ecf(HANDLE)
//
vcodbar:="7896372252344"
qtd:=1
vvl_uni:=12.30
vcod_prod:=codbar
vqtd_prod:=int(qtd*1000)
vqtd_prod:=strzero(vqtd_prod,7)
vvl_uni_prod:=int(vvl_uni*100)
vvl_uni_prod:="0"+strzero(vvl_uni_prod,8)
vespaco:=spac(12)
vnomeprod:=padr(nomeprod,24)
vcod_aliquota:="I "
//
// imprime o item
//
fwrite(HANDLE,chr(27)+".01"+vcod_prod+vqtd_prod+vvl_uni_prod+vespaco+vnomeprod+vcod_aliquota+"}")
status:=le_ecf(HANDLE)

retu nil

////////////
func FCancelEsse
local tela
// cacela o cupom atual
fwrite(HANDLE,chr(27)+".05}")
status:=le_ecf(HANDLE)
retu .t.
//////////////
func FleituraX
fwrite(HANDLE, chr(27)+".13}")
vstatus = le_ecf(HANDLE)
retu nil
///////////////
func FReducaoZ
fwrite(HANDLE, chr(27)+".14}")
vstatus = le_ecf(HANDLE)
retu nil
///////////
star FcancelAnt
// cancela cupom anterior
fwrite(HANDLE, chr(27)+".05}")
vstatus = le_ecf(HANDLE)
return nil
////////////////////

Obs:
-para funcionar voce deve instalar o arquivo driver APF.SYS no C:\
caso nao tenha esse arquivo, posso enviar
-no config.sys coloque a linha
device=c:\apf.sys N1
reinicie o comptuador para ter efeito

-caso voce nao tenha recebido ainda nenhuma ajuda, e isto nao te servir,
posso enviar uma rotina + completa, inclusive imprimindo na fiscal
e outros dados em uma matricial por exemplo, leitura dos meios de pagamentos,etc
- tenho um cliente que imprime na fiscal e na matricial os dados da entrega da compra
- se tiver dificuldade de imprimir direto na porta da impressora (eu tive),
poste aqui. So´ nao posso enviar a rotina + completa agora, pois nos proximos dias estou realmente sem tempo, mas qualqer coisa poste aqui.

Um abraco

Poka

Valeu Poka,

Seu exemplo é +ou- o que tem no site (que aliás, achei muito confuso).

Agora, com o seu exemplo, deu pra clarear mais... deu pra eu ver onde começa uma parâmetro e termina o outro... nem isso tem explicando no exemplo do site do fabricante... pra quem estava acostumado com BEMATECH e DARUMA que já vem tudo "mastigadinho".. mim dei mal... rsrs

tô sem entender ainda como TRATAR OS RETORNOS da impressora.. tipo... FIM DO PAPEL... COMANDO NÃO EXECUTADO... CUPOM FISCAL ABERTO... etc...

Ah, outra coisa, vi no site que quem utiliza a DLL DA BEMATECH pode sustituir por uma DLL que eles fornessem e funciona legal... mas... como sempre não tem explicação sobre isso... como proceder... vc sabe alguma coisa a esse respeito???

Tenho somente hoje e amanhã pra desenvolver esse sistema!

Janio

Olá Amigos,

tô tendo alguns avanços... mas apareceu outro problema...

Em sistema que tenho compilado em CLIPPER, pelos testes iniciais tá funcionando... só que a mesma rotina, mas em XHARBOUR (meu sistema mais atual) não funciona não.

SE alguém puder ajudar e essa ajuda for para sistema compilado com XHARBOUR.... agradeço!

Continuo aguardando ajuda!

Janio