Inclusão Ponto de Entrada

Características do Requisito

Descrição

Este Ponto de entrada foi desenvolvido na função ModelDef e ViewDef com o objetivo de carregar colunas adicionais na tela de seleção dos títulos a receber.

Ponto de Entrada

Títulos para seleção

FINA770A

Modeldef/Viewdef

Exemplo:

User Function FN770ACPO()
Local aParam := PARAMIXB
Local oAux := Nil

If ValType(aParam) == "A"

oAux := aParam[2]
//
If aParam[1] == '1' //Model.

//Cria campos adicionais no modelo.
oAux:AddField( ; // Ord. Tipo Desc.
AllTrim( 'Exemplo 1' ) , ; // [01] C Titulo do campo
AllTrim( 'Campo Exemplo 1' ) , ; // [02] C ToolTip do campo
'EXEMPLO1' , ; // [03] C identificador (ID) do Field
'C' , ; // [04] C Tipo do campo
1 , ; // [05] N Tamanho do campo
0 , ; // [06] N Decimal do campo
FwBuildFeature( STRUCT_FEATURE_VALID,"Pertence('12')"), ; // [07] B Code-block de validação do campo
NIL , ; // [08] B Code-block de validação When do campo
{'1=Sim','2=Não'} , ; // [09] A Lista de valores permitido do campo
NIL , ; // [10] L Indica se o campo tem preenchimento obrigatório
FwBuildFeature( STRUCT_FEATURE_INIPAD, "'2'" ) , ; // [11] B Code-block de inicializacao do campo
NIL , ; // [12] L Indica se trata de um campo chave
NIL , ; // [13] L Indica se o campo pode receber valor em uma operação de update.
.T. ) // [14] L Indica se o campo é virtual

Else // 2 - View.

//Cria campos adicionais na interface.
oAux:AddField( ; // Ord. Tipo Desc.
'EXEMPLO1' , ; // [01] C Nome do Campo
'50' , ; // [02] C Ordem
AllTrim( 'Exemplo 1' ) , ; // [03] C Titulo do campo
AllTrim( 'Campo Exemplo 1' ) , ; // [04] C Descrição do campo
{ 'Exemplo de Campo de Manual 1' } , ; // [05] A Array com Help
'C' , ; // [06] C Tipo do campo
'@!' , ; // [07] C Picture
NIL , ; // [08] B Bloco de Picture Var
'' , ; // [09] C Consulta F3
.T. , ; // [10] L Indica se o campo é evitável
NIL , ; // [11] C Pasta do campo
NIL , ; // [12] C Agrupamento do campo
{'1=Sim','2=Não'} , ; // [13] A Lista de valores permitido do campo (Combo)
NIL , ; // [14] N Tamanho Maximo da maior opção do combo
NIL , ; // [15] C Inicializador de Browse
.T. , ; // [16] L Indica se o campo é virtual
NIL ) // [17] C Picture Variável

EndIf

EndIf

Return oAux