Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS RH

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Avaliação e Pesquisa de Desempenho (SIGAAPD)

Função:APDA020 - Cadastro de Participantes/Pessoas
País:Brasil


02. DESCRIÇÃO

Ponto de Entrada para alterar dados do registro após gravação da RD0.


LocalizaçãoFunção SraUpdRd0 (Relacionar funcionário ao participante), da rotina de Cadastro de Participantes (APDA020).
Parâmetro

Nome

Tipo

Descrição

PARAMIXBArray

Array com informações do processamento.

Nome

Tipo

Descrição

PARAMIXB[1]CaracterCódigo do Participante
PARAMIXB[2]Caracter"SRA"
PARAMIXB[3]Numérico

Recno da SRA

PARAMIXB[4]Caracter

Filial + Matricula do funcionário

PARAMIXB[5]Array

Relacionamentos com a RD0

PARAMIXB[6]Numérico

0 - Break

1 - Relacionar

2 - Atualizar

3 - Ambos

PARAMIXB[7]Caracter

"I" - Inclusão

"A" - Alteração

Retorno

Não se aplica


03. DEMAIS INFORMAÇÕES

#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} APDGRV01
Ponto de Entrada para alterar dados do registro após gravação da RD0.

@param [1] - cCodigo - Codigo do Participante
@param [2] - cAlias_SRA - "SRA"
@param [3] - nRecno_SRA - Recno da SRA
@param [4] - cChave - Filial + Matricula do funcionário
@param [5] - aRelation - Relacionamentos com a RD0
@param [6] - nOpcRel - 0-> Break;1 -> Relacionar;2 -> Atualizar;3 -> Ambos
@param [7] - cOpcao - "I" para inclusão / "A" para Alteração
/*/

User Function APDGRV01()

Local cCodigo     := PARAMIXB[1] 
Local cAlias_SRA:= PARAMIXB[2]
Local nRecno_SRA:= PARAMIXB[3]
Local cChave     := PARAMIXB[4]
Local aRelation := PARAMIXB[5] 
Local nOpcRel     := PARAMIXB[6]
Local cOpcao     := PARAMIXB[7]

If ( RD0->( RecLock( "RD0" , .F. ) ) )
    If cOpcao = "A"
        RD0->RD0_PORTAL := '000007'
    Else
        RD0->RD0_PORTAL := '000008'
    EndIf
    RD0->( MsUnLock() )
EndIf
Return Nil


04. ASSUNTOS RELACIONADOS

  • Não há.