Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • AC060FSb - Filtro de subturmas

Ponto-de-Entrada: AC060FSb - Filtro de subturmas
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Criação do ponto de entrada AC060FSb para filtrar as subturmas a serem exibidas na tela de alocação do aluno na rotina de movimentação do aluno.
Programa Fonte 
ACAA060.prw
Sintaxe

AC060FSb - Filtro de subturmas ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ], [ ParamIxb[6] ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Caracter Curso vigente selecionado
ParamIxb[2] Array of Record Período letivo selecionado
ParamIxb[3] Array of Record Habilitação selecionada
ParamIxb[4] Array of Record Turma selecionada
ParamIxb[5] Array of Record RA do aluno
ParamIxb[6] Array of Record Array contendo todas as subturmas a serem exibidas para seleção
Retorno
    aRet()
  • Array contendo as subturmas que deseja exibir para alocação.
Exemplos 
User Function AC060FSb()Local aRet := {}Local cCurso := ParamIxb[1]Local cPerLet := ParamIxb[2]Local cHabili := ParamIxb[3]Local cTurma := ParamIxb[4]Local cRA := ParamIxb[5]Local aSub := ParamIxb[6]Local i := 0// aSub[1][1] = Valor .F. para vir não selecionado, .T. para vir pré-selecionado  a subturma// aSub[1][2] = Caracter com o nome da subturmaFor i := 1 To Len(aSub)	If Alltrim(aSub[i][2]) == "A2" .and. cCurso == "000043"		aadd(aRet, { .F., aSub[i][2] } )	EndIf	Next i//Deve retornar com a mesma estrutura de aSub, com as subturmas que deseja exibir para seleçãoReturn aRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não