Select SUM(valorcont) From Contrato;
   Where licita_id = Licitacao.licita_id;
   Into Array Resultado
ThisForm.TxtValorcont.Value = Iif(Type("Resultado[1]")#"N",0,Resultado[1])