FiveTech Support Forums

Estimados, en el siguiente código como hago para realizar una linea horizontal debajo de cada registro impreso,

Desde ya Gracias a Todos,
Saludos,

GUSPRE wrote:Estimados, en el siguiente código como hago para realizar una linea horizontal debajo de cada registro impreso,

Desde ya Gracias a Todos,
Saludos,

Code: Select all Collapse

function DoReport()

   local oReport

   REPORT oReport PREVIEW;
        TITLE "*** LISTADO DE PRUEBA ***","","Ignacio Ortiz de      Zu¤iga","" ;
        HEADER "Fecha: "+dtoc(date())+space(44)+"Hora:  "+time() ;
        FOOTER "P gina: "+str(oReport:nPage,3)

 

   COLUMN TITLE "ST" ;
        DATA Customer->State ;
       GRID

   COLUMN TITLE "City" ;
        DATA Customer->City ;
        SIZE 30

   COLUMN TITLE "First Name","Last Name" ;
        DATA Customer->First, Customer->Last ;
        SIZE 30

  
   END REPORT

If oReport lCreated

//oReport:CellView() //para pintar las celdas

oReport:bChange := {|| if( !oReport:lFirstRow, oReport:TotalLine(oReport:nGroupLine, 2),) } //pintar lineas

endif

Saludos.

Francisco Alegría P.

Muchas Gracias,

Francisco!!

saludos,