Example usage for org.apache.commons.lang3.mutable MutableDouble MutableDouble

List of usage examples for org.apache.commons.lang3.mutable MutableDouble MutableDouble

  1. HOME
  2. Java
  3. org.apache.commons
  4. org.apache.commons.lang3.mutable.*
  5. MutableDouble
  6. MutableDouble

Introduction

In this page you can find the example usage for org.apache.commons.lang3.mutable MutableDouble MutableDouble.

Prototype

public MutableDouble(final String value) throws NumberFormatException

Source Link

Document

Constructs a new MutableDouble parsing the given string.

Usage

From source file:com.quinsoft.swauopencuas.ZGLOBAL2_Operation.java

public int ComputeHighExamScoreACT(MutableDouble ReturnedScore, View mProspct) {
    zVIEW mProspct2 = new zVIEW();
    //:DECIMAL dTotalComposite
    double dTotalComposite = 0.0;
    int RESULT = 0;

    //:// Compute the highest total score for SAT exams for any object that has the ExamHistory subobject.
    //:CreateViewFromView( mProspct2, mProspct )
    CreateViewFromView(mProspct2, mProspct);
    //:dTotalComposite = 0
    dTotalComposite = 0;//from   www . ja v  a2s  .c om
    //:FOR EACH  mProspct2.ExamHistory 
    RESULT = SetCursorFirstEntity(mProspct2, "ExamHistory", "");
    while (RESULT > zCURSOR_UNCHANGED) {
        //:IF  mProspct2.ExamHistory.ExamType = "ACT" 
        if (CompareAttributeToString(mProspct2, "ExamHistory", "ExamType", "ACT") == 0) {
            //:IF mProspct2.ExamHistory.TotalComposite  > dTotalComposite
            if (CompareAttributeToDecimal(mProspct2, "ExamHistory", "TotalComposite", dTotalComposite) > 0) {
                //:dTotalComposite = mProspct2.ExamHistory.TotalComposite 
                {
                    MutableDouble md_dTotalComposite = new MutableDouble(dTotalComposite);
                    GetDecimalFromAttribute(md_dTotalComposite, mProspct2, "ExamHistory", "TotalComposite");
                    dTotalComposite = md_dTotalComposite.doubleValue();
                }
            }

            //:END 
        }

        RESULT = SetCursorNextEntity(mProspct2, "ExamHistory", "");
        //:END
    }

    //:END
    //:ReturnedScore = dTotalComposite
    ReturnedScore.setValue(dTotalComposite);
    //:DropView( mProspct2 )
    DropView(mProspct2);
    return (0);
    // END
}

From source file:com.quinsoft.swauopencuas.ZGLOBAL2_Operation.java

