SAPDataLogic.cs 112 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380
  1. 
  2. using System;
  3. using System.Collections.Generic;
  4. using System.Data;
  5. using System.ServiceModel.Security;
  6. using Dongke.IBOSS.PRD.Basics.BaseResources;
  7. using Dongke.IBOSS.PRD.Basics.DataAccess;
  8. using Dongke.IBOSS.PRD.Basics.Library;
  9. using Dongke.IBOSS.PRD.Service.DataModels;
  10. using Dongke.IBOSS.PRD.Service.SAPHegiiDataService.HGSAPDK_ZPPFM008;
  11. using Dongke.IBOSS.PRD.Service.SAPHegiiDataService.HGSAPDK_ZPPFM010;
  12. using Dongke.IBOSS.PRD.WCF.DataModels;
  13. using Oracle.ManagedDataAccess.Client;
  14. namespace Dongke.IBOSS.PRD.Service.SAPHegiiDataService
  15. {
  16. public class SAPDataLogic
  17. {
  18. /// <summary>
  19. /// 获取同步最后一次同步成功的日期
  20. /// </summary>
  21. /// <returns></returns>
  22. public static ServiceResultEntity GetLastDateByCode(string dataCode)
  23. {
  24. IDBConnection oracleConn = ClsDbFactory.CreateDBConnection(DataBaseType.ORACLE, DataManager.ConnectionString);
  25. ServiceResultEntity sre = new ServiceResultEntity();
  26. try
  27. {
  28. string sqlString =
  29. "select max(t.yyyymmdd) yyyymmdd\n" +
  30. " from tsap_hegii_datalog t\n" +
  31. " where t.logtype = '2'\n" +
  32. " and t.datastuts = 'S'\n" +
  33. " and t.datacode = :dataCode";
  34. OracleParameter[] oracleParameter = new OracleParameter[]
  35. {
  36. new OracleParameter(":dataCode",OracleDbType.Varchar2, dataCode, ParameterDirection.Input),
  37. };
  38. string lastDate = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  39. sre.Result = lastDate;
  40. return sre;
  41. }
  42. catch (Exception ex)
  43. {
  44. throw ex;
  45. }
  46. }
  47. /// <summary>
  48. /// 获取成品交接同步数据
  49. /// </summary>
  50. /// <returns></returns>
  51. public static ServiceResultEntity GetWorkData60(DateTime date)
  52. {
  53. IDBConnection oracleConn = ClsDbFactory.CreateDBConnection(DataBaseType.ORACLE, DataManager.ConnectionString);
  54. ServiceResultEntity sre = new ServiceResultEntity();
  55. try
  56. {
  57. string yyyymmdd = date.ToString("yyyyMMdd");
  58. string sqlString =
  59. "select t.logid\n" +
  60. " from tsap_hegii_datalog t\n" +
  61. " where t.logtype = '2'\n" +
  62. " and t.datastuts = 'S'\n" +
  63. " and t.yyyymmdd = :yyyymmdd\n" +
  64. " and t.datacode = '60'";
  65. OracleParameter[] oracleParameter = new OracleParameter[]
  66. {
  67. new OracleParameter(":yyyymmdd",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  68. };
  69. string logid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  70. if (!string.IsNullOrEmpty(logid))
  71. {
  72. sqlString = "select t.yyyymmdd\n" +
  73. " ,t.goodscode\n" +
  74. " ,t.sapcode\n" +
  75. " ,t.usercode\n" +
  76. " ,t.ordercode\n" +
  77. " ,t.orderitem\n" +
  78. " ,t.outputnum\n" +
  79. " ,t.recoverynum\n" +
  80. " ,t.createtime\n" +
  81. " ,t.ztype\n" +
  82. " ,t.zmsg\n" +
  83. " ,t.ZTIME\n" +
  84. " from tsap_hegii_workdata t\n" +
  85. //" where t.yyyymmdd = :yyyymmdd\n" +
  86. //" and t.datacode = '60'\n" +
  87. " where t.logid = :logid\n" +
  88. " order by t.goodscode,t.sapcode,t.usercode,t.ordercode,t.orderitem";
  89. oracleParameter = new OracleParameter[]
  90. {
  91. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  92. };
  93. sre.Data = oracleConn.GetSqlResultToDs(sqlString, oracleParameter);
  94. sre.Result = 1;
  95. return sre;
  96. }
  97. sqlString =
  98. "select :yyyymmdd yyyymmdd, sysdate createtime\n" +
  99. " ,tt.GoodsCode\n" +
  100. " ,tt.SAPCode\n" +
  101. " ,tt.usercode\n" +
  102. " ,tt.ordercode\n" +
  103. " ,tt.orderitem\n" +
  104. " ,to_char(tt.OutputNum) OutputNum\n" +
  105. " ,to_char(tt.RecoveryNum) RecoveryNum\n" +
  106. " from (\n" +
  107. "select t.GoodsCode\n" +
  108. " ,t.SAPCode\n" +
  109. " ,t.usercode\n" +
  110. " ,t.ordercode\n" +
  111. " ,t.orderitem\n" +
  112. " ,sum(decode(t.RecyclingFlag\n" +
  113. " ,'1'\n" +
  114. " ,0\n" +
  115. " ,decode(t.DataType, 51, 1, -1))) OutputNum\n" +
  116. " ,sum(decode(t.RecyclingFlag\n" +
  117. " ,'0'\n" +
  118. " ,0\n" +
  119. " ,decode(t.DataType, 51, 1, -1))) RecoveryNum\n" +
  120. " from ( select gh.GoodsCode,gh.SAPCode,u.usercode,o.orderno,gdd.RecyclingFlag,gh.DataType \n" +
  121. " ,case\n" +
  122. " when o.orderid is null or o.orderno like 'HEGII%' then\n" +
  123. " ' '\n" +
  124. " when instr(o.orderno, '/') = 0 then\n" +
  125. " to_char(o.orderno)\n" +
  126. " else\n" +
  127. " to_char(substr(o.orderno, 1, instr(o.orderno, '/') - 1))\n" +
  128. " end ordercode -- 销售凭证\n" +
  129. " ,case\n" +
  130. " when o.orderid is null or o.orderno like 'HEGII%' or\n" +
  131. " instr(o.orderno, '/') = 0 then\n" +
  132. " '0'\n" +
  133. " when instr(o.orderno, '#') = 0 then\n" +
  134. " to_char(substr(o.orderno, instr(o.orderno, '/') + 1))\n" +
  135. " else\n" +
  136. " to_char(substr(o.orderno, instr(o.orderno, '/') + 1, instr(o.orderno, '#')-instr(o.orderno, '/')-1))\n" +
  137. " end orderitem -- 销售凭证项目\n" +
  138. " from (\n" +
  139. " select gch.GoodsCode,gch.SAPCode,decode(gch.DataType,53,51,gch.DataType) DataType,gch.userid,gch.groutingdailydetailid,gch.OTHERID from tp_pm_goodschangehistory gch\n" +
  140. " where gch.createtime >= :datebegin\n" +
  141. " and gch.createtime < :dateend\n" +
  142. " and gch.DataType in (51, 52, 53)\n" +
  143. " union all\n" +
  144. " select gch.GoodsCode,gch.SAPCode,52 DataType,gch.userid,gch.groutingdailydetailid,gch.GoodsIDAfter from tp_pm_goodschangehistory gch\n" +
  145. " where gch.createtime >= :datebegin\n" +
  146. " and gch.createtime < :dateend\n" +
  147. " and gch.DataType =53\n" +
  148. " ) gh\n" +
  149. " inner join tp_mst_user u\n" +
  150. " on u.userid = gh.userid\n" +
  151. " inner join tp_pm_groutingdailydetail gdd\n" +
  152. " on gdd.groutingdailydetailid = gh.groutingdailydetailid\n" +
  153. //" inner join tp_pm_finishedproduct fp\n" +
  154. //" on fp.barcode = gdd.barcode\n" +
  155. " left join tp_pm_order o\n" +
  156. //" on o.orderid = fp.fhorderid\n" +
  157. " on o.orderid = gh.OTHERID\n" +
  158. //" where gh.createtime >= :datebegin\n" +
  159. //" and gh.createtime < :dateend\n" +
  160. //" and gh.DataType in (51, 52)\n" +
  161. " ) t \n" +
  162. //" group by gh.GoodsCode, gh.SAPCode, u.usercode, o.orderno";
  163. " group by t.GoodsCode, t.SAPCode, t.usercode, t.ordercode, t.orderitem\n" +
  164. " ) tt where tt.OutputNum <> 0 or tt.RecoveryNum <> 0 \n" +
  165. " order by tt.GoodsCode, tt.SAPCode, tt.usercode, tt.ordercode, tt.orderitem\n";
  166. // TODO 订单变更
  167. DateTime datebegin = date.Date;
  168. DateTime dateend = date.Date.AddDays(1);
  169. oracleParameter = new OracleParameter[]
  170. {
  171. new OracleParameter(":yyyymmdd",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  172. new OracleParameter(":datebegin",OracleDbType.Date, datebegin, ParameterDirection.Input),
  173. new OracleParameter(":dateend",OracleDbType.Date, dateend, ParameterDirection.Input),
  174. };
  175. sre.Data = oracleConn.GetSqlResultToDs(sqlString, oracleParameter);
  176. sre.Result = 0;
  177. return sre;
  178. }
  179. catch (Exception ex)
  180. {
  181. throw ex;
  182. }
  183. }
  184. /// <summary>
  185. /// 同步成品交接数据(手动)
  186. /// </summary>
  187. /// <returns></returns>
  188. public static ServiceResultEntity SetWorkData60(DateTime date, DataTable workData, int userid)
  189. {
  190. IDBTransaction oracleConn = ClsDbFactory.CreateDBTransaction(DataBaseType.ORACLE, DataManager.ConnectionString);
  191. ServiceResultEntity sre = new ServiceResultEntity();
  192. try
  193. {
  194. string yyyymmdd = date.ToString("yyyyMMdd");
  195. string sqlString =
  196. "select t.logid\n" +
  197. " from tsap_hegii_datalog t\n" +
  198. " where t.logtype = '2'\n" +
  199. " and t.datastuts = 'S'\n" +
  200. " and t.yyyymmdd = :yyyymmdd\n" +
  201. " and t.datacode = '60'";
  202. OracleParameter[] oracleParameter = new OracleParameter[]
  203. {
  204. new OracleParameter(":yyyymmdd",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  205. };
  206. string logid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  207. if (!string.IsNullOrEmpty(logid))
  208. {
  209. sre.Status = Constant.ServiceResultStatus.Other;
  210. sre.Message = "日期【" + yyyymmdd + "】的数据已经同步过,不能重复同步。";
  211. return sre;
  212. }
  213. sqlString = "select workcode from tp_mst_account where rownum = 1";
  214. string workcode = oracleConn.GetSqlResultToStr(sqlString);
  215. DateTime datebegin = date.Date;
  216. DateTime dateend = date.Date.AddDays(1);
  217. logid = oracleConn.GetSqlResultToStr("select SEQ_SAP_HEGII_DataLog_ID.Nextval from dual");
  218. string msg = "data:" + datebegin.ToString("yyyyMMdd-HHmm") + "~" +
  219. dateend.ToString("yyyyMMdd-HHmm");
  220. sqlString = "insert into tsap_hegii_datalog\n" +
  221. " (LogID\n" +
  222. " ,LogType\n" +
  223. " ,BeginTime\n" +
  224. " ,YYYYMMDD\n" +
  225. " ,WorkCode\n" +
  226. " ,DataCode\n" +
  227. " ,DataStuts\n" +
  228. " ,DataMSG\n" +
  229. " ,CreateUserID\n" +
  230. " ,DataLogID)\n" +
  231. "values\n" +
  232. " (:LogID\n" +
  233. " ,'2'\n" +
  234. " ,sysdate\n" +
  235. " ,:YYYYMMDD\n" +
  236. " ,:WorkCode\n" +
  237. " ,'60'\n" +
  238. " ,'S'\n" +
  239. " ,:DataMSG\n" +
  240. " ,:CreateUserID\n" +
  241. " ,:LogID)";
  242. oracleParameter = new OracleParameter[]
  243. {
  244. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  245. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  246. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  247. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  248. new OracleParameter(":DataMSG",OracleDbType.Varchar2, msg, ParameterDirection.Input),
  249. };
  250. int r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  251. //r = oracleConn.ExecuteNonQuery("savepoint datalog");
  252. //oracleConn.SavePoint("datalog");
  253. Zppfm008 sapParameter = new Zppfm008();
  254. if (workData != null && workData.Rows.Count > 0)
  255. {
  256. sapParameter.Zsum = workData.Rows.Count;
  257. sapParameter.TableIn = new Zspp100[sapParameter.Zsum];
  258. sqlString = "insert into TSAP_HEGII_WorkData\n" +
  259. " (YYYYMMDD\n" +
  260. " ,WorkCode\n" +
  261. " ,DataCode\n" +
  262. " ,GoodsCode\n" +
  263. " ,SAPCode\n" +
  264. " ,UserCode\n" +
  265. " ,OutputNum\n" +
  266. " ,RECOVERYNUM\n" +
  267. " ,ORDERCODE\n" +
  268. " ,ORDERITEM\n" +
  269. " ,LogID,createtime)\n" +
  270. "values\n" +
  271. " ('" + yyyymmdd + "'\n" +
  272. " ,'" + workcode + "'\n" +
  273. " ,'60'\n" +
  274. " ,:GoodsCode\n" +
  275. " ,:SAPCode\n" +
  276. " ,:UserCode\n" +
  277. " ,:OutputNum\n" +
  278. " ,:RECOVERYNUM\n" +
  279. " ,:ORDERCODE\n" +
  280. " ,:ORDERITEM\n" +
  281. " ," + logid + ",:createtime)";
  282. int index = 0;
  283. foreach (DataRow item in workData.Rows)
  284. {
  285. Zspp100 info100 = new Zspp100();
  286. // 工厂
  287. info100.Werks = workcode;
  288. // 型号
  289. info100.Groes = item["GoodsCode"].ToString();
  290. // 物料编号
  291. info100.Matnr = item["SAPCode"].ToString();
  292. // 生产工号
  293. info100.Zghnu = item["UserCode"].ToString();
  294. // 数据节点
  295. info100.Zjdnu = "60";
  296. // 时间戳
  297. info100.Zscnu = yyyymmdd;
  298. // 销售凭证
  299. info100.Vbeln = item["ORDERCODE"].ToString().Trim();
  300. // 销售凭证项目
  301. info100.Posnr = item["ORDERITEM"].ToString();
  302. // 产量
  303. info100.Zclng = item["OutputNum"].ToString();
  304. // 损坯
  305. info100.Zspng = "0";
  306. // 清除
  307. info100.Zqcng = "0";
  308. // 回收
  309. info100.Zhsng = item["RECOVERYNUM"].ToString();
  310. // 干补
  311. info100.Zgbng = "0";
  312. oracleParameter = new OracleParameter[]
  313. {
  314. new OracleParameter(":GoodsCode",OracleDbType.Varchar2, item["GoodsCode"], ParameterDirection.Input),
  315. new OracleParameter(":SAPCode",OracleDbType.Varchar2, item["SAPCode"], ParameterDirection.Input),
  316. new OracleParameter(":UserCode",OracleDbType.Varchar2, item["UserCode"], ParameterDirection.Input),
  317. new OracleParameter(":OutputNum",OracleDbType.Varchar2, item["OutputNum"], ParameterDirection.Input),
  318. new OracleParameter(":RECOVERYNUM",OracleDbType.Varchar2, item["RECOVERYNUM"], ParameterDirection.Input),
  319. new OracleParameter(":ORDERCODE",OracleDbType.Varchar2, item["ORDERCODE"], ParameterDirection.Input),
  320. new OracleParameter(":ORDERITEM",OracleDbType.Varchar2, item["ORDERITEM"], ParameterDirection.Input),
  321. new OracleParameter(":createtime",OracleDbType.Date, item["createtime"], ParameterDirection.Input),
  322. };
  323. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  324. sapParameter.TableIn[index++] = info100;
  325. }
  326. }
  327. else
  328. {
  329. sapParameter.Zsum = 0;
  330. sapParameter.TableIn = new Zspp100[sapParameter.Zsum];
  331. }
  332. Zppfm008Response result = HGSAPDK_ZPPFM008(sapParameter, yyyymmdd, "60");
  333. //if (result.Ztype == "E")
  334. //{
  335. // sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = 'E', DataMSG = DataMSG||:msg where logid = :logid";
  336. // oracleParameter = new OracleParameter[]
  337. // {
  338. // new OracleParameter(":msg",OracleDbType.Varchar2, result.Zmsg, ParameterDirection.Input),
  339. // new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  340. // };
  341. // r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  342. //}
  343. //else
  344. {
  345. if (result.TableOut != null && result.TableOut.Length > 0)
  346. {
  347. sqlString = "update TSAP_HEGII_WorkData t set t.ZTime =sysdate, ZTYPE = :ZTYPE, ZMSG = :ZMSG where logid = " + logid +
  348. " \n and YYYYMMDD='" + yyyymmdd + "' and WorkCode='" + workcode +
  349. "' and DataCode='60' and GoodsCode=:GoodsCode and SAPCode=:SAPCode and UserCode=:UserCode \n" +
  350. "and OrderCode=:OrderCode and OrderItem=:OrderItem";
  351. foreach (Zspp100 item in result.TableOut)
  352. {
  353. string posnr = item.Posnr.TrimStart('0');
  354. oracleParameter = new OracleParameter[]
  355. {
  356. new OracleParameter(":ZTYPE",OracleDbType.Varchar2, item.Ztype, ParameterDirection.Input),
  357. new OracleParameter(":ZMSG",OracleDbType.Varchar2, item.Zmsg, ParameterDirection.Input),
  358. new OracleParameter(":GoodsCode",OracleDbType.Varchar2, item.Groes, ParameterDirection.Input),
  359. new OracleParameter(":SAPCode",OracleDbType.Varchar2, item.Matnr, ParameterDirection.Input),
  360. new OracleParameter(":UserCode",OracleDbType.Varchar2, item.Zghnu, ParameterDirection.Input),
  361. new OracleParameter(":OrderCode",OracleDbType.Varchar2, (string.IsNullOrEmpty(item.Vbeln) ? " " : item.Vbeln), ParameterDirection.Input),
  362. new OracleParameter(":OrderItem",OracleDbType.Varchar2, (string.IsNullOrEmpty(posnr) ? "0" : posnr), ParameterDirection.Input),
  363. };
  364. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  365. }
  366. }
  367. //:msg||chr(13)||DataMSG
  368. result.Zmsg = $"{result.Zmsg}({sapParameter.Zsum})";
  369. sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = :DataStuts, DataMSG =nvl2(:msg,:msg||' '||chr(13)||DataMSG,DataMSG) where logid = :logid";
  370. oracleParameter = new OracleParameter[]
  371. {
  372. new OracleParameter(":DataStuts",OracleDbType.Varchar2, result.Ztype, ParameterDirection.Input),
  373. new OracleParameter(":msg",OracleDbType.Varchar2, result.Zmsg, ParameterDirection.Input),
  374. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  375. };
  376. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  377. }
  378. oracleConn.Commit();
  379. sre.Message = result.Zmsg;
  380. sre.Result = result.Ztype;
  381. return sre;
  382. }
  383. catch (Exception ex)
  384. {
  385. throw ex;
  386. }
  387. finally
  388. {
  389. if (oracleConn != null &&
  390. oracleConn.ConnState == ConnectionState.Open)
  391. {
  392. oracleConn.Disconnect();
  393. }
  394. }
  395. }
  396. /// <summary>
  397. /// 查询同步日志
  398. /// </summary>
  399. /// <param name="cre"></param>
  400. /// <param name="userInfo"></param>
  401. /// <returns></returns>
  402. public static ServiceResultEntity GetDataLog(ClientRequestEntity cre)
  403. {
  404. IDBConnection oracleConn = ClsDbFactory.CreateDBConnection(DataBaseType.ORACLE, DataManager.ConnectionString);
  405. ServiceResultEntity sre = new ServiceResultEntity();
  406. try
  407. {
  408. string sqlString =
  409. "select dl.logid\n" +
  410. " ,dl.logtype\n" +
  411. " ,dl.begintime\n" +
  412. " ,dl.endtime\n" +
  413. " ,dl.yyyymmdd\n" +
  414. " ,dl.workcode\n" +
  415. " ,dl.datacode\n" +
  416. " ,dc.datacodename\n" +
  417. " ,dl.datastuts\n" +
  418. " ,dl.datamsg\n" +
  419. " ,dl.datalogid\n" +
  420. " ,u.usercode synusercode\n" +
  421. " from tsap_hegii_datalog dl\n" +
  422. " inner join tsap_hegii_datacode dc\n" +
  423. " on dc.datacode = dl.datacode\n" +
  424. " left join tp_mst_user u\n" +
  425. " on u.userid = dl.createuserid\n" +
  426. " where dl.logtype = '2'\n" +
  427. " and dl.yyyymmdd >= :datebegin\n" +
  428. " and dl.yyyymmdd <= :dateend\n";
  429. OracleParameter[] oracleParameter = new OracleParameter[]
  430. {
  431. new OracleParameter(":datebegin",OracleDbType.Varchar2, cre.Properties["datebegin"], ParameterDirection.Input),
  432. new OracleParameter(":dateend",OracleDbType.Varchar2, cre.Properties["dateend"], ParameterDirection.Input),
  433. };
  434. string datastuts = cre.Properties["datastuts"] + "";
  435. if (!string.IsNullOrEmpty(datastuts))
  436. {
  437. sqlString += " and dl.datastuts in (" + datastuts + ")\n";
  438. }
  439. string datacode = cre.Properties["datacode"] + "";
  440. if (!string.IsNullOrEmpty(datacode))
  441. {
  442. sqlString += " and dl.datacode = '" + datacode + "'\n";
  443. //sqlString += " and dl.datacode in (" + datacode + ")\n";
  444. }
  445. sqlString += " order by dl.yyyymmdd desc, dl.datacode, dl.begintime desc";
  446. sre.Data = oracleConn.GetSqlResultToDs(sqlString, oracleParameter);
  447. return sre;
  448. }
  449. catch (Exception ex)
  450. {
  451. throw ex;
  452. }
  453. }
  454. /// <summary>
  455. /// 查询产量同步明细
  456. /// </summary>
  457. /// <param name="logid"></param>
  458. /// <param name="userInfo"></param>
  459. /// <returns></returns>
  460. public static ServiceResultEntity GetWorkDataByDataLog(int logid)
  461. {
  462. IDBConnection oracleConn = ClsDbFactory.CreateDBConnection(DataBaseType.ORACLE, DataManager.ConnectionString);
  463. ServiceResultEntity sre = new ServiceResultEntity();
  464. try
  465. {
  466. string sqlString = "\n" +
  467. "select wd.yyyymmdd\n" +
  468. " ,wd.workcode\n" +
  469. " ,wd.datacode\n" +
  470. " ,dc.datacodename\n" +
  471. " ,wd.goodscode\n" +
  472. " ,wd.sapcode\n" +
  473. " ,wd.usercode\n" +
  474. " ,wd.ordercode\n" +
  475. " ,wd.orderitem\n" +
  476. " ,to_number(wd.outputnum) outputnum\n" +
  477. " ,to_number(wd.scrapnum) scrapnum\n" +
  478. " ,to_number(wd.cleanupnum) cleanupnum\n" +
  479. " ,to_number(wd.recoverynum) recoverynum\n" +
  480. " ,to_number(wd.repairnum) repairnum\n" +
  481. " ,wd.createtime\n" +
  482. " ,wd.ztype\n" +
  483. " ,wd.zmsg\n" +
  484. " ,wd.ztime\n" +
  485. " ,wd.logid\n" +
  486. " from tsap_hegii_workdata wd\n" +
  487. " inner join tsap_hegii_datacode dc\n" +
  488. " on dc.datacode = wd.datacode\n" +
  489. " where wd.logid = :logid \n" +
  490. " order by wd.goodscode,wd.sapcode,wd.usercode,wd.ordercode,wd.outputnum \n";
  491. OracleParameter[] oracleParameter = new OracleParameter[]
  492. {
  493. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  494. };
  495. sre.Data = oracleConn.GetSqlResultToDs(sqlString, oracleParameter);
  496. //sqlString = "\n" +
  497. //"select wd.logid\n" +
  498. //" ,wd.goodscode\n" +
  499. //" ,wd.sapcode\n" +
  500. //" ,wd.procedureName\n" +
  501. //" ,wd.scrapnum\n" +
  502. //" ,wd.unscrapnum\n" +
  503. //" ,wd.scrapnum-wd.unscrapnum num\n" +
  504. //" from TSAP_HEGII_WORKDATA_SNum wd\n" +
  505. ////" inner join tsap_hegii_datacode dc\n" +
  506. ////" on dc.datacode = wd.datacode\n" +
  507. //" where wd.logid = :logid \n" +
  508. //" order by wd.goodscode,wd.sapcode,wd.procedureName \n";
  509. sqlString = "select decode(gid\n" +
  510. " ,3\n" +
  511. " ,'合计'\n" +
  512. " ,1\n" +
  513. " ,'小计[' || procedureName || ']'\n" +
  514. " ,procedureName) procedureName\n" +
  515. " ,decode(gid, 0, goodscode, '--') goodscode\n" +
  516. " ,decode(gid, 0, sapcode, '--') sapcode\n" +
  517. " ,decode(gid, 0, usercode, '--') usercode\n" +
  518. " ,scrapnum\n" +
  519. " ,unscrapnum\n" +
  520. " ,scrapnum - unscrapnum scrapsum\n" +
  521. " ,cleanupnum\n" +
  522. " ,uncleanupnum\n" +
  523. " ,cleanupnum - uncleanupnum cleanupsum\n" +
  524. " ,repairnum\n" +
  525. " ,recoverynum\n" +
  526. " from (select grouping_id(wd.procedureName, wd.goodscode) gid\n" +
  527. " ,wd.procedureName\n" +
  528. " ,wd.goodscode\n" +
  529. " ,wd.sapcode\n" +
  530. " ,wd.usercode\n" +
  531. " ,sum(wd.scrapnum) scrapnum\n" +
  532. " ,sum(wd.unscrapnum) unscrapnum\n" +
  533. " ,sum(wd.cleanupnum) cleanupnum\n" +
  534. " ,sum(wd.uncleanupnum) uncleanupnum\n" +
  535. " ,sum(wd.repairnum) repairnum\n" +
  536. " ,sum(wd.recoverynum) recoverynum\n" +
  537. " from TSAP_HEGII_WORKDATA_SNum wd\n" +
  538. " where wd.logid = :logid \n" +
  539. " group by grouping sets((wd.procedureName, wd.goodscode, wd.sapcode,wd.usercode),(wd.procedureName),())\n" +
  540. " order by wd.procedureName, wd.goodscode, wd.sapcode)";
  541. sre.Data.Tables.Add(oracleConn.GetSqlResultToDt(sqlString, oracleParameter));
  542. return sre;
  543. }
  544. catch (Exception ex)
  545. {
  546. throw ex;
  547. }
  548. }
  549. /// <summary>
  550. /// 查询SAP同步工序损坯明细
  551. /// </summary>
  552. /// <param name="logid"></param>
  553. /// <param name="userInfo"></param>
  554. /// <returns></returns>
  555. public static ServiceResultEntity GetWorkDataSPSumByDate(ClientRequestEntity cre)
  556. {
  557. IDBConnection oracleConn = ClsDbFactory.CreateDBConnection(DataBaseType.ORACLE, DataManager.ConnectionString);
  558. ServiceResultEntity sre = new ServiceResultEntity();
  559. try
  560. {
  561. string sqlString = "select decode(gid\n" +
  562. " ,3\n" +
  563. " ,'合计'\n" +
  564. " ,1\n" +
  565. " ,'小计[' || procedureName || ']'\n" +
  566. " ,procedureName) procedureName\n" +
  567. " ,decode(gid, 0, goodscode, '--') goodscode\n" +
  568. " ,decode(gid, 0, sapcode, '--') sapcode\n" +
  569. " ,decode(gid, 0, usercode, '--') usercode\n" +
  570. " ,scrapnum\n" +
  571. " ,unscrapnum\n" +
  572. " ,scrapnum - unscrapnum scrapsum\n" +
  573. " ,cleanupnum\n" +
  574. " ,uncleanupnum\n" +
  575. " ,cleanupnum - uncleanupnum cleanupsum\n" +
  576. " ,repairnum\n" +
  577. " ,recoverynum\n" +
  578. " from (select grouping_id(wd.procedureName, wd.goodscode) gid\n" +
  579. " ,wd.procedureName\n" +
  580. " ,wd.goodscode\n" +
  581. " ,wd.sapcode\n" +
  582. " ,wd.usercode\n" +
  583. " ,sum(wd.scrapnum) scrapnum\n" +
  584. " ,sum(wd.unscrapnum) unscrapnum\n" +
  585. " ,sum(wd.cleanupnum) cleanupnum\n" +
  586. " ,sum(wd.uncleanupnum) uncleanupnum\n" +
  587. " ,sum(wd.repairnum) repairnum\n" +
  588. " ,sum(wd.recoverynum) recoverynum\n" +
  589. " from TSAP_HEGII_DATALOG dl\n" +
  590. " inner join TSAP_HEGII_WORKDATA_SNum wd\n" +
  591. " on wd.logid = dl.logid \n" +
  592. " where dl.logtype = '1' \n" +
  593. " and dl.yyyymmdd >= :datebegin\n" +
  594. " and dl.yyyymmdd <= :dateend\n" +
  595. " group by grouping sets((wd.procedureName, wd.goodscode, wd.sapcode,wd.usercode),(wd.procedureName),())\n" +
  596. " order by wd.procedureName, wd.goodscode, wd.sapcode)";
  597. OracleParameter[] oracleParameter = new OracleParameter[]
  598. {
  599. new OracleParameter(":datebegin",OracleDbType.Varchar2, cre.Properties["datebegin"], ParameterDirection.Input),
  600. new OracleParameter(":dateend",OracleDbType.Varchar2, cre.Properties["dateend"], ParameterDirection.Input),
  601. };
  602. sre.Data = oracleConn.GetSqlResultToDs(sqlString, oracleParameter);
  603. return sre;
  604. }
  605. catch (Exception ex)
  606. {
  607. throw ex;
  608. }
  609. }
  610. /// <summary>
  611. /// 查询成品条码同步明细
  612. /// </summary>
  613. /// <param name="logid"></param>
  614. /// <param name="userInfo"></param>
  615. /// <returns></returns>
  616. public static ServiceResultEntity GetFinishedProductByDataLog(int logid)
  617. {
  618. IDBConnection oracleConn = ClsDbFactory.CreateDBConnection(DataBaseType.ORACLE, DataManager.ConnectionString);
  619. ServiceResultEntity sre = new ServiceResultEntity();
  620. try
  621. {
  622. string sqlString =
  623. "select fp.yyyymmdd\n" +
  624. " ,fp.workcode\n" +
  625. " ,fp.barcode\n" +
  626. " ,fp.outcode\n" +
  627. " ,fp.goodscode\n" +
  628. " ,fp.sapcode\n" +
  629. " ,fp.sapflbatchno\n" +
  630. " ,fp.sapfhundoflag\n" +
  631. " ,fp.createtime\n" +
  632. " ,fp.ztype\n" +
  633. " ,fp.zmsg\n" +
  634. " ,fp.ztime\n" +
  635. " ,fp.logid\n" +
  636. " ,fp.ordercode\n" +
  637. " ,fp.orderitem\n" +
  638. " from tsap_hegii_finishedproduct fp\n" +
  639. " where fp.logid = :logid\n" +
  640. " order by fp.ztime, fp.barcode\n";
  641. OracleParameter[] oracleParameter = new OracleParameter[]
  642. {
  643. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  644. };
  645. sre.Data = oracleConn.GetSqlResultToDs(sqlString, oracleParameter);
  646. return sre;
  647. }
  648. catch (Exception ex)
  649. {
  650. throw ex;
  651. }
  652. }
  653. /// <summary>
  654. /// 同步产量报工(手动)
  655. /// </summary>
  656. /// <param name="date"></param>
  657. /// <param name="datacode"></param>
  658. /// <param name="userid"></param>
  659. /// <returns></returns>
  660. public static ServiceResultEntity SetWorkData10_50(DateTime date, string datacode, int userid)
  661. {
  662. IDBTransaction oracleConn = ClsDbFactory.CreateDBTransaction(DataBaseType.ORACLE, DataManager.ConnectionString);
  663. ServiceResultEntity sre = new ServiceResultEntity();
  664. try
  665. {
  666. string yyyymmdd = date.ToString("yyyyMMdd");
  667. string sqlString =
  668. "select t.logid\n" +
  669. " from tsap_hegii_datalog t\n" +
  670. " where t.logtype = '2'\n" +
  671. " and t.datastuts = 'S'\n" +
  672. " and t.yyyymmdd = :yyyymmdd\n" +
  673. " and t.datacode = :datacode";
  674. OracleParameter[] oracleParameter = new OracleParameter[]
  675. {
  676. new OracleParameter(":yyyymmdd",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  677. new OracleParameter(":datacode",OracleDbType.Varchar2, datacode, ParameterDirection.Input),
  678. };
  679. string logid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  680. if (!string.IsNullOrEmpty(logid))
  681. {
  682. sre.Status = Constant.ServiceResultStatus.Other;
  683. sre.Message = "日期【" + yyyymmdd + "】的数据已经同步过,不能重复同步。";
  684. return sre;
  685. }
  686. sqlString =
  687. "select t.logid\n" +
  688. " from tsap_hegii_datalog t\n" +
  689. " where t.logtype = '1'\n" +
  690. " and t.datastuts = 'S'\n" +
  691. " and t.yyyymmdd = :yyyymmdd\n" +
  692. " and t.datacode = :datacode" +
  693. " and t.createuserid is null for update";
  694. string datalogid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  695. sqlString = "select workcode from tp_mst_account where rownum = 1";
  696. string workcode = oracleConn.GetSqlResultToStr(sqlString);
  697. //DateTime datebegin = date.Date;
  698. //DateTime dateend = date.Date.AddDays(1);
  699. logid = oracleConn.GetSqlResultToStr("select SEQ_SAP_HEGII_DataLog_ID.Nextval from dual");
  700. string msg = null;
  701. //string msg = "data:" + datebegin.ToString("yyyyMMdd-HHmm") + "~" +
  702. // dateend.ToString("yyyyMMdd-HHmm");
  703. sqlString = "insert into tsap_hegii_datalog\n" +
  704. " (LogID\n" +
  705. " ,LogType\n" +
  706. " ,BeginTime\n" +
  707. " ,YYYYMMDD\n" +
  708. " ,WorkCode\n" +
  709. " ,DataCode\n" +
  710. " ,DataStuts\n" +
  711. " ,DataMSG\n" +
  712. " ,CreateUserID\n" +
  713. " ,DataLogID)\n" +
  714. "values\n" +
  715. " (:LogID\n" +
  716. " ,'2'\n" +
  717. " ,sysdate\n" +
  718. " ,:YYYYMMDD\n" +
  719. " ,:WorkCode\n" +
  720. " ,:DataCode\n" +
  721. " ,:DataStuts\n" +
  722. " ,:DataMSG\n" +
  723. " ,:CreateUserID\n" +
  724. " ,:DataLogID)";
  725. int r = 0;
  726. if (string.IsNullOrEmpty(datalogid))
  727. {
  728. oracleParameter = new OracleParameter[]
  729. {
  730. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  731. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  732. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  733. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  734. new OracleParameter(":DataCode",OracleDbType.Varchar2, datacode, ParameterDirection.Input),
  735. new OracleParameter(":DataMSG",OracleDbType.Varchar2, "DKMES-ERROR:NO DATA " + msg, ParameterDirection.Input),
  736. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "E", ParameterDirection.Input),
  737. new OracleParameter(":DataLogID",OracleDbType.Int32, 0, ParameterDirection.Input),
  738. };
  739. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  740. oracleConn.Commit();
  741. sre.Status = Constant.ServiceResultStatus.Other;
  742. sre.Message = "没有同步数据";
  743. sre.Result = "E";
  744. return sre;
  745. }
  746. oracleParameter = new OracleParameter[]
  747. {
  748. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  749. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  750. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  751. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  752. new OracleParameter(":DataCode",OracleDbType.Varchar2, datacode, ParameterDirection.Input),
  753. new OracleParameter(":DataMSG",OracleDbType.Varchar2, msg, ParameterDirection.Input),
  754. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "S", ParameterDirection.Input),
  755. new OracleParameter(":DataLogID",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  756. };
  757. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  758. sqlString =
  759. "select wd.yyyymmdd\n" +
  760. " ,wd.workcode\n" +
  761. " ,wd.DataCode\n" +
  762. " ,wd.GoodsCode\n" +
  763. " ,wd.SAPCode\n" +
  764. " ,wd.UserCode\n" +
  765. " ,wd.ORDERCODE\n" +
  766. " ,wd.ORDERITEM\n" +
  767. " ,wd.OutputNum\n" +
  768. " ,wd.ScrapNum\n" +
  769. " ,wd.CleanupNum\n" +
  770. " ,wd.RecoveryNum\n" +
  771. " ,wd.RepairNum\n" +
  772. " from tsap_hegii_workdata wd where wd.logid = :datalogid";
  773. oracleParameter = new OracleParameter[]
  774. {
  775. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  776. };
  777. DataTable workData = oracleConn.GetSqlResultToDt(sqlString, oracleParameter);
  778. Zppfm008 sapParameter = new Zppfm008();
  779. if (workData != null && workData.Rows.Count > 0)
  780. {
  781. sapParameter.Zsum = workData.Rows.Count;
  782. sapParameter.TableIn = new Zspp100[sapParameter.Zsum];
  783. int index = 0;
  784. foreach (DataRow item in workData.Rows)
  785. {
  786. Zspp100 info100 = new Zspp100();
  787. // 工厂
  788. info100.Werks = workcode;
  789. // 型号
  790. info100.Groes = item["GoodsCode"].ToString();
  791. // 物料编号
  792. info100.Matnr = item["SAPCode"].ToString();
  793. // 生产工号
  794. info100.Zghnu = item["UserCode"].ToString();
  795. // 数据节点
  796. info100.Zjdnu = item["DataCode"].ToString();
  797. // 时间戳
  798. info100.Zscnu = yyyymmdd;
  799. // 销售凭证
  800. info100.Vbeln = item["ORDERCODE"].ToString().Trim();
  801. // 销售凭证项目
  802. info100.Posnr = item["ORDERITEM"].ToString();
  803. // 产量
  804. info100.Zclng = item["OutputNum"].ToString();
  805. // 损坯
  806. info100.Zspng = item["SCRAPNUM"].ToString();
  807. // 清除
  808. info100.Zqcng = item["CLEANUPNUM"].ToString();
  809. // 回收
  810. info100.Zhsng = item["RECOVERYNUM"].ToString();
  811. // 干补
  812. info100.Zgbng = item["REPAIRNUM"].ToString();
  813. sapParameter.TableIn[index++] = info100;
  814. }
  815. }
  816. else
  817. {
  818. sapParameter.Zsum = 0;
  819. sapParameter.TableIn = new Zspp100[sapParameter.Zsum];
  820. }
  821. Zppfm008Response result = HGSAPDK_ZPPFM008(sapParameter, yyyymmdd, datacode);
  822. //if (result.Ztype == "E")
  823. //{
  824. // sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = 'E', DataMSG = :msg||chr(13)||DataMSG where logid = :logid";
  825. // oracleParameter = new OracleParameter[]
  826. // {
  827. // new OracleParameter(":msg",OracleDbType.Varchar2, result.Zmsg, ParameterDirection.Input),
  828. // new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  829. // };
  830. // r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  831. //}
  832. //else
  833. {
  834. if (result.TableOut != null && result.TableOut.Length > 0)
  835. {
  836. sqlString = "update TSAP_HEGII_WorkData t set t.ZTime =sysdate, ZTYPE = :ZTYPE, ZMSG = :ZMSG where logid = " + datalogid +
  837. " \n and YYYYMMDD='" + yyyymmdd + "' and WorkCode='" + workcode +
  838. "' and DataCode=:DataCode and GoodsCode=:GoodsCode and SAPCode=:SAPCode and UserCode=:UserCode \n" +
  839. "and OrderCode=:OrderCode and OrderItem=:OrderItem";
  840. foreach (Zspp100 item in result.TableOut)
  841. {
  842. string posnr = item.Posnr.TrimStart('0');
  843. oracleParameter = new OracleParameter[]
  844. {
  845. new OracleParameter(":ZTYPE",OracleDbType.Varchar2, item.Ztype, ParameterDirection.Input),
  846. new OracleParameter(":ZMSG",OracleDbType.Varchar2, item.Zmsg, ParameterDirection.Input),
  847. new OracleParameter(":DataCode",OracleDbType.Varchar2, datacode, ParameterDirection.Input),
  848. new OracleParameter(":GoodsCode",OracleDbType.Varchar2, item.Groes, ParameterDirection.Input),
  849. new OracleParameter(":SAPCode",OracleDbType.Varchar2, item.Matnr, ParameterDirection.Input),
  850. new OracleParameter(":UserCode",OracleDbType.Varchar2, item.Zghnu, ParameterDirection.Input),
  851. new OracleParameter(":OrderCode",OracleDbType.Varchar2, (string.IsNullOrEmpty(item.Vbeln) ? " " : item.Vbeln), ParameterDirection.Input),
  852. new OracleParameter(":OrderItem",OracleDbType.Varchar2, ((string.IsNullOrEmpty(posnr)) ? "0" : posnr), ParameterDirection.Input),
  853. };
  854. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  855. }
  856. }
  857. //:msg||chr(13)||DataMSG nvl2(:msg,:msg||chr(13)||DataMS,DataMS)
  858. result.Zmsg = $"{result.Zmsg}({sapParameter.Zsum})";
  859. sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = :DataStuts, DataMSG =:msg where logid = :logid";
  860. oracleParameter = new OracleParameter[]
  861. {
  862. new OracleParameter(":DataStuts",OracleDbType.Varchar2, result.Ztype, ParameterDirection.Input),
  863. new OracleParameter(":msg",OracleDbType.Varchar2, result.Zmsg, ParameterDirection.Input),
  864. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  865. };
  866. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  867. if (result.Ztype == "S")
  868. {
  869. sqlString = "update tsap_hegii_datalog t set t.createuserid = :userid where logid = :datalogid";
  870. oracleParameter = new OracleParameter[]
  871. {
  872. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  873. new OracleParameter(":userid",OracleDbType.Int32, userid, ParameterDirection.Input),
  874. };
  875. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  876. }
  877. }
  878. oracleConn.Commit();
  879. sre.Message = result.Zmsg;
  880. sre.Result = result.Ztype;
  881. return sre;
  882. }
  883. catch (Exception ex)
  884. {
  885. throw ex;
  886. }
  887. finally
  888. {
  889. if (oracleConn != null &&
  890. oracleConn.ConnState == ConnectionState.Open)
  891. {
  892. oracleConn.Disconnect();
  893. }
  894. }
  895. }
  896. /// <summary>
  897. /// 同步成品条码(手动)
  898. /// </summary>
  899. /// <param name="date"></param>
  900. /// <param name="userid"></param>
  901. /// <returns></returns>
  902. public static ServiceResultEntity SetFP6001(DateTime date, int userid)
  903. {
  904. IDBTransaction oracleConn = ClsDbFactory.CreateDBTransaction(DataBaseType.ORACLE, DataManager.ConnectionString);
  905. ServiceResultEntity sre = new ServiceResultEntity();
  906. try
  907. {
  908. string yyyymmdd = date.ToString("yyyyMMdd");
  909. string sqlString =
  910. "select t.logid\n" +
  911. " from tsap_hegii_datalog t\n" +
  912. " where t.logtype = '2'\n" +
  913. " and t.datastuts = 'S'\n" +
  914. " and t.yyyymmdd = :yyyymmdd\n" +
  915. " and t.datacode = :datacode";
  916. OracleParameter[] oracleParameter = new OracleParameter[]
  917. {
  918. new OracleParameter(":yyyymmdd",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  919. new OracleParameter(":datacode",OracleDbType.Varchar2, "6001", ParameterDirection.Input),
  920. };
  921. string logid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  922. if (!string.IsNullOrEmpty(logid))
  923. {
  924. sre.Status = Constant.ServiceResultStatus.Other;
  925. sre.Message = "日期【" + yyyymmdd + "】的数据已经同步过,不能重复同步。";
  926. return sre;
  927. }
  928. sqlString =
  929. "select t.logid\n" +
  930. " from tsap_hegii_datalog t\n" +
  931. " where t.logtype = '1'\n" +
  932. " and t.datastuts = 'S'\n" +
  933. " and t.yyyymmdd = :yyyymmdd\n" +
  934. " and t.datacode = :datacode" +
  935. " and t.createuserid is null for update";
  936. string datalogid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  937. sqlString = "select workcode from tp_mst_account where rownum = 1";
  938. string workcode = oracleConn.GetSqlResultToStr(sqlString);
  939. //DateTime datebegin = date.Date;
  940. //DateTime dateend = date.Date.AddDays(1);
  941. logid = oracleConn.GetSqlResultToStr("select SEQ_SAP_HEGII_DataLog_ID.Nextval from dual");
  942. string msg = null;
  943. //string msg = "data:" + datebegin.ToString("yyyyMMdd-HHmm") + "~" +
  944. // dateend.ToString("yyyyMMdd-HHmm");
  945. sqlString = "insert into tsap_hegii_datalog\n" +
  946. " (LogID\n" +
  947. " ,LogType\n" +
  948. " ,BeginTime\n" +
  949. " ,YYYYMMDD\n" +
  950. " ,WorkCode\n" +
  951. " ,DataCode\n" +
  952. " ,DataStuts\n" +
  953. " ,DataMSG\n" +
  954. " ,CreateUserID\n" +
  955. " ,DataLogID)\n" +
  956. "values\n" +
  957. " (:LogID\n" +
  958. " ,'2'\n" +
  959. " ,sysdate\n" +
  960. " ,:YYYYMMDD\n" +
  961. " ,:WorkCode\n" +
  962. " ,:DataCode\n" +
  963. " ,:DataStuts\n" +
  964. " ,:DataMSG\n" +
  965. " ,:CreateUserID\n" +
  966. " ,:DataLogID)";
  967. int r = 0;
  968. if (string.IsNullOrEmpty(datalogid))
  969. {
  970. oracleParameter = new OracleParameter[]
  971. {
  972. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  973. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  974. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  975. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  976. new OracleParameter(":DataCode",OracleDbType.Varchar2, "6001", ParameterDirection.Input),
  977. new OracleParameter(":DataMSG",OracleDbType.Varchar2, "DKMES-ERROR:NO DATA " + msg, ParameterDirection.Input),
  978. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "E", ParameterDirection.Input),
  979. new OracleParameter(":DataLogID",OracleDbType.Int32, 0, ParameterDirection.Input),
  980. };
  981. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  982. oracleConn.Commit();
  983. sre.Status = Constant.ServiceResultStatus.Other;
  984. sre.Message = "没有同步数据";
  985. sre.Result = "E";
  986. return sre;
  987. }
  988. oracleParameter = new OracleParameter[]
  989. {
  990. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  991. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  992. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  993. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  994. new OracleParameter(":DataCode",OracleDbType.Varchar2, "6001", ParameterDirection.Input),
  995. new OracleParameter(":DataMSG",OracleDbType.Varchar2, msg, ParameterDirection.Input),
  996. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "S", ParameterDirection.Input),
  997. new OracleParameter(":DataLogID",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  998. };
  999. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1000. sqlString =
  1001. "select fp.yyyymmdd\n" +
  1002. " ,fp.workcode\n" +
  1003. " ,fp.barcode\n" +
  1004. " ,fp.outcode\n" +
  1005. " ,fp.goodscode\n" +
  1006. " ,fp.sapcode\n" +
  1007. " ,fp.sapflbatchno\n" +
  1008. " ,fp.sapfhundoflag\n" +
  1009. " ,fp.ordercode\n" +
  1010. " ,fp.orderitem\n" +
  1011. " from tsap_hegii_finishedproduct fp where fp.logid = :datalogid\n" +
  1012. " order by fp.sapflbatchno, fp.barcode";
  1013. oracleParameter = new OracleParameter[]
  1014. {
  1015. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  1016. };
  1017. DataTable fpData = oracleConn.GetSqlResultToDt(sqlString, oracleParameter);
  1018. // 单次传输最大条数
  1019. int maxCount = 100000;
  1020. List<Zppfm010> sapParameterList = new List<Zppfm010>();
  1021. if (fpData != null && fpData.Rows.Count > 0)
  1022. {
  1023. int index = 0;
  1024. //Zppfm010 sapParameter = new Zppfm010();
  1025. //sapParameter.Zsum = maxCount;
  1026. //sapParameter.TableIn = new Zspp110[sapParameter.Zsum];
  1027. List<ZSPP110> tableInList = new List<ZSPP110>();
  1028. foreach (DataRow item in fpData.Rows)
  1029. {
  1030. if (index >= maxCount)
  1031. {
  1032. Zppfm010 sapItem = new Zppfm010();
  1033. sapItem.ZSUM = tableInList.Count;
  1034. sapItem.TABLE_IN = tableInList.ToArray();
  1035. sapParameterList.Add(sapItem);
  1036. index = 0;
  1037. tableInList.Clear();
  1038. }
  1039. ZSPP110 info110 = new ZSPP110();
  1040. // 时间戳
  1041. info110.ZSCNU = yyyymmdd;
  1042. // 工厂
  1043. info110.WERKS = workcode;
  1044. // 生产条码
  1045. info110.ZSCTM = item["barcode"].ToString();
  1046. // 包装条码
  1047. info110.ZBZTM = item["outcode"].ToString();
  1048. // 产品编码
  1049. info110.ZCPBM = item["goodscode"].ToString();
  1050. // 物料编号
  1051. info110.MATNR = item["sapcode"].ToString();
  1052. // 包装整板标识
  1053. info110.ZBZBS = item["sapflbatchno"].ToString();
  1054. // 重新绑定标识
  1055. info110.ZCXBD = item["sapfhundoflag"].ToString();
  1056. // 销售凭证
  1057. info110.KDAUF = item["ordercode"].ToString();
  1058. // 销售凭证项目
  1059. info110.KDPOS = item["orderitem"].ToString();
  1060. if (info110.WERKS == "5011" && info110.ZCPBM == "K047L")
  1061. {
  1062. continue;
  1063. }
  1064. tableInList.Add(info110);
  1065. index++;
  1066. }
  1067. Zppfm010 sapParameter = new Zppfm010();
  1068. sapParameter.ZSUM = tableInList.Count;
  1069. sapParameter.TABLE_IN = tableInList.ToArray();
  1070. sapParameterList.Add(sapParameter);
  1071. index = 0;
  1072. tableInList.Clear();
  1073. }
  1074. else
  1075. {
  1076. Zppfm010 sapParameter = new Zppfm010();
  1077. sapParameter.ZSUM = 0;
  1078. sapParameter.TABLE_IN = new ZSPP110[sapParameter.ZSUM];
  1079. sapParameterList.Add(sapParameter);
  1080. }
  1081. foreach (Zppfm010 sapParameter in sapParameterList)
  1082. {
  1083. ZPPFM010Response result = HGSAPDK_ZPPFM010(sapParameter, yyyymmdd);
  1084. //sre.Message = result.ZMSG;
  1085. sre.Message = $"{result.ZMSG}({sapParameter.ZSUM})";
  1086. sre.Result = result.ZTYPE;
  1087. sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = :DataStuts, DataMSG =:msg where logid = :logid";
  1088. oracleParameter = new OracleParameter[]
  1089. {
  1090. new OracleParameter(":DataStuts",OracleDbType.Varchar2, result.ZTYPE, ParameterDirection.Input),
  1091. //new OracleParameter(":msg",OracleDbType.Varchar2, result.ZMSG, ParameterDirection.Input),
  1092. new OracleParameter(":msg",OracleDbType.Varchar2, sre.Message, ParameterDirection.Input),
  1093. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  1094. };
  1095. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1096. if (result.TABLE_OUT != null && result.TABLE_OUT.Length > 0)
  1097. {
  1098. sqlString = "update tsap_hegii_finishedproduct t set t.ZTime =sysdate, ZTYPE = :ZTYPE, ZMSG = :ZMSG where logid = " + datalogid +
  1099. " \n and YYYYMMDD='" + yyyymmdd + "' and WorkCode='" + workcode + "' and barcode=:barcode";
  1100. foreach (ZSPP110 item in result.TABLE_OUT)
  1101. {
  1102. oracleParameter = new OracleParameter[]
  1103. {
  1104. new OracleParameter(":ZTYPE",OracleDbType.Varchar2, item.ZTYPE, ParameterDirection.Input),
  1105. new OracleParameter(":ZMSG",OracleDbType.Varchar2, item.ZMSG, ParameterDirection.Input),
  1106. new OracleParameter(":barcode",OracleDbType.Varchar2, item.ZSCTM, ParameterDirection.Input),
  1107. };
  1108. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1109. }
  1110. }
  1111. if (result.ZTYPE != "S")
  1112. {
  1113. oracleConn.Commit();
  1114. //sre.Message = result.Zmsg;
  1115. //sre.Result = result.Ztype;
  1116. return sre;
  1117. }
  1118. }
  1119. //if (result.Ztype == "S")
  1120. {
  1121. sqlString = "update tsap_hegii_datalog t set t.createuserid = :userid where logid = :datalogid";
  1122. oracleParameter = new OracleParameter[]
  1123. {
  1124. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  1125. new OracleParameter(":userid",OracleDbType.Int32, userid, ParameterDirection.Input),
  1126. };
  1127. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1128. }
  1129. oracleConn.Commit();
  1130. //sre.Message = result.Zmsg;
  1131. //sre.Result = result.Ztype;
  1132. return sre;
  1133. }
  1134. catch (Exception ex)
  1135. {
  1136. throw ex;
  1137. }
  1138. finally
  1139. {
  1140. if (oracleConn != null &&
  1141. oracleConn.ConnState == ConnectionState.Open)
  1142. {
  1143. oracleConn.Disconnect();
  1144. }
  1145. }
  1146. }
  1147. /// <summary>
  1148. /// 同步成品条码(手动)
  1149. /// </summary>
  1150. /// <param name="date"></param>
  1151. /// <param name="userid"></param>
  1152. /// <returns></returns>
  1153. public static ServiceResultEntity SetFP6002(DateTime date, int userid)
  1154. {
  1155. IDBTransaction oracleConn = ClsDbFactory.CreateDBTransaction(DataBaseType.ORACLE, DataManager.ConnectionString);
  1156. ServiceResultEntity sre = new ServiceResultEntity();
  1157. try
  1158. {
  1159. string yyyymmdd = date.ToString("yyyyMMdd");
  1160. string sqlString =
  1161. "select t.logid\n" +
  1162. " from tsap_hegii_datalog t\n" +
  1163. " where t.logtype = '2'\n" +
  1164. " and t.datastuts = 'S'\n" +
  1165. " and t.yyyymmdd = :yyyymmdd\n" +
  1166. " and t.datacode = :datacode";
  1167. OracleParameter[] oracleParameter = new OracleParameter[]
  1168. {
  1169. new OracleParameter(":yyyymmdd",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  1170. new OracleParameter(":datacode",OracleDbType.Varchar2, "6002", ParameterDirection.Input),
  1171. };
  1172. string logid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  1173. if (!string.IsNullOrEmpty(logid))
  1174. {
  1175. sre.Status = Constant.ServiceResultStatus.Other;
  1176. sre.Message = "日期【" + yyyymmdd + "】的数据已经同步过,不能重复同步。";
  1177. return sre;
  1178. }
  1179. sqlString =
  1180. "select t.logid, t.begintime, t.endtime\n" +
  1181. " from tsap_hegii_datalog t\n" +
  1182. " where t.logtype = '1'\n" +
  1183. " and t.datastuts = 'S'\n" +
  1184. " and t.yyyymmdd = :yyyymmdd\n" +
  1185. " and t.datacode = :datacode" +
  1186. " and t.createuserid is null for update";
  1187. //string datalogid = oracleConn.GetSqlResultToStr(sqlString, oracleParameter);
  1188. DataTable dt = oracleConn.GetSqlResultToDt(sqlString, oracleParameter);
  1189. string datalogid = null;
  1190. string msg = null;
  1191. if (dt.Rows.Count > 0)
  1192. {
  1193. datalogid = dt.Rows[0]["logid"] + "";
  1194. msg = Convert.ToDateTime( dt.Rows[0]["endtime"]).ToString("HH:mm ");
  1195. }
  1196. sqlString = "select workcode from tp_mst_account where rownum = 1";
  1197. string workcode = oracleConn.GetSqlResultToStr(sqlString);
  1198. //DateTime datebegin = date.Date;
  1199. //DateTime dateend = date.Date.AddDays(1);
  1200. logid = oracleConn.GetSqlResultToStr("select SEQ_SAP_HEGII_DataLog_ID.Nextval from dual");
  1201. //string msg = "data:" + datebegin.ToString("yyyyMMdd-HHmm") + "~" +
  1202. // dateend.ToString("yyyyMMdd-HHmm");
  1203. sqlString = "insert into tsap_hegii_datalog\n" +
  1204. " (LogID\n" +
  1205. " ,LogType\n" +
  1206. " ,BeginTime\n" +
  1207. " ,YYYYMMDD\n" +
  1208. " ,WorkCode\n" +
  1209. " ,DataCode\n" +
  1210. " ,DataStuts\n" +
  1211. " ,DataMSG\n" +
  1212. " ,CreateUserID\n" +
  1213. " ,DataLogID)\n" +
  1214. "values\n" +
  1215. " (:LogID\n" +
  1216. " ,'2'\n" +
  1217. " ,sysdate\n" +
  1218. " ,:YYYYMMDD\n" +
  1219. " ,:WorkCode\n" +
  1220. " ,:DataCode\n" +
  1221. " ,:DataStuts\n" +
  1222. " ,:DataMSG\n" +
  1223. " ,:CreateUserID\n" +
  1224. " ,:DataLogID)";
  1225. int r = 0;
  1226. if (string.IsNullOrEmpty(datalogid))
  1227. {
  1228. oracleParameter = new OracleParameter[]
  1229. {
  1230. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  1231. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  1232. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  1233. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  1234. new OracleParameter(":DataCode",OracleDbType.Varchar2, "6002", ParameterDirection.Input),
  1235. new OracleParameter(":DataMSG",OracleDbType.Varchar2, msg + "DKMES-ERROR:NO DATA " , ParameterDirection.Input),
  1236. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "E", ParameterDirection.Input),
  1237. new OracleParameter(":DataLogID",OracleDbType.Int32, 0, ParameterDirection.Input),
  1238. };
  1239. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1240. oracleConn.Commit();
  1241. sre.Status = Constant.ServiceResultStatus.Other;
  1242. sre.Message = "没有同步数据";
  1243. sre.Result = "E";
  1244. return sre;
  1245. }
  1246. oracleParameter = new OracleParameter[]
  1247. {
  1248. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  1249. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  1250. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  1251. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  1252. new OracleParameter(":DataCode",OracleDbType.Varchar2, "6002", ParameterDirection.Input),
  1253. new OracleParameter(":DataMSG",OracleDbType.Varchar2, msg, ParameterDirection.Input),
  1254. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "S", ParameterDirection.Input),
  1255. new OracleParameter(":DataLogID",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  1256. };
  1257. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1258. sqlString =
  1259. "select fp.yyyymmdd\n" +
  1260. " ,fp.workcode\n" +
  1261. " ,fp.barcode\n" +
  1262. " ,fp.outcode\n" +
  1263. " ,fp.goodscode\n" +
  1264. " ,fp.sapcode\n" +
  1265. " ,fp.sapflbatchno\n" +
  1266. " ,fp.sapfhundoflag\n" +
  1267. " ,fp.ordercode\n" +
  1268. " ,fp.orderitem\n" +
  1269. " from tsap_hegii_finishedproduct fp where fp.logid = :datalogid and (ZTYPE is null or ZTYPE <> 'S')\n" +
  1270. " order by fp.sapflbatchno, fp.barcode";
  1271. oracleParameter = new OracleParameter[]
  1272. {
  1273. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  1274. };
  1275. DataTable fpData = oracleConn.GetSqlResultToDt(sqlString, oracleParameter);
  1276. // 单次传输最大条数
  1277. int maxCount = 100000;
  1278. List<Zppfm010> sapParameterList = new List<Zppfm010>();
  1279. if (fpData != null && fpData.Rows.Count > 0)
  1280. {
  1281. int index = 0;
  1282. //Zppfm010 sapParameter = new Zppfm010();
  1283. //sapParameter.Zsum = maxCount;
  1284. //sapParameter.TableIn = new Zspp110[sapParameter.Zsum];
  1285. List<ZSPP110> tableInList = new List<ZSPP110>();
  1286. foreach (DataRow item in fpData.Rows)
  1287. {
  1288. if (index >= maxCount)
  1289. {
  1290. Zppfm010 sapItem = new Zppfm010();
  1291. sapItem.ZSUM = tableInList.Count;
  1292. sapItem.TABLE_IN = tableInList.ToArray();
  1293. sapParameterList.Add(sapItem);
  1294. index = 0;
  1295. tableInList.Clear();
  1296. }
  1297. ZSPP110 info110 = new ZSPP110();
  1298. // 时间戳
  1299. info110.ZSCNU = yyyymmdd;
  1300. // 工厂
  1301. info110.WERKS = workcode;
  1302. // 生产条码
  1303. info110.ZSCTM = item["barcode"].ToString();
  1304. // 包装条码
  1305. info110.ZBZTM = item["outcode"].ToString();
  1306. // 产品编码
  1307. info110.ZCPBM = item["goodscode"].ToString();
  1308. // 物料编号
  1309. info110.MATNR = item["sapcode"].ToString();
  1310. // 包装整板标识
  1311. info110.ZBZBS = item["sapflbatchno"].ToString();
  1312. // 重新绑定标识
  1313. info110.ZCXBD = item["sapfhundoflag"].ToString();
  1314. // 销售凭证
  1315. info110.KDAUF = item["ordercode"].ToString();
  1316. // 销售凭证项目
  1317. info110.KDPOS = item["orderitem"].ToString();
  1318. if (info110.WERKS == "5011" && info110.ZCPBM == "K047L")
  1319. {
  1320. continue;
  1321. }
  1322. tableInList.Add(info110);
  1323. index++;
  1324. }
  1325. Zppfm010 sapParameter = new Zppfm010();
  1326. sapParameter.ZSUM = tableInList.Count;
  1327. sapParameter.TABLE_IN = tableInList.ToArray();
  1328. sapParameterList.Add(sapParameter);
  1329. index = 0;
  1330. tableInList.Clear();
  1331. }
  1332. else
  1333. {
  1334. Zppfm010 sapParameter = new Zppfm010();
  1335. sapParameter.ZSUM = 0;
  1336. sapParameter.TABLE_IN = new ZSPP110[sapParameter.ZSUM];
  1337. sapParameterList.Add(sapParameter);
  1338. }
  1339. foreach (Zppfm010 sapParameter in sapParameterList)
  1340. {
  1341. ZPPFM010Response result = HGSAPDK_ZPPFM010(sapParameter, yyyymmdd);
  1342. //sre.Message = result.ZMSG;
  1343. sre.Message = $"{result.ZMSG}({sapParameter.ZSUM})";
  1344. sre.Result = result.ZTYPE;
  1345. sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = :DataStuts, DataMSG =DataMSG||:msg where logid = :logid";
  1346. oracleParameter = new OracleParameter[]
  1347. {
  1348. new OracleParameter(":DataStuts",OracleDbType.Varchar2, result.ZTYPE, ParameterDirection.Input),
  1349. //new OracleParameter(":msg",OracleDbType.Varchar2, result.ZMSG, ParameterDirection.Input),
  1350. new OracleParameter(":msg",OracleDbType.Varchar2, sre.Message, ParameterDirection.Input),
  1351. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  1352. };
  1353. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1354. if (result.TABLE_OUT != null && result.TABLE_OUT.Length > 0)
  1355. {
  1356. sqlString = "update tsap_hegii_finishedproduct t set t.ZTime =sysdate, ZTYPE = nvl(:ZTYPE,'S'), ZMSG = :ZMSG where logid = " + datalogid +
  1357. " \n and YYYYMMDD='" + yyyymmdd + "' and WorkCode='" + workcode + "' and barcode=:barcode and sapflbatchno=:sapflbatchno";
  1358. foreach (ZSPP110 item in result.TABLE_OUT)
  1359. {
  1360. oracleParameter = new OracleParameter[]
  1361. {
  1362. new OracleParameter(":ZTYPE",OracleDbType.Varchar2, item.ZTYPE, ParameterDirection.Input),
  1363. new OracleParameter(":ZMSG",OracleDbType.Varchar2, item.ZMSG, ParameterDirection.Input),
  1364. new OracleParameter(":barcode",OracleDbType.Varchar2, item.ZSCTM, ParameterDirection.Input),
  1365. new OracleParameter(":sapflbatchno",OracleDbType.Varchar2, item.ZBZBS, ParameterDirection.Input),
  1366. };
  1367. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1368. }
  1369. }
  1370. if (result.ZTYPE != "S")
  1371. {
  1372. oracleConn.Commit();
  1373. //sre.Message = result.Zmsg;
  1374. //sre.Result = result.Ztype;
  1375. return sre;
  1376. }
  1377. }
  1378. //if (result.Ztype == "S")
  1379. {
  1380. sqlString = "update tsap_hegii_datalog t set t.createuserid = :userid where logid = :datalogid";
  1381. oracleParameter = new OracleParameter[]
  1382. {
  1383. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  1384. new OracleParameter(":userid",OracleDbType.Int32, userid, ParameterDirection.Input),
  1385. };
  1386. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  1387. }
  1388. oracleConn.Commit();
  1389. //sre.Message = result.Zmsg;
  1390. //sre.Result = result.Ztype;
  1391. return sre;
  1392. }
  1393. catch (Exception ex)
  1394. {
  1395. throw ex;
  1396. }
  1397. finally
  1398. {
  1399. if (oracleConn != null &&
  1400. oracleConn.ConnState == ConnectionState.Open)
  1401. {
  1402. oracleConn.Disconnect();
  1403. }
  1404. }
  1405. }
  1406. /// <summary>
  1407. /// 产量接口
  1408. /// </summary>
  1409. /// <param name="sapParameter"></param>
  1410. /// <returns></returns>
  1411. private static Zppfm008Response HGSAPDK_ZPPFM008(Zppfm008 sapParameter, string yyyymmdd, string datacode)
  1412. {
  1413. Zppfm008Response sapResult = null;
  1414. try
  1415. {
  1416. using (ZPPFM008Client sapClient = new ZPPFM008Client("ZPPFM008_BIND"))
  1417. {
  1418. // 登录
  1419. UserNamePasswordClientCredential credential =
  1420. sapClient.ClientCredentials.UserName;
  1421. //credential.UserName = "hgsapdk";
  1422. //credential.Password = "Sapdk#240";
  1423. INIUtility ini = INIUtility.Instance(INIUtility.IniFile.Config);
  1424. credential.UserName = ini.ReadIniData("SAP_HEGII", "UserName");
  1425. credential.Password = ini.ReadIniData("SAP_HEGII", "Password");
  1426. // 参数
  1427. sapParameter.ZsumSpecified = true;
  1428. sapParameter.TableOut = new Zspp100[0];
  1429. // 接口
  1430. sapResult = sapClient.Zppfm008(sapParameter);
  1431. // 结果
  1432. OutputLog.TraceLog(LogPriority.Information,
  1433. "HGSAPDK_ZPPFM008",
  1434. "yyyymmdd:" + yyyymmdd + " datacode:" + datacode + " Zsum:" + sapParameter.Zsum,
  1435. "Ztype:" + sapResult.Ztype + " Zmsg:" + sapResult.Zmsg,
  1436. LocalPath.LogExePath + "SAP_HEGII\\Info_");
  1437. }
  1438. }
  1439. catch (Exception ex)
  1440. {
  1441. sapResult = new Zppfm008Response();
  1442. sapResult.Ztype = "E";
  1443. if (ex is System.ServiceModel.FaultException)
  1444. {
  1445. sapResult.Zmsg = ex.Message;
  1446. }
  1447. else
  1448. {
  1449. sapResult.Zmsg = "DKMES-ERROR:" + Guid.NewGuid();
  1450. }
  1451. OutputLog.TraceLog(LogPriority.Error,
  1452. "HGSAPDK_ZPPFM008",
  1453. sapResult.Zmsg,
  1454. ex.ToString(),
  1455. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1456. }
  1457. return sapResult;
  1458. }
  1459. /// <summary>
  1460. /// 成品明细(条码接口)
  1461. /// </summary>
  1462. /// <param name="user"></param>
  1463. private static ZPPFM010Response HGSAPDK_ZPPFM010(Zppfm010 sapParameter, string yyyymmdd)
  1464. {
  1465. ZPPFM010Response sapResult = null;
  1466. try
  1467. {
  1468. using (ZPPFM010Client sapClient = new ZPPFM010Client("ZPPFM010_BIND"))
  1469. {
  1470. // 登录
  1471. UserNamePasswordClientCredential credential =
  1472. sapClient.ClientCredentials.UserName;
  1473. //credential.UserName = "hgsapdk";
  1474. //credential.Password = "Sapdk#240";
  1475. INIUtility ini = INIUtility.Instance(INIUtility.IniFile.Config);
  1476. credential.UserName = ini.ReadIniData("SAP_HEGII", "UserName");
  1477. credential.Password = ini.ReadIniData("SAP_HEGII", "Password");
  1478. // 参数
  1479. sapParameter.ZSUMSpecified = true;
  1480. sapParameter.TABLE_OUT = new ZSPP110[0];
  1481. // 接口
  1482. sapResult = sapClient.ZPPFM010(sapParameter);
  1483. // 结果
  1484. OutputLog.TraceLog(LogPriority.Information,
  1485. "HGSAPDK_ZPPFM010",
  1486. "yyyymmdd:" + yyyymmdd + " Zsum:" + sapParameter.ZSUM,
  1487. "Ztype:" + sapResult.ZTYPE + " Zmsg:" + sapResult.ZMSG,
  1488. LocalPath.LogExePath + "SAP_HEGII\\Info_");
  1489. }
  1490. }
  1491. catch (Exception ex)
  1492. {
  1493. sapResult = new ZPPFM010Response();
  1494. sapResult.ZTYPE = "E";
  1495. if (ex is System.ServiceModel.FaultException)
  1496. {
  1497. sapResult.ZMSG = ex.Message;
  1498. }
  1499. else
  1500. {
  1501. sapResult.ZMSG = "DKMES-ERROR:" + Guid.NewGuid();
  1502. }
  1503. OutputLog.TraceLog(LogPriority.Error,
  1504. "HGSAPDK_ZPPFM010",
  1505. sapResult.ZMSG,
  1506. ex.ToString(),
  1507. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1508. }
  1509. return sapResult;
  1510. }
  1511. #region 测试
  1512. /// <summary>
  1513. /// 同步成品条码(手动)-测试
  1514. /// </summary>
  1515. /// <param name="date"></param>
  1516. /// <param name="userid"></param>
  1517. /// <returns></returns>
  1518. public static ServiceResultEntity SetFP6001_1(DateTime date, int userid)
  1519. {
  1520. /*
  1521. Zppfm008 sapParameter1 = new Zppfm008();
  1522. sapParameter1.Zsum = 0;
  1523. sapParameter1.TableIn = new Zspp100[0];
  1524. Zppfm010 sapParameter2 = new Zppfm010();
  1525. sapParameter2.ZSUM = 30;
  1526. sapParameter2.TABLE_IN = new ZSPP110[30];
  1527. for (int i = 0; i < 10; i++)
  1528. {
  1529. ZSPP110 info110 = new ZSPP110();
  1530. // 时间戳
  1531. info110.ZSCNU = "20170101";
  1532. // 工厂
  1533. info110.WERKS = "5020";
  1534. // 生产条码
  1535. info110.ZSCTM = "20170101" + i.ToString().PadLeft(3, '0');
  1536. // 包装条码
  1537. info110.ZBZTM = "CT127PD2110B0150" + info110.ZSCTM + "1";
  1538. // 产品编码
  1539. info110.ZCPBM = "H0112L";
  1540. // 物料编号
  1541. info110.MATNR = "CT127PD2110B01";
  1542. // 包装整板标识
  1543. info110.ZBZBS = "1-1-1";
  1544. // 重新绑定标识
  1545. info110.ZCXBD = "X";
  1546. // 销售凭证
  1547. info110.KDAUF = "1200032630";
  1548. // 销售凭证项目
  1549. info110.KDPOS = "10";
  1550. sapParameter2.TABLE_IN[i] = info110;
  1551. }
  1552. for (int i = 10; i < 20; i++)
  1553. {
  1554. ZSPP110 info110 = new ZSPP110();
  1555. // 时间戳
  1556. info110.ZSCNU = "20170101";
  1557. // 工厂
  1558. info110.WERKS = "5020";
  1559. // 生产条码
  1560. info110.ZSCTM = "20170101" + i.ToString().PadLeft(3, '0');
  1561. // 包装条码
  1562. info110.ZBZTM = "CT127PD2110B0150" + info110.ZSCTM + "1";
  1563. // 产品编码
  1564. info110.ZCPBM = "H0112L";
  1565. // 物料编号
  1566. info110.MATNR = "CT127PD2110B01";
  1567. // 包装整板标识
  1568. info110.ZBZBS = "1-1-1";
  1569. // 重新绑定标识
  1570. info110.ZCXBD = "";
  1571. // 销售凭证
  1572. info110.KDAUF = "1200030151";
  1573. // 销售凭证项目
  1574. info110.KDPOS = "10";
  1575. sapParameter2.TABLE_IN[i] = info110;
  1576. }
  1577. for (int i = 20; i < 30; i++)
  1578. {
  1579. ZSPP110 info110 = new ZSPP110();
  1580. // 时间戳
  1581. info110.ZSCNU = "20170101";
  1582. // 工厂
  1583. info110.WERKS = "5020";
  1584. // 生产条码
  1585. info110.ZSCTM = "20170101" + i.ToString().PadLeft(3, '0');
  1586. // 包装条码
  1587. info110.ZBZTM = "CT967ES2210N0150" + info110.ZSCTM + "1";
  1588. // 产品编码
  1589. info110.ZCPBM = "H0112L";
  1590. // 物料编号
  1591. info110.MATNR = "CT967ES2210N01";
  1592. // 包装整板标识
  1593. info110.ZBZBS = "1-1-1";
  1594. // 重新绑定标识
  1595. info110.ZCXBD = "";
  1596. // 销售凭证
  1597. info110.KDAUF = "1200032678";
  1598. // 销售凭证项目
  1599. info110.KDPOS = "10";
  1600. sapParameter2.TABLE_IN[i] = info110;
  1601. }
  1602. */
  1603. //HGSAPDK_ZPPFM008(sapParameter1, date.ToString("yyyyMMdd"), "800");
  1604. //HGSAPDK_ZPPFM008_240(sapParameter1, date.ToString("yyyyMMdd"), "240");
  1605. //HGSAPDK_ZPPFM010(sapParameter2, date.ToString("yyyyMMdd"));
  1606. //ZPPFM010Response result1 = HGSAPDK_ZPPFM010_240(sapParameter2, date.ToString("yyyyMMdd"));
  1607. //foreach (ZSPP110 item in result1.TABLE_OUT)
  1608. //{
  1609. // if (item.ZTYPE != "S" && !string.IsNullOrWhiteSpace(item.ZMSG))
  1610. // {
  1611. // OutputLog.TraceLog(LogPriority.Information,
  1612. // "HGSAPDK_ZPPFM010_240", JsonHelper.ToJson(item),
  1613. // "Ztype:" + item.ZTYPE + " Zmsg:" + item.ZMSG,
  1614. // LocalPath.LogExePath + "SAP_HEGII\\Info_");
  1615. // }
  1616. //}
  1617. return new ServiceResultEntity();
  1618. IDBTransaction oracleConn = ClsDbFactory.CreateDBTransaction(DataBaseType.ORACLE, DataManager.ConnectionString);
  1619. ServiceResultEntity sre = new ServiceResultEntity();
  1620. date = new DateTime(2019, 1, 11);
  1621. DateTime dateend = date;
  1622. INIUtility ini = INIUtility.Instance(INIUtility.IniFile.Config);
  1623. string EndDate6001 = ini.ReadIniData("SAP_HEGII", "EndDate6001");
  1624. DateTime end = DateTime.Now.Date.AddDays(-1);
  1625. if (!string.IsNullOrWhiteSpace(EndDate6001))
  1626. {
  1627. end = DateTime.ParseExact(EndDate6001, "yyyy-MM-dd", null);
  1628. }
  1629. try
  1630. {
  1631. //string sqlString =
  1632. // "select fp.yyyymmdd\n" +
  1633. // " ,fp.workcode\n" +
  1634. // " ,fp.barcode\n" +
  1635. // " ,fp.outcode\n" +
  1636. // " ,fp.goodscode\n" +
  1637. // " ,fp.sapcode\n" +
  1638. // " ,fp.sapflbatchno\n" +
  1639. // " ,fp.sapfhundoflag\n" +
  1640. // " from tsap_hegii_finishedproduct fp where fp.logid = :datalogid";
  1641. string sqlString = "select to_char(fp.fhtime, 'yyyymmdd') yyyymmdd\n" +
  1642. " ,aa.workcode workcode\n" +
  1643. " ,fp.barcode\n" +
  1644. " ,case when length(gdd.onlycode) = 7 then gdd.materialcode || 'FF' || gdd.onlycode else nvl(gdd.outlabelcode\n" +
  1645. " ,(gdd.materialcode || aa.workcode || gdd.onlycode)) end outcode\n" +
  1646. " ,gdd.goodscode\n" +
  1647. " ,nvl(gdd.materialcode, nvl(g.materialcode, g.goodscode)) sapcode\n" +
  1648. " ,nvl(fp.finishedloadbatchno, fp.fhbatchno) sapflbatchno\n" +
  1649. " ,' ' sapfhundoflag\n" +
  1650. " from tp_pm_finishedproduct fp\n" +
  1651. " inner join tp_pm_groutingdailydetail gdd\n" +
  1652. " on gdd.barcode = fp.barcode\n" +
  1653. " inner join tp_mst_goods g\n" +
  1654. " on g.goodsid = gdd.goodsid\n" +
  1655. " inner join tp_mst_account aa\n" +
  1656. " on aa.accountid = gdd.accountid\n" +
  1657. " where fp.fhtime >= :v_datebegin\n" +
  1658. " and fp.fhtime < :v_dateend\n" +
  1659. " order by fp.fhtime,fp.barcode";
  1660. while (date <= end)
  1661. {
  1662. dateend = date.AddDays(1);
  1663. OracleParameter[] oracleParameter = new OracleParameter[]
  1664. {
  1665. new OracleParameter(":v_datebegin",OracleDbType.Date, date, ParameterDirection.Input),
  1666. new OracleParameter(":v_dateend",OracleDbType.Date, dateend, ParameterDirection.Input),
  1667. };
  1668. DataTable fpData = oracleConn.GetSqlResultToDt(sqlString, oracleParameter);
  1669. // 单次传输最大条数
  1670. int maxCount = 10000;
  1671. List<Zppfm010> sapParameterList = new List<Zppfm010>();
  1672. if (fpData != null && fpData.Rows.Count > 0)
  1673. {
  1674. int index = 0;
  1675. List<ZSPP110> tableInList = new List<ZSPP110>();
  1676. foreach (DataRow item in fpData.Rows)
  1677. {
  1678. if (index >= maxCount)
  1679. {
  1680. Zppfm010 sapItem = new Zppfm010();
  1681. sapItem.ZSUM = tableInList.Count;
  1682. sapItem.TABLE_IN = tableInList.ToArray();
  1683. sapParameterList.Add(sapItem);
  1684. index = 0;
  1685. tableInList.Clear();
  1686. }
  1687. ZSPP110 info110 = new ZSPP110();
  1688. // 时间戳
  1689. info110.ZSCNU = item["yyyymmdd"].ToString();
  1690. // 工厂
  1691. info110.WERKS = item["workcode"].ToString();
  1692. // 生产条码
  1693. info110.ZSCTM = item["barcode"].ToString();
  1694. // 包装条码
  1695. info110.ZBZTM = item["outcode"].ToString();
  1696. // 产品编码
  1697. info110.ZCPBM = item["goodscode"].ToString();
  1698. // 物料编号
  1699. info110.MATNR = item["sapcode"].ToString();
  1700. // 包装整板标识
  1701. info110.ZBZBS = item["sapflbatchno"].ToString();
  1702. // 重新绑定标识
  1703. info110.ZCXBD = item["sapfhundoflag"].ToString();
  1704. if (info110.WERKS == "5011" && info110.ZCPBM == "K047L")
  1705. {
  1706. continue;
  1707. }
  1708. tableInList.Add(info110);
  1709. index++;
  1710. }
  1711. Zppfm010 sapParameter = new Zppfm010();
  1712. sapParameter.ZSUM = tableInList.Count;
  1713. sapParameter.TABLE_IN = tableInList.ToArray();
  1714. sapParameterList.Add(sapParameter);
  1715. index = 0;
  1716. tableInList.Clear();
  1717. }
  1718. else
  1719. {
  1720. Zppfm010 sapParameter = new Zppfm010();
  1721. sapParameter.ZSUM = 0;
  1722. sapParameter.TABLE_IN = new ZSPP110[sapParameter.ZSUM];
  1723. sapParameterList.Add(sapParameter);
  1724. }
  1725. int indexP = 0;
  1726. int ccc = sapParameterList.Count;
  1727. foreach (Zppfm010 sapParameter in sapParameterList)
  1728. //for (int i = 80; i < ccc; i++)
  1729. {
  1730. //Zppfm010 sapParameter = sapParameterList[i];
  1731. ZPPFM010Response result = HGSAPDK_ZPPFM010(sapParameter, date.ToString("yyyyMMdd") + " " + (++indexP) + "/" + ccc);
  1732. //Zppfm010Response result = HGSAPDK_ZPPFM010(sapParameter, "2018 " + (i) + "/" + ccc);
  1733. sre.Message = result.ZMSG;
  1734. sre.Result = result.ZTYPE;
  1735. if (result.ZTYPE != "S")
  1736. {
  1737. foreach (ZSPP110 item in result.TABLE_OUT)
  1738. {
  1739. if (item.ZTYPE != "S" && !string.IsNullOrWhiteSpace(item.ZMSG))
  1740. {
  1741. OutputLog.TraceLog(LogPriority.Information,
  1742. "HGSAPDK_ZPPFM010", JsonHelper.ToJson(item),
  1743. "Ztype:" + item.ZTYPE + " Zmsg:" + item.ZMSG,
  1744. LocalPath.LogExePath + "SAP_HEGII\\Info_");
  1745. }
  1746. }
  1747. return sre;
  1748. }
  1749. }
  1750. date = dateend;
  1751. }
  1752. oracleConn.Commit();
  1753. //sre.Message = result.Zmsg;
  1754. //sre.Result = result.Ztype;
  1755. return sre;
  1756. }
  1757. catch (Exception ex)
  1758. {
  1759. throw ex;
  1760. }
  1761. finally
  1762. {
  1763. if (oracleConn != null &&
  1764. oracleConn.ConnState == ConnectionState.Open)
  1765. {
  1766. oracleConn.Disconnect();
  1767. }
  1768. }
  1769. }
  1770. /// <summary>
  1771. /// 产量接口-测试
  1772. /// </summary>
  1773. /// <param name="sapParameter"></param>
  1774. /// <returns></returns>
  1775. private static Zppfm008Response HGSAPDK_ZPPFM008_240(Zppfm008 sapParameter, string yyyymmdd, string datacode)
  1776. {
  1777. Zppfm008Response sapResult = null;
  1778. try
  1779. {
  1780. using (ZPPFM008Client sapClient = new ZPPFM008Client("ZPPFM008_BIND_240"))
  1781. {
  1782. // 登录
  1783. UserNamePasswordClientCredential credential =
  1784. sapClient.ClientCredentials.UserName;
  1785. credential.UserName = "hgsapdk";
  1786. credential.Password = "Sapdk#240";
  1787. // 参数
  1788. sapParameter.ZsumSpecified = true;
  1789. sapParameter.TableOut = new Zspp100[0];
  1790. // 接口
  1791. sapResult = sapClient.Zppfm008(sapParameter);
  1792. // 结果
  1793. OutputLog.TraceLog(LogPriority.Information,
  1794. "HGSAPDK_ZPPFM008_240",
  1795. "yyyymmdd:" + yyyymmdd + " datacode:" + datacode + " Zsum:" + sapParameter.Zsum,
  1796. "Ztype:" + sapResult.Ztype + " Zmsg:" + sapResult.Zmsg,
  1797. LocalPath.LogExePath + "SAP_HEGII\\Info_");
  1798. }
  1799. }
  1800. catch (Exception ex)
  1801. {
  1802. sapResult = new Zppfm008Response();
  1803. sapResult.Ztype = "E";
  1804. if (ex is System.ServiceModel.FaultException)
  1805. {
  1806. sapResult.Zmsg = ex.Message;
  1807. }
  1808. else
  1809. {
  1810. sapResult.Zmsg = "DKMES-ERROR:" + Guid.NewGuid();
  1811. }
  1812. OutputLog.TraceLog(LogPriority.Error,
  1813. "HGSAPDK_ZPPFM008_240",
  1814. sapResult.Zmsg,
  1815. ex.ToString(),
  1816. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1817. }
  1818. return sapResult;
  1819. }
  1820. /// <summary>
  1821. /// 成品明细(条码接口)-测试
  1822. /// </summary>
  1823. /// <param name="user"></param>
  1824. private static ZPPFM010Response HGSAPDK_ZPPFM010_240(Zppfm010 sapParameter, string yyyymmdd)
  1825. {
  1826. ZPPFM010Response sapResult = null;
  1827. try
  1828. {
  1829. using (ZPPFM010Client sapClient = new ZPPFM010Client("ZPPFM010_BIND_240"))
  1830. {
  1831. // 登录
  1832. UserNamePasswordClientCredential credential =
  1833. sapClient.ClientCredentials.UserName;
  1834. credential.UserName = "hgsapdk";
  1835. credential.Password = "Sapdk#240";
  1836. // 参数
  1837. sapParameter.ZSUMSpecified = true;
  1838. sapParameter.TABLE_OUT = new ZSPP110[0];
  1839. // 接口
  1840. sapResult = sapClient.ZPPFM010(sapParameter);
  1841. // 结果
  1842. OutputLog.TraceLog(LogPriority.Information,
  1843. "HGSAPDK_ZPPFM010_240",
  1844. "yyyymmdd:" + yyyymmdd + " Zsum:" + sapParameter.ZSUM,
  1845. "Ztype:" + sapResult.ZTYPE + " Zmsg:" + sapResult.ZMSG,
  1846. LocalPath.LogExePath + "SAP_HEGII\\Info_");
  1847. }
  1848. }
  1849. catch (Exception ex)
  1850. {
  1851. sapResult = new ZPPFM010Response();
  1852. sapResult.ZTYPE = "E";
  1853. if (ex is System.ServiceModel.FaultException)
  1854. {
  1855. sapResult.ZMSG = ex.Message;
  1856. }
  1857. else
  1858. {
  1859. sapResult.ZMSG = "DKMES-ERROR:" + Guid.NewGuid();
  1860. }
  1861. OutputLog.TraceLog(LogPriority.Error,
  1862. "HGSAPDK_ZPPFM010_240",
  1863. sapResult.ZMSG,
  1864. ex.ToString(),
  1865. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1866. }
  1867. return sapResult;
  1868. }
  1869. #endregion
  1870. /// <summary>
  1871. /// 同步SAP数据(自动)
  1872. /// </summary>
  1873. /// <param name="date"></param>
  1874. public static void AutoWorkDataToSAP(DateTime date, string funCode)
  1875. {
  1876. if (string.IsNullOrWhiteSpace(funCode))
  1877. {
  1878. //return;
  1879. funCode = "ALL";
  1880. }
  1881. funCode = "," + funCode + ",";
  1882. ServiceResultEntity sre = null;
  1883. // 10 模具
  1884. if (funCode == ",ALL," || funCode.Contains(",10,"))
  1885. {
  1886. try
  1887. {
  1888. sre = SetWorkData10_50(date, "10", 0);
  1889. if (sre.Status != Constant.ServiceResultStatus.Success ||
  1890. "S" != sre.Result + "")
  1891. {
  1892. OutputLog.TraceLog(LogPriority.Warning,
  1893. "AutoWorkDataToSAP",
  1894. "10 模具 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1895. JsonHelper.ToJson(sre),
  1896. LocalPath.LogExePath + "SAP_HEGII\\Warn_");
  1897. }
  1898. }
  1899. catch (Exception ex)
  1900. {
  1901. OutputLog.TraceLog(LogPriority.Error,
  1902. "AutoWorkDataToSAP",
  1903. "10 模具 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1904. ex.ToString(),
  1905. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1906. }
  1907. }
  1908. // 20 湿坯
  1909. if (funCode == ",ALL," || funCode.Contains(",20,"))
  1910. {
  1911. try
  1912. {
  1913. sre = SetWorkData10_50(date, "20", 0);
  1914. if (sre.Status != Constant.ServiceResultStatus.Success ||
  1915. "S" != sre.Result + "")
  1916. {
  1917. OutputLog.TraceLog(LogPriority.Warning,
  1918. "AutoWorkDataToSAP",
  1919. "20 湿坯 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1920. JsonHelper.ToJson(sre),
  1921. LocalPath.LogExePath + "SAP_HEGII\\Warn_");
  1922. }
  1923. }
  1924. catch (Exception ex)
  1925. {
  1926. OutputLog.TraceLog(LogPriority.Error,
  1927. "AutoWorkDataToSAP",
  1928. "20 湿坯 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1929. ex.ToString(),
  1930. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1931. }
  1932. }
  1933. // 30 精坯
  1934. if (funCode == ",ALL," || funCode.Contains(",30,"))
  1935. {
  1936. try
  1937. {
  1938. sre = SetWorkData10_50(date, "30", 0);
  1939. if (sre.Status != Constant.ServiceResultStatus.Success ||
  1940. "S" != sre.Result + "")
  1941. {
  1942. OutputLog.TraceLog(LogPriority.Warning,
  1943. "AutoWorkDataToSAP",
  1944. "30 精坯 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1945. JsonHelper.ToJson(sre),
  1946. LocalPath.LogExePath + "SAP_HEGII\\Warn_");
  1947. }
  1948. }
  1949. catch (Exception ex)
  1950. {
  1951. OutputLog.TraceLog(LogPriority.Error,
  1952. "AutoWorkDataToSAP",
  1953. "30 精坯 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1954. ex.ToString(),
  1955. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1956. }
  1957. }
  1958. // 40 釉坯
  1959. if (funCode == ",ALL," || funCode.Contains(",40,"))
  1960. {
  1961. try
  1962. {
  1963. sre = SetWorkData10_50(date, "40", 0);
  1964. if (sre.Status != Constant.ServiceResultStatus.Success ||
  1965. "S" != sre.Result + "")
  1966. {
  1967. OutputLog.TraceLog(LogPriority.Warning,
  1968. "AutoWorkDataToSAP",
  1969. "40 釉坯 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1970. JsonHelper.ToJson(sre),
  1971. LocalPath.LogExePath + "SAP_HEGII\\Warn_");
  1972. }
  1973. }
  1974. catch (Exception ex)
  1975. {
  1976. OutputLog.TraceLog(LogPriority.Error,
  1977. "AutoWorkDataToSAP",
  1978. "40 釉坯 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1979. ex.ToString(),
  1980. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  1981. }
  1982. }
  1983. // 50 烧成
  1984. if (funCode == ",ALL," || funCode.Contains(",50,"))
  1985. {
  1986. try
  1987. {
  1988. sre = SetWorkData10_50(date, "50", 0);
  1989. if (sre.Status != Constant.ServiceResultStatus.Success ||
  1990. "S" != sre.Result + "")
  1991. {
  1992. OutputLog.TraceLog(LogPriority.Warning,
  1993. "AutoWorkDataToSAP",
  1994. "50 烧成 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  1995. JsonHelper.ToJson(sre),
  1996. LocalPath.LogExePath + "SAP_HEGII\\Warn_");
  1997. }
  1998. }
  1999. catch (Exception ex)
  2000. {
  2001. OutputLog.TraceLog(LogPriority.Error,
  2002. "AutoWorkDataToSAP",
  2003. "50 烧成 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  2004. ex.ToString(),
  2005. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  2006. }
  2007. }
  2008. // 6001 成品明细
  2009. if (funCode == ",ALL," || funCode.Contains(",6001,"))
  2010. {
  2011. try
  2012. {
  2013. sre = SetFP6001(date, 0);
  2014. if (sre.Status != Constant.ServiceResultStatus.Success ||
  2015. "S" != sre.Result + "")
  2016. {
  2017. OutputLog.TraceLog(LogPriority.Warning,
  2018. "AutoWorkDataToSAP",
  2019. "6001 成品明细 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  2020. JsonHelper.ToJson(sre),
  2021. LocalPath.LogExePath + "SAP_HEGII\\Warn_");
  2022. }
  2023. }
  2024. catch (Exception ex)
  2025. {
  2026. OutputLog.TraceLog(LogPriority.Error,
  2027. "AutoWorkDataToSAP",
  2028. "6001 成品明细 " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  2029. ex.ToString(),
  2030. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  2031. }
  2032. }
  2033. // 6001 成品明细(小时)-20分钟
  2034. if (funCode == ",6002,")
  2035. {
  2036. try
  2037. {
  2038. sre = SetFP6002(date, 0);
  2039. if (sre.Status != Constant.ServiceResultStatus.Success ||
  2040. "S" != sre.Result + "")
  2041. {
  2042. OutputLog.TraceLog(LogPriority.Warning,
  2043. "AutoWorkDataToSAP",
  2044. "6002 成品明细(小时) " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  2045. JsonHelper.ToJson(sre),
  2046. LocalPath.LogExePath + "SAP_HEGII\\Warn_");
  2047. }
  2048. }
  2049. catch (Exception ex)
  2050. {
  2051. OutputLog.TraceLog(LogPriority.Error,
  2052. "AutoWorkDataToSAP",
  2053. "6002 成品明细(小时) " + date.ToString("yyyy-MM-dd HH:mm:ss"),
  2054. ex.ToString(),
  2055. LocalPath.LogExePath + "SAP_HEGII\\Error_");
  2056. }
  2057. }
  2058. }
  2059. /*
  2060. public static ServiceResultEntity AutoWorkData(DateTime date)
  2061. {
  2062. IDBTransaction oracleConn = ClsDbFactory.CreateDBTransaction(DataBaseType.ORACLE, DataManager.ConnectionString);
  2063. ServiceResultEntity sre = new ServiceResultEntity();
  2064. try
  2065. {
  2066. string yyyymmdd = date.ToString("yyyyMMdd");
  2067. string sqlString =
  2068. "select t.logid, t.datacode\n" +
  2069. " from tsap_hegii_datalog t\n" +
  2070. " where t.logtype = '1'\n" +
  2071. " and t.datastuts = 'S'\n" +
  2072. " and t.yyyymmdd = :yyyymmdd\n" +
  2073. " and t.createuserid is null for update";
  2074. OracleParameter[] oracleParameter = new OracleParameter[]
  2075. {
  2076. new OracleParameter(":yyyymmdd",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  2077. };
  2078. DataTable datalog = oracleConn.GetSqlResultToDt(sqlString, oracleParameter);
  2079. if (datalog == null || datalog.Rows.Count == 0)
  2080. {
  2081. sre.Result = 0;
  2082. return sre;
  2083. }
  2084. sqlString = "select workcode from tp_mst_account where rownum = 1";
  2085. string workcode = oracleConn.GetSqlResultToStr(sqlString);
  2086. Zppfm008 sapParameter = new Zppfm008();
  2087. List<Zspp100> info = new List<Zspp100>();
  2088. foreach (DataRow item in datalog.Rows)
  2089. {
  2090. string datacode = item["datacode"].ToString();
  2091. logid = oracleConn.GetSqlResultToStr("select SEQ_SAP_HEGII_DataLog_ID.Nextval from dual");
  2092. string msg = null;
  2093. //string msg = "data:" + datebegin.ToString("yyyyMMdd-HHm") + "~" +
  2094. // dateend.ToString("yyyyMMdd-HHmm");
  2095. sqlString = "insert into tsap_hegii_datalog\n" +
  2096. " (LogID\n" +
  2097. " ,LogType\n" +
  2098. " ,BeginTime\n" +
  2099. " ,YYYYMMDD\n" +
  2100. " ,WorkCode\n" +
  2101. " ,DataCode\n" +
  2102. " ,DataStuts\n" +
  2103. " ,DataMSG\n" +
  2104. " ,CreateUserID\n" +
  2105. " ,DataLogID)\n" +
  2106. "values\n" +
  2107. " (:LogID\n" +
  2108. " ,'2'\n" +
  2109. " ,sysdate\n" +
  2110. " ,:YYYYMMDD\n" +
  2111. " ,:WorkCode\n" +
  2112. " ,:DataCode\n" +
  2113. " ,:DataStuts\n" +
  2114. " ,:DataMSG\n" +
  2115. " ,:CreateUserID\n" +
  2116. " ,:DataLogID)";
  2117. int r = 0;
  2118. if (string.IsNullOrEmpty(datalogid))
  2119. {
  2120. oracleParameter = new OracleParameter[]
  2121. {
  2122. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  2123. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  2124. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  2125. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  2126. new OracleParameter(":DataCode",OracleDbType.Varchar2, datacode, ParameterDirection.Input),
  2127. new OracleParameter(":DataMSG",OracleDbType.Varchar2, msg + " DKMES-ERROR:NO DATA", ParameterDirection.Input),
  2128. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "E", ParameterDirection.Input),
  2129. new OracleParameter(":DataLogID",OracleDbType.Int32, 0, ParameterDirection.Input),
  2130. };
  2131. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  2132. sre.Status = Constant.ServiceResultStatus.Other;
  2133. sre.Message = "没有同步数据";
  2134. sre.Result = "E";
  2135. return sre;
  2136. }
  2137. oracleParameter = new OracleParameter[]
  2138. {
  2139. new OracleParameter(":LogID",OracleDbType.Int32, logid, ParameterDirection.Input),
  2140. new OracleParameter(":CreateUserID",OracleDbType.Int32, userid, ParameterDirection.Input),
  2141. new OracleParameter(":YYYYMMDD",OracleDbType.Varchar2, yyyymmdd, ParameterDirection.Input),
  2142. new OracleParameter(":WorkCode",OracleDbType.Varchar2, workcode, ParameterDirection.Input),
  2143. new OracleParameter(":DataCode",OracleDbType.Varchar2, datacode, ParameterDirection.Input),
  2144. new OracleParameter(":DataMSG",OracleDbType.Varchar2, msg, ParameterDirection.Input),
  2145. new OracleParameter(":DataStuts",OracleDbType.Varchar2, "S", ParameterDirection.Input),
  2146. new OracleParameter(":DataLogID",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  2147. };
  2148. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  2149. sqlString =
  2150. "select fp.yyyymmdd\n" +
  2151. " ,fp.workcode\n" +
  2152. " ,fp.DataCode\n" +
  2153. " ,fp.GoodsCode\n" +
  2154. " ,fp.SAPCode\n" +
  2155. " ,fp.UserCode\n" +
  2156. " ,fp.ORDERCODE\n" +
  2157. " ,fp.ORDERITEM\n" +
  2158. " ,fp.OutputNum\n" +
  2159. " ,fp.ScrapNum\n" +
  2160. " ,fp.CleanupNum\n" +
  2161. " ,fp.RecoveryNum\n" +
  2162. " ,fp.RepairNum\n" +
  2163. " from tsap_hegii_workdata wd where wd.logid = :datalogid";
  2164. oracleParameter = new OracleParameter[]
  2165. {
  2166. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  2167. };
  2168. DataTable workData = oracleConn.GetSqlResultToDt(sqlString, oracleParameter);
  2169. if (workData != null && workData.Rows.Count > 0)
  2170. {
  2171. sapParameter.Zsum = workData.Rows.Count;
  2172. sapParameter.TableIn = new Zspp100[sapParameter.Zsum];
  2173. int index = 0;
  2174. foreach (DataRow item in workData.Rows)
  2175. {
  2176. Zspp100 info100 = new Zspp100();
  2177. // 工厂
  2178. info100.Werks = workcode;
  2179. // 型号
  2180. info100.Groes = item["GoodsCode"].ToString();
  2181. // 物料编号
  2182. info100.Matnr = item["SAPCode"].ToString();
  2183. // 生产工号
  2184. info100.Zghnu = item["UserCode"].ToString();
  2185. // 数据节点
  2186. info100.Zjdnu = item["DataCode"].ToString();
  2187. // 时间戳
  2188. info100.Zscnu = yyyymmdd;
  2189. // 销售凭证
  2190. info100.Vbeln = item["ORDERCODE"].ToString();
  2191. // 销售凭证项目
  2192. info100.Posnr = item["ORDERITEM"].ToString();
  2193. // 产量
  2194. info100.Zclng = item["OutputNum"].ToString();
  2195. // 损坯
  2196. info100.Zspng = item["SCRAPNUM"].ToString();
  2197. // 清除
  2198. info100.Zqcng = item["CLEANUPNUM"].ToString();
  2199. // 回收
  2200. info100.Zhsng = item["RECOVERYNUM"].ToString();
  2201. // 干补
  2202. info100.Zgbng = item["REPAIRNUM"].ToString();
  2203. sapParameter.TableIn[index++] = info100;
  2204. }
  2205. }
  2206. else
  2207. {
  2208. sapParameter.Zsum = 0;
  2209. sapParameter.TableIn = new Zspp100[sapParameter.Zsum];
  2210. }
  2211. Zppfm008Response result = HGSAPDK_ZPPFM008(sapParameter, yyyymmdd, datacode);
  2212. //if (result.Ztype == "E")
  2213. //{
  2214. // sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = 'E', DataMSG = DataMSG||:msg where logid = :logid";
  2215. // oracleParameter = new OracleParameter[]
  2216. // {
  2217. // new OracleParameter(":msg",OracleDbType.Varchar2, result.Zmsg, ParameterDirection.Input),
  2218. // new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  2219. // };
  2220. // r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  2221. //}
  2222. //else
  2223. {
  2224. sqlString = "update tsap_hegii_datalog t set t.EndTime = sysdate, DataStuts = :DataStuts, DataMSG = DataMSG||:msg where logid = :logid";
  2225. oracleParameter = new OracleParameter[]
  2226. {
  2227. new OracleParameter(":DataStuts",OracleDbType.Varchar2, result.Ztype, ParameterDirection.Input),
  2228. new OracleParameter(":msg",OracleDbType.Varchar2, result.Zmsg, ParameterDirection.Input),
  2229. new OracleParameter(":logid",OracleDbType.Int32, logid, ParameterDirection.Input),
  2230. };
  2231. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  2232. if (result.Ztype == "S")
  2233. {
  2234. sqlString = "update tsap_hegii_datalog t set t.createtime = :userid where logid = :datalogid";
  2235. oracleParameter = new OracleParameter[]
  2236. {
  2237. new OracleParameter(":datalogid",OracleDbType.Int32, datalogid, ParameterDirection.Input),
  2238. new OracleParameter(":userid",OracleDbType.Int32, userid, ParameterDirection.Input),
  2239. };
  2240. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  2241. }
  2242. if (result.TableOut != null && result.TableOut.Length > 0)
  2243. {
  2244. sqlString = "update TSAP_HEGII_WorkData t set t.ZTime =sysdate, ZTYPE = :ZTYPE, ZMSG = :ZMSG where logid = " + logid +
  2245. " \n and YYYYMMDD='" + yyyymmdd + "' and WorkCode='" + workcode +
  2246. "' and DataCode=:DataCode and GoodsCode=:GoodsCode and SAPCode=:SAPCode and UserCode=:UserCode \n" +
  2247. "and OrderCode=:OrderCode and OrderItem=:OrderItem";
  2248. foreach (Zspp100 item in result.TableOut)
  2249. {
  2250. oracleParameter = new OracleParameter[]
  2251. {
  2252. new OracleParameter(":ZTYPE",OracleDbType.Varchar2, item.Ztype, ParameterDirection.Input),
  2253. new OracleParameter(":ZMSG",OracleDbType.Varchar2, item.Zmsg, ParameterDirection.Input),
  2254. new OracleParameter(":DataCode",OracleDbType.Varchar2, datacode, ParameterDirection.Input),
  2255. new OracleParameter(":GoodsCode",OracleDbType.Varchar2, item.Groes, ParameterDirection.Input),
  2256. new OracleParameter(":SAPCode",OracleDbType.Varchar2, item.Matnr, ParameterDirection.Input),
  2257. new OracleParameter(":UserCode",OracleDbType.Varchar2, item.Zghnu, ParameterDirection.Input),
  2258. new OracleParameter(":OrderCode",OracleDbType.Varchar2, (string.IsNullOrEmpty(item.Vbeln)? " " : item.Vbeln), ParameterDirection.Input),
  2259. new OracleParameter(":OrderItem",OracleDbType.Varchar2, (string.IsNullOrEmpty(item.Posnr)? " " : item.Posnr), ParameterDirection.Input),
  2260. };
  2261. r = oracleConn.ExecuteNonQuery(sqlString, oracleParameter);
  2262. }
  2263. }
  2264. }
  2265. oracleConn.Commit();
  2266. sre.Message = result.Zmsg;
  2267. sre.Result = result.Ztype;
  2268. return sre;
  2269. }
  2270. catch (Exception ex)
  2271. {
  2272. throw ex;
  2273. }
  2274. }
  2275. */
  2276. }
  2277. }