Tabela
TPO	Custo Servico por Fornecedor
Campo	Tipo	Tamanho	Decimal	Titulo	Formato	Validacao	F3	Contexto	Lista	Condicao	PYME
TPO_FILIAL	C	2	0	Filial				R			N
TPO_FORNEC	C	6	0	Fornecedor	@!	NG250FORN(M->TPO_FORNEC,M->TPO_LOJA) .AND. EXISTCHAV('TPO',M->TPO_FORNEC+M->TPO_LOJA+M->TPO_SERVIC+M->TPO_ESPECI)	FOR				N
TPO_LOJA	C	2	0	Loja	@!	NG250FORN(M->TPO_FORNEC,M->TPO_LOJA) .AND. EXISTCHAV('TPO',M->TPO_FORNEC+M->TPO_LOJA+M->TPO_SERVIC+M->TPO_ESPECI)					N
TPO_NOMFOR	C	20	0	Nome Fornece	@!			V			N
TPO_SERVIC	C	6	0	Servico	@!	IF(VAZIO(),.T.,EXISTCPO("ST4",M->TPO_SERVIC)) .And. EXISTCHAV("TPO", M->TPO_FORNECE+M->TPO_LOJA+M->TPO_SERVIC+M->TPO_ESPECI)	ST4				N
TPO_NOMSER	C	20	0	Nome Servico	@!			V			N
TPO_ESPECI	C	3	0	Especialidad	@!	IF(VAZIO( ), .T., EXISTCPO("ST0", M->TPO_ESPECI)) .AND. EXISTCHAV("TPO", M->TPO_FORNECE+M->TPO_LOJA+M->TPO_SERVIC+M->TPO_ESPECI)	ST0				N
TPO_NOMESP	C	20	0	Nome Espec	@!			V			N
TPO_CUSTO	N	10	2	Custo Hora	@E 9,999,999.99	Positivo()				lCusto	N