FiveTech Software tech support forums

Code: Select all

 REPXLS oReport ;
          HEADER "*** FiveWin Report DEMO ***",;
                 "",;
                 "Utilizando Excel - TRepXls",;
                 "", ;
                 "Date: "+dtoc(date()),;
                 "Time:  "+time() ;
          TO FILE cFile ;
          FONT oFont1, oFont2, oFont3 ;
          FORMAT nFormat1, nFormat2, nFormat3, nFormat4
          

     ADD COLREPXLS TO oReport TITLE "City" CENTER;
          DATA Customer->City SIZE 30

     ADD COLREPXLS TO oReport TITLE "First Name" CENTER;
          DATA Customer->First SIZE 30
          
     ADD COLREPXLS TO oReport TITLE "Last Name" CENTER;
          DATA Customer->Last  SIZE 30

     ADD COLREPXLS TO oReport TITLE "   Salary" CENTER;
          DATA Str(Customer->Salary) ;
          FORMAT 1 ;
          SIZE 12 ;
          TOTAL 

     GROUPXLS TO oReport ON Customer->State ;
           HEADER "State "+oReport:aGroups[1]:cValue ;
           FOOTER "Total State "+oReport:aGroups[1]:cValue ;
           FONT 3
          
    oReport:bSkip  := { || Customer->( DbSkip() ) }
    oReport:bWhile := { || !Customer->( Eof() )}

    oReport:aHeadFont[1] := 3
    oReport:aHeadFont[3] := 2

    //Marcar Celdas
       oReport:lCellView := .t.

    ACTIVATE REPXLS oReport ;
             ON INIT ( Customer->( DbGotop() ) )