Tabela
TJ2 Questionario ( novo )
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TJ2_FILIAL C 2 0 Filial R N
TJ2_QUESTI C 6 0 Questionario @! ExistChav( 'TJ2',M->TJ2_QUESTI ) R N
TJ2_NOMQUE C 40 0 Nome Quest. @! R N
TJ2_FUNC C 5 0 Funcao @! If( Vazio(),.T.,ExistCpo( 'SRJ',M->TJ2_FUNC ) ) SRJ R N
TJ2_TAR C 6 0 Tarefa @! If( Vazio(),.T.,ExistCpo( 'TN5',M->TJ2_TAR ) ) TN5 R N
TJ2_CC C 9 0 C.C. @! If( Vazio(),.T.,ExistCpo( 'CTT',M->TJ2_CC ) ) CTT R N
TJ2_AMB C 6 0 Amb. Fisico @! If( Vazio(),.T.,ExistCpo( 'TNE',M->TJ2_AMB ) ) TNE R N
TJ2_LOC C 3 0 Localizacao @! If( Vazio(),.T.,NGIFDBSEEK( 'TAF',M->TJ2_LOC,8,.T. ) ) MDTTAF R N
TJ2_INDDAT C 1 0 Imp. Data? Pertence( '123' ) R 1=Cabecalho;2=Rodape;3=Nao Imprimir N
TJ2_INDEMP C 1 0 Imp. Empresa Pertence( '123' ) R 1=Cabecalho;2=Rodape;3=Nao Imprimir N
TJ2_INDTIT C 1 0 Imp. Nome Pertence( '123' ) R 1=Cabecalho;2=Rodape;3=Nao Imprimir N
TJ2_INDPAG C 1 0 Imp. Num P. Pertence( '123' ) R 1=Cabecalho;2=Rodape;3=Nao Imprimir N
TJ2_INDTEX C 1 0 Imp. C. Txt. Pertence( '123' ) R 1=Cabecalho;2=Rodape;3=Nao Imprimir N
TJ2_INDRES C 1 0 Imp. Resp.? Pertence( '123' ) R 1=Cabecalho;2=Rodape;3=Nao Imprimir N
TJ2_CDTEXT C 6 0 Texto @! If( Vazio(),.T.,ExistCpo( 'TMZ',M->TJ2_CDTEXT ) ) TMZ R N
TJ2_TPRES C 1 0 Tipo Resp. Pertence( '123' ) .And. MDT999BLSMT( M->TJ2_TPRES ) R 1=SESMT;2=Funcionario;3=Outro N
TJ2_CODRES C 6 0 Responsavel 999999 MDT999RESP( M->TJ2_TPRES,M->TJ2_CODRES ) SRA R MDT99WHCRES() N
TJ2_NOMRES C 40 0 Responsavel @! R M->TJ2_TPRES == '3' S
TJ2_DTCAD D 8 0 Data Cad. R .F. N
TJ2_USER C 20 0 Usuario R N