public int ComputeHighExamScoreSAT(MutableDouble ReturnedScore, View mProspct) {
    zVIEW mProspct2 = new zVIEW();
    //:DECIMAL dHighMath
    double dHighMath = 0.0;
    //:DECIMAL dHighVerbal 
    double dHighVerbal = 0.0;
    //:DECIMAL dTotal 
    double dTotal = 0.0;
    int RESULT = 0;

    //:// Compute the highest total score for SAT exams for any object that has the ExamHistory subobject.
    //:CreateViewFromView( mProspct2, mProspct )
    CreateViewFromView(mProspct2, mProspct);
    //:dHighMath = 0
    dHighMath = 0;// w w w . j  av a  2s . co m
    //:dHighVerbal = 0
    dHighVerbal = 0;
    //:FOR EACH  mProspct2.ExamHistory 
    RESULT = SetCursorFirstEntity(mProspct2, "ExamHistory", "");
    while (RESULT > zCURSOR_UNCHANGED) {
        //:IF mProspct2.ExamHistory.ExamType = "SAT" AND mProspct2.ExamHistory.Writing = ""
        if (CompareAttributeToString(mProspct2, "ExamHistory", "ExamType", "SAT") == 0
                && CompareAttributeToString(mProspct2, "ExamHistory", "Writing", "") == 0) {
            //:IF  mProspct2.ExamHistory.MathQuantitative > dHighMath  
            if (CompareAttributeToDecimal(mProspct2, "ExamHistory", "MathQuantitative", dHighMath) > 0) {
                //:dHighMath = mProspct2.ExamHistory.MathQuantitative 
                {
                    MutableDouble md_dHighMath = new MutableDouble(dHighMath);
                    GetDecimalFromAttribute(md_dHighMath, mProspct2, "ExamHistory", "MathQuantitative");
                    dHighMath = md_dHighMath.doubleValue();
                }
            }

            //:END 
            //:IF mProspct2.ExamHistory.Verbal > dHighVerbal  
            if (CompareAttributeToDecimal(mProspct2, "ExamHistory", "Verbal", dHighVerbal) > 0) {
                //:dHighVerbal = mProspct2.ExamHistory.Verbal 
                {
                    MutableDouble md_dHighVerbal = new MutableDouble(dHighVerbal);
                    GetDecimalFromAttribute(md_dHighVerbal, mProspct2, "ExamHistory", "Verbal");
                    dHighVerbal = md_dHighVerbal.doubleValue();
                }
            }

            //:END 
        }

        RESULT = SetCursorNextEntity(mProspct2, "ExamHistory", "");
        //:END
    }

    //:END
    //:dTotal = dHighMath + dHighVerbal 
    dTotal = dHighMath + dHighVerbal;
    //:ReturnedScore = dTotal
    ReturnedScore.setValue(dTotal);
    //:DropView( mProspct2 )
    DropView(mProspct2);
    return (0);
    // END
}

From source file:com.quinsoft.swauopencuas.mSAProf_Object.java

