Tabela
N6J Grades de Aulas
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
N6J_FILIAL C 2 0 Filial R N
N6J_ESCOLA C 6 0 Cod Escola If(cEscola<>'*',cCodEsc==cEscola,.t.) .And. Existcpo("N60") .And. ExistChav("N6J",cCodEsc+cTurma+cVersao,1) R N
N6J_NOMESC C 100 0 Nome Escola @! R N
N6J_VERSAO C 3 0 Versao ExistChav("N6J",cCodEsc+cTurma+cVersao) R N
N6J_DATA D 8 0 Dt. Versao R N
N6J_TURMA C 6 0 Cod Turma ExistCpo("N6C",cCodEsc + cTurma) .And. ExistChav('N6J',cCodEsc+cTurma+cVersao,1) R N
N6J_DESCTU C 20 0 Descricao R N
N6J_DIASEM C 1 0 Periodo PERTENCE("1234567") R 1=Domingo;2=Segunda;3=Terca;4=Quarta;5=Quinta;6=Sexta;7=Sabado N
N6J_PERIOD C 1 0 Periodo PERTENCE("12345") R 1=Primeiro;2=Segundo;3=Terceiro;4=Quarto;5=Quinto N
N6J_DISCIP C 6 0 Disciplina EXISTCPO("N68") N68 R N
N6J_NOMDIS C 30 0 Desc Discip R N
N6J_PROFES C 8 0 Professor EMPTY(M->N6J_PROFES) .OR. EXISTCPO("N66") N66 R N
N6J_NOMPRO C 50 0 Nom Profes R N