Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • AC670Ext - Digitação de situações

Ponto-de-Entrada: AC670Ext - Digitação de situações
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Criação do ponto de entrada "AC670Ext" para permitir digitar outra situação diferente de Adaptação(001) e Dispensado(003 e 011) nos períodos letivos anteriores ao atual na análise de grade (rotina ACAA670) para requerimentos de externos.Este ponto de entrada é chamado na validação da análise de grade (Botão OK) e valida linha a linha de cada folder dos períodos letivos anteriores, e somente quando for requerimento de externo.
Programa Fonte 
ACAA670.prw
Sintaxe

AC670Ext - Digitação de situações ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ], [ ParamIxb[6] ], [ ParamIxb[7] ], [ ParamIxb[8] ], [ ParamIxb[9] ], [ ParamIxb[10] ] ) --> cRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Array of Record Array contendo a linha inteira da grid que está sendo processada. (Cód Disciplina, Situação, Med, etc)
ParamIxb[2] Array of Record Identificação do solicitante do requerimento (Se aluno, RA)
ParamIxb[3] Array of Record Código Curso Padrão
ParamIxb[4] Array of Record Código Curso Vigente Selecionado
ParamIxb[5] Array of Record Período Letivo
ParamIxb[6] Array of Record Código Habilitação
ParamIxb[7] Array of Record Turma
ParamIxb[8] Array of Record SubTurma (quando sistema possuir)
ParamIxb[9] Array of Record Número do Requerimento Associado à analise.
ParamIxb[10] Array of Record Array contendo os dados relativos ao script do Requerimento
Retorno
    cRet()
  • Retorna um caracter contendo as situações da disciplinas permitidas na análise de grade para externos. Separados por ponto-e-vírgula (;).
Exemplos 
User Function AC670Ext()Local aLin     := ParamIxb[1]Local cRa      := ParamIxb[2]Local cCurPad  := ParamIxb[3]Local cCurVig  := ParamIxb[4]Local cPerLet  := ParamIxb[5]Local cHabilit  := ParamIxb[6]Local cTurma   := ParamIxb[7]Local cSubTur  := ParamIxb[8]Local cNumReq  := ParamIxb[9]Local aReq     := ParamIxb[10]Local cRet := ""If JBH->JBH_TIPSOL == "4"  //Se for requerimento para externo	cRet := "001;002;003;011"  //tipos de situacoes permitidas na analise de gradeEndIf       Return cRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não