DBASE

26/11/2006 - 23:08 por Alfredo | Informe spam
Hola amigos, me gustaria que alguien me indicase sobre lo siguiente:

Tengo un programa de facturacion realizado en DBase, no es que sea un gran
programa, pero a mi me sirve, debido a problemas con xp e impresoras querria
migrarlo a vfp 9, pero sin grandes modificaciones, ni meterme en modos
graficos.

Un problema que se me ha presentado es que al introducir los datos de una
linea de albaranes, el campo descripcion que tiene 40 caracteres, no me sale
en pantalla resaltados los 40, sino solo 30 +/-
yo estoy empleando:

STORE 0 TO mCDAD,mPVP,mSTOTAL,mNTO

@ 12,17 CLEA

@ 12,18 GET mCDAD PICTURE '99999.9'

@ 12,26 GET mDT PICTURE '999'

@ 16,30 GET mDESCRIP PICTURE
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'

*@ 16,30 GET mDESCRIP PICTURE 'XXX'

@ 12,88 GET mPVP PICTURE '99999.99'

@ 14,63 SAY 'NETO =' GET mNTO PICTURE '99999.99'

SET CONFIRM ON

@ 12,88 GET C

READ

como podria hacerlo??



gracias de antemano y un saludo
 

Leer las respuestas

#1 Rocinante
26/11/2006 - 23:15 | Informe spam
Se me ocurre que puede tener que ver con el tipo de letra que usa la
pantalla por defecto, prueba esto antes de tu código:

DEFINE WINDOW wMain AT 0,0 SIZE 18,60 ;
FONT 'Courier New',12 ;
DOUBLE NOCLOSE
MOVE WINDOWS wMain CENTER
ACTIVATE WINDOW wMain
CLEAR

Cuanto termines y para desactivar la ventana:
RELEASE WINDOW wMain

Si con "Courier New", 12 tampoco se ven los 40 caracteres prueba valores
menores de tipo de letra: 10, 8

Saludos,





"Alfredo" escribió en el mensaje
news:
Hola amigos, me gustaria que alguien me indicase sobre lo siguiente:

Tengo un programa de facturacion realizado en DBase, no es que sea un gran
programa, pero a mi me sirve, debido a problemas con xp e impresoras
querria migrarlo a vfp 9, pero sin grandes modificaciones, ni meterme en
modos graficos.

Un problema que se me ha presentado es que al introducir los datos de una
linea de albaranes, el campo descripcion que tiene 40 caracteres, no me
sale en pantalla resaltados los 40, sino solo 30 +/-
yo estoy empleando:

STORE 0 TO mCDAD,mPVP,mSTOTAL,mNTO

@ 12,17 CLEA

@ 12,18 GET mCDAD PICTURE '99999.9'

@ 12,26 GET mDT PICTURE '999'

@ 16,30 GET mDESCRIP PICTURE
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'

*@ 16,30 GET mDESCRIP PICTURE 'XXX'

@ 12,88 GET mPVP PICTURE '99999.99'

@ 14,63 SAY 'NETO =' GET mNTO PICTURE '99999.99'

SET CONFIRM ON

@ 12,88 GET C

READ

como podria hacerlo??



gracias de antemano y un saludo


Preguntas similares