TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Vinicius de Sousa Araujo_

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle
TCViewStruct
TCViewStruct

...

Bloco de código
collapsefalse
TCViewStruct( < cView >, < @cTable >, < @cStruct > )

Parâmetros

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

Retorno

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.

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
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

...