import.css=/download/attachments/327912/newLayout.css |
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 |
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 padrão, se não 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 Atenção: Caso a tabela possua campos MEMO e seja um GRID, o nome do campo precisa ser obrigatoriamente RECNO na query. | '' | ||
lCopy | Lógico | Apenas para compatibilidade, Não usar | .F. | ||
lQuery | Lógico | Indica que o alias foi criado a partir de uma query. | .T. |
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 |