TReport to Excel

[Daniel Pechir]

HOLA A TODOS

QUIERO MANDAR UN DATASET A EXCEL
TENGO EL SIGUIENTE CODIGO, PERO NO HACE NADA

WITH OBJECT oSalida := TReport():Create():New()
:oDataset := ::oConsu
:ToExcel()
:Destroy()
END

::oConsu es el Dataset y tiene Registros

SE QUE CON FR LO PUEDO HACER PERO QUISIERA SABER POR QUE ASI NO FUNCIONA
Y ME HAGAN FAVOR DE MOSTRARME MI ERROR U OMISION

GRACIAS POR SU AYUDA

DANIEL PECHIR

[Carlos Ortiz]

Proba de esta manera mejor:

REPORT oReport Header "Informe de movimientos por Entidad",;
"Desde el "+dtoc(::oDateEdit1:Value)+" Hasta el "+dtoc(::oDateEdit2:Value) align DT_LEFT;
Title "Página "+alltrim(str(oReport:nPage)) align DT_RIGHT;
PREVIEW jobname "Informe de movimientos por Entidad";
footer "Emitido el dia "+dtoc(date())+" - "+pad(time(),5), m->cPie, lower(procname());
font oFontDatos, oFontTitulos
GROUP oGroup OF oReport HEADER ::oDSEntidad:cNomEnti ON busODS(::oDSEntidad,"pad(cNomEnti,30)",space(30),str(RepMovimientosEntidad->nIDEnti),1) FOOTER " " font 2
COLUMN OF oReport TITLE "Apellido y nombre" DATA busODS(::oDSPersonas,"pad(cNombre,20)",space(20),str(RepMovimientosEntidad->nIDPersona),1) CHARSIZE 20
COLUMN OF oReport TITLE "ID Persona" DATA RepMovimientosEntidad->nIDPersona CHARSIZE 11 align DT_RIGHT
COLUMN OF oReport TITLE "Cuenta" DATA RepMovimientosEntidad->cNumCuen CHARSIZE 12
COLUMN OF oReport TITLE "Sucursal" DATA RepMovimientosEntidad->cNumSucu CHARSIZE 10
COLUMN OF oReport TITLE "Fecha" DATA RepMovimientosEntidad->dFecVent CHARSIZE 10
COLUMN OF oReport TITLE "ID Venta" DATA RepMovimientosEntidad->nIDVenta CHARSIZE 10 align DT_RIGHT
COLUMN OF oReport TITLE "Tipo" DATA busODS(::oDSTablasG,"alltrim(desc)","",str(RepMovimientosEntidad->nIDTipCom),1) CHARSIZE 15
COLUMN OF oReport TITLE "Nº Comprobante" DATA RepMovimientosEntidad->nNumComp CHARSIZE 15 align DT_RIGHT
COLUMN OF oReport TITLE "Importe" DATA RepMovimientosEntidad->nImpTota CHARSIZE 10 align DT_RIGHT TOTAL PICTURE "@E 9999999.99"
COLUMN OF oReport TITLE "Cuotas" DATA RepMovimientosEntidad->nCanCuot CHARSIZE 6 align DT_RIGHT

IF oSender="V" // vista previa
RUN REPORT oReport
ELSEIF oSender="X" // excel
oReport:ToExcel()
ENDIF[/quote][/quote]

Saludos

[Daniel Pechir]

Gracias Carlos

Saludos

Daniel