Eu fiz assim, mas ta dando VARIAVEL NAO EXISTE: NUMERIC
O que será que eu to fazendo errado?

DLL32 Function E_AcionaGuilhotina( TipoCorte AS INTEGER) AS _INT PASCAL FROM "Elgin_AcionaGuilhotinaMFD" LIB xDll

Rubem

e_acionaguilhotina(1)

Tente assim:

 
DLL32 Function E_AcionaGuilhotina( TipoCorte AS PTR ) AS LONG PASCAL FROM "Elgin_AcionaGuilhotinaMFD" LIB xDll

t+

PS: Lembrando que o comando acima so funciona se a impressora realmente tiver guilhotina, parece obvio né, mas não custa falar.

FWXH 9.02, PELLESC, MYMAKE 1.9J, DBF

Belzonte - Minas Gerais

citação:

---

Alguém já declarou a funcao da Guilhotina da impressora fiscal ELGIN?

Eu fiz assim, mas ta dando VARIAVEL NAO EXISTE: NUMERIC
O que será que eu to fazendo errado?

DLL32 Function E_AcionaGuilhotina( TipoCorte AS _INT INTEGER) AS _INT PASCAL FROM "Elgin_AcionaGuilhotinaMFD" LIB xDll

Rubem

Rubem Jr
http://sistemasit.com
Belem/PA

---

MSN: samirabreu@hotmail.com
Skype: SamirAbreu
xHarbour 1.1.0 + FwXh 8.02