public static void AddRowM4(DataSet dserrors, string AuxID, string Tank, DateTime proddate, string msg, string ticket, string pgmname, string logpath) { // build row to added to table "ErrRow" for errors in pder4pf for DOGG Logger oLogger = new Logger(); try { DataRow newErrRow = dserrors.Tables["ErrRow"].NewRow(); newErrRow["PGMNM"] = pgmname; newErrRow["MESSAG"] = msg; newErrRow["DATMSG"] = DateIBM.MStoIBMDate(proddate); newErrRow["PRLEAS"] = AuxID; newErrRow["PRTKYY"] = DateIBM.MStoIBMDateYY(proddate); newErrRow["PRTKMM"] = DateIBM.MStoIBMDateMM(proddate);; newErrRow["PRTKDD"] = DateIBM.MStoIBMDateDD(proddate); newErrRow["PRTANK"] = Tank; newErrRow["DIFDAY"] = 0; newErrRow["YMDCHG"] = DateIBM.MStoIBMDate(proddate); newErrRow["BOPD"] = 0.0M; newErrRow["MCFD"] = 0.0M; newErrRow["RUNTKT"] = ticket; dserrors.Tables["ErrRow"].Rows.Add(newErrRow); } catch (Exception Ex) { oLogger.logErrorToLog("ERROR AddRowM4 add:" + Ex.Message, pgmname, logpath); throw (Ex); } }
public static void write(DataSet ds, Program.Member usr, DataSet dserrors, OdbcConnection connIS) { Logger oLogger = new Logger(); Console.WriteLine("Writting Production to Iseries PDDPDPF"); SqlDataAdapter adapterTest = new SqlDataAdapter(); String cmdinsertProduction = "insert into " + usr.idatalib + ".PDDPDPF " + //DOGG PRODUCTION FILE " (" + // "PDLEAS," + "PDRPYY," + "PDRPMM," + "PDRPDD," + "PDOBBL, " + //5 "PDGMCF, " + //6 "PDWATR," + "TTLTK," + //8 "OILMTR," + "PDTUBP," + "PDCASP," + "PDCHOK," + "PDSPM," + "PDRMKS," + "BATT," + "COM, " + "SYS" + //17 " )" + " values(" + //must insert in order of fields "?," + "?," + "?," + "?," + "?," + "?, " + "?," + "?," + "?," + "?," + "?," + "?," + "?," + "?," + "?," + "?," + "?" + //17 ")"; try { OdbcCommand dltIprod = new OdbcCommand("delete from " + usr.outtable, connIS); dltIprod.ExecuteNonQuery(); int WriteCount = 0; OdbcCommand writeProduction = new OdbcCommand(cmdinsertProduction, connIS); foreach (DataTable DOGGProduction in ds.Tables) // only one table, but as an example for reading all tables in ds { //must insert in order of fields foreach (DataRow ProdRow in DOGGProduction.Rows) { //format each column of DOGG for Iseries try { writeProduction.Parameters.Clear(); writeProduction.Parameters.AddWithValue("@PDLEAS", ProdRow.Field <string>("LeaseNumber")); int runyy = DateIBM.MStoIBMDateYY(Convert.ToDateTime((ProdRow["ProductionDate"].ToString()))); int runmm = DateIBM.MStoIBMDateMM(Convert.ToDateTime((ProdRow["ProductionDate"].ToString()))); int rundd = DateIBM.MStoIBMDateDD(Convert.ToDateTime((ProdRow["ProductionDate"].ToString()))); int PRRPDT = runmm * 10000 + rundd * 100 + runyy; writeProduction.Parameters.AddWithValue("@PDRPYY", runyy); writeProduction.Parameters.AddWithValue("@PDRPMM", runmm); writeProduction.Parameters.AddWithValue("@PDRPDD", rundd); writeProduction.Parameters.AddWithValue("@PDOBBL", Convert.ToDecimal((ProdRow["OilProduction"].ToString()))); // writeProduction.Parameters.AddWithValue("@PDGMCF", Convert.ToDecimal((ProdRow["GasProduction"].ToString()))); //gas writeProduction.Parameters.AddWithValue("@PDWATR", Convert.ToDecimal((ProdRow["WaterProduction"].ToString()))); // writeProduction.Parameters.AddWithValue("@TTLTK", Convert.ToDecimal((ProdRow["OilSales"].ToString()))); //sales writeProduction.Parameters.AddWithValue("@OILMTR", Convert.ToDecimal(0.0)); //18 writeProduction.Parameters.AddWithValue("@PDTUBP", Convert.ToDecimal((ProdRow["TubingPressure"].ToString()))); writeProduction.Parameters.AddWithValue("@PDCASP", Convert.ToDecimal((ProdRow["CasingPressure"].ToString()))); //20 double ChokeDouble = 0.0d; bool result = Double.TryParse(ProdRow["ChokeSize"].ToString(), out ChokeDouble); decimal ChokeDecimal = 0.0m; if (result) { ChokeDecimal = Convert.ToDecimal(ChokeDouble); } writeProduction.Parameters.AddWithValue("@PDCHOK", ChokeDecimal); //writeProduction.Parameters.AddWithValue("@PDSPM", 0.0m); decimal strokesper = Convert.ToDecimal((ProdRow["StrokesPerMinute"].ToString())); strokesper = Math.Round(strokesper, 1, MidpointRounding.AwayFromZero); // Rounds "up" writeProduction.Parameters.AddWithValue("@PDSPM", strokesper); if (ProdRow["Remarks"].ToString().Length < 1 || ProdRow["Remarks"].ToString().Length > 50) { writeProduction.Parameters.AddWithValue("@PDRMKS", " "); //1 } else { writeProduction.Parameters.AddWithValue("@PDRMKS", ProdRow["Remarks"].ToString()); // } writeProduction.Parameters.AddWithValue("@BATT", ProdRow.Field <string>("LeaseNumber")); writeProduction.Parameters.AddWithValue("@COM", " "); //16 writeProduction.Parameters.AddWithValue("@SYS", "DOGG"); writeProduction.ExecuteNonQuery(); WriteCount += 1; } catch (Exception DBserror) { oLogger.logErrorToLog(DBserror.Message, usr.pgmname, usr.logpath); // Lease tank date ticket IseriesErrors.AddRowM4(dserrors, ProdRow["LeaseNumber"].ToString(), "No Tank", (Convert.ToDateTime((ProdRow["ProductionDate"].ToString()))), DBserror.ToString(), "Insert Err:", usr.pgmname, usr.logpath); } } } writeProduction.Dispose(); oLogger.logErrorToLog("NAR Wrote Iprod:" + WriteCount.ToString(), usr.pgmname, usr.logpath); } catch (Exception DBserror) { oLogger.logErrorToLog(DBserror.Message, usr.pgmname, usr.logpath); } }