Corrección en el método margin de TReport

Board index FiveWin para Harbour/xHarbour Corrección en el método margin de TReport

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

Corrección en el método margin de TReport
Posted: Tue Oct 02, 2007 10:20 AM

Hola Antonio,

si pongo,

oReport:Margin( 2.5, RPT_LEFT  , RPT_CMETERS)

asume erroneamente un margen 0, eso es debido a que en el método Margin, al transformar CMS a INCH divide el valor por 2.54 y toma la parte entera del resultado, lo que es incorrecto.

Code: Select all Collapse

METHOD Margin( nValue, nType, nScale ) CLASS TReport

   DEFAULT nValue := .2,;
      nType  := RPT_LEFT,;
      nScale := RPT_INCHES

   if nScale == RPT_CMETERS
      nValue := Int( nValue/ 2.54)  // Acá está mal, debe ser
      nValue := nValue / 2.54      // Sin el INT
   endif

......

return nil

un saludo,

Carlos.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Corrección en el método margin de TReport
Posted: Wed Oct 03, 2007 11:23 AM

Carlos,

Corregido, gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: Corrección en el método margin de TReport
Posted: Wed May 27, 2009 03:12 AM

Carlos,
Si quiero que el AREA de impresion del treport tenga 30 cm de ancho (en total) como hago con el tema de los margenes?,
ya que pongo asi y no lo respeta.-

Code (fw): Select all Collapse

      oReporte:Margin( 2.5, RPT_RIGHT  , RPT_CMETERS)

gracias.

Carlos Mora wrote:Hola Antonio,

si pongo,
Code (fw): Select all Collapse
oReport:Margin( 2.5, RPT_LEFT  , RPT_CMETERS)
asume erroneamente un margen 0, eso es debido a que en el método Margin, al transformar CMS a INCH divide el valor por 2.54 y toma la parte entera del resultado, lo que es incorrecto.
Code (fw): Select all Collapse
METHOD Margin( nValue, nType, nScale ) CLASS TReport

   DEFAULT nValue := .2,;
      nType  := RPT_LEFT,;
      nScale := RPT_INCHES

   if nScale == RPT_CMETERS
      nValue := Int( nValue/ 2.54)  // Acá está mal, debe ser
      nValue := nValue / 2.54      // Sin el INT
   endif

......

return nil
un saludo,

Carlos.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion