FiveTech Software tech support forums

Code: Select all  Expand view

ACCESS CanExportToExcel INLINE If( ::oReport == nil, ::oDevice:bToExcel != nil, ;
                                  ( ::oReport:bInit != nil .or. ::oReport:bToExcel != nil ) )
 

Code: Select all  Expand view

   #include "fivewin.ch"
    #include "report.ch"

    REQUEST DBFCDX

    function Main()

      local oRep, oFont

       USE CUSTOMER NEW SHARED VIA "DBFCDX"
       SET FILTER TO RECNO() <= 20
       GO TOP

       DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
       REPORT oRep PREVIEW FONT oFont

oRep:bInit := { || dbGoTop() }


       COLUMN TITLE "NAME" DATA FIELD->FIRST
       COLUMN TITLE "CITY" DATA FIELD->CITY

       ENDREPORT

       oRep:bInit := { || CUSTOMER->( DBGOTOP() ) }

       ACTIVATE REPORT oRep

       RELEASE FONT oFont

    return nil
 

MOISES wrote:Hola:

En samples\report.prg, al hacer el preview del Report el botón de exportar a Excel está inactivo y no funciona.

En la FW 14.14 todo OK, en rpreview.prg el valor oReport no llega bien ahora, y por eso no exporta:

Code: Select all  Expand view

ACCESS CanExportToExcel INLINE If( ::oReport == nil, ::oDevice:bToExcel != nil, ;
                                  ( ::oReport:bInit != nil .or. ::oReport:bToExcel != nil ) )
 

Gracias.

Code: Select all  Expand view

      ACTIVATE DIALOG ::oRptWnd CENTERED
/*
      if Empty( ::oDevice:cFile )
         Eval( ::bPreview, ::oDevice )

      elseif "pdf" $ Lower( ::oDevice:cFile )
         FWSavePreviewToPDF( ::oDevice,;
               If( Lower( cFileExt( ::oDevice:cFile ) ) == "pdf", ;
               ::oDevice:cFile, nil ), ::oDevice:lPreview )
      endif
*/
      PrintEnd()
 

Code: Select all  Expand view

      ACTIVATE DIALOG ::oRptWnd CENTERED

      if Empty( ::oDevice:cFile )
         Eval( ::bPreview, ::oDevice )
      else
         PrintEnd()
      endif
 

Code: Select all  Expand view

   IF DeOndePartiu = "IMPRIMEPDF"

      oPrn:lMeta = .F.  // .T.

   ENDIF
 

Sistem wrote:estou tendo problema ao finalizar o repot

Descrição do Erro:
Error BASE/1004 Class: 'NIL' has no exported method: LMETA
[ 1] = U

chamado por LMETA(0)
chamado por PRINTEND(1766)
chamado por TREPORT:ACTIVATE(929)

alguem tem esse problema?