Linha Microsiga Protheus

Árvore de páginas

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