import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: WSRS10HIST - Gravação de específicos para cada seção
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 WSRS10HIST - Gravação de específicos para cada seção ( < ParamIxb[1]> ) --> Nil Parâmetros:
Retorno Nil
|