Inclusão Ponto de Entrada
Características do Requisito
Descrição
Escreva aqui a descrição da nova implementação ou melhoria.
Importante
Ponto de Entrada
Descrição: | Carregamento de colunas adicionais na tela de item do rateio do AVP |
Localização: | Informe o Submenu em que estará localizada a rotina |
Eventos: | Informe o Título da rotina |
Programa Fonte: | FINA770A |
Função: | Modeldef/Viewdef |
Retorno: | Objeto contendo os campos do modelo de dados e da interface. |
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