Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • WSRS10GRAD - Gravação de específicos de cada seção -- 10687

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