Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • Ac060Ald - Confirmação de alteração

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