topic-11282

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

There are no printers .....
Posted: Mon May 26, 2008 10:37 AM

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?.

Un saludo

Manuel

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: There are no printers .....
Posted: Mon May 26, 2008 01:56 PM

Manuel Valdenebro wrote: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.

William, Morales

Saludos

méxico.sureste

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

There are no printers .....
Posted: Mon May 26, 2008 02:38 PM

Ó

Code: Select all Collapse

      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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Manuel Valdenebro

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

There are no printers .....
Posted: Mon May 26, 2008 03:02 PM

William y Joao, muchas gracias a los dos.

Un saludo

Manuel

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

There are no printers .....
Posted: Mon May 26, 2008 04:43 PM

karinha wrote: 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

manuelmercado at prodigy dot net dot mx

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

There are no printers .....
Posted: Mon May 26, 2008 05:29 PM

mmercado wrote:
karinha wrote: 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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

There are no printers .....
Posted: Mon May 26, 2008 05:35 PM

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

Creo sea este comando:

PrnGetName()

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

There are no printers .....
Posted: Mon May 26, 2008 08:32 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

There are no printers .....
Posted: Mon May 26, 2008 08:33 PM

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 :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Manuel Valdenebro

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

There are no printers .....
Posted: Mon May 26, 2008 08:44 PM

Antonio Linares wrote: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).

Un saludo

Manuel

Carlos Mora

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

There are no printers .....
Posted: Tue May 27, 2008 01:51 PM

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

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

FiveTech Support Forums

Continue the discussion