纽威
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.

780 lines
41 KiB

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