WSRS10COUR - Gravação específica de cada seção -- 10684

Ponto-de-Entrada: WSRS10COUR - Gravação específica de cada seção

Versões:

Microsiga Protheus 8.11

Descrição:

No portal do candidato, podem ser utilizandos os pontos de entrada de gravação específicos para cada seção WSRS10Grad, WSRS10Cour, WSRS10Lang, WSRS10Cert, etc. e criando o novo curso na tabela de cursos (SQT), os dados são mostrados corretamente após a gravação do currículo

Modelo de ponto de entrada para Graduação:

User Function WSRS10Grad()

Local oCursos := ParamIxb[1]

Local cNewCurso := ''

Local nSaveSX8SQT := GetSX8Len()

If oCursos:CourseCode == '99999'

cNewCurso := GetSx8Num('SQT','QT_CURSO')

If __lSX8

While (GetSX8Len() > nSaveSX8SQT)

ConfirmSX8()

End

Else

RollBackSX8()

Endif

//Criacao do novo curso

dbSelectArea('SQT')

dbSetOrder(1)

RecLock('SQT',.T.)

SQT->QT_FILIAL := xFilial('SQT')

SQT->QT_CURSO := cNewCurso

SQT->QT_DESCRIC := oCursos:CourseDescr

SQT->QT_TIPO := '001' //Gravar o tipo referente Graduacao (no caso)

MsUnlock()

//Gravacao do novo curso no curriculo

dbSelectArea('SQM')

RecLock('SQM',.F.)

SQM->QM_CURSO := SQT->QT_CURSO

MsUnlock()

EndIf

Return Nil

Obs.: Verificar também documentação dos pontos de entrada: PRS10Cour, PRS10Grad, PRS10Lang, PRS10Cert.

Programa Fonte

.PRW

Sintaxe

WSRS10COUR - Gravação específica de cada seção ( < ParamIxb[1]> ) --> Nil

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

ParamIxb[1]

Array of Record

X

Retorno

Nil

Nil

Home

Linha Microsiga Protheus

Páginas filhas