AC410Rep - Solicitação de requerimento

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.

ACAA410.prw

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

lRet()
• Retorna .T. se permite cadastrar o requerimento repetido, retorna .F. se não permite cadastrar o requerimento.

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