| 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
3 Comentários
Mauro Rios
EN EL CASO DEL EJMPLO DONDE SE UTILIZARÍA LA FUNCION LoadZA4
Mauro Rios
PODRIAN INDICAR ALGUN EJEMPLO DE COMO UTILIZAR ESTA FUNCION EN EL MODELO MVC??
Andre Spirigoni Pinto
Ex:
oModel:AddFields( "ZA4MASTER", /*cOwner*/, oStructZA4,/*Pre-Validacao*/,/*Pos-Validacao*/,{ |oM| LoadZA4(oM) })