АИС "Работа с покупателями"

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование

p>

// Копируем файл шаблонный

FileInfo fi1 = new FileInfo(path);

fi1.CopyTo(path2);

 

String zapr3;

zapr3 = "insert into OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0; Database=" + path2 + " ; ID=Foks; Password=676676', 'SELECT * FROM [Прайс$]') SELECT Naimenov, KodNom, Strana, MinimPartija, CAST (Cena AS nvarchar) FROM dbo._Nomenklatura, dbo._Ceni, dbo._Ostatki WHERE (([EtoGruppa] = 0) AND (Kolichestvo>0) AND (_Ostatki.Nomen=KodNom) AND (_Ceni.Nomen=KodNom) AND (NomerPrajsa=" +

Session["prs"].ToString() + ") AND (Otec='"+ str +"') ) ORDER BY Naimenov";

// помечаем всё цыфркой 3, дабы 100% не было конфликтов

SqlConnection con3 = new SqlConnection(System.Configuration.ConfigurationSettings.ConnectionStrings["ConnectionForForWeb"].ConnectionString);

SqlCommand cmd3 = new SqlCommand(zapr3, con3);

con3.Open();

cmd3.ExecuteScalar();

con3.Close();

 

ПРИЛОЖЕНИЕ Д

Код работы с WEB Службой из ASP.NET

//******************************************************************************

//Загрузка номенклатуры, которую получаем от удалённой службы

void Button1_Click(object sender, EventArgs e)

{

int i, vsego; // Счётчик и общее число записей, полученных от Web Службы

 

DataTable ds = new DataTable();

Sluzba.Service ws = new Sluzba.Service();

ws.Timeout = 1000 * 60 * 5;

try{

ds = ws.VigruzNom(); // Получаем данные с удалённой службы

}

catch{

LabelInfo.Text = "Ошибка доступа к 1С. Подождите 15 минут и повторите попытку";

return;

}

// ds.Tables[0].TableName = "Nomenkl";

// ds.Tables[0].Columns[0].ColumnName = "EtoGruppa";

// ds.Tables[0].Columns[1].ColumnName = "KodNom";

// ds.Tables[0].Columns[2].ColumnName = "Otec";

// ds.Tables[0].Columns[3].ColumnName = "Strana";

// ds.Tables[0].Columns[4].ColumnName = "Naimenov";

// ds.WriteXml(@"C:\ds.xml");

 

// Подключение к MS SQL Server

SqlConnection konekt = new SqlConnection("Server=FKS;Integrated Security=True;Database=ForWeb");

SqlCommand sqlcom = new SqlCommand("NomenObnovi", konekt);

sqlcom.CommandType = CommandType.StoredProcedure;

SqlParameter param = null;

param = sqlcom.Parameters.Add(new SqlParameter("@KodNom", SqlDbType.Char, 9));

param.Direction = ParameterDirection.Input;

param = sqlcom.Parameters.Add(new SqlParameter("@EtoGruppa", SqlDbType.SmallInt, 9));

param.Direction = ParameterDirection.Input;

param = sqlcom.Parameters.Add(new SqlParameter("@Otec", SqlDbType.Char, 9));

param.Direction = ParameterDirection.Input;

param = sqlcom.Parameters.Add(new SqlParameter("@Strana", SqlDbType.Char, 30));

param.Direction = ParameterDirection.Input;

param = sqlcom.Parameters.Add(new SqlParameter("@Naimenov", SqlDbType.Char, 300));

param.Direction = ParameterDirection.Input;

 

LabelInfo.Text = "Ждите завершения выгрузки номенклатуры";

vsego = ds.Rows.Count;

konekt.Open();

for (i = 0; i < vsego; i++)

{

sqlcom.Parameters[0].Value = ds.Rows[i][1];

sqlcom.Parameters[1].Value = ds.Rows[i][0];

sqlcom.Parameters[2].Value = ds.Rows[i][2];

sqlcom.Parameters[3].Value = ds.Rows[i][3];

sqlcom.Parameters[4].Value = ds.Rows[i][4];

sqlcom.ExecuteNonQuery();

}

konekt.Close();

 

 

LabelInfo.Text = "Выгрузка номенклатуры успешно завершена, обновилось записей - " + vsego;

}