Автоматизация банковской отчетности "1С Предприятие"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
p>{.Application xlApp;.Workbook xlWorkBook;.Worksheet xlWorkSheet;misValue = System.Reflection.Missing.Value;= new Excel.Application();= xlApp.Workbooks.Add(misValue);= (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1);.Cells.Range[xlWorkSheet.Cells[1, 1], xlWorkSheet.Cells[2, 1]].Merge();.Cells[1, 1] = "СЧЕТ";.Cells.Range[xlWorkSheet.Cells[1, 2], xlWorkSheet.Cells[1, 3]].Merge();.Cells[1, 2] = "ВХОДЯЩЕЕ САЛЬДО";.Cells[2, 2] = "ДЕБЕТ";.Cells[2, 3] = "КРЕДИТ";.Cells.Range[xlWorkSheet.Cells[1, 4], xlWorkSheet.Cells[1, 5]].Merge();.Cells[1, 4] = "ОБОРОТЫ";.Cells[2, 4] = "ДЕБЕТ";.Cells[2, 5] = "КРЕДИТ";.Cells.Range[xlWorkSheet.Cells[1, 6], xlWorkSheet.Cells[1, 7]].Merge();.Cells[1, 6] = "ИСХОДЯЩЕЕ САЛЬДО";.Cells[2, 6] = "ДЕБЕТ";.Cells[2, 7] = "КРЕДИТ";();
счетаTableAdapter.Fill(bankOtchetnostDataSet1.Счета);
операцииTableAdapter.Fill(bankOtchetnostDataSet1.Операции);(DataRow srow in bankOtchetnostDataSet1.Счета.Rows)
{n = Convert.ToInt32(srow[0]); // Номер счетаp = Convert.ToBoolean(srow[2]); // Признак счета[n] = new Dictionary();[n].Add ("d", 0.0);[n].Add("c", 0.0);(DataRow row in bankOtchetnostDataSet1.Операции.Rows)
{dt = DateTime.Parse(Convert.ToString(row[1]));yesterday =.Value.AddDays (-1);(dt.Date > yesterday);d = Convert.ToInt32(row[3]); // Дебетируемы счетk = Convert.ToInt32(row[4]); // Кредитируемый счетs = Convert.ToDouble(row[5]); // Сумма(n == d)
{[n]["d"] += s;
}(n == k)
{[n]["c"] += s;
}
}
}(int i = 0; i < vhost.Count; i++)
{k = vhost.Keys.ElementAt(i);.Cells[i + 3, 1] = k;d=vhost[k]["d"];c=vhost[k]["c"];(d>c)
{.Cells[i + 3, 2] = d-c;
}
{.Cells[i + 3, 3] = c - d;
}
}
//////////////////////////////////////////////////////////////////////////();
счетаTableAdapter.Fill(bankOtchetnostDataSet1.Счета);
операцииTableAdapter.Fill(bankOtchetnostDataSet1.Операции);(DataRow srow in bankOtchetnostDataSet1.Счета.Rows)
{n = Convert.ToInt32(srow[0]); // Номер счетаp = Convert.ToBoolean(srow[2]); // Признак счета[n] = new Dictionary();[n].Add("d", 0.0);[n].Add("c", 0.0);(DataRow row in bankOtchetnostDataSet1.Операции.Rows)
{dt = DateTime.Parse(Convert.ToString(row[1]));(dt.Date != dateTime.Value.Date);d = Convert.ToInt32(row[3]); // Дебетируемы счетk = Convert.ToInt32(row[4]); // Кредитируемый счетs = Convert.ToDouble(row[5]); // Сумма(n == d)
{[n]["d"] += s;
}(n == k)
{[n]["c"] += s;
}
}
}(int i = 0; i < oborot.Count; i++)
{k = oborot.Keys.ElementAt(i);.Cells[i + 3, 1] = k;d = oborot[k]["d"];c = oborot[k]["c"];.Cells[i + 3, 4] = d ;.Cells[i + 3, 5] = c ;
}
//////////////////////////////////////////////////////////////////////////(int i = 0; i < oborot.Count; i++)
{k = oborot.Keys.ElementAt(i);.Cells[i + 3, 1] = k;d = vhost[k]["d"] + oborot[k]["d"];c = vhost[k]["c"] + oborot[k]["c"];(d > c)
{.Cells[i + 3, 6] = d - c;
}
{.Cells[i + 3, 7] = c - d;
}
}
//xlWorkBook.SaveAs("csharp-Excel.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue);
// xlWorkBook.Close(true, misValue, misValue);.Visible = true;
//xlApp.Quit();.UserControl = true;
}
}
}
Файл: Счета.cs
using System;System.Collections.Generic;System.ComponentModel;System.Data;System.Drawing;System.Linq;System.Text;System.Windows.Forms;BankOtchetnost
{partial class Счета : Form
{Счета()
{();
}void Счета_Load(object sender, EventArgs e)
{
// TODO: данная строка кода позволяет загрузить данные в таблицу "bankOtchetnostDataSet.Счета". При необходимости она может быть перемещена или удалена.
this.счетаTableAdapter.Fill(this.bankOtchetnostDataSet.Счета);
}void Save_Click(object sender, EventArgs e)
{
счетаTableAdapter.Update(bankOtchetnostDataSet.Счета);
}
}
}
Файл: Операции.cs
using System;System.Collections.Generic;System.ComponentModel;System.Data;System.Drawing;System.Linq;System.Text;System.Windows.Forms;BankOtchetnost
{partial class Операции : Form
{Операции()
{();
}void Операции_Load(object sender, EventArgs e)
{
// TODO: данная строка кода позволяет загрузить данные в таблицу "bankOtchetnostDataSet.Операции". При необходимости она может быть перемещена или удалена..операцииTableAdapter.Fill(this.bankOtchetnostDataSet.Операции);
}void Refresh_Click(object sender, EventArgs e)
{.операцииTableAdapter.Fill(this.bankOtchetnostDataSet.Операции);
}
}
}
Файл: Новая.cs
using System;System.Collections.Generic;System.ComponentModel;System.Data;System.Drawing;System.Linq;System.Text;System.Windows.Forms;BankOtchetnost
{partial class Новая : Form
{Новая()
{();
}void Date_MouseMove(object sender, MouseEventArgs e)
{
}void time_TextChanged(object sender, EventArgs e)
{
}void cancel_Click(object sender, EventArgs e)
{.DialogResult = DialogResult.Cancel;.Close();
}void ok_Click(object sender, EventArgs e)
{.Операции.AddОперацииRow(.Value, sut.Text,.Счета.FindByНомерСчета(Convert.ToInt32(debet.SelectedValue)),.Счета.FindByНомерСчета(Convert.ToInt32(credit.SelectedValue)),.ToDecimal(summa.Text),.Text);.операцииTableAdapter.Update(this.bankOtchetnostDataSet.Операции).DialogResult = DialogResult.OK;.Close();
}void Новая_Load(object sender, EventArgs e)
{
// TODO: данная строка кода позволяет загрузить данные в таблицу "bankOtchetnostDataSet.Счета". При необходимости она может быть перемещена или удалена..счетаTableAdapter.Fill(this.bankOtchetnostDataSet.Счета);