Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • AC180VDU - Validação de mudança de folder

Ponto-de-Entrada: AC180VDU - Validação de mudança de folder
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 “AC180VDU” para validar a mudança de folder dos dias da semana na grade de aulas permitindo ou não a edição.
Programa Fonte 
ACAA180.prw
Sintaxe

AC180VDU - Validação de mudança de folder ( [ @ParamIxb[1] ], [ ParamIxb[2] ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Objeto Objeto oFolder contendo os dias da semana. X
ParamIxb[2] Array of Record Folder do dia da semana selecionado.1-Domingo2-Segunda-feira3-Terca-feira 4-Quarta-feira5-Quinta-feira6-Sexta-feira7-Sabado
Retorno
    lRet()
  • Retorna .T. se pode entrar na folder da semana selecionado. Retorna .F. se não permite editar.
Exemplos 
User function AC180VDU()Local oFolderU := ParamIxb[1]Local cDia := ParamIxb[2] //dia da semanaLocal lRet := .F.//1-Domingo//2-Segunda-feira//3-Terca-feira  //4-Quarta-feira//5-Quinta-feira//6-Sexta-feira//7-Sabado//ja esta posicionado na JAR do periodo letivolRet := Iif(!Empty(M->JBK_TURNO), JAR->( &("JAR_AULA" + cDia) == "1" ), .T.)If M->JBK_CODCUR =="000007" .and. cDia == "7"	lRet := .T.      EndIfReturn lRet