RA4MEM - Campos memo -- 23195

Ponto de entrada que permite informar os campos memos de usuário da tabela RA4 - Cursos do Funcionário nas rotinas do Cadastro de Funcionário e Registro Coletivo de Treinamento.

Esse ponto de entrada é executado em dois momentos:

1) Na rotina do Cadastro de Funcionário (TRMA100) do ambiente Capital Humano (por exemplo, Treinamento) para permitir manter as informações tipo comentário correspondentes aos cursos do funcionário.

2) Na rotina de Registro Coletivo de Treinamento (TRMM020) para informar o conteúdo dos campos memos de usuário que deverão ser replicados aos funcionários selecionados.

TRMA100(Cadastro de Funcionários) e TRMM020 (Registro Coletivo de Treinamento).

RA4MEM - Campos memo ( [ ] ) --> aCampos

aCampos()
• Array contendo os campos memos para a a tabela RDY - Itens de "Virtual Memo Field" . Cada elemento desse array será um array de dois elementos, onde:- O primeiro elemento corresponde ao nome do campo código que será a chave para localização do conteúdo memo na tabela RDY. - O segundo elemento corresponde ao nome do campo virtual utilizado para exibir o conteúdo memo no ERP.

Esse ponto de entrada não é utilizado para exibir campo de usuário no portal do Capital Humano.

#INCLUDE "RWMAKE.CH"#INCLUDE "PROTHEUS.CH"/*/ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿³Fun‡„o    ³RA4MEM        ³Autor ³Equipe RH            ³ Data ³03/07/2009³ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´³Descri‡„o ³Ponto de entrada para fornecer os campos memos de usuario pa-³³          ³ra a tabela RA4.                                             ³ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´³Sintaxe   ³RA4MEM() 													 ³ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´³Parametros³									 ³ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´³Retorno   ³array com os campos memos agrupados em pares onde cada par   ³³          ³corresponde a um memo.                                       ³³          ³{{cpo1,cpovis1}, {cpo2,cpovis2},...}                         ³ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´³Observa‡„o³                                                      	     ³ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´³Uso       ³Generico 													 ³ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ/*/USER FUNCTION RA4MEM()//-- Campos de usuario para alimentar a tabela RDY (memos da tabela RA4)Local aRA4CpoUser:= {{'RA4_COD1','RA4_MEM1'}}                          //-- Deve ser retornado um array onde cada elemento corresponde a uma par de campos memos//-- o primeiro elemento refere-se ao campo que identifica o campo memo na tabela RDY. Este campo deve ser real e nao usado.//-- o segundo elemento refere-se ao campo utilizado para demonstrar o conteudo do campo memo na janela de//-- digitacao. Esse campo deve ser virtual e memo.//-- o inicializador padrao devera ser IF(INCLUI,"",APDMSMM(RA4->RA4_COD1,80))   //Verifica se pelo menos o campo real existe na estrutura da tabela RA4IF !( ( RA4->(FIELDPOS('RA4_COD1')) > 0) )	aRA4CpoUser:={}Endif	 Return(aRA4CpoUser)