Page tree
Skip to end of metadata
Go to start of metadata

Altera o valor minimo de campos da tabela para realizar o TCSrvMap

Sintaxe

TCMaxMap( < cNum > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cNum

numérico

Numero de colunas.

X


Retorno

Nome

Tipo

Descrição

uRet

nil

Sempre retorna nulo.

Exemplos

FUNCTION Example()
  Local cT1 := "T1"
  Local cMap := "FIELDCOL1,FIELDCOL2,FIELDCOL3"
  
  TCLink()
  
  DBCreate("T1", {{"FIELDCOL1", "C", 10, 0}, ;
                  {"FIELDCOL2", "C", 10, 0}, ;
                  {"FIELDCOL3", "C", 10, 0}, ;
                  {"FIELDCOL4", "C", 10, 0}, ;
                  {"FIELDCOL5", "C", 10, 0}, ;
                  {"FIELDCOL6", "C", 10, 0}, ;
                  {"FIELDCOL7", "C", 10, 0}, ;
                  {"FIELDCOL8", "C", 10, 0}, ;
                  {"FIELDCOL9", "C", 10, 0}, ;
                  {"FIELDCOL10", "C", 10, 0}}, "TOPCONN")
                  
  // alterando a quantidade de colunas minima para 9
  TCMaxMap(9)
  
  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.)

  // mapeia os campos 'FIELDCOL1,FIELDCOL2,FIELDCOL3'
  TCSrvMap('T1', cMap, .T.)
  
  // TODO: realiza alguma ação
  
  DBCloseArea()
  
  TCUnlink()
RETURN

Veja também

  • No labels