Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Função: FWLoadByAlias
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Português, Inglês, Espanhol
Versão P10 R1.4
Sintaxe
FWLoadByAlias(<oObj >, <cAlias >, [ cAliasReal ], [ cFieldRecno ], [ lCopy ], [ lQuery ])-> NIL

Descrição
Função que realiza a carga de um submodelo baseado em um alias existente


Parâmetros
Nome Tipo Descrição Default Obrigatório Referência
oObj Objeto Objeto do submodelo (FWFormFieldsModel ou FWFormGridModel) X
cAlias Caracteres Alias para carga . X
cAliasReal Caracteres Alias Real. Utilizado para carga de campos MEMO reais na tabela, se houver e para uso real de inicializadores padrao,
se nao for informado usa a tabela definida na estrutura do objeto.
cFieldRecno Caracteres Nome do campo que contem o numero do recno. Quando a tabela foi criada a partir de uma query
deve ter uma coluna contendo o recno() real do registro. Se o nome desta coluna for R_E_C_N_O_ ou
RECNO ou Alias+RECNO, nao é preciso informar o nome da coluna neste parametro, caso contrario deve-se informar.
''
lCopy Lógico Apenas para compatibilidade, Nao usar .F.
lQuery Lógico Indica que o alias foi criado a partir de uma query.

.T.
 

Exemplo


Function LoadZA4( oObj, lCopy )
Local aArea := GetArea()
Local aRet := {}
Local cTmp := ''
Local cQuery := ''

cTmp := GetNextAlias()
cQuery := ""
cQuery += "SELECT *, R_E_C_N_O_ RECNO FROM " + RetSqlName( 'ZA4' ) + " ZA4 "
cQuery += " WHERE ZA4_FILIAL = '" + xFilial('ZA4') + "' "
cQuery += " AND ZA4_ALBUM = '001' "
cQuery += " AND ZA4.D_E_L_E_T_ = ' ' "

dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ) , cTmp, .F., .T. )

// Como tem o campo R_E_C_N_O_, nao é preciso informar qual o campo contem o Recno() real
aRet := FWLoadByAlias( oObj, cTmp, 'ZA4' )

(cTmp)->( dbCloseArea() )

RestArea( aArea )

Return aRet