| Composition Setup |
|---|
import.css=/download/attachments/6062824/tecnologia.css
|
| Pagetitle | ||||
|---|---|---|---|---|
|
...
| Bloco de código | ||
|---|---|---|
| ||
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. |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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
|
...