Tabela
TCD MONITORAMENTO
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TCD_FILIAL C 2 0 Filial S
TCD_CODIGO C 6 0 Codigo @! ExistChav("TCD") .And. FreeForUse("TCD",M->TCD_CODIGO) R S
TCD_DTCAD D 8 0 Dt. Cadastro 99/99/9999 R S
TCD_DESCRI C 40 0 Descricao @! R S
TCD_FONTE C 6 0 Fonte @! ExistCpo("TCB") .And. SG390Vld() TCB R M->TCD_STATUS == '1' S
TCD_DESFON C 40 0 Descricao @! V S
TCD_STATUS C 1 0 Status @! Pertence("1234") R 1=Iniciado;2=Em Andamento;3=Finalizado;4=Cancelado S
TCD_GRUPO C 6 0 Grupo @! ExistCpo("TCA") .And. SG390Vld() TCA R M->TCD_STATUS == '1' S
TCD_DESGRP C 40 0 Desc. Grupo @! V S
TCD_ASPECT C 6 0 Aspecto @! ExistCpo("TA4") TA4 R M->TCD_FLAG $ '13' S
TCD_DESASP C 40 0 Descricao @! V S
TCD_IMPACT C 6 0 Impacto @! ExistCpo("TAE") TAE R M->TCD_FLAG $ '13' S
TCD_DESIMP C 40 0 Descricao @! V S
TCD_OBSERV M 10 0 Observacao R S
TCD_DTINI D 8 0 Data Inicio 99/99/9999 R M->TCD_STATUS == "1" N
TCD_HRINI C 5 0 Hora inicio 99:99 NGVALHORA(M->TCD_HRINI,.T.) R M->TCD_STATUS == "1" N
TCD_FLAG C 1 0 Modulo @! MdtValTip( M->TCD_FLAG , 'TCD' ) R 1=SGA;2=MDT;3=Ambos N
TCD_TIPO C 1 0 Tipo @! If(!Empty(M->TCD_TIPO),Pertence('1234'),.T.) R 1=Ambiental;2=QSMS;3=SMS;4=SSO S
TCD_CODPER C 6 0 Perigo @! ExistCpo( 'TG1' , M->TCD_CODPER ) TG1 R M->TCD_FLAG $ '23' N
TCD_NOMPER C 40 0 Nome Perigo @S30 V N
TCD_CODDAN C 6 0 Dano @! ExistCpo( 'TG8' , M->TCD_CODDAN ) TG8 R N
TCD_DESDAN C 40 0 Nome Dano @S30 V N