TEST OPENTABLE

// Programa     : TEST_OPENTABLE
// Fecha/Hora   : 10/08/2022 17:52:07
// Propósito    : Solicita un cursor de datos mediante comandps SQL.
//                cSql =Contiene la Sentencia SQL para obtener los datos.
//                oCursor=Objeto TTABLE contiene los datos del cursor.
//                lFill =Indica con .T. si carga los datos. Por defecto su valor es .T.

#INCLUDE “DPXBASE.CH”

PROCE MAIN()
   LOCAL oCursor
   LOCAL lFill:=.T.
   LOCAL cSql

   cSql :=” SELECT TAB_NUMERO,TAB_NOMBRE,TAB_DSN FROM DPTABLAS ORDER BY TAB_NUMERO”
   oCursor:=OpenTable(cSql,.T.)
   oCursor:Gotop()

   WHILE !oCursor:Eof() .AND. oCursor:RecNo()??
      ? oCursor:TAB_NUMERO,oCursor:TAB_NOMBRE
      oCursor:DbSkip()
   ENDDO

   oCursor:Gotop()       // Apunta hacia el primer Registro
   oCursor:ViewArray()   // Visualizar su Contenido
   oCursor:Inspect()     // Mediante el Inspector muestra todas sus DATA y METODOS
   oCursor:End()         // Cierre el Objeto

RETURN NIL
// EOF

Solicitar Soporte Tecnicoscreen tag