Tabela
JMJ	Tipos de Clientes
Campo	Tipo	Tamanho	Decimal	Titulo	Formato	Validacao	F3	Contexto	Lista	Condicao	PYME
JMJ_FILIAL	C	2	0	Filial							S
JMJ_TPUSR	C	6	0	Cod.Tipo		ExistChav("JMJ").And.FreeForUse("JMJ",M->JMJ_TPUSR)					S
JMJ_DESCRI	C	30	0	Desc.Tipo				R			S