/// <summary>
/// 客户输入验证
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
private void txtEndCustomerCode_Leave(object sender, EventArgs e)
{
string endCustomerCode = txtEndCustomerCode.Text.Trim();
if (endCustomerCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("CUSTOMER", endCustomerCode);
if (baseMaster != null)
{
txtEndCustomerCode.Text = baseMaster.Code;
txtEndCustomerName.Text = baseMaster.Name;
//txtWarehouseCode.Focus();
}
else
{
MessageBox.Show("客户编号不存在。", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtEndCustomerCode.Text = "";
txtEndCustomerName.Text = "";
txtEndCustomerCode.Focus();
}
}
else
{
txtEndCustomerName.Text = "";
}
}
private void txtClaimCode_Leave(object sender, EventArgs e)
{
string claim = txtClaimCode.Text.Trim();
if (!string.IsNullOrEmpty(claim))
{
BaseMaster baseMaster = bCommon.GetBaseMaster("CUSTOMER", claim);
if (baseMaster != null)
{
txtClaimCode.Text = baseMaster.Code;
txtClaimName.Text = baseMaster.Name;
btnSave.Focus();
}
else
{
MessageBox.Show("客户编号不存在.", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtClaimCode.Text = "";
txtClaimName.Text = "";
txtClaimCode.Focus();
}
}
else
{
txtClaimName.Text = "";
}
}
protected DataSet LoadTreatments(BaseMaster BaseMstr, string strPatientID)
{
CTreatment treatment = new CTreatment();
DataSet ds = treatment.GetTreatmentListDS(BaseMstr, strPatientID);
return(ds);
}
//get a dataset of system settings
public DataSet GetSystemSettingsDS(BaseMaster BaseMstr)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
//plist.AddInputParameter("", BaseMstr.SelectedPatientID
//
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_SYSTEM_SETTINGS.GetSystemSettingsRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
private void txtCustomerCode_Leave(object sender, EventArgs e)
{
string customerCode = txtCustomerCode.Text.Trim();
if (customerCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("CUSTOMER", customerCode, " CLAIM_FLAG = 1");
if (baseMaster != null)
{
txtCustomerCode.Text = baseMaster.Code;
txtCustomerName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("请款公司不存在。", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtCustomerCode.Text = "";
txtCustomerName.Text = "";
txtCustomerCode.Focus();
}
}
else
{
txtCustomerName.Text = "";
}
}
private void txtProductionProcessCode_Leave(object sender, EventArgs e)
{
string productionProcessCode = txtProductionProcessCode.Text.Trim();
if (productionProcessCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("PRODUCTION_PROCESS", productionProcessCode, "");
if (baseMaster != null)
{
txtProductionProcessCode.Text = baseMaster.Code;
txtProductionProcessName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("工序不存在。", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtProductionProcessCode.Text = "";
txtProductionProcessName.Text = "";
btnSave.Focus();
}
}
else
{
txtProductionProcessCode.Text = "";
}
}
/// <summary>
/// 供应商CHECK
/// </summary>
private void txtSupplierCode_Leave(object sender, EventArgs e)
{
string SupplierCode = txtSupplierCode.Text.Trim();
if (!string.IsNullOrEmpty(SupplierCode))
{
BaseMaster baseMaster = bCommon.GetBaseMaster("SUPPLIER", SupplierCode);
if (baseMaster != null)
{
txtSupplierCode.Text = baseMaster.Code;
txtSupplierName.Text = baseMaster.Name;
txtSlipDateFrom.Focus();
txtBalance.Text = CConvert.ToString(GetSupplierDepositBlanace(txtSupplierCode.Text.Trim()));
}
else
{
MessageBox.Show("供应商编号不存在.", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtSupplierCode.Text = "";
txtSupplierName.Text = "";
txtBalance.Text = "";
txtSupplierCode.Focus();
}
}
else
{
txtSupplierName.Text = "";
txtBalance.Text = "";
}
}
public DataSet GetReferralClinicLookupDS(BaseMaster BaseMstr,
string strSearchValue
)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vSearchValue", strSearchValue);
//
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_REFERRAL_CLINIC.GetReferralClinicLookUpRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
public DataSet GetEncIntakeResponseAllDS(BaseMaster BaseMstr,
string strEncounterID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
plist.AddInputParameter("pi_vEncounterID", strEncounterID);
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_ENCOUNTER_INTAKE.GetEncIntakeResponseAllRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
public DataSet GetIntakeReportCSVDS(
BaseMaster BaseMstr,
string strEncounterID,
long lEncIntakeID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vEncounterID", strEncounterID);
plist.AddInputParameter("pi_nEncIntakeID", lEncIntakeID);
//
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_INTAKE.GetIntakeReportCSVRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
public bool DiscontinueReferralClinic(BaseMaster BaseMstr,
long lReferralID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_nReferralID", lReferralID);
BaseMstr.DBConn.ExecuteOracleSP("PCK_REFERRAL_CLINIC.DiscontinueReferralClinic",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
// 0 = success if strStatus is populated it will show on the screen
// 1 to n are errors and we always show errors
if (lStatusCode == 0)
{
return(true);
}
return(false);
}
/// <summary>
/// 角色的验证事件
/// </summary>
private void txtRolesCode_Leave(object sender, EventArgs e)
{
string rolesCode = txtRolesCode.Text.Trim();
if (rolesCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("ROLES", rolesCode);
if (baseMaster != null)
{
txtRolesCode.Text = baseMaster.Code;
txtRolesName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("角色不存在！", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtRolesCode.Text = "";
txtRolesName.Text = "";
txtRolesCode.Focus();
}
}
else
{
txtRolesName.Text = "";
}
}
private void txtCustomerCode_Leave(object sender, EventArgs e)
{
string customerCode = txtCustomerCode.Text.Trim();
if (customerCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("CUSTOMER", customerCode);
if (baseMaster != null)
{
txtCustomerCode.Text = baseMaster.Code;
txtCustomerName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("客户不存在。", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtCustomerCode.Text = "";
txtCustomerName.Text = "";
txtCustomerCode.Focus();
}
}
else
{
txtCustomerName.Text = "";
}
txtBalance.Text = CConvert.ToString(GetCustomerDepositBlanace(txtCustomerCode.Text.Trim()));
}
private void txtSalesCode_Leave(object sender, EventArgs e)
{
string SalesCode = CConstant.DEFAULT_COMPANY_CODE + txtSalesCode.Text.Trim();
if (SalesCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("USER", SalesCode);
if (baseMaster != null)
{
txtSalesCode.Text = baseMaster.Code.Substring(2);
txtSales.Text = baseMaster.Name;
}
else
{
MessageBox.Show("销售人员编号不存在。", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtSalesCode.Text = "";
txtSales.Text = "";
txtSalesCode.Focus();
}
}
else
{
txtSales.Text = "";
}
}
private void txtProductCode_Leave(object sender, EventArgs e)
{
string ProductCode = txtProductCode.Text.Trim();
if (ProductCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("PRODUCT", ProductCode);
if (baseMaster != null)
{
txtProductCode.Text = baseMaster.Code;
txtProductName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("商品不存在.", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtProductCode.Text = "";
txtProductName.Text = "";
txtProductCode.Focus();
}
}
else
{
txtProductName.Text = "";
}
}
//get a dataset of patients modules
public DataSet GetScheduledPatientModulesDS(BaseMaster BaseMstr,
string strPatientID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vPatientID", strPatientID);
//
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_PATIENT.GetScheduledPatientModuleRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
private void txtCompositionProductsCode_Leave(object sender, EventArgs e)
{
string compositionCode = txtCompositionProductsCode.Text.Trim();
if (compositionCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("COMPOSITION_PRODUCTS", compositionCode, "");
if (baseMaster != null)
{
txtCompositionProductsCode.Text = baseMaster.Code;
txtCompositionProductsName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("主配件不存在.", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtCompositionProductsCode.Text = "";
txtCompositionProductsName.Text = "";
txtCompositionProductsCode.Focus();
}
}
else
{
txtCompositionProductsName.Text = "";
}
}
//get a dataset of Intake Modules List
protected DataSet GetModulesListDS(BaseMaster BaseMstr)
{
//status info
long lStatusCode = 0;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_INTAKE.GetModulesListRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
private void txtSlipType_Leave(object sender, EventArgs e)
{
string SlipTypeCode = txtSlipType.Text.Trim();
if (SlipTypeCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("SLIP_TYPE", SlipTypeCode);
if (baseMaster != null)
{
txtSlipType.Text = baseMaster.Code;
txtSlipTypeName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("模具种类编号不存在。", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtSlipType.Text = "";
txtSlipTypeName.Text = "";
txtSlipType.Focus();
}
}
else
{
txtSlipTypeName.Text = "";
}
}
public bool AssignPatientModules(BaseMaster BaseMstr,
string strPatientID,
string strProviderID,
string strModules)
{
//status info
long lStatusCode = 0;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vPatientID", strPatientID);
plist.AddInputParameter("pi_vProviderID", strProviderID);
plist.AddInputParameter("pi_vModules", strModules);
BaseMstr.DBConn.ExecuteOracleSP("PCK_INTAKE.AssignPatientModules",
plist,
out lStatusCode,
out strStatusComment);
//set the base mastekr status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
// 0 = success if strStatus is populated it will show on the screen
// 1 to n are errors and we always show errors
if (lStatusCode == 0)
{
return(true);
}
return(false);
}
//get a dataset of States
public DataSet GetProviderDS(BaseMaster BaseMstr,
string strDIMSID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vDIMSID", strDIMSID);
//get and return a dataset
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_PROVIDER.GetProviderRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
return(null);
}
private void txtSupplierCode_Leave(object sender, EventArgs e)
{
string SupplierCode = txtSupplierCode.Text.Trim();
if (!string.IsNullOrEmpty(SupplierCode))
{
BaseMaster baseMaster = bCommon.GetBaseMaster("SUPPLIER", SupplierCode);
BaseSupplierTable CurrenceCodeTable = GetSupplierCurrence(SupplierCode);
if (baseMaster != null)
{
txtSupplierCode.Text = baseMaster.Code;
txtSupplierName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("供应商编号不存在.", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtSupplierCode.Text = "";
txtSupplierName.Text = "";
txtSupplierCode.Focus();
}
}
else
{
txtSupplierName.Text = "";
}
}
private void txtSupplierCode_Leave(object sender, EventArgs e)
{
string SupplierCode = txtSupplierCode.Text.Trim();
if (SupplierCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("SUPPLIER", SupplierCode);
if (baseMaster != null)
{
txtSupplierCode.Text = baseMaster.Code;
txtSupplierName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("出库仓库不存在.", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtSupplierCode.Text = "";
txtSupplierName.Text = "";
txtSupplierCode.Focus();
}
}
else
{
txtSupplierName.Text = "";
}
}
private void txtSupplierCode_Leave(object sender, EventArgs e)
{
string supplier = txtSupplierCode.Text.Trim();
if (!string.IsNullOrEmpty(supplier))
{
BaseMaster baseMaster = bCommon.GetBaseMaster("SUPPLIER", supplier);
if (baseMaster != null)
{
txtSupplierCode.Text = baseMaster.Code;
txtSupplierName.Text = baseMaster.Name;
txtProductCode.Focus();
}
else
{
MessageBox.Show("供应商编号不存在，请重新输入!", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtSupplierCode.Text = "";
txtSupplierName.Text = "";
txtSupplierCode.Focus();
}
}
else
{
txtSupplierName.Text = "";
}
}
public bool updtObjective(BaseMaster BaseMstr, string strEncounterID, long lnTreatmentID, string strObjective)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList pList = new CDataParameterList(BaseMstr);
pList.AddInputParameter("pi_vPatientID", BaseMstr.SelectedPatientID);
pList.AddInputParameter("pi_vEncounterID", strEncounterID);
pList.AddInputParameter("pi_nTreatmentID", lnTreatmentID);
pList.AddInputParameterCLOB("pi_vObjective", strObjective);
BaseMstr.DBConn.ExecuteOracleSP("PCK_SOAPP_REPORT.updtObjective",
pList,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(true);
}
else
{
return(false);
}
}
private void txtUnitCode_Leave(object sender, EventArgs e)
{
string unit = txtUnitCode.Text.Trim();
if (!string.IsNullOrEmpty(unit))
{
BaseMaster baseMaster = bCommon.GetBaseMaster("UNIT", unit);
if (baseMaster != null)
{
txtUnitCode.Text = baseMaster.Code;
txtUnitName.Text = baseMaster.Name;
txtPrice.Focus();
}
else
{
MessageBox.Show("单位编号不存在，请重新输入!", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtUnitCode.Text = "";
txtUnitName.Text = "";
txtUnitCode.Focus();
}
}
else
{
txtUnitName.Text = "";
}
}
/// <summary>
/// 仓库输入验证
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
private void txtWarehouseCode_Leave(object sender, EventArgs e)
{
string warehouseCode = txtWarehouseCode.Text.Trim();
if (warehouseCode != "")
{
BaseMaster baseMaster = bCommon.GetBaseMaster("WAREHOUSE", warehouseCode);
if (baseMaster != null)
{
txtWarehouseCode.Text = baseMaster.Code;
txtWarehouseName.Text = baseMaster.Name;
}
else
{
MessageBox.Show("仓库编号不存在.", this.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning);
txtWarehouseCode.Text = "";
txtWarehouseName.Text = "";
txtWarehouseCode.Focus();
}
}
else
{
txtWarehouseName.Text = "";
}
}
//get a dataset of military services
public DataSet GetMilitaryServiceDS(BaseMaster BaseMstr)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//get and return a dataset
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_MILITARY.GetMilitaryServiceRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
protected void RenderPatientAssessments(BaseMaster BaseMstr, Ext.Net.TreeNode tn, long lTreatmentID)
{
Ext.Net.TreeNode assessments = new Ext.Net.TreeNode("Assessments");
assessments.Expanded = true;
tn.Nodes.Add(assessments);
}
//get a dataset of patients encounters w/Additional Demographics Data
public DataSet GetInitialVisitDS(BaseMaster BaseMstr,
string strPatientID,
long lnTreatmentID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
plist.AddInputParameter("pi_vPatientID", strPatientID);
plist.AddInputParameter("pi_nTreatmentID", lnTreatmentID);
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_ENCOUNTER.GetInitialVisitRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(ds);
}
else
{
return(null);
}
}
