RE:Varios Clipper a Xharbour...
Ubicado el problema, en clipper 16 Bits al asignar la impresora se usaba:
SET DEVICE TO PRINT
Cuando se genera el .exe de clipper en 32 Bits, se trata de imprimir algún reporte lo imprime por la Consola.
Para poder generar el .exe usando Xharbour ayudado por Xedit se debe asignar los comandos:
SET DEVICE TO PRINTER
SET PRINTER TO ON
SET PRINTER TO LPT1
...
...
...
...
Instrucciones respectivas de los archivos y los comandos del reporte...
luego, al terminar con los comandos para la impresión desde Clipper resignar como dispositivo la CONSOLA:
SET PRINTER TO
SET DEVICE TO SCREEN
SET CONSOLE ON
Lo que no he podido configurar o programar desde xharbour es librarme del puerto LPT1, uso un emulador de LPT1 sino da error al tratar de imprimir desde el .exe 32 bits de clipper, ya la motherboard no trae el puerto LPT1, generé el .exe de clipper 32 bits con QAC también, aunque usa HBprint.lib y miniprint.lib, pensando que usaría el recurso de windows para abrir la ventanas de impresoras instaladas no lo hace, debo usar también el emulador de LPT1, Alguien sabe como activar desde clipper 32 bits (comandos) el recurso de las impresoras de windows 32 o 64 bits?, para así no depender de un emulador de LPT1, hoy en día el estándar son los puertos USB, con el emulador puedo asignar cualquier impresora sea laser o de tinta USB configurada en windows XP 32 bits.
Recomiendo Xedit y QAC como la forma más rápida de migrar a 32 o 64 bits, siempre que las hagan los ajustes a los .PRGs de clipper 16 bits, con XEDIT (LUEGO DE CONFIGURAR XHARBOUR T BORLAND C) todos los Programas (PRG) de clipper 16 bits deben comenzar por PROCEDURE PRG1 o FUNCTION PRG1(), YO le coloqué a cada uno de los PRGs FUNCTION PRG1(), PRG2(), asi.. todos los PRG para que no diera error al compilarlo, colocar en el PRG PRINCINPAL FUNCTION MAIN(), no el nombre del MENU.PRG o el que ustedes les hallan asignado al módulo de inicio, en Clipper invocar otro programa se hace DO PRG1, con XEDIT lo reconoce, pero con QAC deben eliminar el DO PRG1 y colocar PRG1(), así se invoca a otro programa con QAC, solo pude generarlo modo CONSOLA, deben colocar en el módulo PRINCIPAL de PRIMERO en QAC,
Luego de FUNCTION MAIN() deben colocar el Comando SETMODE(80,25) para XEDIT y SETMODE(25,80) si usan QAC, es fácil cambien los valores y verán como cambia las dimensiones de la ventana de modo consola, eso evita que cuando ejecuten el .exe de CLIPPER 32 bits la Ventana se vaya desplazandose en vez del cursor. para XEDIT y QAC deben hacer las configuraciones respectivas y seguir los tutoriales respectivos.
Con el COMANDO RUN CD /dir/caperta/ no lo reconoce XHARBOUR O HARBOUR, se debe reemplazar por comando SET PATH TO /DIR/CARPETA, así lee los archivos DBF en los directorios correctos. RUN para invocar otros programas no CLIPPER.(.exe C, PASCAL, etc).
Espero les ayude las correcciones en la conversión de 16 bits para que windows 32 bits para que reconozca la impresora generado desde xharbour con Xedit o harbour desde QAC, ambos con Borland C como linkeador o enlazador, así no pierden tanto tiempo leyendo tutoriales con información no comprobada o recomendaciones ensayo/error, también gracias a la poca información de contactos directos que fue la base para terminar de hacer la conversión a windows 32 Bits, también pueden registrarse en www.xharbour.org buscar la sección "Comandos" (de CLIPPER), les indica la forma correcta de implementar los comandos CLIPPER para 32 Bits, eso fue lo que me ayudo con los comandos que no funcionan en 32 bits de CLIPPER 16 Bits. pero no he resuelto lo del Puerto LPT1 todavía, ya veremos.
Saludos,
Gregorio González
