Forum Post: GL_FiscalYearDetail_BUS Not finding record.

I'm trying to retrieve the ending date for a Fiscal Period.  The script opens it but the setkey() is not returning a found flag.  Any ideas what wrong? retval = oSession.AsObject(oSession.UI).Messagebox( "","Invoice Date Check fired") Dim Mas_Scr_Dbg ' debug is turned off - set to 1 to enable: Mas_Scr_Dbg = 1 MasYear = "" MasPer ="" PeriodEnd = "" InvDate = "" retVal = 0 CurYear = 0 CurPer = 0 MaxYear = 0 MaxPer = 0 InvYear = 0 InvPer = 0 retval =oSession.getparameter("S/O","CurrentFiscalYr$",MasYear) retVal = 0 retval =oSession.getparameter("S/O","CurrentPeriod$",MasPer) CurYear = int(MasYear) CurPer = int(MasPer) retval =oBusObj.GetValue("InvoiceDate$",InvDate) '******************** oFiscalYear = oSession.GetObject("GL_FiscalYearDetail_BUS")   if oFiscalYear 0 then    Set oFiscalYear = oSession.AsObject(oFiscalYear)   else    retval = oSession.AsObject(oSession.UI).Messagebox( "","oFiscalYear failed")   return   end if  retval = oSession.AsObject(oSession.UI).Messagebox( "","Opened oFiscalYear " & MasYear & " Per " & MasPer)   retval = oFiscalyear.SetKeyValue("FiscalYear$",MasYear)   retval = oFiscalyear.setkeyvalue("FiscalPeriod",MasPer)     retval = oFiscalYear.SetKey()  if retval = 1 then   retval = oFiscalYear.GetValue("PeriodEndingDate$",PeriodEnd)    retval = oSession.AsObject(oSession.UI).Messagebox( "","Period End Date " & PeriodEnd)     else   retval = oSession.AsObject(oSession.UI).Messagebox( "","Not Found")  end if retval = oSession.DropObject("GL_FiscalYearDetail_bus") '*********************