FiveTech Support Forums

Hola Amigos:

Tengo un problema que debo sulucionar en forma urgente:
Debo imprimir una hoja de cotizacion para clientes, pero no logro alinear las columnas.

Debe Imprimir de esta forma:
Moneda 1 Moneda 2
Departamento : 20 8,900.00 165.887.100

Descuento : 17.00 % 1,513.00 28.200.807

Como ven esto es lo que se imprime, deben ser alineados a la derecha.

Codigo usado:

Print oPrint From User Preview
Define Font oFont1 Name "Arial" Size 0,14 Of oPrint
Define Pen oPen Style 0 width 5
nVertical := oPrint:nVertRes()
nHorizontal := oPrint:nHorzRes()
nFila := Round(nVertical/60,0)
nColumna := Round(nHorizontal/80,0)
Fil=nFila
col=nColumna
Page
oPrint:Say(nFila7,nColumna05,"Señor(a) : ",oFont2)
oPrint:Say(nFila8,nColumna20,trim(oDbcot->Nom_cli),oFont2)
oPrint:Say(nFila9,nColumna05,"Presente:",oFont2)

oPrint:Say(nFila12,nColumna45,"Cotización Nº : "+transform(str(oDbcot->Nro_cot),"@r 9999999999"),oFont4)
oPrint:Say(nFila15,nColumna05,"Edificio "+trim(Edificio->nom_edi),oFont2)

oPrint:Say(nFila*29,nColumna*05,"Departamento :  "+oDbcot->Cod_dep+spac(18)+"U.F. "+transform(oDbcot->Cos_uf,"@z 99,999,999.99")+spac(5)+"$ "+transform(oDbcot->cos_pes,"@EZ 999,999,999"),oFont1)

oPrint:Say(nFila31,nColumna05,"Descuento : "+transform(oDbcot->Por_des, "@r 9999.99")+" %"+spac(12)+"U.F. "+transform(oDbcot->Des_uf,"@z 99,999,999.99")+spac(5)+"$ "+transform(Dbcot->Des_pes,"@Z 999,999,999"),oFont1)

Favor indicarme cual es el error que estoy cometiendo.

Uso Clipper 5.2e Fivewin 2.2 Blinker 7.0

Desde ya, muchas gracias.

Miguel Rivera

Prueba con:
Syntax:
<oPrn>:Say( <nRow>, <nCol>, <cText>, <oFont>, <nWidth>,
<nClrText>, <nBkMode>, <nPad> )

<nPad> A numeric value indicating how align the text to
print: ( PAD_LEFT is used by default)

                #define PAD_LEFT               0
                #define PAD_RIGHT            1
                #define PAD_CENTER          2

Usa

oPrn:cmsay

en vez de

oPrn:say

Hola:

Tu me aconsejas usar CMSAY(), pero hoy ya tengo una mezcla y necesito clarificar, lo siguente:

Para Usar CMSAY(), que *.ch y debo incluir en mi *.prg y que *.obj pertenecientes a Fivewin en el Link.


Saludos,

Miguel Rivera

[quote="A&C"]Usa

oPrn:cmsay

en vez de

oPrn:say