Tabela
TD1	FONTES DE EMISSAO
Campo	Tipo	Tamanho	Decimal	Titulo	Formato	Validacao	F3	Contexto	Lista	Condicao	PYME
TD1_FILIAL	C	2	0	Filial							N
TD1_CODIGO	C	10	0	Fonte	@!	ExistChav("TD1",M->TD1_CODIGO)		R			N
TD1_DESCRI	C	40	0	Descricao	@!	NaoVazio()		R			N
TD1_ESCOPO	C	1	0	Escopo	@!	Pertence("123X")		R	1=1;2=2;3=3;X=Emissoes Biomassa		N
TD1_TIPFON	C	1	0	Tipo Fonte	@!	Pertence('123456') .And. SG460ESC()		R	1=Estacionaria;2=Movel;3=Processo;4=Fugitiva;5=Agricola;6=Aquisicao de energia	SG460WHEN("TD1_TIPFON")	N
TD1_OBSERV	C	6	0	Observacao	@!			R			N
TD1_MEMO1	M	80	0	Observacao	@!			V			N