Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: WSRS10GRAD - Gravação de específicos de cada seção
Descrição:
Programa Fonte WSRSP010.PRW Sintaxe WSRS10GRAD - Gravação de específicos de cada seção ( < oCursos> ) --> Nil Parâmetros:
Retorno
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas