List of usage examples for org.apache.commons.lang3.mutable MutableDouble doubleValue
@Override public double doubleValue()
From source file:com.hfi.cheetah.mRasta_Object.java
public int omRasta_dTotalCharges(View mRasta, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) {/* www . j ava 2 s .c o m*/ double dValue = 0.0; int lTempInteger_0 = 0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:dValue = 0 dValue = 0; //:IF mRasta.ApplicantVisit EXISTS lTempInteger_0 = CheckExistenceOfEntity(mRasta, "ApplicantVisit"); if (lTempInteger_0 == 0) { //:FOR EACH mRasta.ApplicantVisit RESULT = SetCursorFirstEntity(mRasta, "ApplicantVisit", ""); while (RESULT > zCURSOR_UNCHANGED) { //:FOR EACH mRasta.VisitBillingLine RESULT = SetCursorFirstEntity(mRasta, "VisitBillingLine", ""); while (RESULT > zCURSOR_UNCHANGED) { //:IF mRasta.VisitBillingLine.TotalCharges != "" if (CompareAttributeToString(mRasta, "VisitBillingLine", "TotalCharges", "") != 0) { //:dValue = dValue + mRasta.VisitBillingLine.TotalCharges { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mRasta, "VisitBillingLine", "TotalCharges"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dValue = dValue + dTempDecimal_0; } RESULT = SetCursorNextEntity(mRasta, "VisitBillingLine", ""); //:END } RESULT = SetCursorNextEntity(mRasta, "ApplicantVisit", ""); //:END } //:END } //:END //:StoreValueInRecord( mRasta, InternalEntityStructure, //: InternalAttribStructure, dValue ,0 ) StoreValueInRecord(mRasta, InternalEntityStructure, InternalAttribStructure, dValue, 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.sHost_Object.java
public int osHost_dBudgetVarCC_Pct(View sHost, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) {/*from www.j a va 2s.co m*/ double dPct = 0.0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:dPct = sHost.Host.BudgetVarianceCC_Percent * 100 { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, sHost, "Host", "BudgetVarianceCC_Percent"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dPct = dTempDecimal_0 * 100; //:StoreValueInRecord ( sHost, //: InternalEntityStructure, InternalAttribStructure, dPct, 0 ) StoreValueInRecord(sHost, InternalEntityStructure, InternalAttribStructure, dPct, 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.sHost_Object.java
public int osHost_dBudgetVarAccountPct(View sHost, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { double dPct = 0.0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:dPct = sHost.Host.BudgetVarianceAccountPercent * 100 {/*from w w w.j av a 2s . co m*/ MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, sHost, "Host", "BudgetVarianceAccountPercent"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dPct = dTempDecimal_0 * 100; //:StoreValueInRecord ( sHost, //: InternalEntityStructure, InternalAttribStructure, dPct, 0 ) StoreValueInRecord(sHost, InternalEntityStructure, InternalAttribStructure, dPct, 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.wWebXfer_Object.java
public int owWebXfer_dTotalListedPO_Amounts(View wWebXfer, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { zVIEW lPOList = new zVIEW(); //:VIEW lPOListT BASED ON LOD lPOList zVIEW lPOListT = new zVIEW(); //:DECIMAL dTotalAmount double dTotalAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:// Compute total amounts for PO's listed in lPOList. //:GET VIEW lPOList NAMED "lPOList" RESULT = GetViewByName(lPOList, "lPOList", wWebXfer, zLEVEL_TASK); //:IF RESULT >= 0 if (RESULT >= 0) { //:CreateViewFromView( lPOListT, lPOList ) CreateViewFromView(lPOListT, lPOList); //:dTotalAmount = 0 dTotalAmount = 0;//from www .j a v a 2s. c om //:FOR EACH lPOListT.PurchaseOrder RESULT = SetCursorFirstEntity(lPOListT, "PurchaseOrder", ""); while (RESULT > zCURSOR_UNCHANGED) { //:dTotalAmount = dTotalAmount + lPOListT.PurchaseOrder.TotalAmount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, lPOListT, "PurchaseOrder", "TotalAmount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dTotalAmount = dTotalAmount + dTempDecimal_0; RESULT = SetCursorNextEntity(lPOListT, "PurchaseOrder", ""); } //:END //:DropView( lPOListT ) DropView(lPOListT); //:StoreValueInRecord( wWebXfer, InternalEntityStructure, //: InternalAttribStructure, dTotalAmount, 0) StoreValueInRecord(wWebXfer, InternalEntityStructure, InternalAttribStructure, dTotalAmount, 0); //:ELSE } else { //:// No Purchase Order list exists. //:StoreStringInRecord( wWebXfer, //: InternalEntityStructure, //: InternalAttribStructure, //: "" ) StoreStringInRecord(wWebXfer, InternalEntityStructure, InternalAttribStructure, ""); } //:END 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.wWebXfer_Object.java
public int owWebXfer_dTotalBudgetedAmount(View wWebXfer, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { zVIEW mGLCCURLST = new zVIEW(); //:VIEW mGLCCURT BASED ON LOD mGLCCUR zVIEW mGLCCURT = new zVIEW(); //:DECIMAL dTotalAmount double dTotalAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:// Compute total amounts for PO's listed in lPOList. //:GET VIEW mGLCCURLST NAMED "mGLCCURLST" RESULT = GetViewByName(mGLCCURLST, "mGLCCURLST", wWebXfer, zLEVEL_TASK); //:IF RESULT >= 0 if (RESULT >= 0) { //:CreateViewFromView( mGLCCURT, mGLCCURLST ) CreateViewFromView(mGLCCURT, mGLCCURLST); //:dTotalAmount = 0 dTotalAmount = 0;// ww w. ja v a2s .c om //:FOR EACH mGLCCURT.GLCostCenter RESULT = SetCursorFirstEntity(mGLCCURT, "GLCostCenter", ""); while (RESULT > zCURSOR_UNCHANGED) { //:dTotalAmount = dTotalAmount + mGLCCURT.GLCostCenter.dTotalBudgetedAmount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mGLCCURT, "GLCostCenter", "dTotalBudgetedAmount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dTotalAmount = dTotalAmount + dTempDecimal_0; RESULT = SetCursorNextEntity(mGLCCURT, "GLCostCenter", ""); } //:END //:DropView( mGLCCURT ) DropView(mGLCCURT); //:StoreValueInRecord( wWebXfer, InternalEntityStructure, //: InternalAttribStructure, dTotalAmount, 0) StoreValueInRecord(wWebXfer, InternalEntityStructure, InternalAttribStructure, dTotalAmount, 0); //:ELSE } else { //:// No Purchase Order list exists. //:StoreStringInRecord( wWebXfer, //: InternalEntityStructure, //: InternalAttribStructure, //: "" ) StoreStringInRecord(wWebXfer, InternalEntityStructure, InternalAttribStructure, ""); } //:END 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.wWebXfer_Object.java
public int owWebXfer_dTotalRequestedAmount(View wWebXfer, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { zVIEW mGLCCURLST = new zVIEW(); //:VIEW mGLCCURT BASED ON LOD mGLCCUR zVIEW mGLCCURT = new zVIEW(); //:DECIMAL dTotalAmount double dTotalAmount = 0.0; int RESULT = 0; double dTempDecimal_0 = 0.0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:// Compute total amounts for PO's listed in lPOList. //:GET VIEW mGLCCURLST NAMED "mGLCCURLST" RESULT = GetViewByName(mGLCCURLST, "mGLCCURLST", wWebXfer, zLEVEL_TASK); //:IF RESULT >= 0 if (RESULT >= 0) { //:CreateViewFromView( mGLCCURT, mGLCCURLST ) CreateViewFromView(mGLCCURT, mGLCCURLST); //:dTotalAmount = 0 dTotalAmount = 0;//ww w.jav a2s .c om //:FOR EACH mGLCCURT.GLCostCenter RESULT = SetCursorFirstEntity(mGLCCURT, "GLCostCenter", ""); while (RESULT > zCURSOR_UNCHANGED) { //:dTotalAmount = dTotalAmount + mGLCCURT.GLCostCenter.dTotalRequestedAmount { MutableDouble md_dTempDecimal_0 = new MutableDouble(dTempDecimal_0); GetDecimalFromAttribute(md_dTempDecimal_0, mGLCCURT, "GLCostCenter", "dTotalRequestedAmount"); dTempDecimal_0 = md_dTempDecimal_0.doubleValue(); } dTotalAmount = dTotalAmount + dTempDecimal_0; RESULT = SetCursorNextEntity(mGLCCURT, "GLCostCenter", ""); } //:END //:DropView( mGLCCURT ) DropView(mGLCCURT); //:StoreValueInRecord( wWebXfer, InternalEntityStructure, //: InternalAttribStructure, dTotalAmount, 0) StoreValueInRecord(wWebXfer, InternalEntityStructure, InternalAttribStructure, dTotalAmount, 0); //:ELSE } else { //:// No Purchase Order list exists. //:StoreStringInRecord( wWebXfer, //: InternalEntityStructure, //: InternalAttribStructure, //: "" ) StoreStringInRecord(wWebXfer, InternalEntityStructure, InternalAttribStructure, ""); } //:END break; //: /* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }
From source file:de.biomedical_imaging.ij.steger.Position.java
private void compute_line_points(float[][] ku, byte[] ismax, float[] ev, float[] nx, float[] ny, float[] px, float[] py, int width, int height, double low, double high, int mode) { int r, c, l;/* w w w . j a v a2s .co m*/ double[] k = new double[5]; double[] eigval = new double[2]; double[][] eigvec = new double[2][2]; double a, b; MutableDouble t = new MutableDouble(); MutableInt num = new MutableInt(); double n1, n2; double p1, p2; double val; for (r = 0; r < height; r++) { for (c = 0; c < width; c++) { l = LinesUtil.LINCOOR(r, c, width); k[0] = ku[0][l]; k[1] = ku[1][l]; k[2] = ku[2][l]; k[3] = ku[3][l]; k[4] = ku[4][l]; ev[l] = (float) 0.0; nx[l] = (float) 0.0; ny[l] = (float) 0.0; compute_eigenvals(k[2], k[3], k[4], eigval, eigvec); if (mode == LinesUtil.MODE_LIGHT) val = -eigval[0]; else val = eigval[0]; if (val > 0.0) { ev[l] = (float) val; n1 = eigvec[0][0]; n2 = eigvec[0][1]; a = k[2] * n1 * n1 + 2.0 * k[3] * n1 * n2 + k[4] * n2 * n2; b = k[0] * n1 + k[1] * n2; solve_linear(a, b, t, num); if (num.intValue() != 0) { p1 = t.doubleValue() * n1; p2 = t.doubleValue() * n2; if (Math.abs(p1) <= PIXEL_BOUNDARY && Math.abs(p2) <= PIXEL_BOUNDARY) { if (val >= low) { if (val >= high) ismax[l] = 2; else ismax[l] = 1; } nx[l] = (float) n1; ny[l] = (float) n2; px[l] = (float) (r + p1); py[l] = (float) (c + p2); } } } } } }
From source file:com.quinsoft.swauopencuas.mSARuleS_Object.java
public int omSARuleS_ApplyRowRule(View mSARuleS) { zVIEW vAnyView = new zVIEW(); //:STRING ( 1024 ) szStringToCompare String szStringToCompare = null; //:DECIMAL dValueToCompare double dValueToCompare = 0.0; //:STRING ( 64 ) szView String szView = null;//from w w w .j a v a 2 s .co m //:STRING ( 64 ) szEntity String szEntity = null; //:STRING ( 64 ) szAttribute String szAttribute = null; //:STRING ( 1 ) szAttrType String szAttrType = null; //:STRING ( 10 ) szOper String szOper = null; //:INTEGER nCompareResult int nCompareResult = 0; //:INTEGER nCompareResult2 int nCompareResult2 = 0; //:INTEGER nRC int nRC = 0; int lTempInteger_0 = 0; int lTempInteger_1 = 0; int lTempInteger_2 = 0; int lTempInteger_3 = 0; int lTempInteger_4 = 0; int RESULT = 0; //:// get the values we are looking for //:szEntity = mSARuleS.SACalcLookupRow.QualEntityName { MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0); StringBuilder sb_szEntity; if (szEntity == null) sb_szEntity = new StringBuilder(32); else sb_szEntity = new StringBuilder(szEntity); GetVariableFromAttribute(sb_szEntity, mi_lTempInteger_0, 'S', 65, mSARuleS, "SACalcLookupRow", "QualEntityName", "", 0); lTempInteger_0 = mi_lTempInteger_0.intValue(); szEntity = sb_szEntity.toString(); } //:szAttribute = mSARuleS.SACalcLookupRow.QualAttributeName { MutableInt mi_lTempInteger_1 = new MutableInt(lTempInteger_1); StringBuilder sb_szAttribute; if (szAttribute == null) sb_szAttribute = new StringBuilder(32); else sb_szAttribute = new StringBuilder(szAttribute); GetVariableFromAttribute(sb_szAttribute, mi_lTempInteger_1, 'S', 65, mSARuleS, "SACalcLookupRow", "QualAttributeName", "", 0); lTempInteger_1 = mi_lTempInteger_1.intValue(); szAttribute = sb_szAttribute.toString(); } //:szAttrType = mSARuleS.SACalcLookupRow.QualAttributeType { MutableInt mi_lTempInteger_2 = new MutableInt(lTempInteger_2); StringBuilder sb_szAttrType; if (szAttrType == null) sb_szAttrType = new StringBuilder(32); else sb_szAttrType = new StringBuilder(szAttrType); GetVariableFromAttribute(sb_szAttrType, mi_lTempInteger_2, 'S', 2, mSARuleS, "SACalcLookupRow", "QualAttributeType", "", 0); lTempInteger_2 = mi_lTempInteger_2.intValue(); szAttrType = sb_szAttrType.toString(); } //:szOper = mSARuleS.SACalcLookupRow.QualOperator { MutableInt mi_lTempInteger_3 = new MutableInt(lTempInteger_3); StringBuilder sb_szOper; if (szOper == null) sb_szOper = new StringBuilder(32); else sb_szOper = new StringBuilder(szOper); GetVariableFromAttribute(sb_szOper, mi_lTempInteger_3, 'S', 11, mSARuleS, "SACalcLookupRow", "QualOperator", "", 0); lTempInteger_3 = mi_lTempInteger_3.intValue(); szOper = sb_szOper.toString(); } //:szView = mSARuleS.SACalcLookupRow.QualViewName { MutableInt mi_lTempInteger_4 = new MutableInt(lTempInteger_4); StringBuilder sb_szView; if (szView == null) sb_szView = new StringBuilder(32); else sb_szView = new StringBuilder(szView); GetVariableFromAttribute(sb_szView, mi_lTempInteger_4, 'S', 65, mSARuleS, "SACalcLookupRow", "QualViewName", "", 0); lTempInteger_4 = mi_lTempInteger_4.intValue(); szView = sb_szView.toString(); } //:GET VIEW vAnyView NAMED szView RESULT = GetViewByName(vAnyView, szView, mSARuleS, zLEVEL_TASK); //:// see what type the attribute is. //:IF szAttrType = "S" if (ZeidonStringCompare(szAttrType, 1, 0, "S", 1, 0, 2) == 0) { //:GetStringFromAttribute( szStringToCompare, vAnyView, szEntity, szAttribute ) { StringBuilder sb_szStringToCompare; if (szStringToCompare == null) sb_szStringToCompare = new StringBuilder(32); else sb_szStringToCompare = new StringBuilder(szStringToCompare); GetStringFromAttribute(sb_szStringToCompare, vAnyView, szEntity, szAttribute); szStringToCompare = sb_szStringToCompare.toString(); } //:nCompareResult = //: CompareAttributeToString( mSARuleS, "SACalcLookupRow", "QualStringValue", szStringToCompare ) nCompareResult = CompareAttributeToString(mSARuleS, "SACalcLookupRow", "QualStringValue", szStringToCompare); //:ELSE } else { //:GetDecimalFromAttribute( dValueToCompare, vAnyView, szEntity, szAttribute ) { MutableDouble md_dValueToCompare = new MutableDouble(dValueToCompare); GetDecimalFromAttribute(md_dValueToCompare, vAnyView, szEntity, szAttribute); dValueToCompare = md_dValueToCompare.doubleValue(); } //:nCompareResult = //: CompareAttributeToDecimal( mSARuleS, "SACalcLookupRow", "MinAttributeForAward", dValueToCompare ) nCompareResult = CompareAttributeToDecimal(mSARuleS, "SACalcLookupRow", "MinAttributeForAward", dValueToCompare); //:nCompareResult2 = //: CompareAttributeToDecimal( mSARuleS, "SACalcLookupRow", "MaxAttributeForAward", dValueToCompare ) nCompareResult2 = CompareAttributeToDecimal(mSARuleS, "SACalcLookupRow", "MaxAttributeForAward", dValueToCompare); } //:END //:// -1 attribute value is less than string value //:// 0 attribute value is equal to string value //:// 1 attribute value is greater than string value //:nRC = CompareResults( szOper, nCompareResult, nCompareResult2 ) nRC = omSARuleS_CompareResults(szOper, nCompareResult, nCompareResult2); //:IF nRC = 1 if (nRC == 1) { //:mSARuleS.SACalcLookupRow.wQualTrue = "Y" SetAttributeFromString(mSARuleS, "SACalcLookupRow", "wQualTrue", "Y"); //:RETURN 1 if (8 == 8) return (1); } //:END //:IF nRC = -1 if (nRC == -1) { //:mSARuleS.SACalcLookupRow.wQualTrue = "N" SetAttributeFromString(mSARuleS, "SACalcLookupRow", "wQualTrue", "N"); //:RETURN -1 if (8 == 8) return (-1); } //:END return (0); // END }
From source file:com.quinsoft.swauopencuas.mSARuleS_Object.java
public int omSARuleS_ApplyColumnRule(View mSARuleS) { zVIEW vAnyView = new zVIEW(); //:STRING ( 1024 ) szStringToCompare String szStringToCompare = null; //:DECIMAL dValueToCompare double dValueToCompare = 0.0; //:STRING ( 64 ) szView String szView = null;//w ww.j av a 2 s .com //:STRING ( 64 ) szEntity String szEntity = null; //:STRING ( 64 ) szAttribute String szAttribute = null; //:STRING ( 1 ) szAttrType String szAttrType = null; //:STRING ( 10 ) szOper String szOper = null; //:INTEGER nCompareResult int nCompareResult = 0; //:INTEGER nCompareResult2 int nCompareResult2 = 0; //:INTEGER nRC int nRC = 0; int lTempInteger_0 = 0; int lTempInteger_1 = 0; int lTempInteger_2 = 0; int lTempInteger_3 = 0; int lTempInteger_4 = 0; int RESULT = 0; //:// get the values we are looking for //:szEntity = mSARuleS.SACalcLookupColumn.QualEntityName { MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0); StringBuilder sb_szEntity; if (szEntity == null) sb_szEntity = new StringBuilder(32); else sb_szEntity = new StringBuilder(szEntity); GetVariableFromAttribute(sb_szEntity, mi_lTempInteger_0, 'S', 65, mSARuleS, "SACalcLookupColumn", "QualEntityName", "", 0); lTempInteger_0 = mi_lTempInteger_0.intValue(); szEntity = sb_szEntity.toString(); } //:szAttribute = mSARuleS.SACalcLookupColumn.QualAttributeName { MutableInt mi_lTempInteger_1 = new MutableInt(lTempInteger_1); StringBuilder sb_szAttribute; if (szAttribute == null) sb_szAttribute = new StringBuilder(32); else sb_szAttribute = new StringBuilder(szAttribute); GetVariableFromAttribute(sb_szAttribute, mi_lTempInteger_1, 'S', 65, mSARuleS, "SACalcLookupColumn", "QualAttributeName", "", 0); lTempInteger_1 = mi_lTempInteger_1.intValue(); szAttribute = sb_szAttribute.toString(); } //:szAttrType = mSARuleS.SACalcLookupColumn.QualAttributeType { MutableInt mi_lTempInteger_2 = new MutableInt(lTempInteger_2); StringBuilder sb_szAttrType; if (szAttrType == null) sb_szAttrType = new StringBuilder(32); else sb_szAttrType = new StringBuilder(szAttrType); GetVariableFromAttribute(sb_szAttrType, mi_lTempInteger_2, 'S', 2, mSARuleS, "SACalcLookupColumn", "QualAttributeType", "", 0); lTempInteger_2 = mi_lTempInteger_2.intValue(); szAttrType = sb_szAttrType.toString(); } //:szOper = mSARuleS.SACalcLookupColumn.QualOperator { MutableInt mi_lTempInteger_3 = new MutableInt(lTempInteger_3); StringBuilder sb_szOper; if (szOper == null) sb_szOper = new StringBuilder(32); else sb_szOper = new StringBuilder(szOper); GetVariableFromAttribute(sb_szOper, mi_lTempInteger_3, 'S', 11, mSARuleS, "SACalcLookupColumn", "QualOperator", "", 0); lTempInteger_3 = mi_lTempInteger_3.intValue(); szOper = sb_szOper.toString(); } //:szView = mSARuleS.SACalcLookupColumn.QualViewName { MutableInt mi_lTempInteger_4 = new MutableInt(lTempInteger_4); StringBuilder sb_szView; if (szView == null) sb_szView = new StringBuilder(32); else sb_szView = new StringBuilder(szView); GetVariableFromAttribute(sb_szView, mi_lTempInteger_4, 'S', 65, mSARuleS, "SACalcLookupColumn", "QualViewName", "", 0); lTempInteger_4 = mi_lTempInteger_4.intValue(); szView = sb_szView.toString(); } //:GET VIEW vAnyView NAMED szView RESULT = GetViewByName(vAnyView, szView, mSARuleS, zLEVEL_TASK); //:// see what type the attribute is. //:IF szAttrType = "S" if (ZeidonStringCompare(szAttrType, 1, 0, "S", 1, 0, 2) == 0) { //:GetStringFromAttribute( szStringToCompare, vAnyView, szEntity, szAttribute ) { StringBuilder sb_szStringToCompare; if (szStringToCompare == null) sb_szStringToCompare = new StringBuilder(32); else sb_szStringToCompare = new StringBuilder(szStringToCompare); GetStringFromAttribute(sb_szStringToCompare, vAnyView, szEntity, szAttribute); szStringToCompare = sb_szStringToCompare.toString(); } //:nCompareResult = //: CompareAttributeToString( mSARuleS, "SACalcLookupColumn", "QualStringValue", szStringToCompare ) nCompareResult = CompareAttributeToString(mSARuleS, "SACalcLookupColumn", "QualStringValue", szStringToCompare); //:ELSE } else { //:GetDecimalFromAttribute( dValueToCompare, vAnyView, szEntity, szAttribute ) { MutableDouble md_dValueToCompare = new MutableDouble(dValueToCompare); GetDecimalFromAttribute(md_dValueToCompare, vAnyView, szEntity, szAttribute); dValueToCompare = md_dValueToCompare.doubleValue(); } //:nCompareResult = //: CompareAttributeToDecimal( mSARuleS, "SACalcLookupColumn", "MinAttributeForAward", dValueToCompare ) nCompareResult = CompareAttributeToDecimal(mSARuleS, "SACalcLookupColumn", "MinAttributeForAward", dValueToCompare); //:nCompareResult2 = //: CompareAttributeToDecimal( mSARuleS, "SACalcLookupColumn", "MaxAttributeForAward", dValueToCompare ) nCompareResult2 = CompareAttributeToDecimal(mSARuleS, "SACalcLookupColumn", "MaxAttributeForAward", dValueToCompare); } //:END //:// -1 attribute value is less than string value //:// 0 attribute value is equal to string value //:// 1 attribute value is greater than string value //:nRC = CompareResults( szOper, nCompareResult, nCompareResult2 ) nRC = omSARuleS_CompareResults(szOper, nCompareResult, nCompareResult2); //:IF nRC = 1 if (nRC == 1) { //:mSARuleS.SACalcLookupColumn.wQualTrue = "Y" SetAttributeFromString(mSARuleS, "SACalcLookupColumn", "wQualTrue", "Y"); //:RETURN 1 if (8 == 8) return (1); } //:END //:IF nRC = -1 if (nRC == -1) { //:mSARuleS.SACalcLookupColumn.wQualTrue = "N" SetAttributeFromString(mSARuleS, "SACalcLookupColumn", "wQualTrue", "N"); //:RETURN -1 if (8 == 8) return (-1); } //:END return (0); // END }
From source file:com.quinsoft.swauopencuas.mSARuleS_Object.java
public int omSARuleS_dGetRowCalcAward(View mSARuleS, String InternalEntityStructure, String InternalAttribStructure, Integer GetOrSetFlag) { double dMinAward = 0.0; //:DECIMAL dAwardAmount double dAwardAmount = 0.0; //:DECIMAL dValue double dValue = 0.0; //:DECIMAL dNewValue double dNewValue = 0.0; //:STRING ( 64 ) szView String szView = null;//w w w . j a v a 2 s. c o m //:STRING ( 64 ) szEntity String szEntity = null; //:STRING ( 64 ) szAttribute String szAttribute = null; //:STRING ( 64 ) szAttrType String szAttrType = null; //:STRING ( 2000 ) szValue String szValue = null; //:STRING ( 1 ) szUseMult String szUseMult = null; //:VIEW vAnyView zVIEW vAnyView = new zVIEW(); int lTempInteger_0 = 0; int lTempInteger_1 = 0; int lTempInteger_2 = 0; int lTempInteger_3 = 0; int lTempInteger_4 = 0; int lTempInteger_5 = 0; int RESULT = 0; //:szUseMult = "" { StringBuilder sb_szUseMult; if (szUseMult == null) sb_szUseMult = new StringBuilder(32); else sb_szUseMult = new StringBuilder(szUseMult); ZeidonStringCopy(sb_szUseMult, 1, 0, "", 1, 0, 2); szUseMult = sb_szUseMult.toString(); } //:dMinAward = 0 dMinAward = 0; //:CASE GetOrSetFlag switch (GetOrSetFlag) { //:OF zDERIVED_GET: case zDERIVED_GET: //:szUseMult = mSARuleS.SACalcLookupRow.UseAmountAsMultiplier { MutableInt mi_lTempInteger_0 = new MutableInt(lTempInteger_0); StringBuilder sb_szUseMult; if (szUseMult == null) sb_szUseMult = new StringBuilder(32); else sb_szUseMult = new StringBuilder(szUseMult); GetVariableFromAttribute(sb_szUseMult, mi_lTempInteger_0, 'S', 2, mSARuleS, "SACalcLookupRow", "UseAmountAsMultiplier", "", 0); lTempInteger_0 = mi_lTempInteger_0.intValue(); szUseMult = sb_szUseMult.toString(); } //:dMinAward = mSARuleS.SACalcLookupRow.MinimumAwardAmount { MutableDouble md_dMinAward = new MutableDouble(dMinAward); GetDecimalFromAttribute(md_dMinAward, mSARuleS, "SACalcLookupRow", "MinimumAwardAmount"); dMinAward = md_dMinAward.doubleValue(); } //:szAttrType = mSARuleS.SACalcLookupRow.QualAttributeType { MutableInt mi_lTempInteger_1 = new MutableInt(lTempInteger_1); StringBuilder sb_szAttrType; if (szAttrType == null) sb_szAttrType = new StringBuilder(32); else sb_szAttrType = new StringBuilder(szAttrType); GetVariableFromAttribute(sb_szAttrType, mi_lTempInteger_1, 'S', 65, mSARuleS, "SACalcLookupRow", "QualAttributeType", "", 0); lTempInteger_1 = mi_lTempInteger_1.intValue(); szAttrType = sb_szAttrType.toString(); } //:// see what type the attribute is. //:IF szAttrType = "S" if (ZeidonStringCompare(szAttrType, 1, 0, "S", 1, 0, 65) == 0) { //:szValue = mSARuleS.SACalcLookupRow.AwardAmount { MutableInt mi_lTempInteger_2 = new MutableInt(lTempInteger_2); StringBuilder sb_szValue; if (szValue == null) sb_szValue = new StringBuilder(32); else sb_szValue = new StringBuilder(szValue); GetVariableFromAttribute(sb_szValue, mi_lTempInteger_2, 'S', 2001, mSARuleS, "SACalcLookupRow", "AwardAmount", "", 0); lTempInteger_2 = mi_lTempInteger_2.intValue(); szValue = sb_szValue.toString(); } //:StoreStringInRecord( mSARuleS, InternalEntityStructure, //: InternalAttribStructure, szValue ) StoreStringInRecord(mSARuleS, InternalEntityStructure, InternalAttribStructure, szValue); //:ELSE } else { //:IF szUseMult != "Y" if (ZeidonStringCompare(szUseMult, 1, 0, "Y", 1, 0, 2) != 0) { //:dAwardAmount = mSARuleS.SACalcLookupRow.AwardAmount { MutableDouble md_dAwardAmount = new MutableDouble(dAwardAmount); GetDecimalFromAttribute(md_dAwardAmount, mSARuleS, "SACalcLookupRow", "AwardAmount"); dAwardAmount = md_dAwardAmount.doubleValue(); } //:StoreValueInRecord( mSARuleS, InternalEntityStructure, //: InternalAttribStructure, dAwardAmount, 0 ) StoreValueInRecord(mSARuleS, InternalEntityStructure, InternalAttribStructure, dAwardAmount, 0); //:ELSE } else { //:// get the values we are looking for //:szView = mSARuleS.SACalcLookupRow.QualViewName { MutableInt mi_lTempInteger_3 = new MutableInt(lTempInteger_3); StringBuilder sb_szView; if (szView == null) sb_szView = new StringBuilder(32); else sb_szView = new StringBuilder(szView); GetVariableFromAttribute(sb_szView, mi_lTempInteger_3, 'S', 65, mSARuleS, "SACalcLookupRow", "QualViewName", "", 0); lTempInteger_3 = mi_lTempInteger_3.intValue(); szView = sb_szView.toString(); } //:szEntity = mSARuleS.SACalcLookupRow.QualEntityName { MutableInt mi_lTempInteger_4 = new MutableInt(lTempInteger_4); StringBuilder sb_szEntity; if (szEntity == null) sb_szEntity = new StringBuilder(32); else sb_szEntity = new StringBuilder(szEntity); GetVariableFromAttribute(sb_szEntity, mi_lTempInteger_4, 'S', 65, mSARuleS, "SACalcLookupRow", "QualEntityName", "", 0); lTempInteger_4 = mi_lTempInteger_4.intValue(); szEntity = sb_szEntity.toString(); } //:szAttribute = mSARuleS.SACalcLookupRow.QualAttributeName { MutableInt mi_lTempInteger_5 = new MutableInt(lTempInteger_5); StringBuilder sb_szAttribute; if (szAttribute == null) sb_szAttribute = new StringBuilder(32); else sb_szAttribute = new StringBuilder(szAttribute); GetVariableFromAttribute(sb_szAttribute, mi_lTempInteger_5, 'S', 65, mSARuleS, "SACalcLookupRow", "QualAttributeName", "", 0); lTempInteger_5 = mi_lTempInteger_5.intValue(); szAttribute = sb_szAttribute.toString(); } //:GET VIEW vAnyView NAMED szView RESULT = GetViewByName(vAnyView, szView, mSARuleS, zLEVEL_TASK); //:GetDecimalFromAttribute( dValue, vAnyView, szEntity, szAttribute ) { MutableDouble md_dValue = new MutableDouble(dValue); GetDecimalFromAttribute(md_dValue, vAnyView, szEntity, szAttribute); dValue = md_dValue.doubleValue(); } //:dAwardAmount = mSARuleS.SACalcLookupRow.AwardAmount { MutableDouble md_dAwardAmount = new MutableDouble(dAwardAmount); GetDecimalFromAttribute(md_dAwardAmount, mSARuleS, "SACalcLookupRow", "AwardAmount"); dAwardAmount = md_dAwardAmount.doubleValue(); } //:dNewValue = dValue * dAwardAmount dNewValue = dValue * dAwardAmount; //:IF dNewValue < dMinAward if (dNewValue < dMinAward) { //:dNewValue = dMinAward dNewValue = dMinAward; } //:END //:StoreValueInRecord( mSARuleS, InternalEntityStructure, //: InternalAttribStructure, dNewValue, 0 ) StoreValueInRecord(mSARuleS, InternalEntityStructure, InternalAttribStructure, dNewValue, 0); } //:END } //:END break; //: /* end zDERIVED_GET */ //:OF zDERIVED_SET: case zDERIVED_SET: break; } //: /* end zDERIVED_SET */ //:END /* case */ return (0); // END }