FiveTech Support Forums

 Error description: Error BASE/1005  Message not found: NIL:_OICON
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => NIL:_OICON( 0 )
   Called from: source\rpreview.prg => (b)TPREVIEW_ACTIVATE( 167 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 636 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:LVALID( 0 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 326 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:END( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:SYSCOMMAND( 2373 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3154 )
   Called from:  => SYSREFRESH( 0 )
   Called from: .\source\function\MSGRUN.PRG => STOPUNTIL( 60 )
   Called from: source\rpreview.prg => TPREVIEW:ACTIVATE( 173 )
   Called from: source\rpreview.prg => RPREVIEW( 1701 )
   Called from: source\report.prg => (b)TREPORT_NEW( 187 )
   Called from: source\report.prg => TREPORT:ACTIVATE( 882 )

     DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
     DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD



     SELECT ("ARTICULO")
     DbGoTop()


     REPORT oReport TITLE  OemToAnsi(" Listado del ALMACEN general ")  ;
          FONT oFont1, oFont2 ;
          HEADER Space(10)+cComercial, Space(10)+"Fecha: "+dtoc(date()) ;
          FOOTER OemtoAnsi("P gina: ")+str(oReport:nPage,3) CENTERED ;
          PREVIEW CAPTION OemToAnsi("Listado del ALMACEN general")

     oReport:nTitleUpLine := 1     // Grosor Cabeceza Columnas
     oReport:nTitleDnLine := 1



     COLUMN TITLE OemToAnsi("C¢digo")         DATA ARTICULO->CODIGO

     COLUMN TITLE "Artículo"                  DATA LEFT( ARTICULO->NOMBRE, 30 )

     COLUMN TITLE "Stock"                     ;
            DATA ARTICULO->EXSISTENCI        ;
            RIGHT                           ;
            PICTURE PictDecimales(7)

     COLUMN TITLE "Precio de Coste"  ;
            DATA  ARTICULO->PRECIOCOST ;
            RIGHT              ;
            PICTURE PictDecimales(8)

     COLUMN TITLE "Valor"  ;
            DATA  (ARTICULO->PRECIOCOST * ARTICULO->EXSISTENCI) ;
            TOTAL              ;
            RIGHT              ;
            PICTURE PictDecimales(11)


     END REPORT



     ACTIVATE REPORT oReport ;
         ON STARTPAGE BmpListados( oReport, tLogo )

     oFont1:End()
     oFont2:End()

METHOD Activate() CLASS TPreview

   ACTIVATE WINDOW ::oWnd MAXIMIZED ;
      ON RESIZE    ::PaintMeta()                  ;
      ON UP        ::VScroll( GO_UP )             ;
      ON DOWN      ::VScroll( GO_DOWN )           ;
      ON PAGEUP    ::VScroll( GO_UP, GO_PAGE)     ;
      ON PAGEDOWN  ::VScroll( GO_DOWN, GO_PAGE)   ;
      ON LEFT      ::HScroll( GO_LEFT )           ;
      ON RIGHT     ::HScroll( GO_RIGHT )          ;
      ON PAGELEFT  ::HScroll( GO_LEFT, GO_PAGE )  ;
      ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ;
      VALID        ( ::oWnd:oIcon := nil       ,;
                     ::oFont:End()             ,;
                     ::oMeta1:End()            ,;
                     ::oMeta2:End()            ,;
                     ::oDevice:End()           ,;
                     ::oHand:End()             ,;
                     ::oWnd := nil             ,;
                     If( Empty( ::oImageList ),, (::oImageList:End(), ::oImageList := nil ) ),;
                     ::lExit := .t.            ,;
                     .t. )

      VALID        ( ::oWnd:oIcon := nil       ,;
                     ::oFont:End()             ,;
                     ::oMeta1:End()            ,;
                     ::oMeta2:End()            ,;
                     ::oDevice:End()           ,;
                     ::oHand:End()             ,;
                     If( Empty( ::oImageList ),, (::oImageList:End(), ::oImageList := nil ) ),;
                     ::oWnd := nil             ,;
                     ::lExit := .t.            ,;