private long ReturnWeight(string Weight) { object obj2 = null; for (long i = 1L; i <= Strings.Len(Weight); i += 1L) { obj2 = ObjectType.AddObj(obj2, Strings.Asc(Strings.Mid(Weight, (int)i, 1))); } return(LongType.FromObject(obj2)); }
public void setup_generate_random1(object setup_low_rand, object setup_high_rand) { setup_rand_finished = false; while (!setup_rand_finished) { VBMath.Randomize(); setup_random1 = IntegerType.FromObject(Conversion.Int(ObjectType.AddObj(ObjectType.MulObj(ObjectType.AddObj(setup_high_rand, 1), VBMath.Rnd()), 0))); if (!BooleanType.FromObject(ObjectType.BitAndObj(ObjectType.ObjTst(setup_random1, setup_low_rand, false) >= 0, ObjectType.ObjTst(setup_random1, setup_high_rand, false) <= 0))) { continue; } setup_rand_finished = true; } }
private void ActTmp() { DataRow row; long num; SqlDataReader reader; DateTime time2; DateTime time3; string str4; DataSet dataSet = new DataSet(); DataSet set2 = new DataSet(); this.cmbSalir.Enabled = false; this.cmbVolver.Enabled = false; SqlConnection connection = new SqlConnection("data source=" + Variables.gServer + ";user id=scala;password=scala;initial catalog=scalaDB;persist security info=False;packet size=4096"); connection.Open(); SqlConnection connection2 = new SqlConnection("data source=" + Variables.gServer + ";user id=teleprinter;password=tele;initial catalog=Colector;persist security info=False;packet size=4096"); connection2.Open(); int num4 = new SqlCommand("delete " + Variables.gTermi + "TmpCalendario", connection2).ExecuteNonQuery(); SqlCommand command4 = new SqlCommand("delete " + Variables.gTermi + "TmpCalendarioStkComp", connection2); num4 = command4.ExecuteNonQuery(); string str = "SELECT OR01001,OR01004,OR01016,OR01050,OR03002,OR03005,OR03006,OR03007,OR03011,OR03012,OR03051,OR04002,OR04003,OR04004,OR04005,OR04008 FROM dbo.OR010100 inner join OR030100 on OR010100.OR01001=OR030100.OR03001 inner join OR040100 on OR010100.OR01001=OR040100.OR04001 where OR010100.OR01002=6 and OR010100.OR01091=0 and OR03011-OR03012<>0 and OR03034=1 and ("; if (Variables.gIntr01) { str = str + "OR01004='INTR01' "; if (Variables.gIntr02) { str = str + "or OR01004='INTR02' "; } if (Variables.gIntr03) { str = str + "or OR01004='INTR03' "; } if (Variables.gIntr04) { str = str + "or OR01004='INTR04' "; } } else if (Variables.gIntr02) { str = str + "OR01004='INTR02' "; if (Variables.gIntr03) { str = str + "or OR01004='INTR03' "; } if (Variables.gIntr04) { str = str + "or OR01004='INTR04' "; } } else if (Variables.gIntr03) { str = str + "OR01004='INTR03' "; if (Variables.gIntr04) { str = str + "or OR01004='INTR04' "; } } else if (Variables.gIntr04) { str = str + "OR01004='INTR04' "; } SqlCommand command3 = new SqlCommand(str + ") order by OR010100.OR01016", connection); command3.CommandTimeout = 900; dataSet.Clear(); SqlDataAdapter adapter = new SqlDataAdapter(); adapter.SelectCommand = command3; adapter.Fill(dataSet, "OR010100"); long num9 = dataSet.Tables["OR010100"].Rows.Count - 1; for (num = 0L; num <= num9; num += 1L) { row = dataSet.Tables["OR010100"].Rows[(int)num]; str4 = "insert into " + Variables.gTermi + "TmpCalendario (FechaEnt,Cliente,ListaRec,NroOA,NroLinea,Codigo,Descripcion,Almacen,Cantidad,AsignadoA,Observaciones,ReqEsp,Horas,SinStock,Obs) values ("; CalcDates dates = new CalcDatesClass(); short daysToDue = 0; DataRow row3 = row; string str9 = "OR01016"; DateTime currentDate = DateType.FromObject(row3[str9]); string dayCountType = "H"; string company = "01"; dates.WeekDate(ref daysToDue, ref currentDate, ref dayCountType, ref company); row3[str9] = currentDate; str4 = StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj((str4 + "'" + Strings.Format(dates.MidDate, "MM/dd/yyyy")) + "','", row["OR01004"]), "','"), row["OR03051"]), "','"), row["OR01001"]), "','"), row["OR03002"]), "','"), row["OR03005"]), "','"), row["OR03006"]), " "), row["OR03007"]), "','"), row["OR01050"]), "',"), ObjectType.SubObj(row["OR03011"], row["OR03012"])), ",")); if (StringType.StrCmp(Strings.Trim(StringType.FromObject(row["OR04002"])), "0", false) == 0) { str4 = str4 + "'',"; } else { str4 = StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(str4 + "'", row["OR04002"]), "',")); } if (StringType.StrCmp(Strings.Trim(StringType.FromObject(row["OR04003"])), "0", false) == 0) { if (StringType.StrCmp(Strings.Trim(StringType.FromObject(row["OR04004"])), "0", false) == 0) { str4 = str4 + "'',"; } else { str4 = StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(str4 + "'", row["OR04004"]), "',")); } } else if (StringType.StrCmp(Strings.Trim(StringType.FromObject(row["OR04004"])), "0", false) == 0) { str4 = StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(str4 + "'", row["OR04003"]), "',")); } else { str4 = StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(str4 + "'", row["OR04003"]), " "), row["OR04004"]), "',")); } if (StringType.StrCmp(Strings.Trim(StringType.FromObject(row["OR04005"])), "0", false) == 0) { str4 = str4 + "'',"; } else { str4 = StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(str4 + "'", row["OR04005"]), "',")); } command4 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(str4 + "'", row["OR04008"]), "',0,0)")), connection2); try { num4 = command4.ExecuteNonQuery(); } catch (Exception exception1) { ProjectData.SetProjectError(exception1); Exception exception = exception1; Interaction.MsgBox("Se ha producido el siguiente error:" + exception.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbSalir.Enabled = true; this.cmbVolver.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } command3 = new SqlCommand("SELECT distinct NroOA from " + Variables.gTermi + "TmpCalendario", connection2); command3.CommandTimeout = 900; dataSet.Clear(); adapter = new SqlDataAdapter(); adapter.SelectCommand = command3; adapter.Fill(dataSet, Variables.gTermi + "TmpCalendario"); long num7 = dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows.Count - 1; for (num = 0L; num <= num7; num += 1L) { row = dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows[(int)num]; SqlCommand command = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("SELECT * from GesEnsObs where NroOE='", row["NroOA"]), "'")), connection2); reader = command.ExecuteReader(); if (reader.Read()) { reader.Close(); command4 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("update " + Variables.gTermi + "TmpCalendario set Obs=1 where NroOA='", row["NroOA"]), "'")), connection2); try { num4 = command4.ExecuteNonQuery(); } catch (Exception exception8) { ProjectData.SetProjectError(exception8); Exception exception2 = exception8; Interaction.MsgBox("Se ha producido el siguiente error:" + exception2.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbSalir.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } else { reader.Close(); } } command3 = new SqlCommand("SELECT * from " + Variables.gTermi + "TmpCalendario order by FechaEnt", connection2); command3.CommandTimeout = 900; dataSet.Clear(); adapter = new SqlDataAdapter(); adapter.SelectCommand = command3; adapter.Fill(dataSet, Variables.gTermi + "TmpCalendario"); if (dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows.Count != 0) { row = dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows[0]; if (DateAndTime.Weekday(DateType.FromObject(row["FechaEnt"]), FirstDayOfWeek.Sunday) > 1) { time3 = DateAndTime.DateAdd(DateInterval.Day, (double)((DateAndTime.Weekday(DateType.FromObject(row["FechaEnt"]), FirstDayOfWeek.Sunday) - 1) * -1), DateType.FromObject(row["FechaEnt"])); } else { time3 = DateType.FromObject(row["FechaEnt"]); } } command3 = new SqlCommand("SELECT * from " + Variables.gTermi + "TmpCalendario order by FechaEnt desc", connection2); command3.CommandTimeout = 900; dataSet.Clear(); adapter = new SqlDataAdapter(); adapter.SelectCommand = command3; adapter.Fill(dataSet, Variables.gTermi + "TmpCalendario"); if (dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows.Count != 0) { row = dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows[0]; if (DateAndTime.Weekday(DateType.FromObject(row["FechaEnt"]), FirstDayOfWeek.Sunday) < 7) { time2 = DateAndTime.DateAdd(DateInterval.Day, (double)(7 - DateAndTime.Weekday(DateType.FromObject(row["FechaEnt"]), FirstDayOfWeek.Sunday)), DateType.FromObject(row["FechaEnt"])); } else { time2 = DateType.FromObject(row["FechaEnt"]); } } while (DateTime.Compare(time3, time2) <= 0) { SqlCommand command2 = new SqlCommand("SELECT * FROM " + Variables.gTermi + "TmpCalendario where FechaEnt='" + Strings.Format(time3, "MM/dd/yyyy") + "'", connection2); reader = command2.ExecuteReader(); if (reader.Read()) { reader.Close(); } else { reader.Close(); reader = new SqlCommand("SELECT * FROM dbo.SYHO0100 where SYHO001='" + Strings.Format(time3, "MM/dd/yyyy") + "'", connection).ExecuteReader(); if (reader.Read()) { command4 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj((("insert into " + Variables.gTermi + "TmpCalendario (FechaEnt,Observaciones) values (") + "'" + Strings.Format(time3, "MM/dd/yyyy") + "',") + "'", reader["SYHO002"]), "')")), connection2); reader.Close(); } else { command4 = new SqlCommand(("insert into " + Variables.gTermi + "TmpCalendario (FechaEnt) values (") + "'" + Strings.Format(time3, "MM/dd/yyyy") + "')", connection2); reader.Close(); } try { num4 = command4.ExecuteNonQuery(); } catch (Exception exception9) { ProjectData.SetProjectError(exception9); Exception exception3 = exception9; Interaction.MsgBox("Se ha producido el siguiente error:" + exception3.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbSalir.Enabled = true; this.cmbVolver.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } time3 = DateAndTime.DateAdd(DateInterval.Day, 1.0, time3); } command3 = new SqlCommand("SELECT * from " + Variables.gTermi + "TmpCalendario where not Codigo is null order by NroOA,NroLinea", connection2); command3.CommandTimeout = 900; dataSet.Clear(); adapter = new SqlDataAdapter(); adapter.SelectCommand = command3; adapter.Fill(dataSet, Variables.gTermi + "TmpCalendario"); long num6 = dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows.Count - 1; for (num = 0L; num <= num6; num += 1L) { row = dataSet.Tables[Variables.gTermi + "TmpCalendario"].Rows[(int)num]; command3 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("SELECT OR03005,OR03006,OR03007,OR03011,OR03012,SC03003,SC03004,SC03005 FROM dbo.OR030100 inner join SC030100 on OR030100.OR03005=SC030100.SC03001 where OR03001='", row["NroOA"]), "' and OR03002='"), row["NroLinea"]), "' and OR03003<>'000' and SC03002='"), row["Almacen"]), "'")), connection); command3.CommandTimeout = 900; set2.Clear(); SqlDataAdapter adapter2 = new SqlDataAdapter(); adapter2.SelectCommand = command3; adapter2.Fill(set2, "OR030100"); bool flag = false; long num5 = set2.Tables["OR030100"].Rows.Count - 1; for (long i = 0L; i <= num5; i += 1L) { DataRow row2 = set2.Tables["OR030100"].Rows[(int)i]; if (BooleanType.FromObject(ObjectType.BitOrObj(ObjectType.ObjTst(row2["SC03003"], 0, false) <= 0, ObjectType.ObjTst(ObjectType.AddObj(row2["SC03004"], row2["SC03005"]), row2["SC03003"], false) > 0))) { flag = true; } if (ObjectType.ObjTst(ObjectType.AddObj(row2["SC03004"], row2["SC03005"]), row2["SC03003"], false) > 0) { reader = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("SELECT PC03043,PC03044,PC03016 FROM dbo.PC030100 where PC03005='", row2["OR03005"]), "' and PC03043<PC03044 and PC03029=1 ")) + "and PC03035='", row["Almacen"]), "' order by PC03016")), connection).ExecuteReader(); if (reader.Read()) { str4 = StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("insert into " + Variables.gTermi + "TmpCalendarioStkComp (NroOA,NroLinea,CodComp,DescComp,Cantidad,StkFisico,StkComprometido,FechaOC,CantOC) values ('", row["NroOA"]), "','"), row["NroLinea"]), "','"), row2["OR03005"]), "','"), row2["OR03006"]), " "), row2["OR03007"]), "',"), ObjectType.SubObj(row2["OR03011"], row2["OR03012"])), ","), row2["SC03003"]), ","), ObjectType.AddObj(row2["SC03004"], row2["SC03005"])), ",'"), Strings.Format(RuntimeHelpers.GetObjectValue(reader["PC03016"]), "MM/dd/yyyy")), "',"), ObjectType.SubObj(reader["PC03044"], reader["PC03043"])), ")")); reader.Close(); command4 = new SqlCommand(str4, connection2); try { num4 = command4.ExecuteNonQuery(); } catch (Exception exception10) { ProjectData.SetProjectError(exception10); Exception exception4 = exception10; Interaction.MsgBox("Se ha producido el siguiente error:" + exception4.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbSalir.Enabled = true; this.cmbVolver.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } else { reader.Close(); command4 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("insert into " + Variables.gTermi + "TmpCalendarioStkComp (NroOA,NroLinea,CodComp,DescComp,Cantidad,StkFisico,StkComprometido) values ('", row["NroOA"]), "','"), row["NroLinea"]), "','"), row2["OR03005"]), "','"), row2["OR03006"]), " "), row2["OR03007"]), "',"), ObjectType.SubObj(row2["OR03011"], row2["OR03012"])), ","), row2["SC03003"]), ","), ObjectType.AddObj(row2["SC03004"], row2["SC03005"])), ")")), connection2); try { num4 = command4.ExecuteNonQuery(); } catch (Exception exception11) { ProjectData.SetProjectError(exception11); Exception exception5 = exception11; Interaction.MsgBox("Se ha producido el siguiente error:" + exception5.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbSalir.Enabled = true; this.cmbVolver.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } } else { command4 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("insert into " + Variables.gTermi + "TmpCalendarioStkComp (NroOA,NroLinea,CodComp,DescComp,Cantidad,StkFisico,StkComprometido) values ('", row["NroOA"]), "','"), row["NroLinea"]), "','"), row2["OR03005"]), "','"), row2["OR03006"]), " "), row2["OR03007"]), "',"), ObjectType.SubObj(row2["OR03011"], row2["OR03012"])), ","), row2["SC03003"]), ","), ObjectType.AddObj(row2["SC03004"], row2["SC03005"])), ")")), connection2); try { num4 = command4.ExecuteNonQuery(); } catch (Exception exception12) { ProjectData.SetProjectError(exception12); Exception exception6 = exception12; Interaction.MsgBox("Se ha producido el siguiente error:" + exception6.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbSalir.Enabled = true; this.cmbVolver.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } } if (flag) { command4 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("update " + Variables.gTermi + "TmpCalendario set SinStock=1 where NroOA='", row["NroOA"]), "'")), connection2); try { num4 = command4.ExecuteNonQuery(); } catch (Exception exception13) { ProjectData.SetProjectError(exception13); Exception exception7 = exception13; Interaction.MsgBox("Se ha producido el siguiente error:" + exception7.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbSalir.Enabled = true; this.cmbVolver.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } } connection.Close(); connection2.Close(); }
public void AddObj(object x, object y, object expected) { Assert.Equal(expected, ObjectType.AddObj(x, y)); }
public object Call(Object[] args) { return(ObjectType.AddObj(args[0], args[1])); }
private void ActTmp() { DataSet dataSet = new DataSet(); DataSet set2 = new DataSet(); this.cmbAceptar.Enabled = false; this.cmbSalir.Enabled = false; SqlConnection connection = new SqlConnection("data source=" + Variables.gServer + ";user id=scala;password=scala;initial catalog=scalaDB;persist security info=False;packet size=4096"); connection.Open(); SqlConnection connection2 = new SqlConnection("data source=" + Variables.gServer + ";user id=teleprinter;password=tele;initial catalog=Colector;persist security info=False;packet size=4096"); connection2.Open(); int num16 = new SqlCommand("delete " + Variables.gTermi + "TmpOCompra", connection2).ExecuteNonQuery(); num16 = new SqlCommand("delete " + Variables.gTermi + "TmpOCGen", connection2).ExecuteNonQuery(); SqlCommand command4 = new SqlCommand("delete " + Variables.gTermi + "TmpCodReemp", connection2); num16 = command4.ExecuteNonQuery(); string str = ""; string str10 = ""; string str2 = ""; string str11 = ""; string str3 = ""; string str12 = ""; string cmdText = "SELECT PL23003,PL23004 FROM dbo.PL230100 where PL23001='2' and PL23002='00' and (PL23003='01' or PL23003='02' or PL23003='03') order by PL23003"; SqlDataReader reader = new SqlCommand(cmdText, connection).ExecuteReader(); if (reader.Read()) { str = StringType.FromObject(reader["PL23003"]); str10 = StringType.FromObject(reader["PL23004"]); } if (reader.Read()) { str2 = StringType.FromObject(reader["PL23003"]); str11 = StringType.FromObject(reader["PL23004"]); } if (reader.Read()) { str3 = StringType.FromObject(reader["PL23003"]); str12 = StringType.FromObject(reader["PL23004"]); } reader.Close(); cmdText = "SELECT SC01001,SC01089 FROM dbo.SC010100 where SC01089<>''"; SqlCommand command = new SqlCommand(cmdText, connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); while (reader.Read()) { command4 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("insert into " + Variables.gTermi + "TmpCodReemp (Codigo,CodReemplazo) values ('", reader["SC01001"]), "','"), reader["SC01089"]), "')")), connection2); try { num16 = command4.ExecuteNonQuery(); } catch (Exception exception1) { ProjectData.SetProjectError(exception1); Exception exception = exception1; Interaction.MsgBox("Se ha producido el siguiente error:" + exception.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbAceptar.Enabled = true; this.cmbSalir.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } reader.Close(); SqlCommand command2 = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("SELECT SC01001,SC01002,SC01003,SC03010,SC03003,SC03004,SC03005,SC03006,SC03011,SC03018,SC01089,SC01125,SC03022,PL01002,SC01055,SC01056,SY14002 FROM SC010100 INNER JOIN SC030100 ON SC010100.SC01001 = SC030100.SC03001 INNER JOIN PL010100 ON SC030100.SC03022 = PL010100.PL01001 INNER JOIN SY140100 ON SC010100.SC01056 = SY140100.SY14001 WHERE SC030100.SC03002 = '", this.cbAlmacen.SelectedValue), "'")), connection); command2.CommandTimeout = 900; dataSet.Clear(); SqlDataAdapter adapter = new SqlDataAdapter(); adapter.SelectCommand = command2; adapter.Fill(dataSet, "SC010100"); this.Label1.Visible = true; this.Label1.Refresh(); this.txtCodProd.Visible = true; long num17 = dataSet.Tables["SC010100"].Rows.Count - 1; for (long i = 0L; i <= num17; i += 1L) { double num13; double num14; double num15; DataRow row = dataSet.Tables["SC010100"].Rows[(int)i]; this.txtCodProd.Text = StringType.FromObject(row["SC01001"]); this.txtCodProd.Refresh(); string str5 = StringType.FromObject(row["SC01001"]); string str13 = Strings.Trim(StringType.FromObject(row["SC01002"])) + " " + Strings.Trim(StringType.FromObject(row["SC01003"])); double num5 = DoubleType.FromObject(row["SC03010"]); if (ObjectType.ObjTst(row["SC03003"], 0, false) < 0) { num15 = 0.0; } else { num15 = DoubleType.FromObject(row["SC03003"]); } double num9 = DoubleType.FromObject(ObjectType.AddObj(row["SC03004"], row["SC03005"])); double num8 = DoubleType.FromObject(row["SC03006"]); double num3 = DoubleType.FromObject(row["SC03011"]); double num2 = DoubleType.FromObject(row["SC03018"]); string sLeft = StringType.FromObject(row["SC01089"]); DateTime expression = DateType.FromObject(row["SC01125"]); string str7 = StringType.FromObject(row["SC03022"]); string str15 = StringType.FromObject(row["PL01002"]); double num11 = DoubleType.FromObject(row["SC01055"]); string str4 = StringType.FromObject(row["SC01056"]); string str14 = StringType.FromObject(row["SY14002"]); if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "01", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str5 + "' and SC03002='01'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "03", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str5 + "' and SC03002='03'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "05", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str5 + "' and SC03002='05'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "07", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str5 + "' and SC03002='07'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "08", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str5 + "' and SC03002='08'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "09", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str5 + "' and SC03002='09'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "10", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str5 + "' and SC03002='10'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } double num10 = 0.0; command = new SqlCommand("SELECT sum(OR03011-OR03012) as OVRes FROM dbo.OR030100,OR010100 where (OR01002=1 or OR01002=4 or OR01002=6) and OR01091=1 and OR03011-OR03012<>0 and OR03005='" + str5 + "' and OR01001=OR03001", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read() && !Information.IsDBNull(RuntimeHelpers.GetObjectValue(reader["OVRes"]))) { num10 = DoubleType.FromObject(reader["OVRes"]); } reader.Close(); double num12 = 0.0; command = new SqlCommand("SELECT sum(OR03011) as PromVtas FROM dbo.OR030100,OR010100 where (OR01002=1 or OR01002=4 or OR01002=6) and OR01091=0 and OR03005='" + str5 + "' and OR01001=OR03001 and OR01015>='" + Strings.Format(DateAndTime.DateAdd(DateInterval.Month, -3.0, DateAndTime.Now), "MM/dd/yyyy") + "' and OR01015<='" + Strings.Format(DateAndTime.Now, "MM/dd/yyyy") + "'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read() && !Information.IsDBNull(RuntimeHelpers.GetObjectValue(reader["PromVtas"]))) { num12 = DoubleType.FromObject(reader["PromVtas"]); } reader.Close(); command = new SqlCommand("SELECT sum(OR21011) as PromVtas FROM dbo.OR210100,OR200100 where (OR20002=1 or OR20002=4 or OR20002=6) and OR20091=0 and OR21005='" + str5 + "' and OR20001=OR21001 and OR20015>='" + Strings.Format(DateAndTime.DateAdd(DateInterval.Month, -3.0, DateAndTime.Now), "MM/dd/yyyy") + "' and OR20015<='" + Strings.Format(DateAndTime.Now, "MM/dd/yyyy") + "'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read() && !Information.IsDBNull(RuntimeHelpers.GetObjectValue(reader["PromVtas"]))) { num12 = DoubleType.FromObject(ObjectType.AddObj(num12, reader["PromVtas"])); } reader.Close(); num12 /= 3.0; double num7 = num12 * Variables.gMesesNRNue; if (num7 == 0.0) { num7 = num5; } if (StringType.StrCmp(sLeft, " ", false) != 0) { num13 = 0.0; num14 = 0.0; if (!(((((StringType.StrCmp(Strings.Format(expression, "yyyyMMdd"), Strings.Format(DateAndTime.Now, "yyyyMMdd"), false) < 0) & (num15 == 0.0)) & (num9 == 0.0)) & (num8 == 0.0)) & (num10 == 0.0))) { command4 = new SqlCommand((((((((((((((((("insert into " + Variables.gTermi + "TmpOCompra (Codigo,Descripcion,NivelRepos,StockAl,OV,OCPend,OVRes,LoteOptCpra,CantMinPed,CodReemplazo,FecReemp,PropCpra,PromVtas,NivelReposPV,PropCpraPV,CodProv,NomProv,CodMetEnv01,DescMetEnv01,CantMetEnv01,FecEntOC01,CodMetEnv02,DescMetEnv02,CantMetEnv02,FecEntOC02,CodMetEnv03,DescMetEnv03,CantMetEnv03,FecEntOC03,Seleccion,PrecioCpra,CodMoneda,Moneda) values ('" + str5) + "','" + str13 + "'," + StringType.FromDouble(num5) + "," + StringType.FromDouble(num15) + "," + StringType.FromDouble(num9) + "," + StringType.FromDouble(num8) + "," + StringType.FromDouble(num10) + "," + StringType.FromDouble(num3) + "," + StringType.FromDouble(num2)) + ",'" + sLeft) + "','" + Strings.Format(expression, "MM/dd/yyyy") + "'," + StringType.FromDouble(num13) + "," + StringType.FromDouble(num12) + "," + StringType.FromDouble(num7) + "," + StringType.FromDouble(num14)) + ",'" + str7) + "','" + str15) + "','" + str) + "','" + str10 + "'," + StringType.FromDouble(num13)) + ",'" + Strings.Format(DateType.FromString(Variables.gFechaOC), "MM/dd/yyyy")) + "','" + str2) + "','" + str11) + "',0,'" + Strings.Format(DateType.FromString(Variables.gFechaOC), "MM/dd/yyyy")) + "','" + str3) + "','" + str12) + "',0,'" + Strings.Format(DateType.FromString(Variables.gFechaOC), "MM/dd/yyyy") + "',0," + StringType.FromDouble(num11)) + ",'" + str4) + "','" + str14 + "')", connection2); try { num16 = command4.ExecuteNonQuery(); } catch (Exception exception4) { ProjectData.SetProjectError(exception4); Exception exception2 = exception4; Interaction.MsgBox("Se ha producido el siguiente error:" + exception2.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbAceptar.Enabled = true; this.cmbSalir.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } continue; } if (StringType.StrCmp(sLeft, " ", false) == 0) { string str6 = str5; while (1 != 0) { command = new SqlCommand("SELECT * FROM " + Variables.gTermi + "TmpCodReemp where CodReemplazo='" + str6 + "'", connection2); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.HasRows) { reader.Read(); str6 = StringType.FromObject(reader["Codigo"]); reader.Close(); } else { reader.Close(); break; } command = new SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("SELECT SC03010,SC03003,SC03004,SC03005,SC03006,SC03011,SC03018 FROM SC030100 where SC03001='" + str6 + "' and SC03002='", this.cbAlmacen.SelectedValue), "'")), connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.HasRows) { reader.Read(); num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["SC03003"])); num9 = DoubleType.FromObject(ObjectType.AddObj(ObjectType.AddObj(num9, reader["SC03004"]), reader["SC03005"])); num8 = DoubleType.FromObject(ObjectType.AddObj(num8, reader["SC03006"])); } reader.Close(); if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "01", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str6 + "' and SC03002='01'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "03", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str6 + "' and SC03002='03'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "05", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str6 + "' and SC03002='05'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "07", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str6 + "' and SC03002='07'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "08", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str6 + "' and SC03002='08'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "09", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str6 + "' and SC03002='09'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } if (ObjectType.ObjTst(this.cbAlmacen.SelectedValue, "10", false) != 0) { command = new SqlCommand("SELECT SC03003 as Stock FROM dbo.SC030100 where SC03001='" + str6 + "' and SC03002='10'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read()) { num15 = DoubleType.FromObject(ObjectType.AddObj(num15, reader["Stock"])); } reader.Close(); } command = new SqlCommand("SELECT sum(OR03011-OR03012) as OVRes FROM dbo.OR030100,OR010100 where (OR01002=1 or OR01002=4 or OR01002=6) and OR01091=1 and OR03011-OR03012<>0 and OR03005='" + str6 + "' and OR01001=OR03001", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read() && !Information.IsDBNull(RuntimeHelpers.GetObjectValue(reader["OVRes"]))) { num10 = DoubleType.FromObject(ObjectType.AddObj(num10, reader["OVRes"])); } reader.Close(); num12 = 0.0; command = new SqlCommand("SELECT sum(OR03011) as PromVtas FROM dbo.OR030100,OR010100 where (OR01002=1 or OR01002=4 or OR01002=6) and OR01091=0 and OR03005='" + str6 + "' and OR01001=OR03001 and OR01015>='" + Strings.Format(DateAndTime.DateAdd(DateInterval.Month, -3.0, DateAndTime.Now), "MM/dd/yyyy") + "' and OR01015<='" + Strings.Format(DateAndTime.Now, "MM/dd/yyyy") + "'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read() && !Information.IsDBNull(RuntimeHelpers.GetObjectValue(reader["PromVtas"]))) { num12 = DoubleType.FromObject(reader["PromVtas"]); } reader.Close(); command = new SqlCommand("SELECT sum(OR21011) as PromVtas FROM dbo.OR210100,OR200100 where (OR20002=1 or OR20002=4 or OR20002=6) and OR20091=0 and OR21005='" + str6 + "' and OR20001=OR21001 and OR20015>='" + Strings.Format(DateAndTime.DateAdd(DateInterval.Month, -3.0, DateAndTime.Now), "MM/dd/yyyy") + "' and OR20015<='" + Strings.Format(DateAndTime.Now, "MM/dd/yyyy") + "'", connection); command.CommandTimeout = 300; reader = command.ExecuteReader(); if (reader.Read() && !Information.IsDBNull(RuntimeHelpers.GetObjectValue(reader["PromVtas"]))) { num12 = DoubleType.FromObject(ObjectType.AddObj(num12, reader["PromVtas"])); } reader.Close(); num12 /= 3.0; num7 = num12 * Variables.gMesesNRNue; if (num7 == 0.0) { num7 = num5; } } num13 = (((num5 - num15) + num9) - num8) - num10; num14 = (((num7 - num15) + num9) - num8) - num10; if (num13 > 0.0) { if ((num3 != 0.0) && (num3 > num13)) { num13 = num3; } if (num2 != 0.0) { num13 = Math.Round((double)((num13 / num2) + 0.49), 0) * num2; } command4 = new SqlCommand(((((((((((((((("insert into " + Variables.gTermi + "TmpOCompra (Codigo,Descripcion,NivelRepos,StockAl,OV,OCPend,OVRes,LoteOptCpra,CantMinPed,CodReemplazo,PropCpra,PromVtas,NivelReposPV,PropCpraPV,CodProv,NomProv,CodMetEnv01,DescMetEnv01,CantMetEnv01,FecEntOC01,CodMetEnv02,DescMetEnv02,CantMetEnv02,FecEntOC02,CodMetEnv03,DescMetEnv03,CantMetEnv03,FecEntOC03,Seleccion,PrecioCpra,CodMoneda,Moneda) values ('" + str5) + "','" + str13 + "'," + StringType.FromDouble(num5) + "," + StringType.FromDouble(num15) + "," + StringType.FromDouble(num9) + "," + StringType.FromDouble(num8) + "," + StringType.FromDouble(num10) + "," + StringType.FromDouble(num3) + "," + StringType.FromDouble(num2)) + ",'" + sLeft + "'," + StringType.FromDouble(num13) + "," + StringType.FromDouble(num12) + "," + StringType.FromDouble(num7) + "," + StringType.FromDouble(num14)) + ",'" + str7) + "','" + str15) + "','" + str) + "','" + str10 + "'," + StringType.FromDouble(num13)) + ",'" + Strings.Format(DateType.FromString(Variables.gFechaOC), "MM/dd/yyyy")) + "','" + str2) + "','" + str11) + "',0,'" + Strings.Format(DateType.FromString(Variables.gFechaOC), "MM/dd/yyyy")) + "','" + str3) + "','" + str12) + "',0,'" + Strings.Format(DateType.FromString(Variables.gFechaOC), "MM/dd/yyyy") + "',0," + StringType.FromDouble(num11)) + ",'" + str4) + "','" + str14 + "')", connection2); try { num16 = command4.ExecuteNonQuery(); } catch (Exception exception5) { ProjectData.SetProjectError(exception5); Exception exception3 = exception5; Interaction.MsgBox("Se ha producido el siguiente error:" + exception3.Message, MsgBoxStyle.OKOnly, null); connection.Close(); connection2.Close(); this.cmbAceptar.Enabled = true; this.cmbSalir.Enabled = true; ProjectData.ClearProjectError(); return; ProjectData.ClearProjectError(); } } } } connection.Close(); connection2.Close(); }
/// <summary>Increments a <see langword="For...Next" /> loop.</summary> /// <param name="Counter">The loop counter variable.</param> /// <param name="LoopObj">An object that contains verified values for loop values.</param> /// <param name="CounterResult">The counter value for the next loop iteration.</param> /// <returns> /// <see langword="False" /> if the loop has terminated; otherwise, <see langword="True" />.</returns> public static bool ForNextCheckObj(object Counter, object LoopObj, ref object CounterResult) { if (LoopObj == null) { throw ExceptionUtils.VbMakeException(92); } if (Counter == null) { throw new NullReferenceException(Utils.GetResourceString("Argument_InvalidNullValue1", new string[1] { nameof(Counter) })); } FlowControl.ObjectFor LoopFor = (FlowControl.ObjectFor)LoopObj; TypeCode typeCode1 = ((IConvertible)Counter).GetTypeCode(); TypeCode typeCode2 = ((IConvertible)LoopFor.StepValue).GetTypeCode(); TypeCode typeCode3; if (typeCode1 == typeCode2 && typeCode1 != TypeCode.String) { typeCode3 = typeCode1; } else { typeCode3 = ObjectType.GetWidestType((object)typeCode1, typeCode2); if (typeCode3 == TypeCode.String) { typeCode3 = TypeCode.Double; } TypeCode typeCode4 = TypeCode.Empty; if (typeCode4 == TypeCode.Object) { throw new ArgumentException(Utils.GetResourceString("ForLoop_CommonType2", Utils.VBFriendlyName(ObjectType.TypeFromTypeCode(typeCode1)), Utils.VBFriendlyName(ObjectType.TypeFromTypeCode(typeCode2)))); } try { Counter = ObjectType.CTypeHelper(Counter, typeCode3); } catch (StackOverflowException ex) { throw ex; } catch (OutOfMemoryException ex) { throw ex; } catch (ThreadAbortException ex) { throw ex; } catch (Exception ex) { throw new ArgumentException(Utils.GetResourceString("ForLoop_ConvertToType3", "Start", Utils.VBFriendlyName(Counter.GetType()), Utils.VBFriendlyName(ObjectType.TypeFromTypeCode(typeCode3)))); } try { LoopFor.Limit = ObjectType.CTypeHelper(LoopFor.Limit, typeCode3); } catch (StackOverflowException ex) { throw ex; } catch (OutOfMemoryException ex) { throw ex; } catch (ThreadAbortException ex) { throw ex; } catch (Exception ex) { throw new ArgumentException(Utils.GetResourceString("ForLoop_ConvertToType3", "Limit", Utils.VBFriendlyName(LoopFor.Limit.GetType()), Utils.VBFriendlyName(ObjectType.TypeFromTypeCode(typeCode3)))); } try { LoopFor.StepValue = ObjectType.CTypeHelper(LoopFor.StepValue, typeCode3); } catch (StackOverflowException ex) { throw ex; } catch (OutOfMemoryException ex) { throw ex; } catch (ThreadAbortException ex) { throw ex; } catch (Exception ex) { throw new ArgumentException(Utils.GetResourceString("ForLoop_ConvertToType3", "Step", Utils.VBFriendlyName(LoopFor.StepValue.GetType()), Utils.VBFriendlyName(ObjectType.TypeFromTypeCode(typeCode3)))); } } LoopFor.Counter = ObjectType.AddObj(Counter, LoopFor.StepValue); TypeCode typeCode5 = ((IConvertible)LoopFor.Counter).GetTypeCode(); CounterResult = LoopFor.EnumType == null ? LoopFor.Counter : Enum.ToObject(LoopFor.EnumType, LoopFor.Counter); if (typeCode5 == typeCode3) { return(FlowControl.CheckContinueLoop(LoopFor)); } LoopFor.Limit = ObjectType.CTypeHelper(LoopFor.Limit, typeCode5); LoopFor.StepValue = ObjectType.CTypeHelper(LoopFor.StepValue, typeCode5); return(false); }