Ponto-de-Entrada: WSRS10GRAD - Gravação de específicos de cada seção
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Utilizando 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.
Programa Fonte
WSRSP010.PRW
Sintaxe
WSRS10GRAD - Gravação de específicos de cada seção ( < oCursos> ) --> Nil
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| oCursos | Objeto | X |
Retorno
Nil
- (nulo)
- Nil
Observações
Verificar também documentação dos 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()EndIfReturn Nil