USO DE PRINT como definir Margenes y REPORT Insertar Codigo

Board index FiveWin para Harbour/xHarbour USO DE PRINT como definir Margenes y REPORT Insertar Codigo

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

USO DE PRINT como definir Margenes y REPORT Insertar Codigo
Posted: Wed Feb 15, 2017 04:48 PM

Saludos al Forum

Como defino un margen Superior , Intefior Etc..
La otra Pregunta es como insertar un trozo de codigo al report

Code (fw): Select all Collapse

     for x=1 to len(objt:oRepgene) 
               xtit = Objt:oRepgene[x,1]  //Titulo Columna
               xcam = Objt:oRepgene[x,2]  //Vble columna BD
               xcol = Objt:oRepgene[x,9]  //Posicion coluna impresion  
               xpic = Objt:oRepgene[x,8]  //El Picture
               xvra = Objt:oRepgene[x,6]  //Para Indicar fecha o Campos logicos  
               Ctexto := Ctexto + "COLUMN TITLE '"+xtit+"' DATA bs_mostdato(oDbf,'"+xcam+"',' ','"+xvra+"',oApp:rt)"+CRLF
    Next

    REPORT oReport ;
           TITLE " ",Objt:cSistema,::subtit,::subtit1,::subtit2;
           FOOTER oApp:MTITU1+"  Modulo.: "+Objt:cnomdul+"  Pagina No:" + STR(oReport:npage,3) + "   Fecha:"+DTOC(DATE()) CENTER; 
           FONT ::tipledet ;
           TO DEVICE aPrn  //PREVIEW CAPTION "Reporte de Rubros"  
Nota Aqui es donde quiero adicionar el codiog que contiene Ctexto
           &(Ctexto)

             
    END REPORT

Ya que cuando genero en documento la linea fina del reporte queda muy pegada al final de pagina , por esa razon requiero eses margen, Gracias , Sugerencias.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Carlos Mora

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

Re: USO DE PRINT como definir Margenes y REPORT Insertar Codigo
Posted: Fri Feb 17, 2017 10:04 AM

Hola Ruben Dario,

creo que lo mejor es, en lugar del &(), hacer un FOR/NEXT de sentencias ADD COLUMN TO oReport .

Code (fw): Select all Collapse

REPORT oReport ;
           TITLE " ",Objt:cSistema,::subtit,::subtit1,::subtit2;
           FOOTER oApp:MTITU1+"  Modulo.: "+Objt:cnomdul+"  Pagina No:" + STR(oReport:npage,3) + "   Fecha:"+DTOC(DATE()) CENTER;
           FONT ::tipledet ;
           TO DEVICE aPrn  //PREVIEW CAPTION "Reporte de Rubros"  

     for x=1 to len(objt:oRepgene)
           ADD COLUMN oCol TO REPORT oReport TITLE (Objt:oRepgene[x,1] ) DATA bs_mostdato(oDbf,'"+xcam+"',' ','"+xvra+"',oApp:rt)"+CRLF etc Tc
     Next

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

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: USO DE PRINT como definir Margenes y REPORT Insertar Codigo
Posted: Fri Feb 17, 2017 10:22 PM

Gracias Carlos ,
Voy hacer pruebas.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

FiveTech Support Forums

Continue the discussion