Tabela
TJ7 Servicos
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TJ7_FILIAL C 2 0 Filial R S
TJ7_TIPREG C 1 0 Registro @! Pertence('12345') .And. VALIDTIPREG() .And. EXISTCHAV('TJ7',M->TJ7_TIPREG+M->TJ7_CODIGO+M->TJ7_PONTO+DTOS(M->TJ7_DATA)) R 1=Ambiente Fisico;2=Funcionario;3=Centro de Custo;4=Funcao;5=Tarefa MDTA997TF3() S
TJ7_DATA D 8 0 Data ValDtMdt997(M->TJ7_TIPREG,M->TJ7_CODIGO) .And. EXISTCHAV('TJ7',M->TJ7_TIPREG+M->TJ7_CODIGO+M->TJ7_PONTO+DTOS(M->TJ7_DATA)) R S
TJ7_CODIGO C 6 0 Codigo 999999 MDTA997VCOD() .And. EXISTCHAV('TJ7',M->TJ7_TIPREG+M->TJ7_CODIGO+M->TJ7_PONTO+DTOS(M->TJ7_DATA)) TNE R S
TJ7_NOME C 20 0 Nome @! R S
TJ7_PONTO C 10 0 Ponto @! R S
TJ7_TIPO C 40 0 Tipo @! S
TJ7_OCUPAC C 4 0 Ocupacao @! R S
TJ7_DOSE C 4 0 Dose @! R S
TJ7_UNIDAD C 2 0 Unidade @! If(!Empty(M->TJ7_UNIDAD),ExistCpo('SX5','62'+M->TJ7_UNIDAD),.T.) 62 R S
TJ7_DISTAN N 6 2 Distancia @E 999.99 R S
TJ7_EQUIPA C 6 0 Equipamento @! If(Empty(M->TJ7_EQUIPA),.T.,EXISTCPO('TM7',M->TJ7_EQUIPA)) TM7 R S
TJ7_NOEQTO C 20 0 Nome Equipam @! V S