Tabela
TNC Acidentes de Trabalho
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TNC_FILIAL C 2 0 Filial N
TNC_ACIDEN C 6 0 Acidente 999999 N
TNC_DESACI C 80 0 Descricao @! N
TNC_HRACID C 5 0 Hora Acid. 99:99 IF(AllTrim(M->TNC_HRACID)==':',.T.,NGVALHORA(M->TNC_HRACID)) N
TNC_DTACID D 8 0 Data Acident A640VALFIC( 2 ) N
TNC_INDACI C 1 0 Ind. Acid. @! PERTENCE("123456") 1=Acidente Tipico;2=Acidente de Trajeto;3=Doenca do Trabalho;4=Incidente N
TNC_VITIMA C 1 0 Vitima @! PERTENCE("123") .and. ValVitAcid() 1=Sim;2=Nao;3=Fatal MDT640WHEN() N
TNC_NUMFIC C 9 0 Ficha Medica 999999999 A640VALFIC() .AND. IF(vazio(),.T.,SitFunFicha(M->TNC_NUMFIC,.t.,.t.,.t.)) TM0 MDT640WHEN() N
TNC_NOMFIC C 40 0 Nome @! N
TNC_TIPACI C 12 0 Tipo Acid. @! EXISTCPO("TNG",M->TNC_TIPACI) TNG N
TNC_DESTIP C 220 0 Descricao @! V N
TNC_CODOBJ C 12 0 Objeto Caus. @! EXISTCPO("TNH",M->TNC_CODOBJ) TNH N
TNC_DESOBJ C 40 0 Desc. Objeto @! V N
TNC_NUMRIS C 9 0 Num. Risco 999999999 If(!Empty(M->TNC_NUMRIS),EXISTCPO("TN0",M->TNC_NUMRIS),.T.) TN0 N
TNC_TRANSF C 1 0 Transf. Set. @! PERTENCE("12") 1=Sim;2=Nao N
TNC_EMITEN C 1 0 Emitente @! PERTENCE("12345") 1=Empregador;2=Sindicado;3=Medico;4=Segurado;5=Autoridade Publica N
TNC_TIPCAT C 1 0 Tipo CAT @! PERTENCE("123") 1=Inicio;2=Reabertura;3=Obito N
TNC_AFASTA C 1 0 Afastamento @! PERTENCE("12") 1=Sim;2=Nao N
TNC_QTAFAS N 3 0 Dias Perd. 999 f640DIAS(1) N
TNC_DIASDB N 4 0 Dias Debtos 9999 f640DIAS(2) N
TNC_DTOBIT D 8 0 Data Obito N
TNC_TIPREV C 1 0 Filiac.Prev. @! PERTENCE("1267") 1=Empregado;2=Trab.Avulso;6=Seg.especial;7=Medico resid. N
TNC_AREA C 1 0 Area Servico @! PERTENCE("12") 1=Urbana;2=Rural N
TNC_APOSEN C 1 0 Aposentado @! PERTENCE("12") 1=Sim;2=Nao N
TNC_HRTRAB C 5 0 Horas. Trab. 99:99 IF(AllTrim(M->TNC_HRTRAB)==':',.T.,NGVALHORA(M->TNC_HRTRAB)) N
TNC_DTULTI D 8 0 Ult.Dia Trab N
TNC_INDLOC C 1 0 Ind. Local @! PERTENCE("1234569") 1=Estab da Empresa;2=Onde Presta Servico;3=Via publica;4=Area rural;5=Embarcacao;6=Exterior;9=Outros; N
TNC_CGCPRE C 14 0 CNPJ Prestad @R 99.999.999/9999-99 MDT640VAll(2) N
TNC_ESTACI C 2 0 Estado Acid. @! EXISTCPO("SX5","12"+M->TNC_ESTACI) 12 N
TNC_CODCID C 5 0 Cod. Cidade @9 If(!Empty(M->TNC_CODCID),ExistCpo('CC2',M->TNC_ESTACI+M->TNC_CODCID),.T.) .And. MDT640GAT(1) CC2 R S
TNC_CIDACI C 60 0 Cidade Acid. @! Empty(M->TNC_CODCID) N
TNC_LOCAL C 254 0 Local Acid. @! N
TNC_DESLOG C 100 0 Desc. Logr. @! R S
TNC_NUMLOG N 10 0 Num Logr. 9999999999 R S
TNC_PARTE C 80 0 Parte Ating. @! N
TNC_DESCR1 C 80 0 Des Acid.CAT @! N
TNC_DESCR2 C 80 0 Compl.Desc. @! N
TNC_POLICI C 1 0 Reg.Policial @! PERTENCE("12") 1=Sim;2=Nao N
TNC_MORTE C 1 0 Houve Morte @! MDT640VAll(1) 1=Sim;2=Nao N
TNC_TESTE1 C 30 0 Testemunha 1 @! MDT640HAB1() N
TNC_ENDTE1 C 30 0 End.Testem.1 @! MDT640HAB1() N
TNC_NUEND1 N 6 0 Num. Tes. 1 999999 R MDT640HAB1() S
TNC_BAIRR1 C 15 0 Bairro Tes 1 @! MDT640HAB1() N
TNC_ESTAD1 C 2 0 Estado Tes.1 @! EXISTCPO("SX5","12"+M->TNC_ESTAD1) 12 MDT640HAB1() N
TNC_CIDT1 C 5 0 Cid. Tes. 1 @9 If(!Empty(M->TNC_CIDT1),ExistCpo('CC2',M->TNC_ESTAD1+M->TNC_CIDT1),.T.) CC2 R MDT640HAB1() S
TNC_CIDAD1 C 60 0 Cidade Tes.1 @! Empty(M->TNC_CIDT1) .And. MDT640HAB1() N
TNC_CEP1 C 8 0 Cep Testem.1 @! MDT640HAB1() N
TNC_TELEF1 C 12 0 Telef. Tes.1 @! MDT640HAB1() N
TNC_TESTE2 C 30 0 Testemunha 2 @! MDT640HAB2() N
TNC_ENDTE2 C 30 0 End.Testem.2 @! MDT640HAB2() N
TNC_NUEND2 N 6 0 Num. Tes. 2 999999 R MDT640HAB2() S
TNC_BAIRR2 C 15 0 Bairro Tes 2 @! MDT640HAB2() N
TNC_ESTAD2 C 2 0 Estado Tes.2 @! EXISTCPO("SX5","12"+M->TNC_ESTAD2) 12 MDT640HAB2() N
TNC_CIDT2 C 5 0 Cid. Tes.2 @9 If(!Empty(M->TNC_CIDT2),ExistCpo('CC2',M->TNC_ESTAD2+M->TNC_CIDT2),.T.) CC2 R MDT640HAB2() S
TNC_CIDAD2 C 60 0 Cidade Tes.2 @! Empty(M->TNC_CIDT2) .And. MDT640HAB2() N
TNC_CEP2 C 8 0 Cep Testem.2 @! MDT640HAB2() N
TNC_TELEF2 C 12 0 Telef. Tes.2 @! MDT640HAB2() N
TNC_LOCATE C 80 0 Atend.Medico @! N
TNC_DTATEN D 8 0 Dt.Atend.Med N
TNC_INTERN C 1 0 Internacao @! PERTENCE("12") 1=Sim;2=Nao N
TNC_HRATEN C 5 0 Hr. Atendim. 99:99 IF(AllTrim(M->TNC_HRATEN)==':',.T.,NGVALHORA(M->TNC_HRATEN)) N
TNC_DESLES C 220 0 Descr. Lesao @! N
TNC_OBSERV C 80 0 Observacoes @! N
TNC_CC C 9 0 Centro Custo @! IF(VAZIO(),.T.,CTB105CC()) CTT N
TNC_DESCCC C 20 0 Descr.CCusto @! V N
TNC_DTEMIS D 8 0 Dt. Emissao N
TNC_CODFUN C 5 0 Funcao @! IF(VAZIO(),.T.,EXISTCPO("SRJ",M->TNC_CODFUN)) SRJ N
TNC_DESCFU C 20 0 Desc.Funcao @! V N
TNC_DETALH M 10 0 Detalhe Acid @! N
TNC_CATINS C 13 0 CAT INSS @R 9999999999-9/99 N
TNC_CATORI C 15 0 CAT Origem @R 9999999999-9/99 MDT640VAll(3) R S
TNC_DTCATO D 8 0 Dt. CAT Or. R S
TNC_CONFIN C 80 0 Conclusoes @! N
TNC_HRRPAD C 20 0 Hrr. Padrao @! N
TNC_HRRDIA C 20 0 Hrr. Acident @! N
TNC_LOCACT C 1 0 Local Ocorr. @! PERTENCE("1234") 1=Residencia para o trabalho;2=Trabalho para a residencia;3=Ida para local de refeicao;4=Volta do local de refeicao M->TNC_INDACI == "2" N
TNC_HORSAI C 5 0 Hora Saida 99:99 NGVALHORA(M->TNC_HORSAI,.t.) M->TNC_INDACI == "2" N
TNC_TRAJET C 80 0 Traje. Usual @! M->TNC_INDACI == "2" N
TNC_MEIO C 15 0 Meio Locomo. @! M->TNC_INDACI == "2" N
TNC_LOCACI C 30 0 Local Acide. @! M->TNC_INDACI == "2" N
TNC_DISTAC N 5 0 Dist. Acid. 99999 M->TNC_INDACI == "2" N
TNC_DISTUN C 6 0 Unid. Medida @! EXISTCPO("SX5","62"+M->TNC_DISTUN) 62 R M->TNC_INDACI == "2" N
TNC_MUDANC C 1 0 Mud. Trajeto @! PERTENCE("12") 1=Sim;2=Nao M->TNC_INDACI == "2" N
TNC_MOTIVO C 40 0 Mot. Mudanca @! M->TNC_INDACI == "2" N
TNC_TIPOAT C 1 0 Acid. Trans. @! Vazio() .OR. Pertence('123') R 1=Atropelamento;2=Colisao;3=Outros M->TNC_INDACI == '2' S
TNC_ADMITE C 1 0 Admite @! PERTENCE("12") 1=Sim;2=Nao M->TNC_INDACI == "2" N
TNC_CODPAR C 12 0 Codigo Parte @! IF(VAZIO(),.t.,ExistCpo("TOI",M->TNC_CODPAR)) TOI S
TNC_DESPAR C 30 0 Desc. Parte @! V S
TNC_CODLES C 12 0 Natur. Lesao @! IF(VAZIO(),.t.,ExistCpo("TOJ",M->TNC_CODLES)) TOJ S
TNC_NOMLES C 220 0 Desc. N. Le. @! V S
TNC_GRPCID C 3 0 Grupo C.I.D. @! MDT640PrGrp() TLG R N
TNC_DESGRP C 220 0 Desc. Grupo @! V N
TNC_CID C 8 0 CID Princip. @! EXISTCPO("TMR",M->TNC_CID) TMR WhenTNCCID() N
TNC_FILFUN C 2 0 Filial Func. XM0 R N
TNC_DOENCA C 220 0 Desc. Doenca @! V .F. N
TNC_MAT C 6 0 Matricula 999999 R N
TNC_ANALIS C 6 0 Analise @! ExistCpo( 'TG6' , M->TNC_ANALIS , 1 ) TG6 R Empty( M->TNC_NUMRIS ) N
TNC_OCOPLA C 6 0 Ocorrencia @! If(!Empty(M->TNC_OCOPLA),ExistCpo( 'TBV' , M->TNC_OCOPLA , 1 ),.T.) TBV R N
TNC_CNES C 7 0 Cod. CNES @9999999 If(!Empty(M->TNC_CNES),ExistCpo('TIL',M->TNC_CNES),.T.) TIL R S
TNC_INDAPR C 1 0 Outra ocup. @! 1=Sim;2=Nao S
TNC_MTEST1 C 6 0 Mat. Test. 1 @! IF(VAZIO(),.T.,MDT640VALT(1)) SRA R S
TNC_MTEST2 C 6 0 Mat. Test. 2 @! IF(VAZIO(),.T.,MDT640VALT(2)) SRA R S
TNC_TPACID C 6 0 Acid eSocial @! IIf( !Empty(M->TNC_TPACID), ExistCpo("LE5",M->TNC_TPACID,2), .T. ) MDTLE5 R N
TNC_CODPAI C 6 0 Cod. Pais @! xFunVldCmp("C08",3) C08 R M->TNC_INDLOC <> "1" N
TNC_DESPAI C 220 0 Descricao @! V N
TNC_CODPOS C 6 0 Cod. Postal @! R M->TNC_INDLOC <> "1" N
TNC_TPINSC C 1 0 Tipo Inscr. @9 1=CNPJ;2=CPF M->TNC_EMITEN <> "1" N
TNC_NRINSC C 15 0 Num. Inscr. @! M->TNC_EMITEN <> "1" N
TNC_TPINS C 1 0 Tp. Inscr. R 1=CNPJ;2=CAEPF;3=CNO S
TNC_CODAMB C 6 0 Cod. Amb. @! TNE R M->TNC_INDLOC $ "1,2" S
TNC_COMPL C 30 0 Complemento @! R S
TNC_BAIRRO C 60 0 Bairro @! R S
TNC_CEP C 8 0 CEP @R 99999-999 R S
TNC_TPLOGR C 4 0 Tipo Logr. @! If(!Empty(M->TNC_TPLOGR),EXISTCPO("C06",M->TNC_TPLOGR,4),.T.) MDTC06 R S