public int omSAProf_dTermCharges(View mSAProf, String InternalEntityStructure, String InternalAttribStructure,
        Integer GetOrSetFlag) {//  www  . j  a  va 2  s .  co  m
    zVIEW mSAProf2 = 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 ( mSAProf2, mSAProf )
        CreateViewFromView(mSAProf2, mSAProf);

        //:dAmount = 0
        dAmount = 0;
        //:// Sum PeriodTransApplied where they are not credits, only charges.
        //:FOR EACH mSAProf2.PeriodTransApplied WHERE mSAProf2.PeriodSATransactionCode.Type = "C" 
        RESULT = SetCursorFirstEntity(mSAProf2, "PeriodTransApplied", "");
        while (RESULT > zCURSOR_UNCHANGED) {
            if (CompareAttributeToString(mSAProf2, "PeriodSATransactionCode", "Type", "C") == 0) {
                //://WHERE mSAProf2.StudentAccountTransApplied.Amount > 0
                //:dAmount = dAmount + mSAProf2.PeriodTransApplied.Amount 
                {
                    MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0);
                    GetDecimalFromAttribute(md_dTempDecimal_0, mSAProf2, "PeriodTransApplied", "Amount");
                    dTempDecimal_0 = md_dTempDecimal_0.doubleValue();
                }
                dAmount = dAmount + dTempDecimal_0;
            }

            RESULT = SetCursorNextEntity(mSAProf2, "PeriodTransApplied", "");
        }

        //:END 
        //:DropView( mSAProf2 ) 
        DropView(mSAProf2);
        //:StoreValueInRecord( mSAProf, InternalEntityStructure, 
        //:                    InternalAttribStructure, dAmount, 0 )
        StoreValueInRecord(mSAProf, 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.swauopencuas.mSAProf_Object.java

public int omSAProf_dTermCredits(View mSAProf, String InternalEntityStructure, String InternalAttribStructure,
        Integer GetOrSetFlag) {//from   w  w w .  j  a va2s  .c o  m
    zVIEW mSAProf2 = 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 ( mSAProf2, mSAProf )
        CreateViewFromView(mSAProf2, mSAProf);

        //:dAmount = 0
        dAmount = 0;
        //:// Sum PeriodTransApplied where they credits, not charges.
        //:FOR EACH mSAProf2.PeriodTransApplied WHERE mSAProf2.PeriodSATransactionCode.Type = "R" 
        RESULT = SetCursorFirstEntity(mSAProf2, "PeriodTransApplied", "");
        while (RESULT > zCURSOR_UNCHANGED) {
            if (CompareAttributeToString(mSAProf2, "PeriodSATransactionCode", "Type", "R") == 0) {
                //://WHERE mSAProf2.StudentAccountTransApplied.Amount > 0
                //:dAmount = dAmount + mSAProf2.PeriodTransApplied.Amount 
                {
                    MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0);
                    GetDecimalFromAttribute(md_dTempDecimal_0, mSAProf2, "PeriodTransApplied", "Amount");
                    dTempDecimal_0 = md_dTempDecimal_0.doubleValue();
                }
                dAmount = dAmount + dTempDecimal_0;
            }

            RESULT = SetCursorNextEntity(mSAProf2, "PeriodTransApplied", "");
        }

        //:END 
        //:DropView( mSAProf2 ) 
        DropView(mSAProf2);
        //:StoreValueInRecord( mSAProf, InternalEntityStructure, 
        //:                    InternalAttribStructure, dAmount, 0 )
        StoreValueInRecord(mSAProf, 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.mStudenC_Object.java

public int omStudenC_dEnrolledCreditsRepeat(View mStudenC, String InternalEntityStructure,
        String InternalAttribStructure, Integer GetOrSetFlag) {
    zVIEW mStudenCT = new zVIEW();
    //:VIEW mCollegeLST REGISTERED AS mCollegeLST
    zVIEW mCollegeLST = new zVIEW();
    int RESULT = 0;
    //:DECIMAL TotalCredits
    double TotalCredits = 0.0;
    //:STRING ( 1 ) szGrade    // Grade without minus or plus.
    String szGrade = null;//from   w w w  . ja  va2s.co m
    //:STRING ( 1 ) szGradFlag
    String szGradFlag = null;
    int lTempInteger_0 = 0;
    int lTempInteger_1 = 0;
    int lTempInteger_2 = 0;
    double dTempDecimal_0 = 0.0;

    RESULT = GetViewByName(mCollegeLST, "mCollegeLST", mStudenC, zLEVEL_TASK);

    //:CASE GetOrSetFlag
    switch (GetOrSetFlag) {
    //:OF  zDERIVED_GET:
    case zDERIVED_GET:

        //:// This is a credit total of the classes that are currently being repeated by Enrolled entries and
        //:// that were passed so that their credits were added to the earned total.
        //:CreateViewFromView( mStudenCT, mStudenC )
        CreateViewFromView(mStudenCT, mStudenC);
        //:TotalCredits = 0
        TotalCredits = 0;
        //:FOR EACH mStudenCT.Registration WHERE mStudenCT.Registration.wRepeatedClass = "AR"
        RESULT = SetCursorFirstEntityByString(mStudenCT, "Registration", "wRepeatedClass", "AR", "");
        while (RESULT > zCURSOR_UNCHANGED) {
            //:szGrade = mStudenCT.Registration.FinalGrade
            {
                MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0);
                StringBuilder sb_szGrade;
                if (szGrade == null)
                    sb_szGrade = new StringBuilder(32);
                else
                    sb_szGrade = new StringBuilder(szGrade);
                GetVariableFromAttribute(sb_szGrade, mi_lTempInteger_0, 'S', 2, mStudenCT, "Registration",
                        "FinalGrade", "", 0);
                lTempInteger_0 = mi_lTempInteger_0.intValue();
                szGrade = sb_szGrade.toString();
            }
            //:IF szGrade = "D" OR szGrade = "C" OR szGrade = "B" OR szGrade = "A"
            if (ZeidonStringCompare(szGrade, 1, 0, "D", 1, 0, 2) == 0
                    || ZeidonStringCompare(szGrade, 1, 0, "C", 1, 0, 2) == 0
                    || ZeidonStringCompare(szGrade, 1, 0, "B", 1, 0, 2) == 0
                    || ZeidonStringCompare(szGrade, 1, 0, "A", 1, 0, 2) == 0) {
                //:// Only add if this is an undergrad course. The default will be undergrad.
                //:szGradFlag = "U"
                {
                    StringBuilder sb_szGradFlag;
                    if (szGradFlag == null)
                        sb_szGradFlag = new StringBuilder(32);
                    else
                        sb_szGradFlag = new StringBuilder(szGradFlag);
                    ZeidonStringCopy(sb_szGradFlag, 1, 0, "U", 1, 0, 2);
                    szGradFlag = sb_szGradFlag.toString();
                }
                //:IF mStudenCT.RegistrationCourseCollege EXISTS
                lTempInteger_1 = CheckExistenceOfEntity(mStudenCT, "RegistrationCourseCollege");
                if (lTempInteger_1 == 0) {
                    //:SET CURSOR FIRST mCollegeLST.College WHERE mCollegeLST.College.ID = mStudenCT.RegistrationCourseCollege.ID 
                    {
                        MutableInt mi_lTempInteger_2 = new MutableInt(lTempInteger_2);
                        GetIntegerFromAttribute(mi_lTempInteger_2, mStudenCT, "RegistrationCourseCollege",
                                "ID");
                        lTempInteger_2 = mi_lTempInteger_2.intValue();
                    }
                    RESULT = SetCursorFirstEntityByInteger(mCollegeLST, "College", "ID", lTempInteger_2, "");
                    //:IF mCollegeLST.College.Type = "G"
                    if (CompareAttributeToString(mCollegeLST, "College", "Type", "G") == 0) {
                        //:szGradFlag = "G"
                        {
                            StringBuilder sb_szGradFlag;
                            if (szGradFlag == null)
                                sb_szGradFlag = new StringBuilder(32);
                            else
                                sb_szGradFlag = new StringBuilder(szGradFlag);
                            ZeidonStringCopy(sb_szGradFlag, 1, 0, "G", 1, 0, 2);
                            szGradFlag = sb_szGradFlag.toString();
                        }
                    }

                    //:END 
                }

                //:END
                //:IF szGradFlag = "U"
                if (ZeidonStringCompare(szGradFlag, 1, 0, "U", 1, 0, 2) == 0) {
                    //:TotalCredits = TotalCredits + mStudenCT.Registration.CreditHours 
                    {
                        MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0);
                        GetDecimalFromAttribute(md_dTempDecimal_0, mStudenCT, "Registration", "CreditHours");
                        dTempDecimal_0 = md_dTempDecimal_0.doubleValue();
                    }
                    TotalCredits = TotalCredits + dTempDecimal_0;
                }

                //:END
            }

            RESULT = SetCursorNextEntityByString(mStudenCT, "Registration", "wRepeatedClass", "AR", "");

            //:END
        }

        //:END
        //:DropView( mStudenCT )
        DropView(mStudenCT);

        //:StoreValueInRecord ( mStudenC,
        //:                  InternalEntityStructure, InternalAttribStructure, TotalCredits, 0 )
        StoreValueInRecord(mStudenC, InternalEntityStructure, InternalAttribStructure, TotalCredits, 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_dTotalDisbursement(View mFAProf, String InternalEntityStructure,
        String InternalAttribStructure, Integer GetOrSetFlag) {
    zVIEW mFAProf2 = new zVIEW();
    //:DECIMAL dAmount 
    double dAmount = 0.0;
    //:DECIMAL dSwappedAmount
    double dSwappedAmount = 0.0;
    int RESULT = 0;
    double dTempDecimal_0 = 0.0;

    //:// If there are SwappedToDisbursement, then the total disbursement is a total of the Amount in all
    //:// the SwappedToDisbursements plus Amount in FinAidAwardDisbursement.    
    //:CASE GetOrSetFlag
    switch (GetOrSetFlag) {
    //:OF zDERIVED_GET:
    case zDERIVED_GET:
        //:CreateViewFromView( mFAProf2, mFAProf )
        CreateViewFromView(mFAProf2, mFAProf);
        //:dAmount = 0
        dAmount = 0;/*from   www  .  j  ava 2  s  . c om*/
        //:dSwappedAmount = 0
        dSwappedAmount = 0;
        //:FOR EACH  mFAProf2.SwappedToDisbursement  
        RESULT = mFAProf2.cursor("SwappedToDisbursement").setFirst().toInt();
        while (RESULT > zCURSOR_UNCHANGED) {
            //:dSwappedAmount = dSwappedAmount + mFAProf2.SwappedToDisbursement.Amount  
            {
                MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0);
                GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf2, "SwappedToDisbursement", "Amount");
                dTempDecimal_0 = md_dTempDecimal_0.doubleValue();
            }
            dSwappedAmount = dSwappedAmount + dTempDecimal_0;
            RESULT = mFAProf2.cursor("SwappedToDisbursement").setNextContinue().toInt();
            ;
        }

    //:END
    //:dAmount = mFAProf.FinAidAwardDisbursement.Amount
    {
        MutableDouble md_dAmount = new MutableDouble(dAmount);
        GetDecimalFromAttribute(md_dAmount, mFAProf, "FinAidAwardDisbursement", "Amount");
        dAmount = md_dAmount.doubleValue();
    }
        //:dAmount = dAmount + dSwappedAmount  
        dAmount = dAmount + dSwappedAmount;
        //: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.swauopencuas.mSAProf_Object.java

public int omSAProf_dTermCreditsNoCashD(View mSAProf, String InternalEntityStructure,
        String InternalAttribStructure, Integer GetOrSetFlag) {
    zVIEW mSAProf2 = 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 ( mSAProf2, mSAProf )
        CreateViewFromView(mSAProf2, mSAProf);

        //:dAmount = 0
        dAmount = 0;/*from  w w w. j a  v  a  2s . co m*/
        //:// Sum PeriodTransApplied where they credits, not charges.
        //:// Do not include the cash discount transaction.
        //:FOR EACH mSAProf2.PeriodTransApplied WHERE mSAProf2.PeriodSATransactionCode.Type = "R" 
        RESULT = SetCursorFirstEntity(mSAProf2, "PeriodTransApplied", "");
        while (RESULT > zCURSOR_UNCHANGED) {
            if (CompareAttributeToString(mSAProf2, "PeriodSATransactionCode", "Type", "R") == 0) {
                //:IF mSAProf2.PeriodSATransactionCode.TransactionCode != "CASHDISC" 
                if (CompareAttributeToString(mSAProf2, "PeriodSATransactionCode", "TransactionCode",
                        "CASHDISC") != 0) {
                    //:dAmount = dAmount + mSAProf2.PeriodTransApplied.Amount 
                    {
                        MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0);
                        GetDecimalFromAttribute(md_dTempDecimal_0, mSAProf2, "PeriodTransApplied", "Amount");
                        dTempDecimal_0 = md_dTempDecimal_0.doubleValue();
                    }
                    dAmount = dAmount + dTempDecimal_0;
                }

            }

            RESULT = SetCursorNextEntity(mSAProf2, "PeriodTransApplied", "");
            //:END
        }

        //:END 
        //:DropView( mSAProf2 ) 
        DropView(mSAProf2);
        //:StoreValueInRecord( mSAProf, InternalEntityStructure, 
        //:                    InternalAttribStructure, dAmount, 0 )
        StoreValueInRecord(mSAProf, 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_dTotalAmountExp(View mFAProf, String InternalEntityStructure,
        String InternalAttribStructure, Integer GetOrSetFlag) {
    zVIEW mFAProf2 = new zVIEW();
    //:DECIMAL dAmount 
    double dAmount = 0.0;
    //:DECIMAL dSwappedAmount
    double dSwappedAmount = 0.0;
    int RESULT = 0;
    double dTempDecimal_0 = 0.0;

    //:// If there are SwappedToDisbursement, then the total amount expected is a total of the AmountExpected in all
    //:// the SwappedToDisbursements plus AmountExpected in FinAidAwardDisbursement.    
    //:CASE GetOrSetFlag
    switch (GetOrSetFlag) {
    //:OF zDERIVED_GET:
    case zDERIVED_GET:
        //:CreateViewFromView( mFAProf2, mFAProf )
        CreateViewFromView(mFAProf2, mFAProf);
        //:dAmount =0
        dAmount = 0;// w w  w  .  java  2 s.c o  m
        //:dSwappedAmount = 0
        dSwappedAmount = 0;
        //:FOR EACH  mFAProf2.SwappedToDisbursement  
        RESULT = mFAProf2.cursor("SwappedToDisbursement").setFirst().toInt();
        while (RESULT > zCURSOR_UNCHANGED) {
            //:dSwappedAmount = dSwappedAmount + mFAProf2.SwappedToDisbursement.AmountExpected  
            {
                MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0);
                GetDecimalFromAttribute(md_dTempDecimal_0, mFAProf2, "SwappedToDisbursement", "AmountExpected");
                dTempDecimal_0 = md_dTempDecimal_0.doubleValue();
            }
            dSwappedAmount = dSwappedAmount + dTempDecimal_0;
            RESULT = mFAProf2.cursor("SwappedToDisbursement").setNextContinue().toInt();
            ;
        }

    //:END
    //:dAmount = mFAProf.FinAidAwardDisbursement.AmountExpected  
    {
        MutableDouble md_dAmount = new MutableDouble(dAmount);
        GetDecimalFromAttribute(md_dAmount, mFAProf, "FinAidAwardDisbursement", "AmountExpected");
        dAmount = md_dAmount.doubleValue();
    }
        //:dAmount = dAmount + dSwappedAmount  
        dAmount = dAmount + dSwappedAmount;
        //: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.mStudenC_Object.java

public int omStudenC_dEnrolledCreditsRpGrad(View mStudenC, String InternalEntityStructure,
        String InternalAttribStructure, Integer GetOrSetFlag) {
    zVIEW mStudenCT = new zVIEW();
    //:VIEW mCollegeLST REGISTERED AS mCollegeLST
    zVIEW mCollegeLST = new zVIEW();
    int RESULT = 0;
    //:DECIMAL TotalCredits
    double TotalCredits = 0.0;
    //:STRING ( 1 ) szGrade    // Grade without minus or plus.
    String szGrade = null;// w w w  .  j a  v  a 2 s  .co m
    //:STRING ( 1 ) szGradFlag
    String szGradFlag = null;
    int lTempInteger_0 = 0;
    int lTempInteger_1 = 0;
    int lTempInteger_2 = 0;
    double dTempDecimal_0 = 0.0;

    RESULT = GetViewByName(mCollegeLST, "mCollegeLST", mStudenC, zLEVEL_TASK);

    //:CASE GetOrSetFlag
    switch (GetOrSetFlag) {
    //:OF  zDERIVED_GET:
    case zDERIVED_GET:

        //:// This is a credit total of the classes that are currently being repeated by Enrolled entries and
        //:// that were passed so that their credits were added to the earned total.
        //:CreateViewFromView( mStudenCT, mStudenC )
        CreateViewFromView(mStudenCT, mStudenC);
        //:TotalCredits = 0
        TotalCredits = 0;
        //:FOR EACH mStudenCT.Registration WHERE mStudenCT.Registration.wRepeatedClass = "AR"
        RESULT = SetCursorFirstEntityByString(mStudenCT, "Registration", "wRepeatedClass", "AR", "");
        while (RESULT > zCURSOR_UNCHANGED) {
            //:szGrade = mStudenCT.Registration.FinalGrade
            {
                MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0);
                StringBuilder sb_szGrade;
                if (szGrade == null)
                    sb_szGrade = new StringBuilder(32);
                else
                    sb_szGrade = new StringBuilder(szGrade);
                GetVariableFromAttribute(sb_szGrade, mi_lTempInteger_0, 'S', 2, mStudenCT, "Registration",
                        "FinalGrade", "", 0);
                lTempInteger_0 = mi_lTempInteger_0.intValue();
                szGrade = sb_szGrade.toString();
            }
            //:IF szGrade = "D" OR szGrade = "C" OR szGrade = "B" OR szGrade = "A"
            if (ZeidonStringCompare(szGrade, 1, 0, "D", 1, 0, 2) == 0
                    || ZeidonStringCompare(szGrade, 1, 0, "C", 1, 0, 2) == 0
                    || ZeidonStringCompare(szGrade, 1, 0, "B", 1, 0, 2) == 0
                    || ZeidonStringCompare(szGrade, 1, 0, "A", 1, 0, 2) == 0) {
                //:// Only add if this is an undergrad course. The default will be undergrad.
                //:szGradFlag = "U"
                {
                    StringBuilder sb_szGradFlag;
                    if (szGradFlag == null)
                        sb_szGradFlag = new StringBuilder(32);
                    else
                        sb_szGradFlag = new StringBuilder(szGradFlag);
                    ZeidonStringCopy(sb_szGradFlag, 1, 0, "U", 1, 0, 2);
                    szGradFlag = sb_szGradFlag.toString();
                }
                //:IF mStudenCT.RegistrationCourseCollege EXISTS
                lTempInteger_1 = CheckExistenceOfEntity(mStudenCT, "RegistrationCourseCollege");
                if (lTempInteger_1 == 0) {
                    //:SET CURSOR FIRST mCollegeLST.College WHERE mCollegeLST.College.ID = mStudenCT.RegistrationCourseCollege.ID 
                    {
                        MutableInt mi_lTempInteger_2 = new MutableInt(lTempInteger_2);
                        GetIntegerFromAttribute(mi_lTempInteger_2, mStudenCT, "RegistrationCourseCollege",
                                "ID");
                        lTempInteger_2 = mi_lTempInteger_2.intValue();
                    }
                    RESULT = SetCursorFirstEntityByInteger(mCollegeLST, "College", "ID", lTempInteger_2, "");
                    //:IF mCollegeLST.College.Type = "G"
                    if (CompareAttributeToString(mCollegeLST, "College", "Type", "G") == 0) {
                        //:szGradFlag = "G"
                        {
                            StringBuilder sb_szGradFlag;
                            if (szGradFlag == null)
                                sb_szGradFlag = new StringBuilder(32);
                            else
                                sb_szGradFlag = new StringBuilder(szGradFlag);
                            ZeidonStringCopy(sb_szGradFlag, 1, 0, "G", 1, 0, 2);
                            szGradFlag = sb_szGradFlag.toString();
                        }
                    }

                    //:END 
                }

                //:END
                //:IF szGradFlag = "G"
                if (ZeidonStringCompare(szGradFlag, 1, 0, "G", 1, 0, 2) == 0) {
                    //:TotalCredits = TotalCredits + mStudenCT.Registration.CreditHours 
                    {
                        MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0);
                        GetDecimalFromAttribute(md_dTempDecimal_0, mStudenCT, "Registration", "CreditHours");
                        dTempDecimal_0 = md_dTempDecimal_0.doubleValue();
                    }
                    TotalCredits = TotalCredits + dTempDecimal_0;
                }

                //:END
            }

            RESULT = SetCursorNextEntityByString(mStudenCT, "Registration", "wRepeatedClass", "AR", "");

            //:END
        }

        //:END
        //:DropView( mStudenCT )
        DropView(mStudenCT);

        //:StoreValueInRecord ( mStudenC,
        //:                  InternalEntityStructure, InternalAttribStructure, TotalCredits, 0 )
        StoreValueInRecord(mStudenC, InternalEntityStructure, InternalAttribStructure, TotalCredits, 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
    {//from ww w .  j  a v a  2s  . c om
        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
}