FiveTech Software tech support forums

Pues me gustaría contar con una cláusula, rutina, etc... al estilo WHEN en muchos controles, pero para mostrar u ocultar el objeto. Sería un "HIDEWHEN <lExp>", pues lo más común es mostrar los controles. Según el usuario, el módulo, etc. hay información que se debe o no mostrar, lo que obl...

Daniel, Al final lo he resuelto así, a falta de criterio solución mejor: aFldBrw := { "Cli_Cod", "Cli_Nom", "Cli_Tel", "Cli_Te2", "Cli_Dir", "Cli_Pob" } cAlias := "Cli" ...... cFldBrw := ""    for nVarFor = 1 to Len( aFl...

Daniel, Al hacerlo de cualquiera de los dos modos que propones, el Browse toma un registro de la base de datos aleatorio y lo repite en todos los registros del Browse... Muchas gracias por tu ayuda. Willi, Cierto, me faltaban esas definiciones en mi código, pero en este caso las omití a propósito pa...

Daniel,

Me refería no a colocar el texto en horizontal, si no más bien a que el texto en lugar de ser leído de forma horizontal, leerlo en forma vertical tal como están ahora. Un ejemplo:

la pestaña con la etiqueta "EXIT", que sea vista/leída de la forma:

E
X
I
T

Saludos.

Daniel,

Se ve muy buena la clase. Tan solo anotar una pregunta/sugerencia: En los folders que tienen las pestañas a los márgenes izquierdo o derecho, se poría posicionar el texto en vertical?.

Saludos!

Juan, Es posible que cuando pulsas F2, cCodIni sigue valiendo aún Space( 16 ), puesto que aún no has validado el Get. Prueba esto por si pudiese servir:         REDEFINE GET oGet1 VAR cCodIni ID 101 OF oDlg update ;         PICTURE "@!";         ON CHANGE Self:Assign()         oGet1:bGotFo...

Seguro es de cajón, pero no encuentro una manera práctica de asiganar los campos de una Base de datos a un LISTBOX, tengo el sigueinte código por ejemplo:   REDEFINE LISTBOX oBrwBusCli;             FIELDS Cli->Cli_Cod, Cli->Cli_Nom, Cli->Cli_Tel, Cli->Cli_Te2, Cli->Cli_Dir, Cli->Cli_Pob;            ...

Antonio, :) magistral. Compilado y ejecutado, aparentemente no da error, todo ok y BIDIRECCIONAL!!! lectura/escritura, vamos, que es directo al puerto. Las pruebas que hace test2.prg dan todas ok. Ahora a ver si teniendo acceso directo al puerto LPT se puede hacer funcionar a IsPrinter() o PrintRead...

Fernando,

Muchas gracias por tu ayuda. A ver si alguien puede arrojar más luz...


Saludos!

Fernando,

Fernando, Muchas gracias por tus apuntes, de hecho había visto ese método en otro post de este foro. En principio estoy usando la clase TDosPrn y desconozco si tu ejemplo sirve para esa clase, en todo caso he hecho pruebas y no funciona, nunca marca que la impresora está "Off Line", tanto ...

Fernando, Gracias por tu ayuda. Respecto de los comandos "?" y "??", creo que no me queda más opción que ir listado a listado modificándolo por oPrn:Write y oPrn:NewLine según sea el caso. Así que se soluciona con paciencia :) , eso que nos falta a muchos. Respecto del problema p...

Adhemar,

tiene esa impresora algún led que indique si el salto sobre la perforación está activado?

Saludos.

Adhemar, Es correcto, excepto que el 78 es para la "n", no para la "N" y el segundo comando entiendo que es una "O" mayúscula, por tanto corresponde otro código, hazlo así a ver qué sucede: oPrn:Write( CHR(27) + CHR(110) ) oPrn:Write( CHR(27) + CHR(111) ) El tercer caso...

Adhemar,

En el manual de la impresora deberían venir los códigos de escape de la misma. Revisa si los trae. Si no es así, dímelo y busco un viejo manual de una DFX8000 que creo los traía.

Saludos.