home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR19 / TDCO69.ZIP / INSTAMGR.PRG < prev    next >
Text File  |  1993-06-06  |  2KB  |  64 lines
  1. /*------------------------------------------------------------------------------
  2.                MANEJO DE INSTALADORES
  3. ------------------------------------------------------------------------------*/
  4.  
  5. #include "tdco.ch"
  6. #include "inkey.ch"
  7.  
  8. function InstMgr()
  9.  
  10.    local bRefresh := { || InstRefresh() },;
  11.      GetList  := {},;
  12.      aSay      := {},;
  13.      aGet      := {},;
  14.      nSelect  := Select()
  15.  
  16.    SELECT INSTALAD
  17.    InstScr()
  18.  
  19.  // ------- GET Y APPEND ----------
  20.  
  21.    @  3,28 TGET  INSTALAD->CODIGO;
  22.        PICTURE "@!";
  23.        VALID !( lExiste( INSTALAD->CODIGO ) )
  24.    @  4,28 TGET  INSTALAD->DESCRIPCIO;
  25.        PICTURE "@!"
  26.  
  27.    aGet = AClone( GetList )  ;    GetList = {}
  28.  
  29.  // ---------- SAY ---------------
  30.    @  3, 28 TSAY  INSTALAD->CODIGO
  31.    @  4, 28 TSAY  INSTALAD->DESCRIPCIO
  32.  
  33.    aSay = AClone( GetList )  ;    GetList = {}
  34.  
  35.    RecordMgr( aSay, aGet, bRefresh )
  36.    Scr( POP )
  37.    SELECT (nSelect)
  38.  
  39.    LeeTblInstalad( "ReRead" )
  40.  
  41. return NIL
  42.  
  43. //----------------------------------------------------------------------------//
  44.  
  45. static function InstScr()
  46.  
  47.    Caja( 2, 1, 5, 75, AreaLabel() )
  48.  
  49.    @  3, 3  SAY "Código.................: " COLOR aClr[ CLR_BOX, 5 ]
  50.    @  4, 3  SAY "Descripción............: " COLOR aClr[ CLR_BOX, 5 ]
  51.  
  52. return NIL
  53.  
  54. //----------------------------------------------------------------------------//
  55.  
  56. static function InstRefresh()
  57.  
  58.    @ 2,63 SAY PadL( LTrim( Str(RecNo()) ) + "/" + LTrim( Str(LastRec()) ), 10 );
  59.       COLOR aClr[ CLR_BOX, 2 ]
  60.  
  61. return NIL
  62.  
  63. //----------------------------------------------------------------------------//
  64.