FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour reportes, grupos con 2 renglones
Posts: 149
Joined: Thu Jun 21, 2007 03:26 PM
reportes, grupos con 2 renglones
Posted: Tue Apr 28, 2009 08:12 PM

Hola; tengo un reporte y necesito que agrupe los datos, pero que muestre 2 renglones en lo que seria la cabecere de cada grupo. Ej.

cuenta descrip debe haber

asiento 1, fecha 25/03/2008
concepto: asiento de ventas marzo
110010 cuenta caja 1500
120010 a cuenta banco 500
130010 a cuenta banco 1000

total 1500 1500

yo hago esto:

      REPORT oReport TITLE " "," ","LIBRO DIARIO - Empresa: "+XDESCRIEMPRE,"Desde: "+dtoc(xfecdesde)+"   Hasta: "+dtoc(xfechasta) CENTER ;
                     CAPTION "Libro Diario ";
                     HEADER "Fecha:  "+DToC(DATE()) RIGHT;
                     FOOTER "Pagina: "+STR(oReport:nPage,3) CENTER;
                     FONT oFon1, oFon2, oFon3;
                     PEN oPen2, oPen1;
                     PREVIEW

// COLUMN TITLE "Fecha" DATA asientos->Fec SIZE 10

        COLUMN TITLE "Cuenta"       DATA asientos->Cta SIZE 6

        COLUMN TITLE "Descripcion"    DATA IIF(asientos->DH = 'H',space(3)+"a "+left(asientos->Desc,27),left(asientos->Desc,30));  
                                    SIZE 30

        COLUMN TITLE "Debe "        DATA IIF(asientos->DH = 'D',asientos->Cant,' ') PICTURE "999999999.99" ;
                                            SIZE 15 RIGHT TOTAL // GRID

        COLUMN TITLE "Haber  "      DATA IIF(asientos->DH = 'H',asientos->Cant,' ') PICTURE "999999999.99" ;
                                            SIZE 15 RIGHT TOTAL // GRID

        COLUMN TITLE "Concepto"    DATA left(asientos->conc,25) ;  
                                    SIZE 25


        GROUP oRptGrp ON PADL(YEAR(ASIENTOS->FEC),4,'0')+PADL(MONTH(ASIENTOS->FEC),2,'0')+PADL(DAY(ASIENTOS->FEC),2,'0')+asientos->cod+str(asientos->Doc) HEADER "Cod: "+asientos->cod+"  Num.: "+alltrim(str(asientos->doc))+" Fecha: "+dtoc(asientos->fec)+" - "+ alltrim(asientos->descasi) FOOTER "  "+asientos->conc

        END REPORT

     ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 };
     ON STARTPAGE StartPage(oReport)

Necesito que en HEADER del GOUP oRptGrp, el alltrim(asientos->descasi) este en el 2° renglon, y el resto en el 1°.

Si alguien me puede dar una mano, se lo agradecere. Atte.

Diego

Continue the discussion