Laserfiche WebLink
<br />POST_EXEC_DlAG FALSE; <br />BEGIN <br /> <br />IF ( "GetMonth"( @"Current Timestep" ) < 4.00000000 ) <br />THEN <br />"Tablelnterpolation"( $ "RulesData.BMStorageTarget", 0.00000000, 1.00000000, $ "HistoricData.EarlyBM_AJfrcst" n, @"Current Timestep" ) <br />ELSE <br />IF ( "GetMonth"( @"Current Timestep" ) < 8.00000000 ) <br />THEN <br />800000.00000000 ["acre-ft..] <br />ELSE <br />580000.00000000 ["acre-ft"] <br />ENDIF <br />ENDlF; <br /> <br />END; <br /> <br />FUNCTION "TPStora~eAdj" ( ) <br />RETURN_TYPE NUMERIC; <br />SCALE_UNITS ....; <br />DESCRIPTION ....; <br />ACTIVE TRUE; <br />PRE_EXEC_DIAG FALSE; <br />POST_EXEC_DIAG FALSE; <br />BEGIN <br /> <br />~ <br />c-.:I- <br /> <br />A~~v-j If CJ-/~ <br /> <br />IF ( "GetMonth"( @"Current Timestep" ) < 4.0?0ooooo ) <br />mEN <br />$ "llistorlcData.tprcontent" [@"24:oo:00March 31, Current Year"] - $ "HistoricData.tprcontent" [@"PreviousTimestep") <br />ELSE <br />IF ( "GetMonth"( @"Current Timestep" ) < 8.00000000 ) <br />THEN <br />$ "HistoricData.tprcontent" [@"24:00:ooJuly 31, Current Year") - S "HistoricData.tprcontent" [@"Previous Timestep") <br />ELSE <br />S "HistoricData.tprcontent" [@"24:oo:oo December 31, Current Year") - $ "HistoricData.tprcontent" [@"Previous Timestep") <br />ENDlF <br />ENDlF; <br /> <br />END; <br /> <br /> <br />fUNCTION "T!'StoragoAdjl" ( ) <br />RIlTURN_TYPE NUMERIC; <br />SCALIl UNITS "". <br />DBSCRIYrION -; <br />ACTIVIl FALSE; <br />PRE.EXIlC.DIAG PALSE; <br />POST .EXEC.D/AG FALSE; <br />BllGIN <br /> <br />IF ("GetMOIIIh"( @"c..rrenl Timestep" ) < 4_0?0ooooo ) <br />TlIEN <br />0.0?0ooooo ["acre-feet") <br />ELSE <br />II' ( "GctMonth"( @"Currcnt Timestep" ) < 8.0?0ooooo ) <br />THEN <br />102000.0?0ooooo ["acrc-ft1- S "HistoricData.tprconlcnt" [@"PreviousTimestcp") <br />ELSE <br />7??oo.0?0ooooo ("acre-ft") - S "HistorieData.tprconlent" [@"Previous Timestcp") <br />IlND'P <br />ENDII'; <br /> <br />END; <br /> <br /> <br />J1~o~~j. <br /> <br />r~r/ <br /> <br />.Lo <br /> <br />~om <br /> <br />-;; I~ <br />~ <br />