Função que recebe o nome da view como parâmetro e retorna o nome da tabela master e a estrutura da view, no formato (table,field,table,field,...)
TCViewStruct( < cView >, < @cTable >, < @cStruct > )
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cView | caractere | Nome da view. | X | |
cTable | caractere | Variável que será preenchida com nome da tabela master. | X | X |
cStruct | caractere | Variável que será preenchida com a estrutura da view informada em cView. | X | X |
Nome | Tipo | Descrição |
|---|---|---|
lRet | lógico | Retorna .T. em caso de sucesso, caso contrário, retorna .F. e o motivo do erro pode ser verificado com a função TCSQLError. |
STATIC FUNCTION CreateTable()
TCDelFile("VIEW1")
TCDelFile("T1")
TCDelFile("T2")
DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
{"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
DBCreate("T2", {{"FIELD_NAME", "C", 10, 0}, ;
{"FIELD_TYPE", "C", 10, 0}, ;
{"FIELD_ID" , "N", 3, 0}}, "TOPCONN")
RETURN
FUNCTION u_TCViewStruct()
LOCAL cTable := ""
LOCAL cStruct := ""
TCLink()
CreateTable()
IF TCViewMulti("VIEW1", "T1", "T1,FIELD_NAME,T2,FIELD_TYPE,T2,FIELD_ID") == .F.
UserException("TCViewMulti failed")
ENDIF
IF TCViewStruct("VIEW1", @cTable, @cStruct)
CONOUT("Tabela master -> " + cTable)
CONOUT("Estrutura da VIEW1 -> " + cStruct)
ENDIF
TCUnlink()
RETURN
Esta função está disponível no Application Server - build 7.00.131227A, com data de geração superior a 09/08/2016 e depende de um DBAccess com build superior a 20160402.