There are no printers .....

[Manuel Valdenebro]

Antonio,

Un programa que tengo traducido del español al alemán, me llama el cliente diciéndome que al intentar imprimir un listado, le ha salido el siguiente mensaje en inglés:

"There are no printers installed! Please exit this application and install a printer".

Su queja no es por el error, sino porque el mensaje no salga en alemán.

He estado investigando y creo que el mensaje proviene de la librería fiveh.lib y no se me ocurre como puedo solucionarlo. Como hay paises (y personas) que no les gusta el inglés, sería conveniente "universalizar" FW. ¿Alguna idea?.

[wmormar]

Antonio,

Un programa que tengo traducido del español al alemán, me llama el cliente diciéndome que al intentar imprimir un listado, le ha salido el siguiente mensaje en inglés:

"There are no printers installed! Please exit this application and install a printer".

Su queja no es por el error, sino porque el mensaje no salga en alemán.

He estado investigando y creo que el mensaje proviene de la librería fiveh.lib y no se me ocurre como puedo solucionarlo. Como hay paises (y personas) que no les gusta el inglés, sería conveniente "universalizar" FW. ¿Alguna idea?.

Manuel,

puedes modificar la tprinter, ahi viene ese mensaje, se lanza cuando la tprinter valida si hay o no impresoras instaladas.

[karinha]

Ó

Code: Select all  Expand view  RUN

      IF Empty( oPrn:hDC )
         //-> Mensageria en tu idioma
         RETURN NIL          // Printer was not installed or ready
      ENDIF
//
      EXTERNAL ISPRINTER
      IF !ISPRINTER()
         //-> Mensageria en tu idioma
         RETURN NIL
      ENDIF


[Manuel Valdenebro]

William y Joao, muchas gracias a los dos.

[mmercado]

EXTERNAL ISPRINTER
IF !ISPRINTER()
//-> Mensageria en tu idioma
RETURN NIL
ENDIF

Hola João:

La función IsPrinter() en Clipper probaba que existiera una impresora lista para imprimir en LPT1, en FWH/xHarbour que prueba? que haya una impresora predeterminada y que dicha impresora esté lista para imprimir?

Saludos.

Manuel Mercado

[karinha]

EXTERNAL ISPRINTER
IF !ISPRINTER()
//-> Mensageria en tu idioma
RETURN NIL
ENDIF

Hola João:

La función IsPrinter() en Clipper probaba que existiera una impresora lista para imprimir en LPT1, en FWH/xHarbour que prueba? que haya una impresora predeterminada y que dicha impresora esté lista para imprimir?

Saludos.

Manuel Mercado

Hola Maestro,

Creo que és mejor que el maestro ANTONIO LINARES te de la respuesta.

jejejejeje.

Saludos.

[karinha]

Bien... No tengo certezca se lo comprendo bién...

Creo sea este comando:

PrnGetName()

Saludos.

[Antonio Linares]

Manuel Mercado,

FiveWin le pide a Windows que rellene desde C una estructura PRINTDLG que contiene el dato hDevNames. En ese dato Windows proporciona el nombre de la impresora por defecto.

[Antonio Linares]

Manuel Valdenebro,

Hay que editar la clase TPrinter y cambiar el idioma del mensaje. FWH no puede proporcionar la traducción de esa cadena a todos los idiomas existentes

[Manuel Valdenebro]

Manuel Valdenebro,
FWH no puede proporcionar la traducción de esa cadena a todos los idiomas existentes

Antonio, gracias por contestar.

Creo que puede ser posible con la función GETLANGUAGE () y un DO CASE, al menos, para los lenguajes mas comunes, además del inglés (español, portugues, alemán, frances, etc).

[Carlos Mora]

Hola Manuel,

creo que la mejor solución de todas sería adoptar modelos ya existentes, por ejemplo gettext / i18n. Con eso se puede generalizar cualquier aplicación, y creo (no estoy 100% seguro) que algo ya hay hecho en xHarbour.

Al menos sé que J.L. Sanchez lo usa, ya que aparece la función i18n en los ejemplos de su clase FSDI.

Un saludo,

Carlos.

PD: Y a ver si los que estamos en España nos ponemos de acuerdo y organizamos una reunión en Madrid, que ya va siendo hora