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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Responder a este mensaje

#2 Dario David Puccio

27/11/2006 - 02:18 | Informe spam

Alfredo, el get de la descripcion,

mdescrip=space(40)
@ 16,30 GET mDESCRIP PICTURE
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
Size 1,40

Ademas cuantas X tiene el picture? cuento 46 y el campo es de 40?

Dario

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida