FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index EasyReport, EasyDialog y EasyPreview construcci贸n de easyPreview
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
construcci贸n de easyPreview
Posted: Thu Aug 14, 2014 04:15 PM

He bajado el repositorio e intentado reconstruir easyPreview con el archivo de xMate que trae ....
De momento faltan un archivo llamado "davinci.ch" ... lo he comentado y he seguido ...
aqui pongo los errores que lanza para ir resolvi茅ndolos ....

Warning W8065 epmeta.prg 445: Call to function 'ISARRAY' with no prototype in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 447: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 448: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 449: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 450: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 473: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE
Error E2227 epmeta.prg 474: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE
Error E2227 epmeta.prg 475: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE
Error E2227 epmeta.prg 476: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE

Tambi茅n falta el archivo vrd.ch

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: construcci贸n de easyPreview
Posted: Thu Aug 14, 2014 04:41 PM

Manuel,

A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: construcci贸n de easyPreview
Posted: Thu Aug 14, 2014 04:45 PM
Vrd.ch
Code (fw): Select all Collapse
/*
    ==================================================================
    EasyReport - The Visual Report Designer                Header File
                                                         Version 2.1.1
    ------------------------------------------------------------------
                           (c) copyright: Timm Sodtalbers, 2000 - 2004
                                                    Sodtalbers+Partner
                                              <!-- e --><a href="mailto:info@reportdesigner.info">info@reportdesigner.info</a><!-- e -->
                                               www.reportdesigner.info
    ==================================================================
*/

// In FiveWin 2.2 FiveTech renamed the class TExStruc to TExStruct.
// If you use FW 2.1 or lower uncomment the next line.
//#DEFINE USE_TEXSTRUC

//------------------------------------------------------------------------------

#DEFINE CODE39          1
#DEFINE CODE39CHECK     2
#DEFINE CODE128AUTO     3
#DEFINE CODE128A        4
#DEFINE CODE128B        5
#DEFINE CODE128C        6
#DEFINE EAN8            7
#DEFINE EAN13           8
#DEFINE UPCA            9
#DEFINE CODABAR         10
#DEFINE SUPLEMENTO5     11
#DEFINE INDUST25        12
#DEFINE INDUST25CHECK   13
#DEFINE INTER25         14
#DEFINE INTER25CHECK    15
#DEFINE MATRIX25        16
#DEFINE MATRIX25CHECK   17

//------------------------------------------------------------------------------
#xcommand EASYREPORT <oVRD>                         ;
                     NAME <cRptFile>                ;
                     [ PREVIEW <lPreview>         ] ;
                     [ TO <cPrinter>              ] ;
                     [ OF <oWnd>                  ] ;
                     [ <lModal: MODAL>            ] ;
                     [ <lPrintIDs: PRINTIDS>      ] ;
                     [ <lNoPrint: NOPRINT>        ] ;
                     [ <lNoExpr: NOEXPR>          ] ;
                     [ CHECK <lCheck>             ] ;
                     [ AREAPATH <cAreaPath>       ] ;
                     [ PRINTDIALOG <lPrDialog>    ] ;
                     [ COPIES <nCopies>           ] ;
                     [ PRINTOBJECT <oPrn>         ] ;
                     [ PAPERSIZE <aSize>          ] ;
                     [ TITLE <cTitle>             ] ;
                     [ PREVIEWDIR <cPrevDir>      ] ;
                     [ AUTOPAGEBREAK <lAutoBreak> ] ;
                     [ SHOWINFO <lShowInfo>       ] ;
   => ;
      <oVRD> := VRD():New( <cRptFile>       , ;
                           [ <lPreview>    ], ;
                           [ <cPrinter>    ], ;
                           [ <oWnd>        ], ;
                           [ <.lModal.>    ], ;
                           [ <.lPrintIDs.> ], ;
                           [ <.lNoPrint.>  ], ;
                           [ <.lNoExpr.>   ], ;
                           [ <cAreaPath>   ], ;
                           [ <lPrDialog>   ], ;
                           [ <nCopies>     ], ;
                           [ <lCheck>      ], ;
                           [ <oPrn>        ], ;
                           [ <aSize>       ], ;
                           [ <cTitle>      ], ;
                           [ <cPrevDir>    ], ;
                           [ <lAutoBreak>  ], ;
                           [ <lShowInfo>   ] )

