Trato de pasar un DBF a Excel. La clase Filexls es la que me ha sido mas fácil y cómoda. (FWH1608)
No he logrado que tome en cuenta los formatos y las distintas letras.
Alguien tendría una sugerencia.
Dejo el código que si funciona, sin negritas y nada que deseo poner.
Saludos y gracias.
Code: Select all
LOCAL oXLS
XLS oXLS FILE ".\Reporte.xls" AUTOEXEC
DEFINE XLS FORMAT nFormat PICTURE '#,##0.00'
DEFINE XLS FORMAT nFormat2 PICTURE '#0'
DEFINE XLS Format nFormat3 PICTURE "dd-dd-yyyy"
DEFINE XLS FONT nFont1 NAME "VERDANA" HEIGHT 20 BOLD
DEFINE XLS FONT nFont2 NAME "TAHOMA" HEIGHT 12
DEFINE XLS FONT nFont3 NAME "TAHOMA" HEIGHT 14
@ 1,2 XLS SAY "LISTADO DE CUENTAS" FONT nFont1 OF oXls
@ 1,4 XLS SAY "Fecha:" + DTOC( Date() ) OF oXls
// CABECERAS
nLen := len( oBrExcel:aCols )
nCol := 1
nFila := 3
XLS COL 1 WIDTH 14 OF oXLS
@ nFila,1 XLS SAY "Fecha" BORDER FONT nFont1 OF oXls
XLS COL 2 WIDTH 50 OF oXLS
@ nFila,2 XLS SAY "Detalle" BORDER FONT nFont1 OF oXls
XLS COL 3 WIDTH 20 OF oXLS
@ nFila,3 XLS SAY "Importe" BORDER FONT nFont1 OF oXls
XLS COL 4 WIDTH 20 OF oXLS
@ nFila,4 XLS SAY "Saldo " BORDER font NfONT1 OF oXls
nCol := 1
nFila++
nFila++
// DATOS
DbSelectArea( DBGRAL )
(DBGRAL)->(dbGoTop())
while !(DBGRAL)->(Eof())
cText := oBrExcel:aCols[1]:Value()
@ nFila, nCol XLS SAY cText FORMAT nFormat3 OF oXls
ncol++
cText := oBrExcel:aCols[3]:Value()
@ nFila, nCol XLS SAY cText FORMAT nFormat OF oXls
ncol++
cText := oBrExcel:aCols[4]:Value()
@ nFila, nCol XLS SAY cText FORMAT nFormat2 OF oXls
ncol++
cText := oBrExcel:aCols[5]:Value()
@ nFila, nCol XLS SAY cText FORMAT nFormat2 OF oXls
// ncol++
nfila++
nCol:=1
(DBGRAL)->(dbskip())
end While
nFila++
ENDXLS oXLS
Return(.F.)
