Histórico da Página

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)

ACAA650.PRW

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

Nil(nulo)
• Não ha retorno para este PE

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