Home

Linha Microsiga Protheus

Páginas filhas
  • AC410Rep - Solicitação de requerimento

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
AC410Rep - Solicitação de requerimento
AC410Rep - Solicitação de requerimento

Ponto-de-Entrada: AC410Rep - Solicitação de requerimento
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:
Quando o parâmetro MV_ACVDREQ for igual a .T. , a rotina de Requerimentos (ACAA410) verifica se existe o mesmo tipo de requerimento solicitado pelo aluno em aberto não permitindo uma nova inclusão de mesmo requerimento. Foi criado o ponto de entrada "AC410Rep" para realizar a validação do usuário se permite ou não incluir requerimentos repetidos conforme regra da instituição.
Programa Fonte
ACAA410.prw
Sintaxe

AC410Rep - Solicitação de requerimento ( [ ParamIxb[1] ] ) --> lRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]CaracterContém os dados dos campos preenchidos no script do requerimento atual, separados por pipe "|"
Retorno
    lRet()
  • Retorna .T. se permite cadastrar o requerimento repetido, retorna .F. se não permite cadastrar o requerimento.
Exemplos
User Function AC410Rep()Local lRet := .T.            Local cScript := ParamIxb[1] Local aRet := {} Local aScript := {} /*---------------------------------------------------------------------------------------// a variavel cScript contém os dados dos campos preenchidos no script atual, separados //por pipe "|", na ordem dos campos do script cadastrado na Config. de Requerimento//Ex:000002|CURSO 1 PERLET DIURNO|01|      ||A  |2009|01||1|PORT_I         |PORTUGUES I |010|MATRICULADO|P1|P1 |----------------------------------------------------------------------------------------*/// a funçaão ACSepara, coloca cada conteudo de cScript em um array aRetaRet := ACSepara(cScript)    // a funcao ACScriptReq, pega o script da JBH já existente e retorna em um arrayaScript := ACScriptReq( JBH->JBH_NUM )//Este PE está sendo chamado dentro de um laço dos registros JBH pertencente ao aluno//para realizar a comparação do requerimento atual, com os já existentesIf M->JBH_TIPO == JBH->JBH_TIPO  	//JBH_STATUS -> 1=Deferido;2=Indeferido;3=Pendente;4=Atrasado;5=Aguardando Vaga;6=Cancelado;7=Pagamento Pendente	If JBH->JBH_STATUS $ "3/4/5/7"				// Se for Req Avaliacao substitutiva,verifica se é mesma disciplina 		If M->JBH_TIPO == '000018' //(verificar na sua base, qual o código deste requerimento) 						//aRet[11] é a posicao do campo cod. Disciplina no script de avaliacao substitutiva			If aRet[11] == 	aScript[11]		 		MsgAlert("Existe requerimento de avaliação substitutiva para a mesma disciplina: " + JBH->JBH_NUM)		  		lREt := .F.		   		EndIf		   	Else	   		// Se for outro tipo de requerimento, e já existe  um em aberto, exibe mensagem	 		MsgAlert("Existe mesmo requerimento em aberto : " + JBH->JBH_NUM)	  		lRet := .F.		   	EndIf		EndIf	EndIf       Return lRet
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão