Developer - Cash Drawer o Cajon de dinero

   
Vista:

Cash Drawer o Cajon de dinero

Publicado por José Fco. (1 intervención) el 13/01/2014 17:28:07
Saludos,
necesito abrir una cash drawer en developer 6i, pero este solo lo quiero abrir en algunas ocaciones; tengo una impresora punto de venta (Epson Tm-U210) connecta al puerto plt1 y la caja conectada la impresora; con las propiedades de la impresora puedo abrir el cajon, pero cada vez que imprime, abre el cajon y solo quiero que abra en algunas ocaciones....

tengo esto dos procedimientos para abrir el cajon oprimiendo una tecla, pero para que abra tengo que tener la propiedad activada en la impresora

PROCEDURE abre(p_archivo In Varchar2, -- Archivo
p_modo In Varchar2 -- Modo de abrir. 'A' o 'W'
)IS
out_file Text_IO.File_Type;
v_command Varchar2(30);
Begin
out_file := Text_IO.Fopen(p_archivo,p_modo); --Abre el archivo para modificarlo
-- Bloque de información
Text_IO.Put_Line(out_file,chr(7)); -- Este codigo abre la caja

Text_IO.Fclose(out_file);

EXCEPTION WHEN OTHERS THEN
Text_IO.Put_Line('Cerrando Archivo. Errores Encontardos');
Text_IO.Fclose(out_file);

End;
-----------------------------------
PROCEDURE imprime_abre IS
v_Ruta Varchar2(100);
v_command Varchar2(100);
Begin
v_Ruta :='c:\abre.txt';
abre(v_Ruta,'W');

v_command :='copy'||' '||v_Ruta||' '||'lpt1';
host(v_command,NO_SCREEN);

IF NOT Form_Success THEN
Message('Error -- Archivo No Enviado.Revise impresora');
END IF;
End;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder