List of usage examples for org.apache.commons.lang3.mutable MutableDouble MutableDouble
public MutableDouble(final String value) throws NumberFormatException
From source file:com.quinsoft.swauopencuas.ZGLOBAL2_Operation.java
public int CalculateTotalCOA(View qFAProf, MutableDouble ReturnedTotal) { zVIEW qFAProf2 = new zVIEW(); //:DECIMAL dAmount double dAmount = 0.0; //:STRING ( 20 ) szDecimal String szDecimal = null;//from w w w . j av a 2 s .c om int RESULT = 0; double dTempDecimal_0 = 0.0; double dTempDecimal_1 = 0.0; double dTempDecimal_2 = 0.0; double dTempDecimal_3 = 0.0; double dTempDecimal_4 = 0.0; double dTempDecimal_5 = 0.0; double dTempDecimal_6 = 0.0; double dTempDecimal_7 = 0.0; double dTempDecimal_8 = 0.0; //:// Compute Total COA for passed in view, which is here name qFAProf, but can be any view with the //:// required COA subobject structure. //:// Regular COA depends on the COA Option values as follows. //:// Whole Year Option: Total is simply total of all Whole Year costs. //:// The other values are additive, meaning we simply add the costs for the option as follows: //:// 1st Term: If FirstTermRevenueAmount is specified, use it. Otherwise, use 50% of Whole Year costs. //:// 2nd Term: If SecondTermRevenueAmount is specified, use it. Otherwise, use 50% of Whole Year costs. //:// 3rd Term: Always use ThirdTermRevenueAmount, even if it is 0. //:CreateViewFromView( qFAProf2, qFAProf ) CreateViewFromView(qFAProf2, qFAProf); //:dAmount = 0 dAmount = 0; //:IF qFAProf.FinAidProfile.COA_OptionWholeYearFlag = "Y" if (CompareAttributeToString(qFAProf, "FinAidProfile", "COA_OptionWholeYearFlag", "Y") == 0) { //:// This is Whole Year only. //:FOR EACH qFAProf2.FinAidCOAItemAssigned RESULT = SetCursorFirstEntity(qFAProf2, "FinAidCOAItemAssigned", ""); while (RESULT > zCURSOR_UNCHANGED) { //:IF qFAProf2.FinAidCOAItemAssigned.RevenueAmount != "" if (CompareAttributeToString(qFAProf2, "FinAidCOAItemAssigned", "RevenueAmount", "") != 0) { //:dAmount = dAmount + qFAProf2.FinAidCOAItemAssigned.RevenueAmount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, qFAProf2, "FinAidCOAItemAssigned", "RevenueAmount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dAmount = dAmount + dTempDecimal_0; //:ELSE } else { //:dAmount = dAmount + qFAProf2.FinAidCOAItemAssigned.FirstTermRevenueAmount + //: qFAProf2.FinAidCOAItemAssigned.SecondTermRevenueAmount { MutableDouble md_dTempDecimal_1 = new MutableDouble(dTempDecimal_1); GetDecimalFromAttribute(md_dTempDecimal_1, qFAProf2, "FinAidCOAItemAssigned", "FirstTermRevenueAmount"); dTempDecimal_1 = md_dTempDecimal_1.doubleValue(); } { MutableDouble md_dTempDecimal_2 = new MutableDouble(dTempDecimal_2); GetDecimalFromAttribute(md_dTempDecimal_2, qFAProf2, "FinAidCOAItemAssigned", "SecondTermRevenueAmount"); dTempDecimal_2 = md_dTempDecimal_2.doubleValue(); } dAmount = dAmount + dTempDecimal_1 + dTempDecimal_2; } //:END //:IF qFAProf2.FinAidProfile.COA_OptionThirdTermFlag = "Y" if (CompareAttributeToString(qFAProf2, "FinAidProfile", "COA_OptionThirdTermFlag", "Y") == 0) { //:dAmount = dAmount + qFAProf2.FinAidCOAItemAssigned.ThirdTermRevenueAmount { MutableDouble md_dTempDecimal_3 = new MutableDouble(dTempDecimal_3); GetDecimalFromAttribute(md_dTempDecimal_3, qFAProf2, "FinAidCOAItemAssigned", "ThirdTermRevenueAmount"); dTempDecimal_3 = md_dTempDecimal_3.doubleValue(); } dAmount = dAmount + dTempDecimal_3; } RESULT = SetCursorNextEntity(qFAProf2, "FinAidCOAItemAssigned", ""); //:END } //:END //:ELSE } else { //:// Add other values together. //:FOR EACH qFAProf2.FinAidCOAItemAssigned RESULT = SetCursorFirstEntity(qFAProf2, "FinAidCOAItemAssigned", ""); while (RESULT > zCURSOR_UNCHANGED) { //:// 1st Term //:IF qFAProf.FinAidProfile.COA_OptionFirstTermFlag = "Y" if (CompareAttributeToString(qFAProf, "FinAidProfile", "COA_OptionFirstTermFlag", "Y") == 0) { //:IF qFAProf2.FinAidCOAItemAssigned.FirstTermRevenueAmount != "" if (CompareAttributeToString(qFAProf2, "FinAidCOAItemAssigned", "FirstTermRevenueAmount", "") != 0) { //:// Add FirstTermRevenueAmount //:dAmount = dAmount + qFAProf2.FinAidCOAItemAssigned.FirstTermRevenueAmount { MutableDouble md_dTempDecimal_4 = new MutableDouble(dTempDecimal_4); GetDecimalFromAttribute(md_dTempDecimal_4, qFAProf2, "FinAidCOAItemAssigned", "FirstTermRevenueAmount"); dTempDecimal_4 = md_dTempDecimal_4.doubleValue(); } dAmount = dAmount + dTempDecimal_4; //:ELSE } else { //:// Add 50% of RevenueAmount //:dAmount = dAmount + (qFAProf2.FinAidCOAItemAssigned.RevenueAmount / 2) { MutableDouble md_dTempDecimal_5 = new MutableDouble(dTempDecimal_5); GetDecimalFromAttribute(md_dTempDecimal_5, qFAProf2, "FinAidCOAItemAssigned", "RevenueAmount"); dTempDecimal_5 = md_dTempDecimal_5.doubleValue(); } dAmount = dAmount + (dTempDecimal_5 / 2); } //:END } //:END //:// 2nd Term //:IF qFAProf.FinAidProfile.COA_OptionSecondTermFlag = "Y" if (CompareAttributeToString(qFAProf, "FinAidProfile", "COA_OptionSecondTermFlag", "Y") == 0) { //:IF qFAProf2.FinAidCOAItemAssigned.SecondTermRevenueAmount != "" if (CompareAttributeToString(qFAProf2, "FinAidCOAItemAssigned", "SecondTermRevenueAmount", "") != 0) { //:// Add SecondTermRevenueAmount //:dAmount = dAmount + qFAProf2.FinAidCOAItemAssigned.SecondTermRevenueAmount { MutableDouble md_dTempDecimal_6 = new MutableDouble(dTempDecimal_6); GetDecimalFromAttribute(md_dTempDecimal_6, qFAProf2, "FinAidCOAItemAssigned", "SecondTermRevenueAmount"); dTempDecimal_6 = md_dTempDecimal_6.doubleValue(); } dAmount = dAmount + dTempDecimal_6; //:ELSE } else { //:// Add 50% of RevenueAmount //:dAmount = dAmount + (qFAProf2.FinAidCOAItemAssigned.RevenueAmount / 2) { MutableDouble md_dTempDecimal_7 = new MutableDouble(dTempDecimal_7); GetDecimalFromAttribute(md_dTempDecimal_7, qFAProf2, "FinAidCOAItemAssigned", "RevenueAmount"); dTempDecimal_7 = md_dTempDecimal_7.doubleValue(); } dAmount = dAmount + (dTempDecimal_7 / 2); } //:END } //:END //:// 3rd Term //:IF qFAProf.FinAidProfile.COA_OptionThirdTermFlag = "Y" if (CompareAttributeToString(qFAProf, "FinAidProfile", "COA_OptionThirdTermFlag", "Y") == 0) { //:// Always add ThirdTermRevenueAmount //:dAmount = dAmount + qFAProf2.FinAidCOAItemAssigned.ThirdTermRevenueAmount { MutableDouble md_dTempDecimal_8 = new MutableDouble(dTempDecimal_8); GetDecimalFromAttribute(md_dTempDecimal_8, qFAProf2, "FinAidCOAItemAssigned", "ThirdTermRevenueAmount"); dTempDecimal_8 = md_dTempDecimal_8.doubleValue(); } dAmount = dAmount + dTempDecimal_8; } RESULT = SetCursorNextEntity(qFAProf2, "FinAidCOAItemAssigned", ""); //:END } //: //:END } //:END //:ReturnedTotal = dAmount ReturnedTotal.setValue(dAmount); //:DropView( qFAProf2 ) DropView(qFAProf2); return (0); // END }
From source file:com.quinsoft.zencas.mFAProf_Object.java
public int omFAProf_dTotalNeed(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) {//from w ww . j a v a2 s . c o m double dAmount = 0.0; //:DECIMAL dAmountEFC double dAmountEFC = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:IF mFAProf.FinAidProfile.EFC = "" if (CompareAttributeToString(mFAProf, "FinAidProfile", "EFC", "") == 0) { //:dAmount = 0 dAmount = 0; //:ELSE } else { //:dAmountEFC = mFAProf.FinAidProfile.EFC { MutableDouble md_dAmountEFC = new MutableDouble(dAmountEFC); GetDecimalFromAttribute(md_dAmountEFC, mFAProf, "FinAidProfile", "EFC"); dAmountEFC = md_dAmountEFC.doubleValue(); } //:dAmount = mFAProf.FinAidProfile.dTotalCOA { MutableDouble md_dAmount = new MutableDouble(dAmount); GetDecimalFromAttribute(md_dAmount, mFAProf, "FinAidProfile", "dTotalCOA"); dAmount = md_dAmount.doubleValue(); } //:dAmount = dAmount - dAmountEFC dAmount = dAmount - dAmountEFC; //:IF dAmount < 0 if (dAmount < 0) { //:dAmount = 0 dAmount = 0; } //:END } //: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_dTotalRemainingNeed(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { double dAmount = 0.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: //:dAmount = mFAProf.FinAidProfile.dTotalCOA - //: mFAProf.FinAidProfile.dTotalAward - //: mFAProf.FinAidProfile.dTotalSelfHelpAward {/*from w ww. j av a 2 s . c o m*/ MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf, "FinAidProfile", "dTotalCOA"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } { MutableDouble md_dTempDecimal_1 = new MutableDouble(dTempDecimal_1); GetDecimalFromAttribute(md_dTempDecimal_1, mFAProf, "FinAidProfile", "dTotalAward"); dTempDecimal_1 = md_dTempDecimal_1.doubleValue(); } { MutableDouble md_dTempDecimal_2 = new MutableDouble(dTempDecimal_2); GetDecimalFromAttribute(md_dTempDecimal_2, mFAProf, "FinAidProfile", "dTotalSelfHelpAward"); dTempDecimal_2 = md_dTempDecimal_2.doubleValue(); } dAmount = dTempDecimal_0 - dTempDecimal_1 - dTempDecimal_2; //: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.mSAProf_Object.java
public int omSAProf_GenerateReverseCharge(View mSAProf) { zVIEW wXferO = new zVIEW(); int RESULT = 0; //:VIEW mSAProf2 BASED ON LOD mSAProf zVIEW mSAProf2 = new zVIEW(); //:VIEW mBatEdit BASED ON LOD mBatEdit zVIEW mBatEdit = new zVIEW(); //:VIEW mSAChrgT BASED ON LOD mSAChrgT zVIEW mSAChrgT = new zVIEW(); //:VIEW lSATermLST BASED ON LOD lTermLST zVIEW lSATermLST = new zVIEW(); //:VIEW mSARuleS BASED ON LOD mSARuleS zVIEW mSARuleS = new zVIEW(); //:INTEGER nRC int nRC = 0;/* w ww .j a v a 2s. c o m*/ //:DECIMAL dAmount double dAmount = 0.0; //:STRING ( 18 ) szDate String szDate = null; //:STRING ( 4 ) szYear String szYear = null; int lTempInteger_0 = 0; zVIEW vTempViewVar_0 = new zVIEW(); zVIEW vTempViewVar_1 = new zVIEW(); int lTempInteger_1 = 0; int lTempInteger_2 = 0; RESULT = GetViewByName(wXferO, "wXferO", mSAProf, zLEVEL_TASK); //:szDate = wXferO.Root.dCurrentDate { MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0); StringBuilder sb_szDate; if (szDate == null) sb_szDate = new StringBuilder(32); else sb_szDate = new StringBuilder(szDate); GetVariableFromAttribute(sb_szDate, mi_lTempInteger_0, 'S', 19, wXferO, "Root", "dCurrentDate", "", 0); lTempInteger_0 = mi_lTempInteger_0.intValue(); szDate = sb_szDate.toString(); } //:ACTIVATE mBatEdit //: WHERE mBatEdit.BatchEditList.BatchEditDate = szDate //: AND mBatEdit.BatchEditList.Posted = "" omSAProf_fnLocalBuildQual_6(mSAProf, vTempViewVar_0, szDate); RESULT = ActivateObjectInstance(mBatEdit, "mBatEdit", mSAProf, vTempViewVar_0, zSINGLE); DropView(vTempViewVar_0); //:IF RESULT > 0 if (RESULT > 0) { //:NAME VIEW mBatEdit "mBatEdit" SetNameForView(mBatEdit, "mBatEdit", null, zLEVEL_TASK); //:ELSE } else { //:ACTIVATE mBatEdit EMPTY RESULT = ActivateEmptyObjectInstance(mBatEdit, "mBatEdit", mSAProf, zSINGLE); //:CREATE ENTITY mBatEdit.BatchEditList RESULT = CreateEntity(mBatEdit, "BatchEditList", zPOS_AFTER); //:mBatEdit.BatchEditList.BatchEditDate = szDate SetAttributeFromString(mBatEdit, "BatchEditList", "BatchEditDate", szDate); //:COMMIT mBatEdit RESULT = CommitObjectInstance(mBatEdit); //:DropView( mBatEdit ) DropView(mBatEdit); //:ACTIVATE mBatEdit //: WHERE mBatEdit.BatchEditList.BatchEditDate = szDate //: AND mBatEdit.BatchEditList.Posted = "" omSAProf_fnLocalBuildQual_7(mSAProf, vTempViewVar_1, szDate); RESULT = ActivateObjectInstance(mBatEdit, "mBatEdit", mSAProf, vTempViewVar_1, zSINGLE); DropView(vTempViewVar_1); //:NAME VIEW mBatEdit "mBatEdit" SetNameForView(mBatEdit, "mBatEdit", null, zLEVEL_TASK); } //:END //:CreateViewFromView( mSAProf2, mSAProf ) CreateViewFromView(mSAProf2, mSAProf); //:CREATE ENTITY mSAProf.StudentAccountTransApplied RESULT = CreateEntity(mSAProf, "StudentAccountTransApplied", zPOS_AFTER); //:INCLUDE mSAProf.SATransactionCode FROM mSAProf2.SATransactionCode RESULT = IncludeSubobjectFromSubobject(mSAProf, "SATransactionCode", mSAProf2, "SATransactionCode", zPOS_AFTER); //:INCLUDE mSAProf.DebitGLChartEntry FROM mSAProf2.DebitGLChartEntry RESULT = IncludeSubobjectFromSubobject(mSAProf, "DebitGLChartEntry", mSAProf2, "DebitGLChartEntry", zPOS_AFTER); //:INCLUDE mSAProf.CreditGLChartEntry FROM mSAProf2.CreditGLChartEntry RESULT = IncludeSubobjectFromSubobject(mSAProf, "CreditGLChartEntry", mSAProf2, "CreditGLChartEntry", zPOS_AFTER); //:IF mSAProf2.AppliedBillingPeriod EXISTS lTempInteger_1 = CheckExistenceOfEntity(mSAProf2, "AppliedBillingPeriod"); if (lTempInteger_1 == 0) { //:INCLUDE mSAProf.AppliedBillingPeriod FROM mSAProf2.AppliedBillingPeriod RESULT = IncludeSubobjectFromSubobject(mSAProf, "AppliedBillingPeriod", mSAProf2, "AppliedBillingPeriod", zPOS_AFTER); } //:END //:SetMatchingAttributesByName( mSAProf, "StudentAccountTransApplied", //: mSAProf2, "StudentAccountTransApplied", zSET_NOTNULL ) SetMatchingAttributesByName(mSAProf, "StudentAccountTransApplied", mSAProf2, "StudentAccountTransApplied", zSET_NOTNULL); //:mSAProf.StudentAccountTransApplied.DatePosted = "" SetAttributeFromString(mSAProf, "StudentAccountTransApplied", "DatePosted", ""); //:mSAProf.StudentAccountTransApplied.Posted = "" SetAttributeFromString(mSAProf, "StudentAccountTransApplied", "Posted", ""); //:mSAProf.StudentAccountTransApplied.Journal = "ADJ" SetAttributeFromString(mSAProf, "StudentAccountTransApplied", "Journal", "ADJ"); //:mSAProf.StudentAccountTransApplied.DateSentGL = "" SetAttributeFromString(mSAProf, "StudentAccountTransApplied", "DateSentGL", ""); //:dAmount = mSAProf2.StudentAccountTransApplied.Amount { MutableDouble md_dAmount = new MutableDouble(dAmount); GetDecimalFromAttribute(md_dAmount, mSAProf2, "StudentAccountTransApplied", "Amount"); dAmount = md_dAmount.doubleValue(); } //:dAmount = dAmount * -1 dAmount = dAmount * -1; //:mSAProf.StudentAccountTransApplied.Amount = dAmount SetAttributeFromDecimal(mSAProf, "StudentAccountTransApplied", "Amount", dAmount); //:// Tie original Transaction to reversal entry and set date for 1098 generation. //:szDate = mSAProf2.StudentAccountTransApplied.TransactionDate { MutableInt mi_lTempInteger_2 = new MutableInt(lTempInteger_2); StringBuilder sb_szDate; if (szDate == null) sb_szDate = new StringBuilder(32); else sb_szDate = new StringBuilder(szDate); GetVariableFromAttribute(sb_szDate, mi_lTempInteger_2, 'S', 19, mSAProf2, "StudentAccountTransApplied", "TransactionDate", "", 0); lTempInteger_2 = mi_lTempInteger_2.intValue(); szDate = sb_szDate.toString(); } //:szYear = szDate { StringBuilder sb_szYear; if (szYear == null) sb_szYear = new StringBuilder(32); else sb_szYear = new StringBuilder(szYear); ZeidonStringCopy(sb_szYear, 1, 0, szDate, 1, 0, 5); szYear = sb_szYear.toString(); } //:mSAProf.StudentAccountTransApplied.Tx1098_RefundAppliedYear = szYear SetAttributeFromString(mSAProf, "StudentAccountTransApplied", "Tx1098_RefundAppliedYear", szYear); //:INCLUDE mSAProf.AdjustedSATransApplied FROM mSAProf2.StudentAccountTransApplied RESULT = IncludeSubobjectFromSubobject(mSAProf, "AdjustedSATransApplied", mSAProf2, "StudentAccountTransApplied", zPOS_AFTER); //:SetAttributeFromCurrentDateTime( mSAProf, "StudentAccountTransApplied", "DateEntered" ) { ZGLOBAL1_Operation m_ZGLOBAL1_Operation = new ZGLOBAL1_Operation(mSAProf); m_ZGLOBAL1_Operation.SetAttributeFromCurrentDateTime(mSAProf, "StudentAccountTransApplied", "DateEntered"); // m_ZGLOBAL1_Operation = null; // permit gc (unnecessary) } //:SetAttributeFromCurrentDateTime( mSAProf, "StudentAccountTransApplied", "TransactionDate" ) { ZGLOBAL1_Operation m_ZGLOBAL1_Operation = new ZGLOBAL1_Operation(mSAProf); m_ZGLOBAL1_Operation.SetAttributeFromCurrentDateTime(mSAProf, "StudentAccountTransApplied", "TransactionDate"); // m_ZGLOBAL1_Operation = null; // permit gc (unnecessary) } //:DropView( mSAProf2 ) DropView(mSAProf2); return (0); // // END }
From source file:com.quinsoft.zencas.mStudenC_Object.java
public int omStudenC_BuildCurrentSchedule(View mStudenC) { zVIEW lTermLST = new zVIEW(); int RESULT = 0; //:VIEW lTermLST2 BASED ON LOD lTermLST zVIEW lTermLST2 = new zVIEW(); //:VIEW mTestView zVIEW mTestView = new zVIEW(); //:VIEW wXferO REGISTERED AS wXferO zVIEW wXferO = new zVIEW(); //:DECIMAL TotalTermCredits double TotalTermCredits = 0.0; //:DECIMAL TotalYearCredits double TotalYearCredits = 0.0; //:STRING ( 20 ) szDecimalString String szDecimalString = null; //:STRING ( 254 ) szMeetingSchedule String szMeetingSchedule = null; //:STRING ( 200 ) szMsg String szMsg = null;//ww w . ja va 2 s .c om //:STRING ( 20 ) szExternalStatus String szExternalStatus = null; //:STRING ( 20 ) szRanking String szRanking = null; //:STRING ( 20 ) szSemester String szSemester = null; //:STRING ( 1 ) FoundFlag String FoundFlag = null; //:STRING ( 1 ) TotalEntryFlag String TotalEntryFlag = null; //:INTEGER Count int Count = 0; //:INTEGER LastTermID int LastTermID = 0; //:SHORT nRC int nRC = 0; int lTempInteger_0 = 0; String szTempString_0 = null; String szTempString_1 = null; String szTempString_2 = null; double dTempDecimal_0 = 0.0; double dTempDecimal_1 = 0.0; int lTempInteger_1 = 0; int lTempInteger_2 = 0; RESULT = GetViewByName(lTermLST, "lTermLST", mStudenC, zLEVEL_TASK); RESULT = GetViewByName(wXferO, "wXferO", mStudenC, zLEVEL_TASK); //:// Create the derived current schedule path (CurrentScheduleEntry) for the current year (StudentScheduleCollegeYear). //:// For each Term, we will create a CurrentScheduleEntryTerm entity, with a null entry between Terms. We will also //:// create a CurrentScheduleEntryTerm entry to hold each CurrentClass entity. //:// Note that this routine first adds all entries, including drops and withdrawns. Drops are later removed by the //:// calling operation. //:CreateViewFromView( lTermLST2, lTermLST ) CreateViewFromView(lTermLST2, lTermLST); //:NAME VIEW mStudenC "mStudenCLoading" SetNameForView(mStudenC, "mStudenCLoading", null, zLEVEL_TASK); //:// Delete any previous entries. //:FOR EACH mStudenC.CurrentScheduleEntry RESULT = SetCursorFirstEntity(mStudenC, "CurrentScheduleEntry", ""); while (RESULT > zCURSOR_UNCHANGED) { //:DELETE ENTITY mStudenC.CurrentScheduleEntry NONE RESULT = DeleteEntity(mStudenC, "CurrentScheduleEntry", zREPOS_NONE); RESULT = SetCursorNextEntity(mStudenC, "CurrentScheduleEntry", ""); } //:END //:// Exit if CollegeYear is not selected. //:IF wXferO.StudentScheduleCollegeYear DOES NOT EXIST lTempInteger_0 = CheckExistenceOfEntity(wXferO, "StudentScheduleCollegeYear"); if (lTempInteger_0 != 0) { //:RETURN -1 if (8 == 8) return (-1); } //:END //:// Before creating the entries, order the Registration entries so the schedules will come out in Course //:// Number order within the Semester within the Year. //:OrderRegistrationRecs( mStudenC ) omStudenC_OrderRegistrationRecs(mStudenC); //:// Also build the list of Semesters for the Year in Semester Order. First delete prior members. //:FOR EACH wXferO.StudentScheduleCollegeTerm RESULT = SetCursorFirstEntity(wXferO, "StudentScheduleCollegeTerm", ""); while (RESULT > zCURSOR_UNCHANGED) { //:EXCLUDE wXferO.StudentScheduleCollegeTerm NONE RESULT = ExcludeEntity(wXferO, "StudentScheduleCollegeTerm", zREPOS_NONE); RESULT = SetCursorNextEntity(wXferO, "StudentScheduleCollegeTerm", ""); } //:END //:FOR EACH lTermLST2.CollegeTerm WHERE lTermLST2.CollegeYear.ID = wXferO.StudentScheduleCollegeYear.ID RESULT = SetCursorFirstEntity(lTermLST2, "CollegeTerm", ""); while (RESULT > zCURSOR_UNCHANGED) { if (CompareAttributeToAttribute(lTermLST2, "CollegeYear", "ID", wXferO, "StudentScheduleCollegeYear", "ID") == 0) { //:INCLUDE wXferO.StudentScheduleCollegeTerm FROM lTermLST2.CollegeTerm RESULT = IncludeSubobjectFromSubobject(wXferO, "StudentScheduleCollegeTerm", lTermLST2, "CollegeTerm", zPOS_AFTER); } RESULT = SetCursorNextEntity(lTermLST2, "CollegeTerm", ""); } //:END //:OrderEntityForView( wXferO, "StudentScheduleCollegeTerm", "Semester A" ) OrderEntityForView(wXferO, "StudentScheduleCollegeTerm", "Semester A"); //:// Create Term entries, one each for Fall, January, Spring and Summer, etc. //:// Add a blank line between entries. //:Count = 0 Count = 0; //:FOR EACH wXferO.StudentScheduleCollegeTerm RESULT = SetCursorFirstEntity(wXferO, "StudentScheduleCollegeTerm", ""); while (RESULT > zCURSOR_UNCHANGED) { //:Count = Count + 1 Count = Count + 1; //:IF Count > 1 if (Count > 1) { //:CREATE ENTITY mStudenC.CurrentScheduleEntry RESULT = CreateEntity(mStudenC, "CurrentScheduleEntry", zPOS_AFTER); } //:END //:CREATE ENTITY mStudenC.CurrentScheduleEntry RESULT = CreateEntity(mStudenC, "CurrentScheduleEntry", zPOS_AFTER); //:GetStringFromAttributeByContext( szSemester, wXferO, "StudentScheduleCollegeTerm", "Semester", "", 20 ) { StringBuilder sb_szSemester; if (szSemester == null) sb_szSemester = new StringBuilder(32); else sb_szSemester = new StringBuilder(szSemester); GetStringFromAttributeByContext(sb_szSemester, wXferO, "StudentScheduleCollegeTerm", "Semester", "", 20); szSemester = sb_szSemester.toString(); } //:mStudenC.CurrentScheduleEntry.YearSemester = wXferO.StudentScheduleCollegeYear.Year + " " + szSemester { StringBuilder sb_szTempString_0; if (szTempString_0 == null) sb_szTempString_0 = new StringBuilder(32); else sb_szTempString_0 = new StringBuilder(szTempString_0); GetStringFromAttribute(sb_szTempString_0, wXferO, "StudentScheduleCollegeYear", "Year"); szTempString_0 = sb_szTempString_0.toString(); } { StringBuilder sb_szTempString_0; if (szTempString_0 == null) sb_szTempString_0 = new StringBuilder(32); else sb_szTempString_0 = new StringBuilder(szTempString_0); ZeidonStringConcat(sb_szTempString_0, 1, 0, " ", 1, 0, 21); szTempString_0 = sb_szTempString_0.toString(); } { StringBuilder sb_szTempString_0; if (szTempString_0 == null) sb_szTempString_0 = new StringBuilder(32); else sb_szTempString_0 = new StringBuilder(szTempString_0); ZeidonStringConcat(sb_szTempString_0, 1, 0, szSemester, 1, 0, 21); szTempString_0 = sb_szTempString_0.toString(); } SetAttributeFromString(mStudenC, "CurrentScheduleEntry", "YearSemester", szTempString_0); RESULT = SetCursorNextEntity(wXferO, "StudentScheduleCollegeTerm", ""); } //:END //:// Set IDs and make sure Term has been defined. //:FOR EACH mStudenC.CurrentScheduleEntry WHERE mStudenC.CurrentScheduleEntry.YearSemester != "" RESULT = SetCursorFirstEntity(mStudenC, "CurrentScheduleEntry", ""); while (RESULT > zCURSOR_UNCHANGED) { if (CompareAttributeToString(mStudenC, "CurrentScheduleEntry", "YearSemester", "") != 0) { //:SET CURSOR FIRST lTermLST2.CollegeTerm WHERE lTermLST2.CollegeTerm.YearSemester = mStudenC.CurrentScheduleEntry.YearSemester { StringBuilder sb_szTempString_1; if (szTempString_1 == null) sb_szTempString_1 = new StringBuilder(32); else sb_szTempString_1 = new StringBuilder(szTempString_1); GetStringFromAttribute(sb_szTempString_1, mStudenC, "CurrentScheduleEntry", "YearSemester"); szTempString_1 = sb_szTempString_1.toString(); } RESULT = SetCursorFirstEntityByString(lTermLST2, "CollegeTerm", "YearSemester", szTempString_1, ""); //:IF RESULT >= zCURSOR_SET if (RESULT >= zCURSOR_SET) { //:mStudenC.CurrentScheduleEntry.wCollegeTermID = lTermLST2.CollegeTerm.ID SetAttributeFromAttribute(mStudenC, "CurrentScheduleEntry", "wCollegeTermID", lTermLST2, "CollegeTerm", "ID"); } } RESULT = SetCursorNextEntity(mStudenC, "CurrentScheduleEntry", ""); //:END } //:END //:// Add registered entries. //:TotalTermCredits = 0 TotalTermCredits = 0; //:TotalYearCredits = 0 TotalYearCredits = 0; //:LastTermID = 0 LastTermID = 0; //:Count = 0 Count = 0; //:FOR EACH mStudenC.RegistrationClass WITHIN mStudenC.Student RESULT = SetCursorFirstEntity(mStudenC, "RegistrationClass", "Student"); while (RESULT > zCURSOR_UNCHANGED) { //:IF mStudenC.Registration.wCollegeYearID = wXferO.StudentScheduleCollegeYear.ID if (CompareAttributeToAttribute(mStudenC, "Registration", "wCollegeYearID", wXferO, "StudentScheduleCollegeYear", "ID") == 0) { //:IF mStudenC.Registration.wCollegeTermID != LastTermID if (CompareAttributeToInteger(mStudenC, "Registration", "wCollegeTermID", LastTermID) != 0) { //:Count = Count + 1 Count = Count + 1; //:IF Count > 1 if (Count > 1) { //:// Create Totals entry. //:CREATE ENTITY mStudenC.CurrentScheduleEntry RESULT = CreateEntity(mStudenC, "CurrentScheduleEntry", zPOS_AFTER); //:CREATE ENTITY mStudenC.CurrentClass RESULT = CreateEntity(mStudenC, "CurrentClass", zPOS_AFTER); //:CREATE ENTITY mStudenC.CurrentCourse RESULT = CreateEntity(mStudenC, "CurrentCourse", zPOS_AFTER); //:mStudenC.CurrentCourse.Title = "Term Totals: " SetAttributeFromString(mStudenC, "CurrentCourse", "Title", "Term Totals: "); //:mStudenC.CurrentClass.wStudentCreditHours = TotalTermCredits SetAttributeFromDecimal(mStudenC, "CurrentClass", "wStudentCreditHours", TotalTermCredits); } //:END //:SET CURSOR FIRST mStudenC.CurrentScheduleEntry //: WHERE mStudenC.CurrentScheduleEntry.YearSemester = mStudenC.Registration.wCollegeYearSemester { StringBuilder sb_szTempString_2; if (szTempString_2 == null) sb_szTempString_2 = new StringBuilder(32); else sb_szTempString_2 = new StringBuilder(szTempString_2); GetStringFromAttribute(sb_szTempString_2, mStudenC, "Registration", "wCollegeYearSemester"); szTempString_2 = sb_szTempString_2.toString(); } RESULT = SetCursorFirstEntityByString(mStudenC, "CurrentScheduleEntry", "YearSemester", szTempString_2, ""); //:IF RESULT < zCURSOR_SET if (RESULT < zCURSOR_SET) { //:IssueError( mStudenC,0,0, "Couldn't position on Semester" ) IssueError(mStudenC, 0, 0, "Couldn't position on Semester"); } //:END //:TotalTermCredits = 0 TotalTermCredits = 0; //:LastTermID = mStudenC.Registration.wCollegeTermID { MutableInt mi_LastTermID = new MutableInt(LastTermID); GetIntegerFromAttribute(mi_LastTermID, mStudenC, "Registration", "wCollegeTermID"); LastTermID = mi_LastTermID.intValue(); } //:mStudenC.CurrentScheduleEntry.wCollegeTermID = LastTermID SetAttributeFromInteger(mStudenC, "CurrentScheduleEntry", "wCollegeTermID", LastTermID); } //:END //:// Create the Class entry. //:CREATE ENTITY mStudenC.CurrentScheduleEntry RESULT = CreateEntity(mStudenC, "CurrentScheduleEntry", zPOS_AFTER); //:mStudenC.CurrentScheduleEntry.wDroppedDate = mStudenC.Registration.DroppedDate SetAttributeFromAttribute(mStudenC, "CurrentScheduleEntry", "wDroppedDate", mStudenC, "Registration", "DroppedDate"); //:INCLUDE mStudenC.CurrentClass FROM mStudenC.RegistrationClass RESULT = IncludeSubobjectFromSubobject(mStudenC, "CurrentClass", mStudenC, "RegistrationClass", zPOS_AFTER); //:mStudenC.CurrentClass.wMidtermGrade = mStudenC.Registration.MidtermGrade SetAttributeFromAttribute(mStudenC, "CurrentClass", "wMidtermGrade", mStudenC, "Registration", "MidtermGrade"); //:mStudenC.CurrentClass.wFinalGrade = mStudenC.Registration.FinalGrade SetAttributeFromAttribute(mStudenC, "CurrentClass", "wFinalGrade", mStudenC, "Registration", "FinalGrade"); //:mStudenC.CurrentClass.wTakingClassType = mStudenC.Registration.TakingClassType SetAttributeFromAttribute(mStudenC, "CurrentClass", "wTakingClassType", mStudenC, "Registration", "TakingClassType"); //:GetStringFromAttributeByContext( szExternalStatus, //: mStudenC, "Registration", "Status", "", 20 ) { StringBuilder sb_szExternalStatus; if (szExternalStatus == null) sb_szExternalStatus = new StringBuilder(32); else sb_szExternalStatus = new StringBuilder(szExternalStatus); GetStringFromAttributeByContext(sb_szExternalStatus, mStudenC, "Registration", "Status", "", 20); szExternalStatus = sb_szExternalStatus.toString(); } //:mStudenC.CurrentClass.wStatus = szExternalStatus SetAttributeFromString(mStudenC, "CurrentClass", "wStatus", szExternalStatus); //:mStudenC.CurrentClass.wCourseTitle = mStudenC.Registration.wCourseTitle SetAttributeFromAttribute(mStudenC, "CurrentClass", "wCourseTitle", mStudenC, "Registration", "wCourseTitle"); //:mStudenC.CurrentClass.wCourseSection = mStudenC.Registration.dClassNumber SetAttributeFromAttribute(mStudenC, "CurrentClass", "wCourseSection", mStudenC, "Registration", "dClassNumber"); //:mStudenC.CurrentClass.wPreReqsNotMet = mStudenC.Registration.PrereqsNotMet SetAttributeFromAttribute(mStudenC, "CurrentClass", "wPreReqsNotMet", mStudenC, "Registration", "PrereqsNotMet"); //:// In all cases we will total the following entries. //:TotalEntryFlag = "" { StringBuilder sb_TotalEntryFlag; if (TotalEntryFlag == null) sb_TotalEntryFlag = new StringBuilder(32); else sb_TotalEntryFlag = new StringBuilder(TotalEntryFlag); ZeidonStringCopy(sb_TotalEntryFlag, 1, 0, "", 1, 0, 2); TotalEntryFlag = sb_TotalEntryFlag.toString(); } //:IF mStudenC.Registration.Status = "R" OR // Registered //: mStudenC.Registration.Status = "T" OR // Completed //: mStudenC.Registration.Status = "C" OR // Currently Taking //: mStudenC.Registration.Status = "F" OR // Transferred //: mStudenC.Registration.Status = "X" // Legacy Transferred if (CompareAttributeToString(mStudenC, "Registration", "Status", "R") == 0 || CompareAttributeToString(mStudenC, "Registration", "Status", "T") == 0 || CompareAttributeToString(mStudenC, "Registration", "Status", "C") == 0 || CompareAttributeToString(mStudenC, "Registration", "Status", "F") == 0 || CompareAttributeToString(mStudenC, "Registration", "Status", "X") == 0) { //:TotalEntryFlag = "Y" { StringBuilder sb_TotalEntryFlag; if (TotalEntryFlag == null) sb_TotalEntryFlag = new StringBuilder(32); else sb_TotalEntryFlag = new StringBuilder(TotalEntryFlag); ZeidonStringCopy(sb_TotalEntryFlag, 1, 0, "Y", 1, 0, 2); TotalEntryFlag = sb_TotalEntryFlag.toString(); } } //:END //:// If we are executing this from within Student Accounts or Financial Aid, we want Withdrawn entries //:// to be included in total credits and we want to show the entry with its credits (instead of null for Dropped entries.) //:GET VIEW mTestView NAMED "mSAStu" RESULT = GetViewByName(mTestView, "mSAStu", mStudenC, zLEVEL_TASK); //:IF RESULT < 0 if (RESULT < 0) { //:GET VIEW mTestView NAMED "mFAStu" RESULT = GetViewByName(mTestView, "mFAStu", mStudenC, zLEVEL_TASK); } //:END //:IF RESULT >= 0 if (RESULT >= 0) { //:IF mStudenC.Registration.Status = "W" // Withdrawn if (CompareAttributeToString(mStudenC, "Registration", "Status", "W") == 0) { //:TotalEntryFlag = "Y" { StringBuilder sb_TotalEntryFlag; if (TotalEntryFlag == null) sb_TotalEntryFlag = new StringBuilder(32); else sb_TotalEntryFlag = new StringBuilder(TotalEntryFlag); ZeidonStringCopy(sb_TotalEntryFlag, 1, 0, "Y", 1, 0, 2); TotalEntryFlag = sb_TotalEntryFlag.toString(); } } //:END } //:END //:// Process each valid entry as determined above. //:IF TotalEntryFlag = "Y" if (ZeidonStringCompare(TotalEntryFlag, 1, 0, "Y", 1, 0, 2) == 0) { //:// We'll only create the following info (including adding credits) for the types of records above. //:BuildClassScheduleAttr( mStudenC, szMeetingSchedule, "Registration" ) { StringBuilder sb_szMeetingSchedule; if (szMeetingSchedule == null) sb_szMeetingSchedule = new StringBuilder(32); else sb_szMeetingSchedule = new StringBuilder(szMeetingSchedule); omStudenC_BuildClassScheduleAttr(mStudenC, sb_szMeetingSchedule, "Registration"); szMeetingSchedule = sb_szMeetingSchedule.toString(); } //:mStudenC.CurrentClass.wMeetingSchedule = szMeetingSchedule SetAttributeFromString(mStudenC, "CurrentClass", "wMeetingSchedule", szMeetingSchedule); //:mStudenC.CurrentClass.wStudentCreditHours = mStudenC.Registration.CreditHours SetAttributeFromAttribute(mStudenC, "CurrentClass", "wStudentCreditHours", mStudenC, "Registration", "CreditHours"); //:TotalTermCredits = TotalTermCredits + mStudenC.CurrentClass.wStudentCreditHours { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mStudenC, "CurrentClass", "wStudentCreditHours"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } TotalTermCredits = TotalTermCredits + dTempDecimal_0; //:TotalYearCredits = TotalYearCredits + mStudenC.CurrentClass.wStudentCreditHours { MutableDouble md_dTempDecimal_1 = new MutableDouble(dTempDecimal_1); GetDecimalFromAttribute(md_dTempDecimal_1, mStudenC, "CurrentClass", "wStudentCreditHours"); dTempDecimal_1 = md_dTempDecimal_1.doubleValue(); } TotalYearCredits = TotalYearCredits + dTempDecimal_1; } //:END } RESULT = SetCursorNextEntity(mStudenC, "RegistrationClass", "Student"); //:END } //:END //:IF TotalTermCredits > 0 if (TotalTermCredits > 0) { //:// Create Final Totals entry. //:CREATE ENTITY mStudenC.CurrentScheduleEntry RESULT = CreateEntity(mStudenC, "CurrentScheduleEntry", zPOS_AFTER); //:CREATE ENTITY mStudenC.CurrentClass RESULT = CreateEntity(mStudenC, "CurrentClass", zPOS_AFTER); //:CREATE ENTITY mStudenC.CurrentCourse RESULT = CreateEntity(mStudenC, "CurrentCourse", zPOS_AFTER); //:mStudenC.CurrentCourse.Title = "Term Totals: " SetAttributeFromString(mStudenC, "CurrentCourse", "Title", "Term Totals: "); //:mStudenC.CurrentClass.wStudentCreditHours = TotalTermCredits SetAttributeFromDecimal(mStudenC, "CurrentClass", "wStudentCreditHours", TotalTermCredits); } //:END //:mStudenC.Student.wTotalCreditsForYear = TotalYearCredits SetAttributeFromDecimal(mStudenC, "Student", "wTotalCreditsForYear", TotalYearCredits); //:// Add any waitlisted entries before Dropped entries at the end of entries for the Term. //:LastTermID = 0 LastTermID = 0; //:FOR EACH mStudenC.StudentWaitlistedYear WITHIN mStudenC.Student //: WHERE mStudenC.StudentWaitlistedYear.ID = wXferO.StudentScheduleCollegeYear.ID { MutableInt mi_lTempInteger_1 = new MutableInt(lTempInteger_1); GetIntegerFromAttribute(mi_lTempInteger_1, wXferO, "StudentScheduleCollegeYear", "ID"); lTempInteger_1 = mi_lTempInteger_1.intValue(); } RESULT = SetCursorFirstEntityByInteger(mStudenC, "StudentWaitlistedYear", "ID", lTempInteger_1, "Student"); while (RESULT > zCURSOR_UNCHANGED) { //:IF mStudenC.StudentWaitlistedTerm.ID != LastTermID if (CompareAttributeToInteger(mStudenC, "StudentWaitlistedTerm", "ID", LastTermID) != 0) { //:SET CURSOR FIRST mStudenC.CurrentScheduleEntry //: WHERE mStudenC.CurrentScheduleEntry.YearSemester = mStudenC.StudentWaitlistedTerm.YearSemester { StringBuilder sb_szTempString_1; if (szTempString_1 == null) sb_szTempString_1 = new StringBuilder(32); else sb_szTempString_1 = new StringBuilder(szTempString_1); GetStringFromAttribute(sb_szTempString_1, mStudenC, "StudentWaitlistedTerm", "YearSemester"); szTempString_1 = sb_szTempString_1.toString(); } RESULT = SetCursorFirstEntityByString(mStudenC, "CurrentScheduleEntry", "YearSemester", szTempString_1, ""); //:IF RESULT < zCURSOR_SET if (RESULT < zCURSOR_SET) { //:IssueError( mStudenC,0,0, "Couldn't position on Semester for waitlist." ) IssueError(mStudenC, 0, 0, "Couldn't position on Semester for waitlist."); } //:END //:LastTermID = mStudenC.StudentWaitlistedTerm.ID { MutableInt mi_LastTermID = new MutableInt(LastTermID); GetIntegerFromAttribute(mi_LastTermID, mStudenC, "StudentWaitlistedTerm", "ID"); LastTermID = mi_LastTermID.intValue(); } //:// Add entries before any Dropped entries for this Term or at the end of entries for this Term. //:// Do this by starting at the next Term or at end of all Terms and backing up. //:SET CURSOR NEXT mStudenC.CurrentScheduleEntry WHERE mStudenC.CurrentScheduleEntry.YearSemester != "" RESULT = SetCursorNextEntity(mStudenC, "CurrentScheduleEntry", ""); if (RESULT > zCURSOR_UNCHANGED) { while (RESULT > zCURSOR_UNCHANGED && (CompareAttributeToString(mStudenC, "CurrentScheduleEntry", "YearSemester", "") == 0)) { RESULT = SetCursorNextEntity(mStudenC, "CurrentScheduleEntry", ""); } } //:IF RESULT < zCURSOR_SET if (RESULT < zCURSOR_SET) { //:SET CURSOR LAST mStudenC.CurrentScheduleEntry RESULT = SetCursorLastEntity(mStudenC, "CurrentScheduleEntry", ""); //:ELSE } else { //:SET CURSOR PREVIOUS mStudenC.CurrentScheduleEntry RESULT = SetCursorPrevEntity(mStudenC, "CurrentScheduleEntry", ""); } //:END //:FoundFlag = "" { StringBuilder sb_FoundFlag; if (FoundFlag == null) sb_FoundFlag = new StringBuilder(32); else sb_FoundFlag = new StringBuilder(FoundFlag); ZeidonStringCopy(sb_FoundFlag, 1, 0, "", 1, 0, 2); FoundFlag = sb_FoundFlag.toString(); } //:nRC = zCURSOR_SET nRC = zCURSOR_SET; //:LOOP WHILE nRC >= zCURSOR_SET AND FoundFlag = "" while (nRC >= zCURSOR_SET && ZeidonStringCompare(FoundFlag, 1, 0, "", 1, 0, 2) == 0) { //:IF mStudenC.CurrentClass EXISTS lTempInteger_2 = CheckExistenceOfEntity(mStudenC, "CurrentClass"); if (lTempInteger_2 == 0) { //:IF mStudenC.CurrentClass.wStatus != "" AND //: mStudenC.CurrentClass.wStatus != "Dropped" if (CompareAttributeToString(mStudenC, "CurrentClass", "wStatus", "") != 0 && CompareAttributeToString(mStudenC, "CurrentClass", "wStatus", "Dropped") != 0) { //:FoundFlag = "Y" { StringBuilder sb_FoundFlag; if (FoundFlag == null) sb_FoundFlag = new StringBuilder(32); else sb_FoundFlag = new StringBuilder(FoundFlag); ZeidonStringCopy(sb_FoundFlag, 1, 0, "Y", 1, 0, 2); FoundFlag = sb_FoundFlag.toString(); } //:ELSE } else { //:nRC = SetCursorPrevEntity( mStudenC, "CurrentScheduleEntry", "" ) nRC = SetCursorPrevEntity(mStudenC, "CurrentScheduleEntry", ""); } //:END //:ELSE } else { //:IF mStudenC.CurrentScheduleEntry.YearSemester = "" if (CompareAttributeToString(mStudenC, "CurrentScheduleEntry", "YearSemester", "") == 0) { //:nRC = SetCursorPrevEntity( mStudenC, "CurrentScheduleEntry", "" ) nRC = SetCursorPrevEntity(mStudenC, "CurrentScheduleEntry", ""); //:ELSE } else { //:// We've backed up to the previous Term. //:FoundFlag = "Y" { StringBuilder sb_FoundFlag; if (FoundFlag == null) sb_FoundFlag = new StringBuilder(32); else sb_FoundFlag = new StringBuilder(FoundFlag); ZeidonStringCopy(sb_FoundFlag, 1, 0, "Y", 1, 0, 2); FoundFlag = sb_FoundFlag.toString(); } } //:END } //:END } //:END } //:END //:// Create the Class entry. //:CREATE ENTITY mStudenC.CurrentScheduleEntry RESULT = CreateEntity(mStudenC, "CurrentScheduleEntry", zPOS_AFTER); //:INCLUDE mStudenC.CurrentClass FROM mStudenC.StudentWaitlistedClass RESULT = IncludeSubobjectFromSubobject(mStudenC, "CurrentClass", mStudenC, "StudentWaitlistedClass", zPOS_AFTER); //:GetStringFromAttribute( szRanking, mStudenC, "StudentWaitlisted", "WaitListRanking" ) { StringBuilder sb_szRanking; if (szRanking == null) sb_szRanking = new StringBuilder(32); else sb_szRanking = new StringBuilder(szRanking); GetStringFromAttribute(sb_szRanking, mStudenC, "StudentWaitlisted", "WaitListRanking"); szRanking = sb_szRanking.toString(); } //:IF szRanking = "" if (ZeidonStringCompare(szRanking, 1, 0, "", 1, 0, 21) == 0) { //:szExternalStatus = "Waitlisted" { StringBuilder sb_szExternalStatus; if (szExternalStatus == null) sb_szExternalStatus = new StringBuilder(32); else sb_szExternalStatus = new StringBuilder(szExternalStatus); ZeidonStringCopy(sb_szExternalStatus, 1, 0, "Waitlisted", 1, 0, 21); szExternalStatus = sb_szExternalStatus.toString(); } //:ELSE } else { //:szExternalStatus = "Waitlisted - " + szRanking { StringBuilder sb_szExternalStatus; if (szExternalStatus == null) sb_szExternalStatus = new StringBuilder(32); else sb_szExternalStatus = new StringBuilder(szExternalStatus); ZeidonStringCopy(sb_szExternalStatus, 1, 0, "Waitlisted - ", 1, 0, 21); szExternalStatus = sb_szExternalStatus.toString(); } { StringBuilder sb_szExternalStatus; if (szExternalStatus == null) sb_szExternalStatus = new StringBuilder(32); else sb_szExternalStatus = new StringBuilder(szExternalStatus); ZeidonStringConcat(sb_szExternalStatus, 1, 0, szRanking, 1, 0, 21); szExternalStatus = sb_szExternalStatus.toString(); } } //:END //:mStudenC.CurrentClass.wStatus = szExternalStatus SetAttributeFromString(mStudenC, "CurrentClass", "wStatus", szExternalStatus); //:mStudenC.CurrentClass.wStudentCreditHours = mStudenC.CurrentClass.CreditHours SetAttributeFromAttribute(mStudenC, "CurrentClass", "wStudentCreditHours", mStudenC, "CurrentClass", "CreditHours"); //:mStudenC.CurrentClass.wCourseTitle = mStudenC.StudentWaitlisted.wCourseTitle SetAttributeFromAttribute(mStudenC, "CurrentClass", "wCourseTitle", mStudenC, "StudentWaitlisted", "wCourseTitle"); //:mStudenC.CurrentClass.wCourseSection = mStudenC.StudentWaitlisted.dClassNumber SetAttributeFromAttribute(mStudenC, "CurrentClass", "wCourseSection", mStudenC, "StudentWaitlisted", "dClassNumber"); RESULT = SetCursorNextEntityByInteger(mStudenC, "StudentWaitlistedYear", "ID", lTempInteger_1, "Student"); } //:END //:DropView( lTermLST2 ) DropView(lTermLST2); //:DropNameForView( mStudenC, "mStudenCLoading", mStudenC, zLEVEL_TASK ) DropNameForView(mStudenC, "mStudenCLoading", mStudenC, zLEVEL_TASK); 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;/*from w w w . j a v a2s . com*/ //: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.mSAProf_Object.java
public int omSAProf_GenerateUpdateCharge(View mSAProf, int nTermID, int nChargeID, double dAmount, String szUseDefault, String szDesc, String szIncludeClass) { zVIEW wXferO = new zVIEW(); int RESULT = 0; //:VIEW mSAChrgT BASED ON LOD mSAChrgT zVIEW mSAChrgT = new zVIEW(); //:VIEW lSATermLST BASED ON LOD lTermLST zVIEW lSATermLST = new zVIEW(); //:VIEW mSARuleS BASED ON LOD mSARuleS zVIEW mSARuleS = new zVIEW(); //:VIEW mSAProf2 BASED ON LOD mSAProf zVIEW mSAProf2 = new zVIEW(); //:INTEGER nRC int nRC = 0;//from w ww. j a v a 2 s . com //:INTEGER lClassID int lClassID = 0; //:INTEGER lTransactionID int lTransactionID = 0; //:DECIMAL dCurrentValue double dCurrentValue = 0.0; //:DECIMAL dNewValue double dNewValue = 0.0; //:DECIMAL dDifferenceValue double dDifferenceValue = 0.0; //:DECIMAL dAmountTot double dAmountTot = 0.0; zVIEW vTempViewVar_0 = new zVIEW(); zVIEW vTempViewVar_1 = new zVIEW(); int lTempInteger_0 = 0; double dTempDecimal_0 = 0.0; int lTempInteger_1 = 0; int lTempInteger_2 = 0; String szTempString_0 = null; int lTempInteger_3 = 0; RESULT = GetViewByName(wXferO, "wXferO", mSAProf, zLEVEL_TASK); //:ACTIVATE lSATermLST //: WHERE lSATermLST.CollegeTerm.ID = nTermID omSAProf_fnLocalBuildQual_8(mSAProf, vTempViewVar_0, nTermID); RESULT = ActivateObjectInstance(lSATermLST, "lTermLST", mSAProf, vTempViewVar_0, zSINGLE); DropView(vTempViewVar_0); //:ACTIVATE mSAChrgT //: WHERE mSAChrgT.SATransactionCode.ID = nChargeID //: RESTRICTING mSAChrgT.SATransactionTerm TO mSAChrgT.CollegeTerm.ID = nTermID omSAProf_fnLocalBuildQual_9(mSAProf, vTempViewVar_1, nChargeID, nTermID); RESULT = ActivateObjectInstance(mSAChrgT, "mSAChrgT", mSAProf, vTempViewVar_1, zSINGLE); DropView(vTempViewVar_1); //:IF dAmount= 0 AND szUseDefault = "Y" if (dAmount == 0 && ZeidonStringCompare(szUseDefault, 1, 0, "Y", 1, 0, 2) == 0) { //:// dNewValue = mSAChrgT.SATransactionTerm.Amount //:// if there is a term default, use that second. //:IF mSAChrgT.SATransactionTerm EXISTS lTempInteger_0 = CheckExistenceOfEntity(mSAChrgT, "SATransactionTerm"); //: AND mSAChrgT.SATransactionTerm.Amount != 0 if (lTempInteger_0 == 0 && CompareAttributeToInteger(mSAChrgT, "SATransactionTerm", "Amount", 0) != 0) { //:dNewValue = mSAChrgT.SATransactionTerm.Amount { MutableDouble md_dNewValue = new MutableDouble(dNewValue); GetDecimalFromAttribute(md_dNewValue, mSAChrgT, "SATransactionTerm", "Amount"); dNewValue = md_dNewValue.doubleValue(); } //:ELSE } else { //:dNewValue = mSAChrgT.SATransactionCode.DefaultAmount { MutableDouble md_dNewValue = new MutableDouble(dNewValue); GetDecimalFromAttribute(md_dNewValue, mSAChrgT, "SATransactionCode", "DefaultAmount"); dNewValue = md_dNewValue.doubleValue(); } } //:END //:ELSE } else { //:dNewValue = dAmount dNewValue = dAmount; } //:END //:// see if this tr code is already in use here //:CreateViewFromView( mSAProf2, mSAProf ) CreateViewFromView(mSAProf2, mSAProf); //:dAmountTot = 0 dAmountTot = 0; //://FOR EACH mSAProf2.StudentAccountTransApplied //:FOR EACH mSAProf2.PeriodTransApplied //: WHERE mSAProf2.PeriodSATransactionCode.ID = nChargeID RESULT = mSAProf2.cursor("PeriodTransApplied").setFirst().toInt(); while (RESULT > zCURSOR_UNCHANGED) { if (CompareAttributeToInteger(mSAProf2, "PeriodSATransactionCode", "ID", nChargeID) == 0) { //:IF mSAProf2.PeriodTransApplied.Journal != "ADJ" if (CompareAttributeToString(mSAProf2, "PeriodTransApplied", "Journal", "ADJ") != 0) { //:dAmountTot = dAmountTot + mSAProf2.PeriodTransApplied.Amount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mSAProf2, "PeriodTransApplied", "Amount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dAmountTot = dAmountTot + dTempDecimal_0; } } RESULT = mSAProf2.cursor("PeriodTransApplied").setNextContinue().toInt(); ; //:END } //:END //:// Update by Don C on 8/15/06 so that entries will be created for different Classes. //:IF szIncludeClass = "Y" if (ZeidonStringCompare(szIncludeClass, 1, 0, "Y", 1, 0, 2) == 0) { //:lClassID = 0 lClassID = 0; //:IF mSAProf.PeriodTransClass EXISTS lTempInteger_1 = CheckExistenceOfEntity(mSAProf, "PeriodTransClass"); if (lTempInteger_1 == 0) { //:lClassID = mSAProf.PeriodTransClass.ID { MutableInt mi_lClassID = new MutableInt(lClassID); GetIntegerFromAttribute(mi_lClassID, mSAProf, "PeriodTransClass", "ID"); lClassID = mi_lClassID.intValue(); } } //:END //:lTransactionID = 0 lTransactionID = 0; //:IF mSAProf.PeriodSATransactionCode EXISTS lTempInteger_2 = CheckExistenceOfEntity(mSAProf, "PeriodSATransactionCode"); if (lTempInteger_2 == 0) { //:lTransactionID = mSAProf.PeriodSATransactionCode.ID { MutableInt mi_lTransactionID = new MutableInt(lTransactionID); GetIntegerFromAttribute(mi_lTransactionID, mSAProf, "PeriodSATransactionCode", "ID"); lTransactionID = mi_lTransactionID.intValue(); } } //:END //:// Class fee entry: exit if no change in amount for same Class. //:IF dAmountTot = dNewValue AND //: lClassID = mSAProf.TermClass.ID AND //: lTransactionID = nChargeID if (dAmountTot == dNewValue && CompareAttributeToInteger(mSAProf, "TermClass", "ID", lClassID) == 0 && lTransactionID == nChargeID) { //:DropView( lSATermLST ) DropView(lSATermLST); //:DropView( mSAChrgT ) DropView(mSAChrgT); //:DropView( mSAProf2 ) DropView(mSAProf2); //:RETURN 1 if (8 == 8) return (1); } //:END //:ELSE } else { //:// Regular entry: exit if no change in amount. //:IF dAmountTot = dNewValue // just skip it if (dAmountTot == dNewValue) { //:DropView( lSATermLST ) DropView(lSATermLST); //:DropView( mSAChrgT ) DropView(mSAChrgT); //:DropView( mSAProf2 ) DropView(mSAProf2); //:RETURN 1 if (8 == 8) return (1); } //:END } //:END //: //:IF dNewValue != 0 if (dNewValue != 0) { //:CreateTemporalEntity( mSAProf, "StudentAccountTransApplied", zPOS_AFTER ) CreateTemporalEntity(mSAProf, "StudentAccountTransApplied", zPOS_AFTER); //:INCLUDE mSAProf.SATransactionCode FROM mSAChrgT.SATransactionCode RESULT = IncludeSubobjectFromSubobject(mSAProf, "SATransactionCode", mSAChrgT, "SATransactionCode", zPOS_AFTER); //:INCLUDE mSAProf.DebitGLChartEntry FROM mSAChrgT.DebitGLChartEntry RESULT = IncludeSubobjectFromSubobject(mSAProf, "DebitGLChartEntry", mSAChrgT, "DebitGLChartEntry", zPOS_AFTER); //:INCLUDE mSAProf.CreditGLChartEntry FROM mSAChrgT.CreditGLChartEntry RESULT = IncludeSubobjectFromSubobject(mSAProf, "CreditGLChartEntry", mSAChrgT, "CreditGLChartEntry", zPOS_AFTER); //:INCLUDE mSAProf.AppliedBillingPeriod FROM mSAProf.BillingPeriod RESULT = IncludeSubobjectFromSubobject(mSAProf, "AppliedBillingPeriod", mSAProf, "BillingPeriod", zPOS_AFTER); //:IF szIncludeClass = "Y" if (ZeidonStringCompare(szIncludeClass, 1, 0, "Y", 1, 0, 2) == 0) { //:INCLUDE mSAProf.TransForClass FROM mSAProf.TermClass // Don C correction 8/15/06, changed .Class to .TermClass RESULT = IncludeSubobjectFromSubobject(mSAProf, "TransForClass", mSAProf, "TermClass", zPOS_AFTER); } //:END //:mSAProf.StudentAccountTransApplied.Amount = dNewValue SetAttributeFromDecimal(mSAProf, "StudentAccountTransApplied", "Amount", dNewValue); //:SetMatchingAttributesByName( mSAProf, "StudentAccountTransApplied", //: mSAChrgT, "SATransactionCode", zSET_NOTNULL ) SetMatchingAttributesByName(mSAProf, "StudentAccountTransApplied", mSAChrgT, "SATransactionCode", zSET_NOTNULL); //:IF ( szDesc != "" ) if (ZeidonStringCompare(szDesc, 1, 0, "", 1, 0, 129) != 0) { //:mSAProf.StudentAccountTransApplied.Description = mSAProf.StudentAccountTransApplied.Description + "-" + szDesc { StringBuilder sb_szTempString_0; if (szTempString_0 == null) sb_szTempString_0 = new StringBuilder(32); else sb_szTempString_0 = new StringBuilder(szTempString_0); GetStringFromAttribute(sb_szTempString_0, mSAProf, "StudentAccountTransApplied", "Description"); szTempString_0 = sb_szTempString_0.toString(); } { StringBuilder sb_szTempString_0; if (szTempString_0 == null) sb_szTempString_0 = new StringBuilder(32); else sb_szTempString_0 = new StringBuilder(szTempString_0); ZeidonStringConcat(sb_szTempString_0, 1, 0, "-", 1, 0, 255); szTempString_0 = sb_szTempString_0.toString(); } { StringBuilder sb_szTempString_0; if (szTempString_0 == null) sb_szTempString_0 = new StringBuilder(32); else sb_szTempString_0 = new StringBuilder(szTempString_0); ZeidonStringConcat(sb_szTempString_0, 1, 0, szDesc, 1, 0, 255); szTempString_0 = sb_szTempString_0.toString(); } SetAttributeFromString(mSAProf, "StudentAccountTransApplied", "Description", szTempString_0); } //:END //:SetAttributeFromCurrentDateTime( mSAProf, "StudentAccountTransApplied", "DateEntered" ) { ZGLOBAL1_Operation m_ZGLOBAL1_Operation = new ZGLOBAL1_Operation(mSAProf); m_ZGLOBAL1_Operation.SetAttributeFromCurrentDateTime(mSAProf, "StudentAccountTransApplied", "DateEntered"); // m_ZGLOBAL1_Operation = null; // permit gc (unnecessary) } //:SetAttributeFromCurrentDateTime( mSAProf, "StudentAccountTransApplied", "TransactionDate" ) { ZGLOBAL1_Operation m_ZGLOBAL1_Operation = new ZGLOBAL1_Operation(mSAProf); m_ZGLOBAL1_Operation.SetAttributeFromCurrentDateTime(mSAProf, "StudentAccountTransApplied", "TransactionDate"); // m_ZGLOBAL1_Operation = null; // permit gc (unnecessary) } //:IF mSAChrgT.SACombineCode EXISTS lTempInteger_3 = CheckExistenceOfEntity(mSAChrgT, "SACombineCode"); if (lTempInteger_3 == 0) { //:mSAProf.StudentAccountTransApplied.CombineCode = mSAChrgT.SACombineCode.CombineCode SetAttributeFromAttribute(mSAProf, "StudentAccountTransApplied", "CombineCode", mSAChrgT, "SACombineCode", "CombineCode"); } //:END //:ELSE } else { //:DropView( lSATermLST ) DropView(lSATermLST); //:DropView( mSAChrgT ) DropView(mSAChrgT); //:RETURN -1 if (8 == 8) return (-1); } //:END //:DropView( lSATermLST ) DropView(lSATermLST); //:DropView( mSAChrgT ) DropView(mSAChrgT); 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;/*ww w. j a va 2s . 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_dTotalCreditsPerPeriod(View mFAProf, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { double dCredits = 0.0; //:VIEW mFAProf2 BASED ON LOD mFAProf zVIEW mFAProf2 = new zVIEW(); int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:dCredits = 0 dCredits = 0;/*from w w w . j a v a 2 s . c o m*/ //: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" OR //: mFAProf2.DisplayEnrolled.Status = "T" OR //: mFAProf2.DisplayEnrolled.Status = "W" if (CompareAttributeToString(mFAProf2, "DisplayEnrolled", "Status", "C") == 0 || CompareAttributeToString(mFAProf2, "DisplayEnrolled", "Status", "T") == 0 || CompareAttributeToString(mFAProf2, "DisplayEnrolled", "Status", "W") == 0) { //: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; } 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_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 w w . j a v a2 s .co 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 }