
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
************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


0