Ponto-de-Entrada: WSRS10CERT - Gravação especifica para cada seção
| Versões: | Microsiga Protheus 8.11 |
| Compatível Países: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
No portal do candidato, podem ser utilizados 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 apresentados corretamente após a gravação do currículo.
Programa Fonte
.PRW
Sintaxe
WSRS10CERT - Gravação especifica para 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
- (nulo)
- Nil
Observações
Consulte também os pontos de entrada:
- PRS10Cour
- PRS10Grad
- PRS10Lang
- PRS10Cert
Exemplos
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