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")

'*********************