home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / XCLAS20D.ZIP / DEMOMANT.PRG < prev    next >
Encoding:
Text File  |  1993-03-23  |  748 b   |  30 lines
  1. //DemoMant.prg
  2.  
  3. //Demo de la clase CLMANTEN
  4. //Sintaxis:
  5. //   demomant <fichero.dbf>
  6.  
  7. FUNCTION Main( cFile )
  8.    LOCAL oMant
  9.    if cFile == NIL
  10.       qout( "Necesito el nombre de un fichero .dbf" )
  11.       RETURN( 1 )
  12.    endif
  13.    USE ( cFile )
  14.    oMant := Manten( 4, 4, 18, 65, , .t. , .t., .t. )
  15.  
  16.    //Ahora especificamos una acción a ejecutar con el TBrowse estabilizado
  17.    oMant:bStable := {|| devpos( 23,0 ), ;
  18.         devout( "Estoy parado. El registro quizás sea el " + ;
  19.                 transform( recno(), "999" ) ) }
  20.  
  21.    //También podemos preparar los Gets para edición en mayúsculas
  22.    aeval( oMant:aGets, {| oGet | oGet:picture := "@!" } )
  23.  
  24.    //Y ahora... a ejecutar
  25.    oMant:Exec()
  26.    CLOSE DATA
  27. RETURN( 0 )
  28.  
  29.  
  30.