private void Retrieve_D()
//-----------------------
{
//....Ref. Radial_Rev11_27OCT11: Col. CC - 'SplitLine' & GC - 'AntiRotation'
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
if (mD_Desig == null || mD_Desig == "")
{
return;
}
if (mUnit.System == clsUnit.eSystem.English)
{
var pProject = (from pRec in pBearingDBEntities.tblManf_Pin_D where pRec.fldD_Desig == mD_Desig select pRec.fldD).ToList();
if (pProject.Count > 0)
{
mD = mDB.CheckDBDouble(pProject[0]); //....Retrieved in "in"
}
}
else if (mUnit.System == clsUnit.eSystem.Metric && mD_Desig.Contains("M"))
{
//....Not yet in the database. Parse the D_Desig string (e.g. M3) to get the dia in mm.
mD = Convert.ToDouble(mD_Desig.Remove(0, 1)) / 25.4; //....1 in = 25.4 mm.
}
}
//-----------------------------
public Double Thread_L_LowerLimit()
//===================================== AES 04JUL18
{
//....The routine output unit: //PB 09JUN09. SB, change elsewhere.
//........UnitSystem = English: in.
//........ = Metric: mm.
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
Double pL_LowerLimit = 0.0F;
Double pDThread = 0.0F;
//....If Unit = English, DThread = in.
//....ElseIf Unit = Metric, DThread = mm.
//
var pProject = (from pRec in pBearingDBEntities.tblManf_Screw_D where pRec.fldD_Desig == mScrew_Spec.D_Desig select pRec).ToList();
if (pProject.Count > 0)
{
pDThread = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[0].fldD);
}
if (mScrew_Spec.Unit.System == clsUnit.eSystem.English)
{
//SB 31JUL09
//...To be done later.
//....Refer to "Radial_Rev7_10JUL09.xls", column AR (English).
//....MROUND((AN3+0.25)-Z3,0.125)
Double pZ3, pAN3;
pZ3 = pDThread / 25.4; //....Convert to in.
pAN3 = modMain.MRound(2.5 * pZ3, 0.0625);
pL_LowerLimit = modMain.MRound(pAN3 + 0.25 - pZ3, 0.125);
}
else if (mScrew_Spec.Unit.System == clsUnit.eSystem.Metric)
{
//....Refer to "Radial_Rev5_30MAR05", column AS (Metric).
Double pZ3, pAN3, pAR3, pAQ3;
pZ3 = pDThread / 25.4; //....Convert to in.
pAN3 = modMain.MRound(2.5 * pZ3, 0.0625);
pAR3 = modMain.MRound(pAN3 + 0.25 - pZ3, 0.125);
pAQ3 = pAR3 - pAN3 + pZ3;
pL_LowerLimit = (pAN3 + pAQ3 - pZ3) * 25.4; //....Convert back to mm.
pL_LowerLimit = modMain.MRound(pL_LowerLimit, 1);
}
return(pL_LowerLimit);
}
//====================
public string MatCode(string Mat_In)
//===================================
{
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
string pWaukeshaCode = "";
var pProject = (from pRec in pBearingDBEntities.tblData_Mat where pRec.fldName == Mat_In select pRec.fldCode_Waukesha).ToList();
if (pProject.Count > 0)
{
pWaukeshaCode = modMain.gDB.CheckDBString(pProject[0]);
}
return(pWaukeshaCode);
}
//====================
private void GetTypeList()
//========================
{
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
var pQryManf_Pin = (from pRec in pBearingDBEntities.tblManf_Pin select pRec.fldType).Distinct().ToList();
if (pQryManf_Pin.Count() > 0)
{
for (int i = 0; i < pQryManf_Pin.Count; i++)
{
mTypeList.Add(pQryManf_Pin[i].ToString().Trim());
}
}
}
public Double RFillet_ID()
//========================
{
//....Retrieve from database.
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
Double pR = 0.0f;
Decimal pDSet = (Decimal)mCurrent_Bearing_Radial_FP.DSet();
var pProject = (from pRec in pBearingDBEntities.tblDesign_Pad_Fillet where pRec.fldDSet_LLim <= pDSet && pRec.fldDSet_ULim >= pDSet select pRec.fldR).ToList();
if (pProject.Count > 0)
{
pR = Convert.ToDouble(pProject[0]);
}
return(pR);
}
public Double Angle()
//====================
{
//....Retrieve from database.
//....Retrieve from database.
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
Double pAngle = 0.0f;
var pProject = (from pRec in pBearingDBEntities.tblDesign_Pad where pRec.fldQty == mCount select pRec.fldAngle).ToList();
if (pProject.Count > 0)
{
pAngle = Convert.ToDouble(pProject[0]);
}
return(pAngle);
}
private void LoadOilSupply_Lube_Type()
//====================================
{
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
//....Lube
var pQryLube = (from pRec in pBearingDBEntities.tblData_Lube orderby pRec.fldType ascending select pRec).ToList();
cmbLube_Type.Items.Clear();
if (pQryLube.Count() > 0)
{
for (int i = 0; i < pQryLube.Count; i++)
{
cmbLube_Type.Items.Add(pQryLube[i].fldType);
}
cmbLube_Type.SelectedIndex = -1;
}
}
private void PopulateMaterial()
//==============================
{
for (int i = 0; i < 2; i++)
{
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
//....Base Material.
var pQryBaseMat = (from pRec in pBearingDBEntities.tblData_Mat
where
pRec.fldBase == true
orderby pRec.fldName ascending
select pRec).ToList();
mcmbMatBase[i].Items.Clear();
if (pQryBaseMat.Count() > 0)
{
for (int j = 0; j < pQryBaseMat.Count; j++)
{
mcmbMatBase[i].Items.Add(pQryBaseMat[j].fldName);
}
mcmbMatBase[i].SelectedIndex = 0;
}
//....Lining Material.
var pQryLiningMat = (from pRec in pBearingDBEntities.tblData_Mat
where
pRec.fldLining == true
orderby pRec.fldName ascending
select pRec).ToList();
mcmbMatLining[i].Items.Clear();
if (pQryBaseMat.Count() > 0)
{
for (int k = 0; k < pQryLiningMat.Count; k++)
{
mcmbMatLining[i].Items.Add(pQryLiningMat[k].fldName);
}
mcmbMatLining[i].SelectedIndex = 0;
}
}
;
}
public static Double D(String D_Desig_In)
//========================================
{
//....Returns Diameter in inch.
clsDB pDB = new clsDB();
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
Double pD = 0.0F;
if (D_Desig_In != null)
{
var pProject = (from pRec in pBearingDBEntities.tblManf_Drill where pRec.fldD_Desig == D_Desig_In select pRec.fldD).ToList();
if (pProject.Count > 0)
{
pD = pDB.CheckDBDouble(pProject[0]);
}
else if (!D_Desig_In.Contains("/"))
{
pD = modMain.ConvTextToDouble(D_Desig_In);
}
}
return(pD);
}
public Double Tol_DBore(String Tol_Type_In)
//==========================================
{
Decimal pDSet = (Decimal)((clsBearing_Radial_FP)mCurrentProduct.Bearing).DSet();
//....Retrieve from database.
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
Double pTol_Detail_DSet = 0.0f;
var pProject = (from pRec in pBearingDBEntities.tblDesign_Tol where pRec.fldDSet_LLim <= pDSet && pRec.fldDSet_ULim >= pDSet select pRec).ToList();
if (pProject.Count > 0)
{
if (Tol_Type_In == "Assy")
{
pTol_Detail_DSet = Convert.ToDouble((Double)pProject[0].fldTol_Assy_EndConfig_DBore);
}
else if (Tol_Type_In == "Detail")
{
pTol_Detail_DSet = Convert.ToDouble((Double)pProject[0].fldTol_Detail_EndConfig_DBore);
}
}
return(pTol_Detail_DSet);
}
public void Retrieve() //PB 20FEB12. To be reviewed.
//=====================
{
//Approximate DBC:
//----------------
Double pDBC_Calc = Calc_DBC_Ballpark();
//DBC Limits:
//-----------
//....Based on conversation with Harout K., Waukesha Bearings, 13APR12.
//
Double pcHalfRange; // pDup;
if (mCurrent_Bearing_Radial_FP.OilInlet.Annulus.Exists == true) //....Annulus.
{
//pDup = mCurrent_Bearing_Radial_FP.OilInlet.Annulus.D;
pcHalfRange = 0.25;
}
else //....No Annulus.
{
//pDup = mCurrent_Bearing_Radial_FP.DFit();
pcHalfRange = 0.75;
}
Double pDBC_Max, pDBC_Min;
pDBC_Max = pDBC_Calc + pcHalfRange;
pDBC_Min = pDBC_Calc - pcHalfRange;
//Max. Allowable Seal OD:
//-----------------------
//....Seal_Do_Max ().
//Retrieve the Candidate Fixtures:
BearingDBEntities pBearingDBEntities = new BearingDBEntities();
Decimal pDBCMin = (Decimal)pDBC_Min;
Decimal pDBCMax = (Decimal)pDBC_Max;
Decimal pEndConfig_DO_Max = (Decimal)EndConfig_DO_Max();
//....Row Count.
int pRowCount = 0;
var pProject = (from pRec in pBearingDBEntities.tblManf_Fixture_SplitAndTurn
where pRec.fldDBC >= pDBCMin && pRec.fldDBC <= pDBCMax && pRec.fldDBC != null &&
pRec.fldDFinish <= pEndConfig_DO_Max && pRec.fldDFinish != null &&
pRec.fldPartNo != null
orderby pRec.fldDFinish ascending
select pRec).ToList();
pRowCount = pProject.Count();
if (pRowCount == 0)
{
//....Candidate Fixture doesn't exist.
mExists = false;
return;
}
else
{
//....Candidate Fixture Exists.
mExists = true;
//....Dynamically Allocate Array with RowNumber.
mPartNo = new string[pRowCount];
mDBC = new Double[pRowCount];
mD_Finish = new Double[pRowCount];
mHolesCount = new int[pRowCount];
mHolesEquiSpaced = new bool[pRowCount];
mHolesAngStart = new Double[pRowCount];
//.....Maximum Number of other Angles.
mHolesAngOther = new Double[pRowCount, mc_COUNT_MOUNT_HOLES_ANG_OTHER_MAX];
mThreadDia_Desig = new string[pRowCount];
mThreadPitch = new Double[pRowCount];
//.....Retrieve Fixture data from tblManf_Fixture_SplitAndTurn. PB 19FEB12. Recheck.
if (pProject.Count() > 0)
{
for (int i = 0; i < pRowCount; i++)
{
mPartNo[i] = pProject[i].fldPartNo.ToString();
mDBC[i] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldDBC);
mD_Finish[i] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldDFinish);
mHolesCount[i] = mCurrent_Bearing_Radial_FP.mDB.CheckDBInt(pProject[i].fldCountHoles);
mHolesEquiSpaced[i] = mCurrent_Bearing_Radial_FP.mDB.CheckDBBool(pProject[i].fldEqui_Spaced);
mHolesAngStart[i] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Start);
mThreadDia_Desig[i] = pProject[i].fldDia_Desig.ToString();
if (!mHolesEquiSpaced[i])
{
//for (int j = 0; j < mc_COUNT_MOUNT_HOLES_ANG_OTHER_MAX; j++)
mHolesAngOther[i, 0] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Other1);
mHolesAngOther[i, 1] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Other2);
mHolesAngOther[i, 2] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Other3);
mHolesAngOther[i, 3] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Other4);
mHolesAngOther[i, 4] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Other5);
mHolesAngOther[i, 5] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Other6);
mHolesAngOther[i, 6] = mCurrent_Bearing_Radial_FP.mDB.CheckDBDouble(pProject[i].fldAng_Other7);
}
if (!mCurrent_Bearing_Radial_FP.Mount.Holes_GoThru)
{
//....Go Thru' = NO;
//........Further selection criteria applied based on minimum thread depth.
//........Min Tap Drill depth.
clsScrew pScrew_Spec = new clsScrew(mCurrent_Bearing_Radial_FP.Unit.System);
pScrew_Spec.D_Desig = mThreadDia_Desig[i];
Double pDepth_TapDrill_Min;
pDepth_TapDrill_Min = 1.5 * pScrew_Spec.D + 0.0625;
if (pDepth_TapDrill_Min > 0.5 * mCurrent_Bearing_Radial_FP.Pad.L - 0.125F)
{
//....Criteria violated. This fixture is rejected from the candidate list.
mPartNo[i] = "";
}
}
}
}
}
}
