Histórico da Página

Ponto de entrada executado quando confirmada a alteração da situação de uma disciplina. Permite ao usuario validar quais codigos podem ser utilizados durante a alteração da situação através da rotina de Movimentação de Alunos (ACAA060)

ACAA060.PRW

Ac060Ald - Confirmação de alteração ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ], [ ParamIxb[6] ], [ ParamIxb[7] ] ) --> lRet

lRet()
• .T. Confirma a alteração com o código utilizado..F. Cancela a alteração.

User Function Ac060Ald()Local cNumRa   := ParamIxb[1]			//Numero do RALocal cCodCur  := ParamIxb[2]  			//Codigo Curso VigenteLocal cPerlet  := ParamIxb[3]  			//Periodo LetivoLocal cTurma   := ParamIxb[4]			//TurmaLocal cCodDis  := ParamIxb[5] 			//Cod DisciplinaLocal cSitDis  := ParamIxb[6] 			//Atual Situacao DisciplinaLocal cNewSit  := ParamIxb[7] 			//Nova Situacao DisciplinaLocal cPulaLin := Chr(13) + Chr(10)    //Local cMens	   := ""Local lRet	   := .F.//Monta a mensagem de alertacMens := 'Ponto de entrada Ac060Ald executado com sucesso.' + cPulaLin + cPulaLincMens := 'Confirma a alteração da situação ? ' + cPulaLin + cPulaLincMens += 'Parametros:' + cPulaLincMens += 'Numero RA: ' + cNumRa + cPulaLincMens += 'Cod. Curso: ' + cCodCur + cPulaLincMens += 'Periodo Letivo: ' + cPerlet + cPulaLincMens += 'Turma: ' +  cTurma + cPulaLincMens += 'Cod Disciplina: ' + cCodDis + cPulaLincMens += 'Atual Situacao da Disciplina: ' + cSitDis + cPulaLincMens += 'Nova Situacao da Disciplina: ' + cNewSit + cPulaLin + cPulaLincMens += Replicate('@',20)+ cPulaLin//Exibe a mensagem ao usuarioif Aviso('Ponto de entrada Ac060Ald',cMens,{'SIM','NÃO'}) == 1	lRet := .T.else	lRet := .F.endifReturn lRet