Ponto-de-Entrada: Ac060Ald - Confirmação de alteração
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: | Todas TotvsDbAccess |
Descrição:
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)
Programa Fonte
ACAA060.PRW
Sintaxe
Ac060Ald - Confirmação de alteração ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ], [ ParamIxb[6] ], [ ParamIxb[7] ] ) --> lRet
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
ParamIxb[1] | Caracter | Número do Registro Academico do aluno (RA) | |||||||||||||||
ParamIxb[2] | Array of Record | Código do Curso Vigente. | |||||||||||||||
ParamIxb[3] | Array of Record | Periodo Letivo | |||||||||||||||
ParamIxb[4] | Array of Record | Cód. Turma | |||||||||||||||
ParamIxb[5] | Array of Record | Cód. Disciplina | |||||||||||||||
ParamIxb[6] | Array of Record | Situação atual da disciplina | |||||||||||||||
ParamIxb[7] | Array of Record | Nova Situação da Disciplina |
Retorno
-
lRet()
- .T. Confirma a alteração com o código utilizado..F. Cancela a alteração.
Exemplos
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
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas