protected void btnUnAudit_Click(object sender, EventArgs e)
{
if (ddlFLAG.SelectedValue == "N")
{
Alert.Show("【未审核】供应商，无法进行【反审核】操作");
return;
}
else
{
String strSUPID = tbxSUPID.Text.ToString();
if (string.IsNullOrEmpty(tbxSUPID.Text))
{
Alert.Show("未选择供应商，无法进行【反审核】操作");
return;
}
if (DbHelperOra.Exists("select 1 from DAT_GOODSSTOCK t where pssid = '" + strSUPID + "' and t.kcsl > 0"))
{
Alert.Show("当前供应商下还存在有库存的商品，无法执行【反审核】操作。");
return;
}
if (DbHelperOra.Exists(string.Format("SELECT 1 FROM DAT_DD_DOC WHERE PSSID = '{0}' AND (FLAG ='N' OR (isend = 'N' AND FLAG = 'Y'))", strSUPID)))
{
Alert.Show("当前供应商下还存在有在途中的商品，无法执行【反审核】操作。");
return;
}
DbHelperOra.ExecuteSql("UPDATE DOC_SUPPLIER SET FLAG = 'N' WHERE SUPID IN ('" + strSUPID + "')");
Alert.Show("【反审核】成功");
OperLog("供应商资料", "反审核供应商【" + strSUPID + "】");
ERPUtility.CacheClear("DOC_SUPPLIER");
cxsj(strSUPID);
dataSearch();
}
}
protected override void billExport()
{
if (GridList == null || docBILLNO.Text == "")
{
Alert.Show("没有数据无法导出，请先生成采购计划！", "异常提示", MessageBoxIcon.Warning);
return;
}
//string strSql = string.Format(@"SELECT
// GD.GDNAME 商品名称,
// GD.GDSEQ 商品编码,
// GD.GDSPEC 商品规格,
// F_GETUNITNAME(GD.Unit) 商品单位,
// GD.BZHL 包装数量,
// GD.PIZNO 批号,
// GD.HSJJ 含税进价,
// F_GETPRODUCERNAME(GD.Producer) 生产厂商,
// NVL(CFG.ZGKC,0) 最高库存,
// NVL(CFG.ZDKC,0) 最低库存,
// DECODE(GD.UNIT_ORDER,'D',GD.NUM_DABZ,'Z',GD.NUM_ZHONGBZ,GD.BZHL) 最小包装数量,
// F_GETZTKC('{3}',GD.GDSEQ) * DECODE(GD.UNIT_ORDER,'D',GD.NUM_DABZ,'Z',GD.NUM_ZHONGBZ,GD.BZHL) 在途数量,
// F_GETJYDH('{3}',GD.GDSEQ,'DAY', '{1}','{2}') 日均用量,
// F_GETJYDH('{3}',GD.GDSEQ,'DS', '{1}','{2}')* DECODE(GD.UNIT_ORDER,'D',GD.NUM_DABZ,'Z',GD.NUM_ZHONGBZ,GD.BZHL)*{0} 建议采购量,
// F_GETJYDH('{3}',GD.GDSEQ,'DS', '{1}','{2}')* DECODE(GD.UNIT_ORDER,'D',GD.NUM_DABZ,'Z',GD.NUM_ZHONGBZ,GD.BZHL)*{0}*GD.HSJJ 含税金额
// FROM
// (SELECT GDSEQ, ABS(SUM(SL)) SL
// FROM DAT_GOODSJXC A
// WHERE RQSJ BETWEEN TO_DATE('{1}', 'YYYY-MM-DD') AND
// TO_DATE('{2}', 'YYYY-MM-DD')
// AND EXISTS (SELECT 1
// FROM SYS_DEPT
// WHERE TYPE = '3'
// AND CODE = A.DEPTID)
// GROUP BY GDSEQ) JXC,
// (SELECT GDSEQ, SUM(KCSL) KCSL
// FROM DAT_GOODSSTOCK S
// WHERE EXISTS (SELECT 1
// FROM SYS_DEPT
// WHERE TYPE = '3'
// AND CODE = S.DEPTID)
// GROUP BY GDSEQ) GS,
// (SELECT GDNAME, GDSEQ, GDSPEC, UNIT, BZHL, PIZNO, HSJJ, PRODUCER,UNIT_ORDER,NUM_DABZ,NUM_ZHONGBZ
// FROM DOC_GOODS
// WHERE ISGZ = 'N') GD,
// (SELECT ZGKC, ZDKC, GDSEQ
// FROM DOC_GOODSCFG WHERE DEPTID={3}) CFG
// WHERE JXC.GDSEQ = GS.GDSEQ(+)
// AND JXC.GDSEQ = GD.GDSEQ
// AND JXC.GDSEQ = CFG.GDSEQ", Convert.ToDecimal(nbxYSSL.Text), dpStartDate.Text, dpEndDate.Text, UserAction.UserDept);
//DataTable dt = DbHelperOra.Query(strSql).Tables[0];
DataTable dtData = DbHelperOra.Query(string.Format("SELECT * FROM DAT_DDPLAN_COM WHERE BILLTYPE='CJD' AND SEQNO='{0}'", docBILLNO.Text)).Tables[0];
if (dtData == null || dtData.Rows.Count == 0)
{
Alert.Show("未获取到单据【" + docBILLNO.Text + "】的明细信息，无法导出！", "异常提示", MessageBoxIcon.Warning);
return;
}
ExcelHelper.ExportByWeb(ERPUtility.ExportDataTable(GridGoods, dtData), "采购单信息", "采购单导出_" + DateTime.Now.ToString("yyyyMMddHHmmss") + ".xls");
}
private void FP_Action()
{
//进行库存分配
try{
if (docFLAG.SelectedValue == "A")
{
OracleParameter[] parameters = new OracleParameter[]
{
new OracleParameter("BILLNO", OracleDbType.Varchar2),
new OracleParameter("USERID", OracleDbType.Varchar2),
};
parameters[0].Value = docSEQNO.Text;
parameters[1].Value = UserAction.UserID;
DbHelperOra.RunProcedure("STOREDS.P_FP_DBD", parameters);
billOpen(docSEQNO.Text);
Alert.Show("库存分配成功，可继续审核出库!");
}
else
{
Alert.Show("单据状态不正确,不能进行库存分配!");
return;
}
}
catch (Exception ex)
{
Alert.Show(ERPUtility.errorParse(ex.Message), "消息提示", MessageBoxIcon.Warning);
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
dpkout1.SelectedDate = DateTime.Now.AddDays(-1);
dpkout2.SelectedDate = DateTime.Now;
DepartmentBind.BindDDL("DDL_SYS_DEPTALLRANGE", UserAction.UserID, lstDEPTID);
ERPUtility.CacheClear("SYS_DEPT");
hfdCurrent.Text = UserAction.UserID;
}
}
protected void btnSave_Click(object sender, EventArgs e)
{
if (PubFunc.FormDataCheck(FormMx).Length > 0)
{
return;
}
//if (tbxCode.Text.Length != ddlSJCODE.SelectedValue.Length + 2 && tbxCode.Text.Length > 2)
//{
// Alert.Show("编码规则不正确，请检查！", "提示信息", MessageBoxIcon.Warning);
// return;
//}
//增加控制避免主键重复
if ((DbHelperOra.Exists("select 1 from SYS_DEPT where code = '" + tbxCode.Text + "'")) && (tbxCode.Enabled))
{
Alert.Show("你输入的编码已存在,请检查!");
return;
}
if (string.IsNullOrWhiteSpace(ddlSJCODE.SelectedValue))
{
Alert.Show("请填选上级！", "提示", MessageBoxIcon.Information);
return;
}
if (!CheckTel(tbxSTR6.Text))
{
Alert.Show("联系电话请保证格式（固话XXX-XXX）(手机1XXX)！");
return;
}
string ls_codelabel;
MyTable mtTable = new MyTable(strTable, "CODE");
mtTable.ColRow = PubFunc.FormDataHT(FormMx);
ls_codelabel = PubFunc.FormLabelGet(FormMx, "CODE");
if (PubFunc.StrIsEmpty(mtTable.ColRow["CODE"].ToString()))
{
Alert.Show("【" + ls_codelabel + "】不能为空！");
return;
}
if (tbxCode.Enabled) //新增
{
mtTable.InsertExec();
}
else
{
mtTable.UpdateExec("");
}
//写入日志
OperLog("管理架构定义", "修改资料【" + tbxCode.Text + "】");
Alert.Show("数据保存成功！");
ERPUtility.CacheClear("SYS_DEPT");
tbxCode.Enabled = false;
InitTree();
}
protected override void billAudit()
{
if (docFLAG.SelectedValue != "A")
{
Alert.Show("单据状态非新增，不能审核！", "操作提示", MessageBoxIcon.Warning);
return;
}
//验证科室是否盘点
if (DbHelperOra.Exists("SELECT 1 FROM DAT_PD_LOCK WHERE DEPTID IN('" + docDEPTOUT.SelectedValue + "','" + docDEPTID.SelectedValue + "') AND FLAG='N'"))
{
Alert.Show("库房正在盘点,请检查!");
return;
}
//string strBillno = docSEQNO.Text;
//if (BillOper(strBillno, "AUDIT") == 1)
//{
// billLockDoc(true);
// Alert.Show("单据【" + strBillno + "】审核成功！");
// billOpen(strBillno);
// OperLog("直接出库", "审核单据【" + docSEQNO.Text + "】");
//}
StringBuilder sbSql = new StringBuilder();
// sbSql.AppendFormat(@"DECLARE
// BEGIN
// DELETE FROM DAT_DB_EXT T WHERE T.BILLNO ='{0}';
// INSERT INTO DAT_DB_EXT(DEPTID,BILLNO,ROWNO,ONECODE,GDSEQ,GDNAME,BARCODE,UNIT,GDSPEC,DEPTCUR,BZHL,FLAG,PH,RQ_SC,YXQZ)
// SELECT '{3}','{0}',ROWNUM,A.STR2,A.GDSEQ,A.GDNAME,A.BARCODE,A.UNIT,A.GDSPEC,'{3}',A.BZHL,'Y',A.PH,A.RQ_SC,A.YXQZ
// FROM DAT_DB_COM A WHERE A.SEQNO = '{0}';
// IF SQL%ROWCOUNT = 0 THEN
// RAISE_APPLICATION_ERROR(-20001, '修改单据[{0}]标志不成功！');
// END IF;
// STORE.P_BILLOPER('{0}', '{1}', '{2}', 'AUDIT');
// END; ", docSEQNO.Text, BillType, UserAction.UserID, docDEPTID.SelectedValue);
sbSql.AppendFormat(@"DECLARE BEGIN STORE.P_BILLOPER('{0}','{1}','{2}','AUDIT'); END;", docSEQNO.Text, BillType, UserAction.UserID, docDEPTID.SelectedValue);
try
{
DbHelperOra.ExecuteSql(sbSql.ToString());
billLockDoc(true);
Alert.Show("单据【" + docSEQNO.Text + "】审核成功！", "消息提示", MessageBoxIcon.Information);
OperLog("商品调拨", "审核单据【" + docSEQNO.Text + "】-高值扫码出库");
billOpen(docSEQNO.Text);
}
catch (Exception ex)
{
Alert.Show(ERPUtility.errorParse(ex.Message), "消息提示", MessageBoxIcon.Warning);
}
}
protected void btnAudit_Click(object sender, EventArgs e)
{
int[] rows = GridSupplier.SelectedRowIndexArray;
if (rows.Length > 0 && !string.IsNullOrEmpty(tbxSUPID.Text))
{
if (PubFunc.FormDataCheck(FormProducer).Length > 1)
{
return; //存在为空的非空列则返回！
}
else
{
saveExec();
string strFLAG = ddlFLAG.SelectedValue.ToString();
if (strFLAG == "Y")
{
Alert.Show("已经审核通过，无需再审！");
}
else
{
string strSUPID = "";
foreach (int index in rows)
{
strSUPID += PubFunc.GridDataGet(GridSupplier, index)["SUPID"].ToString() + ",";
}
strSUPID = strSUPID.TrimEnd(',').Replace(",", "','");
DbHelperOra.ExecuteSql("UPDATE DOC_SUPPLIER SET FLAG = 'Y' WHERE SUPID IN ('" + strSUPID + "')");
Alert.Show("供应商资料 审核通过！");
OperLog("供应商资料", "审核供应商【" + strSUPID + "】");
ERPUtility.CacheClear("DOC_SUPPLIER");
}
}
}
else
{
Alert.Show("请选择需要审核的供应商！");
return;
}
String strSUPID1 = tbxSUPID.Text.ToString();
cxsj(strSUPID1);
PubFunc.FormLock(FormProducer, true);
dataSearch();
}
protected void zsmScan_TextChanged(object sender, EventArgs e)
{
if ((",M,R,N,A").IndexOf(docFLAG.SelectedValue) < 0)
{
Alert.Show("非『新单』单据不允许操作！", "消息提示", MessageBoxIcon.Warning);
return;
}
if (!DbHelperOra.Exists(string.Format("SELECT 1 FROM DAT_GZ_EXT WHERE ONECODE = '{0}' AND FLAG IN( 'Y','R')", zsmScan.Text)))
{
Alert.Show("您输入的追溯码已扫描使用,请检查！", "提示信息", MessageBoxIcon.Warning);
zsmScan.Text = string.Empty;
zsmScan.Focus();
return;
}
if (DbHelperOra.Exists(string.Format("SELECT 1 FROM DAT_DB_EXT WHERE ONECODE = '{0}' AND billno='{1}'", zsmScan.Text, docBILLNO.Text)))
{
Alert.Show("您输入的追溯码已扫描使用,请检查！", "提示信息", MessageBoxIcon.Warning);
zsmScan.Text = string.Empty;
zsmScan.Focus();
return;
}
try {
//写入数据库中
OracleParameter[] parameters = new OracleParameter[]
{
new OracleParameter("V_BILLNO", OracleDbType.Varchar2),
new OracleParameter("V_ONECODE", OracleDbType.Varchar2),
};
parameters[0].Value = docSEQNO.Text;
parameters[1].Value = zsmScan.Text;
DbHelperOra.RunProcedure("STOREDS.P_INS_DBD", parameters);
billOpen(docBILLNO.Text);
ScanSearch("");
}
catch (Exception ex)
{
Alert.Show(ERPUtility.errorParse(ex.Message), "消息提示", MessageBoxIcon.Warning);
}
}
protected override void billAudit()
{
//住院办审核
if (docFLAG.SelectedValue != "M")
{
Alert.Show("单据状态非新增，不能审核！", "操作提示", MessageBoxIcon.Warning);
return;
}
SaveSuccess = false;
save("Y");
if (SaveSuccess == false)
{
return;
}
SaveSuccess = false;
//string strBillno = docSEQNO.Text;
//if (BillOper(strBillno, "AUDIT") == 1)
//{
// billLockDoc(true);
// Alert.Show("单据【" + strBillno + "】审核成功！");
// billOpen(strBillno);
// OperLog("直接出库", "审核单据【" + docSEQNO.Text + "】");
//}
List <Dictionary <string, object> > newDict = GridGoods.GetNewAddedList().ToList();
string barcode = "";
for (int i = 0; i < newDict.Count; i++)
{
barcode = newDict[i]["STR2"].ToString();
if (DbHelperOra.Exists(string.Format("SELECT 1 FROM DAT_GZ_EXT WHERE ONECODE = '{0}'AND DEPTCUR<>'{1}'", barcode, docDEPTOUT.SelectedValue)))
{
Alert.Show("高值条码【" + barcode + "】已不在该出库库房，请检查！", "提示信息", MessageBoxIcon.Warning);
return;
}
}
StringBuilder sbSql = new StringBuilder();
sbSql.AppendFormat(@"DECLARE
BEGIN
UPDATE DAT_CK_DOC SET FLAG = 'N' WHERE SEQNO = '{0}' AND FLAG = 'M';
DELETE FROM DAT_CK_EXT T WHERE T.BILLNO ='{0}';
INSERT INTO DAT_CK_EXT(DEPTID,BILLNO,ROWNO,ONECODE,GDSEQ,GDNAME,BARCODE,UNIT,GDSPEC,DEPTCUR,BZHL,FLAG,PH,RQ_SC,YXQZ)
SELECT '{3}','{0}',ROWNUM,A.STR2,A.GDSEQ,A.GDNAME,A.BARCODE,A.UNIT,A.GDSPEC,'{3}',A.BZHL,'Y',A.PH,A.RQ_SC,A.YXQZ
FROM DAT_CK_COM A WHERE A.SEQNO = '{0}';
IF SQL%ROWCOUNT = 0 THEN
RAISE_APPLICATION_ERROR(-20001, '修改单据[{0}]标志不成功！');
END IF;
STORE.P_BILLOPER('{0}', '{1}', '{2}', 'AUDIT');
END; ", docSEQNO.Text, BillType, UserAction.UserID, docDEPTID.SelectedValue);
try
{
DbHelperOra.ExecuteSql(sbSql.ToString());
billLockDoc(true);
Alert.Show("单据【" + docSEQNO.Text + "】审核成功！", "消息提示", MessageBoxIcon.Information);
OperLog("高值扫码出库", "审核单据【" + docSEQNO.Text + "】");
billOpen(docSEQNO.Text);
}
catch (Exception ex)
{
Alert.Show(ERPUtility.errorParse(ex.Message), "消息提示", MessageBoxIcon.Warning);
}
}
protected void btnCreate_Click(object sender, EventArgs e)
{
if (string.IsNullOrWhiteSpace(ddlSUPID.SelectedValue))
{
Alert.Show("请选择要结算的供应商！", "异常提醒", MessageBoxIcon.Information);
return;
}
if (string.IsNullOrWhiteSpace(docSEQNO.Text))
{
docSEQNO.Text = BillSeqGet();
}
StringBuilder sbSql = new StringBuilder();
sbSql.AppendFormat(@"DECLARE
BEGIN
INSERT INTO DAT_JSD_COM
(SEQNO,
ROWNO,
GDSEQ,
BARCODE,
GDNAME,
UNIT,
GDSPEC,
GDMODE,
BZSL,
JXTAX,
HSJJ,
HSJE,
ISGZ,
ISLOT,
PZWH,
PRODUCER,
ZPBH)
SELECT '{0}',
ROWNUM,
A.GDSEQ,
A.BARCODE,
A.GDNAME,
A.UNIT,
A.GDSPEC,
A.GDMODE,
B.BZSL,
A.JXTAX,
B.HSJJ,
B.BZSL * B.HSJJ,
A.ISGZ,
A.ISLOT,
A.PIZNO,
A.PRODUCER,
A.ZPBH
FROM DOC_GOODS A,
(SELECT J.GDSEQ, J.HSJJ, -(SUM(J.SL)) BZSL
FROM DAT_GOODSJXC J
WHERE J.PSSID = '{1}'
AND (J.BILLTYPE IN ('XSD', 'XSG', 'DSH') OR
(J.BILLTYPE = 'XST' AND J.KCADD = '1'))
AND NVL(J.STR1,'#') = '#'
AND J.DEPTID IN
(SELECT CODE FROM SYS_DEPT WHERE TYPE IN ('3', '4'))
AND J.RQSJ BETWEEN TO_DATE('{2}', 'YYYY-MM-DD') AND
TO_DATE('{3}', 'YYYY-MM-DD') + 1
GROUP BY J.GDSEQ, J.HSJJ) B
WHERE A.GDSEQ = B.GDSEQ
AND B.BZSL > 0
ORDER BY A.GDSEQ;
IF SQL%ROWCOUNT = 0 THEN
RAISE_APPLICATION_ERROR(-20001, '未查询到符合条件的结算数据！');
END IF;
INSERT INTO DAT_JSD_DOC
(CUSTID,
SEQNO,
SUPID,
SUPNAME,
FLAG,
GATFUNDCORP,
BEGRQ,
ENDRQ,
XSJE,
LRY,
LRRQ,
UPTTIME,
YJJJ)
SELECT F_GETPARA('USERCODE'),
'{0}',
'{1}',
'{4}',
'G',
'{4}',
TO_DATE('{2}', 'YYYY-MM-DD'),
TO_DATE('{3}', 'YYYY-MM-DD') ,
SUM(T.BZSL * T.HSJJ),
'{5}',
SYSDATE,
SYSDATE,
SUM(T.BZSL * T.HSJJ)
FROM DAT_JSD_COM T
WHERE T.SEQNO = '{0}';
--反填结算单号
UPDATE DAT_GOODSJXC J SET J.STR1='{0}'
WHERE J.PSSID = '{1}'
AND NVL(J.STR1,'#') = '#'
AND (J.BILLTYPE IN ('XSD', 'XSG', 'DSH') OR
(J.BILLTYPE = 'XST' AND J.KCADD = '1'))
AND J.DEPTID IN (SELECT CODE FROM SYS_DEPT WHERE TYPE IN ('3', '4'))
AND J.RQSJ BETWEEN TO_DATE('{2}', 'YYYY-MM-DD') AND
TO_DATE('{3}', 'YYYY-MM-DD') + 1 ;
END;
", docSEQNO.Text.Trim(), ddlSUPID.SelectedValue, docJSKS.Text, docJSJS.Text, ddlSUPID.SelectedText, docLRY.SelectedValue);
try
{
DbHelperOra.ExecuteSql(sbSql.ToString());
Alert.Show("结算单据【" + docSEQNO.Text + "】生成成功!", "消息提示", MessageBoxIcon.Information);
//if (DbHelperOra.ExecuteSqlTran(cmdList))
//{
// Alert.Show("结算单据【" + docSEQNO.Text + "】生成成功!", "消息提示", MessageBoxIcon.Information);
//}
//else
//{
// Alert.Show("结算单生成失败,请检查系统信息！", "异常提醒", MessageBoxIcon.Warning);
//}
}
catch (Exception ex)
{
Alert.Show(ERPUtility.errorParse(ex.Message), "错误提示", MessageBoxIcon.Error);
}
}
protected void btnExport_Click(object sender, EventArgs e)
{
ERPUtility.DataExport(GetQuerySql(), GridSum, "科室进销存数据导出");
}
