private void Show(int id)
{
while (!RsAccount.EOF)
{
if (id == RsAccount.Fields["ClientID"].Value)
{
break;
}
RsAccount.MoveNext();
}
IDbox.Text = RsAccount.Fields["ClientID"].Value.ToString();
Passbox.Text = RsUser.Fields["Password"].Value.ToString();
AccountNumbox.Text = RsAccount.Fields["AccountNumber"].Value.ToString();
AccountTypebox.Text = RsAccount.Fields["AccountType"].Value.ToString();
Balancebox.Text = RsAccount.Fields["Balance"].Value.ToString();
Limitbox.Text = RsAccount.Fields["CreditLimit"].Value.ToString();
branchbox.Text = RsAccount.Fields["BranchNumber"].Value.ToString();
IDbox.Enabled = false;
Passbox.Enabled = false;
AccountNumbox.Enabled = false;
AccountTypebox.Enabled = false;
Balancebox.Enabled = false;
Limitbox.Enabled = false;
branchbox.Enabled = false;
}
private void custmreceipt_Load(object sender, EventArgs e)
{
textBox1.Enabled = false;
textBox2.Enabled = false;
textBox4.Text = "0";
textBox3.Text = "0";
// comboBox2.DropDownStyle = ComboBoxStyle.DropDownList;
comboBox2.Properties.Items.Add("CASH");
comboBox2.Properties.Items.Add("CHEQUE");
// comboBox1.Properties.DropDownStyle = ComboBoxStyle.DropDownList;
label7.Visible = false;
textBox5.Visible = false;
Temp1.Open(@"select * from customerdetails", Program.DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic);
while (Temp1.EOF == false)
{
comboBox1.Properties.Items.Add(Temp1.Fields["CName"].Value);
Temp1.MoveNext();
}
Temp1.Close();
Temp1.Open(@"select * from payments", Program.DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic);
if (Temp1.RecordCount == 0)
{
textBox1.Text = "1";
}
else
{
Temp1.MoveLast();
int a = Temp1.Fields["payID"].Value + 1;
textBox1.Text = a.ToString();
Temp1.MoveNext();
}
Temp1.Close();
}
private void rent_Click(object sender, EventArgs e)
{
Rscar.MoveFirst();
Rsuser.MoveFirst();
while (!Rscar.EOF)
{
if (carID.Text.Equals(Rscar.Fields["CarID"].Value))
{
Rscar.Fields["Availability"].Value = "No";
Rsuser.AddNew();
Rsuser.Fields["CarID"].Value = Convert.ToInt32(carID.Text);
Rsuser.Fields["FirstName"].Value = firstName.Text;
Rsuser.Fields["LastName"].Value = lastName.Text;
Rsuser.Fields["PhoneNumber"].Value = phoneNumber.Text;
Rsuser.Fields["RentDate"].Value = Convert.ToDateTime(rentDate.Text);
Rsuser.Fields["ReturnDate"].Value = Convert.ToDateTime(returnDate.Text);
Rsuser.Fields["Rent"].Value = "Yes";
Rscar.Update();
Rsuser.Update();
MessageBox.Show("You rent car successfully");
return;
}
Rscar.MoveNext();
}
MessageBox.Show("Something wrong....");
}
public bool loadData(ref string lName)
{
bool functionReturnValue = false;
ADODB.Recordset rs = default(ADODB.Recordset);
string lSQL = null;
int x = 0;
string lID = null;
gField = lName;
rs = modRecordSet.getRS(ref "SELECT * From ftConstruct WHERE (ftConstruct_Name = '" + Strings.Replace(lName, "'", "''") + "')");
gFieldID = rs.Fields("ftConstruct_FieldID").Value;
gFieldName = rs.Fields("ftConstruct_FieldName").Value;
gHeading = rs.Fields("ftConstruct_DisplayName").Value;
lSQL = rs.Fields("ftConstruct_SQL").Value;
rs.Close();
rs = modRecordSet.getRS(ref lSQL);
//Display the list of Titles in the DataCombo
loading = true;
functionReturnValue = false;
x = -1;
gArray = new string[rs.RecordCount, 3];
while (!(rs.EOF))
{
x = x + 1;
gArray[x, 0] = rs.Fields(gFieldID).Value;
gArray[x, 1] = rs.Fields(gFieldName).Value + "";
gArray[x, 2] = Convert.ToString(0);
rs.MoveNext();
}
rs.Close();
rs = modRecordSet.getRS(ref "SELECT ftDataItem_ID From ftDataItem WHERE (ftDataItem_PersonID = " + modRecordSet.gPersonID + ") AND (ftDataItem_FieldName = '" + Strings.Replace(gField, "'", "''") + "')");
while (!(rs.EOF))
{
lID = rs.Fields("ftDataItem_ID").Value;
for (x = 0; x <= Information.UBound(gArray); x++)
{
if (lID == gArray[x, 0])
{
gArray[x, 2] = Convert.ToString(1);
}
}
rs.MoveNext();
}
rs.Close();
setup();
functionReturnValue = true;
loadLanguage();
ShowDialog();
loading = false;
return(functionReturnValue);
}
//Lagerbestand
private void metroComboBox1_SelectedIndexChanged(object sender, EventArgs e)
{
ADODB.Connection cn = new ADODB.Connection();
ADODB.Recordset rs = new ADODB.Recordset();
try {
cn.Open(cnStr);
string periode = metroComboBox1.Text;
if (periode == "0")
{
rs.Open("Select Startmenge, Artikelnummer, Startpreis From Artikelstammdaten", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1);
int i = 0;
metroGrid5.Rows.Clear();
while (!rs.EOF)
{
metroGrid5.Rows.Add();
metroGrid5.Rows[i].Cells["period"].Value = Convert.ToInt32(periode);
metroGrid5.Rows[i].Cells["id"].Value = Convert.ToInt32(rs.Fields["Artikelnummer"].Value);
metroGrid5.Rows[i].Cells["actualStock"].Value = Convert.ToInt32(rs.Fields["Startmenge"].Value);
metroGrid5.Rows[i].Cells["actualPrice"].Value = Convert.ToDouble(rs.Fields["Startpreis"].Value);
//metroGrid5.Rows[i].Cells["stockValue"].Value = ;
rs.MoveNext();
i++;
}
}
else
{
rs.Open("Select * From warehousestock_article where period ='" + periode + "'", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1);
int i = 0;
metroGrid5.Rows.Clear();
while (!rs.EOF)
{
metroGrid5.Rows.Add();
metroGrid5.Rows[i].Cells["period"].Value = Convert.ToInt32(rs.Fields["period"].Value);
metroGrid5.Rows[i].Cells["id"].Value = Convert.ToInt32(rs.Fields["id"].Value);
metroGrid5.Rows[i].Cells["actualStock"].Value = Convert.ToInt32(rs.Fields["amount"].Value);
metroGrid5.Rows[i].Cells["actualPrice"].Value = Convert.ToDouble(rs.Fields["price"].Value);
metroGrid5.Rows[i].Cells["stockValue"].Value = Convert.ToDouble(rs.Fields["stockValue"].Value);
rs.MoveNext();
i++;
}
}
rs.Close();
}
catch (Exception fehler)
{
Console.WriteLine("Ein Fehler ist aufgetreten", fehler); //Try catch überprüfen....
}
finally
{
cn.Close();
}
}
private void metroComboBox4_SelectedIndexChanged(object sender, EventArgs e)
{
ADODB.Connection cn = new ADODB.Connection();
ADODB.Recordset rs = new ADODB.Recordset();
try
{
cn.Open(cnStr);
string periode = metroComboBox4.Text;
if (periode == "0")
{
rs.Open("Select * From summary", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1);
metroGrid4.Rows.Clear();
int i = 0;
while (!rs.EOF)
{
metroGrid1.Rows.Add();
metroGrid1.Rows[i].Cells["Gewinn"].Value = rs.Fields["profit_current"].Value;
metroGrid1.Rows[i].Cells["GewinnDurchschnitt"].Value = rs.Fields["profit_average"].Value;
metroGrid1.Rows[i].Cells["GewinnGesamt"].Value = rs.Fields["profit_all"].Value;
rs.MoveNext();
++i;
}
//i = 0;
}
else
{
rs.Open("Select * From summary", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1);
metroGrid4.Rows.Clear();
int i = 0;
while (!rs.EOF)
{
metroGrid1.Rows.Add();
metroGrid1.Rows[i].Cells["Gewinn"].Value = rs.Fields["profit_current"].Value;
metroGrid1.Rows[i].Cells["GewinnDurchschnitt"].Value = rs.Fields["profit_average"].Value;
metroGrid1.Rows[i].Cells["GewinnGesamt"].Value = rs.Fields["profit_all"].Value;
rs.MoveNext();
++i;
}
//i = 0;
}
rs.Close();
}
catch (Exception fehler)
{
Console.WriteLine("Ein Fehler ist aufgetreten", fehler); //Try catch überprüfen....
}
finally
{
cn.Close();
}
}
private void FillList()
{
if (frmr_tb.RecordCount > 0)
{
while (frmr_tb.EOF == false)
{
farmers_list.Items.Add(frmr_tb.Fields["fNames"].Value.ToString());
farmers_list.Update();
frmr_tb.MoveNext();
}
frmr_tb.MoveFirst();
}
}
private void FillList()
{
if (cstmr_tb.RecordCount > 0)
{
while (cstmr_tb.EOF == false)
{
customers_list.Items.Add(cstmr_tb.Fields["CName"].Value.ToString());
customers_list.Update();
cstmr_tb.MoveNext();
}
cstmr_tb.MoveFirst();
}
}
private void FillList()
{
if (comm_tb.RecordCount > 0)
{
while (comm_tb.EOF == false)
{
commidities_list.Items.Add(comm_tb.Fields["cname"].Value.ToString());
commidities_list.Update();
comm_tb.MoveNext();
}
comm_tb.MoveFirst();
}
}
//showing next record in db
private void button8_Click(object sender, EventArgs e)
{
if (Rs.EOF == true && Rs.BOF == true)
{
MessageBox.Show("Table is Empty!");
return;
}
Rs.MoveNext();
if (Rs.EOF == true)
{
Rs.MoveLast();
MessageBox.Show("Passed End of File");
}
ShowDataOnForm();
}
private void ErgebnisseForm_LoadBestellungen(ADODB.Connection cn, ADODB.Recordset rs)
{
rs.Open("Select * From myOrderlist", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1);
int i = 0;
while (!rs.EOF)
{
metroGrid1.Rows.Add();
metroGrid1.Rows[i].Cells["Artikelnummer_Bestellung"].Value = rs.Fields["article"].Value;
metroGrid1.Rows[i].Cells["Menge_Bestellung"].Value = rs.Fields["quantity"].Value;
// Überprüfung auf Eil oder Normalbestellung
if (Convert.ToInt32(rs.Fields["modus"].Value) == 4)
{
metroGrid1.Rows[i].Cells["Bestellart_Bestellung"].Value = "Eil";
}
else if (Convert.ToInt32(rs.Fields["modus"].Value) == 5)
{
metroGrid1.Rows[i].Cells["Bestellart_Bestellung"].Value = "Normal";
}
rs.MoveNext();
++i;
}
i = 0;
rs.Close();
}
private static bool DeleteAsketPor()
{
string Select = "Select Time.Id, IdRazrabAsket from " + DB.TABLE_REDMINE_ISSUES + " as ISSUES " +
" left join " + DB.TABLE_REDMINE_TIME_ENTRIES + " as Time on ISSUES.Id = Time.IssueId " +
" where Deleted = 1 and DeletedInAsketPor = 0";
ADODB.Recordset RsPor = DB.Select(Select);
if (RsPor == null)
{
return(false);
}
string Update = "";
while (!(RsPor.EOF))
{
if (RsPor.Fields["IdRazrabAsket"].Value > 0)
{
Update = "Delete from " + DB.TABLE_REPORT_DEVELOPER + " where Код=" + RsPor.Fields["IdRazrabAsket"].Value;
DB.ExecuteQuery(Update);
Update = "Update" + DB.TABLE_REDMINE_TIME_ENTRIES + " set DeletedInAsketPor= 1 where id=" + RsPor.Fields["Id"].Value;
DB.ExecuteQuery(Update);
}
RsPor.MoveNext();
}
RsPor.Close();
return(true);
}
private void getPublicOfferingAdjustDate()
{
try {
string sql = "SELECT [年度], [股票代號], IsNull([現增除權日],'') 現增除權日 FROM [股利政策表] WHERE [年度] = '" + DateTime.Today.AddYears(-1).Year.ToString() + "' AND ";
string cStr = "";
foreach (string cID in data.Keys)
{
cStr += "'" + cID + "',";
}
if (cStr.Length > 0)
{
cStr = cStr.Substring(0, cStr.Length - 1);
}
sql += "[股票代號] IN (" + cStr + ") ORDER BY [股票代號]";
ADODB.Recordset rs = cn.CMExecute(ref arg, srvLocation, cnPort, sql);
for (; !rs.EOF; rs.MoveNext())
{
string stockID = rs.Fields["股票代號"].Value;
string es = rs.Fields["現增除權日"].Value == null ? "" : rs.Fields["現增除權日"].Value;
if (es != "")
{
data[stockID].exPODate = DateTime.ParseExact(es, "yyyyMMdd", null);
}
}
} catch (Exception ex) {
Console.WriteLine("POD error:" + ex.Message);
Console.ReadLine();
}
}
private void getEarning()
{
try {
string sql = "SELECT [年季], [股票代號], [合併淨損益(千)] FROM [季合併財報(損益單季)] WHERE [年季] IN (SELECT DISTINCT TOP 4 [年季] FROM [季合併財報(損益單季)] ORDER BY [年季] desc) AND ";
string cStr = "";
foreach (string cID in data.Keys)
{
cStr += "'" + cID + "',";
}
if (cStr.Length > 0)
{
cStr = cStr.Substring(0, cStr.Length - 1);
}
sql += "[股票代號] IN (" + cStr + ") ORDER BY [股票代號], [年季]";
ADODB.Recordset rs = cn.CMExecute(ref arg, srvLocation, cnPort, sql);
for (; !rs.EOF; rs.MoveNext())
{
string quarter = rs.Fields["年季"].Value;
string stockID = rs.Fields["股票代號"].Value;
double earning = Convert.ToDouble(rs.Fields["合併淨損益(千)"].Value);
data[stockID].commodityEarning.addQuarterEarning(earning);
}
} catch (Exception ex) {
MessageBox.Show("getEarning" + ex.Message);
//GlobalVar.errProcess.Add(1, "[CMoneyWork_getEarning][" + ex.Message + "][" + ex.StackTrace + "]");
}
}
private static ICollection <T> CopyFromRS <T>(ADODB.Recordset rs) where T : class, new()
{
HashSet <T> list = new HashSet <T>();
if (rs == null)
{
return(list);
}
if (!(rs.BOF && rs.EOF))
{
do
{
/*ThreadPool.QueueUserWorkItem(_ =>
* {
* AddObjectToList(list, rs);
* });*/
T obj = CreateObject <T>(rs);
list.Add(obj);
rs.MoveNext();
} while (!rs.EOF);
}
return(list);
}
private void getDisposeEndDate()
{
try {
string sql = "SELECT [年度], [股票代號], IsNull([處置時間迄],'') 處置結束日 FROM [處置股票] WHERE [年度] >= '" + DateTime.Today.AddMonths(-6).Year.ToString() + "' AND ";
string cStr = "";
foreach (string cID in data.Keys)
{
cStr += "'" + cID + "',";
}
if (cStr.Length > 0)
{
cStr = cStr.Substring(0, cStr.Length - 1);
}
sql += "[股票代號] IN (" + cStr + ") ORDER BY [股票代號] ,[處置時間迄] ";
ADODB.Recordset rs = cn.CMExecute(ref arg, srvLocation, cnPort, sql);
for (; !rs.EOF; rs.MoveNext())
{
string stockID = rs.Fields["股票代號"].Value;
string es = rs.Fields["處置結束日"].Value == null ? "" : rs.Fields["處置結束日"].Value;
if (es != "")
{
data[stockID].disposeEndDate = DateTime.ParseExact(es, "yyyyMMdd", null);
}
}
} catch (Exception ex) {
MessageBox.Show("getDisposeEndDate" + ex.Message);
//GlobalVar.errProcess.Add(1, "[CMoneyWork_getDisposeEndDates][" + ex.Message + "][" + ex.StackTrace + "]");
}
}
private static void AddObjectToList <T>(ICollection <T> list, ADODB.Recordset rs) where T : class, new()
{
try
{
try
{
if (rs.EOF)
{
return;
}
_rw.EnterUpgradeableReadLock();
T obj = CreateObject <T>(rs);
if (!(rs.EOF))
{
rs.MoveNext();
}
_rw.EnterWriteLock();
if (obj == null)
{
return;
}
list.Add(obj);
}
finally
{
_rw.ExitWriteLock();
}
}
finally
{
_rw.ExitUpgradeableReadLock();
}
}
private void returnButton_Click(object sender, EventArgs e)
{
Rscar.MoveFirst();
Rsuser.MoveFirst();
Boolean flag = false;
while (!Rsuser.EOF)
{
if (Rsuser.Fields["CarID"].Value == Convert.ToInt32(returnID.Text))
{
if (Rsuser.Fields["FirstName"].Value.Equals(returnFirstName.Text) && Rsuser.Fields["LastName"].Value.Equals(returnLastName))
{
flag = true;
break;
}
}
Rsuser.MoveNext();
}
if (flag == true)
{
while (!Rscar.EOF)
{
if (Rscar.Fields["CarID"].Value == Convert.ToInt32(returnID.Text))
{
Rsuser.Fields["Rent"].Value = "No";
Rsuser.Update();
Rscar.Fields["Availability"].Value = "Yes";
Rscar.Update();
}
}
}
}
private void coletadados()
{
ADODB.Recordset dados = new ADODB.Recordset();
ADODB.Recordset itens = new ADODB.Recordset();
String SQL = "SELECT * FROM SAÍDA WHERE (COD_SAI = " + _id + ");";
String SQLProdutos = "SELECT COD, ESTOQUE FORM PRODUTOS;";
//Buscando os itens
dados.Open(SQL, new Conexao().getDb4(), ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic);
itens.Open(SQLProdutos, new Conexao().getDb4(), ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic);
while (!(dados.EOF || dados.BOF))
{
itens.Find("cod =" + dados.Fields["[cod do CD]"].Value, 0, ADODB.SearchDirectionEnum.adSearchForward);
if (!(itens.BOF || itens.EOF))
{
itens.Fields["Estoque"].Value = Convert.ToInt64(itens.Fields["Estoque"].Value) + Convert.ToInt64(dados.Fields["Qunatidade"].Value);
}
dados.MoveNext();
}
//EXcluindo ITENS
SQL = "DELETE FROM SAÍDA WHERE (COD_SAI = " + _id + ");";
dados.Close();
dados.Open(SQL, new Conexao().getDb4(), ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic);
//Excluindo capa
SQL = "DELETE FROM cod_sai WHERE(COD_SAI = " + _id + ");";
dados.Close();
dados.Open(SQL, new Conexao().getDb4(), ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic);
}
private void menge_Produkt3_Button_Click(object sender, EventArgs e)
{
metroGrid3.Rows.Clear();
//Recordset
ADODB.Connection cn = new ADODB.Connection();
ADODB.Recordset rs = new ADODB.Recordset();
try
{
cn.Open(cnStr);
rs.Open("Select Artikel, Sum(Anzahl) as Anzahl_Menge From Listen where Endprodukt = 3 group by Artikel", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1);
int i = 0;
while (!rs.EOF)
{
metroGrid3.Rows.Add();
metroGrid3.Rows[i].Cells["Artikel_Mengen"].Value = Convert.ToInt32(rs.Fields["Artikel"].Value);
metroGrid3.Rows[i].Cells["Anzahl_Menge"].Value = Convert.ToInt32(rs.Fields["Anzahl_Menge"].Value);
rs.MoveNext();
i++;
}
rs.Close();
}
catch (Exception fehler)
{
Console.WriteLine("Ein Fehler ist aufgetreten", fehler); //Try catch überprüfen....
}
finally
{
cn.Close();
}
}
static List <MyParagraph> getTitleParagraphs(ADODB.Connection cnn, UInt64 titleId)
{
var paragraphLst = new List <MyParagraph>();
//get title
var qry = "select * from paragraphs where titleId = ? ";
var rst = new ADODB.Recordset();
rst.Open(qry.Replace("?", titleId.ToString()),
cnn, ADODB.CursorTypeEnum.adOpenKeyset,
ADODB.LockTypeEnum.adLockOptimistic,
(int)ADODB.CommandTypeEnum.adCmdText);
rst.MoveFirst();
while (!rst.EOF)
{
var par = new MyParagraph();
par.order = Convert.ToInt32(rst.Fields["order"].Value);
par.alignment = Convert.ToInt32(rst.Fields["alignment"].Value);
par.leftIndent = Convert.ToInt32(rst.Fields["leftIndent"].Value);
par.fontSize = Convert.ToInt32(rst.Fields["fontSize"].Value);
par.fontBold = Convert.ToInt32(rst.Fields["fontBold"].Value);
par.fontItalic = Convert.ToInt32(rst.Fields["fontItalic"].Value);
par.content = Convert.ToString(rst.Fields["content"].Value);
paragraphLst.Add(par);
rst.MoveNext();
}
rst.Close();
return(paragraphLst);
}
public string GetResMessage()
{
ADODB.Recordset reccust = null;
string resMessage = "";
try {
classE1_1.Open();
DbUse.open_ado_rec(classE1_1.globaldb, ref reccust, "zstblresults");
resMessage = "";
if (!reccust.EOF)
{
resMessage = resMessage + (string)reccust.Fields["Results"].Value;
reccust.MoveNext();
}
if (reccust != null)
{
reccust.Close();
reccust = null;
}
classE1_1.Close();
} catch (Exception ex) {
logFiles.ErrorLog(ex);
}
resMessage = resMessage.Replace("\n", "<br/>");
return(DbUse.reproduceRedColor(resMessage));
}
private bool IsFeatureEdited(int p_FID)
{
bool bReturn = false;
IGTJobManagementService oJobSrv = GTClassFactory.Create <IGTJobManagementService>();
oJobSrv.DataContext = DataContext;
ADODB.Recordset rs = oJobSrv.FindPendingEdits();
if (rs != null)
{
if (rs.RecordCount > 0)
{
rs.MoveFirst();
while (rs.EOF == false)
{
if (Convert.ToInt32(rs.Fields["g3e_fid"].Value) == p_FID && (Convert.ToInt32(rs.Fields["G3E_CNO"].Value) == 21 || Convert.ToInt32(rs.Fields["G3E_CNO"].Value) == 22))
{
bReturn = true;
break;
}
rs.MoveNext();
}
}
}
oJobSrv = null;
return(bReturn);
}
private void FarmerPayment_Load(object sender, EventArgs e)
{
Temp1.Open(@"select * from farmerpayment", Program.DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic);
if (Temp1.RecordCount == 0)
{
textBox1.Text = "1";
}
else
{
textBox1.Text = (Temp1.RecordCount + 1).ToString();
}
Temp1.Close();
textBox1.Enabled = false;
textBox2.Enabled = false;
Temp2.Open(@"select * from farmerdetails", Program.DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic);
while (Temp2.EOF == false)
{
Column1.Items.Add(Temp2.Fields["fNames"].Value.ToString());
Temp2.MoveNext();
}
Temp2.Close();
// comboBox2.Properties.DropDownStyle = ComboBoxStyle.DropDownList;
comboBox2.Properties.Items.Add("CASH");
comboBox2.Properties.Items.Add("CHEQUE");
label7.Visible = false;
textBox5.Visible = false;
dataGridView1.EditingControlShowing += new DataGridViewEditingControlShowingEventHandler(dataGrid1_Edit);
}
//--------------------------------------------------------------------------------------------
/// <summary>
/// This method will load the variables from the database. Default values are already set and will
/// be used if they can not be loaded from the database.
/// </summary>
private void LoadVariables()
{
try
{
//To be implemented in future versions.
//if (!File.Exists(vAssemblyPath + "mail.config.path"))
// this.SaveDefaultConfigSchema();
// LoadConfig();
ADODB.Recordset rs = Query(sqlnamevalue);
while (!rs.EOF)
{
switch (rs.Fields[0].Value.ToString().ToLower().Trim())
{
case "server_name":
server.ServerName = rs.Fields[1].Value.ToString().Trim();
break;
case "mail_path":
server.MailPath = rs.Fields[1].Value.ToString().Trim();
break;
case "smtp_path":
server.SmtpDirectory = rs.Fields[1].Value.ToString().Trim();
break;
}
rs.MoveNext();
}
}
catch (Exception e)
{
DebugOut("Unable to load settings from database.\r\n " + e.Message, true);
}
}
private void textBox1_KeyUp(object sender, KeyEventArgs e)
{
if (this.textBox1.Text == "")
{
this.comboBox1.Items.Clear();
this.comboBox1.Text = "";
}
else
{
this.comboBox1.Text = "";
string sql = GetQuery();
ADODB.Recordset AdoRs = new ADODB.Recordset();
if (GeneralCommon.M_CN1.State == 0)
{
if (GeneralCommon.GF_DbConnect() == false)
{
return;
}
}
AdoRs.Open(sql, GeneralCommon.M_CN1, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly, -1);
this.comboBox1.Items.Clear();
while (!AdoRs.EOF)
{
this.comboBox1.Items.Add(AdoRs.Fields[0].Value);
AdoRs.MoveNext();
}
}
}
private void getWarningScore()
{
try {
string sql = "SELECT [股票代號], [警示指標總符合數] FROM [月財務警示指標] WHERE [年月] = '" + DateTime.Today.ToString("yyyyMM") + "' AND ";
string cStr = "";
foreach (string cID in data.Keys)
{
cStr += "'" + cID + "',";
}
if (cStr.Length > 0)
{
cStr = cStr.Substring(0, cStr.Length - 1);
}
sql += "[股票代號] IN (" + cStr + ") ORDER BY [股票代號]";
ADODB.Recordset rs = cn.CMExecute(ref arg, srvLocation, cnPort, sql);
for (; !rs.EOF; rs.MoveNext())
{
string stockID = rs.Fields["股票代號"].Value;
int w = Convert.ToInt32(rs.Fields["警示指標總符合數"].Value);
data[stockID].warningScore = w;
}
} catch (Exception ex) {
MessageBox.Show("getWarningScore" + ex.Message);
//GlobalVar.errProcess.Add(1, "[CMoneyWork_getWarningScore][" + ex.Message + "][" + ex.StackTrace + "]");
}
}
protected bool WhatifExists(string whatifName)
{
bool exists = false;
ADODB.Recordset rec = new ADODB.Recordset();
DbUse.OpenAdoRec(classE1_1.globaldb, rec, "SELECT WID, Name FROM tblWhatif;");
try {
int i = 0;
while (!rec.EOF && !exists)
{
if (i == 0)
{
rec.MoveFirst();
}
else
{
rec.MoveNext();
}
exists = rec.Fields["Name"].Value.ToString().ToUpper().Equals(whatifName.ToUpper());
i++;
}
} catch (Exception) { }
DbUse.CloseAdoRec(rec);
return(exists);
}
private void ErgebnisseForm_LoadZugang(ADODB.Connection cn, ADODB.Recordset rs)
{
rs.Open("Select * From Lagerzugang", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1);
int i = 0;
while (!rs.EOF)
{
metroGrid1.Rows.Add();
metroGrid1.Rows[i].Cells["Artikelnummer_Zugang"].Value = rs.Fields["article"].Value;
metroGrid1.Rows[i].Cells["Bestellperiode_Zugang"].Value = rs.Fields["orderperiod"].Value;
// Überprüfung auf Eil oder Normalbestellung
if (Convert.ToInt32(rs.Fields["modus"].Value) == 4)
{
metroGrid1.Rows[i].Cells["Modus_Zugang"].Value = "Eil";
}
else if (Convert.ToInt32(rs.Fields["modus"].Value) == 5)
{
metroGrid1.Rows[i].Cells["Modus_Zugang"].Value = "Normal";
}
metroGrid1.Rows[i].Cells["Lieferzeit_Zugang"].Value = rs.Fields["Lieferzeit"].Value;
metroGrid1.Rows[i].Cells["Menge_Zugang"].Value = rs.Fields["amount"].Value;
metroGrid1.Rows[i].Cells["Preis_Zugang"].Value = rs.Fields["price"].Value;
rs.MoveNext();
++i;
}
i = 0;
rs.Close();
}
private void buildDataControls()
{
ADODB.Recordset rs = default(ADODB.Recordset);
rs = modRecordSet.getRS(ref "SELECT * FROM Channel ORDER BY ChannelID");
cmbCOD.Items.Clear();
cmbDelivery.Items.Clear();
string tmpString = null;
int m = 0;
while (!(rs.EOF))
{
tmpString = rs.Fields("Channel_Name").Value + " " + rs.Fields("ChannelID").Value;
m = cmbCOD.Items.Add(tmpString);
if (adoPrimaryRS.Fields("Pricelist_CODChannelID").Value == rs.Fields("ChannelID").Value)
{
cmbCOD.SelectedIndex = m;
}
tmpString = rs.Fields("Channel_Name").Value + " " + rs.Fields("ChannelID").Value;
m = cmbDelivery.Items.Add(tmpString);
if (adoPrimaryRS.Fields("Pricelist_DeliveryChannelID").Value == rs.Fields("ChannelID").Value)
{
cmbDelivery.SelectedIndex = m;
}
rs.MoveNext();
}
// doDataControl Me.cmbChannel, "SELECT ChannelID, Channel_Name FROM Channel ORDER BY ChannelID", "Customer_ChannelID", "ChannelID", "Channel_Name"
}
public bool loadFilter(ref string filter_Renamed)
{
bool functionReturnValue = false;
object modGeneral = null;
object lDOM = null;
object lNode = null;
ADODB.Recordset rs = new ADODB.Recordset();
ADODB.Recordset RSitem = new ADODB.Recordset();
short lCNT = 0;
rs = modRecordSet.getRS(ref "SELECT ftSet.* From ftSet Where (((ftSet.ftSet_Group) = '" + Strings.Replace(filter_Renamed, "'", "''") + "')) ORDER BY ftSet.ftSet_Order;");
if (rs.BOF | rs.EOF) {
functionReturnValue = false;
} else {
lCNT = -1;
objectArray = new object[rs.RecordCount];
while (!(rs.EOF)) {
lCNT = lCNT + 1;
switch (rs.Fields("ftset_type").Value) {
case 2:
if (lCNT) {
this.Controls.Add(_frmList_0);
//_frmList_0.Controls.Add(lCNT)
//_cmdList_0.Load(lCNT)
cmdList[lCNT].Parent = frmList[lCNT];
//lblList.Load(lCNT)
lblList[lCNT].Parent = frmList[lCNT];
}
frmList[lCNT].Visible = true;
cmdList[lCNT].Visible = true;
lblList[lCNT].Visible = true;
frmList[lCNT].Top = sizeConvertors.twipsToPixels(sizeConvertors.pixelToTwips(frmList[0].Top, false) + lCNT * sizeConvertors.pixelToTwips(frmList[0].Height, false), false);
frmList[lCNT].Text = rs.Fields("ftset_DisplayName").Value;
frmList[lCNT].Tag = rs.Fields("ftset_Name").Value;
lblList[lCNT].Text = "";
RSitem = modRecordSet.getRS(ref "SELECT ftData_Heading From ftData WHERE (ftData_PersonID = " + modRecordSet.gPersonID + ") AND (ftData_FieldName = '" + Strings.Replace(frmList[lCNT].Tag, "'", "''") + "')");
if (RSitem.BOF | RSitem.EOF) {
} else {
lblList[lCNT].Text = RSitem.Fields("ftData_Heading").Value;
}
objectArray[lCNT] = frmList[lCNT];
break;
case 1:
if (lCNT) {
//frmString.Load(lCNT)
//txtString.Load(lCNT)
_txtString_0.Parent = frmString[lCNT];
}
_frmString_0.Visible = true;
_txtString_0.Visible = true;
_frmString_0.Top = sizeConvertors.twipsToPixels(sizeConvertors.pixelToTwips(frmList[0].Top, false) + lCNT * sizeConvertors.pixelToTwips(frmList[0].Height, false), false);
_frmString_0.Text = lNode.selectSingleNode("@name").Text;
_frmString_0.Tag = lNode.selectSingleNode("@id").Text;
_txtString_0.Text = "";
lDOM = modGeneral.lsData.sql("SELECT ftData_Data From ftData WHERE (ftData_PersonID = " + modRecordSet.gPersonID + ") AND (ftData_FieldName = '" + Strings.Replace(frmString[lCNT].Tag, "'", "''") + "')");
if (lDOM == null) {
} else {
if (lDOM.documentElement.selectSingleNode("/root/ftData/@ftData_Data") == null) {
} else {
_txtString_0.Text = lDOM.documentElement.selectSingleNode("/root/ftData/@ftData_Data").Text;
}
}
_txtString_0.Tag = _txtString_0.Text;
objectArray[lCNT] = _frmString_0;
break;
}
rs.MoveNext();
}
this.Height = sizeConvertors.twipsToPixels(objectArray[Information.UBound(objectArray)].Top + objectArray[Information.UBound(objectArray)].Height + 1000, false);
loadLanguage();
ShowDialog();
//UPGRADE_WARNING: Couldn't resolve default property of object loadFilter. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
functionReturnValue = true;
}
return functionReturnValue;
}
private void cmdInv_Click(System.Object eventSender, System.EventArgs eventArgs)
{
CrystalDecisions.CrystalReports.Engine.ReportDocument ReportNone = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
int personID = 0;
int posID = 0;
string[] lArray = null;
string lAddress = null;
//On Error Resume Next
ADODB.Connection cn = default(ADODB.Connection);
short x = 0;
string databaseName = null;
int lID = 0;
CrystalDecisions.CrystalReports.Engine.ReportDocument Report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
ADODB.Recordset rs = default(ADODB.Recordset);
ADODB.Recordset rsItems = default(ADODB.Recordset);
string sql = null;
//UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor;
if (lvTransaction.FocusedItem == null)
return;
//lID = Mid(Split(Me.lvTransaction.SelectedItem.Key, "_")(0), 2)
if (Convert.ToDouble(Strings.Split(this.lvTransaction.FocusedItem.Name, "_")[2]) == 0) {
Interaction.MsgBox("There is no Sale document attached!", MsgBoxStyle.Information);
System.Windows.Forms.Cursor.Current = Cursors.Default;
return;
}
lID = Convert.ToInt32(Strings.Split(this.lvTransaction.FocusedItem.Name, "_")[2]);
//If openConnection() Then
// frmMain.lblPath.Caption = serverPath
// closeConnection
//End If
//Set cn = openConnectionInstance()
//lMonth = cmbMonth.ItemData(cmbMonth.ListIndex)
//Dim lLineitem As lineitem
//If lMonth = gMonthEnd Then
// databaseName = ""
//Else
// databaseName = "Month" & lMonth & ".mdb"
//End If
databaseName = Strings.Split(this.lvTransaction.FocusedItem.Name, "_")[1];
cn = modRecordSet.openConnectionInstance(ref databaseName);
if (cn == null) {
return;
}
transaction lTransaction = new transaction();
lineItem lLineitem = null;
customer lCustomer = new customer();
transactionSpecial lSpecial = new transactionSpecial();
if (Convert.ToDouble(Strings.Split(this.lvTransaction.FocusedItem.Name, "_")[3]) == 2) {
//sale
//Dim Report As New cryReceipt
//Set Report = New cryReceipt
rs = new ADODB.Recordset();
sql = "SELECT Sale.* From Sale WHERE (((SaleID)=" + lID + "));";
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
if (rs.RecordCount) {
lTransaction.cashierID = rs.Fields("Sale_PersonID").Value;
lTransaction.channelID = rs.Fields("Sale_ChannelID").Value;
lTransaction.managerID = rs.Fields("Sale_ManagerID").Value;
lTransaction.paymentDiscount = rs.Fields("Sale_Discount").Value;
lTransaction.paymentSlip = rs.Fields("Sale_Slip").Value;
lTransaction.paymentSubTotal = rs.Fields("Sale_SubTotal").Value;
lTransaction.paymentTender = rs.Fields("Sale_Tender").Value;
lTransaction.paymentTotal = rs.Fields("Sale_Total").Value;
lTransaction.paymentType = rs.Fields("Sale_PaymentType").Value;
lTransaction.posID = rs.Fields("Sale_POSID").Value;
lTransaction.transactionDate = rs.Fields("Sale_DatePOS").Value;
lTransaction.transactionID = rs.Fields("Sale_Reference").Value + "";
lTransaction.transactionType = "Sale";
//If prPrevSerial_p = True Then strSerial = rs("Sale_Serialref")
rs.Close();
rs = modRecordSet.getRS(ref "SELECT * FROM Company");
lTransaction.companyName = rs.Fields("Company_Name").Value;
//gParameters.companyName
lTransaction.footer = " ";
//gParameters.footer & ""
lTransaction.heading1 = rs.Fields("Company_PhysicalAddress").Value;
//gParameters.heading1 & ""
lTransaction.heading2 = " ";
//gParameters.heading2 & ""
lTransaction.heading3 = " ";
//gParameters.heading3 & ""
lTransaction.taxNumber = rs.Fields("Company_TaxNumber").Value;
//gParameters.taxNumber & ""
rs.Close();
sql = "SELECT [Person_FirstName] & ' ' & [Person_LastName] AS personName From Person WHERE (((PersonID)=" + lTransaction.cashierID + "));";
rs = modRecordSet.getRS(ref sql);
//rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
if (rs.RecordCount) {
lTransaction.cashierName = rs.Fields("personName").Value + "";
}
rs.Close();
sql = "SELECT [Person_FirstName] & ' ' & [Person_LastName] AS personName From Person WHERE (((PersonID)=" + lTransaction.managerID + "));";
rs = modRecordSet.getRS(ref sql);
//rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
if (rs.RecordCount) {
lTransaction.managerName = rs.Fields("personName").Value + "";
}
rs.Close();
sql = "SELECT POS_Name From POS WHERE (((POS.POSID)=" + lTransaction.posID + "));";
rs = modRecordSet.getRS(ref sql);
//rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
if (rs.RecordCount) {
lTransaction.posName = rs.Fields("POS_Name").Value + "";
}
rs.Close();
//sql = "SELECT SaleItem.*, StockItem.StockItem_Name AS longName, StockItem.StockItem_ReceiptName AS receiptName, Catalogue.Catalogue_Barcode AS code,'Sale' as saleType FROM (StockItem INNER JOIN SaleItem ON StockItem.StockItemID = SaleItem.SaleItem_StockItemID) INNER JOIN Catalogue ON (Catalogue.Catalogue_Quantity = SaleItem.SaleItem_ShrinkQuantity) AND (SaleItem.SaleItem_StockItemID = Catalogue.Catalogue_StockItemID) WHERE (((SaleItem.SaleItem_DepositType)=0) AND ((SaleItem.SaleItem_SaleID)=" & lID & "))"
//sql = sql & " UNION "
//sql = sql & "SELECT SaleItem.*, Deposit.Deposit_Name AS longName, Deposit.Deposit_ReceiptName AS receiptName, Deposit.Deposit_Key AS code,'Deposit' as saleType FROM Deposit INNER JOIN SaleItem ON Deposit.DepositID = SaleItem.SaleItem_StockItemID WHERE (((SaleItem.SaleItem_DepositType)<>0) AND ((SaleItem.SaleItem_SaleID)=" & lID & "));"
sql = "SELECT SaleItem.*, 'Sale' AS saleType From SaleItem Where (((SaleItem.SaleItem_DepositType) = 0) And ((SaleItem.SaleItem_SaleID) = " + lID + "))";
sql = sql + " UNION ";
sql = sql + "SELECT SaleItem.*, 'Deposit' AS saleType From SaleItem WHERE (((SaleItem.SaleItem_DepositType)<>0) AND ((SaleItem.SaleItem_SaleID)=" + lID + "));";
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
while (!(rs.EOF)) {
lLineitem = new lineItem();
lLineitem.build = 0;
lLineitem.depositType = rs.Fields("SaleItem_DepositType").Value;
lLineitem.id = rs.Fields("SaleItem_StockItemID").Value;
lLineitem.lineNo = rs.Fields("SaleItem_LineNo").Value;
lLineitem.originalPrice = rs.Fields("SaleItem_PriceOriginal").Value;
lLineitem.price = rs.Fields("SaleItem_Price").Value;
lLineitem.quantity = rs.Fields("SaleItem_Quantity").Value;
lLineitem.reversal = rs.Fields("SaleItem_Reversal").Value;
lLineitem.revoke = rs.Fields("SaleItem_Revoke").Value;
lLineitem.setBuild = rs.Fields("SaleItem_SetID").Value;
lLineitem.shrink = rs.Fields("SaleItem_ShrinkQuantity").Value;
lLineitem.vat = rs.Fields("SaleItem_Vat").Value;
lLineitem.transactionType = rs.Fields("SaleType").Value + "";
//lLineitem.code = rs("Code") & ""
switch (lLineitem.depositType) {
case 0:
sql = "SELECT StockItem.StockItem_Name AS longName, StockItem.StockItem_ReceiptName AS receiptName From StockItem WHERE (((StockItemID)=" + rs.Fields("SaleItem_StockItemID").Value + "));";
rsItems = modRecordSet.getRS(ref sql);
if (rsItems.RecordCount) {
lLineitem.name = rs.Fields("SaleItem_ShrinkQuantity").Value + " x " + rsItems.Fields("longName").Value;
lLineitem.receiptName = rs.Fields("SaleItem_ShrinkQuantity").Value + "x" + rsItems.Fields("receiptName").Value;
}
rsItems.Close();
sql = "SELECT Catalogue.Catalogue_Barcode AS code FROM Catalogue WHERE (Catalogue.Catalogue_Quantity = " + rs.Fields("SaleItem_ShrinkQuantity").Value + ") AND (Catalogue.Catalogue_StockItemID = " + rs.Fields("SaleItem_StockItemID").Value + ");";
rsItems = modRecordSet.getRS(ref sql);
if (rsItems.RecordCount) {
lLineitem.code = rsItems.Fields("Code").Value + "";
}
rsItems.Close();
break;
case 1:
sql = "SELECT Deposit.Deposit_Name AS longName, Deposit.Deposit_ReceiptName AS receiptName, Deposit.Deposit_Key AS code From Deposit WHERE (((DepositID)=" + rs.Fields("SaleItem_StockItemID").Value + "));";
rsItems = modRecordSet.getRS(ref sql);
if (rsItems.RecordCount) {
lLineitem.name = rs.Fields("longName").Value + "-Unit";
lLineitem.receiptName = rs.Fields("receiptName").Value + "(U)";
lLineitem.code = rsItems.Fields("Code").Value + "";
}
rsItems.Close();
break;
case 2:
sql = "SELECT Deposit.Deposit_Name AS longName, Deposit.Deposit_ReceiptName AS receiptName, Deposit.Deposit_Key AS code From Deposit WHERE (((DepositID)=" + rs.Fields("SaleItem_StockItemID").Value + "));";
rsItems = modRecordSet.getRS(ref sql);
if (rsItems.RecordCount) {
lLineitem.name = rs.Fields("longName").Value + "-Empty Crate";
lLineitem.receiptName = rs.Fields("receiptName").Value + "(E)";
lLineitem.code = rsItems.Fields("Code").Value + "";
}
rsItems.Close();
break;
case 3:
sql = "SELECT Deposit.Deposit_Name AS longName, Deposit.Deposit_ReceiptName AS receiptName, Deposit.Deposit_Key AS code From Deposit WHERE (((DepositID)=" + rs.Fields("SaleItem_StockItemID").Value + "));";
rsItems = modRecordSet.getRS(ref sql);
if (rsItems.RecordCount) {
lLineitem.name = rs.Fields("longName").Value + "-Full Case";
lLineitem.receiptName = rs.Fields("receiptName").Value + "(F)";
lLineitem.code = rsItems.Fields("Code").Value + "";
}
rsItems.Close();
break;
}
lTransaction.lineItems.Add(ref lLineitem);
rs.MoveNext();
}
rs.Close();
sql = "SELECT Customer.*, CustomerTransaction.* FROM (CustomerTransaction INNER JOIN Sale ON CustomerTransaction.CustomerTransaction_ReferenceID = Sale.SaleID) INNER JOIN Customer ON CustomerTransaction.CustomerTransaction_CustomerID = Customer.CustomerID WHERE (((Sale.SaleID)=" + lID + "));";
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
if (rs.RecordCount) {
lCustomer.channelID = lTransaction.channelID;
lCustomer.creditLimit = rs.Fields("Customer_ChannelID").Value;
lCustomer.department = rs.Fields("Customer_DepartmentName").Value + "";
lCustomer.fax = rs.Fields("Customer_Fax").Value + "";
lCustomer.Key = rs.Fields("CustomerID").Value;
lCustomer.name = rs.Fields("Customer_InvoiceName").Value + "";
lCustomer.outstanding = 0;
lCustomer.person = rs.Fields("Customer_FirstName").Value + " " + rs.Fields("Customer_Surname").Value;
lCustomer.physical = rs.Fields("Customer_PhysicalAddress").Value + "";
lCustomer.postal = rs.Fields("Customer_PostalAddress").Value + "";
lCustomer.signed_Renamed = rs.Fields("CustomerTransaction_PersonName").Value;
lCustomer.telephone = rs.Fields("Customer_Telephone").Value + "";
lCustomer.terms = Convert.ToInt16(rs.Fields("Customer_Terms").Value + "");
lCustomer.tax = rs.Fields("Customer_VatNumber").Value + "";
if (rs.Fields("CustomerTransaction_TransactionTypeID").Value == 3) {
lTransaction.transactionType = "Payment";
lTransaction.paymentDiscount = 0;
}
lTransaction.customer_Renamed = lCustomer;
}
rs.Close();
sql = "SELECT Consignment.* FROM Consignment INNER JOIN Sale ON Consignment.Consignment_SaleID = Sale.SaleID WHERE (((Sale.SaleID)=" + lID + "));";
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
if (rs.BOF & rs.EOF) {
} else {
lSpecial.address = rs.Fields("Consignment_Address").Value;
lSpecial.mobile = rs.Fields("Consignment_Mobile").Value;
lSpecial.name = rs.Fields("Consignment_Name").Value;
lSpecial.quote = 0;
lSpecial.saleID = lID;
lSpecial.telephone = rs.Fields("Consignment_Number").Value;
lSpecial.transactionType = "Consignment";
lTransaction.transactionSpecial_Renamed = lSpecial;
}
rs.Close();
sql = "SELECT Consignment.* FROM Consignment INNER JOIN Sale ON Consignment.Consignment_CompleteSaleID = Sale.SaleID WHERE (((Sale.SaleID)=" + lID + "));";
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
if (rs.BOF & rs.EOF) {
} else {
lSpecial.address = rs.Fields("Consignment_Address").Value;
lSpecial.mobile = rs.Fields("Consignment_Mobile").Value;
lSpecial.name = rs.Fields("Consignment_Name").Value;
lSpecial.quote = 0;
lSpecial.saleID = lID;
lSpecial.telephone = rs.Fields("Consignment_Number").Value;
lSpecial.transactionType = "Consignment Complete";
lTransaction.transactionSpecial_Renamed = lSpecial;
}
printTransactionA4(ref lTransaction);
}
} else if (Convert.ToDouble(Strings.Split(this.lvTransaction.FocusedItem.Name, "_")[3]) == 3) {
//payment
//Dim Report As New cryPayment
Report.Load("cryPayment.rpt");
rs = modRecordSet.getRS(ref "SELECT * FROM Company");
Report.SetParameterValue("txtCompanyName", rs.Fields("Company_Name"));
if (Information.IsDBNull(rs.Fields("Company_PhysicalAddress").Value)) {
} else {
lAddress = Strings.Replace(rs.Fields("Company_PhysicalAddress").Value, Constants.vbCrLf, ", ");
if (Strings.Right(lAddress, 2) == ", ") {
lAddress = Strings.Left(lAddress, Strings.Len(lAddress) - 2);
}
}
Report.SetParameterValue("txtCompanyDetails1", lAddress);
if (Information.IsDBNull(rs.Fields("Company_Telephone").Value)) {
} else {
Report.SetParameterValue("txtCompanyDetails2", rs.Fields("Company_Telephone"));
}
if (Information.IsDBNull(rs.Fields("Company_TaxNumber").Value)) {
} else {
Report.SetParameterValue("txtCompanyDetails4", "TAX NO :" + rs.Fields("Company_TaxNumber").Value);
}
//If lTransaction.heading2 <> "" Then
// Report.txtCompanyDetails2.SetText lTransaction.heading2
// If lTransaction.heading3 <> "" Then
// Report.txtCompanyDetails3.SetText lTransaction.heading3
//
// Else
// If lTransaction.taxNumber <> "" Then
// Report.txtCompanyDetails4.SetText "TAX NO :" & lTransaction.taxNumber
// End If
// End If
//Else
// If lTransaction.heading3 <> "" Then
// Report.txtCompanyDetails2.SetText lTransaction.heading3
// Else
// If lTransaction.taxNumber <> "" Then
// Report.txtCompanyDetails2.SetText "TAX NO :" & lTransaction.taxNumber
// End If
// End If
//End If
rs.Close();
Report.SetParameterValue("txtCustomer", _txtFields_2.Text);
if (!string.IsNullOrEmpty(_txtFields_6.Text)) {
lArray = Strings.Split(_txtFields_6.Text, Constants.vbCrLf);
Report.SetParameterValue("txtCustAddress1", lArray[0]);
if (Information.UBound(lArray) >= 1)
Report.SetParameterValue("txtCustAddress2", lArray[1]);
if (Information.UBound(lArray) >= 2)
Report.SetParameterValue("txtCustAddress3", lArray[2]);
if (Information.UBound(lArray) >= 3)
Report.SetParameterValue("txtCustAddress4", lArray[3]);
}
if (!string.IsNullOrEmpty(_txtFields_0.Text))
Report.SetParameterValue("txtCustAddress5", "TAX NO: " + _txtFields_0.Text);
//If LCase(databaseName) = "pricing.mdb" Then
// sql = "SELECT Sale.SaleID, POS.POS_Name, Person.Person_FirstName, Person.Person_LastName, Sale.Sale_Date, Sale.Sale_DatePOS, Sale.Sale_Reference, Sale.Sale_Total, Sale.Sale_Tender FROM (Sale INNER JOIN POS ON Sale.Sale_PosID = POS.POSID) INNER JOIN Person ON Sale.Sale_PersonID = Person.PersonID WHERE (((Sale.SaleID)=" & lID & "));"
//Else
// sql = "SELECT Sale.SaleID, POS.POS_Name, M_Person.Person_FirstName, M_Person.Person_LastName, Sale.Sale_Date, Sale.Sale_DatePOS, Sale.Sale_Reference, Sale.Sale_Total, Sale.Sale_Tender FROM (Sale INNER JOIN POS ON Sale.Sale_PosID = POS.POSID) INNER JOIN M_Person ON Sale.Sale_PersonID = M_Person.PersonID WHERE (((Sale.SaleID)=" & lID & "));"
//End If
//sql = "SELECT Sale.SaleID, POS.POS_Name, Person.Person_FirstName, Person.Person_LastName, Sale.Sale_Date, Sale.Sale_DatePOS, Sale.Sale_Reference, Sale.Sale_Total, Sale.Sale_Tender FROM (Sale INNER JOIN POS ON Sale.Sale_PosID = POS.POSID) INNER JOIN Person ON Sale.Sale_PersonID = Person.PersonID WHERE (((Sale.SaleID)=" & lID & "));"
sql = "SELECT Sale.* From Sale WHERE (((SaleID)=" + lID + "));";
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
if (rs.RecordCount) {
posID = rs.Fields("Sale_PosID").Value;
personID = rs.Fields("Sale_PersonID").Value;
Report.SetParameterValue("txtInvoiceNumber", rs.Fields("Sale_Reference"));
Report.SetParameterValue("txtInvoiceDate", Strings.Format(rs.Fields("Sale_DatePOS").Value, "dd mmm yyyy hh:mm"));
//Report.txtPOS.SetText rs("POS_Name")
//Report.txtCashier.SetText rs("Person_FirstName") & rs("Person_LastName")
Report.SetParameterValue("txtAmount", Strings.FormatNumber(rs.Fields("Sale_Total").Value, 2));
Report.SetParameterValue("txtChange", Strings.FormatNumber(rs.Fields("Sale_Tender").Value - rs.Fields("Sale_Total").Value, 2));
// lTransaction.paymentTotal - lTransaction.paymentTender, 2)
Report.SetParameterValue("txtTender", Strings.FormatNumber(rs.Fields("Sale_Tender").Value, 2));
// lTransaction.paymentTender, 2)
//Report.txtPaidBy.SetText lTransaction.customer.signed
Report.ReportDefinition.Sections("txtPaidBy").SectionFormat.EnableSuppress = true;
rs.Close();
sql = "SELECT [Person_FirstName] & ' ' & [Person_LastName] AS personName From Person WHERE (((PersonID)=" + personID + "));";
rs = modRecordSet.getRS(ref sql);
if (rs.RecordCount) {
Report.SetParameterValue("txtCashier", rs.Fields("personName").Value + "");
}
rs.Close();
sql = "SELECT POS_Name From POS WHERE (((POS.POSID)=" + posID + "));";
rs = modRecordSet.getRS(ref sql);
if (rs.RecordCount) {
Report.SetParameterValue("txtPOS", rs.Fields("POS_Name").Value + "");
}
rs.Close();
sql = "SELECT CustomerTransaction.CustomerTransaction_TransactionTypeID, CustomerTransaction.CustomerTransaction_Amount, CustomerTransaction.CustomerTransaction_ReferenceID From CustomerTransaction WHERE (((CustomerTransaction.CustomerTransaction_TransactionTypeID)=8) AND ((CustomerTransaction.CustomerTransaction_ReferenceID)=" + lID + "));";
Debug.Print(sql);
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
if (rs.RecordCount) {
Report.SetParameterValue("txtSettlement", Strings.FormatNumber(rs.Fields("CustomerTransaction_Amount").Value, 2));
} else {
Report.SetParameterValue("txtSettlement", Strings.FormatNumber("0.00", 2));
}
My.MyProject.Forms.frmReportShow.Text = "Customer Statement";
My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = Report;
My.MyProject.Forms.frmReportShow.mReport = Report;
My.MyProject.Forms.frmReportShow.sMode = "0";
My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
My.MyProject.Forms.frmReportShow.ShowDialog();
} else {
ReportNone.Load("cryNoRecords.rpt");
ReportNone.SetParameterValue("txtCompanyName", rs.Fields("Company_Name"));
ReportNone.SetParameterValue("txtTitle", "Customer Statement");
//UPGRADE_WARNING: Couldn't resolve default property of object ReportNone.txtTitle. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
My.MyProject.Forms.frmReportShow.Text = ReportNone.ParameterFields("txtTitle").ToString;
My.MyProject.Forms.frmReportShow.CRViewer1.ReportSource = ReportNone;
My.MyProject.Forms.frmReportShow.mReport = ReportNone;
My.MyProject.Forms.frmReportShow.sMode = "0";
My.MyProject.Forms.frmReportShow.CRViewer1.Refresh();
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default;
My.MyProject.Forms.frmReportShow.ShowDialog();
return;
}
}
}
public string getAddress()
{
try
{
Position PoiX = new Position();
PoiX.X = Lat; PoiX.Y = Lon;
double tempLen = 1000000;
string tempTown = "";
ADODB.Recordset RST = new ADODB.Recordset();
string sqlSTR = "SELECT name,the_geom FROM mergedpoints WHERE the_geom && 'BOX3D(" +
(Lon - 0.5) + " " + (Lat - 0.5) + "," + (Lon + 0.5) + " " + (Lat + 0.5) +
") '::box3d AND distance( the_geom, GeometryFromText( 'POINT(" + Lon + " " + Lat +
")', -1 ) ) < 0.5";
string sqlSTROther = "SELECT name,the_geom FROM mergedpoints WHERE the_geom && 'BOX3D(" +
(Lon - 6) + " " + (Lat - 6) + "," + (Lon + 6) + " " + (Lat + 6) +
") '::box3d AND distance( the_geom, GeometryFromText( 'POINT(" + Lon + " " + Lat +
")', -1 ) ) < 7";
RST.Open(sqlSTR, this.odbcDatabaseConnection, ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic, 0);
if (RST.EOF == true)
{
try { RST.Close(); }
catch { }
RST.Open(sqlSTROther, this.odbcDatabaseConnection, ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic, 0);
}
if (RST.EOF == false)
{
RST.MoveFirst();
while (RST.EOF == false)
{
string Coord = RST.Fields["the_geom"].Value.ToString();
int Len = Coord.Length;
Coord = Right(Coord, (Len - 14));
Len = Coord.Length;
Coord = Mid(Coord, 0, (Len - 1));
char[] SepChar = { ' ' };
Array coordArray = Coord.Split(SepChar);
double xlon = Convert.ToDouble(coordArray.GetValue(0).ToString());
double xlat = Convert.ToDouble(coordArray.GetValue(1).ToString());
Position PoiY = new Position();
PoiY.X = xlat; PoiY.Y = xlon;
Calculations calc = new Calculations();
double xLen = calc.CalculateDistace(PoiX, PoiY);
//MessageBox.Show(xLen.ToString());
if (xLen < tempLen)
{
tempLen = xLen;
tempTown = RST.Fields["name"].Value.ToString();
}
//PoiY = null;
coordArray = null;
RST.MoveNext();
}
RST.Close();
RST = null;
}
if (tempLen != 1000000)
{
string retVal = Decimal.Round((decimal)tempLen, 3).ToString();
return retVal + "Km From " + tempTown;
}
else
{
return " ";
}
}
catch (System.Exception qw) { return " "; }
}
static void Main(string[] args)
{
ADODB.Connection conn = null;
ADODB.Recordset rs = null;
try
{
////////////////////////////////////////////////////////////////////////////////
// 连接数据源.
//
Console.WriteLine("正在连接数据库 ...");
// 获取连接字符串
string connStr = string.Format("Provider=SQLOLEDB;Data Source={0};Initial Catalog={1};Integrated Security=SSPI",
".\\sqlexpress", "SQLServer2005DB");
// 打开连接
conn = new ADODB.Connection();
conn.Open(connStr, null, null, 0);
////////////////////////////////////////////////////////////////////////////////
// 编写并执行ADO命令.
// 可以是SQL指令(SELECT/UPDATE/INSERT/DELETE),或是调用存储过程.
// 此处是一个INSERT命令示例.
//
Console.WriteLine("将一条记录插入表CountryRegion中...");
// 1. 生成一个Command对象
ADODB.Command cmdInsert = new ADODB.Command();
// 2. 将连接赋值于命令
cmdInsert.ActiveConnection = conn;
// 3. 设置命令文本
// SQL指令或者存储过程名
cmdInsert.CommandText = "INSERT INTO CountryRegion(CountryRegionCode, Name, ModifiedDate)"
+ " VALUES (?, ?, ?)";
// 4. 设置命令类型
// ADODB.CommandTypeEnum.adCmdText 用于普通的SQL指令;
// ADODB.CommandTypeEnum.adCmdStoredProc 用于存储过程.
cmdInsert.CommandType = ADODB.CommandTypeEnum.adCmdText;
// 5. 添加参数
// CountryRegionCode (nvarchar(20)参数的添加
ADODB.Parameter paramCode = cmdInsert.CreateParameter(
"CountryRegionCode", // 参数名
ADODB.DataTypeEnum.adVarChar, // 参数类型 (nvarchar(20))
ADODB.ParameterDirectionEnum.adParamInput, // 参数类型
20, // 参数的最大长度
"ZZ"+DateTime.Now.Millisecond); // 参数值
cmdInsert.Parameters.Append(paramCode);
// Name (nvarchar(200))参数的添加
ADODB.Parameter paramName = cmdInsert.CreateParameter(
"Name", // 参数名
ADODB.DataTypeEnum.adVarChar, // 参数类型 (nvarchar(200))
ADODB.ParameterDirectionEnum.adParamInput, // 参数传递方向
200, // 参数的最大长度
"Test Region Name"); // 参数值
cmdInsert.Parameters.Append(paramName);
// ModifiedDate (datetime)参数的添加
ADODB.Parameter paramModifiedDate = cmdInsert.CreateParameter(
"ModifiedDate", // 参数名
ADODB.DataTypeEnum.adDate, // 参数类型 (datetime)
ADODB.ParameterDirectionEnum.adParamInput, // 参数传递方向
-1, // 参数的最大长度 (datetime忽视该值)
DateTime.Now); // 参数值
cmdInsert.Parameters.Append(paramModifiedDate);
// 6. 执行命令
object nRecordsAffected = Type.Missing;
object oParams = Type.Missing;
cmdInsert.Execute(out nRecordsAffected, ref oParams,
(int)ADODB.ExecuteOptionEnum.adExecuteNoRecords);
////////////////////////////////////////////////////////////////////////////////
// 使用Recordset对象.
// http://msdn.microsoft.com/en-us/library/ms681510.aspx
// Recordset表示了数据表中记录或执行命令获得的结果的集合。
// 在任何时候， Recordset对象都指向集合中的单条记录，并将
// 该记录作为它的当前记录。
//
Console.WriteLine("列出表CountryRegion中的所有记录");
// 1. 生成Recordset对象
rs = new ADODB.Recordset();
// 2. 打开Recordset对象
string strSelectCmd = "SELECT * FROM CountryRegion"; // WHERE ...
rs.Open(strSelectCmd, // SQL指令/表,视图名 /
// 存储过程调用 /文件名
conn, // 连接对象/连接字符串
ADODB.CursorTypeEnum.adOpenForwardOnly, // 游标类型. (只进游标)
ADODB.LockTypeEnum.adLockOptimistic, // 锁定类型. (仅当需要调用
// 更新方法时，才锁定记录）
(int)ADODB.CommandTypeEnum.adCmdText); // 将第一个参数视为SQL命令
// 或存储过程.
// 3. 通过向前移动游标列举记录
// 移动到Recordset中的第一条记录
rs.MoveFirst();
while (!rs.EOF)
{
// 当在表中定义了一个可空字段，需要检验字段中的值是否为DBNull.Value.
string code = (rs.Fields["CountryRegionCode"].Value == DBNull.Value) ?
"(DBNull)" : rs.Fields["CountryRegionCode"].Value.ToString();
string name = (rs.Fields["Name"].Value == DBNull.Value) ?
"(DBNull)" : rs.Fields["Name"].Value.ToString();
DateTime modifiedDate = (rs.Fields["ModifiedDate"].Value == DBNull.Value) ?
DateTime.MinValue : (DateTime)rs.Fields["ModifiedDate"].Value;
Console.WriteLine(" {2} \t{0}\t{1}", code, name, modifiedDate.ToString("yyyy-MM-dd"));
// 移动到下一条记录
rs.MoveNext();
}
}
catch (Exception ex)
{
Console.WriteLine("应用程序出现错误: {0}", ex.Message);
if (ex.InnerException != null)
Console.WriteLine("描述: {0}", ex.InnerException.Message);
}
finally
{
////////////////////////////////////////////////////////////////////////////////
// 退出前清理对象.
//
Console.WriteLine("正在关闭连接 ...");
// 关闭record set，当它处于打开状态时
if (rs != null && rs.State == (int)ADODB.ObjectStateEnum.adStateOpen)
rs.Close();
// 关闭数据库连接，当它处于打开状态时
if (conn != null && conn.State == (int)ADODB.ObjectStateEnum.adStateOpen)
conn.Close();
}
}
private void backgroundWorker_DoWork(object sender, DoWorkEventArgs e)
{
try
{
BackgroundParameter bObj = e.Argument as BackgroundParameter;
string url = bObj.url;
string querySuffix = bObj.querySuffix;
Uri uriFujiRDS = new Uri(url);
ProgressObject pObj = new ProgressObject();
backgroundWorker.ReportProgress(0, pObj);
DateTime dtime = dateTimePickerStart.Value;
string dateStart = dtime.ToString("yyyy-MM-dd HH:mm:ss");
string dateEnd = dtime.AddHours(double.Parse(bObj.duration)).ToString("yyyy-MM-dd HH:mm:ss");
//dateTimePickerEnd.Value.ToString("yyyy-MM-dd HH:mm:ss");
string query = String.Format(@"select * from storage s,document d,study_document sd,study st,patient p,procedure_info pi
where d.id = sd.document_uid
and s.id=d.storage_uid
and st.id=sd.study_uid
and p.id=st.patient_uid
and pi.id=st.procedure_info_uid
and d.name='Notes'
and d.creation_timedate between to_date('{0}','YYYY-MM-DD HH24:MI:SS') and to_date('{1}','YYYY-MM-DD HH24:MI:SS')", dateStart, dateEnd);
query += querySuffix;
ADODB.Recordset rs = new ADODB.Recordset();
byte[] result = retrieveRDS(uriFujiRDS, query);
if (result == null) return;
string tempfile = Path.GetTempFileName();
ByteArrayToFile(tempfile, result);
rs.Open(tempfile, "Provider=MSPersist", ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, 0);
string notefile = Path.GetTempFileName();
//** Eliminating this code due to apparent unreliability of WebClient with redirects
//WebClient client = new WebClient();
//client.Credentials = myCredentialCache;
//client.UseDefaultCredentials = true;
dt = new DataTable();
dt.Columns.Add("Name", typeof(string));
dt.Columns.Add("MRN", typeof(string));
dt.Columns.Add("Accession", typeof(string));
dt.Columns.Add("Procedure", typeof(string));
dt.Columns.Add("Study Time", typeof(string));
dt.Columns.Add("Note Time", typeof(string));
dt.Columns.Add("Note", typeof(string));
dt.Columns.Add("Reports", typeof(string));
DateTime lastprogress = DateTime.Now;
while (!rs.EOF)
{
string http_url = rs.Fields["http_url"].Value.ToString();
string https_url = rs.Fields["https_url"].Value.ToString();
string accnum = rs.Fields["ris_study_euid"].Value.ToString();
string proc = rs.Fields["description"].Value.ToString();
string proc_code = rs.Fields["code"].Value.ToString();
string filename = rs.Fields["filename"].Value.ToString();
string mrn = rs.Fields["internal_euid"].Value.ToString();
string lastname = rs.Fields["last_name"].Value.ToString();
string firstname = rs.Fields["first_name"].Value.ToString();
string middlename = rs.Fields["middle_name"].Value.ToString();
string study_time = ((DateTime)rs.Fields["study_timedate"].Value).ToString("s").Replace('T', ' ');
string creation_time = ((DateTime)rs.Fields["creation_timedate"].Value).ToString("s").Replace('T', ' ');
if (url.StartsWith("https"))
{
filename = https_url + filename;
}
else
{
filename = http_url + filename;
}
string note = "";
try
{
downloadFile(filename, notefile);
//client.DownloadFile(filename, notefile);
note = parseNote(notefile);
}
catch (Exception ex)
{
note = String.Format("Error downloading note at {0}: {1}", filename, ex.Message);
}
string name = (lastname + ", " + firstname + " " + middlename).Trim();
dt.Rows.Add(name, mrn, accnum, proc, study_time, creation_time, note, "");
rs.MoveNext();
pObj.dt = dt;
backgroundWorker.ReportProgress(0, pObj);
}
rs.Close();
File.Delete(tempfile);
int totalNotes = dt.Rows.Count;
int current = 0;
foreach (DataRow dr in dt.Rows)
{
// Retrieve reports here
query = String.Format(@"select * from storage s,document d,study_document sd,study st
where d.id = sd.document_uid
and s.id=d.storage_uid
and st.id=sd.study_uid
and d.name='Report'
and st.ris_study_euid='{0}'
order by d.creation_timedate", dr["Accession"]);
//dr["Reports"] = query;
result = retrieveRDS(uriFujiRDS, query);
if (result == null) return;
tempfile = Path.GetTempFileName();
ByteArrayToFile(tempfile, result);
rs.Open(tempfile, "Provider=MSPersist", ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, 0);
string report = "";
while (!rs.EOF)
{
string http_url = rs.Fields["http_url"].Value.ToString();
string https_url = rs.Fields["https_url"].Value.ToString();
string doctype = rs.Fields["name"].Value.ToString();
string filename = rs.Fields["filename"].Value.ToString();
if (url.StartsWith("https"))
{
filename = https_url + filename;
}
else
{
filename = http_url + filename;
}
try
{
downloadFile(filename, notefile);
//client.DownloadFile(filename, notefile);
report += parseReport(notefile, url);
}
catch (Exception ex)
{
report += String.Format("Error downloading report at {0}: {1}", filename, ex.Message);
}
rs.MoveNext();
if (!rs.EOF) report += "\r\n\r\n======\r\n\r\n";
}
rs.Close();
File.Delete(tempfile);
dr["Reports"] = report;
current += 1;
if ((DateTime.Now - lastprogress).Milliseconds > 50)
{
backgroundWorker.ReportProgress(current * 100 / totalNotes, pObj);
lastprogress = DateTime.Now;
}
}
File.Delete(notefile);
pObj.updateDT = true;
backgroundWorker.ReportProgress(100, pObj);
}
catch (Exception ex)
{
labelStatus.Text = ex.Message;
}
}
public static Boolean bExportDataToSql(String sDatabaseLocation, Boolean bDebug)
{
clsLog clsLog_ = new clsLog(msLogFile, msVersionData);
clsError clsError_ = new clsError();
ADODB.Connection conn = new ADODB.Connection();
ADODB.Recordset rs = new ADODB.Recordset();
clsLog_.mLog(Constants.gcInfo, "Exporting data to sql ...");
String sSql;
String sSqlfile = sDatabaseLocation + "\\data\\OneLanData.sql";
String sString = null;
String sPropertyInsertIntoHeader = null;
String sAccomInsertIntoHeader = null;
Int16 i = 0;
//String sSql = null;
// Variable to hold website information - needed to strip any single quotes out
String sWebsite = null;
if (bDebug) { clsLog_.mLog(Constants.gcInfo, sIndent + "onelan.bExportDataToSql, sSqlfile = " + sSqlfile); }
try
{
// Open connection to database
conn.Open(gcDSN + sDatabaseLocation + "\\" + gsOneLanDatabase);
// Remove previous versions of the file
if (File.Exists(sSqlfile)) { File.Delete(sSqlfile); }
// Open streamwriter obbject
StreamWriter sw = File.AppendText(sSqlfile);
// Set the insert commands
sw.WriteLine("-- File : "+ sSqlfile);
sw.WriteLine("-- Date : " + DateTime.Now.ToString("dd-MMM-yyyy HH:mm:ss"));
sw.WriteLine("-- Author : auto-sgenerated / NRE www.rmount.co.uk");
sw.WriteLine("-- Client : Raeburn Christie, Aberdeen");
sw.WriteLine("-- Purpose : Repopulate Raeburn mysql database of property data, for use in property screens");
sw.WriteLine("");
sw.WriteLine("-- To apply mysql -pusername -ppassword < " + sSqlfile);
sw.WriteLine("");
sw.WriteLine("-- Purge accom table ...");
sw.WriteLine("DELETE FROM accom;");
sw.WriteLine("-- Purge Property table ...");
sw.WriteLine("DELETE FROM property;");
sw.WriteLine("");
sw.WriteLine("-- Repopulate Property table ...");
sPropertyInsertIntoHeader = " INSERT INTO `property` (`PropID`, `PropertyAddress1`, `PropertyAddress2`, `PropertyAddress3`, `Price`, `OffersOverEtc`, `ClosingDate`, `UnderOffer`, `PropertyAddress4`, `Postcode`, `RCCWOffice`) VALUES";
sAccomInsertIntoHeader = "INSERT INTO `accom` (`PropID`, `Accom`, `Website`) VALUES";
// Open the recordset
//rs.Open("SELECT * FROM property ORDER BY PropID", conn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockOptimistic, -1);
sSql= "SELECT PropID" +
" , PropertyAddress1" +
" , PropertyAddress2" +
" , PropertyAddress3" +
" , Price" +
" , OffersOverEtc" +
" , Format(ClosingDate,'YYYY-MM-DD HH:NN:SS') as cd" +
" , UnderOffer" +
" , PropertyAddress4" +
" , Postcode" +
" , RCCWOffice" +
" FROM property" +
" ORDER BY PropID";
clsLog_.mLog("INFO", "property extract sql = " + sSql);
rs.Open (sSql,conn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockOptimistic, -1);
if (!rs.EOF)
{
sw.WriteLine(sPropertyInsertIntoHeader);
while (!rs.EOF)
{
if (i == 150)
{
sw.WriteLine(sPropertyInsertIntoHeader);
i = 0;
}
// sString = "(" + rs.Fields["PropID"].Value + ",'" +
// rs.Fields["PropertyAddress1"].Value + "','" +
// rs.Fields["PropertyAddress2"].Value + "','" +
// rs.Fields["PropertyAddress3"].Value + "'," +
// rs.Fields["Price"].Value + ",'" +
// rs.Fields["OffersOverEtc"].Value + "','" +
// rs.Fields["ClosingDate"].Value + "','" +
// rs.Fields["UnderOffer"].Value + "','" +
// rs.Fields["PropertyAddress4"].Value + "','" +
// rs.Fields["Postcode"].Value + "','" +
// rs.Fields["RCCWOffice"].Value + "')";
sString = "(" + rs.Fields["PropID"].Value + ",'" +
rs.Fields["PropertyAddress1"].Value + "','" +
rs.Fields["PropertyAddress2"].Value + "','" +
rs.Fields["PropertyAddress3"].Value + "'," +
rs.Fields["Price"].Value + ",'" +
rs.Fields["OffersOverEtc"].Value + "','" +
rs.Fields["cd"].Value + "','" +
rs.Fields["UnderOffer"].Value + "','" +
rs.Fields["PropertyAddress4"].Value + "','" +
rs.Fields["Postcode"].Value + "','" +
rs.Fields["RCCWOffice"].Value + "')";
//sString = " i = " + i + ", PropID = " + rs.Fields["PropID"].Value;
i++;
if (i<150)
{sString = sString + ",";
}
else
{
sString = sString + ";";
}
rs.MoveNext();
// Replace '' with NULL
sString = sString.Replace("''", "NULL");
// Force mysql null date format
sString = sString.Replace("30/12/1899 00:00:00", "1899-12-30 00:00:00");
if (!rs.EOF) { sw.WriteLine(sString); }
// end while
}
// End if
}
//sw.Close();
rs.Close();
// Replace last comma with a semi colon
// Replace '' with NULL
//sString = sString.Replace("''", "NULL");
sString = sString.Remove(sString.Length - 1, 1) + ";";
// Add the last line
sw.WriteLine(sString);
//
// Now do the accom
sw.WriteLine("");
sw.WriteLine("-- Purge accom table ...");
sw.WriteLine("DELETE FROM accom;");
sw.WriteLine("");
sw.WriteLine("-- Repopulate accom table ...");
rs.Open("SELECT * FROM accom ORDER BY PropID", conn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockOptimistic, -1);
if (!rs.EOF)
{
sw.WriteLine(sAccomInsertIntoHeader);
while (!rs.EOF)
{
if (i == 150)
{
sw.WriteLine(sAccomInsertIntoHeader);
i = 0;
}
sWebsite = "";
sWebsite = rs.Fields["Website"].Value;
// strip any single quotes off website information
sWebsite = sWebsite.Replace("'", "");
sString = "(" + rs.Fields["PropID"].Value + "," +
"NULL" + ",'" +
sWebsite + "')";
i++;
if (i < 150)
{
sString = sString + ",";
}
else
{
sString = sString + ";";
}
rs.MoveNext();
// Replace '' with NULL
sString = sString.Replace("''", "NULL");
if (!rs.EOF) { sw.WriteLine(sString); }
// end while
}
// End if
}
//sw.Close();
rs.Close();
// Replace last comma with a semi colon
// Replace '' with NULL
sString = sString.Replace("''", "NULL");
sString = sString.Remove(sString.Length - 1, 1) + ";";
// Add the last line
sw.WriteLine(sString);
sw.Close();
return true;
}
catch (Exception e)
{
clsError_.mLogError("Problem exporting data to sql", "onelan", "bExportDataToSql", e, msVersionData, msLogFile, false);
return false;
}
// End of export data to ssql
}
public void ImportPartBom()
{
string partPath = "http://nwszmail/public/namwah/Parts2/Parts/";
string strSQL = "";
ADODB.Connection cnn = new ADODB.Connection();
ADODB.Recordset rst = new ADODB.Recordset();
//Item item;
session.BeginTransaction();
XPCollection<BomLine> bLines = new XPCollection<BomLine>(session);
session.Delete(bLines);
session.Save(bLines);
session.CommitTransaction();
Part part;
Dictionary<string, Part> dictPart = new Dictionary<string, Part>();
CacheItem();
ConnectDB(cnn, partPath);
strSQL = "SELECT \"nw:partno\", \"nw:material\", \"nw:part:tmxrefno\", \"nw:rout1:resoption\", \"nw:rout1:resourceno\", \"nw:rout1:type\", ";
strSQL = strSQL + " \"nw:bom:list:partno\", \"nw:bom:list:qty\" ";
strSQL = strSQL + " FROM \"" + partPath ;
strSQL = strSQL + "\" WHERE (\"DAV:ishidden\" = false)";
rst.Open(strSQL, cnn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockBatchOptimistic, 1);
while (!rst.EOF)
{
part = new Part();
part.partNo = rst.Fields["nw:partno"].Value.ToString();
part.bomNo = rst.Fields["nw:bom:list:partno"].Value.ToString();
part.bomQty = rst.Fields["nw:bom:list:qty"].Value.ToString();
part.resOption = bool.Parse(rst.Fields["nw:rout1:resoption"].Value.ToString());
part.resourceNo = rst.Fields["nw:rout1:resourceno"].Value.ToString();
part.routType = rst.Fields["nw:rout1:type"].Value.ToString();
if (dictPart.ContainsKey(part.partNo) == false)
dictPart.Add(part.partNo, part);
rst.MoveNext();
}
session.BeginTransaction();
foreach (Item item in dictItem.Values )
{
//int rout = 0;
if (dictPart.ContainsKey(item.ItemNo))
{
part = dictPart[item.ItemNo];
// if (item.ItemNo.EndsWith("P01"))
// System.Diagnostics.Debug.WriteLine(item.ItemNo);
bool resOption;
do
{
resOption = part.resOption;
if (part.resOption && part.bomNo == "")
{
// Insert Route;
if (dictPart.ContainsKey(part.resourceNo))
part = dictPart[part.resourceNo];
else
break;
}
else
{
// Insert BOM;
resOption = false;
if (part.resourceNo == "bom" && part.bomNo != "")
{
string[] bPartNo = Regex.Split(part.bomNo, ",");
string[] bQty = Regex.Split(part.bomQty, ",");
int i = 0;
foreach (string bNo in bPartNo)
{
if (dictItem.ContainsKey(bNo))
{
BomLine bomLine = new BomLine(session);
bomLine.BomItem = dictItem[bNo];
bomLine.Item = item; //dictItem[item.ItemNo];
bomLine.PerSeries = 1;
int b;
if (int.TryParse(bQty[i], out b))
bomLine.Qty = int.Parse(bQty[i]);
else
bomLine.Qty = 1;
bomLine.Save();
}
else
{
System.Diagnostics.Debug.Write(bNo);
}
i++;
}
item.Save();
}
else
if (part.resourceNo != "" && part.resourceNo != "bom" && dictItem.ContainsKey(part.resourceNo))
{
BomLine bomLine = new BomLine(session);
bomLine.BomItem = dictItem[part.resourceNo];
bomLine.Item = item; //dictItem[part.partNo];
bomLine.PerSeries = 1;
bomLine.Qty = 1;
bomLine.Save();
item.Save();
}
}
}
while (resOption);
}
}
session.CommitTransaction();
}
public void CopyTable(ADOX.Table tblAccess)
{
ADODB.Recordset recMaster = new ADODB.Recordset();
ADODB.Recordset recLoop = new ADODB.Recordset();
int intLoop = 0;
string strInfile = "";
string strSQL = "SELECT ";
string strRecord;
string strLoadFilePath = strSourceDbPath.Replace("\\", "\\\\");
string strFileName = strTempPath + tblAccess.Name + ".txt";
StreamWriter sw = new StreamWriter(strFileName, false);
//create the infile
strInfile += "LOAD DATA LOCAL INFILE '" + strFileName + "' INTO TABLE " + strMySQLDBName + "." + tblAccess.Name + " ";
strInfile += "FIELDS TERMINATED BY ',' ";
strInfile += "ESCAPED BY '\\\\' ";
strInfile += "LINES TERMINATED BY 0x0d0a ";
strInfile += "(";
//loop through fields to enumerate them for the infile and build a select statement
for (intLoop = 0; intLoop < tblAccess.Columns.Count; intLoop++)
{
strInfile += MySQLName((tblAccess.Columns[intLoop].Name));
switch (tblAccess.Columns[intLoop].Type)
{
case ADOX.DataTypeEnum.adDate: //convert to MySQL datetime format
strSQL += "FORMAT([" + tblAccess.Columns[intLoop].Name + "], 'YYYY-MM-DD HH:MM:SS') as " + tblAccess.Columns[intLoop].Name;
break;
default:
strSQL += "[" + tblAccess.Columns[intLoop].Name + "]";
break;
}
if (intLoop < tblAccess.Columns.Count - 1)
{
strSQL += ",";
strInfile += ", ";
}
}
strInfile += ");";
strSQL += " FROM [" + tblAccess.Name + "]";
//open the "Master" recordset
recMaster.CursorLocation = ADODB.CursorLocationEnum.adUseClient;
recMaster.Open(strSQL, conJCMS_db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic, 0);
//create the "Loop" recordset, this is a clone of the master, with the exception
//that the definedsize for text fields is lengthened. This is because the added
//escape characters could potentially exceed the field length in the master recordset
recLoop.CursorLocation = ADODB.CursorLocationEnum.adUseClient;
ADODB.Fields fdsLoop = recLoop.Fields;
ADODB.Fields fdsMaster = recMaster.Fields;
foreach (ADODB.Field fldIn in fdsMaster)
{
if (fldIn.Type.ToString().IndexOf("Char") > 0)
{
fdsLoop.Append(fldIn.Name,
fldIn.Type,
fldIn.DefinedSize + 30,
ADODB.FieldAttributeEnum.adFldIsNullable,
null);
}
else
{
fdsLoop.Append(fldIn.Name,
fldIn.Type,
fldIn.DefinedSize,
ADODB.FieldAttributeEnum.adFldIsNullable,
null);
}
}
recLoop.Open(System.Reflection.Missing.Value, System.Reflection.Missing.Value, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic, 0);
recLoop.AddNew(System.Reflection.Missing.Value, System.Reflection.Missing.Value);
while (!recMaster.EOF)
{
for (int columnIndex = 0; columnIndex < recMaster.Fields.Count; columnIndex++)
{
recLoop.Fields[columnIndex].Value = recMaster.Fields[columnIndex].Value;
if (recLoop.Fields[columnIndex].Value.ToString().Length > 0)
{
if ((recLoop.Fields[columnIndex].Value.ToString().IndexOf("\\", 0) + 1) > 0)
{
recLoop.Fields[columnIndex].Value = recLoop.Fields[columnIndex].Value.ToString().Replace("\\", "\\\\");
}
if ((recLoop.Fields[columnIndex].Value.ToString().IndexOf(",", 0) + 1) > 0)
{
recLoop.Fields[columnIndex].Value = recLoop.Fields[columnIndex].Value.ToString().Replace(",", "\\,");
}
if ((recLoop.Fields[columnIndex].Value.ToString().IndexOf(System.Environment.NewLine, 0) + 1) > 0)
{
recLoop.Fields[columnIndex].Value = recLoop.Fields[columnIndex].Value.ToString().Replace(System.Environment.NewLine, " ");
}
}
}
strRecord = recLoop.GetString(ADODB.StringFormatEnum.adClipString, 1, ",", System.Environment.NewLine, "\\N");
recLoop.MovePrevious();
sw.Write(strRecord);
recMaster.MoveNext();
}
recMaster.Close();
recMaster.ActiveConnection = null;
try
{
recLoop.Close();
}
catch
{
}
sw.Close();
ExecuteSQL(strInfile);
File.Delete(strFileName);
recLoop = null;
}
private void DataList1_DblClick(System.Object eventSender, KeyPressEventArgs eventArgs)
{
ADODB.Recordset rs = default(ADODB.Recordset);
ADODB.Recordset rst = default(ADODB.Recordset);
ADODB.Recordset rsInner = default(ADODB.Recordset);
ADODB.Recordset rsShelf = default(ADODB.Recordset);
ADODB.Recordset rsBClabel = default(ADODB.Recordset);
short HoldBClabelItem_BCLabelID = 0;
string TheSample = null;
short IntLabelID = 0;
short IncrBClabelID = 0;
rs = new ADODB.Recordset();
rst = new ADODB.Recordset();
rsInner = new ADODB.Recordset();
rsShelf = new ADODB.Recordset();
rsBClabel = new ADODB.Recordset();
short TheeMaxID = 0;
modRecordSet.cnnDB.Execute("DELETE * FROM BClabel;");
modRecordSet.cnnDB.Execute("DELETE * FROM BClabelItem;");
modApplication.IntDesign = 1;
//New code
HoldBClabelItem_BCLabelID = 1;
rs = modRecordSet.getRS(ref "SELECT BClabel.*, BClabelItem.* FROM BClabel INNER JOIN BClabelItem ON BClabel.BClabelID = BClabelItem.BClabelItem_BCLabelID");
if (rs.RecordCount > 0) {
if (string.IsNullOrEmpty(Strings.Trim(DataList1.CurrentCell.Value.ToString()))) {
if (modApplication.TheType == 2) {
Interaction.MsgBox("Please select Stock Barcode Design and click Next", MsgBoxStyle.Information, "4Pos Back Office");
return;
} else {
Interaction.MsgBox("Please select Shelf Talker Design and click Next", MsgBoxStyle.Information, "4Pos Back Office");
return;
}
} else {
}
modApplication.MyLIDWHole = Convert.ToInt16(DataList1.CurrentCell.Value);
rs = modRecordSet.getRS(ref "SELECT BClabel.*, BClabelItem.* FROM BClabel INNER JOIN BClabelItem ON BClabel.BClabel_LabelID = BClabelItem.BClabelItem_LabelID WHERE BClabelItem.BClabelItem_LabelID=" + modApplication.MyLIDWHole + "");
if (rs.RecordCount == 0) {
IncrBClabelID = 1;
rsInner = modRecordSet.getRS(ref "SELECT Label.*, LabelItem.* FROM Label INNER JOIN LabelItem ON Label.LabelID = LabelItem.labelItem_LabelID WHERE Label.Label_Type=2;");
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES('Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
//Set rsBClabel = getRS("INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(1,'Stock','Stock','" & 0 & "',15," & rsInner("LabelID") & ")")
while (!(rsInner.EOF)) {
//****
//Inserting information into BCLabel
//***
if (string.IsNullOrEmpty(Strings.Trim(rsInner.Fields("labelItem_Sample").Value))) {
TheSample = " ";
//UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
} else if (Information.IsDBNull(rsInner.Fields("labelItem_Sample").Value)) {
TheSample = " ";
} else {
TheSample = rsInner.Fields("labelItem_Sample").Value;
}
rst = modRecordSet.getRS(ref "INSERT INTO BClabelItem(BClabelItem_BCLabelID,BClabelItem_Line,BClabelItem_Field,BClabelItem_Align,BClabelItem_Size,BClabelItem_Bold,BClabelItem_Sample,BClabelItem_Disabled,BClabelItem_LabelID)VALUES(" + HoldBClabelItem_BCLabelID + "," + rsInner.Fields("labelItem_Line").Value + ",'" + rsInner.Fields("labelItem_Field").Value + "'," + rsInner.Fields("labelItem_Align").Value + "," + rsInner.Fields("labelItem_Size").Value + "," + rsInner.Fields("labelItem_Bold").Value + ",'" + TheSample + "','" + 0 + "'," + rsInner.Fields("labelItem_LabelID").Value + ")");
IntLabelID = rsInner.Fields("labelItem_LabelID").Value;
rsInner.MoveNext();
//****
//If the ID is still for the same design then dont increment HoldBClabelItem_BCLabelID
//****
// ERROR: Not supported in C#: OnErrorStatement
if (IntLabelID != rsInner.Fields("labelItem_LabelID").Value) {
HoldBClabelItem_BCLabelID = HoldBClabelItem_BCLabelID + 1;
IncrBClabelID = IncrBClabelID + 1;
if (rsInner.Fields("Label_Top").Value == 3) {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + IncrBClabelID + ",'Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
} else {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + IncrBClabelID + ",'Stock','Stock','" + 0 + "',30," + rsInner.Fields("LabelID").Value + ")");
}
} else {
}
}
rst = modRecordSet.getRS(ref "SELECT Max(BClabelID) As MaxLaID FROM BClabel");
//Dim TheeMaxID As Integer
TheeMaxID = rst.Fields("MaxLaID").Value;
rsInner = modRecordSet.getRS(ref "SELECT Label.*, LabelItem.* FROM Label INNER JOIN LabelItem ON Label.LabelID = LabelItem.labelItem_LabelID WHERE Label.Label_Type=1;");
//****
//Inserting For shelf talker
//****
TheeMaxID = TheeMaxID + 1;
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + IncrBClabelID + ",'Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
while (!(rsInner.EOF)) {
//****
//Inserting information into BCLabel
//***
if (string.IsNullOrEmpty(Strings.Trim(rsInner.Fields("labelItem_Sample").Value))) {
TheSample = " ";
//UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
} else if (Information.IsDBNull(rsInner.Fields("labelItem_Sample").Value)) {
TheSample = " ";
} else {
TheSample = rsInner.Fields("labelItem_Sample").Value;
}
rst = modRecordSet.getRS(ref "INSERT INTO BClabelItem(BClabelItem_BCLabelID,BClabelItem_Line,BClabelItem_Field,BClabelItem_Align,BClabelItem_Size,BClabelItem_Bold,BClabelItem_Sample,BClabelItem_Disabled,BClabelItem_LabelID)VALUES(" + TheeMaxID + "," + rsInner.Fields("labelItem_Line").Value + ",'" + rsInner.Fields("labelItem_Field").Value + "'," + rsInner.Fields("labelItem_Align").Value + "," + rsInner.Fields("labelItem_Size").Value + "," + rsInner.Fields("labelItem_Bold").Value + ",'" + TheSample + "','" + 0 + "'," + rsInner.Fields("labelItem_LabelID").Value + ")");
IntLabelID = rsInner.Fields("labelItem_LabelID").Value;
rsInner.MoveNext();
//****
//If the ID is still for the same design then dont increment HoldBClabelItem_BCLabelID
//****
if (IntLabelID != rsInner.Fields("labelItem_LabelID").Value) {
TheeMaxID = TheeMaxID + 1;
//IncrBClabelID = IncrBClabelID + 1
if (rsInner.Fields("Label_Top").Value == 3) {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + TheeMaxID + ",'Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
} else {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + TheeMaxID + ",'Stock','Stock','" + 0 + "',30," + rsInner.Fields("LabelID").Value + ")");
}
} else {
}
}
//***
//For new database
//***
if (modApplication.IntDesign1 != 2) {
if (string.IsNullOrEmpty(Strings.Trim(DataList1.CurrentCell.Value.ToString()))) {
if (modApplication.TheType == 2) {
Interaction.MsgBox("Please select Stock Barcode Design and click Next", MsgBoxStyle.Information, "4Pos Back Office");
return;
} else {
Interaction.MsgBox("Please select Shelf Talker Design and click Next", MsgBoxStyle.Information, "4Pos Back Office");
return;
}
} else {
}
} else {
modApplication.IntDesign = 0;
}
if (modApplication.IntDesign1 == 2) {
modApplication.IntDesign1 = 0;
cmdNew_Click(cmdnew, new System.EventArgs());
return;
}
modApplication.MyLIDWHole = Convert.ToInt16(DataList1.CurrentCell.Value);
rs = modRecordSet.getRS(ref "SELECT BClabel.*, BClabelItem.* FROM BClabel INNER JOIN BClabelItem ON BClabel.BClabel_LabelID = BClabelItem.BClabelItem_LabelID WHERE BClabelItem.BClabelItem_LabelID=" + modApplication.MyLIDWHole + "");
modApplication.RecSel = rs.Fields("BClabelID").Value;
//UPGRADE_NOTE: Text was upgraded to CtlText. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
modApplication.SelectLabelName = DataList1.CurrentCell.Value.ToString();
My.MyProject.Forms.frmBarcodeLoad.ShowDialog();
} else {
modApplication.RecSel = rs.Fields("BClabelID").Value;
//UPGRADE_NOTE: Text was upgraded to CtlText. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
modApplication.SelectLabelName = DataList1.CurrentCell.Value.ToString();
My.MyProject.Forms.frmBarcodeLoad.ShowDialog();
}
} else if (rs.RecordCount < 1) {
//Set rsInner = getRS("SELECT Label.*, LabelItem.* FROM Label INNER JOIN LabelItem ON Label.LabelID = LabelItem.labelItem_LabelID WHERE Label.Label_Type=2;")
IncrBClabelID = 1;
rsInner = modRecordSet.getRS(ref "SELECT Label.*, LabelItem.* FROM Label INNER JOIN LabelItem ON Label.LabelID = LabelItem.labelItem_LabelID WHERE Label.Label_Type=2;");
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(1,'Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
while (!(rsInner.EOF)) {
//****
//Inserting information into BCLabel
//***
if (string.IsNullOrEmpty(Strings.Trim(rsInner.Fields("labelItem_Sample").Value))) {
TheSample = " ";
//UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
} else if (Information.IsDBNull(rsInner.Fields("labelItem_Sample").Value)) {
TheSample = " ";
} else {
TheSample = rsInner.Fields("labelItem_Sample").Value;
}
rst = modRecordSet.getRS(ref "INSERT INTO BClabelItem(BClabelItem_BCLabelID,BClabelItem_Line,BClabelItem_Field,BClabelItem_Align,BClabelItem_Size,BClabelItem_Bold,BClabelItem_Sample,BClabelItem_Disabled,BClabelItem_LabelID)VALUES(" + HoldBClabelItem_BCLabelID + "," + rsInner.Fields("labelItem_Line").Value + ",'" + rsInner.Fields("labelItem_Field").Value + "'," + rsInner.Fields("labelItem_Align").Value + "," + rsInner.Fields("labelItem_Size").Value + "," + rsInner.Fields("labelItem_Bold").Value + ",'" + TheSample + "','" + 0 + "'," + rsInner.Fields("labelItem_LabelID").Value + ")");
IntLabelID = rsInner.Fields("labelItem_LabelID").Value;
rsInner.MoveNext();
//****
//If the ID is still for the same design then dont increment HoldBClabelItem_BCLabelID
//****
// ERROR: Not supported in C#: OnErrorStatement
if (IntLabelID != rsInner.Fields("labelItem_LabelID").Value) {
HoldBClabelItem_BCLabelID = HoldBClabelItem_BCLabelID + 1;
IncrBClabelID = IncrBClabelID + 1;
if (rsInner.Fields("Label_Top").Value == 3) {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + IncrBClabelID + ",'Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
} else {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + IncrBClabelID + ",'Stock','Stock','" + 0 + "',30," + rsInner.Fields("LabelID").Value + ")");
}
} else {
}
}
rst = modRecordSet.getRS(ref "SELECT Max(BClabelID) As MaxLaID FROM BClabel");
//Dim TheeMaxID As Integer
TheeMaxID = rst.Fields("MaxLaID").Value;
rsInner = modRecordSet.getRS(ref "SELECT Label.*, LabelItem.* FROM Label INNER JOIN LabelItem ON Label.LabelID = LabelItem.labelItem_LabelID WHERE Label.Label_Type=1;");
//****
//Inserting For shelf talker
//****
TheeMaxID = TheeMaxID + 1;
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + IncrBClabelID + ",'Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
while (!(rsInner.EOF)) {
//****
//Inserting information into BCLabel
//***
if (string.IsNullOrEmpty(Strings.Trim(rsInner.Fields("labelItem_Sample").Value))) {
TheSample = " ";
//UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
} else if (Information.IsDBNull(rsInner.Fields("labelItem_Sample").Value)) {
TheSample = " ";
} else {
TheSample = rsInner.Fields("labelItem_Sample").Value;
}
rst = modRecordSet.getRS(ref "INSERT INTO BClabelItem(BClabelItem_BCLabelID,BClabelItem_Line,BClabelItem_Field,BClabelItem_Align,BClabelItem_Size,BClabelItem_Bold,BClabelItem_Sample,BClabelItem_Disabled,BClabelItem_LabelID)VALUES(" + TheeMaxID + "," + rsInner.Fields("labelItem_Line").Value + ",'" + rsInner.Fields("labelItem_Field").Value + "'," + rsInner.Fields("labelItem_Align").Value + "," + rsInner.Fields("labelItem_Size").Value + "," + rsInner.Fields("labelItem_Bold").Value + ",'" + TheSample + "','" + 0 + "'," + rsInner.Fields("labelItem_LabelID").Value + ")");
IntLabelID = rsInner.Fields("labelItem_LabelID").Value;
rsInner.MoveNext();
//****
//If the ID is still for the same design then dont increment HoldBClabelItem_BCLabelID
//****
if (IntLabelID != rsInner.Fields("labelItem_LabelID").Value) {
TheeMaxID = TheeMaxID + 1;
//IncrBClabelID = IncrBClabelID + 1
if (rsInner.Fields("Label_Top").Value == 3) {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + TheeMaxID + ",'Stock','Stock','" + 0 + "',15," + rsInner.Fields("LabelID").Value + ")");
} else {
rsBClabel = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + TheeMaxID + ",'Stock','Stock','" + 0 + "',30," + rsInner.Fields("LabelID").Value + ")");
}
} else {
}
}
//***
//For new database
//***
if (modApplication.IntDesign1 != 2) {
if (string.IsNullOrEmpty(Strings.Trim(DataList1.CurrentCell.Value.ToString()))) {
if (modApplication.TheType == 2) {
Interaction.MsgBox("Please select Stock Barcode Design and click Next", MsgBoxStyle.Information, "4Pos Back Office");
return;
} else {
Interaction.MsgBox("Please select Shelf Talker Design and click Next", MsgBoxStyle.Information, "4Pos Back Office");
return;
}
} else {
}
} else {
modApplication.IntDesign = 0;
}
if (modApplication.IntDesign1 == 2) {
modApplication.IntDesign1 = 0;
cmdNew_Click(cmdnew, new System.EventArgs());
return;
}
modApplication.MyLIDWHole = Convert.ToInt16(DataList1.CurrentCell.Value);
rs = modRecordSet.getRS(ref "SELECT BClabel.*, BClabelItem.* FROM BClabel INNER JOIN BClabelItem ON BClabel.BClabel_LabelID = BClabelItem.BClabelItem_LabelID WHERE BClabelItem.BClabelItem_LabelID=" + modApplication.MyLIDWHole + "");
modApplication.RecSel = rs.Fields("BClabelID").Value;
//UPGRADE_NOTE: Text was upgraded to CtlText. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
modApplication.SelectLabelName = DataList1.CurrentCell.Value.ToString();
My.MyProject.Forms.frmBarcodeLoad.ShowDialog();
}
//*** if statement for checking BClabel and BClabelItem =0 end here
}
private void cmdPrintHistory_Click(System.Object eventSender, System.EventArgs eventArgs)
{
int i = 0;
int x = 0;
string sql = null;
string databaseName = null;
short y = 0;
short lMonth = 0;
ADODB.Connection cn = default(ADODB.Connection);
ADODB.Recordset rs = new ADODB.Recordset();
bool bReset = false;
// ERROR: Not supported in C#: OnErrorStatement
//If cmdShowHistory.Caption = "Show Full History " Then
// cmdShowHistory.Caption = "Show Current Month"
//ElseIf cmdShowHistory.Caption = "Show Full History" Then
// cmdShowHistory.Caption = "Show Current Month"
//Else
// cmdShowHistory.Caption = "Show Full History "
// cmdsearch_Click
// Exit Sub
//End If
if (gLoading)
return;
gLoading = true;
Cursor = System.Windows.Forms.Cursors.WaitCursor;
System.Windows.Forms.Application.DoEvents();
y = cmbMonth.Items.Count - 1;
//lvTransaction.ListItems.Clear
//lblcount.Caption = "0 of 0"
//lvTransaction.Visible = False
sql = "DELETE tempCustomerHistory.* FROM tempCustomerHistory;";
modRecordSet.cnnDB.Execute(sql);
string lPosString = null;
//(cmbMonth.ListCount - 1)
for (i = 0; i <= y; i++) {
lMonth = Convert.ToInt32(cmbMonth.SelectedItem(i));
if (lMonth == gMonthEnd) {
databaseName = "pricing.mdb";
} else {
databaseName = "Month" + lMonth + ".mdb";
}
cn = modRecordSet.openConnectionInstance(ref databaseName);
if (cn == null) {
goto nextMonth;
//Exit Sub
}
//Dim lString As String
//Dim lCustomerString As String
//Dim lStockString As String
if (this.cmbPOS.SelectedIndex)
lPosString = " AND (Sale_PosID=" + cmbPOS.SelectedIndex + ")";
sql = "SELECT CustomerTransaction.CustomerTransactionID, CustomerTransaction.CustomerTransaction_CustomerID, CustomerTransaction.CustomerTransaction_TransactionTypeID, CustomerTransaction.CustomerTransaction_DayEndID, CustomerTransaction.CustomerTransaction_MonthEndID, CustomerTransaction.CustomerTransaction_ReferenceID, CustomerTransaction.CustomerTransaction_Date, CustomerTransaction.CustomerTransaction_Description, CustomerTransaction.CustomerTransaction_Amount, CustomerTransaction.CustomerTransaction_Reference, CustomerTransaction.CustomerTransaction_PersonName," + " TransactionType.TransactionType_Name, IIf([CustomerTransaction_Amount]>0,[CustomerTransaction_Amount],Null) AS debit, IIf([CustomerTransaction_Amount]<0,[CustomerTransaction_Amount],Null) AS credit FROM CustomerTransaction INNER JOIN TransactionType ON CustomerTransaction.CustomerTransaction_TransactionTypeID = TransactionType.TransactionTypeID WHERE (((CustomerTransaction.CustomerTransaction_CustomerID)=" + adoPrimaryRS.Fields("CustomerID").Value + ") AND (CustomerTransaction.CustomerTransaction_MonthEndID=(" + lMonth + "))) ORDER BY CustomerTransaction.CustomerTransactionID DESC;";
sql = "SELECT * FROM CustomerTransaction WHERE (((CustomerTransaction.CustomerTransaction_CustomerID)=" + adoPrimaryRS.Fields("CustomerID").Value + ") AND (CustomerTransaction.CustomerTransaction_MonthEndID=(" + lMonth + "))) ORDER BY CustomerTransaction.CustomerTransactionID DESC;";
Debug.Print(sql);
rs.Open(sql, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, ADODB.CommandTypeEnum.adCmdText);
//Dim lvItem As listItem
x = 0;
//lvTransaction.Visible = False
while (!(rs.EOF)) {
x = x + 1;
if (gLoading) {
} else {
break; // TODO: might not be correct. Was : Exit Do
}
bResetError:
//lblcount.Caption = x & " of " & rs.RecordCount
System.Windows.Forms.Application.DoEvents();
if (bReset) {
bReset = false;
// ERROR: Not supported in C#: OnErrorStatement
sql = "INSERT INTO tempCustomerHistory ( CustomerTransactionID, CustomerTransaction_CustomerID, CustomerTransaction_TransactionTypeID, CustomerTransaction_DayEndID, CustomerTransaction_MonthEndID, CustomerTransaction_ReferenceID, CustomerTransaction_Date, CustomerTransaction_Description, CustomerTransaction_Amount, CustomerTransaction_Reference, CustomerTransaction_PersonName, CustomerTransaction_Done ) ";
sql = sql + "SELECT " + rs.Fields("CustomerTransactionID").Value + ", " + rs.Fields("CustomerTransaction_CustomerID").Value + ", " + rs.Fields("CustomerTransaction_TransactionTypeID").Value + ", " + rs.Fields("CustomerTransaction_DayEndID").Value + ", " + rs.Fields("CustomerTransaction_MonthEndID").Value + ", " + rs.Fields("CustomerTransaction_ReferenceID").Value + ", #" + rs.Fields("CustomerTransaction_Date").Value + "#, '" + rs.Fields("CustomerTransaction_Description").Value + "', " + rs.Fields("CustomerTransaction_Amount").Value + ", '" + rs.Fields("CustomerTransaction_Reference").Value + "', '" + rs.Fields("CustomerTransaction_PersonName").Value + "', " + rs.Fields("CustomerTransaction_Done").Value + ";";
modRecordSet.cnnDB.Execute(sql);
} else {
sql = "INSERT INTO tempCustomerHistory ( CustomerTransactionID, CustomerTransaction_CustomerID, CustomerTransaction_TransactionTypeID, CustomerTransaction_DayEndID, CustomerTransaction_MonthEndID, CustomerTransaction_ReferenceID, CustomerTransaction_Date, CustomerTransaction_Description, CustomerTransaction_Amount, CustomerTransaction_Reference, CustomerTransaction_PersonName, CustomerTransaction_Done, CustomerTransaction_Main, CustomerTransaction_Child, CustomerTransaction_Allocated ) ";
sql = sql + "SELECT " + rs.Fields("CustomerTransactionID").Value + ", " + rs.Fields("CustomerTransaction_CustomerID").Value + ", " + rs.Fields("CustomerTransaction_TransactionTypeID").Value + ", " + rs.Fields("CustomerTransaction_DayEndID").Value + ", " + rs.Fields("CustomerTransaction_MonthEndID").Value + ", " + rs.Fields("CustomerTransaction_ReferenceID").Value + ", #" + rs.Fields("CustomerTransaction_Date").Value + "#, '" + rs.Fields("CustomerTransaction_Description").Value + "', " + rs.Fields("CustomerTransaction_Amount").Value + ", '" + rs.Fields("CustomerTransaction_Reference").Value + "', '" + rs.Fields("CustomerTransaction_PersonName").Value + "', " + rs.Fields("CustomerTransaction_Done").Value + ", " + rs.Fields("CustomerTransaction_Main").Value + ", " + rs.Fields("CustomerTransaction_Child").Value + ", " + rs.Fields("CustomerTransaction_Allocated").Value + ";";
modRecordSet.cnnDB.Execute(sql);
}
//If rs("CustomerTransaction_Reference") <> "Month End" Then
// Set lvItem = lvTransaction.ListItems.Add(, "K" & rs("CustomerTransactionID") & "_" & databaseName & "_" & rs("CustomerTransaction_ReferenceID") & "_" & rs("CustomerTransaction_TransactionTypeID"), Format(rs("CustomerTransaction_Date"), "yyyy mmm dd hh:mm"))
// lvItem.SubItems(1) = rs("CustomerTransaction_Reference")
// lvItem.SubItems(2) = rs("TransactionType_Name")
// lvItem.SubItems(3) = FormatNumber(rs("debit"), 2)
// lvItem.SubItems(4) = FormatNumber(rs("credit"), 2)
//End If
rs.MoveNext();
}
//lvTransaction.Visible = True
rs.Close();
nextMonth:
}
//lvTransaction.Visible = True
report_CustomerStatementFullHistory(ref adoPrimaryRS.Fields("CustomerID").Value);
Cursor = System.Windows.Forms.Cursors.Default;
gLoading = false;
return;
ErrShowHistory:
if (Strings.InStr(Strings.LCase(Err().Description), "not a valid path")) {
Interaction.MsgBox(Err().Number + " - " + Err().Description);
return;
} else if (Err().Number == Convert.ToDouble("3265")) {
bReset = true;
//Resume bResetError
} else {
Interaction.MsgBox(Err().Number + " - " + Err().Description);
return;
// ERROR: Not supported in C#: ResumeStatement
}
}
private void Command2_Click(System.Object eventSender, System.EventArgs eventArgs)
{
string lString = null;
string sql = null;
ADODB.Recordset rsWebDBs = default(ADODB.Recordset);
Module1.bBranchChange = false;
string ret = null;
string dtDate = null;
string dtMonth = null;
string stPass = null;
if (Module1.BranchType == "1") {
//UPGRADE_WARNING: Add a delegate for AddressOf TimerProc Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
//SetTimer(Handle.ToInt32, NV_INPUTBOX, 10, TimerProc)
ret = Interaction.InputBox("Enter Password");
//Construct password...........
if (Strings.Len(DateAndTime.Day(DateAndTime.Today)) == 1)
dtDate = "0" + Conversion.Str(DateAndTime.Day(DateAndTime.Today));
else
dtDate = Strings.Trim(Conversion.Str(DateAndTime.Day(DateAndTime.Today)));
dtDate = Strings.Replace(dtDate, " ", "");
if (Strings.Len(DateAndTime.Month(DateAndTime.Today)) == 1)
dtMonth = "0" + Conversion.Str(DateAndTime.Month(DateAndTime.Today));
else
dtMonth = Strings.Trim(Conversion.Str(DateAndTime.Month(DateAndTime.Today)));
dtMonth = Strings.Replace(dtMonth, " ", "");
//Create password
stPass = dtDate + "##" + dtMonth;
stPass = Strings.Replace(stPass, " ", "");
if (Strings.Trim(ret) == stPass) {
Module1.bBranchChange = true;
} else {
Interaction.MsgBox("Incorrect password was entered!!!", MsgBoxStyle.Exclamation, "Incorrect Passwords");
return;
}
}
cmdClear_Click();
cmdPulsante_Click(cmdPulsante[0], new System.EventArgs());
cmdPulsante_Click(cmdPulsante[7], new System.EventArgs());
cmdPulsante_Click(cmdPulsante[1], new System.EventArgs());
if (Module1.BranchType == "0") {
cmdPulsante_Click(cmdPulsante[0], new System.EventArgs());
rsWebDBs = new ADODB.Recordset();
sql = "SELECT * FROM GRVSale WHERE (GRVSale_HeadOfficeID = " + Convert.ToInt16(Module1.HOfficeID) + ") AND (GRVSale_BranchID = " + Convert.ToInt16(Module1.BranchID) + ") AND (GRVSale_Done = 'False');";
var _with1 = rsWebDBs;
_with1.CursorLocation = ADODB.CursorLocationEnum.adUseClient;
_with1.CursorType = ADODB.CursorTypeEnum.adOpenForwardOnly;
_with1.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic;
_with1.Source = sql;
_with1.ActiveConnection = Module1.sqlDBcn;
_with1.Open();
_with1.ActiveConnection = null;
if (rsWebDBs.RecordCount) {
tryCheckZip:
if (fso.FileExists(modRecordSet.serverPath + "data.zip")) {
Interaction.MsgBox("There are 'Sale to GRV' outstanding to be processed. Please click 'OK' once 4POS Domain Controller finished with Pricing update.");
goto tryCheckZip;
}
lString = Strings.Replace(Convert.ToString(DateAndTime.Now), " ", "_");
lString = Strings.Replace(lString, "/", "-");
lString = Strings.Replace(lString, ":", "");
if (fso.FolderExists(gPathHO + "download\\" + lString)) {
} else {
fso.CreateFolder(gPathHO + "download\\" + lString);
}
while (!(rsWebDBs.EOF)) {
cmdPulsante_Click(cmdPulsante[1], new System.EventArgs());
cmdPulsante_Click(cmdPulsante[0], new System.EventArgs());
DownLoadFile_GRV(ref false, ref Convert.ToString(Strings.Split(rsWebDBs("GRVSale_Path"), "/grv/")[1]), ref gPathHO + "download\\" + lString, ref true);
Module1.sGRVSales = gPathHO + "download\\" + lString + "\\" + Convert.ToString(Strings.Split(rsWebDBs("GRVSale_Path"), "/grv/")[1]);
//frmGRVimport.Tag = lString
My.MyProject.Forms.frmGRVimport.ShowDialog();
if (Module1.sGRVSales == "DONE") {
sql = "UPDATE GRVSale SET GRVSale_Done = 'True' WHERE (GRVSaleID = " + rsWebDBs("GRVSaleID").Value + ");";
Module1.sqlDBcn.Execute(sql);
}
Module1.sGRVSales = "";
rsWebDBs.MoveNext();
}
}
cmdPulsante_Click(cmdPulsante[1], new System.EventArgs());
}
Module1.sGRVSales = "";
Interaction.MsgBox("Process Finished.");
}
private void cmdAdd_Click(System.Object eventSender, System.EventArgs eventArgs)
{
//On Error Resume Next
string MyInputStr = null;
ADODB.Recordset rst = default(ADODB.Recordset);
ADODB.Recordset rs = default(ADODB.Recordset);
ADODB.Recordset rsNoRec = default(ADODB.Recordset);
ADODB.Recordset rsBDItem = default(ADODB.Recordset);
ADODB.Recordset rsBCL = default(ADODB.Recordset);
string TheNames1 = null;
short RecSel1 = 0;
ADODB.Recordset rsLabel = default(ADODB.Recordset);
ADODB.Recordset rsCName = default(ADODB.Recordset);
string MySamp = null;
short TheLaID = 0;
short TheMSgValu = 0;
rs = new ADODB.Recordset();
rst = new ADODB.Recordset();
rsNoRec = new ADODB.Recordset();
rsBDItem = new ADODB.Recordset();
rsBCL = new ADODB.Recordset();
rsLabel = new ADODB.Recordset();
rsCName = new ADODB.Recordset();
//calling the input box
MyInputStr = Interaction.InputBox("Please enter Label Name");
string apostrophe = null;
string TheUpOne = null;
apostrophe = "'";
short pos = 0;
string DouQuotes = null;
short start = 0;
string MNewVerror = null;
start = 1;
DouQuotes = "''";
MNewVerror = MyInputStr;
pos = Strings.InStr(start, MNewVerror, apostrophe);
if (pos > 0) {
TheUpOne = Strings.Replace(MNewVerror, apostrophe, DouQuotes, 1, pos, CompareMethod.Text);
MyInputStr = TheUpOne;
} else {
TheUpOne = MNewVerror;
MyInputStr = TheUpOne;
}
//selecting the last labelID so we can increment it by one
rs = modRecordSet.getRS(ref "SELECT Max(Label.LabelID) AS TheLastLabel FROM Label");
TheLaID = rs.Fields("TheLastLabel").Value;
TheLaID = TheLaID + 1;
//checking if the name already exist
rsCName = modRecordSet.getRS(ref "SELECT Label.*, LabelItem.* FROM Label INNER JOIN LabelItem ON Label.LabelID = LabelItem.labelItem_LabelID WHERE Label.Label_Name='" + MyInputStr + "' and Label.Label_Type=" + modApplication.TheType + "");
int LeftVa = 0;
ADODB.Recordset rsFound = default(ADODB.Recordset);
short HoldMyLaID = 0;
if (!string.IsNullOrEmpty(Strings.Trim(MyInputStr))) {
rs = modRecordSet.getRS(ref "SELECT * FROM BClabelItem WHERE BClabelItem_LabelID=" + modApplication.MyLIDWHole + "");
if (rs.RecordCount == 1) {
Interaction.MsgBox("Saving an empty design is not allowed.Please add some fields.", MsgBoxStyle.Information, _4PosBackOffice.NET.My.MyProject.Application.Info.Title);
return;
} else {
}
//If HSLeft.value = 0 Then
// LeftVa = 0
//Else
// LeftVa = LeftVa + 400
//End If
if (rsCName.RecordCount < 1) {
rsLabel = modRecordSet.getRS(ref "INSERT INTO Label(LabelID,Label_Type,Label_Name,Label_Height,Label_Width,Label_Top,Label_Rotate,Label_Disabled,Label_Left)VALUES(" + TheLaID + "," + modApplication.TheType + ",'" + MyInputStr + "'," + this.HSHeight.Value + "," + this.HSWidth.Value + "," + HSTop.Value + ",'" + 0 + "','" + 0 + "'," + HSLeft.Value + ")");
} else if (rsCName.RecordCount > 0 & modApplication.NewLabelName == MyInputStr) {
rsLabel = modRecordSet.getRS(ref "UPDATE Label SET Label_Height=" + this.HSHeight.Value + ",Label_Width=" + this.HSWidth.Value + ",Label_Top=" + HSTop.Value + ",Label_Rotate='" + 0 + "',Label_Disabled='" + 0 + "',Label_Name='" + MyInputStr + "',Label_Left=" + HSLeft.Value + " WHERE Label.Label_Name='" + MyInputStr + "'");
} else if (rsCName.RecordCount > 0 & modApplication.NewLabelName != MyInputStr) {
TheMSgValu = Interaction.MsgBox("There is a Design with the same name.Clicking Yes will override the existing design.Are you sure you wish to override the design?", MsgBoxStyle.YesNo, "4POS Back Office");
if (TheMSgValu == MsgBoxResult.Yes) {
rsLabel = modRecordSet.getRS(ref "UPDATE Label SET Label_Height=" + this.HSHeight.Value + ",Label_Width=" + this.HSWidth.Value + ",Label_Top=" + HSTop.Value + ",Label_Rotate='" + 0 + "',Label_Disabled='" + 0 + "',Label_Name='" + MyInputStr + "',Label_Left=" + HSLeft.Value + " WHERE Label.Label_Name='" + MyInputStr + "'");
} else if (TheMSgValu == MsgBoxResult.No) {
return;
}
}
rst = modRecordSet.getRS(ref "SELECT Max(BClabelItem.BClabelItem_BCLabelID) as TheLastItemID FROM BClabelItem");
//selecting from the selected design to modify it and added it as a new design
rsNoRec = modRecordSet.getRS(ref "SELECT * FROM BClabelItem WHERE BClabelItem_BCLabelID=" + modApplication.RecSel + "");
RecSel1 = rst.Fields("TheLastItemID").Value + 1;
//adding 1 to insert a new record later
//Set rsBCL = getRS("SELECT * FROM BClabel WHERE BClabelID=" & RecSel & "")
if (rsCName.RecordCount < 1) {
//TheNames = TheNames
while (!(rsNoRec.EOF)) {
//for hold the sample to insert
if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Name" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Name") {
MySamp = "4POS Demo";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Telephone" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Telephone") {
MySamp = "082 448 3987";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "line") {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "StockItem_Name" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "StockItem_Name") {
MySamp = "Default Stock Item Name";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "code") {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Catalogue_Barcode" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Catalogue_Barcode") {
MySamp = "6001060071416";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "PricingGroup_Name" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "PricingGroup_Name") {
MySamp = "Beer Local";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price") {
MySamp = "R 21.99";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price6") {
MySamp = "R 21.99 for 6";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price12") {
MySamp = "R 21.99 for 12";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price24") {
MySamp = "R 21.99 for 24";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "blank") {
MySamp = " ";
}
//if field is equal to code the sample is space
if (rsNoRec.Fields("BClabelItem_Field").Value == "code") {
TheNames1 = " ";
//if the field is equal to line the sample is space
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "line") {
TheNames1 = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "blank") {
TheNames1 = " ";
} else {
if (modApplication.TheNames == "line") {
TheNames1 = " ";
} else {
TheNames1 = rsNoRec.Fields("BClabelItem_Sample").Value;
}
}
//if field is equal to code
if (rsNoRec.Fields("BClabelItem_Field").Value == "code") {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + TheLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'code'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + TheNames1 + "')");
//if field is equal to line
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "line") {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + TheLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'line'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + TheNames1 + "')");
//****
//New code for Blank
//if field is equal to line
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "blank") {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + TheLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'blank'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + TheNames1 + "')");
//****
} else {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + TheLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'" + rsNoRec.Fields("BClabelItem_Field").Value + "'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + MySamp + "')");
}
rsNoRec.MoveNext();
}
rs = modRecordSet.getRS(ref "SELECT * FROM BClabel WHERE BClabelID=" + modApplication.RecSel + "");
//For Inserting New Record into BClabel
rsCName = modRecordSet.getRS(ref "INSERT INTO BClabel(BClabelID,BClabel_Name,BClabel_Type,BClabel_Disabled,BClabel_Height,BClabel_LabelID)VALUES(" + RecSel1 + ",'" + rs.Fields("BClabel_Name").Value + "','" + rs.Fields("BClabel_Type").Value + "'," + rs.Fields("BClabel_Disabled").Value + "," + rs.Fields("BClabel_Height").Value + "," + TheLaID + ")");
rs = modRecordSet.getRS(ref "SELECT * FROM LabelItem WHERE labelItem_LabelID=" + TheLaID + "");
//For Inserting New record into BCLabelItem
//If rs.RecordCount > 0 Then
//End If
while (!(rs.EOF)) {
rsCName = modRecordSet.getRS(ref "INSERT INTO BClabelItem(BClabelItem_BCLabelID,BClabelItem_Line,BClabelItem_Field,BClabelItem_Align,BClabelItem_Size,BClabelItem_Bold,BClabelItem_Sample,BClabelItem_Disabled,BClabelItem_LabelID)VALUES(" + RecSel1 + "," + rs.Fields("labelItem_Line").Value + ",'" + rs.Fields("labelItem_Field").Value + "'," + rs.Fields("labelItem_Align").Value + "," + rs.Fields("labelItem_Size").Value + "," + rs.Fields("labelItem_Bold").Value + ",'" + rs.Fields("labelItem_Sample").Value + "','" + 0 + "'," + TheLaID + ")");
rs.MoveNext();
}
//000
rsCName = modRecordSet.getRS(ref "SELECT * FROM BClabelItemUndo");
if (rsCName.RecordCount > 0) {
rs = modRecordSet.getRS(ref "SELECT * FROM BClabelItemUndo");
} else {
modApplication.TheSelectedPrinterNew = 2;
modApplication.MyLIDWHole = TheLaID;
labelsfile();
return;
}
//rs.MoveLast
while (!(rs.EOF)) {
rsNoRec = modRecordSet.getRS(ref "SELECT * FROM BClabelItem WHERE BClabelItemID =" + rs.Fields("BClabelItemID").Value + " AND BClabelItem_Field='" + rs.Fields("BClabelItem_Field").Value + "'");
if (rsNoRec.RecordCount > 0) {
rst = modRecordSet.getRS(ref "DELETE * FROM BClabelItem WHERE BClabelItemID=" + rs.Fields("BClabelItemID").Value + "");
//Set rst = getRS("DELETE * FROM BClabelItemUndo WHERE BClabelItemID=" & rs("BClabelItemID") & "")
} else if (rsNoRec.RecordCount < 1) {
rst = modRecordSet.getRS(ref "INSERT INTO BClabelItem(BClabelItem_BCLabelID,BClabelItem_Line,BClabelItem_Field,BClabelItem_Align,BClabelItem_Size,BClabelItem_Bold,BClabelItem_Sample,BClabelItem_Disabled,BClabelItem_LabelID)VALUES(" + rs.Fields("BClabelItem_BCLabelID").Value + "," + rs.Fields("BClabelItem_Line").Value + ",'" + rs.Fields("BClabelItem_Field").Value + "'," + rs.Fields("BClabelItem_Align").Value + "," + rs.Fields("BClabelItem_Size").Value + "," + rs.Fields("BClabelItem_Bold").Value + ",'" + rs.Fields("BClabelItem_Sample").Value + "'," + rs.Fields("BClabelItem_Disabled").Value + "," + rs.Fields("BClabelItem_LabelID").Value + ")");
//Set rst = getRS("DELETE * FROM BClabelItemUndo WHERE BClabelItemID=" & rs("BClabelItemID") & " and BClabelItem_Field='" & rs("BClabelItem_Field") & "'")
}
rs.MoveNext();
}
rst = modRecordSet.getRS(ref "DELETE * FROM BClabelItemUndo");
// WHERE BClabelItemID=" & rs("BClabelItemID") & " and BClabelItem_Field='" & rs("BClabelItem_Field") & "'")
modApplication.MyLIDWHole = TheLaID;
modApplication.RecSel = RecSel1;
//000
} else {
//updating
rsFound = new ADODB.Recordset();
HoldMyLaID = rsCName.Fields("labelItem_LabelID").Value;
rsFound = modRecordSet.getRS(ref "DELETE * FROM LabelItem WHERE labelItem_LabelID=" + HoldMyLaID + "");
while (!(rsNoRec.EOF)) {
//for hold the sample to insert
if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Name" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Name") {
MySamp = "4POS Demo";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Telephone" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Company_Telephone") {
MySamp = "082 448 3987";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "line") {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "StockItem_Name" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "StockItem_Name") {
MySamp = "Default Stock Item Name";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "code") {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Catalogue_Barcode" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Catalogue_Barcode") {
MySamp = "6001060071416";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "PricingGroup_Name" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "PricingGroup_Name") {
MySamp = "Beer Local";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price" & string.IsNullOrEmpty(Strings.Trim(rsNoRec.Fields("BClabelItem_Sample").Value))) {
MySamp = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price") {
MySamp = "R 21.99";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price6") {
MySamp = "R 21.99 for 6";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price12") {
MySamp = "R 21.99 for 12";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "Price24") {
MySamp = "R 21.99 for 24";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "blank") {
MySamp = " ";
}
//if field is equal to code the sample is space
if (rsNoRec.Fields("BClabelItem_Field").Value == "code") {
TheNames1 = " ";
//if the field is equal to line the sample is space
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "line") {
TheNames1 = " ";
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "blank") {
TheNames1 = " ";
} else {
if (modApplication.TheNames == "line") {
TheNames1 = " ";
} else {
TheNames1 = rsNoRec.Fields("BClabelItem_Sample").Value;
}
}
//if field is equal to code
if (rsNoRec.Fields("BClabelItem_Field").Value == "code") {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + HoldMyLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'code'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + TheNames1 + "')");
//if field is equal to line
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "line") {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + HoldMyLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'line'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + TheNames1 + "')");
//****
//New code for Blank
//if field is equal to line
} else if (rsNoRec.Fields("BClabelItem_Field").Value == "blank") {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + HoldMyLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'blank'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + TheNames1 + "')");
//****
} else {
rs = modRecordSet.getRS(ref "INSERT INTO LabelItem(labelItem_LabelID,labelItem_Line,labelItem_Field,labelItem_Align,labelItem_Size,labelItem_Bold,labelItem_Sample) VALUES (" + HoldMyLaID + "," + rsNoRec.Fields("BClabelItem_Line").Value + ",'" + rsNoRec.Fields("BClabelItem_Field").Value + "'," + rsNoRec.Fields("BClabelItem_Align").Value + "," + rsNoRec.Fields("BClabelItem_Size").Value + "," + rsNoRec.Fields("BClabelItem_Bold").Value + ",'" + MySamp + "')");
}
rsNoRec.MoveNext();
}
//updating
}
} else if (string.IsNullOrEmpty(Strings.Trim(MyInputStr))) {
return;
}
//refreshes
modApplication.TheSelectedPrinterNew = 2;
modApplication.NewLabelName = "";
labelsfile();
//RecSel1 = 3
//Unload frmPrinter
//frmPrinter.selectPrinter
//frmBarcodedesign.TheLoading
//TheSelectedPrinterNew = 0
}
public bool loadFilter(ref string filter_Renamed)
{
bool functionReturnValue = false;
ADODB.Recordset rs = new ADODB.Recordset();
ADODB.Recordset RSitem = new ADODB.Recordset();
short lCNT = 0;
rs = modRecordSet.getRS(ref "SELECT * From ftOrderSet Where (((ftSet_Group) = 'order')) ORDER BY ftSet_Order;");
if (rs.BOF | rs.EOF) {
functionReturnValue = false;
} else {
lCNT = -1;
objectArray = new object[rs.RecordCount];
while (!(rs.EOF)) {
lCNT = lCNT + 1;
switch (rs.Fields("ftset_type").Value) {
case 2:
if (lCNT) {
//_frmList_0.
//frmList.Load(lCNT)
//cmdList.Load(lCNT)
cmdList[lCNT].Parent = _frmList_0;
//lblList.Load(lCNT)
_lblList_0.Parent = _frmList_0;
}
_frmList_0.Visible = true;
_cmdList_0.Visible = true;
_lblList_0.Visible = true;
if (lCNT)
_frmList_0.Top = sizeConvertors.twipsToPixels(lCNT * sizeConvertors.pixelToTwips(_frmList_0.Height, false) + sizeConvertors.pixelToTwips(_frmList_0.Top, false), false);
_frmList_0.Text = rs.Fields("ftset_DisplayName").Value;
_frmList_0.Tag = rs.Fields("ftset_Name").Value;
_lblList_0.Text = "";
RSitem = modRecordSet.getRS(ref "SELECT ftData_Heading From ftOrder WHERE (ftData_PersonID = " + modRecordSet.gPersonID + ") AND (ftData_FieldName = '" + Strings.Replace(_frmList_0.Tag, "'", "''") + "')");
if (RSitem.BOF | RSitem.EOF) {
} else {
_lblList_0.Text = RSitem.Fields("ftData_Heading").Value;
}
objectArray[lCNT] = _frmList_0;
break;
}
rs.MoveNext();
}
this.Height = sizeConvertors.twipsToPixels(objectArray[Information.UBound(objectArray)].Top + objectArray[Information.UBound(objectArray)].Height + 1000, false);
loadLanguage();
ShowDialog();
functionReturnValue = true;
}
return functionReturnValue;
}
public void ImportPartDetail()
{
string partPath = "http://nwszmail/public/namwah/Parts2/Parts/";
string strSQL = "";
ADODB.Connection cnn = new ADODB.Connection();
ADODB.Recordset rst = new ADODB.Recordset();
Item item;
session.BeginTransaction();
CacheItem();
ConnectDB(cnn, partPath);
strSQL = "SELECT \"nw:partno\", \"nw:partname\", \"nw:parttype\", \"nw:material\", \"nw:part:tmxrefno\", \"nw:part:source\", \"nw:part:source\", \"nw:rout1:resoption\", \"nw:rout1:resourceno\", \"nw:rout1:type\", ";
strSQL = strSQL + " \"nw:part:category\", \"nw:part:pricecat\", \"nw:bom:list:partno\", \"nw:bom:list:qty\" ";
strSQL = strSQL + " FROM \"" + partPath ;
strSQL = strSQL + "\" WHERE (\"DAV:ishidden\" = false)";
rst.Open(strSQL, cnn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockBatchOptimistic, 1);
while (!rst.EOF)
{
if (dictItem.ContainsKey(rst.Fields["nw:partno"].Value.ToString()) == false)
item = new Item(this.session);
else
item = dictItem[rst.Fields["nw:partno"].Value.ToString()];
item.ItemNo = rst.Fields["nw:partno"].Value.ToString();
item.CustomerItemNo = rst.Fields["nw:part:tmxrefno"].Value.ToString();
item.ItemName = rst.Fields["nw:partname"].Value.ToString();
item.ItemType = GetItemType(rst.Fields["nw:parttype"].Value.ToString());
item.Material = GetMaterial(rst.Fields["nw:material"].Value.ToString());
item.PriceCategory = GetPriceCategory(rst.Fields["nw:part:pricecat"].Value.ToString());
item.ItemCategory = GetItemCategory(rst.Fields["nw:part:category"].Value.ToString());
if (rst.Fields["nw:part:source"].Value.ToString() == "Buy")
item.Source = Item.ItemSource.Buy;
else
item.Source = Item.ItemSource.Make;
item.Unit = GetUnit("Piece");
item.Warehouse = GetWarehouse("Main");
item.Save();
if (dictItem.ContainsKey(rst.Fields["nw:partno"].Value.ToString()) == false)
dictItem.Add(item.ItemNo, item);
rst.MoveNext();
}
session.CommitTransaction();
}
public void ImportHKIPO()
{
string ipoPath = "http://nwszmail/public/namwah/WorkOrders/Purchasing/InternalPurchaseOrders";
string strSQL = "";
ADODB.Connection cnn = new ADODB.Connection();
ADODB.Recordset rst = new ADODB.Recordset();
Item item;
PurchOrderLine poLine;
WorkOrder wo;
string partNo;
string woNo;
string ipoNo;
session.BeginTransaction();
CacheItem();
CacheWo();
CacheIpo();
ConnectDB(cnn, ipoPath);
strSQL = "SELECT \"nw:partno\" , \"nw:partname\", \"nw:parttype\", \"nw:wo:no\", \"nw:supplier\", ";
strSQL = strSQL + " \"nw:jo:needqty\", \"nw:jo:needdate\", \"nw:jo:arrivedqty\", \"nw:jo:no\" ";
strSQL = strSQL + " FROM \"" + ipoPath;
strSQL = strSQL + "\" WHERE (\"DAV:ishidden\" = false)";
rst.Open(strSQL, cnn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockBatchOptimistic, 1);
while (!rst.EOF)
{
partNo = rst.Fields["nw:partno"].Value.ToString();
woNo = rst.Fields["nw:wo:no"].Value.ToString();
ipoNo = rst.Fields["nw:jo:no"].Value.ToString();
if (dictPoLine.ContainsKey(ipoNo))
{
PurchOrderLine oldPoLine = dictPoLine[ipoNo];
if (oldPoLine.NeedQty != float.Parse(rst.Fields["nw:jo:needqty"].Value.ToString()) ||
oldPoLine.ReceivedQty != float.Parse(rst.Fields["nw:jo:arrivedqty"].Value.ToString()))
{
oldPoLine.NeedQty = float.Parse(rst.Fields["nw:jo:needqty"].Value.ToString());
oldPoLine.SetReceivedQty(float.Parse(rst.Fields["nw:jo:arrivedqty"].Value.ToString()));
oldPoLine.Save();
}
}
else
{
if (dictItem.ContainsKey(partNo) && dictWo.ContainsKey(woNo))
{
item = dictItem[partNo];
wo = dictWo[woNo];
poLine = new PurchOrderLine(session);
poLine.WorkOrder = wo;
poLine.Item = item;
poLine.SetPurchOrderLineNo(ipoNo);
poLine.NeedDate = DateTime.Parse(rst.Fields["nw:jo:needdate"].Value.ToString());
poLine.NeedQty = float.Parse(rst.Fields["nw:jo:needqty"].Value.ToString());
poLine.Vendor = GetVendor(rst.Fields["nw:supplier"].Value.ToString());
poLine.SetReceivedQty(float.Parse(rst.Fields["nw:jo:arrivedqty"].Value.ToString()));
poLine.Unit = item.Unit;
poLine.Warehouse = item.Warehouse;
poLine.Save();
}
}
rst.MoveNext();
}
session.CommitTransaction();
}
public string getRoadName()
{
try
{
Position PoiX = new Position();
PoiX.X = Lat; PoiX.Y = Lon;
double tempLen = 1000000;
string tempTown = "";
ADODB.Recordset RST = new ADODB.Recordset();
/* string sqlSTR = "SELECT name,the_geom FROM " + this.roadsTableName +" WHERE the_geom && 'BOX3D(" +
(Lon - 0.1) + " " + (Lat - 0.1) + "," + (Lon + 0.1) + " " + (Lat + 0.1) +
") '::box3d AND distance( the_geom, GeometryFromText( 'POINT(" + Lon + " " + Lat +
")', -1 ) ) < 0.11";
string sqlSTROther = "SELECT name,the_geom FROM " + this.roadsTableName + " WHERE the_geom && 'BOX3D(" +
(Lon - 1) + " " + (Lat - 1) + "," + (Lon + 1) + " " + (Lat + 1) +
") '::box3d AND distance( the_geom, GeometryFromText( 'POINT(" + Lon + " " + Lat +
")', -1 ) ) < 1.1";*/
string sqlSTR = "SELECT rd_name,the_geom FROM kRoads WHERE the_geom && 'BOX3D(" +
(Lon - 0.1) + " " + (Lat - 0.1) + "," + (Lon + 0.1) + " " + (Lat + 0.1) +
") '::box3d AND distance( the_geom, GeometryFromText( 'POINT(" + Lon + " " + Lat +
")', -1 ) ) < 0.11";
string sqlSTROther = "SELECT rd_name,the_geom FROM kRoads WHERE the_geom && 'BOX3D(" +
(Lon - 1) + " " + (Lat - 1) + "," + (Lon + 1) + " " + (Lat + 1) +
") '::box3d AND distance( the_geom, GeometryFromText( 'POINT(" + Lon + " " + Lat +
")', -1 ) ) < 1.1";
RST.Open(sqlSTR, this.odbcDatabaseConnection, ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic, 0);
if (RST.EOF == true)
{
try { RST.Close(); }
catch { }
RST.Open(sqlSTROther, this.odbcDatabaseConnection, ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic, 0);
}
if (RST.EOF == false)
{
RST.MoveFirst();
while (RST.EOF == false)
{
/*we are no longer dealing with a single point we are
* dealind with a line string*/
string Coord = RST.Fields["the_geom"].Value.ToString();
int Len = Coord.Length;
Coord = Right(Coord, (Len - 25));
Len = Coord.Length;
Coord = Mid(Coord, 0, (Len - 2));
char[] SepChar = { ',' };
Array pointArray = Coord.Split(SepChar);
/*lets loop through the line string*/
for (int p = 0; p < pointArray.Length; p++)
{
try
{
char[] pointSep = { ' ' };
Array coordArray = pointArray.GetValue(p).ToString().Split(pointSep);
double xlon = Convert.ToDouble(coordArray.GetValue(0).ToString());
double xlat = Convert.ToDouble(coordArray.GetValue(1).ToString());
Position PoiY = new Position();
PoiY.X = xlat; PoiY.Y = xlon;
Calculations calc = new Calculations();
double xLen = 10000001;
try { xLen = calc.CalculateDistace(PoiX, PoiY); }
catch { }
calc = null;
//MessageBox.Show(xLen.ToString());
if (xLen < tempLen)
{
tempLen = xLen;
if (tempLen > 0.5)
{ tempTown = " Along Unknown Road"; }
else
{ tempTown = " Along " + RST.Fields["rd_name"].Value.ToString(); }
}
//PoiY = null;
coordArray = null;
//Application.DoEvents();
}
catch { }
}
//Application.DoEvents();
RST.MoveNext();
}
RST.Close();
RST = null;
}
if (tempLen != 1000000)
{
return tempTown;
}
else
{
return " ";
}
}
catch (System.Exception qw) { return " "; }
}
public void ImportSSTK()
{
string soPath = "http://nwszmail/public/namwah/Parts2/SafetyStock/";
string strSQL = "";
Dictionary<string, SalesOrder> dictSo = new Dictionary<string, SalesOrder>();
ADODB.Connection cnn = new ADODB.Connection();
ADODB.Recordset rst = new ADODB.Recordset();
Item item;
string partNo;
string soLineIndex;
CacheItem();
ConnectDB(cnn, soPath);
strSQL = "SELECT \"nw:cpo:item:initneeddate\", \"nw:cpo:date\" ";
strSQL = strSQL + " , \"nw:cpo:item:needqty\", \"nw:cpo:item:needdate\", \"nw:cpo:item:priority\", \"nw:part:sstqty\" ";
strSQL = strSQL + " , \"nw:cpo:no\", \"nw:part:tmxrefno\" ";
strSQL = strSQL + " FROM \"" + soPath;
strSQL = strSQL + "\" WHERE (\"DAV:ishidden\" = false )";
rst.Open(strSQL, cnn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockBatchOptimistic, 1);
session.BeginTransaction();
XPCollection<SalesOrderLine> soLines = new XPCollection<SalesOrderLine>(session);
soLines.Criteria = CriteriaOperator.Parse("SalesOrder.OrderType == SalesOrder.SalesOrderType.SSTK");
session.BeginTransaction();
session.Delete(soLines);
session.CommitTransaction();
DateTime sTime = DateTime.Now;
string poNo;
while (!rst.EOF)
{
partNo = rst.Fields["nw:part:tmxrefno"].Value.ToString();
soLineIndex = rst.Fields["nw:cpo:no"].Value.ToString() + "-" + rst.Fields["nw:part:tmxrefno"].Value.ToString();
poNo = rst.Fields["nw:cpo:no"].Value.ToString();
if (dictItem.ContainsKey(partNo))
{
item = dictItem[partNo];
SalesOrder so;
if (dictSo.ContainsKey(rst.Fields["nw:cpo:no"].Value.ToString()))
{
so = dictSo[rst.Fields["nw:cpo:no"].Value.ToString()];
}
else
{
so = session.FindObject<SalesOrder>(new BinaryOperator("OrderNo", rst.Fields["nw:cpo:no"].Value.ToString()));
if (so == null)
{
so = new SalesOrder(session);
so.SetOrderNo(rst.Fields["nw:cpo:no"].Value.ToString());
so.OrderType = SalesOrder.SalesOrderType.SSTK;
so.Customer = GetCustomer("TIMEX");
so.Save();
}
dictSo.Add(rst.Fields["nw:cpo:no"].Value.ToString(), so);
}
SalesOrderLine soLine = new SalesOrderLine(session);
soLine.SalesOrder = so;
soLine.Item = item;
so.AddLineNo();
soLine.SetOrderLineNo(so.LastLineNo);
soLine.CustomerItemNo = rst.Fields["nw:part:tmxrefno"].Value.ToString();
soLine.CustomerOrderNo = rst.Fields["nw:cpo:no"].Value.ToString();
//soLine.InitNeedDate = DateTime.Parse(rst.Fields["nw:cpo:item:initneeddate"].Value.ToString());
soLine.NeedDate = DateTime.Parse(rst.Fields["nw:cpo:item:needdate"].Value.ToString());
soLine.NeedQty = float.Parse(rst.Fields["nw:part:sstqty"].Value.ToString());
soLine.PoDate = DateTime.Parse(rst.Fields["nw:cpo:date"].Value.ToString());
soLine.Priority = int.Parse(rst.Fields["nw:cpo:item:priority"].Value.ToString());
soLine.ApprovedSalesOrderLine();
soLine.Save();
}
rst.MoveNext();
}
System.Diagnostics.Debug.WriteLine("Start Time : " + sTime.ToString() + ". End Time : " + DateTime.Now.ToString());
session.CommitTransaction();
System.Diagnostics.Debug.WriteLine("Commit Time : " + DateTime.Now.ToString());
}
private void cmdExit_Click(System.Object eventSender, System.EventArgs eventArgs)
{
//On Error GoTo ErrH
ADODB.Recordset rs = default(ADODB.Recordset);
ADODB.Recordset rst = default(ADODB.Recordset);
ADODB.Recordset rsHave = default(ADODB.Recordset);
ADODB.Recordset rsMaxID = default(ADODB.Recordset);
short HoldBClabelItem_BCLabelID = 0;
string TheSample = null;
ADODB.Recordset rsInner = default(ADODB.Recordset);
short HoldLaIDVaBack = 0;
short TMaxID = 0;
rs = new ADODB.Recordset();
rst = new ADODB.Recordset();
rsHave = new ADODB.Recordset();
rsInner = new ADODB.Recordset();
rsMaxID = new ADODB.Recordset();
modApplication.IntDesign = 0;
//New code
rs = modRecordSet.getRS(ref "DELETE * FROM BClabelItemUndo");
strheight = 0;
strwidht = 0;
rs = modRecordSet.getRS(ref "SELECT * FROM LabelItem WHERE labelItem_LabelID=" + modApplication.MyLIDWHole + "");
if (rs.RecordCount == 1) {
rs = modRecordSet.getRS(ref "DELETE * FROM LabelItem WHERE labelItem_LabelID=" + modApplication.MyLIDWHole + "");
rs = modRecordSet.getRS(ref "DELETE * FROM Label WHERE LabelID=" + modApplication.MyLIDWHole + "");
rs = modRecordSet.getRS(ref "DELETE * FROM BClabel WHERE BClabel_LabelID=" + modApplication.MyLIDWHole + "");
rs = modRecordSet.getRS(ref "DELETE * FROM BClabelItem WHERE BClabelItem_LabelID=" + modApplication.MyLIDWHole + "");
this.Close();
My.MyProject.Forms.frmDesign.RefreshLoad(ref modApplication.TheType);
return;
} else {
}
rs = modRecordSet.getRS(ref "SELECT Max(LabelItem.labelItem_LabelID) as TheMaxID FROM LabelItem");
TMaxID = rs.Fields("TheMaxID").Value;
rs = modRecordSet.getRS(ref "SELECT * FROM LabelItem ORDER BY labelItem_LabelID");
rs.MoveFirst();
//Loading BClabelItem with Infor from LabelItem
while (!(rs.EOF)) {
// ERROR: Not supported in C#: OnErrorStatement
rsHave = modRecordSet.getRS(ref "SELECT * FROM BClabelItem WHERE BClabelItem_LabelID=" + rs.Fields("labelItem_LabelID").Value + "");
HoldBClabelItem_BCLabelID = rsHave.Fields("BClabelItem_BCLabelID").Value;
rst = modRecordSet.getRS(ref "DELETE * FROM BClabelItem WHERE BClabelItem_LabelID =" + rs.Fields("labelItem_LabelID").Value + "");
rsInner = modRecordSet.getRS(ref "SELECT * FROM LabelItem WHERE labelItem_LabelID=" + rs.Fields("labelItem_LabelID").Value + "");
while (!(rsInner.EOF)) {
if (Information.IsDBNull(rsInner.Fields("labelItem_Sample").Value)) {
TheSample = " ";
} else {
TheSample = rsInner.Fields("labelItem_Sample").Value;
}
rst = modRecordSet.getRS(ref "INSERT INTO BClabelItem(BClabelItem_BCLabelID,BClabelItem_Line,BClabelItem_Field,BClabelItem_Align,BClabelItem_Size,BClabelItem_Bold,BClabelItem_Sample,BClabelItem_Disabled,BClabelItem_LabelID)VALUES(" + HoldBClabelItem_BCLabelID + "," + rsInner.Fields("labelItem_Line").Value + ",'" + rsInner.Fields("labelItem_Field").Value + "'," + rsInner.Fields("labelItem_Align").Value + "," + rsInner.Fields("labelItem_Size").Value + "," + rsInner.Fields("labelItem_Bold").Value + ",'" + TheSample + "','" + 0 + "'," + rsInner.Fields("labelItem_LabelID").Value + ")");
rsInner.MoveNext();
}
HoldLaIDVaBack = rs.Fields("labelItem_LabelID").Value;
rs.MoveNext();
while (!(rs.Fields("labelItem_LabelID").Value != HoldLaIDVaBack)) {
if (rs.Fields("labelItem_LabelID").Value == TMaxID) {
rs.MoveLast();
rs.MoveNext();
break; // TODO: might not be correct. Was : Exit Do
}
rs.MoveNext();
}
}
this.Close();
My.MyProject.Forms.frmDesign.RefreshLoad(ref modApplication.TheType);
//ErrH: frmDesign.RefreshLoad TheType
//frmdesign.RefreshLoad TheType
}
public void ImportSalesOrder()
{
string soPath = "http://nwszmail/public/namwah/Sales/Timex/PurchaseOrders/";
string strSQL = "";
Dictionary<string, SalesOrder> dictSo = new Dictionary<string, SalesOrder>();
ADODB.Connection cnn = new ADODB.Connection();
ADODB.Recordset rst = new ADODB.Recordset();
Item item;
/*
XPCollection<SalesOrderLine> soLines = new XPCollection<SalesOrderLine>(session);
session.BeginTransaction();
session.Delete(soLines);
session.CommitTransaction();
return;
*/
string partNo;
string soLineIndex;
CacheItem();
CacheSalesOrderLine(Namwah.Module.BO.SalesOrder.SalesOrderType.Normal);
ConnectDB(cnn, soPath);
strSQL = "SELECT \"nw:partno\" , \"nw:cpo:item:ignore\", \"nw:cpo:item:index\", \"nw:cpo:item:initneeddate\", \"nw:cpo:date\" ";
strSQL = strSQL + " , \"nw:cpo:item:needqty\", \"nw:cpo:item:needdate\", \"nw:cpo:item:priority\", \"nw:cpo:item:shippedqty\" ";
strSQL = strSQL + " , \"nw:cpo:item:remark\", \"nw:cpo:no\", \"nw:customer\", \"nw:part:tmxrefno\" ";
strSQL = strSQL + " FROM \"" + soPath;
strSQL = strSQL + "\" WHERE (\"DAV:ishidden\" = false AND \"nw:customer\" = 'Timex' )";
return ;
rst.Open(strSQL, cnn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockBatchOptimistic, 1);
session.BeginTransaction();
DateTime sTime = DateTime.Now;
string poNo;
while (!rst.EOF)
{
partNo = rst.Fields["nw:partno"].Value.ToString();
soLineIndex = rst.Fields["nw:cpo:no"].Value.ToString() + "-" + rst.Fields["nw:cpo:item:index"].Value.ToString();
poNo = rst.Fields["nw:cpo:no"].Value.ToString();
if (poNo.StartsWith("PoHistory") == false)
{
if (dictItem.ContainsKey(partNo))
{
if (dictSalesOrderLine.ContainsKey(soLineIndex))
{
SalesOrderLine soLine = dictSalesOrderLine[soLineIndex];
soLine.NeedQty = float.Parse(rst.Fields["nw:cpo:item:needqty"].Value.ToString());
soLine.Priority = int.Parse(rst.Fields["nw:cpo:item:priority"].Value.ToString());
soLine.NeedQty = float.Parse(rst.Fields["nw:cpo:item:needqty"].Value.ToString());
soLine.SetShipQty(float.Parse(rst.Fields["nw:cpo:item:shippedqty"].Value.ToString()));
soLine.Save();
}
else
{
item = dictItem[partNo];
SalesOrder so;
if (dictSo.ContainsKey(rst.Fields["nw:cpo:no"].Value.ToString()))
{
so = dictSo[rst.Fields["nw:cpo:no"].Value.ToString()];
}
else
{
so = session.FindObject<SalesOrder>(new BinaryOperator("OrderNo", rst.Fields["nw:cpo:no"].Value.ToString()));
if (so == null)
{
so = new SalesOrder(session);
so.SetOrderNo(rst.Fields["nw:cpo:no"].Value.ToString());
so.Customer = GetCustomer(rst.Fields["nw:customer"].Value.ToString());
so.Save();
}
dictSo.Add(rst.Fields["nw:cpo:no"].Value.ToString(), so);
}
SalesOrderLine soLine = new SalesOrderLine(session);
soLine.SalesOrder = so;
soLine.Item = item;
soLine.SetOrderLineNo(int.Parse(rst.Fields["nw:cpo:item:index"].Value.ToString()));
soLine.CustomerItemNo = rst.Fields["nw:part:tmxrefno"].Value.ToString();
soLine.CustomerOrderNo = rst.Fields["nw:cpo:no"].Value.ToString();
if (rst.Fields["nw:cpo:item:ignore"].Value.ToString() != "")
soLine.IgnorePlanningReport = bool.Parse(rst.Fields["nw:cpo:item:ignore"].Value.ToString());
if (rst.Fields["nw:cpo:item:initneeddate"].Value.ToString() != "")
soLine.InitNeedDate = DateTime.Parse(rst.Fields["nw:cpo:item:initneeddate"].Value.ToString());
soLine.NeedDate = DateTime.Parse(rst.Fields["nw:cpo:item:needdate"].Value.ToString());
soLine.NeedQty = float.Parse(rst.Fields["nw:cpo:item:needqty"].Value.ToString());
soLine.PoDate = DateTime.Parse(rst.Fields["nw:cpo:date"].Value.ToString());
soLine.Priority = int.Parse(rst.Fields["nw:cpo:item:priority"].Value.ToString());
soLine.SetShipQty(float.Parse(rst.Fields["nw:cpo:item:shippedqty"].Value.ToString()));
soLine.ApprovedSalesOrderLine();
soLine.Save();
}
}
}
rst.MoveNext();
}
System.Diagnostics.Debug.WriteLine("Start Time : " + sTime.ToString() + ". End Time : " + DateTime.Now.ToString());
session.CommitTransaction();
System.Diagnostics.Debug.WriteLine("Commit Time : " + DateTime.Now.ToString());
}
public void ImportWorkOrder()
{
string woPath = "http://nwszmail/public/namwah/WorkOrders/";
string strSQL = "";
ADODB.Connection cnn = new ADODB.Connection();
ADODB.Recordset rst = new ADODB.Recordset();
Item item;
WorkOrder wo;
string partNo;
string woNo;
session.BeginTransaction();
CacheItem();
CacheWo();
ConnectDB(cnn, woPath);
strSQL = "SELECT \"nw:partno\" , \"nw:partname\", \"nw:parttype\", \"nw:wo:no\", ";
strSQL = strSQL + " \"nw:wo:needqty\", \"nw:wo:needdate\", \"nw:wo:ssblankuseqty\", \"nw:wo:extra\" ";
strSQL = strSQL + " FROM \"" + woPath;
strSQL = strSQL + "\" WHERE (\"DAV:ishidden\" = false)";
rst.Open(strSQL, cnn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockBatchOptimistic, 1);
while (!rst.EOF)
{
partNo = rst.Fields["nw:partno"].Value.ToString();
woNo = rst.Fields["nw:wo:no"].Value.ToString();
if (dictItem.ContainsKey(partNo))
{
if (dictWo.ContainsKey(woNo))
{
WorkOrder oldWo = dictWo[woNo];
if (oldWo.NeedQty != float.Parse(rst.Fields["nw:wo:needqty"].Value.ToString()))
{
oldWo.NeedQty = float.Parse(rst.Fields["nw:wo:needqty"].Value.ToString());
oldWo.Save();
}
}
else
{
item = dictItem[partNo];
wo = new WorkOrder(session, woNo);
wo.Item = item;
wo.NeedDate = DateTime.Parse(rst.Fields["nw:wo:needdate"].Value.ToString());
wo.NeedQty = float.Parse(rst.Fields["nw:wo:needqty"].Value.ToString());
if (rst.Fields["nw:wo:extra"].Value.ToString() != "")
wo.ExtraQty = float.Parse(rst.Fields["nw:wo:extra"].Value.ToString());
if (rst.Fields["nw:wo:ssblankuseqty"].Value.ToString() != "")
wo.ssBlankUseQty = float.Parse(rst.Fields["nw:wo:ssblankuseqty"].Value.ToString());
wo.Save();
}
}
rst.MoveNext();
}
session.CommitTransaction();
}
private void showLabels()
{
rs = modRecordSet.getRS(ref "SELECT Person.PersonID, [Person_FirstName] & ' ' & [Person_LastName] AS PersonName, Person.Person_QuickAccess, Label.* From Person, Label Where Person.Person_Disabled = False And Label.Label_Type = 3 ANd PersonID <> 1 ORDER BY [Person_FirstName] & ' ' & [Person_LastName];");
this.lstPerson.Items.Clear();
string tmpString = null;
while (!(rs.EOF)) {
tmpString = rs.Fields("PersonName").Value + " " + rs.Fields("PersonID").Value;
lstPerson.Items.Add(tmpString);
tmpString = "";
rs.MoveNext();
}
}
private void loadGRV()
{
ADODB.Recordset rs = default(ADODB.Recordset);
System.Windows.Forms.ListViewItem listItem = null;
lvImport.Items.Clear();
rs = modRecordSet.getRS(ref "SELECT StockItem.StockItemID, GRVimport.GRVimport_Key, GRVimport.GRVimport_Barcode, StockItem.StockItem_Name, Catalogue.Catalogue_Quantity, GRVimport.GRVimport_Quantity, GRVimport.GRVimport_Cost, GRVimport.GRVimport_Price FROM (GRVimport INNER JOIN Catalogue ON GRVimport.GRVimport_Barcode = Catalogue.Catalogue_Barcode) INNER JOIN StockItem ON Catalogue.Catalogue_StockItemID = StockItem.StockItemID;");
while (!(rs.EOF)) {
listItem = this.lvImport.Items.Add("k" + rs.Fields("stockitemID").Value, rs.Fields("GRVimport_Barcode").Value, "");
if (listItem.SubItems.Count > 1) {
listItem.SubItems[1].Text = rs.Fields("StockItem_Name").Value;
} else {
listItem.SubItems.Insert(1, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("StockItem_Name").Value));
}
if (listItem.SubItems.Count > 2) {
listItem.SubItems[2].Text = rs.Fields("Catalogue_Quantity").Value;
} else {
listItem.SubItems.Insert(2, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("Catalogue_Quantity").Value));
}
if (listItem.SubItems.Count > 3) {
listItem.SubItems[3].Text = rs.Fields("GRVimport_Quantity").Value;
} else {
listItem.SubItems.Insert(3, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("GRVimport_Quantity").Value));
}
if (listItem.SubItems.Count > 4) {
listItem.SubItems[4].Text = Strings.FormatNumber(rs.Fields("GRVimport_Cost").Value, 2);
} else {
listItem.SubItems.Insert(4, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, Strings.FormatNumber(rs.Fields("GRVimport_Cost").Value, 2)));
}
if (listItem.SubItems.Count > 5) {
listItem.SubItems[5].Text = Strings.FormatNumber(rs.Fields("GRVimport_Price").Value, 2);
} else {
listItem.SubItems.Insert(5, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, Strings.FormatNumber(rs.Fields("GRVimport_Price").Value, 2)));
}
if (listItem.SubItems.Count > 6) {
listItem.SubItems[6].Text = rs.Fields("GRVimport_Key").Value;
} else {
listItem.SubItems.Insert(6, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("GRVimport_Key").Value));
}
rs.MoveNext();
}
}
private void loadCompanies()
{
ADODB.Recordset rs = new ADODB.Recordset();
System.Windows.Forms.ListViewItem lListitem = null;
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient;
//If openConnection Then
//End If
rs.Open("SELECT locationCompany.locationCompanyID, location.location_Name, locationCompany.locationCompany_Name, locationCompany.locationCompany_Path FROM location INNER JOIN locationCompany ON location.locationID = locationCompany.locationCompany_LocationID ORDER BY location.location_Name, locationCompany.locationCompany_Name;", cnnDBmaster, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic);
//If lvLocation.Items.Count <> 0 Then
//Me.lvLocation.Items.Clear()
//End If
if (rs.RecordCount) {
while (!(rs.EOF)) {
lListitem = lvLocation.Items.Add("k" + rs.Fields("locationCompanyID").Value, rs.Fields("locationCompany_Name").Value, 2);
if (lListitem.SubItems.Count > 0) {
lListitem.SubItems[0].Text = rs.Fields("location_Name").Value + "";
} else {
lListitem.SubItems.Insert(0, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("location_Name").Value + ""));
}
if (lListitem.SubItems.Count > 1) {
lListitem.SubItems[1].Text = rs.Fields("locationCompany_Path").Value + "";
} else {
lListitem.SubItems.Insert(1, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("locationCompany_Path").Value + ""));
}
if (Strings.LCase(rs.Fields("locationCompany_Path").Value + "") == Strings.LCase(modRecordSet.serverPath + "pricing.mdb")) {
lListitem.Selected = true;
lvLocation_DoubleClick(lvLocation, new System.EventArgs());
}
rs.MoveNext();
}
}
}
private void labelsfile()
{
System.Windows.Forms.CheckBox chk6 = new System.Windows.Forms.CheckBox();
System.Windows.Forms.CheckBox chk5 = new System.Windows.Forms.CheckBox();
System.Windows.Forms.CheckBox chk4 = new System.Windows.Forms.CheckBox();
System.Windows.Forms.CheckBox chk3 = new System.Windows.Forms.CheckBox();
System.Windows.Forms.CheckBox chk2 = new System.Windows.Forms.CheckBox();
System.Windows.Forms.CheckBox chk1 = new System.Windows.Forms.CheckBox();
int lValue = 0;
Scripting.FileSystemObject fso = new Scripting.FileSystemObject();
string strname = null;
ADODB.Recordset rsNew = default(ADODB.Recordset);
rsNew = new ADODB.Recordset();
// ERROR: Not supported in C#: OnErrorStatement
//openConnection
gPersonID = 1;
//If loadBarcodePrinter() Then
Debug.Print(gLBLwidth);
lValue = gLBLwidth;
rsNew = modRecordSet.getRS(ref "SELECT * FROM Label WHERE LabelID=" + modApplication.MyLIDWHole + " ORDER BY Label_Type,LabelID");
modApplication.SelectLabelName = rsNew.Fields("Label_Name").Value;
this.lbldesign.Text = modApplication.SelectLabelName;
twipsToMM = 57;
int StHi = 0;
int StWi = 0;
while (!(rsNew.EOF)) {
if (modApplication.TheSelectedPrinterNew != 2) {
strwidht = rsNew.Fields("Label_Width").Value;
strheight = rsNew.Fields("Label_Height").Value;
} else {
strwidht = this.HSWidth.Value;
strheight = this.HSHeight.Value;
}
_chkFields_0.CheckState = chk1.Checked;
_chkFields_1.CheckState = chk2.Checked;
_chkFields_2.CheckState = chk3.Checked;
_chkFields_3.CheckState = chk4.Checked;
_chkFields_4.CheckState = chk5.Checked;
_chkFields_5.CheckState = chk6.Checked;
modApplication.LaIDHold = rsNew.Fields("LabelID").Value;
HSHeight.Value = strheight;
if (modApplication.TheSelectedPrinterNew == 2) {
HSHeight_Change(0);
}
HSWidth.Value = strwidht;
if (modApplication.TheSelectedPrinterNew == 2) {
HSHeight_Change(0);
}
rsNew.MoveNext();
}
modApplication.TheSelectedPrinterNew = 0;
modApplication.IntDesign = 0;
Debug.Print(gLBLwidth);
return;
errLoad:
// ERROR: Not supported in C#: ResumeStatement
updatte();
}