FoxPro/Visual FoxPro - Alineacion Valores con SAY

 
Vista:
sin imagen de perfil

Alineacion Valores con SAY

Publicado por Amado Garcia Lara (68 intervenciones) el 13/01/2009 03:47:18
hola buenas noches.. amigos... saben estoy diseñando un reporte como lo hacia con Clipper con o PROW() pero hay un problema al momento de imprimir las cantidades ya que no las alinea a la derecha como precios y totales dice asi mi codigo

************Imprime Factura****
SET CONSOLE OFF
SET DEVICE TO PRINTER
SET printer ON
SET PRINTER FONT "Arial",8
LOCAL cl
cl=0
SELECT VIRTUAL &&Tabla que ocupo de paso... despues lo paso a FACTURAS.DBF
GO top
@ PROW()+8,18 SAY fcliente
@ PROW(),85 SAY frfc
@ PROW()+1.5,18 SAY fdomicilio
@ PROW(),85 SAY ctelefono
@ PROW()+1,130 say ALLTRIM(STR(DAY(dfecha)))+" "+MESES(MONTH(dfecha))+" "+ALLTRIM(STR(YEAR(dfecha))) && llama function MESES para poner nombre mes
@ PROW()+0.50,18 SAY fciudad
@ PROW()+3,1 SAY " "
DO WHILE !EOF()
@ PROW()+1,5 SAY cantidad pict '999'
@ prow(),14 say ARTICULO
@ PROW(),125 SAY precio pict '999,999.99' &&Aqui todo lo alinea al CENTRO
@ PROW(),145 SAY imptotal pict '999,999.99' &&Tambien aqui lo alinea al Centro
cl=cl+1
IF EOF()
EXIT
ELSE
SKIP
Loop
Endif
EndDo
@PROW()+16.5-cl,144 SAY nstotal pict '$99,999.99'
@PROW()+1,43 say nump
@PROW(),144 SAY niva pict '$99,999.99' &&Valor lo alinea al Centro
@PROW()+1,144 SAY ntotalgral pict '$99,999.99'
SET PRINTER OFF
SET PRINTER TO
SET CONSOLE ON
SET DEVICE TO SCREEN
RETURN

Que debo hacer con mi codigo para imprimir los Valores alineados a la derecha....??
1000 Gracias.. a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:Alineacion Valores con SAY

Publicado por kong (682 intervenciones) el 13/01/2009 11:43:30
hola.
utiliza padl()
......
pj.
si tienes 35 espacios y quieres alinear 10 digitos a la derecha

@1,25 say padl(numero,10,space(1))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Alineacion Valores con SAY

Publicado por Ivan (1 intervención) el 26/02/2009 17:36:12
Amigo el problema esta en la fuente, prueba utilizando FONT.

Primero que nada, te recomiendo que la fuente la pongas por linea, y no en la impresora.... SET PRINTER FONT "Arial",8 (esto yo no lo acostumbro).

mas bien:

@PROW() ... @SAY "valor" FONT "Courier New",10

A mi tambien me pasaba y creo que todo esta en que no escribimos bien el nombre de la fuente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar