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