纽威
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

690 lines
34 KiB

3 years ago
  1. using ICSSoft.Common;
  2. using ICSSoft.Entity;
  3. using Newtonsoft.Json;
  4. using System;
  5. using System.Collections.Generic;
  6. using System.Data;
  7. using System.Data.SqlClient;
  8. using System.Linq;
  9. using System.Text;
  10. using System.Threading.Tasks;
  11. namespace ICSSoft.DataProject
  12. {
  13. /// <summary>
  14. /// 委外采购入库单
  15. /// </summary>
  16. public class OutsourcingReceiveDoc
  17. {
  18. private static log4net.ILog log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
  19. private static string connString = System.Configuration.ConfigurationManager.AppSettings["ERPConnStr"];
  20. private static string ERPDB = System.Configuration.ConfigurationManager.AppSettings["ERPDB"];
  21. private static string Type = System.Configuration.ConfigurationManager.AppSettings["Type"];
  22. /// <summary>
  23. /// 获取委外采购入库单
  24. /// </summary>
  25. /// <param name="infos"></param>
  26. /// <returns></returns>
  27. public string Get(List<ICSOutsourcingReceiveDoc> infos)
  28. {
  29. List<ICSOutsourcingReceiveDoc> szJson = new List<ICSOutsourcingReceiveDoc>();
  30. DataTable dt = null;
  31. string json = "";
  32. if (infos.Count <= 0)
  33. {
  34. throw new Exception("传送数据为空!");
  35. }
  36. string res = string.Empty;
  37. SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
  38. conn.Open();
  39. SqlTransaction sqlTran = conn.BeginTransaction();
  40. SqlCommand cmd = new SqlCommand();
  41. cmd.Transaction = sqlTran;
  42. cmd.Connection = conn;
  43. try
  44. {
  45. string sql = string.Empty;
  46. foreach (ICSOutsourcingReceiveDoc info in infos)
  47. {
  48. if (info.MTime < new DateTime(2000, 01, 01))
  49. throw new Exception("请输入正确的操作时间:" + info.MTime);
  50. sql = @" select a.ID,iMPoIds,iordercode,a.cCode,a.cDepCode,c.cDepName,a.cWhCode,
  51. d.cWhName,a.cSource,a.cMaker,dnmaketime,cHandler,dnverifytime,cSourceCodeLs,
  52. b.AutoID ,b.irowno,b.cInvCode,b.iQuantity,e.MoDetailsID,b.iNum,e.csocode
  53. from rdrecord11 a
  54. left join rdrecords11 b on a.ID=b.ID
  55. left join Department c on a.cDepCode=c.cDepCode
  56. left join Warehouse d on a.cWhCode=d.cWhCode
  57. left join OM_MODetails e on b.iOMoDID=e.MoDetailsID
  58. where a.cBusType=''";
  59. if (!string.IsNullOrWhiteSpace(info.ORCVTCode))
  60. {
  61. sql += " and a.cCode='{0}'";
  62. }
  63. if (!string.IsNullOrWhiteSpace(info.MTime.ToString()))
  64. {
  65. sql += " and ISNULL(a.dnmodifytime,ISNULL(a.dnverifytime, ISNULL(a.dnmodifytime, a.dnmaketime)))>='{1}'";
  66. }
  67. if (!string.IsNullOrWhiteSpace(info.User))
  68. {
  69. sql += "and a.CMAKER='{2}'";
  70. }
  71. sql = string.Format(sql, info.ORCVTCode, info.MTime, info.User);
  72. dt = DBHelper.SQlReturnData(sql, cmd);
  73. json = JsonConvert.SerializeObject(dt);
  74. if (dt.Rows.Count <= 0 || dt == null)
  75. throw new Exception("委外发料单:" + info.ORCVTCode + ",无信息!");
  76. }
  77. cmd.Transaction.Commit();
  78. return json;
  79. }
  80. catch (Exception ex)
  81. {
  82. cmd.Transaction.Rollback();
  83. log.Error(ex.Message);
  84. throw new Exception(ex.Message);
  85. }
  86. finally
  87. {
  88. if (conn.State == ConnectionState.Open)
  89. {
  90. conn.Close();
  91. }
  92. conn.Dispose();
  93. }
  94. }
  95. /// <summary>
  96. /// 创建委外采购入(到货单)
  97. /// </summary>
  98. /// <param name="Bills"></param>
  99. /// <returns></returns>
  100. public string CreateOutsourcingReceiveDocByPOArrive(List<ICSOutsourcingReceiveDoc> Bills)
  101. {
  102. string msg = "";
  103. int num = 0;
  104. //取得out库单的默认显示模版
  105. Dictionary<string, int> dic = DBHelper.GetAllCode("" + ERPDB + "", "PuArrival", "" + num + "");
  106. int iFatherId = Convert.ToInt32(dic["iFatherId"].ToString());
  107. int iChildId = Convert.ToInt32(dic["iChildId"].ToString());
  108. DateTime date = DateTime.Now;
  109. string iBaseCodeLen = DBHelper.GetAllRDCode("26", "" + date + "", "admin");
  110. //取得采购入库单单据 表头ID,表体DID
  111. VouchKey key = new VouchKey();
  112. foreach (ICSOutsourcingReceiveDoc head in Bills)
  113. {
  114. num = head.ICSoutReceDoc.Count();
  115. }
  116. SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
  117. conn.Open();
  118. SqlTransaction sqlTran = conn.BeginTransaction();
  119. SqlCommand cmd = new SqlCommand();
  120. cmd.Transaction = sqlTran;
  121. cmd.Connection = conn;
  122. try
  123. {
  124. if (Bills.Count <= 0)
  125. {
  126. throw new Exception("传送数据为空!");
  127. }
  128. LogInfo(Bills);
  129. foreach (ICSOutsourcingReceiveDoc head in Bills)
  130. {
  131. string sql = "";
  132. #region 验证数量不能大于到货单数量
  133. foreach (ICSOutsourcingReceiveDocs body in head.ICSoutReceDoc)
  134. {
  135. sql = "SELECT isnull(-iQuantity,0) FROM dbo.PU_ArrivalVouchs WHERE Autoid='" + body.ODNDetailID + "'";
  136. DataTable dtQty = DBHelper.SQlReturnData(sql, cmd);
  137. if (dtQty != null && dtQty.Rows.Count > 0)
  138. {
  139. //到货单可入数量
  140. decimal PUQty = Convert.ToDecimal(dtQty.Rows[0][0]);
  141. sql = "SELECT ISNULL(SUM(-iQuantity),0) FROM dbo.RdRecords01 WHERE iArrsId='" + body.ODNDetailID + "'";
  142. DataTable dtReceQty = DBHelper.SQlReturnData(sql, cmd);
  143. decimal ReceQty = Convert.ToDecimal(dtReceQty.Rows[0][0]);
  144. if (ReceQty + body.Quantity > PUQty)
  145. {
  146. throw new Exception("入库数量大于当前到货单行可入库数量!");
  147. }
  148. }
  149. else
  150. {
  151. throw new Exception("U8不存在该到货单行!");
  152. }
  153. }
  154. #endregion
  155. #region 委外采购入库单 表头
  156. sql = @"INSERT INTO dbo.RdRecord01
  157. ( ID ,bRdFlag ,cVouchType ,cBusType ,cSource ,cWhCode ,
  158. dDate ,cCode ,cRdCode ,cDepCode ,cPersonCode ,cPTCode ,
  159. cVenCode ,cOrderCode ,cARVCode ,cHandler ,cMemo ,
  160. bTransFlag ,cMaker ,cDefine1 ,cDefine2 ,cDefine3 ,
  161. cDefine4 ,cDefine5 ,cDefine6 ,cDefine7 ,cDefine8 ,
  162. cDefine9 ,cDefine10 ,dVeriDate ,bpufirst ,biafirst ,
  163. dARVDate ,VT_ID ,bIsSTQc ,cDefine11 ,cDefine12 ,
  164. cDefine13 ,cDefine14 ,cDefine15 ,cDefine16 ,
  165. ipurarriveid ,iTaxRate ,iExchRate ,cExch_Name ,bOMFirst,
  166. bFromPreYear ,bIsComplement ,iDiscountTaxType ,
  167. ireturncount ,iverifystate ,iswfcontrolled ,
  168. cModifyPerson ,dnmaketime ,dnverifytime ,
  169. bredvouch ,bCredit ,iPrintCount)
  170. SELECT @ID,1,'01','','',@cWhCode,
  171. CONVERT(NVARCHAR(15),GETDATE(),23),@cCode,'101',@cDepCode,a.cPersonCode,'01',
  172. a.cVenCode,b.cCode,a.cCode,@cHandler,a.cMemo,
  173. 0,@cMaker,a.cDefine1,a.cDefine2,a.cDefine3,
  174. a.cDefine4,a.cDefine5,a.cDefine6,a.cDefine7,a.cDefine8,
  175. a.cDefine9,a.cDefine10,CONVERT(NVARCHAR(15),GETDATE(),23),0,0,
  176. a.dDate,@VT_ID,0,a.cDefine11,a.cDefine12,
  177. a.cDefine13,a.cDefine14,a.cDefine15,a.cDefine16,
  178. a.ID,a.iTaxRate,a.iExchRate,a.cexch_name,0,
  179. 0,0,0,
  180. 0,0,0,
  181. '',GETDATE(),GETDATE(),
  182. 0,0,0
  183. FROM dbo.PU_ArrivalVouch a LEFT JOIN dbo.OM_MOMain b ON a.cpocode=b.cCode WHERE a.cCode='" + head.ODNCode + "'";
  184. cmd.Parameters.Clear();
  185. cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
  186. cmd.Parameters.Add(new SqlParameter("@cWhCode", head.WHCode));
  187. cmd.Parameters.Add(new SqlParameter("@cCode", iBaseCodeLen));
  188. cmd.Parameters.Add(new SqlParameter("@cDepCode", ""));
  189. cmd.Parameters.Add(new SqlParameter("@cHandler", head.User));
  190. cmd.Parameters.Add(new SqlParameter("@cMaker", head.User));
  191. cmd.Parameters.Add(new SqlParameter("@VT_ID", iChildId));
  192. cmd.CommandText = sql;
  193. try
  194. {
  195. int count = cmd.ExecuteNonQuery();
  196. if (count <= 0)
  197. {
  198. log.Error("委外采购入库单表头失败,受影响行数<=0;");
  199. throw new Exception("委外采购入库单表头失败,受影响行数<=0;");
  200. }
  201. }
  202. catch (Exception ex)
  203. {
  204. log.Error("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  205. throw new Exception("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  206. }
  207. #endregion
  208. #region 采购入库单 表体
  209. int irowno = 0;
  210. foreach (ICSOutsourcingReceiveDocs body in head.ICSoutReceDoc)
  211. {
  212. irowno += 1;
  213. iChildId -= 1;
  214. body.Quantity = -body.Quantity;
  215. sql = @"INSERT INTO dbo.rdrecords01
  216. ( AutoID ,ID ,cInvCode ,iQuantity ,iUnitCost ,iPrice ,iAPrice ,
  217. iFlag ,iSQuantity ,iSNum ,iMoney ,
  218. cDefine22 ,cDefine23 ,cDefine24 ,cDefine25 ,cDefine26 ,cDefine27 ,
  219. cItem_class ,cItemCode ,iPOsID ,fACost ,cName ,iNQuantity ,
  220. chVencode ,iArrsId ,iOriTaxCost ,iOriCost ,iOriMoney ,iOriTaxPrice ,
  221. ioriSum ,iTaxRate ,iTaxPrice ,iSum ,bTaxCost ,cPOID ,iMatSettleState ,
  222. iBillSettleCount ,bLPUseFree ,iOriTrackID ,bCosting ,cbarvcode ,
  223. dbarvdate ,iExpiratDateCalcu ,iordertype ,isotype ,irowno ,bgift,cBatch,iProcessFee, iProcessCost )
  224. SELECT @AutoID,@ID,@cInvCode,@iQuantity,0,0,0,
  225. 0,0,0,0,
  226. a.cDefine22,a.cDefine23,a.cDefine24,a.cDefine25,a.cDefine26,a.cDefine27,
  227. a.cItem_class,a.cItemCode,a.iPOsID,0,a.cItemName,a.iQuantity,
  228. c.cVenCode,a.Autoid,0,0,0,0,
  229. 0,a.iTaxRate,0,0,1,d.cCode,0,
  230. 0,0,0,1,c.cCode,
  231. c.dDate,0,0,0,@irowno,0,@cBatch,a.iCost*convert(decimal, @iQuantity),a.iCost
  232. FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
  233. INNER JOIN dbo.OM_MOMain d ON b.MOID=d.MOID
  234. INNER JOIN dbo.PU_ArrivalVouch c ON a.ID=c.ID where a.Autoid='" + body.ODNDetailID + "'";
  235. cmd.Parameters.Clear();
  236. cmd.Parameters.Add(new SqlParameter("@AutoID", iChildId));
  237. cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
  238. cmd.Parameters.Add(new SqlParameter("@cInvCode", body.InvCode));
  239. cmd.Parameters.Add(new SqlParameter("@iQuantity", body.Quantity));
  240. cmd.Parameters.Add(new SqlParameter("@irowno", irowno));
  241. cmd.Parameters.Add(new SqlParameter("@cBatch", ""));
  242. cmd.CommandText = sql;
  243. try
  244. {
  245. int count = cmd.ExecuteNonQuery();
  246. if (count <= 0)
  247. {
  248. log.Error("委外采购入库单表头失败,受影响行数<=0;");
  249. throw new Exception("委外采购入库单表头失败,受影响行数<=0;");
  250. }
  251. }
  252. catch (Exception ex)
  253. {
  254. log.Error("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  255. throw new Exception("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  256. }
  257. //更新现存量
  258. key.cBustypeUN = "委外加工";
  259. key.cVouchTypeUN = "01";
  260. key.TableName = "IA_ST_UnAccountVouch01";
  261. DBHelper.UpdateCurrentStock(cmd, body.InvCode, head.WHCode,"", body.Quantity, key);
  262. //OM_MODetails
  263. sql = @"UPDATE b SET freceivedqty=ISNULL(freceivedqty,0)+" + body.Quantity + @"
  264. FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
  265. WHERE a.Autoid='" + body.ODNDetailID + "'";
  266. DBHelper.CmdExecuteNonQuery(sql, cmd, "回写OM_MODetails失败!");
  267. //回写PU_ArrivalVouchs失败
  268. sql = "UPDATE dbo.PU_ArrivalVouchs SET fValidInQuan=ISNULL(fValidInQuan,0)+" + body.Quantity + " WHERE Autoid='" + body.ODNDetailID + "'";
  269. DBHelper.CmdExecuteNonQuery(sql, cmd, "回写PU_ArrivalVouchs失败!");
  270. //更新待入库数量
  271. sql = "UPDATE dbo.CurrentStock SET fInQuantity=ISNULL(fInQuantity,0)-" + body.Quantity + " WHERE cInvCode='" + body.InvCode + "' AND cWhCode ='" + head.WHCode + "'";
  272. if (DBHelper.bInvBatch(body.InvCode, cmd) == true)
  273. {
  274. //if (!string.IsNullOrWhiteSpace(body.cBatch))
  275. //{
  276. // sql += " and cBatch='" + body.cBatch + "'";
  277. //}
  278. }
  279. DBHelper.CmdExecuteNonQuery(sql, cmd, "更新待入库数量失败!");
  280. #region 判断现存量是否足够
  281. sql = @"IF EXISTS(SELECT AutoID FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fInQuantity<0)
  282. BEGIN
  283. DECLARE @MSG NVARCHAR(100)
  284. SELECT @MSG='ERP待入库数量不足AutoID'+CAST(AutoID AS NVARCHAR(100)) FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fInQuantity<0
  285. RAISERROR(@MSG,16,1)
  286. END";
  287. cmd.CommandText = sql;
  288. cmd.ExecuteNonQuery();
  289. #endregion
  290. }
  291. #endregion
  292. }
  293. GetSerialCode(iFatherId.ToString());
  294. cmd.Transaction.Commit();
  295. return msg;
  296. }
  297. catch (Exception ex)
  298. {
  299. cmd.Transaction.Rollback();
  300. log.Error(ex.Message);
  301. throw new Exception(ex.Message);
  302. }
  303. finally
  304. {
  305. if (conn.State == ConnectionState.Open)
  306. {
  307. conn.Close();
  308. }
  309. conn.Dispose();
  310. }
  311. }
  312. /// <summary>
  313. /// 创建委外采购入(委外订单)
  314. /// </summary>
  315. /// <param name="Bills"></param>
  316. /// <returns></returns>
  317. public string CreateOutsourcingReceiveDocByPO(List<ICSOutsourcingReceiveDoc> Bills)
  318. {
  319. string msg = "";
  320. int num = 0;
  321. //取得out库单的默认显示模版
  322. Dictionary<string, int> dic = DBHelper.GetAllCode("" + ERPDB + "", "PuArrival", "" + num + "");
  323. int iFatherId = Convert.ToInt32(dic["iFatherId"].ToString());
  324. int iChildId = Convert.ToInt32(dic["iChildId"].ToString());
  325. DateTime date = DateTime.Now;
  326. string iBaseCodeLen = DBHelper.GetAllRDCode("26", "" + date + "", "admin");
  327. //取得采购入库单单据 表头ID,表体DID
  328. VouchKey key = new VouchKey();
  329. foreach (ICSOutsourcingReceiveDoc head in Bills)
  330. {
  331. num = head.ICSoutReceDoc.Count();
  332. }
  333. SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
  334. conn.Open();
  335. SqlTransaction sqlTran = conn.BeginTransaction();
  336. SqlCommand cmd = new SqlCommand();
  337. cmd.Transaction = sqlTran;
  338. cmd.Connection = conn;
  339. try
  340. {
  341. if (Bills.Count <= 0)
  342. {
  343. throw new Exception("传送数据为空!");
  344. }
  345. LogInfo(Bills);
  346. foreach (ICSOutsourcingReceiveDoc head in Bills)
  347. {
  348. string sql = "";
  349. #region 验证数量不能大于到货单数量
  350. foreach (ICSOutsourcingReceiveDocs body in head.ICSoutReceDoc)
  351. {
  352. sql = "SELECT isnull(-iQuantity,0) FROM dbo.PU_ArrivalVouchs WHERE Autoid='" + body.ODNDetailID + "'";
  353. DataTable dtQty = DBHelper.SQlReturnData(sql, cmd);
  354. if (dtQty != null && dtQty.Rows.Count > 0)
  355. {
  356. //到货单可入数量
  357. decimal PUQty = Convert.ToDecimal(dtQty.Rows[0][0]);
  358. sql = "SELECT ISNULL(SUM(-iQuantity),0) FROM dbo.RdRecords01 WHERE iArrsId='" + body.ODNDetailID + "'";
  359. DataTable dtReceQty = DBHelper.SQlReturnData(sql, cmd);
  360. decimal ReceQty = Convert.ToDecimal(dtReceQty.Rows[0][0]);
  361. if (ReceQty + body.Quantity > PUQty)
  362. {
  363. throw new Exception("入库数量大于当前到货单行可入库数量!");
  364. }
  365. }
  366. else
  367. {
  368. throw new Exception("U8不存在该到货单行!");
  369. }
  370. }
  371. #endregion
  372. #region 委外采购入库单 表头
  373. sql = @"INSERT INTO dbo.RdRecord01
  374. ( ID ,bRdFlag ,cVouchType ,cBusType ,cSource ,cWhCode ,
  375. dDate ,cCode ,cRdCode ,cDepCode ,cPersonCode ,cPTCode ,
  376. cVenCode ,cOrderCode ,cARVCode ,cHandler ,cMemo ,
  377. bTransFlag ,cMaker ,cDefine1 ,cDefine2 ,cDefine3 ,
  378. cDefine4 ,cDefine5 ,cDefine6 ,cDefine7 ,cDefine8 ,
  379. cDefine9 ,cDefine10 ,dVeriDate ,bpufirst ,biafirst ,
  380. dARVDate ,VT_ID ,bIsSTQc ,cDefine11 ,cDefine12 ,
  381. cDefine13 ,cDefine14 ,cDefine15 ,cDefine16 ,
  382. ipurarriveid ,iTaxRate ,iExchRate ,cExch_Name ,bOMFirst,
  383. bFromPreYear ,bIsComplement ,iDiscountTaxType ,
  384. ireturncount ,iverifystate ,iswfcontrolled ,
  385. cModifyPerson ,dnmaketime ,dnverifytime ,
  386. bredvouch ,bCredit ,iPrintCount)
  387. SELECT @ID,1,'01','','',@cWhCode,
  388. CONVERT(NVARCHAR(15),GETDATE(),23),@cCode,'101',@cDepCode,a.cPersonCode,'01',
  389. a.cVenCode,b.cCode,a.cCode,@cHandler,a.cMemo,
  390. 0,@cMaker,a.cDefine1,a.cDefine2,a.cDefine3,
  391. a.cDefine4,a.cDefine5,a.cDefine6,a.cDefine7,a.cDefine8,
  392. a.cDefine9,a.cDefine10,CONVERT(NVARCHAR(15),GETDATE(),23),0,0,
  393. a.dDate,@VT_ID,0,a.cDefine11,a.cDefine12,
  394. a.cDefine13,a.cDefine14,a.cDefine15,a.cDefine16,
  395. a.ID,a.iTaxRate,a.iExchRate,a.cexch_name,0,
  396. 0,0,0,
  397. 0,0,0,
  398. '',GETDATE(),GETDATE(),
  399. 0,0,0
  400. FROM dbo.PU_ArrivalVouch a LEFT JOIN dbo.OM_MOMain b ON a.cpocode=b.cCode WHERE b.cCode='" + head.ODNCode + "'";
  401. cmd.Parameters.Clear();
  402. cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
  403. cmd.Parameters.Add(new SqlParameter("@cWhCode", head.WHCode));
  404. cmd.Parameters.Add(new SqlParameter("@cCode", iBaseCodeLen));
  405. cmd.Parameters.Add(new SqlParameter("@cDepCode", ""));
  406. cmd.Parameters.Add(new SqlParameter("@cHandler", head.User));
  407. cmd.Parameters.Add(new SqlParameter("@cMaker", head.User));
  408. cmd.Parameters.Add(new SqlParameter("@VT_ID", iChildId));
  409. cmd.CommandText = sql;
  410. try
  411. {
  412. int count = cmd.ExecuteNonQuery();
  413. if (count <= 0)
  414. {
  415. log.Error("委外采购入库单表头失败,受影响行数<=0;");
  416. throw new Exception("委外采购入库单表头失败,受影响行数<=0;");
  417. }
  418. }
  419. catch (Exception ex)
  420. {
  421. log.Error("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  422. throw new Exception("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  423. }
  424. #endregion
  425. #region 采购入库单 表体
  426. int irowno = 0;
  427. foreach (ICSOutsourcingReceiveDocs body in head.ICSoutReceDoc)
  428. {
  429. sql = @"INSERT INTO dbo.rdrecords01
  430. ( AutoID ,ID ,cInvCode ,iQuantity ,iUnitCost ,iPrice ,iAPrice ,
  431. iFlag ,iSQuantity ,iSNum ,iMoney ,
  432. cDefine22 ,cDefine23 ,cDefine24 ,cDefine25 ,cDefine26 ,cDefine27 ,
  433. cItem_class ,cItemCode ,iPOsID ,fACost ,cName ,iNQuantity ,
  434. chVencode ,iArrsId ,iOriTaxCost ,iOriCost ,iOriMoney ,iOriTaxPrice ,
  435. ioriSum ,iTaxRate ,iTaxPrice ,iSum ,bTaxCost ,cPOID ,iMatSettleState ,
  436. iBillSettleCount ,bLPUseFree ,iOriTrackID ,bCosting ,cbarvcode ,
  437. dbarvdate ,iExpiratDateCalcu ,iordertype ,isotype ,irowno ,bgift,cBatch,iProcessFee, iProcessCost )
  438. SELECT @AutoID,@ID,@cInvCode,@iQuantity,0,0,0,
  439. 0,0,0,0,
  440. a.cDefine22,a.cDefine23,a.cDefine24,a.cDefine25,a.cDefine26,a.cDefine27,
  441. a.cItem_class,a.cItemCode,a.iPOsID,0,a.cItemName,a.iQuantity,
  442. c.cVenCode,a.Autoid,0,0,0,0,
  443. 0,a.iTaxRate,0,0,1,d.cCode,0,
  444. 0,0,0,1,c.cCode,
  445. c.dDate,0,0,0,@irowno,0,@cBatch,a.iCost*convert(decimal, @iQuantity),a.iCost
  446. FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
  447. INNER JOIN dbo.OM_MOMain d ON b.MOID=d.MOID
  448. INNER JOIN dbo.PU_ArrivalVouch c ON a.ID=c.ID where b.Autoid='" + body.ODNDetailID + "'";
  449. cmd.Parameters.Clear();
  450. cmd.Parameters.Add(new SqlParameter("@AutoID", iChildId));
  451. cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
  452. cmd.Parameters.Add(new SqlParameter("@cInvCode", body.InvCode));
  453. cmd.Parameters.Add(new SqlParameter("@iQuantity", body.Quantity));
  454. cmd.Parameters.Add(new SqlParameter("@irowno", irowno));
  455. cmd.Parameters.Add(new SqlParameter("@cBatch", ""));
  456. cmd.CommandText = sql;
  457. try
  458. {
  459. int count = cmd.ExecuteNonQuery();
  460. if (count <= 0)
  461. {
  462. log.Error("委外采购入库单表头失败,受影响行数<=0;");
  463. throw new Exception("委外采购入库单表头失败,受影响行数<=0;");
  464. }
  465. }
  466. catch (Exception ex)
  467. {
  468. log.Error("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  469. throw new Exception("委外采购入库单表头失败!SQL:\r\n" + sql, ex);
  470. }
  471. //更新现存量
  472. key.cBustypeUN = "委外加工";
  473. key.cVouchTypeUN = "01";
  474. key.TableName = "IA_ST_UnAccountVouch01";
  475. DBHelper.UpdateCurrentStock(cmd, body.InvCode, head.WHCode, "", body.Quantity, key);
  476. //OM_MODetails
  477. sql = @"UPDATE b SET freceivedqty=ISNULL(freceivedqty,0)+" + body.Quantity + @"
  478. FROM dbo.PU_ArrivalVouchs a LEFT JOIN dbo.OM_MODetails b ON a.iPOsID=b.MODetailsID
  479. WHERE a.Autoid='" + body.ODNDetailID + "'";
  480. DBHelper.CmdExecuteNonQuery(sql, cmd, "回写OM_MODetails失败!");
  481. //回写PU_ArrivalVouchs失败
  482. sql = "UPDATE dbo.PU_ArrivalVouchs SET fValidInQuan=ISNULL(fValidInQuan,0)+" + body.Quantity + " WHERE Autoid='" + body.ODNDetailID + "'";
  483. DBHelper.CmdExecuteNonQuery(sql, cmd, "回写PU_ArrivalVouchs失败!");
  484. //更新待入库数量
  485. sql = "UPDATE dbo.CurrentStock SET fInQuantity=ISNULL(fInQuantity,0)-" + body.Quantity + " WHERE cInvCode='" + body.InvCode + "' AND cWhCode ='" + head.WHCode + "'";
  486. if (DBHelper.bInvBatch(body.InvCode, cmd) == true)
  487. {
  488. //if (!string.IsNullOrWhiteSpace(body.cBatch))
  489. //{
  490. // sql += " and cBatch='" + body.cBatch + "'";
  491. //}
  492. }
  493. DBHelper.CmdExecuteNonQuery(sql, cmd, "更新待入库数量失败!");
  494. #region 判断现存量是否足够
  495. sql = @"IF EXISTS(SELECT AutoID FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fInQuantity<0)
  496. BEGIN
  497. DECLARE @MSG NVARCHAR(100)
  498. SELECT @MSG='ERP待入库数量不足AutoID'+CAST(AutoID AS NVARCHAR(100)) FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fInQuantity<0
  499. RAISERROR(@MSG,16,1)
  500. END";
  501. cmd.CommandText = sql;
  502. cmd.ExecuteNonQuery();
  503. #endregion
  504. }
  505. #endregion
  506. }
  507. GetSerialCode(iFatherId.ToString());
  508. cmd.Transaction.Commit();
  509. return msg;
  510. }
  511. catch (Exception ex)
  512. {
  513. cmd.Transaction.Rollback();
  514. log.Error(ex.Message);
  515. throw new Exception(ex.Message);
  516. }
  517. finally
  518. {
  519. if (conn.State == ConnectionState.Open)
  520. {
  521. conn.Close();
  522. }
  523. conn.Dispose();
  524. }
  525. }
  526. /// <summary>
  527. /// 审核委外采购入库
  528. /// </summary>
  529. /// <param name="infos"></param>
  530. /// <returns></returns>
  531. public string Approve(List<ICSOutsourcingReceiveDoc> infos)
  532. {
  533. List<ICSSalesShipmentDoc> szJson = new List<ICSSalesShipmentDoc>();
  534. string json = "";
  535. if (infos.Count <= 0)
  536. {
  537. throw new Exception("传送数据为空!");
  538. }
  539. string res = string.Empty;
  540. SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
  541. conn.Open();
  542. SqlTransaction sqlTran = conn.BeginTransaction();
  543. SqlCommand cmd = new SqlCommand();
  544. cmd.Transaction = sqlTran;
  545. cmd.Connection = conn;
  546. try
  547. {
  548. string sql = string.Empty;
  549. foreach (ICSOutsourcingReceiveDoc info in infos)
  550. {
  551. if (info.MTime < new DateTime(2000, 01, 01))
  552. throw new Exception("请输入正确的操作时间:" + info.MTime);
  553. sql = @"UPDATE RdRecord01 SET cHandler ='" + info.User + @"' ,
  554. dnverifytime=CONVERT(VARCHAR(50),GETDATE(),112),dVeriDate=GETDATE() WHERE ID='{0}'";
  555. sql = string.Format(sql, info.ID);
  556. DBHelper.CmdExecuteNonQuery(sql, cmd, "审核委外采购入库单失败!");
  557. }
  558. cmd.Transaction.Commit();
  559. return json;
  560. }
  561. catch (Exception ex)
  562. {
  563. cmd.Transaction.Rollback();
  564. log.Error(ex.Message);
  565. throw new Exception(ex.Message);
  566. }
  567. finally
  568. {
  569. if (conn.State == ConnectionState.Open)
  570. {
  571. conn.Close();
  572. }
  573. conn.Dispose();
  574. }
  575. }
  576. /// <summary>
  577. /// 删除委外采购入库单
  578. /// </summary>
  579. /// <param name="infos"></param>
  580. /// <returns></returns>
  581. public string Delete(List<ICSOutsourcingReceiveDoc> infos)
  582. {
  583. List<ICSSalesShipmentDoc> szJson = new List<ICSSalesShipmentDoc>();
  584. if (infos.Count <= 0)
  585. {
  586. throw new Exception("传送数据为空!");
  587. }
  588. string res = string.Empty;
  589. SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
  590. conn.Open();
  591. SqlTransaction sqlTran = conn.BeginTransaction();
  592. SqlCommand cmd = new SqlCommand();
  593. cmd.Transaction = sqlTran;
  594. cmd.Connection = conn;
  595. try
  596. {
  597. string sql = string.Empty;
  598. foreach (ICSOutsourcingReceiveDoc info in infos)
  599. {
  600. if (info.MTime < new DateTime(2000, 01, 01))
  601. throw new Exception("请输入正确的操作时间:" + info.MTime);
  602. sql = @"delete RdRecord01 where RdRecord01.ID='" + info.ID + "'";
  603. sql += @"delete RdRecords01 where RdRecords01.ID='" + info.ID + "'";
  604. //UPDATE dbo.rdrecord11 a SET cHandler='" + info.User + @"' ,
  605. // dVeriDate=CONVERT(VARCHAR(50),GETDATE(),112),dnverifytime=GETDATE()
  606. // WHERE a.ID='" + info.ID + "'";
  607. DBHelper.CmdExecuteNonQuery(sql, cmd, "删除委外采购入库单失败!");
  608. }
  609. cmd.Transaction.Commit();
  610. return res;
  611. ;
  612. }
  613. catch (Exception ex)
  614. {
  615. cmd.Transaction.Rollback();
  616. log.Error(ex.Message);
  617. throw new Exception(ex.Message);
  618. }
  619. finally
  620. {
  621. if (conn.State == ConnectionState.Open)
  622. {
  623. conn.Close();
  624. }
  625. conn.Dispose();
  626. }
  627. }
  628. /// <summary>
  629. ///
  630. /// 记录日志
  631. /// </summary>
  632. /// <param name="Bills"></param>
  633. private void LogInfo(List<ICSOutsourcingReceiveDoc> Bills)
  634. {
  635. string HeadList = string.Empty;
  636. string BodyList = string.Empty;
  637. foreach (ICSOutsourcingReceiveDoc head in Bills)
  638. {
  639. HeadList += "\r\n 表头主键ID:" + head.ID + ",仓库:" + head.WHCode + ",用户:" + head.User;
  640. foreach (ICSOutsourcingReceiveDocs body in head.ICSoutReceDoc)
  641. {
  642. BodyList += "\r\n 表体主键ID: " + body.ODNDetailID + ",数量:" + body.Quantity;
  643. }
  644. }
  645. log.Info(HeadList);
  646. log.Info(BodyList);
  647. }
  648. public string GetSerialCode(string ID)
  649. {
  650. string sql = "EXEC Addins_GetSerialCode '{0}'";
  651. sql = string.Format(sql, new object[] { ID });
  652. return DBHelper.ExecuteScalar(CommandType.Text, sql, connString).ToString();
  653. }
  654. }
  655. }