Amigos, tengo el siguiente código
- Code: Select all Expand view
STATIC FUNCTION Imprimelo()
LOCAL oReporte
LOCAL oFont1,oFont2,oFont3
LOCAL oPen1,oPen2
LOCAL cTitulo := "Hoja de roll"
LOCAL nLinea := 1
LOCAL nHasta := oRsBit:RecordCount()
LOCAL nBookMark := oRsBit:BookMark
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-9
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-9 BOLD
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-11 BOLD
DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HBLUE
DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA
oRsBit:MoveFirst()
REPORT oReporte CAPTION cTitulo PREVIEW ;
HEADER ALLTRIM(oApp:cRazonSocial),;
Date2Txt(dFecIni) + "-" + Date2Txt(dFecFin),;
cTitulo CENTER;
TITLE "Fecha: "+Date2Txt(DATE()),;
"Hoja No:"+STR(oReporte:nPage,3);
FONT oFont1,oFont2,oFont3;
PEN open1,oPen2
COLUMN TITLE "Viaje" DATA oRsBit:Fields("BIT_BIT"):Value SIZE 5 RIGHT PICTURE "@Z 9999999"
COLUMN TITLE "Planta" DATA oRsBit:Fields("PLA_DES"):Value SIZE 15 LEFT
COLUMN TITLE "Destino" DATA oRsBit:Fields("PRO_NOM"):Value SIZE 20 LEFT
COLUMN TITLE "Operador" DATA oRsBit:Fields("CHO_NOM"):Value SIZE 20 LEFT
COLUMN TITLE "Unidad" DATA oRsBit:Fields("UNI_PLA"):Value SIZE 10 LEFT
COLUMN TITLE "Material" DATA oRsBit:Fields("MAT_DES"):Value SIZE 20 LEFT
COLUMN TITLE "Mts3" DATA oRsBit:Fields("BIT_CTD"):Value SIZE 4 RIGHT PICTURE "@Z 999,999"
COLUMN TITLE "Folio" DATA oRsBit:Fields("BIT_FDC"):Value SIZE 6 RIGHT PICTURE "@Z 999,999"
COLUMN TITLE "Diesel" DATA oRsBit:Fields("BIT_DIE"):Value SIZE 6 RIGHT PICTURE "@Z 999"
COLUMN TITLE "Can" DATA IIF(oRsBit:Fields("BIT_CAN"):Value,"Sí","") SIZE 3 LEFT
END REPORT
IF oReporte:lCreated
oReporte:SetTxtColor(CLR_BLACK,1) // Color del texto de la hoja default NEGRO
oReporte:SetTxtColor(CLR_HRED,2) // Color de encabezado y totales del grupo
oReporte:SetTxtColor(CLR_HRED,3) // Color para el primer titulo del encabezado
oReporte:SetPenColor(CLR_HBLUE) // Color para las líneas
oReporte:SetShdColor(CLR_YELLOW) // Color para el sombreado
oReporte:oHeader:aFont[1] := {||3}
oReporte:oHeader:aFont[2] := {||3}
oReporte:oHeader:aPad[2] := RPT_RIGHT
oReporte:oTitle:aPad[1] := RPT_LEFT
oReporte:oTitle:aPad[2] := RPT_RIGHT
oReporte:nTopMargin := 300
oReporte:nDnMargin := 300
oReporte:bInit := { || oRsBit:MoveFirst() }
oReporte:bSkip := { || (nLinea++, oRsBit:MoveNext())}
ENDIF
ACTIVATE REPORT oReporte ;
ON STARTPAGE Alinea(oReporte,1,2);
ON END oRsBit:BookMark := nBookMark;
WHILE nLinea <= nHasta
oFont1:Release()
oFont2:Release()
oFont3:Release()
oPen1:Release()
oPen2:Release()
RETURN(.T.)
El proceso no arroja errores pero cuando creo la hoja de Excel con el botón de la vista previa
solo exporta los encabezados y dos renglones pero vacíos.
Parece que solo exporta los textos constantes pero lo que proviene de la tabla SQL no lo exporta.
Que me falta?
Saludos
