Tabela
TO0 Laudos Ambientais
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TO0_FILIAL C 2 0 Filial N
TO0_LAUDO C 12 0 Laudo @! Mdt210Lau() N
TO0_NOME C 60 0 Nome Laudo @! N
TO0_DTINIC D 8 0 Data Inicio MDT210VDT(1) N
TO0_DTFIM D 8 0 Data Final MDT210VDT(2) N
TO0_DTVALI D 8 0 Data Valid. MDT210VDT(3) N
TO0_CLIENT C 6 0 Cliente @! IF(VAZIO(),.T.,EXISTCPO("SA1",M->TO0_CLIENT)) .and. MDT210GRIS(M->TO0_CLIENT) SA1 N
TO0_LOJA C 2 0 Loja @! If(Empty(M->TO0_LOJA),.T.,EXISTCPO("SA1",M->TO0_CLIENT+M->TO0_LOJA)) N
TO0_NOMECL C 20 0 Nome Cliente @! V N
TO0_GRISCO C 1 0 Grau Risco 9 If(Empty(M->TO0_GRISCO),.T.,PERTENCE("1234")) !(M->TO0_TIPREL $ '89') N
TO0_QTDFUN N 5 0 Qtde Funcion 99999 !(M->TO0_TIPREL $ '89') N
TO0_OBJETI C 80 0 Objetivo @! N
TO0_TIPELA C 1 0 Tp. Elab. @! Pertence("12") R 1=Usuario;2=SESMT M->TO0_TIPREL $ '9/A/B' S
TO0_CODUSU C 12 0 Resp. Elab. @! If(Empty(M->TO0_CODUSU),.T.,SGAVALQAASRA(M->TO0_CODUSU,'TO0_TIPELA','TMK')) TMK SGAF3QAASRA('TO0_CODUSU','TO0_TIPELA',,,'TMK') N
TO0_NOMUSU C 20 0 Nome @! V N
TO0_TERMO C 12 0 Termo @! If(Empty(M->TO0_TERMO),.T.,EXISTCPO("TMZ",M->TO0_TERMO)) TMZ N
TO0_FILDOC C 2 0 Filial Docto N
TO0_DOCTO C 16 0 Documento MDT210VQDH() QDH N
TO0_RV C 3 0 Revisao 999 If(Empty(M->TO0_RV),.T.,EXISTCPO("QDH",M->TO0_DOCTO+M->TO0_RV)) N
TO0_TIPREL C 1 0 Tipo Laudo @! MDT210VTIP() R #MDT210CBOX() N
TO0_CC C 9 0 Centro Custo @! Mdt210VlCC(M->TO0_CC) CTT R A210DESTIN() N
TO0_NOMECC C 20 0 Descricao @! V N
TO0_DESCRI M 10 0 Descricao @! R N
TO0_DESC2 M 80 0 Cont. Descr. @! V N
TO0_MMSYP2 C 6 0 Cont. Descr. @! R N
TO0_FINALI C 1 0 Finalidade @! MDT210ALL("TO0_FINALI") R 1=Insalubridade;2=Periculosidade;3=Outros M->TO0_TIPREL='3' N
TO0_TIPAPR C 1 0 Tipo Aprov. @! Pertence("12") R 1=Usuario;2=Funcionario M->TO0_TIPREL $ '9/A/B' N
TO0_APROVA C 6 0 Aprovador 999999 If(Empty(M->TO0_APROVA),.T.,SGAVALQAASRA(M->TO0_APROVA,"TO0_TIPAPR")) SRA R SGAF3QAASRA('TO0_APROVA','TO0_TIPAPR','TO0_TIPREL','9/A/B') S
TO0_NOMAPR C 30 0 Nome Aprov. V N
TO0_ATIVID C 6 0 Atividade @! If(Empty(M->TO0_ATIVID),.T.,ExistCpo('TAR')) TAR R N
TO0_DESATI C 40 0 Descricao @! V N