//------------------------------------------------------------------------------
#xcommand ER QUICK <oVRD>                         ;
                   NAME <cRptFile>                ;
                   [ PREVIEW <lPreview>         ] ;
                   [ TO <cPrinter>              ] ;
                   [ OF <oWnd>                  ] ;
                   [ <lModal: MODAL>            ] ;
                   [ <lPrintIDs: PRINTIDS>      ] ;
                   [ <lNoPrint: NOPRINT>        ] ;
                   [ <lNoExpr: NOEXPR>          ] ;
                   [ CHECK <lCheck>             ] ;
                   [ AREAPATH <cAreaPath>       ] ;
                   [ PRINTDIALOG <lPrDialog>    ] ;
                   [ COPIES <nCopies>           ] ;
                   [ TITLE <cTitle>             ] ;
                   [ ACTION <uAction>           ] ;
                   [ PREVIEWDIR <cPrevDir>      ] ;
                   [ AUTOPAGEBREAK <lAutoBreak> ] ;
   => ;
         VRD_PrReport( <cRptFile>         , ;
                     [ <lPreview>        ], ;
                     [ <cPrinter>        ], ;
                     [ <oWnd>            ], ;
                     [ <.lModal.>        ], ;
                     [ <.lPrintIDs.>     ], ;
                     [ <.lNoPrint.>      ], ;
                     [ <.lNoExpr.>       ], ;
                     [ <cAreaPath>       ], ;
                     [ <lPrDialog>       ], ;
                     [ <nCopies>         ], ;
                     [ <lCheck>          ], ;
                     [ {|oVRD|<uAction>} ], ;
                     [ <cTitle>          ], ;
                     [ <cPrevDir>        ], ;
                     [ <lAutoBreak>      ] )

//------------------------------------------------------------------------------
#xcommand PRINTAREA <nArea>                     ;
                    OF <oVRD>                   ;
                    [ <lOnlyInit: ONLYINIT>   ] ;
                    [ ITEMIDS <aIDs>          ] ;
                    [ ITEMVALUES <aStrings>   ] ;
                    [ <lPageBreak: PAGEBREAK> ] ;
   => ;
      <oVRD>:AreaStart( <nArea>           , ;
                        [ !<.lOnlyInit.> ], ;
                        [ <aIDs>         ], ;
                        [ <aStrings>     ], ;
                        [ <.lPageBreak.> ] )

//------------------------------------------------------------------------------
#xcommand PRINTAREAS <aArea>                     ;
                     OF <oVRD>                   ;
                     [ <lOnlyInit: ONLYINIT>   ] ;
   => ;
      <oVRD>:PrMultiAreas( <aArea>           , ;
                           [ !<.lOnlyInit.> ] )

//------------------------------------------------------------------------------
#xcommand PRINTITEM <nItemID>                ;
                    AREA <nArea>             ;
                    [ VALUE <cTextORImage> ] ;
                    OF <oVRD>                ;
                    [ ENTRY <nEntry>       ] ;
   => ;
      <oVRD>:PrintItem( <nArea>            , ;
                        <nItemID>          , ;
                        [ <cTextORImage> ] ,,, ;
                        [ <nEntry>       ] )

//------------------------------------------------------------------------------
#xcommand PRITEMLIST AREA <nArea>          ;
                     OF <oVRD>             ;
                     ITEMIDS <aIDs>        ;
                     ITEMVALUES <aStrings> ;
   => ;
      <oVRD>:PrintItemList( <nArea>    , ;
                            <aIDs>     , ;
                            <aStrings> )

//------------------------------------------------------------------------------
#xcommand PRINTREST AREA <nArea> OF <oVRD> => <oVRD>:PrintRest( <nArea> )

//------------------------------------------------------------------------------
#xcommand PAGEBREAK <oVRD> => <oVRD>:PageBreak()

//------------------------------------------------------------------------------
#xcommand END EASYREPORT <oVRD> => <oVRD>:End()

//------------------------------------------------------------------------------
#xcommand ENDEASYREPORT <oVRD> => <oVRD>:End()

//------------------------------------------------------------------------------
#xcommand @ <nTop>, <nLeft> BARCODE <oBC>   ;
             DEVICE <hDC>                   ;
             <label: PROMPT, VAR> <cText>   ;
             TYPE <nBCodeType>              ;
             [ SIZE <nWidth>, <nHeight>   ] ;
             [ COLORTEXT <nColText>       ] ;
             [ COLORPANE <nColPane>       ] ;
             [ PINWIDTH <nPinWidth>       ] ;
             [ VERTICAL <lVert>           ] ;
             [ TRANSPARENT <lTransparent> ] ;
   => ;
      <oBC> := VRDBarcode():New( hDC, <cText>, <nTop>, <nLeft>, ;
                           [ <nWidth>       ], [ <nHeight>   ], [ <nBCodeType> ], ;
                           [ <nColText>     ], [ <nColPane>  ], [ !<lVert>     ], ;
                           [ <lTransparent> ], [ <nPinWidth> ] )

//------------------------------------------------------------------------------
#xcommand SHOWBARCODE <oBC> => <oBC>:ShowBarcode()
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: construcci贸n de easyPreview
Posted: Thu Aug 14, 2014 06:20 PM
Antonio Linares wrote:Manuel,

A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco :-)


Antonio , ya tienes la soluci贸n en el post adecuado ...
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: construcci贸n de easyPreview
Posted: Thu Aug 14, 2014 10:21 PM

Manuel,

mil gracias! :-)

Ahora a por la barra de scroll, a ver si descubrimos que le pasa...

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion