using ICSSoft.Common;
using ICSSoft.Entity;
using Newtonsoft.Json;
using System;
using System.Collections.Generic;
using System.Data;
using System.Data.SqlClient;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ICSSoft.DataProject
{
/// <summary>
/// 委外采购入库单
/// </summary>
public class OutsourcingReceiveDoc
{
private static log4net.ILog log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
private static string connString = System.Configuration.ConfigurationManager.AppSettings["ERPConnStr"];
private static string ERPDB = System.Configuration.ConfigurationManager.AppSettings["ERPDB"];
private static string Type = System.Configuration.ConfigurationManager.AppSettings["Type"];
/// <summary>
/// 获取委外采购入库单
/// </summary>
/// <param name="infos"></param>
/// <returns></returns>
public string Get(List<ICSOutsourcingReceiveDoc> infos)
{
List<ICSOutsourcingReceiveDoc> szJson = new List<ICSOutsourcingReceiveDoc>();
DataTable dt = null;
string json = "";
if (infos.Count <= 0)
{
throw new Exception("传送数据为空！");
}
string res = string.Empty;
SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
conn.Open();
SqlTransaction sqlTran = conn.BeginTransaction();
SqlCommand cmd = new SqlCommand();
cmd.Transaction = sqlTran;
cmd.Connection = conn;
try
{
string sql = string.Empty;
foreach (ICSOutsourcingReceiveDoc info in infos)
{
if (info.MTime < new DateTime(2000, 01, 01))
throw new Exception("请输入正确的操作时间：" + info.MTime);
sql = @" select a.ID,iMPoIds,iordercode,a.cCode,a.cDepCode,c.cDepName,a.cWhCode,
d.cWhName,a.cSource,a.cMaker,dnmaketime,cHandler,dnverifytime,cSourceCodeLs,
b.AutoID ,b.irowno,b.cInvCode,b.iQuantity,e.MoDetailsID,b.iNum,e.csocode
from rdrecord11 a
left join rdrecords11 b on a.ID=b.ID
left join Department c on a.cDepCode=c.cDepCode
left join Warehouse d on a.cWhCode=d.cWhCode
left join OM_MODetails e on b.iOMoDID=e.MoDetailsID
where a.cBusType='委外加工'";
if (!string.IsNullOrWhiteSpace(info.ORCVTCode))
{
sql += " and a.cCode='{0}'";
}
if (!string.IsNullOrWhiteSpace(info.MTime.ToString()))
{
sql += " and ISNULL(a.dnmodifytime,ISNULL(a.dnverifytime, ISNULL(a.dnmodifytime, a.dnmaketime)))>='{1}'";
}
if (!string.IsNullOrWhiteSpace(info.User))
{
sql += "and a.CMAKER='{2}'";
}
sql = string.Format(sql, info.ORCVTCode, info.MTime, info.User);
dt = DBHelper.SQlReturnData(sql, cmd);
json = JsonConvert.SerializeObject(dt);
if (dt.Rows.Count <= 0 || dt == null)
throw new Exception("委外发料单：" + info.ORCVTCode + "，无信息！");
}
cmd.Transaction.Commit();
return json;
}
catch (Exception ex)
{
cmd.Transaction.Rollback();
log.Error(ex.Message);
throw new Exception(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
conn.Dispose();
}
}
/// <summary>
/// 创建委外采购入(到货单)
/// </summary>
/// <param name="Bills"></param>
/// <returns></returns>
public string CreateOutsourcingReceiveDocByPOArrive(List<ICSOutsourcingReceiveDoc> Bills)
{
string msg = "";
int num = 0;
string sql = "";
string iFatherIdTwo = "";
//取得采购入库单单据 表头ID，表体DID
VouchKey key = new VouchKey();
SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
conn.Open();
SqlTransaction sqlTran = conn.BeginTransaction();
SqlCommand cmd = new SqlCommand();
cmd.Transaction = sqlTran;
cmd.Connection = conn;
try
{
if (Bills.Count <= 0)
{
throw new Exception("传送数据为空！");
}
LogInfo(Bills);
foreach (ICSOutsourcingReceiveDoc head in Bills)
{
num = head.details.Count();
//取得out库单的默认显示模版
Dictionary<string, int> dic = DBHelper.GetAllCode("" + ERPDB + "", "PuArrival", "" + num + "");
int iFatherId = Convert.ToInt32(dic["iFatherId"].ToString());
int iChildId = Convert.ToInt32(dic["iChildId"].ToString());
DateTime date = DateTime.Now;
string iBaseCodeLen = DBHelper.GetAllRDCode("26", "" + date + "", "admin");
#region 验证数量不能大于到货单数量
//foreach (ICSOutsourcingReceiveDocs body in head.details)
// {
// sql = "SELECT isnull(-iQuantity,0) FROM dbo.PU_ArrivalVouchs WHERE Autoid='" + body.ODNDetailID + "'";
// DataTable dtQty = DBHelper.SQlReturnData(sql, cmd);
// if (dtQty != null && dtQty.Rows.Count > 0)
// {
// //到货单可入数量
// decimal PUQty = Convert.ToDecimal(dtQty.Rows[0][0]);
// sql = "SELECT ISNULL(SUM(-iQuantity),0) FROM dbo.RdRecords01 WHERE iArrsId='" + body.ODNDetailID + "'";
// DataTable dtReceQty = DBHelper.SQlReturnData(sql, cmd);
// decimal ReceQty = Convert.ToDecimal(dtReceQty.Rows[0][0]);
// if (ReceQty + body.Quantity > PUQty)
// {
// throw new Exception("入库数量大于当前到货单行可入库数量！");
// }
// }
// else
// {
// throw new Exception("U8不存在该到货单行！");
// }
// }
#endregion
#region 委外采购入库单 表头
sql = @"INSERT INTO dbo.RdRecord01
( ID ,bRdFlag ,cVouchType ,cBusType ,cSource ,cWhCode ,
dDate ,cCode ,cRdCode ,cDepCode ,cPersonCode ,cPTCode ,
cVenCode ,cOrderCode ,cARVCode ,cHandler ,cMemo ,
bTransFlag ,cMaker ,cDefine1 ,cDefine2 ,cDefine3 ,
cDefine4 ,cDefine5 ,cDefine6 ,cDefine7 ,cDefine8 ,
cDefine9 ,cDefine10 ,dVeriDate ,bpufirst ,biafirst ,
dARVDate ,VT_ID ,bIsSTQc ,cDefine11 ,cDefine12 ,
cDefine13 ,cDefine14 ,cDefine15 ,cDefine16 ,
ipurarriveid ,iTaxRate ,iExchRate ,cExch_Name ,bOMFirst,
bFromPreYear ,bIsComplement ,iDiscountTaxType ,
ireturncount ,iverifystate ,iswfcontrolled ,
cModifyPerson ,dnmaketime ,dnverifytime ,
bredvouch ,bCredit ,iPrintCount)
SELECT @ID,1,'01','委外加工','委外到货单',@cWhCode,
CONVERT(NVARCHAR(15),GETDATE(),23),@cCode,'101',@cDepCode,a.cPersonCode,'01',
a.cVenCode,b.cCode,a.cCode,@cHandler,a.cMemo,
0,@cMaker,a.cDefine1,a.cDefine2,a.cDefine3,
a.cDefine4,a.cDefine5,a.cDefine6,a.cDefine7,a.cDefine8,
a.cDefine9,a.cDefine10,CONVERT(NVARCHAR(15),GETDATE(),23),0,0,
a.dDate,@VT_ID,0,a.cDefine11,a.cDefine12,
a.cDefine13,a.cDefine14,a.cDefine15,a.cDefine16,
a.ID,a.iTaxRate,a.iExchRate,a.cexch_name,0,
0,0,0,
0,0,0,
'',GETDATE(),GETDATE(),
0,0,0
FROM dbo.PU_ArrivalVouch a LEFT JOIN dbo.OM_MOMain b ON a.cpocode=b.cCode WHERE a.cCode='" + head.ODNCode + "'";
cmd.Parameters.Clear();
cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
cmd.Parameters.Add(new SqlParameter("@cWhCode", head.WHCode));
cmd.Parameters.Add(new SqlParameter("@cCode", iBaseCodeLen));
cmd.Parameters.Add(new SqlParameter("@cDepCode", ""));
cmd.Parameters.Add(new SqlParameter("@cHandler", head.User));
cmd.Parameters.Add(new SqlParameter("@cMaker", head.User));
cmd.Parameters.Add(new SqlParameter("@VT_ID", iChildId));
cmd.CommandText = sql;
try
{
int count = cmd.ExecuteNonQuery();
if (count <= 0)
{
log.Error("委外采购入库单表头失败，受影响行数<=0；");
throw new Exception("委外采购入库单表头失败，受影响行数<=0；");
}
}
catch (Exception ex)
{
log.Error("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
throw new Exception("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
}
#endregion
#region 采购入库单 表体
foreach (ICSOutsourcingReceiveDocs body in head.details)
{
sql = @"INSERT INTO dbo.rdrecords01
( AutoID ,ID ,cInvCode ,iQuantity ,iUnitCost ,iPrice ,iAPrice ,
iFlag ,iSQuantity ,iSNum ,iMoney ,
cDefine22 ,cDefine23 ,cDefine24 ,cDefine25 ,cDefine26 ,cDefine27 ,
cItem_class ,cItemCode ,iPOsID ,fACost ,cName ,iNQuantity ,
chVencode ,iArrsId ,iOriTaxCost ,iOriCost ,iOriMoney ,iOriTaxPrice ,
ioriSum ,iTaxRate ,iTaxPrice ,iSum ,bTaxCost ,cPOID ,iMatSettleState ,
iBillSettleCount ,bLPUseFree ,iOriTrackID ,bCosting ,cbarvcode ,
dbarvdate ,iExpiratDateCalcu ,iordertype ,isotype ,irowno ,bgift,cBatch,iProcessFee, iProcessCost )
SELECT @AutoID,@ID,@cInvCode,@iQuantity,0,0,0,
0,0,0,0,
a.cDefine22,a.cDefine23,a.cDefine24,a.cDefine25,a.cDefine26,a.cDefine27,
a.cItem_class,a.cItemCode,a.iPOsID,0,a.cItemName,a.iQuantity,
c.cVenCode,a.Autoid,0,0,0,0,
0,a.iTaxRate,0,0,1,d.cCode,0,
0,0,0,1,c.cCode,
c.dDate,0,0,0,@irowno,0,@cBatch,a.iCost*convert(decimal, @iQuantity),a.iCost
FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
INNER JOIN dbo.OM_MOMain d ON b.MOID=d.MOID
INNER JOIN dbo.PU_ArrivalVouch c ON a.ID=c.ID where a.Autoid='" + body.ODNDetailID + "'";
cmd.Parameters.Clear();
cmd.Parameters.Add(new SqlParameter("@AutoID", iChildId));
cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
cmd.Parameters.Add(new SqlParameter("@cInvCode", body.InvCode));
cmd.Parameters.Add(new SqlParameter("@iQuantity", body.Quantity));
cmd.Parameters.Add(new SqlParameter("@irowno", body.Sequence));
cmd.Parameters.Add(new SqlParameter("@cBatch", ""));
cmd.CommandText = sql;
try
{
int count = cmd.ExecuteNonQuery();
if (count <= 0)
{
log.Error("委外采购入库单表头失败，受影响行数<=0；");
throw new Exception("委外采购入库单表头失败，受影响行数<=0；");
}
}
catch (Exception ex)
{
log.Error("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
throw new Exception("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
}
//更新现存量
key.cBustypeUN = "委外加工";
key.cVouchTypeUN = "01";
key.TableName = "IA_ST_UnAccountVouch01";
DBHelper.UpdateCurrentStock(cmd, body.InvCode, head.WHCode,"", body.Quantity, key);
//OM_MODetails
sql = @"UPDATE b SET freceivedqty=ISNULL(freceivedqty,0)+" + body.Quantity + @"
FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
WHERE a.Autoid='" + body.ODNDetailID + "'";
DBHelper.CmdExecuteNonQuery(sql, cmd, "回写OM_MODetails失败！");
//回写PU_ArrivalVouchs失败
sql = "UPDATE dbo.PU_ArrivalVouchs SET fValidInQuan=ISNULL(fValidInQuan,0)+" + body.Quantity + " WHERE Autoid='" + body.ODNDetailID + "'";
DBHelper.CmdExecuteNonQuery(sql, cmd, "回写PU_ArrivalVouchs失败！");
iChildId--;
}
#endregion
iFatherIdTwo += "'" + iFatherId + "',";
}
sql = @" select a.ID as ID,a.ID as IDs,a.cCode as ORCVTCode ,a.cVenCode,d.cVenName,a.cOrderCode as OOCode,
a.cMaker as CreateUser,dnmaketime as CreateDateTime,cHandler as Checker,dnverifytime as CheckDateTime
from rdrecord01 a
left join Department c on a.cDepCode=c.cDepCode
left join Vendor d on a.cVenCode=d.cVenCode
where a.cBusType='委外加工' AND A.ID in ({0})
select a.ID as IDs,b.AutoID as DetailID,b.irowno as Sequence,b.cInvCode as InvCode,b.iQuantity as Quantity,iNum as Amount,iArrsId as ODNDetailID
from rdrecord01 a
left join rdrecords01 b on a.ID=b.ID
left join Department c on a.cDepCode=c.cDepCode
left join Vendor d on a.cVenCode=d.cVenCode
where a.cBusType='委外加工' AND A.ID in ({0}) ";
sql = string.Format(sql, iFatherIdTwo.TrimEnd(','));
DataSet ds = DBHelper.SQlReturnDataSet(sql, cmd);
string RelationName = "details";
DataRelation dr = new DataRelation(RelationName, ds.Tables[0].Columns["IDs"], ds.Tables[1].Columns["IDs"]);
ds.Relations.Add(dr);
msg = DBHelper.DataSetToJson(ds, RelationName);
cmd.Transaction.Commit();
return msg;
}
catch (Exception ex)
{
cmd.Transaction.Rollback();
log.Error(ex.Message);
throw new Exception(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
conn.Dispose();
}
}
/// <summary>
/// 创建委外采购入(委外到货单)
/// </summary>
/// <param name="Bills"></param>
/// <returns></returns>
public string CreateOutsourcingReceiveDocByPU(List<ICSOutsourcingReceiveDoc> Bills)
{
string msg = "";
int num = 0;
//取得out库单的默认显示模版
//取得采购入库单单据 表头ID，表体DID
VouchKey key = new VouchKey();
SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
conn.Open();
SqlTransaction sqlTran = conn.BeginTransaction();
SqlCommand cmd = new SqlCommand();
cmd.Transaction = sqlTran;
cmd.Connection = conn;
try
{
if (Bills.Count <= 0)
{
throw new Exception("传送数据为空！");
}
LogInfo(Bills);
foreach (ICSOutsourcingReceiveDoc head in Bills)
{
num = head.details.Count();
Dictionary<string, int> dic = DBHelper.GetAllCode("" + ERPDB + "", "PuArrival", "" + num + "");
int iFatherId = Convert.ToInt32(dic["iFatherId"].ToString());
int iChildId = Convert.ToInt32(dic["iChildId"].ToString());
DateTime date = DateTime.Now;
string iBaseCodeLen = DBHelper.GetAllRDCode("26", "" + date + "", "admin");
string sql = "";
#region 验证数量不能大于到货单数量
foreach (ICSOutsourcingReceiveDocs body in head.details)
{
sql = "SELECT isnull(-iQuantity,0) FROM dbo.PU_ArrivalVouchs WHERE Autoid='" + body.ODNDetailID + "'";
DataTable dtQty = DBHelper.SQlReturnData(sql, cmd);
if (dtQty != null && dtQty.Rows.Count > 0)
{
//到货单可入数量
decimal PUQty = Convert.ToDecimal(dtQty.Rows[0][0]);
sql = "SELECT ISNULL(SUM(-iQuantity),0) FROM dbo.RdRecords01 WHERE iArrsId='" + body.ODNDetailID + "'";
DataTable dtReceQty = DBHelper.SQlReturnData(sql, cmd);
decimal ReceQty = Convert.ToDecimal(dtReceQty.Rows[0][0]);
if (ReceQty + body.Quantity > PUQty)
{
throw new Exception("入库数量大于当前到货单行可入库数量！");
}
}
else
{
throw new Exception("U8不存在该到货单行！");
}
}
#endregion
#region 委外采购入库单 表头
sql = @"INSERT INTO dbo.RdRecord01
( ID ,bRdFlag ,cVouchType ,cBusType ,cSource ,cWhCode ,
dDate ,cCode ,cRdCode ,cDepCode ,cPersonCode ,cPTCode ,
cVenCode ,cOrderCode ,cARVCode ,cHandler ,cMemo ,
bTransFlag ,cMaker ,cDefine1 ,cDefine2 ,cDefine3 ,
cDefine4 ,cDefine5 ,cDefine6 ,cDefine7 ,cDefine8 ,
cDefine9 ,cDefine10 ,dVeriDate ,bpufirst ,biafirst ,
dARVDate ,VT_ID ,bIsSTQc ,cDefine11 ,cDefine12 ,
cDefine13 ,cDefine14 ,cDefine15 ,cDefine16 ,
ipurarriveid ,iTaxRate ,iExchRate ,cExch_Name ,bOMFirst,
bFromPreYear ,bIsComplement ,iDiscountTaxType ,
ireturncount ,iverifystate ,iswfcontrolled ,
cModifyPerson ,dnmaketime ,dnverifytime ,
bredvouch ,bCredit ,iPrintCount)
SELECT @ID,1,'01','委外加工','委外到货单',@cWhCode,
CONVERT(NVARCHAR(15),GETDATE(),23),@cCode,'101',@cDepCode,a.cPersonCode,'01',
a.cVenCode,b.cCode,a.cCode,@cHandler,a.cMemo,
0,@cMaker,a.cDefine1,a.cDefine2,a.cDefine3,
a.cDefine4,a.cDefine5,a.cDefine6,a.cDefine7,a.cDefine8,
a.cDefine9,a.cDefine10,CONVERT(NVARCHAR(15),GETDATE(),23),0,0,
a.dDate,@VT_ID,0,a.cDefine11,a.cDefine12,
a.cDefine13,a.cDefine14,a.cDefine15,a.cDefine16,
a.ID,a.iTaxRate,a.iExchRate,a.cexch_name,0,
0,0,0,
0,0,0,
'',GETDATE(),GETDATE(),
0,0,0
FROM dbo.PU_ArrivalVouch a LEFT JOIN dbo.OM_MOMain b ON a.cpocode=b.cCode WHERE a.cCode ='" + head.ODNCode + "'";
cmd.Parameters.Clear();
cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
cmd.Parameters.Add(new SqlParameter("@cWhCode", head.WHCode));
cmd.Parameters.Add(new SqlParameter("@cCode", iBaseCodeLen));
cmd.Parameters.Add(new SqlParameter("@cDepCode", ""));
cmd.Parameters.Add(new SqlParameter("@cHandler", head.User));
cmd.Parameters.Add(new SqlParameter("@cMaker", head.User));
cmd.Parameters.Add(new SqlParameter("@VT_ID", iChildId));
cmd.CommandText = sql;
try
{
int count = cmd.ExecuteNonQuery();
if (count <= 0)
{
log.Error("委外采购入库单表头失败，受影响行数<=0；");
throw new Exception("委外采购入库单表头失败，受影响行数<=0；");
}
}
catch (Exception ex)
{
log.Error("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
throw new Exception("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
}
#endregion
#region 采购入库单 表体
int irowno = 0;
foreach (ICSOutsourcingReceiveDocs body in head.details)
{
sql = @"INSERT INTO dbo.rdrecords01
( AutoID ,ID ,cInvCode ,iQuantity ,iUnitCost ,iPrice ,iAPrice ,
iFlag ,iSQuantity ,iSNum ,iMoney ,
cDefine22 ,cDefine23 ,cDefine24 ,cDefine25 ,cDefine26 ,cDefine27 ,
cItem_class ,cItemCode ,iPOsID ,fACost ,cName ,iNQuantity ,
chVencode ,iArrsId ,iOriTaxCost ,iOriCost ,iOriMoney ,iOriTaxPrice ,
ioriSum ,iTaxRate ,iTaxPrice ,iSum ,bTaxCost ,cPOID ,iMatSettleState ,
iBillSettleCount ,bLPUseFree ,iOriTrackID ,bCosting ,cbarvcode ,
dbarvdate ,iExpiratDateCalcu ,iordertype ,isotype ,irowno ,bgift,cBatch,iProcessFee, iProcessCost )
SELECT @AutoID,@ID,@cInvCode,@iQuantity,0,0,0,
0,0,0,0,
a.cDefine22,a.cDefine23,a.cDefine24,a.cDefine25,a.cDefine26,a.cDefine27,
a.cItem_class,a.cItemCode,a.iPOsID,0,a.cItemName,a.iQuantity,
c.cVenCode,a.Autoid,0,0,0,0,
0,a.iTaxRate,0,0,1,d.cCode,0,
0,0,0,1,c.cCode,
c.dDate,0,0,0,@irowno,0,@cBatch,a.iCost*convert(decimal, @iQuantity),a.iCost
FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
INNER JOIN dbo.OM_MOMain d ON b.MOID=d.MOID
INNER JOIN dbo.PU_ArrivalVouch c ON a.ID=c.ID where a.Autoid='" + body.ODNDetailID + "'";
cmd.Parameters.Clear();
cmd.Parameters.Add(new SqlParameter("@AutoID", iChildId));
cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
cmd.Parameters.Add(new SqlParameter("@cInvCode", body.InvCode));
cmd.Parameters.Add(new SqlParameter("@iQuantity", body.Quantity));
cmd.Parameters.Add(new SqlParameter("@irowno", irowno));
cmd.Parameters.Add(new SqlParameter("@cBatch", ""));
cmd.CommandText = sql;
try
{
int count = cmd.ExecuteNonQuery();
if (count <= 0)
{
log.Error("委外采购入库单表头失败，受影响行数<=0；");
throw new Exception("委外采购入库单表头失败，受影响行数<=0；");
}
}
catch (Exception ex)
{
log.Error("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
throw new Exception("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
}
//更新现存量
key.cBustypeUN = "委外加工";
key.cVouchTypeUN = "01";
key.TableName = "IA_ST_UnAccountVouch01";
DBHelper.UpdateCurrentStock(cmd, body.InvCode, head.WHCode, "", body.Quantity, key);
//OM_MODetails
sql = @"UPDATE b SET freceivedqty=ISNULL(freceivedqty,0)+" + body.Quantity + @"
FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
WHERE a.Autoid='" + body.ODNDetailID + "'";
DBHelper.CmdExecuteNonQuery(sql, cmd, "回写OM_MODetails失败！");
//回写PU_ArrivalVouchs失败
sql = "UPDATE dbo.PU_ArrivalVouchs SET fValidInQuan=ISNULL(fValidInQuan,0)+" + body.Quantity + " WHERE Autoid='" + body.ODNDetailID + "'";
DBHelper.CmdExecuteNonQuery(sql, cmd, "回写PU_ArrivalVouchs失败！");
//更新待入库数量
sql = "UPDATE dbo.CurrentStock SET fInQuantity=ISNULL(fInQuantity,0)-" + body.Quantity + " WHERE cInvCode='" + body.InvCode + "' AND cWhCode ='" + head.WHCode + "'";
if (DBHelper.bInvBatch(body.InvCode, cmd) == true)
{
//if (!string.IsNullOrWhiteSpace(body.cBatch))
//{
// sql += " and cBatch='" + body.cBatch + "'";
//}
}
DBHelper.CmdExecuteNonQuery(sql, cmd, "更新待入库数量失败！");
// #region 判断现存量是否足够
// sql = @"IF EXISTS(SELECT AutoID FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fInQuantity<0)
// BEGIN
// DECLARE @MSG NVARCHAR(100)
// SELECT @MSG='ERP待入库数量不足！AutoID：'+CAST(AutoID AS NVARCHAR(100)) FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fInQuantity<0
// RAISERROR(@MSG,16,1)
// END";
// cmd.CommandText = sql;
// cmd.ExecuteNonQuery();
// #endregion
}
#endregion
}
//GetSerialCode(iFatherId.ToString());
cmd.Transaction.Commit();
return msg;
}
catch (Exception ex)
{
cmd.Transaction.Rollback();
log.Error(ex.Message);
throw new Exception(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
conn.Dispose();
}
}
/// <summary>
/// 创建委外采购入(委外到货单)
/// </summary>
/// <param name="Bills"></param>
/// <returns></returns>
public string CreateOutsourcingReceiveDocByPO(List<ICSOutsourcingReceiveDoc> Bills)
{
string msg = "";
int num = 0;
string iFatherIdTwo = "";
string sql = "";
DataTable dt = null;
VouchKey key = new VouchKey();
SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
conn.Open();
SqlTransaction sqlTran = conn.BeginTransaction();
SqlCommand cmd = new SqlCommand();
cmd.Transaction = sqlTran;
cmd.Connection = conn;
try
{
if (Bills.Count <= 0)
{
throw new Exception("传送数据为空！");
}
LogInfo(Bills);
foreach (ICSOutsourcingReceiveDoc head in Bills)
{
string RdCode= DBHelper.GetRDCode("采购入库", cmd);
num = head.details.Count();
Dictionary<string, int> dic = DBHelper.GetAllCode("" + ERPDB + "", "rd", "" + num + "");
int iFatherId = Convert.ToInt32(dic["iFatherId"].ToString());
int iChildId = Convert.ToInt32(dic["iChildId"].ToString());
DateTime date = DateTime.Now;
string iBaseCodeLen = DBHelper.GetAllRDCode("26", "" + date + "", "admin");
#region 验证数量不能大于到货单数量
//foreach (ICSOutsourcingReceiveDocs body in head.details)
//{
// sql = "SELECT isnull(-iQuantity,0) FROM dbo.PU_ArrivalVouchs WHERE Autoid='" + body.ODNDetailID + "'";
// DataTable dtQty = DBHelper.SQlReturnData(sql, cmd);
// if (dtQty != null && dtQty.Rows.Count > 0)
// {
// //到货单可入数量
// decimal PUQty = Convert.ToDecimal(dtQty.Rows[0][0]);
// sql = "SELECT ISNULL(SUM(-iQuantity),0) FROM dbo.RdRecords01 WHERE iArrsId='" + body.ODNDetailID + "'";
// DataTable dtReceQty = DBHelper.SQlReturnData(sql, cmd);
// decimal ReceQty = Convert.ToDecimal(dtReceQty.Rows[0][0]);
// if (ReceQty + body.Quantity > PUQty)
// {
// throw new Exception("入库数量大于当前到货单行可入库数量！");
// }
// }
// else
// {
// throw new Exception("U8不存在该到货单行！");
// }
//}
#endregion
#region 委外采购入库单 表头
sql = @"INSERT INTO dbo.RdRecord01
( ID ,bRdFlag ,cVouchType ,cBusType ,cSource ,cWhCode ,
dDate ,cCode ,cRdCode ,cDepCode ,cPersonCode ,cPTCode ,
cVenCode ,cOrderCode ,cARVCode ,cHandler ,cMemo ,
bTransFlag ,cMaker ,cDefine1 ,cDefine2 ,cDefine3 ,
cDefine4 ,cDefine5 ,cDefine6 ,cDefine7 ,cDefine8 ,
cDefine9 ,cDefine10 ,dVeriDate ,bpufirst ,biafirst ,
dARVDate ,VT_ID ,bIsSTQc ,cDefine11 ,cDefine12 ,
cDefine13 ,cDefine14 ,cDefine15 ,cDefine16 ,
ipurarriveid ,iTaxRate ,iExchRate ,cExch_Name ,bOMFirst,
bFromPreYear ,bIsComplement ,iDiscountTaxType ,
ireturncount ,iverifystate ,iswfcontrolled ,
cModifyPerson ,dnmaketime ,dnverifytime ,
bredvouch ,bCredit ,iPrintCount)
SELECT @ID,1,'01','委外加工','委外订单',@cWhCode,
CONVERT(NVARCHAR(15),GETDATE(),23),@cCode,@RdCode,@cDepCode,a.cPersonCode,'01',
a.cVenCode,'',a.cCode,@cHandler,a.cMemo,
0,@cMaker,a.cDefine1,a.cDefine2,a.cDefine3,
a.cDefine4,a.cDefine5,a.cDefine6,a.cDefine7,a.cDefine8,
a.cDefine9,a.cDefine10,CONVERT(NVARCHAR(15),GETDATE(),23),0,0,
a.dDate,@VT_ID,0,a.cDefine11,a.cDefine12,
a.cDefine13,a.cDefine14,a.cDefine15,a.cDefine16,
'',a.iTaxRate,a.nflat,a.cexch_name,0,
0,0,0,
0,0,0,
'',GETDATE(),GETDATE(),
0,0,0
FROM dbo.OM_MOMain a WHERE a.cCode='" + head.OOCode + "'";
cmd.Parameters.Clear();
cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
cmd.Parameters.Add(new SqlParameter("@cWhCode", head.WHCode));
cmd.Parameters.Add(new SqlParameter("@cCode", iBaseCodeLen));
cmd.Parameters.Add(new SqlParameter("@cDepCode", ""));
cmd.Parameters.Add(new SqlParameter("@cHandler", head.User));
cmd.Parameters.Add(new SqlParameter("@cMaker", head.User));
cmd.Parameters.Add(new SqlParameter("@VT_ID", iChildId));
cmd.Parameters.Add(new SqlParameter("@RdCode", RdCode));
cmd.CommandText = sql;
try
{
int count = cmd.ExecuteNonQuery();
if (count <= 0)
{
log.Error("委外采购入库单表头失败，受影响行数<=0；");
throw new Exception("委外采购入库单表头失败，受影响行数<=0；");
}
}
catch (Exception ex)
{
log.Error("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
throw new Exception("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
}
#endregion
#region 采购入库单 表体
foreach (ICSOutsourcingReceiveDocs body in head.details)
{
sql = @"INSERT INTO dbo.rdrecords01
( AutoID ,ID ,cInvCode ,iQuantity ,iUnitCost ,iPrice ,iAPrice ,
iFlag ,iSQuantity ,iSNum ,iMoney ,
cDefine22 ,cDefine23 ,cDefine24 ,cDefine25 ,cDefine26 ,cDefine27 ,
cItem_class ,cItemCode ,iOMoDID ,fACost ,cName ,iNQuantity ,
chVencode ,iArrsId ,iOriTaxCost ,iOriCost ,iOriMoney ,iOriTaxPrice ,
ioriSum ,iTaxRate ,iTaxPrice ,iSum ,bTaxCost ,cPOID ,iMatSettleState ,
iBillSettleCount ,bLPUseFree ,iOriTrackID ,bCosting ,cbarvcode
,iExpiratDateCalcu ,iordertype ,isotype ,irowno ,bgift,cBatch,iProcessFee, iProcessCost )
SELECT @AutoID,@ID,@cInvCode,@iQuantity,0,0,0,
0,0,0,0,
a.cDefine22,a.cDefine23,a.cDefine24,a.cDefine25,a.cDefine26,a.cDefine27,
a.cItem_class,a.cItemCode,a.MODetailsID,0,a.cItemName,a.iQuantity,
@VenCode,'',0,0,0,0,
0,d.nflat,0,0,1,'',0,
0,0,0,1,'',
0,0,0,@irowno,0,@cBatch,a.iNatUnitPrice *convert(decimal, @iQuantity),a.iNatUnitPrice
FROM dbo.OM_MODetails a
INNER JOIN dbo.OM_MOMain d ON a.MOID=d.MOID
where a.MODetailsID='" + body.OODetailID + "'";
cmd.Parameters.Clear();
cmd.Parameters.Add(new SqlParameter("@AutoID", iChildId));
cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
cmd.Parameters.Add(new SqlParameter("@cInvCode", body.InvCode));
cmd.Parameters.Add(new SqlParameter("@iQuantity", body.Quantity));
cmd.Parameters.Add(new SqlParameter("@irowno",body.Sequence));
cmd.Parameters.Add(new SqlParameter("@cBatch", ""));
cmd.Parameters.Add(new SqlParameter("@VenCode", head.VenCode));
cmd.CommandText = sql;
try
{
int count = cmd.ExecuteNonQuery();
if (count <= 0)
{
log.Error("委外采购入库单表头失败，受影响行数<=0；");
throw new Exception("委外采购入库单表头失败，受影响行数<=0；");
}
}
catch (Exception ex)
{
log.Error("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
throw new Exception("委外采购入库单表头失败！SQL：\r\n" + sql, ex);
}
//更新现存量
key.cBustypeUN = "委外加工";
key.cVouchTypeUN = "01";
key.TableName = "IA_ST_UnAccountVouch01";
DBHelper.UpdateCurrentStock(cmd, body.InvCode, head.WHCode, "", body.Quantity, key);
//OM_MODetails
sql = @"UPDATE a SET freceivedqty=ISNULL(freceivedqty,0)+" + body.Quantity + @"
FROM dbo.OM_MODetails a
WHERE a.MODetailsID='" + body.OODetailID + "'";
DBHelper.CmdExecuteNonQuery(sql, cmd, "回写OM_MODetails失败！");
//更新待入库数量
sql = "UPDATE dbo.CurrentStock SET fInQuantity=ISNULL(fInQuantity,0)-" + body.Quantity + " WHERE cInvCode='" + body.InvCode + "' AND cWhCode ='" + head.WHCode + "'";
if (DBHelper.bInvBatch(body.InvCode, cmd) == true)
{
//if (!string.IsNullOrWhiteSpace(body.cBatch))
//{
// sql += " and cBatch='" + body.cBatch + "'";
//}
}
DBHelper.CmdExecuteNonQuery(sql, cmd, "更新待入库数量失败！");
iChildId--;
}
iFatherIdTwo += "'" + iFatherId + "',";
#endregion
}
sql = @" select a.ID as ID,a.ID as IDs,a.cCode as ORCVTCode ,a.cVenCode,d.cVenName,a.cOrderCode as OOCode,
a.cMaker as CreateUser,dnmaketime as CreateDateTime,cHandler as Checker,dnverifytime as CheckDateTime
from rdrecord01 a
left join Department c on a.cDepCode=c.cDepCode
left join Vendor d on a.cVenCode=d.cVenCode
where a.cBusType='委外加工' AND A.ID in ({0})
select a.ID as IDs,b.AutoID as DetailID,b.irowno as Sequence,b.cInvCode as InvCode,b.iQuantity as Quantity,iNum as Amount,b.iOMoDID as OODetailID
from rdrecord01 a
left join rdrecords01 b on a.ID=b.ID
left join Department c on a.cDepCode=c.cDepCode
left join Vendor d on a.cVenCode=d.cVenCode
where a.cBusType='委外加工' AND A.ID in ({0}) ";
sql = string.Format(sql, iFatherIdTwo.TrimEnd(','));
DataSet ds = DBHelper.SQlReturnDataSet(sql, cmd);
string RelationName = "details";
DataRelation dr = new DataRelation(RelationName, ds.Tables[0].Columns["IDs"], ds.Tables[1].Columns["IDs"]);
ds.Relations.Add(dr);
cmd.Transaction.Commit();
msg = DBHelper.DataSetToJson(ds, RelationName);
return msg;
}
catch (Exception ex)
{
cmd.Transaction.Rollback();
log.Error(ex.Message);
throw new Exception(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
conn.Dispose();
}
}
/// <summary>
/// 审核委外采购入库
/// </summary>
/// <param name="infos"></param>
/// <returns></returns>
public string Approve(List<ICSOutsourcingReceiveDoc> infos)
{
List<ICSSalesShipmentDoc> szJson = new List<ICSSalesShipmentDoc>();
string json = "";
if (infos.Count <= 0)
{
throw new Exception("传送数据为空！");
}
string res = string.Empty;
SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
conn.Open();
SqlTransaction sqlTran = conn.BeginTransaction();
SqlCommand cmd = new SqlCommand();
cmd.Transaction = sqlTran;
cmd.Connection = conn;
try
{
string sql = string.Empty;
foreach (ICSOutsourcingReceiveDoc info in infos)
{
if (info.MTime < new DateTime(2000, 01, 01))
throw new Exception("请输入正确的操作时间：" + info.MTime);
sql = @"UPDATE RdRecord01 SET cHandler ='" + info.User + @"' ,
dnverifytime=CONVERT(VARCHAR(50),GETDATE(),112),dVeriDate=GETDATE() WHERE ID='{0}'";
sql = string.Format(sql, info.ID);
DBHelper.CmdExecuteNonQuery(sql, cmd, "审核委外采购入库单失败！");
}
cmd.Transaction.Commit();
return json;
}
catch (Exception ex)
{
cmd.Transaction.Rollback();
log.Error(ex.Message);
throw new Exception(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
conn.Dispose();
}
}
/// <summary>
/// 删除委外采购入库单
/// </summary>
/// <param name="infos"></param>
/// <returns></returns>
public string Delete(List<ICSOutsourcingReceiveDoc> infos)
{
List<ICSSalesShipmentDoc> szJson = new List<ICSSalesShipmentDoc>();
if (infos.Count <= 0)
{
throw new Exception("传送数据为空！");
}
string res = string.Empty;
SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
conn.Open();
SqlTransaction sqlTran = conn.BeginTransaction();
SqlCommand cmd = new SqlCommand();
cmd.Transaction = sqlTran;
cmd.Connection = conn;
try
{
string sql = string.Empty;
foreach (ICSOutsourcingReceiveDoc info in infos)
{
if (info.MTime < new DateTime(2000, 01, 01))
throw new Exception("请输入正确的操作时间：" + info.MTime);
sql = @"delete RdRecord01 where RdRecord01.ID='" + info.ID + "'";
sql += @"delete RdRecords01 where RdRecords01.ID='" + info.ID + "'";
//UPDATE dbo.rdrecord11 a SET cHandler='" + info.User + @"' ,
// dVeriDate=CONVERT(VARCHAR(50),GETDATE(),112),dnverifytime=GETDATE()
// WHERE a.ID='" + info.ID + "'";
DBHelper.CmdExecuteNonQuery(sql, cmd, "删除委外采购入库单失败！");
}
cmd.Transaction.Commit();
return res;
;
}
catch (Exception ex)
{
cmd.Transaction.Rollback();
log.Error(ex.Message);
throw new Exception(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
conn.Dispose();
}
}
/// <summary>
///
/// 记录日志
/// </summary>
/// <param name="Bills"></param>
private void LogInfo(List<ICSOutsourcingReceiveDoc> Bills)
{
string HeadList = string.Empty;
string BodyList = string.Empty;
foreach (ICSOutsourcingReceiveDoc head in Bills)
{
HeadList += "\r\n 表头主键ID：" + head.ID + "，仓库：" + head.WHCode + "，用户：" + head.User;
foreach (ICSOutsourcingReceiveDocs body in head.details)
{
BodyList += "\r\n 表体主键ID： " + body.ODNDetailID + "，数量：" + body.Quantity;
}
}
log.Info(HeadList);
log.Info(BodyList);
}
public string GetSerialCode(string ID)
{
string sql = "EXEC Addins_GetSerialCode '{0}'";
sql = string.Format(sql, new object[] { ID });
return DBHelper.ExecuteScalar(CommandType.Text, sql, connString).ToString();
}
}
}