Tabela
BLJ RDA x Formacao Profissional
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BLJ_FILIAL C 2 0 Filial S
BLJ_CODIGO C 6 0 Codigo S
BLJ_ITEM C 3 0 Item @! S
BLJ_LOCAL C 60 0 Local @! S
BLJ_DATINI D 8 0 Data Inicial S
BLJ_DATFIN D 8 0 Data Final M->BLJ_DATFIN >= M->BLJ_DATINI S
BLJ_TIPO C 1 0 Tipo @! If(M->BLJ_TIPO<>"0",M->BLJ_RECMEC:="","0") 0=Residencia;1=Especializacao;2=Mestrado;3=Doutorado S
BLJ_CODTIT C 3 0 Cod. Titulo @! EXISTCPO("BXW",M->BLJ_CODTIT,1) .And. PlsSeek("BXW",1,,"BLJ_DESTIT","BXW_DESCRI") PLSBXW R S
BLJ_DESTIT C 80 0 Nome Titulo @! R S
BLJ_ORGREG C 1 0 Orgao Reg. @! R 1=AMB;2=CNRM;3=OUTROS S
BLJ_RECMEC C 1 0 Res.Rec.MEC @! Vazio() .Or. Pertence('01') 0=Nao;1=Sim M->BLJ_TIPO=="0" S
BLJ_INDEDI C 1 0 Espec/Atuac @! Vazio() .Or. (Pertence('1234') .And. PLVLDBJLPT()) R 1=Especialidade 1;2=Especialidade 2;3=Area Atuacao 1;4=Area Atuacao 2 S