Home

Linha Microsiga Protheus

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

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
Ac060Ald - Confirmação de alteração
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]CaracterNúmero do Registro Academico do aluno (RA)
ParamIxb[2]Array of RecordCódigo do Curso Vigente.
ParamIxb[3] Array of RecordPeriodo Letivo
ParamIxb[4]Array of RecordCód. Turma
ParamIxb[5]Array of RecordCód. Disciplina
ParamIxb[6]Array of RecordSituação atual da disciplina
ParamIxb[7]Array of RecordNova 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão