Define um apelido para uma determinada ordem.

Sintaxe

DBSetNickname( < cIndex >, [ cNickname ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cIndex

caractere

Indica o nome da ordem que receberá o apelido.

X

 

cNickname

caractere

Indica o nome do apelido da ordem que será setada.

 

 

Retorno

Nome

Tipo

Descrição

cRet

caractere

Retorna o apelido corrente. Caso a ordem especificada não seja encontrada, não consiga setar o apelido ou não havia apelido, o retorno será uma string vazia ("").

Observações

Exemplos

user function test()
  Local cT1 := "T1"
  
  TCLink()
  
  DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE", "C", 10, 0}, ;
                  {"FIELD_AGE", "C", 10, 0}, ;
                  {"FIELD_NICK", "C", 10, 0}, ;
                  {"FIELD_COL", "C", 10, 0}}, "TOPCONN")
                  

  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.)

  (cT1)->(DBCreateIndex('T1_IND', 'FIELD_NAME', { || 'FIELD_NAME' }))
  
  (cT1)->(DBSetNickname("T1_IND", "T1_NICKNAME"))
  
  DBCloseArea()
  
  TCUnlink()
return

Veja também