Perguntas Amarração Tabela Compras x Cadastro Fornecedor

User Function MT120CND()
Local lRet := .t.
Local aArea := GetArea()
Local cTabPrec := CriaVar("C7_CODTAB")

If INCLUI
	If AIA->(dbSetOrder(1), dbSeek(xFilial("AIA")+SA2->A2_COD+SA2->A2_LOJA))
		cTabPrec := AIA->AIA_CODTAB
	Endif
Endif

If !Empty(cTabPrec)
	For nI:=1 to Len(aCols)
		If !aCols[nI][Len(aHeader)+1]	// Verifica se a Linha do Acols esta Deletada
			aCols[nI][GDFieldPos("C7_CODTAB")]  := cTabPrec	// Alimenta Tabela de Preços no Grid
		Endif
	Next
Endif
	
RestArea(aArea)
Return lRet