PE WSRS10HIST - Gravação de específicos para cada seçã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.

.PRW

WSRS10HIST - Gravação de específicos para cada seção ( < ParamIxb[1]> ) --> Nil

(nulo)
• Nil