Function TipoObjeto (oObjeto,cTipo)
// Retorna la clase de objeto o ""
// Si se pasa segudo parametro c Tipo, entonces devuelve un logico si es igual o no.
// Ejemplo:
// TipoObjeto(oTField)   devuelve TFIELD
// TipoObjeto(oTField,"TFIELD") devuelve .T.
// TipoObjeto(oTField,"TDATA") devuelve .F.


Local Retorno := ""
Retorno := If !Empty(oObjeto)
   If Valtype(oObjeto)="O"
      If !Empty(cTipo)
         Retorno := (oObjeto:ClassName==cTipo)
      Else
         Retorno := oObjeto:ClassName
      Endif
   Endif
Endif

Return Retorno