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 |