Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • WSRS10CERT - Gravação especifica para cada seção -- 10683

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