Home

Linha Microsiga Protheus

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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
Ac650Grv - Gravação de novo professor
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]CaracterAno letivo do curso em execução
ParamIxb[2]Array of RecordPeriodo do Ano do curso em execução.
ParamIxb[3]Array of RecordCódigo do curso em execução
ParamIxb[4]Array of RecordPeriodo Letivo do curso
ParamIxb[5]Array of RecordHabilitação do curso em execução
ParamIxb[6]Array of RecordTurma do curso em execução
ParamIxb[7]Array of RecordCódigo da disciplina
ParamIxb[8]Array of RecordCód Professor origem
ParamIxb[9]Array of RecordCó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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão