List of usage examples for org.apache.commons.lang3.mutable MutableDouble doubleValue
@Override public double doubleValue()
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_dTGiftNeedBasedAwards(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { zVIEW mFAProf2 = new zVIEW(); //:DECIMAL dAmount double dAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:CreateViewFromView( mFAProf2, mFAProf ) CreateViewFromView(mFAProf2, mFAProf); //:dAmount = 0 dAmount = 0;//from w ww. j a v a 2 s . c o m //:FOR EACH mFAProf2.FinAidAward //: WHERE mFAProf2.FinAidAward.AwardType != "S" OR mFAProf2.FinAidSource.IsNeedBased = "Y" RESULT = mFAProf2.cursor("FinAidAward").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { if (CompareAttributeToString(mFAProf2, "FinAidAward", "AwardType", "S") != 0 || CompareAttributeToString(mFAProf2, "FinAidSource", "IsNeedBased", "Y") == 0) { //:IF mFAProf2.FinAidAward.AwardStatus = "A" OR //:mFAProf2.FinAidAward.AwardStatus = "Y" OR //:mFAProf2.FinAidAward.AwardStatus = "P" if (CompareAttributeToString(mFAProf2, "FinAidAward", "AwardStatus", "A") == 0 || CompareAttributeToString(mFAProf2, "FinAidAward", "AwardStatus", "Y") == 0 || CompareAttributeToString(mFAProf2, "FinAidAward", "AwardStatus", "P") == 0) { //:dAmount = dAmount + mFAProf2.FinAidAward.Amount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf2, "FinAidAward", "Amount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dAmount = dAmount + dTempDecimal_0; //:ELSE } else { } } RESULT = mFAProf2.cursor("FinAidAward").setNextContinue().toInt(); ; //: // dont do anything //:END } //: /*IF mFAProf2.FinAidAward.AwardStatus = "A" //: dAmount = dAmount + mFAProf2.FinAidAward.AmountOffered //: ELSE //: IF mFAProf2.FinAidAward.AwardStatus = "Y" //: dAmount = dAmount + mFAProf2.FinAidAward.Amount //: ELSE //: // dont do anything //: END //: END*/ //:END //:DropView( mFAProf2 ) DropView(mFAProf2); //:StoreValueInRecord( mFAProf,InternalEntityStructure, //: InternalAttribStructure, dAmount, 0 ) StoreValueInRecord(mFAProf, InternalEntityStructure, InternalAttribStructure, dAmount, 0); break; //:/* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_dTotalPerPeriodRecv(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { double dAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:dAmount = 0 dAmount = 0;/*www. j a v a2s.c o m*/ //:FOR EACH mFAProf.PerPeriodFinAidAwardDisbursement RESULT = mFAProf.cursor("PerPeriodFinAidAwardDisbursement").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { //:dAmount = dAmount + mFAProf.PerPeriodFinAidAwardDisbursement.Amount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf, "PerPeriodFinAidAwardDisbursement", "Amount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dAmount = dAmount + dTempDecimal_0; RESULT = mFAProf.cursor("PerPeriodFinAidAwardDisbursement").setNextContinue().toInt(); ; } //:END //:StoreValueInRecord( mFAProf,InternalEntityStructure, //: InternalAttribStructure, dAmount, 0 ) StoreValueInRecord(mFAProf, InternalEntityStructure, InternalAttribStructure, dAmount, 0); break; //:/* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_AddAwardByAidSource(View mFAProf, View mFASrc) { zVIEW wXferO = new zVIEW(); int RESULT = 0; //:DECIMAL dAward double dAward = 0.0; //:DECIMAL dAmountDiv double dAmountDiv = 0.0; //:DECIMAL dAmount double dAmount = 0.0; //:DECIMAL dDiff double dDiff = 0.0; //:INTEGER nDisb int nDisb = 0; //:INTEGER nDisbPerStudent int nDisbPerStudent = 0; double dTempDecimal_0 = 0.0; double dTempDecimal_1 = 0.0; RESULT = GetViewByName(wXferO, "wXferO", mFAProf, zLEVEL_TASK); //:// Add a new FinAidAward entry //:CREATE ENTITY mFAProf.FinAidAward RESULT = CreateEntity(mFAProf, "FinAidAward", zPOS_AFTER); //:OrderEntityForView( mFAProf, "PerProfileFinAidAwardPeriod", "BeginDate A" ) OrderEntityForView(mFAProf, "PerProfileFinAidAwardPeriod", "BeginDate A"); //:SET CURSOR FIRST mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setFirst().toInt(); //:INCLUDE mFAProf.FinAidSource FROM mFASrc.FinAidSource RESULT = IncludeSubobjectFromSubobject(mFAProf, "FinAidSource", mFASrc, "FinAidSource", zPOS_AFTER); //:mFAProf.FinAidAward.DateOffered = wXferO.Root.dCurrentDate SetAttributeFromAttribute(mFAProf, "FinAidAward", "DateOffered", wXferO, "Root", "dCurrentDate"); //:mFAProf.FinAidAward.AwardType = mFASrc.FinAidSource.AidType SetAttributeFromAttribute(mFAProf, "FinAidAward", "AwardType", mFASrc, "FinAidSource", "AidType"); //:mFAProf.FinAidAward.Amount = mFASrc.FinAidSource.AwardAmount SetAttributeFromAttribute(mFAProf, "FinAidAward", "Amount", mFASrc, "FinAidSource", "AwardAmount"); //:dAward = mFAProf.FinAidAward.Amount {/* w w w. ja va 2 s . c o m*/ MutableDouble md_dAward = new MutableDouble(dAward); GetDecimalFromAttribute(md_dAward, mFAProf, "FinAidAward", "Amount"); dAward = md_dAward.doubleValue(); } //:mFAProf.FinAidAward.AwardStatus = "A" SetAttributeFromString(mFAProf, "FinAidAward", "AwardStatus", "A"); //:IF mFASrc.FinAidSource.Disbursements = "" OR mFASrc.FinAidSource.Disbursements = 0 if (CompareAttributeToString(mFASrc, "FinAidSource", "Disbursements", "") == 0 || CompareAttributeToInteger(mFASrc, "FinAidSource", "Disbursements", 0) == 0) { //:nDisb = 1 nDisb = 1; //:ELSE } else { //:nDisb = mFASrc.FinAidSource.Disbursements { MutableInt mi_nDisb = new MutableInt(nDisb); GetIntegerFromAttribute(mi_nDisb, mFASrc, "FinAidSource", "Disbursements"); nDisb = mi_nDisb.intValue(); } } //:END //:dAmountDiv = 0 dAmountDiv = 0; //:dAmount = 0 dAmount = 0; //:dAmountDiv = dAward / nDisb dAmountDiv = dAward / nDisb; //:// see how many periods are defined for the student in case they are enrolled for less than the default //:nDisbPerStudent = 0 nDisbPerStudent = 0; //:SET CURSOR FIRST mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setFirst().toInt(); //:LOOP WHILE RESULT >= zCURSOR_SET while (RESULT >= zCURSOR_SET) { //:nDisbPerStudent = nDisbPerStudent + 1 nDisbPerStudent = nDisbPerStudent + 1; //:SET CURSOR NEXT mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setNextContinue().toInt(); ; } //:END //:mFAProf.FinAidAward.wTextMessage = "" SetAttributeFromString(mFAProf, "FinAidAward", "wTextMessage", ""); //:IF nDisbPerStudent < nDisb if (nDisbPerStudent < nDisb) { //:nDisb = nDisbPerStudent nDisb = nDisbPerStudent; //:dAward = dAmountDiv * nDisb dAward = dAmountDiv * nDisb; //:mFAProf.FinAidAward.Amount = dAward SetAttributeFromDecimal(mFAProf, "FinAidAward", "Amount", dAward); //:mFAProf.FinAidAward.wTextMessage = "Award Reduced for partial year enrollment" SetAttributeFromString(mFAProf, "FinAidAward", "wTextMessage", "Award Reduced for partial year enrollment"); } //:END //:SET CURSOR FIRST mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setFirst().toInt(); //:LOOP WHILE nDisb > 0 while (nDisb > 0) { //:CREATE ENTITY mFAProf.FinAidAwardDisbursement RESULT = CreateEntity(mFAProf, "FinAidAwardDisbursement", zPOS_AFTER); //:INCLUDE mFAProf.FinAidAwardPeriod FROM mFAProf.PerProfileFinAidAwardPeriod RESULT = IncludeSubobjectFromSubobject(mFAProf, "FinAidAwardPeriod", mFAProf, "PerProfileFinAidAwardPeriod", zPOS_AFTER); //:mFAProf.FinAidAwardDisbursement.AmountExpected = dAmountDiv SetAttributeFromDecimal(mFAProf, "FinAidAwardDisbursement", "AmountExpected", dAmountDiv); //:mFAProf.FinAidAwardDisbursement.DisbursementDate = mFAProf.FinAidAwardPeriod.BeginDate SetAttributeFromAttribute(mFAProf, "FinAidAwardDisbursement", "DisbursementDate", mFAProf, "FinAidAwardPeriod", "BeginDate"); //:dAmount = dAmount + dAmountDiv dAmount = dAmount + dAmountDiv; //:SET CURSOR NEXT mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setNextContinue().toInt(); ; //:nDisb = nDisb - 1 nDisb = nDisb - 1; } //:END //:IF dAmount < dAward if (dAmount < dAward) { //:dDiff = dAward - dAmount dDiff = dAward - dAmount; //:SET CURSOR FIRST mFAProf.FinAidAwardDisbursement RESULT = mFAProf.cursor("FinAidAwardDisbursement").setFirst().toInt(); //:mFAProf.FinAidAwardDisbursement.AmountExpected = mFAProf.FinAidAwardDisbursement.AmountExpected + dDiff { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf, "FinAidAwardDisbursement", "AmountExpected"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dTempDecimal_1 = dTempDecimal_0 + dDiff; SetAttributeFromDecimal(mFAProf, "FinAidAwardDisbursement", "AmountExpected", dTempDecimal_1); } //:END return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_dTotalPerPeriodExpect(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { double dAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:dAmount = 0 dAmount = 0;// w w w . jav a 2 s. c o m //:FOR EACH mFAProf.PerPeriodFinAidAwardDisbursement RESULT = mFAProf.cursor("PerPeriodFinAidAwardDisbursement").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { //:dAmount = dAmount + mFAProf.PerPeriodFinAidAwardDisbursement.AmountExpected { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf, "PerPeriodFinAidAwardDisbursement", "AmountExpected"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dAmount = dAmount + dTempDecimal_0; RESULT = mFAProf.cursor("PerPeriodFinAidAwardDisbursement").setNextContinue().toInt(); ; } //:END //:StoreValueInRecord( mFAProf,InternalEntityStructure, //: InternalAttribStructure, dAmount, 0 ) StoreValueInRecord(mFAProf, InternalEntityStructure, InternalAttribStructure, dAmount, 0); break; //:/* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_AddScholarshipAward(View mFAProf, int nSchShipID, double dAwardAmount) { zVIEW mFASrc = new zVIEW(); //:VIEW wXferO REGISTERED AS wXferO zVIEW wXferO = new zVIEW(); int RESULT = 0; //:INTEGER nDisb int nDisb = 0; //:DECIMAL dAmountDiv double dAmountDiv = 0.0; //:DECIMAL dAmount double dAmount = 0.0; //:DECIMAL dAward double dAward = 0.0; //:DECIMAL dDiff double dDiff = 0.0; zVIEW vTempViewVar_0 = new zVIEW(); int lTempInteger_0 = 0; double dTempDecimal_0 = 0.0; double dTempDecimal_1 = 0.0; RESULT = GetViewByName(wXferO, "wXferO", mFAProf, zLEVEL_TASK); //:// activate the scholarship needed. //:// activate the finaidsrc that goes with it. //:ACTIVATE mFASrc //: WHERE mFASrc.Scholarship.ID = nSchShipID //: RESTRICTING mFASrc.FinAidAwardAssigned TO mFASrc.FinAidAwardAssigned.ID < 0 omFAProf_fnLocalBuildQual_20(mFAProf, vTempViewVar_0, nSchShipID); RESULT = ActivateObjectInstance(mFASrc, "mFASrc", mFAProf, vTempViewVar_0, zSINGLE); DropView(vTempViewVar_0);// w ww . j ava2 s . c o m //:// if there is no finaidsrc then skip this.who operation //:IF RESULT < 0 OR mFASrc.FinAidSource DOES NOT EXIST lTempInteger_0 = CheckExistenceOfEntity(mFASrc, "FinAidSource"); if (RESULT < 0 || lTempInteger_0 != 0) { //:RETURN -1 if (8 == 8) return (-1); } //:END //:SET CURSOR FIRST mFAProf.FinAidAward WHERE mFAProf.Scholarship.ID = nSchShipID RESULT = mFAProf.cursor("FinAidAward").setFirst().toInt(); if (RESULT > zCURSOR_UNCHANGED) { while (RESULT > zCURSOR_UNCHANGED && (CompareAttributeToInteger(mFAProf, "Scholarship", "ID", nSchShipID) != 0)) { RESULT = mFAProf.cursor("FinAidAward").setNextContinue().toInt(); ; } } //:IF RESULT >= zCURSOR_SET // already there. if (RESULT >= zCURSOR_SET) { //:RETURN -1 if (8 == 8) return (-1); } //:END //: //: //:CREATE ENTITY mFAProf.FinAidAward RESULT = CreateEntity(mFAProf, "FinAidAward", zPOS_AFTER); //:INCLUDE mFAProf.FinAidSource FROM mFASrc.FinAidSource RESULT = IncludeSubobjectFromSubobject(mFAProf, "FinAidSource", mFASrc, "FinAidSource", zPOS_AFTER); //:mFAProf.FinAidAward.DateOffered = wXferO.Root.dCurrentDate SetAttributeFromAttribute(mFAProf, "FinAidAward", "DateOffered", wXferO, "Root", "dCurrentDate"); //:mFAProf.FinAidAward.AwardType = mFASrc.FinAidSource.AidType SetAttributeFromAttribute(mFAProf, "FinAidAward", "AwardType", mFASrc, "FinAidSource", "AidType"); //:mFAProf.FinAidAward.Amount = dAwardAmount /// mFASrc.FinAidSource.AwardAmount SetAttributeFromDecimal(mFAProf, "FinAidAward", "Amount", dAwardAmount); //:dAward = mFAProf.FinAidAward.Amount { MutableDouble md_dAward = new MutableDouble(dAward); GetDecimalFromAttribute(md_dAward, mFAProf, "FinAidAward", "Amount"); dAward = md_dAward.doubleValue(); } //:mFAProf.FinAidAward.AwardStatus = "A" SetAttributeFromString(mFAProf, "FinAidAward", "AwardStatus", "A"); //:IF mFASrc.FinAidSource.Disbursements = "" //: OR mFASrc.FinAidSource.Disbursements = 0 if (CompareAttributeToString(mFASrc, "FinAidSource", "Disbursements", "") == 0 || CompareAttributeToInteger(mFASrc, "FinAidSource", "Disbursements", 0) == 0) { //:nDisb = 1 nDisb = 1; //:ELSE } else { //:nDisb = mFASrc.FinAidSource.Disbursements { MutableInt mi_nDisb = new MutableInt(nDisb); GetIntegerFromAttribute(mi_nDisb, mFASrc, "FinAidSource", "Disbursements"); nDisb = mi_nDisb.intValue(); } } //:END //:dAmountDiv = 0 dAmountDiv = 0; //:dAmount = 0 dAmount = 0; //:dAmountDiv = dAward / nDisb dAmountDiv = dAward / nDisb; //:SET CURSOR FIRST mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setFirst().toInt(); //:IF RESULT >= zCURSOR_SET if (RESULT >= zCURSOR_SET) { //:LOOP WHILE nDisb > 0 while (nDisb > 0) { //:CREATE ENTITY mFAProf.FinAidAwardDisbursement RESULT = CreateEntity(mFAProf, "FinAidAwardDisbursement", zPOS_AFTER); //:INCLUDE mFAProf.FinAidAwardPeriod FROM mFAProf.PerProfileFinAidAwardPeriod RESULT = IncludeSubobjectFromSubobject(mFAProf, "FinAidAwardPeriod", mFAProf, "PerProfileFinAidAwardPeriod", zPOS_AFTER); //:mFAProf.FinAidAwardDisbursement.AmountExpected = dAmountDiv SetAttributeFromDecimal(mFAProf, "FinAidAwardDisbursement", "AmountExpected", dAmountDiv); //:mFAProf.FinAidAwardDisbursement.DisbursementDate = mFAProf.FinAidAwardPeriod.BeginDate SetAttributeFromAttribute(mFAProf, "FinAidAwardDisbursement", "DisbursementDate", mFAProf, "FinAidAwardPeriod", "BeginDate"); //:dAmount = dAmount + dAmountDiv dAmount = dAmount + dAmountDiv; //:SET CURSOR NEXT mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setNextContinue().toInt(); ; //:nDisb = nDisb - 1 nDisb = nDisb - 1; } //:END //:IF dAmount < dAward if (dAmount < dAward) { //:dDiff = dAward - dAmount dDiff = dAward - dAmount; //:SET CURSOR FIRST mFAProf.FinAidAwardDisbursement RESULT = mFAProf.cursor("FinAidAwardDisbursement").setFirst().toInt(); //:mFAProf.FinAidAwardDisbursement.AmountExpected = mFAProf.FinAidAwardDisbursement.AmountExpected + dDiff { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf, "FinAidAwardDisbursement", "AmountExpected"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dTempDecimal_1 = dTempDecimal_0 + dDiff; SetAttributeFromDecimal(mFAProf, "FinAidAwardDisbursement", "AmountExpected", dTempDecimal_1); } //:END } //:END //:DropView( mFASrc ) DropView(mFASrc); return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_AddReturningAward(View mFAProf, int nSrcID, double dAwardAmount) { zVIEW mFASrc = new zVIEW(); //:VIEW wXferO REGISTERED AS wXferO zVIEW wXferO = new zVIEW(); int RESULT = 0; //:INTEGER nDisb int nDisb = 0; //:DECIMAL dAmountDiv double dAmountDiv = 0.0; //:DECIMAL dAmount double dAmount = 0.0; //:DECIMAL dAward double dAward = 0.0; //:DECIMAL dDiff double dDiff = 0.0; zVIEW vTempViewVar_0 = new zVIEW(); int lTempInteger_0 = 0; double dTempDecimal_0 = 0.0; double dTempDecimal_1 = 0.0; RESULT = GetViewByName(wXferO, "wXferO", mFAProf, zLEVEL_TASK); //:// activate the scholarship needed. //:// activate the finaidsrc that goes with it. //:ACTIVATE mFASrc //: WHERE mFASrc.FinAidSource.ID = nSrcID //: RESTRICTING mFASrc.FinAidAwardAssigned TO mFASrc.FinAidAwardAssigned.ID < 0 omFAProf_fnLocalBuildQual_21(mFAProf, vTempViewVar_0, nSrcID); RESULT = ActivateObjectInstance(mFASrc, "mFASrc", mFAProf, vTempViewVar_0, zSINGLE); DropView(vTempViewVar_0);//from w w w. j av a 2 s . c om //:// if there is no finaidsrc then skip this.who operation //:IF RESULT < 0 OR mFASrc.FinAidSource DOES NOT EXIST lTempInteger_0 = CheckExistenceOfEntity(mFASrc, "FinAidSource"); if (RESULT < 0 || lTempInteger_0 != 0) { //:RETURN -1 if (8 == 8) return (-1); } //:END //:SET CURSOR FIRST mFAProf.FinAidAward WHERE mFAProf.FinAidSource.ID = nSrcID RESULT = mFAProf.cursor("FinAidAward").setFirst().toInt(); if (RESULT > zCURSOR_UNCHANGED) { while (RESULT > zCURSOR_UNCHANGED && (CompareAttributeToInteger(mFAProf, "FinAidSource", "ID", nSrcID) != 0)) { RESULT = mFAProf.cursor("FinAidAward").setNextContinue().toInt(); ; } } //:IF RESULT >= zCURSOR_SET // already there. if (RESULT >= zCURSOR_SET) { //:RETURN -1 if (8 == 8) return (-1); } //:END //: //: //:CREATE ENTITY mFAProf.FinAidAward RESULT = CreateEntity(mFAProf, "FinAidAward", zPOS_AFTER); //:INCLUDE mFAProf.FinAidSource FROM mFASrc.FinAidSource RESULT = IncludeSubobjectFromSubobject(mFAProf, "FinAidSource", mFASrc, "FinAidSource", zPOS_AFTER); //:mFAProf.FinAidAward.DateOffered = wXferO.Root.dCurrentDate SetAttributeFromAttribute(mFAProf, "FinAidAward", "DateOffered", wXferO, "Root", "dCurrentDate"); //:mFAProf.FinAidAward.AwardType = mFASrc.FinAidSource.AidType SetAttributeFromAttribute(mFAProf, "FinAidAward", "AwardType", mFASrc, "FinAidSource", "AidType"); //:mFAProf.FinAidAward.Amount = dAwardAmount /// mFASrc.FinAidSource.AwardAmount SetAttributeFromDecimal(mFAProf, "FinAidAward", "Amount", dAwardAmount); //:dAward = mFAProf.FinAidAward.Amount { MutableDouble md_dAward = new MutableDouble(dAward); GetDecimalFromAttribute(md_dAward, mFAProf, "FinAidAward", "Amount"); dAward = md_dAward.doubleValue(); } //:mFAProf.FinAidAward.AwardStatus = "A" SetAttributeFromString(mFAProf, "FinAidAward", "AwardStatus", "A"); //:IF mFASrc.FinAidSource.Disbursements = "" //: OR mFASrc.FinAidSource.Disbursements = 0 if (CompareAttributeToString(mFASrc, "FinAidSource", "Disbursements", "") == 0 || CompareAttributeToInteger(mFASrc, "FinAidSource", "Disbursements", 0) == 0) { //:nDisb = 1 nDisb = 1; //:ELSE } else { //:nDisb = mFASrc.FinAidSource.Disbursements { MutableInt mi_nDisb = new MutableInt(nDisb); GetIntegerFromAttribute(mi_nDisb, mFASrc, "FinAidSource", "Disbursements"); nDisb = mi_nDisb.intValue(); } } //:END //:dAmountDiv = 0 dAmountDiv = 0; //:dAmount = 0 dAmount = 0; //:dAmountDiv = dAward / nDisb dAmountDiv = dAward / nDisb; //:SET CURSOR FIRST mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setFirst().toInt(); //:IF RESULT >= zCURSOR_SET if (RESULT >= zCURSOR_SET) { //:LOOP WHILE nDisb > 0 while (nDisb > 0) { //:CREATE ENTITY mFAProf.FinAidAwardDisbursement RESULT = CreateEntity(mFAProf, "FinAidAwardDisbursement", zPOS_AFTER); //:INCLUDE mFAProf.FinAidAwardPeriod FROM mFAProf.PerProfileFinAidAwardPeriod RESULT = IncludeSubobjectFromSubobject(mFAProf, "FinAidAwardPeriod", mFAProf, "PerProfileFinAidAwardPeriod", zPOS_AFTER); //:mFAProf.FinAidAwardDisbursement.AmountExpected = dAmountDiv SetAttributeFromDecimal(mFAProf, "FinAidAwardDisbursement", "AmountExpected", dAmountDiv); //:mFAProf.FinAidAwardDisbursement.DisbursementDate = mFAProf.FinAidAwardPeriod.BeginDate SetAttributeFromAttribute(mFAProf, "FinAidAwardDisbursement", "DisbursementDate", mFAProf, "FinAidAwardPeriod", "BeginDate"); //:dAmount = dAmount + dAmountDiv dAmount = dAmount + dAmountDiv; //:SET CURSOR NEXT mFAProf.PerProfileFinAidAwardPeriod RESULT = mFAProf.cursor("PerProfileFinAidAwardPeriod").setNextContinue().toInt(); ; //:nDisb = nDisb - 1 nDisb = nDisb - 1; } //:END //:IF dAmount < dAward if (dAmount < dAward) { //:dDiff = dAward - dAmount dDiff = dAward - dAmount; //:SET CURSOR FIRST mFAProf.FinAidAwardDisbursement RESULT = mFAProf.cursor("FinAidAwardDisbursement").setFirst().toInt(); //:mFAProf.FinAidAwardDisbursement.AmountExpected = mFAProf.FinAidAwardDisbursement.AmountExpected + dDiff { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf, "FinAidAwardDisbursement", "AmountExpected"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dTempDecimal_1 = dTempDecimal_0 + dDiff; SetAttributeFromDecimal(mFAProf, "FinAidAwardDisbursement", "AmountExpected", dTempDecimal_1); } //:END } //:END //:DropView( mFASrc ) DropView(mFASrc); return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_dTotalCredits(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) {//from w w w . ja v a 2s . com zVIEW mFAProf2 = new zVIEW(); //:DECIMAL dAmount double dAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:CreateViewFromView( mFAProf2, mFAProf ) CreateViewFromView(mFAProf2, mFAProf); //:dAmount =0 dAmount = 0; //:FOR EACH mFAProf2.PerProfileFinAidAwardPeriod RESULT = mFAProf2.cursor("PerProfileFinAidAwardPeriod").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { //:dAmount = dAmount + mFAProf2.PerProfileFinAidAwardPeriod.dCreditsPerDisbCohort { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf2, "PerProfileFinAidAwardPeriod", "dCreditsPerDisbCohort"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dAmount = dAmount + dTempDecimal_0; RESULT = mFAProf2.cursor("PerProfileFinAidAwardPeriod").setNextContinue().toInt(); ; } //:END //:DropView( mFAProf2 ) DropView(mFAProf2); //:StoreValueInRecord ( mFAProf, //: InternalEntityStructure, InternalAttribStructure, dAmount, 0) StoreValueInRecord(mFAProf, InternalEntityStructure, InternalAttribStructure, dAmount, 0); break; //: /* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_dTotalPELL_COA(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) {//w w w . j a va 2 s.com zVIEW mFAProf2 = new zVIEW(); //:DECIMAL dAmount double dAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; double dTempDecimal_1 = 0.0; double dTempDecimal_2 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:// PELL COA are all Whole Year costs. //:CreateViewFromView( mFAProf2, mFAProf ) CreateViewFromView(mFAProf2, mFAProf); //:dAmount = 0 dAmount = 0; //:FOR EACH mFAProf2.FinAidCOAItemAssigned RESULT = mFAProf2.cursor("FinAidCOAItemAssigned").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { //:IF mFAProf2.FinAidCOAItemAssigned.RevenueAmount != "" if (CompareAttributeToString(mFAProf2, "FinAidCOAItemAssigned", "RevenueAmount", "") != 0) { //:dAmount = dAmount + mFAProf2.FinAidCOAItemAssigned.RevenueAmount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf2, "FinAidCOAItemAssigned", "RevenueAmount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dAmount = dAmount + dTempDecimal_0; //:ELSE } else { //:dAmount = dAmount + mFAProf2.FinAidCOAItemAssigned.FirstTermRevenueAmount + //: mFAProf2.FinAidCOAItemAssigned.SecondTermRevenueAmount { MutableDouble md_dTempDecimal_1 = new MutableDouble(dTempDecimal_1); GetDecimalFromAttribute(md_dTempDecimal_1, mFAProf2, "FinAidCOAItemAssigned", "FirstTermRevenueAmount"); dTempDecimal_1 = md_dTempDecimal_1.doubleValue(); } { MutableDouble md_dTempDecimal_2 = new MutableDouble(dTempDecimal_2); GetDecimalFromAttribute(md_dTempDecimal_2, mFAProf2, "FinAidCOAItemAssigned", "SecondTermRevenueAmount"); dTempDecimal_2 = md_dTempDecimal_2.doubleValue(); } dAmount = dAmount + dTempDecimal_1 + dTempDecimal_2; } RESULT = mFAProf2.cursor("FinAidCOAItemAssigned").setNextContinue().toInt(); ; //:END } //:END //:DropView( mFAProf2 ) DropView(mFAProf2); //:StoreValueInRecord( mFAProf,InternalEntityStructure, //: InternalAttribStructure, dAmount, 0 ) StoreValueInRecord(mFAProf, InternalEntityStructure, InternalAttribStructure, dAmount, 0); break; //:/* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_dEarnedCreditsPrPeriod(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { double dCredits = 0.0; //:VIEW mFAProf2 BASED ON LOD mFAProf zVIEW mFAProf2 = new zVIEW(); //:STRING ( 20 ) szFinalGrade String szFinalGrade = null;/* w w w.ja v a 2s .c o m*/ //:DECIMAL FinalGrade double FinalGrade = 0.0; int RESULT = 0; int lTempInteger_0 = 0; double dTempDecimal_0 = 0.0; double dTempDecimal_1 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:dCredits = 0 dCredits = 0; //:CreateViewFromView( mFAProf2, mFAProf ) CreateViewFromView(mFAProf2, mFAProf); //:FOR EACH mFAProf2.DisplayEnrolled RESULT = mFAProf2.cursor("DisplayEnrolled").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { //:IF mFAProf2.DisplayEnrolled.Status = "C" if (CompareAttributeToString(mFAProf2, "DisplayEnrolled", "Status", "C") == 0) { //:szFinalGrade = mFAProf2.DisplayEnrolled.FinalGrade { MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0); StringBuilder sb_szFinalGrade; if (szFinalGrade == null) sb_szFinalGrade = new StringBuilder(32); else sb_szFinalGrade = new StringBuilder(szFinalGrade); GetVariableFromAttribute(sb_szFinalGrade, mi_lTempInteger_0, 'S', 21, mFAProf2, "DisplayEnrolled", "FinalGrade", "", 0); lTempInteger_0 = mi_lTempInteger_0.intValue(); szFinalGrade = sb_szFinalGrade.toString(); } //:IF szFinalGrade = "S" if (ZeidonStringCompare(szFinalGrade, 1, 0, "S", 1, 0, 21) == 0) { //:// For passed grade we count credits as earned. //:dCredits = dCredits + mFAProf2.DisplayEnrolled.CreditHours { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf2, "DisplayEnrolled", "CreditHours"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dCredits = dCredits + dTempDecimal_0; //:ELSE } else { //:// For regular grade, grade points must be a positive number. //:GetStringFromAttributeByContext( szFinalGrade, //: mFAProf2, "DisplayEnrolled", "FinalGrade", "DegreeTrackGradePointValue", 20 ) { StringBuilder sb_szFinalGrade; if (szFinalGrade == null) sb_szFinalGrade = new StringBuilder(32); else sb_szFinalGrade = new StringBuilder(szFinalGrade); GetStringFromAttributeByContext(sb_szFinalGrade, mFAProf2, "DisplayEnrolled", "FinalGrade", "DegreeTrackGradePointValue", 20); szFinalGrade = sb_szFinalGrade.toString(); } //:FinalGrade = StrToDecimal( szFinalGrade ) { ZGLOBAL1_Operation m_ZGLOBAL1_Operation = new ZGLOBAL1_Operation(mFAProf); FinalGrade = m_ZGLOBAL1_Operation.StrToDecimal(szFinalGrade); // m_ZGLOBAL1_Operation = null; // permit gc (unnecessary) } //:IF FinalGrade > 0 if (FinalGrade > 0) { //:dCredits = dCredits + mFAProf2.DisplayEnrolled.CreditHours { MutableDouble md_dTempDecimal_1 = new MutableDouble(dTempDecimal_1); GetDecimalFromAttribute(md_dTempDecimal_1, mFAProf2, "DisplayEnrolled", "CreditHours"); dTempDecimal_1 = md_dTempDecimal_1.doubleValue(); } dCredits = dCredits + dTempDecimal_1; } //:END } //:END } RESULT = mFAProf2.cursor("DisplayEnrolled").setNextContinue().toInt(); ; //:END } //:END //:DropView( mFAProf2 ) DropView(mFAProf2); //:StoreValueInRecord( mFAProf,InternalEntityStructure, //: InternalAttribStructure, dCredits, 0 ) StoreValueInRecord(mFAProf, InternalEntityStructure, InternalAttribStructure, dCredits, 0); break; //: //:/* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_ValidateFinAidAward(View mFAProf, String NameOfEntity, Integer Event, Integer State) { double TotalExpected = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; int lTempInteger_0 = 0; //:CASE Event switch (Event) { //:OF zECE_ACCEPT: case zECE_ACCEPT: //:// Make sure that the total of the "Amount Offered" Editbox is the sum of the "Expected Amount" for //:// each FinAidAwardDisbursement. //:FOR EACH mFAProf.FinAidAwardDisbursement RESULT = mFAProf.cursor("FinAidAwardDisbursement").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { //:TotalExpected = TotalExpected + mFAProf.FinAidAwardDisbursement.AmountExpected {//from w w w .j a v a 2 s . co m MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf, "FinAidAwardDisbursement", "AmountExpected"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } TotalExpected = TotalExpected + dTempDecimal_0; RESULT = mFAProf.cursor("FinAidAwardDisbursement").setNextContinue().toInt(); ; } //:END //:IF TotalExpected != mFAProf.FinAidAward.Amount if (CompareAttributeToDecimal(mFAProf, "FinAidAward", "Amount", TotalExpected) != 0) { //:MessageSend( mFAProf, "", "Accept Award", //: "The Amount Offered must be equal to the total of the Expected Amounts.", //: zMSGQ_OBJECT_CONSTRAINT_ERROR, 0 ) MessageSend(mFAProf, "", "Accept Award", "The Amount Offered must be equal to the total of the Expected Amounts.", zMSGQ_OBJECT_CONSTRAINT_ERROR, 0); //:RETURN -1 if (8 == 8) return (-1); } //:END //:IF mFAProf.FinAidAward.AwardStatus = "Y" // accepted if (CompareAttributeToString(mFAProf, "FinAidAward", "AwardStatus", "Y") == 0) { //:IF mFAProf.FinAidAward.DateAccepted = "" // OR mFAProf.FinAidAward.Amount = "" if (CompareAttributeToString(mFAProf, "FinAidAward", "DateAccepted", "") == 0) { //:MessageSend( mFAProf, "", "Accept Award", //: "The date accepted must be filled in if the Status is Accepted.", //: zMSGQ_OBJECT_CONSTRAINT_ERROR, 0 ) MessageSend(mFAProf, "", "Accept Award", "The date accepted must be filled in if the Status is Accepted.", zMSGQ_OBJECT_CONSTRAINT_ERROR, 0); //:RETURN -1 if (8 == 8) return (-1); } //:END } //:END break; //:/* end zECE_ACCEPT */ //:OF zECE_CANCEL: case zECE_CANCEL: break; //:/* end zECE_CANCEL */ //:OF zECE_CREATE: case zECE_CREATE: break; //:/* end zECE_CREATE */ //:OF zECE_DELETE: case zECE_DELETE: //:FOR EACH mFAProf.DisbFinAidAwardAssigned WITHIN mFAProf.FinAidProfile //: WHERE mFAProf.DisbFinAidAwardAssigned.ID = mFAProf.FinAidAward.ID { MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0); GetIntegerFromAttribute(mi_lTempInteger_0, mFAProf, "FinAidAward", "ID"); lTempInteger_0 = mi_lTempInteger_0.intValue(); } RESULT = mFAProf.cursor("DisbFinAidAwardAssigned").setFirst("ID", lTempInteger_0, "FinAidProfile") .toInt(); while (RESULT > zCURSOR_UNCHANGED) { //:DELETE ENTITY mFAProf.PerPeriodFinAidAwardDisbursement RESULT = DeleteEntity(mFAProf, "PerPeriodFinAidAwardDisbursement", zPOS_NEXT); RESULT = mFAProf.cursor("DisbFinAidAwardAssigned").setNextContinue().toInt(); ; } //:END break; //:/* end zECE_DELETE */ //:OF zECE_EXCLUDE: case zECE_EXCLUDE: break; //:/* end zECE_EXCLUDE */ //:OF zECE_INCLUDE: case zECE_INCLUDE: break; } //: /* end zECE_INCLUDE */ //:END /* case */ return (0); // END }