Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • Ac650Grv - Gravação de novo professor

Ponto-de-Entrada: Ac650Grv - Gravação de novo professor
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Descrição: 
Ponto de entrada executado a cada gravação de professor novo, quando executado a transferencia de professores através da rotina ACAA650 (Ao processamento de cada linha marcada)
Programa Fonte 
ACAA650.PRW
Sintaxe

Ac650Grv - Gravação de novo professor ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ], [ ParamIxb[6] ], [ ParamIxb[7] ], [ ParamIxb[8] ], [ ParamIxb[9] ] ) --> Nil

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Caracter Ano letivo do curso em execução
ParamIxb[2] Array of Record Periodo do Ano do curso em execução.
ParamIxb[3] Array of Record Código do curso em execução
ParamIxb[4] Array of Record Periodo Letivo do curso
ParamIxb[5] Array of Record Habilitação do curso em execução
ParamIxb[6] Array of Record Turma do curso em execução
ParamIxb[7] Array of Record Código da disciplina
ParamIxb[8] Array of Record Cód Professor origem
ParamIxb[9] Array of Record Cód Professor destino
Retorno
    Nil(nulo)
  • Não ha retorno para este PE
Exemplos 
User Function AC650Grv()Local cAnoLet :=  ParamIxb[1]Local cPerAno :=  ParamIxb[2]Local cCodCur :=  ParamIxb[3]Local cPerlet :=  ParamIxb[4]Local cHabili :=  ParamIxb[5]Local cTurma  :=  ParamIxb[6]Local cCodDis :=  ParamIxb[7]Local cProfOri := ParamIxb[8]Local cProfDes := ParamIxb[9]Local cMens	:= ""Local cPulaLin := Chr(13) + Chr(10)//Monta a mensagem cMens := "Ponto de entrada Ac650Grv executado com sucesso " + cPulaLincMens += " Ano Letivo: " + cAnoLet + cPulaLincMens += " Periodo Ano: " + cPerAno + cPulaLincMens += " Cod. Curso: " + cCodCur + cPulaLincMens += " Periodo Let: " + cPerlet + cPulaLincMens += " Habilitação: " + cHabili + cPulaLincMens += " Turma: " + cTurma + cPulaLincMens += " Disciplina: " + cCodDis + cPulaLincMens += " Professor Origem: " + cProfOri + cPulaLincMens += " Professor Destino: " + cProfDes + cPulaLin//Exibe a MensagemAviso('PE Ac650Grv',cMens,{'Ok'})Return
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não