Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS RH

Linha de Produto:

-

Segmento:

RH

Módulo:SIGATRM
Função:TRMA130.PRW
Ticket:-
Requisito/Story/Issue (informe o requisito relacionado) :DRHGCH-22237


02. SITUAÇÃO/REQUISITO

Criar ponto de entrada - Modulo treinamento - na rotina de Planejamento de Treinamento (TRMA130), no momento da geração de Solicitação de Compras.

03. SOLUÇÃO

Criação do ponto de entrada TR130SOL, para que o usuário possa passar novos campos na chamada da rotina automática de Solicitação de Compras.

Exemplo de utilização do Ponto de Entrada:


#include "Protheus.ch"

User Function TR130SOL()

Local cCod      := PARAMIXB[1]

Local aCabec   := PARAMIXB[2]

Local aItens    := PARAMIXB[3]

Local cCC       := ""

Local aSaveArea := GetArea()

dbSelectArea("RA8")

dbSetOrder(1)

If dbSeek(xFilial("RA8")+cCod)

    cCC := RA8->RA8_CC

EndIf

aadd(aItens[1], {"C1_CC", cCC, Nil})

Mata110(aCabec, aItens, 3)

RestArea(aSaveArea)

Return

04. DEMAIS INFORMAÇÕES

n/a


05. ASSUNTOS RELACIONADOS

  • n/a