Problema de Vista previa a Excel (SOLUCIONADO)
Posted: Thu Jul 01, 2021 12:29 am
Saludos para todo el foro:
Amigos, tengo el siguiente código
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
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