private void printBarcodePerson() { Scripting.FileSystemObject fso = new Scripting.FileSystemObject(); Scripting.TextStream lStream = default(Scripting.TextStream); string lString = null; string[] lArray = null; string lText = null; short x = 0; short y = 0; for (y = 0; y <= lstPerson.Items.Count - 1; y++) { if (lstPerson.GetItemChecked(y)) { rs.Filter = "PersonID = " + GID.GetItemData(ref lstPerson, ref y); //rs.Filter = "PersonID = " & CLng(lstPerson(y)) lString = rs.Fields("label_textstream").Value; lArray = Strings.Split(lString, Constants.vbCrLf); lString = ""; for (x = 0; x <= Information.UBound(lArray); x++) { lText = lArray[x]; lString = lString + Constants.vbCrLf + doString(ref lText, ref rs); } lStream = fso.OpenTextFile("c:\\aa.txt", Scripting.IOMode.ForWriting, true); lStream.Write(lString); lStream.Close(); lString = "C:\\AA.TXT"; modSpool.SpoolFile(lString, (lblPrinter.Text)); } } }
private void shellConnection(ref string host) { Scripting.FileSystemObject fso = new Scripting.FileSystemObject(); Scripting.TextStream lStream = default(Scripting.TextStream); if (fso.FileExists("C:\\4POS\\connect.vnc")) { fso.DeleteFile("C:\\4POS\\connect.vnc"); } lStream = fso.OpenTextFile("C:\\4POS\\connect.vnc", Scripting.IOMode.ForWriting, true); lStream.WriteLine("[connection]"); lStream.WriteLine("host=" + host); lStream.WriteLine("Port=5900"); lStream.WriteLine("password=vnc"); lStream.WriteLine("[Options]"); lStream.WriteLine("use_encoding_0 = 1"); lStream.WriteLine("use_encoding_1 = 1"); lStream.WriteLine("use_encoding_2 = 1"); lStream.WriteLine("use_encoding_3 = 0"); lStream.WriteLine("use_encoding_4 = 1"); lStream.WriteLine("use_encoding_5 = 1"); lStream.WriteLine("preferred_encoding = 16"); lStream.WriteLine("restricted = 0"); if (this.optType[1].Checked) { lStream.WriteLine("viewonly = 0"); } else { lStream.WriteLine("viewonly = 1"); } lStream.WriteLine("fullscreen = 0"); lStream.WriteLine("8 Bit = 0"); lStream.WriteLine("shared=0"); lStream.WriteLine("swapmouse = 0"); lStream.WriteLine("belldeiconify = 0"); lStream.WriteLine("emulate3 = 1"); lStream.WriteLine("emulate3timeout = 100"); lStream.WriteLine("emulate3fuzz = 4"); lStream.WriteLine("disableclipboard = 1"); lStream.WriteLine("localcursor = 1"); lStream.WriteLine("scale_num = 1"); lStream.WriteLine("scale_den = 1"); lStream.WriteLine("use_encoding_6 = 0"); lStream.WriteLine("use_encoding_7 = 0"); lStream.WriteLine("use_encoding_8 = 0"); lStream.WriteLine("use_encoding_9 = 0"); lStream.WriteLine("use_encoding_10 = 0"); lStream.WriteLine("use_encoding_11 = 0"); lStream.WriteLine("use_encoding_12 = 0"); lStream.WriteLine("use_encoding_13 = 0"); lStream.WriteLine("use_encoding_14 = 0"); lStream.WriteLine("use_encoding_15 = 0"); lStream.WriteLine("use_encoding_16 = 1"); lStream.WriteLine("autoDetect = 1"); lStream.Close(); System.Windows.Forms.Application.DoEvents(); System.Windows.Forms.Application.DoEvents(); Interaction.Shell("C:\\4POS\\vncviewer.exe -config C:\\4POS\\connect.vnc", AppWinStyle.NormalFocus); }
private static void SearchForFiles(ref string sRoot) { Scripting.FileSystemObject oFileSys = new Scripting.FileSystemObject(); Scripting.TextStream oFile = default(Scripting.TextStream); WIN32_FIND_DATA WFD = default(WIN32_FIND_DATA); int hFile = 0; // ERROR: Not supported in C#: OnErrorStatement hFile = FindFirstFile(sRoot + ALL_FILES, ref WFD); if (hFile != INVALID_HANDLE_VALUE) { FileSystem.FileOpen(1, "C:\\WriTMP.txt", OpenMode.Output); do { if (CancelSearch == true) { return; } if (MatchSpec(ref WFD.cFileName, ref fp.sFileNameExt)) { FileSystem.PrintLine(1, sRoot + TrimNull(ref WFD.cFileName)); } //If MatchSpec } while (FindNextFile(hFile, ref WFD)); } //If hFile FindClose(hFile); FileSystem.FileClose(1); oFile = oFileSys.OpenTextFile("C:\\WriTMP.txt", Scripting.IOMode.ForReading, false, Scripting.Tristate.TristateUseDefault); int FileNum = 0; while (!oFile.AtEndOfLine) { if (DeleteFile(oFile.ReadLine) == 0) { FileNum = FreeFile(); FileSystem.FileOpen(FileNum, _4PosBackOffice.NET.My.MyProject.Application.Info.DirectoryPath + "\\log.txt", OpenMode.Binary, OpenAccess.Write); //UPGRADE_WARNING: Put was upgraded to FilePut and has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"' FileSystem.FilePut(FileNum, oFile.ReadLine + Constants.vbCrLf); FileSystem.FileClose(FileNum); } } }
private void WriteFile(string pstrFilePathAndName, string pstrString) { Scripting.FileSystemObject fs = new Scripting.FileSystemObject(); Scripting.TextStream ts = null; if (fs.FileExists(pstrFilePathAndName)) { ts = fs.OpenTextFile(pstrFilePathAndName, Scripting.IOMode.ForWriting); } else { ts = fs.CreateTextFile(pstrFilePathAndName); } ts.Write(pstrString); ts.Close(); }
private object getMasterDB() { object functionReturnValue = null; // ERROR: Not supported in C#: OnErrorStatement //UPGRADE_WARNING: Couldn't resolve default property of object getMasterDB. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' functionReturnValue = true; cnnDBmaster = new ADODB.Connection(); cnnDBmaster.Open("4posMaster"); //gMasterPath = Split(Split(cnnDBmaster.ConnectionString, ";DBQ=")(1), ";")(0) //gMasterPath = Split(LCase(gMasterPath), "4posmaster.mdb")(0) ' //win 7 Scripting.FileSystemObject fso = new Scripting.FileSystemObject(); Scripting.TextStream textstream = default(Scripting.TextStream); string lString = null; if (Win7Ver() == true) { //If fso.FileExists("C:\4POS\4POSWinPath.txt") Then // Set textstream = fso.OpenTextFile("C:\4POS\4POSWinPath.txt", ForReading, True) // lString = textstream.ReadAll // serverPath = lString '& "pricing.mdb" //Else // serverPath = "C:\4POSServer\" '"pricing.mdb" //End If gMasterPath = "c:\\4posmaster\\"; //UPGRADE_WARNING: Couldn't resolve default property of object getMasterDB. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' functionReturnValue = true; return(functionReturnValue); } //win 7 gMasterPath = Strings.Split(Strings.Split(cnnDBmaster.ConnectionString, ";DBQ=")[1], ";")[0]; gMasterPath = Strings.Split(Strings.LCase(gMasterPath), "4posmaster.mdb")[0]; return(functionReturnValue); openConnection_Error: // //UPGRADE_WARNING: Couldn't resolve default property of object getMasterDB. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' functionReturnValue = false; return(functionReturnValue); }
private string OpenFile(string pstrFilePathAndName) { string functionReturnValue = null; string sstrFile = null; Scripting.FileSystemObject fs = new Scripting.FileSystemObject(); Scripting.TextStream ts = null; functionReturnValue = ""; if (fs.FileExists(pstrFilePathAndName)) { ts = fs.OpenTextFile(pstrFilePathAndName); sstrFile = ts.ReadAll(); ts.Close(); functionReturnValue = sstrFile; } return(functionReturnValue); }
private Shell32.Folder dir; /// フォルダオブジェクト /// <summary> /// コンストラクタ /// </summary> /// <param name="path">出力先パス</param> public Zip(string path) { this.path = path; if (String.Compare(Path.GetExtension(path), ".zip", true) != 0) { zip = Path.ChangeExtension(path, ".zip"); } else { zip = path; } Scripting.FileSystemObject fso = new Scripting.FileSystemObject(); Scripting.TextStream ts = fso.CreateTextFile(zip, true, false); ts.Write("PK\x05\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"); ts.Close(); sh = new Shell32.Shell(); dir = sh.NameSpace(this.zip); }
public short ReadLine(ref string fname) { short functionReturnValue = 0; Scripting.FileSystemObject oFSO = new Scripting.FileSystemObject(); Scripting.TextStream oFSTR = default(Scripting.TextStream); int ret = 0; int lCtr = 0; if (oFSO.FileExists(fname)) { oFSTR = oFSO.OpenTextFile(fname); while (!oFSTR.AtEndOfStream) { lCtr = lCtr + 1; oFSTR.SkipLine(); } functionReturnValue = lCtr; oFSTR.Close(); oFSTR = null; } return(functionReturnValue); }
public short ReadLine(ref string fName) { short functionReturnValue = 0; Scripting.FileSystemObject oFSO = new Scripting.FileSystemObject(); Scripting.TextStream oFSTR = default(Scripting.TextStream); //Dim ret As Integer int lCtr = 0; if (oFSO.FileExists(fName)) { oFSTR = oFSO.OpenTextFile(fName); while (!oFSTR.AtEndOfStream) { lCtr = lCtr + 1; oFSTR.SkipLine(); } functionReturnValue = lCtr; oFSTR.Close(); //UPGRADE_NOTE: Object oFSTR may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"' oFSTR = null; } return(functionReturnValue); }
private bool ImportCSVHand(ref string strFilePath) { bool functionReturnValue = false; Scripting.FileSystemObject oFileSys = new Scripting.FileSystemObject(); Scripting.TextStream oFile = default(Scripting.TextStream); string strCSV = null; string strFldName = null; //String of fields' name string strFV = null; //String of fields' values short iCount = 0; short x = 0; string strStr_1 = null; string strStr_2 = null; string Temp = null; string strIn = null; bool blEmpty = false; bool blTrue = false; string t_day = null; string t_Month = null; t_day = Strings.Trim(Convert.ToString(DateAndTime.Day(DateAndTime.Today))); t_Month = Strings.Trim(Convert.ToString(DateAndTime.Month(DateAndTime.Today))); System.Windows.Forms.Application.DoEvents(); System.Windows.Forms.Application.DoEvents(); ADODB.Recordset rs = default(ADODB.Recordset); if (Strings.Len(t_day) == 1) { t_day = "0" + Strings.Trim(Convert.ToString(DateAndTime.Day(DateAndTime.Today))); } if (Strings.Len(t_Month) == 1) { t_Month = "0" + Strings.Trim(Convert.ToString(DateAndTime.Month(DateAndTime.Today))); } // ERROR: Not supported in C#: OnErrorStatement //Create A Table Name st_Name = "Handheld" + Strings.Trim(Convert.ToString(DateAndTime.Year(DateAndTime.Today))) + Strings.Trim(t_Month) + Strings.Trim(t_day); blTrue = false; blEmpty = true; dReceipt = false; prgUpdate.Value = 1; if (oFileSys.FileExists(strFilePath)) { oFile = oFileSys.OpenTextFile(strFilePath, Scripting.IOMode.ForReading, false, Scripting.Tristate.TristateUseDefault); System.Windows.Forms.Application.DoEvents(); while (!oFile.AtEndOfLine) { System.Windows.Forms.Application.DoEvents(); if (prgUpdate.Value == prgUpdate.Maximum) { System.Windows.Forms.Application.DoEvents(); prgUpdate.Value = 0; } else { prgUpdate.Value = prgUpdate.Value + 1; System.Windows.Forms.Application.DoEvents(); } blEmpty = false; strCSV = oFile.ReadLine; strFV = strCSV; System.Windows.Forms.Application.DoEvents(); if (blTrue == false) { strFldName = "HandHeldID Number,Handheld_Barcode Text(50), Quantity Currency"; System.Windows.Forms.Application.DoEvents(); modRecordSet.cnnDB.Execute("CREATE TABLE " + st_Name + " (" + strFldName + ")"); blTrue = true; dReceipt = true; } if (strCSV != Constants.vbNullString) { //Repeat 2 Times // // strStr_1 = strCSV // x = Len(strCSV) - Len(Right(strCSV, Len(strCSV) - InStr(strCSV, ","))) // strStr_1 = mID$(strStr_1, 1, x - 1) // DoEvents // strStr_2 = Right(strCSV, Len(strCSV) - InStr(strCSV, ",")) // temp = strStr_2 strStr_1 = Strings.Split(strCSV, ",")[0]; // If CCur(Split(strCSV, ",")(5)) = 0 Then // strStr_2 = CCur(Split(strCSV, ",")(3)) // ElseIf CCur(Split(strCSV, ",")(3)) = 0 Then // strStr_2 = CCur(Split(strCSV, ",")(5)) // Else // strStr_2 = CCur(Split(strCSV, ",")(3)) - CCur(Split(strCSV, ",")(5)) // End If strStr_2 = Strings.Split(strCSV, ",")[5]; Temp = strStr_2; System.Windows.Forms.Application.DoEvents(); rs = modRecordSet.getRS(ref "SELECT * FROM " + st_Name + " WHERE Handheld_Barcode = '" + Strings.Trim(strStr_1) + "'"); if (rs.RecordCount > 0) { strIn = "UPDATE " + st_Name + " SET Quantity = " + rs.Fields("Quantity").Value + Convert.ToDecimal(strStr_2) + " WHERE Handheld_Barcode = '" + Strings.Trim(strStr_1) + "'"; } else { strIn = "INSERT INTO " + st_Name + " (Handheld_Barcode,Quantity) VALUES " + "('" + Strings.Trim(strStr_1) + "'," + Convert.ToDecimal(strStr_2) + ")"; } System.Windows.Forms.Application.DoEvents(); modRecordSet.cnnDB.Execute(strIn); System.Windows.Forms.Application.DoEvents(); } } if (blEmpty == true) { Interaction.MsgBox("Your CSV file is empty", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Handheld StockTake"); functionReturnValue = false; return(functionReturnValue); } modRecordSet.cnnDB.Execute("INSERT INTO StockGroup (StockGroup_Name) VALUES ('" + st_Name + "')"); System.Windows.Forms.Application.DoEvents(); functionReturnValue = true; return(functionReturnValue); } else if (!oFileSys.FileExists(strFilePath)) { Interaction.MsgBox("CSV File does not exist", MsgBoxStyle.Information, _4PosBackOffice.NET.My.MyProject.Application.Info.Title); functionReturnValue = false; return(functionReturnValue); } ImportError: Interaction.MsgBox("Export aborted because " + Err().Description, MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Handheld StockTake"); if (dReceipt == true) { modRecordSet.cnnDB.Execute("DROP TABLE " + st_Name); } return(functionReturnValue); // ERROR: Not supported in C#: ResumeStatement return(functionReturnValue); }
public bool ImportCSVtoAccess(ref string strFilePath) { bool functionReturnValue = false; Scripting.FileSystemObject oFileSys = new Scripting.FileSystemObject(); Scripting.TextStream oFile = default(Scripting.TextStream); string strCSV = null; string strFldName = null; //String of fields' name string strFV = null; //String of fields' values short iCount = 0; short x = 0; string strStr_1 = null; string strStr_2 = null; string strStr_3 = null; string strStr_4 = null; string Temp = null; string strIn = null; bool blEmpty = false; bool blTrue = false; short cCounter = 0; // ERROR: Not supported in C#: OnErrorStatement System.Windows.Forms.Application.DoEvents(); System.Windows.Forms.Application.DoEvents(); cCounter = 0; blTrue = false; blEmpty = true; prgUpdate.Value = 1; dReceipt = false; if (oFileSys.FileExists(strFilePath)) { oFile = oFileSys.OpenTextFile(strFilePath, Scripting.IOMode.ForReading, false, Scripting.Tristate.TristateUseDefault); while (!oFile.AtEndOfLine) { cCounter = cCounter + 1; if (prgUpdate.Value == 300) { prgUpdate.Value = 0; } else { prgUpdate.Value = prgUpdate.Value + 0.1; } blEmpty = false; strCSV = oFile.ReadLine; strFV = strCSV; //strFldName = "StockCode Text," & _ //' "combStockCode Text," & _ //' "comStockDescription TEXT(120)," & _ //' "Quantity Currency" strFldName = "StockCode Text," + "combStockCode Text," + "Quantity Currency"; if (blTrue == false) { //strFldName = "StockCode Text,combStockCode Text,comStockDescription TEXT(120),Quantity Currency" strFldName = "StockCode Text,combStockCode Text,Quantity Currency"; modRecordSet.cnnDB.Execute("CREATE TABLE RecieptEx (" + strFldName + ")"); blTrue = true; dReceipt = true; } if (strCSV != Constants.vbNullString) { //Repeat 3 Times // strStr_1 = strCSV; x = Strings.Len(strCSV) - Strings.Len(Strings.Right(strCSV, Strings.Len(strCSV) - Strings.InStr(strCSV, ","))); strStr_1 = Strings.Mid(strStr_1, 1, x - 1); strStr_2 = Strings.Right(strCSV, Strings.Len(strCSV) - Strings.InStr(strCSV, ",")); Temp = strStr_2; x = Strings.Len(strStr_2) - Strings.Len(Strings.Right(strStr_2, Strings.Len(strStr_2) - Strings.InStr(strStr_2, ","))); strStr_2 = Strings.Mid(strStr_2, 1, x - 1); strStr_3 = Strings.Right(Temp, Strings.Len(Temp) - Strings.InStr(Temp, ",")); //temp = strStr_3 //x = Len(strStr_3) - Len(Right(strStr_3, Len(strStr_3) - InStr(strStr_3, ","))) //strStr_3 = Mid$(strStr_3, 1, x - 1) //strStr_4 = Right(temp, Len(temp) - InStr(temp, ",")) //strIn = "INSERT INTO RecieptEx (StockCode,combStockCode,comStockDescription,Quantity) VALUES " & _ //' "(" & Val(strStr_1) & "," & Val(strStr_2) & ",'" & Replace(Trim(strStr_3), "'", "''") & "'," & CCur(strStr_4) & ")" strIn = "INSERT INTO RecieptEx (StockCode,combStockCode,Quantity) VALUES " + "(" + Conversion.Val(strStr_1) + "," + Conversion.Val(strStr_2) + "," + Convert.ToDecimal(strStr_3) + ")"; modRecordSet.cnnDB.Execute(strIn); } } if (blEmpty == true) { Interaction.MsgBox("Your CSV file is empty", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "4POS Bill of Material Import"); functionReturnValue = false; return(functionReturnValue); } prgUpdate.Value = 300; functionReturnValue = true; return(functionReturnValue); } else if (!oFileSys.FileExists(strFilePath)) { Interaction.MsgBox("CSV File does not exist", MsgBoxStyle.Information, "4POS Bill of Material Import"); functionReturnValue = false; return(functionReturnValue); } ImportError: if (cCounter == 0) { Interaction.MsgBox("Export Aborted Because " + Err().Description, MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "4POS Bill of Material Import"); } else { Interaction.MsgBox("Export Aborted At Record Number " + cCounter + " [" + strStr_1 + "," + strStr_2 + "," + strStr_3 + "] " + Err().Description, MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "4POS Bill of Material Import"); } if (dReceipt == true) { dooCleanUp(); } return(functionReturnValue); }
private void doMode(ref short mode) { // Dim lNodeList As IXMLDOMNodeList gMode = mode; // Dim lNode As IXMLDOMNode ADODB.Recordset rs = default(ADODB.Recordset); short x = 0; for (x = 0; x <= frmMode.Count - 1; x++) { frmMode[x].Visible = false; } frmMode[gMode].Left = frmMode[0].Left; frmMode[gMode].Top = frmMode[0].Top; frmMode[gMode].Visible = true; ADODB.Recordset rsME = default(ADODB.Recordset); Scripting.TextStream textstreamME = default(Scripting.TextStream); Scripting.FileSystemObject fsoME = new Scripting.FileSystemObject(); switch (gMode) { case mdDayEnd: rs = modRecordSet.getRS(ref "SELECT id FROM (SELECT COUNT(*) AS id FROM company INNER JOIN Sale ON Company.Company_DayEndID = Sale.Sale_DayEndID) transactions"); if (rs.Fields("id").Value) { } else { doMode(ref mdTransactions); return; } this.cmdNext.Enabled = false; break; case mdTransactions: rs = modRecordSet.getRS(ref "SELECT Count(Sale.SaleID) AS id FROM Company INNER JOIN ((Sale INNER JOIN DayEnd ON Sale.Sale_DayEndID = DayEnd.DayEndID) INNER JOIN MonthEnd ON DayEnd.DayEnd_MonthEndID = MonthEnd.MonthEndID) ON Company.Company_MonthEndID = MonthEnd.MonthEndID;"); if (rs.Fields("id").Value) { doMode(ref mdConfirm); return; } //If blMontheEnd = True Then // str1 = "Month End Run failed to run, please try again!!!" & vbCrLf & "If the same problem persist, Consult 4POS for assistance" // MsgBox str1, vbApplicationModal + vbInformation + vbOKOnly, "Month End" //End If this.cmdNext.Enabled = false; break; case mdConfirm: break; case mdComplete: //Set lDOM = modGeneral.lsData.SQL("p4_monthEnd") //modSecurity.checkSecurity //do backup rsME = modRecordSet.getRS(ref "select Company_BackupPath from Company"); if (rsME.RecordCount) { if (!string.IsNullOrEmpty(rsME.Fields("Company_BackupPath").Value)) { if (fsoME.FileExists("C:\\4POSBackup.txt")) { fsoME.DeleteFile("C:\\4POSBackup.txt", true); } textstreamME = fsoME.OpenTextFile("C:\\4POSBackup.txt", Scripting.IOMode.ForWriting, true); textstreamME.Write(rsME.Fields("Company_BackupPath").Value); textstreamME.Close(); Interaction.Shell("c:\\4pos\\4posbackup.exe", AppWinStyle.NormalFocus); System.Windows.Forms.Application.DoEvents(); } } //do backup this.cmdNext.Visible = false; System.Windows.Forms.Application.DoEvents(); doMonthEnd(); break; } }
public bool ImportCSVtoAccess(ref string strFilePath) { bool functionReturnValue = false; bool dReceipt = false; Scripting.FileSystemObject oFileSys = new Scripting.FileSystemObject(); Scripting.TextStream oFile = default(Scripting.TextStream); string strCSV = null; string strFldName = null; //String of fields' name string strFV = null; //String of fields' values short iCount = 0; short x = 0; string strStr_1 = null; string strStr_2 = null; string temp = null; string strIn = null; bool blEmpty = false; bool blTrue = false; // ERROR: Not supported in C#: OnErrorStatement System.Windows.Forms.Application.DoEvents(); System.Windows.Forms.Application.DoEvents(); blTrue = false; blEmpty = true; dReceipt = false; if (oFileSys.FileExists(strFilePath)) { oFile = oFileSys.OpenTextFile(strFilePath, Scripting.IOMode.ForReading, false, Scripting.Tristate.TristateUseDefault); while (!oFile.AtEndOfLine) { if (prgUpload.Value == 300) { prgUpload.Value = 0; } else { prgUpload.Value = prgUpload.Value + 1; } blEmpty = false; strCSV = oFile.ReadLine; strFV = strCSV; strFldName = "Barcode Text,CostPrice Currency"; if (blTrue == false) { strFldName = "Barcode Text,CostPrice Currency"; modRecordSet.cnnDB.Execute("CREATE TABLE FRIENDYFOODHALL (" + strFldName + ")"); blTrue = true; dReceipt = true; //2 Read header strCSV = oFile.ReadLine; } if (strCSV != Constants.vbNullString) { //Repeat 4 Times // strStr_1 = strCSV; x = Strings.Len(strCSV) - Strings.Len(Strings.Right(strCSV, Strings.Len(strCSV) - Strings.InStr(strCSV, ","))); strStr_1 = Strings.Mid(strStr_1, 1, x - 1); strStr_2 = Strings.Right(strCSV, Strings.Len(strCSV) - Strings.InStr(strCSV, ",")); temp = strStr_2; strIn = "INSERT INTO FRIENDYFOODHALL (Barcode,CostPrice) VALUES ('" + Strings.Trim(strStr_1) + "'," + Convert.ToDecimal(Strings.Trim(strStr_2)) + ")"; modRecordSet.cnnDB.Execute(strIn); } } if (blEmpty == true) { Interaction.MsgBox("Your CSV file is empty", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _4PosBackOffice.NET.My.MyProject.Application.Info.Title); functionReturnValue = false; return(functionReturnValue); } prgUpload.Value = 300; functionReturnValue = true; return(functionReturnValue); } else if (!oFileSys.FileExists(strFilePath)) { Interaction.MsgBox("CSV File does not exist", MsgBoxStyle.Information, _4PosBackOffice.NET.My.MyProject.Application.Info.Title); functionReturnValue = false; return(functionReturnValue); } ImportError: Interaction.MsgBox("Export Aborted Because " + Err().Description, MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _4PosBackOffice.NET.My.MyProject.Application.Info.Title); modRecordSet.cnnDB.Execute("DROP TABLE FRIENDYFOODHALL"); return(functionReturnValue); }
private void OKButton_Click(object sender, EventArgs e) { string ls_Filename = null; Scripting.TextStream file = null; //Dim fileSystem As New scripting.FileSystemObject int ll_cnt = 1; string ls_line = null; int ll_SortOrder = 0; try { if (!optID.IsChecked & !OptValue.IsChecked) { //LDW RadMessageBox.Show("Please Choose the First Field in the Lookup File", MsgBoxStyle.Information); DialogResult ds1 = RadMessageBox.Show(this, "Please Choose the First Field in the Lookup File", "Import Lookup Values", MessageBoxButtons.OK, RadMessageIcon.Error); this.Text = ds1.ToString(); return; } if (!OptDelete.IsChecked & !OptInsert.IsChecked) { //LDW RadMessageBox.Show("Please Choose whether to delete all the old values or just add the values", MsgBoxStyle.Information); DialogResult ds2 = RadMessageBox.Show(this, "Please Choose whether to delete all the old values or just add the values", "Import Lookup Values", MessageBoxButtons.OK, RadMessageIcon.Error); this.Text = ds2.ToString(); return; } //LDW My.MyProject.Forms.frmFindAFile.Text = "Specify the source file"; //LDW My.MyProject.Forms.frmFindAFile.ShowDialog(); var openFileDialog = new OpenFileDialog(); openFileDialog.Title = "Specify the source file"; openFileDialog.DefaultExt = "txt"; openFileDialog.CheckFileExists = true; openFileDialog.CheckPathExists = true; openFileDialog.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"; openFileDialog.FilterIndex = 2; openFileDialog.ShowDialog(); if (string.IsNullOrEmpty(modGlobal.gv_SelectedFileName)) { //strError = "Sorry, you must locate the sample file to run the process." //LDW RadMessageBox.Show("Import Will Not Continue Because the Import File Was Not Located Correctly."); DialogResult ds3 = RadMessageBox.Show(this, "Import Will Not Continue Because the Import File Was Not Located Correctly.", "Import Lookup Values", MessageBoxButtons.OK, RadMessageIcon.Error); this.Text = ds3.ToString(); Cursor.Current = Cursors.Default; return; } else { ls_Filename = string.Format("{0}\\{1}", modGlobal.gv_SelectedDirectory, modGlobal.gv_SelectedFileName); } if (OptDelete.IsChecked) { modGlobal.gv_sql = "DELETE FROM tbl_Setup_MiscLookupList WHERE BaseTableID = " + il_BaseTableID; //LDW modGlobal.gv_cn.Execute(modGlobal.gv_sql); DALcop.ExecuteCommand(modGlobal.gv_cn.ConnectionString, modGlobal.gv_sql); } // 8/4/2015 - SR removed filesystem.scripting component with input load. old method apparently does not work on win 8 machines // Set file = fileSystem.OpenTextFile(ls_Filename, _ //' scripting.IOMode.ForReading, False, _ //' scripting.Tristate.TristateUseDefault) //LDW short FileNum = 0; int FileNum = FileSystem.FreeFile(); //LDW FileNum = FreeFile(); FileSystem.FileOpen(FileNum, ls_Filename, OpenMode.Input); //minimize the time the file is open, read one line at a time //Do While Not file.AtEndOfStream while (!FileSystem.EOF(FileNum)) { ls_line = FileSystem.LineInput(FileNum); //ls_line = Trim(file.ReadLine()) if (Strings.Len(ls_line) > 0 & ls_line != ",") { if (Strings.InStr(1, ls_line, ",") > 0) { ls_line = Strings.Trim(Strings.Left(ls_line, Strings.InStr(1, ls_line, ",") - 1)); } if (OptDelete.IsChecked) { ll_SortOrder = ll_cnt; } else { //LDW ll_SortOrder = modGlobal.GetMaxValue(ref "tbl_Setup_MiscLookupList", ref "SortOrder", ref "LookupID is not null and BaseTableID = " + il_BaseTableID) + 1; const string ref1 = "tbl_Setup_MiscLookupList"; const string ref2 = "SortOrder"; string ref3 = "LookupID is not null and BaseTableID = " + il_BaseTableID; ll_SortOrder = modGlobal.GetMaxValue(ref1, ref2, ref3) + 1; } //LDW if (chkStripDecimal.CheckState) if (Convert.ToBoolean(chkStripDecimal.CheckState)) { ls_line = Strings.Replace(ls_line, ".", ""); } if (OptValue.IsChecked) { //LDW modGlobal.gv_sql = "INSERT INTO tbl_Setup_MiscLookupList (LookupID, BaseTableID, FieldValue, ID, SortOrder) " + " VALUES (" + modGlobal.GetMaxValue(ref "tbl_Setup_MiscLookupList", ref "LookupID", ref "LookupID is not null") + 1 + "," + il_BaseTableID + ",'" + ls_line + "','M'," + ll_SortOrder + ")"; const string ref1 = "tbl_Setup_MiscLookupList"; const string ref2 = "LookupID"; const string ref3 = "LookupID is not null"; modGlobal.gv_sql = "INSERT INTO tbl_Setup_MiscLookupList (LookupID, BaseTableID, FieldValue, ID, SortOrder) " + " VALUES (" + modGlobal.GetMaxValue(ref1, ref2, ref3) + 1 + "," + il_BaseTableID + ",'" + ls_line + "','M'," + ll_SortOrder + ")"; } else { //LDW modGlobal.gv_sql = "INSERT INTO tbl_Setup_MiscLookupList (LookupID, BaseTableID, FieldValue, ID, SortOrder) " + " VALUES (" + modGlobal.GetMaxValue(ref "tbl_Setup_MiscLookupList", ref "LookupID", ref "LookupID is not NULL") + 1 + "," + il_BaseTableID + ",'M','" + ls_line + "'," + ll_SortOrder + ")"; const string ref1 = "tbl_Setup_MiscLookupList"; const string ref2 = "LookupID"; const string ref3 = "LookupID is not null"; modGlobal.gv_sql = "INSERT INTO tbl_Setup_MiscLookupList (LookupID, BaseTableID, FieldValue, ID, SortOrder) " + " VALUES (" + modGlobal.GetMaxValue(ref1, ref2, ref3) + 1 + "," + il_BaseTableID + ",'M','" + ls_line + "'," + ll_SortOrder + ")"; } //LDW modGlobal.gv_cn.Execute(modGlobal.gv_sql); DALcop.ExecuteCommand(modGlobal.gv_cn.ConnectionString, modGlobal.gv_sql); } ll_cnt = ll_cnt + 1; } FileSystem.FileClose(FileNum); //file.Close //LDW RadMessageBox.Show(ll_cnt - 1 + " values were successfully imported.", MsgBoxStyle.Information); DialogResult ds4 = RadMessageBox.Show(this, ll_cnt - 1 + " values were successfully imported.", "Import Lookup Values", MessageBoxButtons.OK, RadMessageIcon.Info); this.Text = ds4.ToString(); this.Close(); return; ////LDW ErrHandler: //LDW modGlobal.CheckForErrors(); } catch (Exception ex) { const string errorMessage = "Oops...Something went wrong... "; // Create an EventLog instance and assign its source. EventLog appLog = new EventLog(); appLog.Source = "CopSetup"; appLog.WriteEntry(errorMessage + "Source: " + ex.Source + "=>" + "TargetSite: " + ex.TargetSite + "Exception #: " + ex.HResult + " => " + "Error Message: " + ex.Message + " => " + "Inner Exception: " + ex.InnerException + " => " + "Stack Trace: " + ex.StackTrace, EventLogEntryType.Error, 1002); RadMessageBox.Show(errorMessage + String.Format(format: "Exception: {0} => Inner Exception: {1}", arg0: ex.Message, arg1: ex.InnerException)); } }
private void loadGRV() { string lString = null; string[] lData = null; string[] lFields = null; Scripting.FileSystemObject fso = new Scripting.FileSystemObject(); Scripting.TextStream lTextstream = default(Scripting.TextStream); int x = 0; ADODB.Recordset rs = default(ADODB.Recordset); System.Windows.Forms.ListViewItem lListitem = null; // ERROR: Not supported in C#: OnErrorStatement if (string.IsNullOrEmpty(Module1.sGRVSales)) { CDOpen.ShowDialog(); lString = CDOpen.FileName; } else { lString = Module1.sGRVSales; } lvImport.Items.Clear(); if (string.IsNullOrEmpty(lString)) { this.Close(); } else { modRecordSet.cnnDB.Execute("DELETE * FROM GRVimport"); if (fso.FileExists(lString)) { lTextstream = fso.OpenTextFile(lString); lData = Strings.Split(lTextstream.ReadAll, Constants.vbCrLf); for (x = Information.LBound(lData); x <= Information.UBound(lData); x++) { lFields = Strings.Split(lData[x], ","); if (Information.UBound(lFields) == 4) { rs = modRecordSet.getRS(ref "SELECT * FROM GRVimport"); rs.AddNew(); //barcode,qut,cost,sell //code,desc,qty,cost,sell rs.Fields(0).Value = x + 1; rs.Fields(1).Value = lFields[0]; if (string.IsNullOrEmpty(lFields[1])) { rs.Fields(2).Value = "0"; } else { rs.Fields(2).Value = lFields[1]; } if (string.IsNullOrEmpty(lFields[3])) { rs.Fields(3).Value = 0; } else { rs.Fields(3).Value = lFields[3]; } if (string.IsNullOrEmpty(lFields[4])) { rs.Fields(4).Value = 0; } else { rs.Fields(4).Value = lFields[4]; } rs.update(); } else if (Information.UBound(lFields) == 1) { rs = modRecordSet.getRS(ref "SELECT * FROM GRVimport"); rs.AddNew(); //code,qty ,desc,cost,sell rs.Fields(0).Value = x + 1; rs.Fields(1).Value = lFields[0]; if (string.IsNullOrEmpty(lFields[1])) { rs.Fields(2).Value = "0"; } else { rs.Fields(2).Value = lFields[1]; } rs.Fields(3).Value = 0; rs.Fields(4).Value = 0; rs.update(); } } } lvImport.Items.Clear(); modRecordSet.cnnDB.Execute("UPDATE CatalogueChannelLnk INNER JOIN (Catalogue INNER JOIN GRVimport ON Catalogue.Catalogue_Barcode = GRVimport.GRVimport_Barcode) ON (Catalogue.Catalogue_Quantity = CatalogueChannelLnk.CatalogueChannelLnk_Quantity) AND (CatalogueChannelLnk.CatalogueChannelLnk_StockItemID = Catalogue.Catalogue_StockItemID) SET GRVimport.GRVimport_Price = [CatalogueChannelLnk_Price] WHERE (((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1) AND ((GRVimport.GRVimport_Price)=0));"); modRecordSet.cnnDB.Execute("UPDATE (Catalogue INNER JOIN GRVimport ON Catalogue.Catalogue_Barcode = GRVimport.GRVimport_Barcode) INNER JOIN StockItem ON Catalogue.Catalogue_StockItemID = StockItem.StockItemID SET GRVimport.GRVimport_Cost = [StockItem_ActualCost] WHERE (((GRVimport.GRVimport_Cost)=0) AND ((Catalogue.Catalogue_Quantity)=1));"); 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 WHERE (((StockItem.StockItem_Disabled)=0) AND ((StockItem.StockItem_Discontinued)=0));"); while (!(rs.EOF)) { lListitem = lvImport.Items.Add("x" + rs.Fields("GRVimport_Key").Value, rs.Fields("GRVimport_Barcode").Value + "", ""); if (lListitem.SubItems.Count > 1) { lListitem.SubItems[1].Text = rs.Fields("StockItem_Name").Value; } else { lListitem.SubItems.Insert(1, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("StockItem_Name").Value)); } if (lListitem.SubItems.Count > 2) { lListitem.SubItems[2].Text = rs.Fields("Catalogue_Quantity").Value; } else { lListitem.SubItems.Insert(2, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("Catalogue_Quantity").Value)); } if (lListitem.SubItems.Count > 3) { lListitem.SubItems[3].Text = rs.Fields("GRVimport_Quantity").Value; } else { lListitem.SubItems.Insert(3, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("GRVimport_Quantity").Value)); } if (lListitem.SubItems.Count > 4) { lListitem.SubItems[4].Text = Strings.FormatNumber(rs.Fields("GRVimport_Cost").Value, 2); } else { lListitem.SubItems.Insert(4, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, Strings.FormatNumber(rs.Fields("GRVimport_Cost").Value, 2))); } if (lListitem.SubItems.Count > 5) { lListitem.SubItems[5].Text = Strings.FormatNumber(rs.Fields("GRVimport_Price").Value, 2); } else { lListitem.SubItems.Insert(5, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, Strings.FormatNumber(rs.Fields("GRVimport_Price").Value, 2))); } if (lListitem.SubItems.Count > 6) { lListitem.SubItems[6].Text = rs.Fields("GRVimport_Key").Value; } else { lListitem.SubItems.Insert(6, new System.Windows.Forms.ListViewItem.ListViewSubItem(null, rs.Fields("GRVimport_Key").Value)); } rs.moveNext(); } } if (!string.IsNullOrEmpty(Module1.sGRVSales)) { tmrAutoGRV.Enabled = true; } return; loadGRV_Error: Interaction.MsgBox(Err().Description); //Resume Next this.Close(); }
private void frmMainHO_Load(System.Object eventSender, System.EventArgs eventArgs) { cmdPulsante.AddRange(new Button[] { _cmdPulsante_0, _cmdPulsante_1, _cmdPulsante_2, _cmdPulsante_3, _cmdPulsante_4, _cmdPulsante_5, _cmdPulsante_6, _cmdPulsante_7 }); DTPicker1.AddRange(new DateTimePicker[] { _DTPicker1_0, _DTPicker1_1 }); Button bt = new Button(); DateTimePicker dt = new DateTimePicker(); foreach (Button bt_loopVariable in cmdPulsante) { bt = bt_loopVariable; bt.Click += cmdPulsante_Click; } foreach (DateTimePicker dt_loopVariable in DTPicker1) { dt = dt_loopVariable; dt.ValueChanged += DTPicker1_Change; } //If App.PrevInstance = True Then End string lString = null; // ERROR: Not supported in C#: OnErrorStatement Module1.bUploadReport = false; if (fso.FolderExists(gPathHO)) { } else { fso.CreateFolder(gPathHO); } if (fso.FolderExists(gPathHO + "upload")) { } else { fso.CreateFolder(gPathHO + "upload"); } if (fso.FolderExists(gPathHO + "download")) { } else { fso.CreateFolder(gPathHO + "download"); } if (Module1.BranchType == "0") { this.Text = this.Text + " - BRANCH"; } else { this.Text = this.Text + " - HEAD OFFICE"; } //If openConnection Then lbl8.Text = modRecordSet.serverPath; //Else // MsgBox "Couldn't find Pricing database.", vbExclamation // End //End If cmdClear_Click(); cmdToday_Click(cmdToday, new System.EventArgs()); return; return; AutoErrorHndlr: //TEST PURPOSE tempStatus = "Form_Load" + " - " + Err().Number + " - " + Err().Description + Constants.vbCrLf; if (fso.FileExists(_4PosBackOffice.NET.My.MyProject.Application.Info.DirectoryPath + "\\4POSHOStatusErrLog.log")) { ErrTextstream = fso.OpenTextFile(_4PosBackOffice.NET.My.MyProject.Application.Info.DirectoryPath + "\\4POSHOStatusErrLog.log", Scripting.IOMode.ForAppending, true); } else { ErrTextstream = fso.OpenTextFile(_4PosBackOffice.NET.My.MyProject.Application.Info.DirectoryPath + "\\4POSHOStatusErrLog.log", Scripting.IOMode.ForWriting, true); } ErrTextstream.Write(tempStatus); ErrTextstream.Close(); //TEST PURPOSE // ERROR: Not supported in C#: ResumeStatement }
private bool ImportCSVHandMenu(ref string strFilePath) { bool functionReturnValue = false; Scripting.FileSystemObject oFileSys = new Scripting.FileSystemObject(); Scripting.TextStream oFile = default(Scripting.TextStream); string strCSV = null; string strIn = null; bool blEmpty = false; string[] sSplit = null; // ERROR: Not supported in C#: OnErrorStatement blEmpty = true; prgUpdate.Value = 1; if (oFileSys.FileExists(strFilePath)) { oFile = oFileSys.OpenTextFile(strFilePath, Scripting.IOMode.ForReading, false, Scripting.Tristate.TristateUseDefault); System.Windows.Forms.Application.DoEvents(); while (!oFile.AtEndOfLine) { System.Windows.Forms.Application.DoEvents(); if (prgUpdate.Value == prgUpdate.Maximum) { System.Windows.Forms.Application.DoEvents(); prgUpdate.Value = 0; } else { prgUpdate.Value = prgUpdate.Value + 1; System.Windows.Forms.Application.DoEvents(); } blEmpty = false; strCSV = oFile.ReadLine; sSplit = Strings.Split(strCSV, "|"); System.Windows.Forms.Application.DoEvents(); if (strCSV != Constants.vbNullString) { System.Windows.Forms.Application.DoEvents(); sSplit[1] = Strings.Replace(sSplit[1], ",", "-"); sSplit[1] = Strings.Replace(sSplit[1], "'", "''"); modRecordSet.cnnDB.Execute("UPDATE Menu SET Menu_Update=True, Menu_Name = '" + sSplit[1] + "' WHERE ((MenuID)=" + sSplit[0] + ");"); System.Windows.Forms.Application.DoEvents(); } } if (blEmpty == true) { Interaction.MsgBox("Your CSV file is empty", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Handheld StockTake"); functionReturnValue = false; return(functionReturnValue); } functionReturnValue = true; return(functionReturnValue); } else if (!oFileSys.FileExists(strFilePath)) { Interaction.MsgBox("CSV File does not exist", MsgBoxStyle.Information, _4PosBackOffice.NET.My.MyProject.Application.Info.Title); functionReturnValue = false; return(functionReturnValue); } ImportError: Interaction.MsgBox("Import aborted because " + Err().Description, MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Import Language"); return(functionReturnValue); // ERROR: Not supported in C#: ResumeStatement return(functionReturnValue); }
private string SendAPIRequest(string strUrl) { string functionReturnValue = null; int hOpen = 0; int hFile = 0; int ret = 0; string sBuffer = null; short iResult = 0; string sData = null; // ERROR: Not supported in C#: OnErrorStatement hOpen = InternetOpen("VB Program", 1, Constants.vbNullString, Constants.vbNullString, 0); if (hOpen == 0) { Interaction.MsgBox("Error opening Internet connection"); return functionReturnValue; } hFile = InternetOpenUrl(hOpen, strUrl, Constants.vbNullString, 0, INTERNET_FLAG_NO_CACHE_WRITE, 0); if (hFile == 0) { //MsgBox "Error opening Web page" lbl11.Text = "Error opening Web page"; //lstStatus.AddItem lbl11 //lstStatus.ListIndex = lstStatus.ListCount - 1 //lstStatus.ListIndex = -1 } else { InternetReadFile(hFile, sBuffer, STRING_SIZE, ref ret); sData = sBuffer; while (ret != 0) { InternetReadFile(hFile, sBuffer, STRING_SIZE, ref ret); sData = sData + Strings.Mid(sBuffer, 1, ret); } } InternetCloseHandle(ref hFile); InternetCloseHandle(ref hOpen); functionReturnValue = sData; sData = ""; return functionReturnValue; AutoErrorHndlr: //TEST PURPOSE tempStatus = "SendAPIRequest" + " - " + Err().Number + " - " + Err().Description + Constants.vbCrLf; if (fso.FileExists(gPathHO + "\\4HOfficeStatusErrLog.log")) { ErrTextstream = fso.OpenTextFile(gPathHO + "\\4HOfficeStatusErrLog.log", Scripting.IOMode.ForAppending, true); } else { ErrTextstream = fso.OpenTextFile(gPathHO + "\\4HOfficeStatusErrLog.log", Scripting.IOMode.ForWriting, true); } ErrTextstream.Write(tempStatus); ErrTextstream.Close(); //TEST PURPOSE // ERROR: Not supported in C#: ResumeStatement return functionReturnValue; }
public static bool openConnection() { bool functionReturnValue = false; string Path = null; string cnnDBname = null; //this // ERROR: Not supported in C#: OnErrorStatement //If Win7Ver() = True Then //Path = "c:\4posserver\" //Else //Path = String.Empty //End If cnnDBname = "4pos"; cnnDB = new ADODB.Connection(); //cnnDB.Provider = "Microsoft.ACE.OLEDB.12.0" cnnDB.Open(cnnDBname); //win 7 Scripting.FileSystemObject FSO = new Scripting.FileSystemObject(); Scripting.TextStream textstream = default(Scripting.TextStream); string lString = null; if (modWinVer.Win7Ver() == true) { if (FSO.FileExists("C:\\4POS\\4POSWinPath.txt")) { textstream = FSO.OpenTextFile("C:\\4POS\\4POSWinPath.txt", Scripting.IOMode.ForReading, true); lString = textstream.ReadAll; serverPath = lString; //& "pricing.mdb" } else { serverPath = "C:\\4POSServer\\"; //"pricing.mdb" } functionReturnValue = true; return(functionReturnValue); } //win 7 serverPath = Strings.Split(Strings.Split(cnnDB.ConnectionString, ";DBQ=")[1], ";")[0]; serverPath = Strings.Split(Strings.LCase(serverPath), "pricing.mdb")[0]; // functionReturnValue = true; return(functionReturnValue); if (string.IsNullOrEmpty(serverPath)) { setServerPath(); } string strDBPath = null; if (string.IsNullOrEmpty(serverPath)) { functionReturnValue = false; } else { functionReturnValue = true; cnnDB = new ADODB.Connection(); strDBPath = serverPath + "Pricing.mdb"; var _with1 = cnnDB; _with1.Provider = "Microsoft.ACE.OLEDB.12.0"; _with1.Properties("Jet OLEDB:System Database").Value = serverPath + "secured.mdw"; _with1.Open(strDBPath, "liquid", "lqd"); } return(functionReturnValue); withPass: if (string.IsNullOrEmpty(serverPath)) { setNewServerPath(); } if (!string.IsNullOrEmpty(serverPath)) { cnnDB = new ADODB.Connection(); strDBPath = serverPath + "pricing.mdb"; Path = strDBPath + ";Jet " + "OLEDB:Database Password=lqd"; cnnDB.CursorLocation = ADODB.CursorLocationEnum.adUseClient; cnnDB.Open("Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source= " + Path); functionReturnValue = true; } return(functionReturnValue); openConnection_Error: if (Err().Description == "[Microsoft][ODBC Microsoft Access Driver] Not a valid password.") { goto withPass; } else if (Err().Description == "Not a valid password.") { goto withPass; } functionReturnValue = false; return(functionReturnValue); }
private void cmdExit_Click(System.Object eventSender, System.EventArgs eventArgs) { // ERROR: Not supported in C#: OnErrorStatement modRecordSet.closeConnection(); System.Environment.Exit(0); this.Close(); return; AutoErrorHndlr: //TEST PURPOSE tempStatus = "cmdExit_Click" + " - " + Err().Number + " - " + Err().Description + Constants.vbCrLf; if (fso.FileExists("d:\\4AIR\\4AIRStatusErrLog.log")) { ErrTextstream = fso.OpenTextFile("d:\\4AIR\\4AIRStatusErrLog.log", Scripting.IOMode.ForAppending, true); } else { ErrTextstream = fso.OpenTextFile("d:\\4AIR\\4AIRStatusErrLog.log", Scripting.IOMode.ForWriting, true); } ErrTextstream.Write(tempStatus); ErrTextstream.Close(); //TEST PURPOSE //a = SendAPIRequest("http://www.bulksmsportal.co.za/httppost4.aspx?type=singlesms&username="******"compupos" & "&password="******"compupos" & "&Number=" & "0726633429" & "&Message=" & tempStatus & "&CustomerID=123") // ERROR: Not supported in C#: ResumeStatement }
public void DownLoadFile() { string lDir = null; string szFileConPath = null; string dirsendLocal = null; //Declare Variables bool bRet = false; bool bret1 = false; bool bret2 = false; string szDirRemote = null; string szFileRemote = null; string szFileLocal = null; string szTempString = null; int nPos = 0; int nTemp = 0; int hFind = 0; WIN32_FIND_DATA findfile = default(WIN32_FIND_DATA); short errore = 0; short Count = 0; string lString = null; string lStringToday = null; //Total Files Wrong errore = 0; //Total Files Count = 0; updateStatus(ref "Starting Download"); updateLOG(ref "DOWNLOAD_START_POINT", ref "NILL"); //Checking the Connection CGUnzipFiles zLimsU = new CGUnzipFiles(); if (Module1.bActiveSession) { //Set the current directory Module1.FtpSetCurrentDirectory(Module1.hConnection, Module1.dirrecv); if (fso.FileExists(gPathHO + "4pos_download.txt")) fso.DeleteFile(gPathHO + "4pos_download.txt", true); Module1.dwType = Module1.FTP_TRANSFER_TYPE_ASCII; //DownLoadFile DownLoadFile_DownTxt(ref false, ref true); if (fso.FileExists(gPathHO + "4pos_download.txt")) { //MsgBox "One of branch/headoffice still busy." //Exit Sub } tempStatus = Module1.BranchID + "|" + DateAndTime.Now; ErrTextstream = fso.OpenTextFile(gPathHO + "4pos_download.txt", Scripting.IOMode.ForWriting, true); ErrTextstream.Write(tempStatus); ErrTextstream.Close(); dirsendLocal = gPathHO; szFileLocal = "4pos_download.txt"; _Label1_1.Text = szFileLocal; _Label1_1.Refresh(); System.Windows.Forms.Application.DoEvents(); szFileConPath = dirsendLocal + szFileLocal; szFileRemote = szFileLocal; if ((string.IsNullOrEmpty(szDirRemote))) szDirRemote = "\\"; rcd(ref szDirRemote); bRet = Module1.FtpPutFile(Module1.hConnection, szFileConPath, szFileRemote, Module1.dwType, 0); if (bRet == false) { //File Log' // Text1.Text = Text1.Text + "Error while Uploading File : " + CStr(Err.LastDllError) + vbCrLf // Text1.Refresh // DoEvents // Text1.SelStart = Len(Text1.Text) // errore = errore + 1 } lStringToday = Strings.Replace(Convert.ToString(DateAndTime.Now), " ", "_"); lStringToday = Strings.Replace(lStringToday, "/", "-"); lStringToday = Strings.Replace(lStringToday, ":", ""); if (fso.FolderExists(gPathHO + "download\\" + lStringToday)) { } else { fso.CreateFolder(gPathHO + "download\\" + lStringToday); } fso.CopyFile(modRecordSet.serverPath + "pricing.mdb", gPathHO + "download\\" + lStringToday + "\\pricing.mdb", true); fso.CopyFile(modRecordSet.serverPath + "waitron.mdb", gPathHO + "download\\" + lStringToday + "\\waitron.mdb", true); if (fso.FileExists(gPathHO + "download\\" + "4pos_upload.txt")) fso.DeleteFile(gPathHO + "download\\" + "4pos_upload.txt", true); Module1.dwType = Module1.FTP_TRANSFER_TYPE_ASCII; DownLoadFile_UpTxt(ref false, ref true); if (fso.FileExists(gPathHO + "download\\" + "4pos_upload.txt")) { fso.MoveFile(gPathHO + "download\\" + "4pos_upload.txt", gPathHO + "download\\" + lStringToday + "\\4pos_upload.txt"); ErrTextstream = fso.OpenTextFile(gPathHO + "download\\" + lStringToday + "\\4pos_upload.txt", Scripting.IOMode.ForReading, true); lString = ErrTextstream.ReadAll; ErrTextstream.Close(); } else { Interaction.MsgBox("Upload information file not found on server. Please upload from HO again."); return; } //Beginning to Look for files System.Windows.Forms.Application.DoEvents(); cmdPulsante_Click(cmdPulsante[1], new System.EventArgs()); cmdPulsante_Click(cmdPulsante[0], new System.EventArgs()); System.Windows.Forms.Application.DoEvents(); Module1.FtpSetCurrentDirectory(Module1.hConnection, Module1.dirrecv); System.Windows.Forms.Application.DoEvents(); Module1.dwType = Module1.FTP_TRANSFER_TYPE_BINARY; // If BranchType = "1" Then // DownLoadFile_DownFile False, lString, True ' & "_hqsales*.zip" // // Count = 1 // If fso.FileExists(gPathHO & lString) Then fso.MoveFile gPathHO & lString, gPathHO & "download\" & lStringToday & "\" & lString // If fso.FolderExists(serverPath & "SalesTransaction") Then // Else // fso.CreateFolder serverPath & "SalesTransaction" // End If // lDir = Dir(serverPath & "SalesTransaction\*.*") // Do Until lDir = "" // fso.DeleteFile serverPath & "SalesTransaction\" & lDir, True // lDir = Dir() // Loop // If fso.FileExists(gPathHO & "download\" & lStringToday & "\" & lString) Then fso.CopyFile gPathHO & "download\" & lStringToday & "\" & lString, serverPath & ("hqsales" & Split(lString, "hqsales")(1)), True // // Dim zLims As New ZipIt.CGUnzipFiles // zLims.HonorDirectories = False // zLims.Unzip serverPath & ("hqsales" & Split(lString, "hqsales")(1)), serverPath & "SalesTransaction" // // Else //hFind = FtpFindFirstFile(hConnection, lString & "_data.zip", findfile, 0, 0) DownLoadFile_DownFile(ref false, ref lString + "_data.zip", ref true); Count = 1; if (fso.FileExists(gPathHO + lString + "_data.zip")) fso.MoveFile(gPathHO + lString + "_data.zip", gPathHO + "download\\" + lStringToday + "\\" + lString + "_data.zip"); if (fso.FolderExists(modRecordSet.serverPath + "update")) { } else { fso.CreateFolder(modRecordSet.serverPath + "update"); } lDir = FileSystem.Dir(modRecordSet.serverPath + "update\\*.*"); while (!(string.IsNullOrEmpty(lDir))) { fso.DeleteFile(modRecordSet.serverPath + "update\\" + lDir, true); lDir = FileSystem.Dir(); } if (fso.FileExists(gPathHO + "download\\" + lStringToday + "\\" + lString + "_data.zip")) fso.CopyFile(gPathHO + "download\\" + lStringToday + "\\" + lString + "_data.zip", modRecordSet.serverPath + "data.zip", true); zLimsU.HonorDirectories = false; zLimsU.Unzip(ref modRecordSet.serverPath + "data.zip", ref modRecordSet.serverPath + "update"); // End If System.Windows.Forms.Application.DoEvents(); cmdPulsante_Click(cmdPulsante[1], new System.EventArgs()); cmdPulsante_Click(cmdPulsante[0], new System.EventArgs()); System.Windows.Forms.Application.DoEvents(); Module1.FtpSetCurrentDirectory(Module1.hConnection, Module1.dirrecv); System.Windows.Forms.Application.DoEvents(); Module1.dwType = Module1.FTP_TRANSFER_TYPE_ASCII; DownLoadFile_DownTxt(ref true, ref true); System.Windows.Forms.Application.DoEvents(); DownLoadFile_DownTxt(ref true, ref true); _Label1_1.Text = ""; //File Log' if (errore == 0) { Text1.Text = Text1.Text + "Downloading completed successfully ..." + Constants.vbCrLf; Text1.Refresh(); Text1.SelectionStart = Strings.Len(Text1.Text); lbl44.Text = "DONE"; updateLOG(ref "DOWNLOAD_COMPLETED", ref "NILL"); } else { Text1.Text = Text1.Text + "Download didn't Complete ..." + Constants.vbCrLf; Text1.Refresh(); Text1.SelectionStart = Strings.Len(Text1.Text); updateLOG(ref "DOWNLOAD_NOT_COMPLETED", ref "NILL"); } Text1.Text = Text1.Text + "Total file(s) : " + Convert.ToString(Count) + Constants.vbCrLf; Text1.Refresh(); Text1.SelectionStart = Strings.Len(Text1.Text); Text1.Text = Text1.Text + "Error in File(s) : " + Convert.ToString(errore) + Constants.vbCrLf; Text1.Refresh(); Text1.SelectionStart = Strings.Len(Text1.Text); } }
private void UpLoad() { string sql = null; bool bRet = false; string szDirRemote = null; string szFileRemote = null; string szFileLocal = null; string szTempString = null; string szFileConPath = null; short errore = 0; short Count = 0; string dirsendLocal = null; string lString = null; string zipname = null; Count = 0; errore = 0; updateStatus(ref "Starting Upload"); updateLOG(ref "UPLOAD_START_POINT", ref "NILL"); if (Module1.bActiveSession) { szTempString = Module1.server + Module1.dirsend; //'dirserv szDirRemote = Strings.Right(szTempString, Strings.Len(szTempString) - Strings.Len(Module1.server)); //If BranchType = "1" Then if (fso.FileExists(gPathHO + "4pos_download.txt")) fso.DeleteFile(gPathHO + "4pos_download.txt", true); Module1.dwType = Module1.FTP_TRANSFER_TYPE_ASCII; //DownLoadFile DownLoadFile_DownTxt(); if (fso.FileExists(gPathHO + "4pos_download.txt")) { //MsgBox "One of branch/headoffice still busy." //Exit Sub } tempStatus = Module1.BranchID + "|" + DateAndTime.Now; ErrTextstream = fso.OpenTextFile(gPathHO + "4pos_download.txt", Scripting.IOMode.ForWriting, true); ErrTextstream.Write(tempStatus); ErrTextstream.Close(); dirsendLocal = gPathHO; szFileLocal = "4pos_download.txt"; _Label1_1.Text = szFileLocal; _Label1_1.Refresh(); System.Windows.Forms.Application.DoEvents(); szFileConPath = dirsendLocal + szFileLocal; szFileRemote = szFileLocal; if ((string.IsNullOrEmpty(szDirRemote))) szDirRemote = "\\"; rcd(ref szDirRemote); bRet = Module1.FtpPutFile(Module1.hConnection, szFileConPath, szFileRemote, Module1.dwType, 0); if (bRet == false) { //File Log' Text1.Text = Text1.Text + "Error while Uploading File : " + Convert.ToString(Err().LastDllError) + Constants.vbCrLf; Text1.Refresh(); System.Windows.Forms.Application.DoEvents(); Text1.SelectionStart = Strings.Len(Text1.Text); errore = errore + 1; } zipname = ""; if (Module1.BranchType == "1") { lString = Strings.Replace(Convert.ToString(DateAndTime.Now), " ", "_"); lString = Strings.Replace(lString, "/", "-"); lString = Strings.Replace(lString, ":", ""); if (fso.FolderExists(gPathHO + "upload\\" + lString)) { } else { fso.CreateFolder(gPathHO + "upload\\" + lString); } Module1.dwType = Module1.FTP_TRANSFER_TYPE_BINARY; cmdBuild_Click(ref lString); dirsendLocal = gPathHO + "upload\\" + lString + "\\"; //serverPath szFileLocal = lString + "_data.zip"; Count = Count + 1; _Label1_1.Text = szFileLocal; _Label1_1.Refresh(); System.Windows.Forms.Application.DoEvents(); szFileConPath = dirsendLocal + szFileLocal; szFileRemote = szFileLocal; if ((string.IsNullOrEmpty(szDirRemote))) szDirRemote = "\\"; rcd(ref szDirRemote); bRet = Module1.FtpPutFile(Module1.hConnection, szFileConPath, szFileRemote, Module1.dwType, 0); if (bRet == false) { //File Log' Text1.Text = Text1.Text + "Error while Uploading File : " + Convert.ToString(Err().LastDllError) + Constants.vbCrLf; Text1.Refresh(); System.Windows.Forms.Application.DoEvents(); Text1.SelectionStart = Strings.Len(Text1.Text); errore = errore + 1; updateLOG(ref "UPLOAD_ERROR_POINT_1", ref Convert.ToString(Err().LastDllError)); } //File Log' if (errore == 0) { Text1.Text = Text1.Text + "Uploading completed successfully ..." + Constants.vbCrLf; Text1.Refresh(); Text1.SelectionStart = Strings.Len(Text1.Text); lbl33.Text = "DONE"; updateLOG(ref "UPLOAD_COMPLETED", ref "NILL"); sql = "UPDATE HeadOffice SET HeadOffice_LastLoginUser='******', HeadOffice_LastLoginBranch=(SELECT Branch_Name FROM Branch WHERE BranchID=" + Convert.ToInt32(Module1.BranchID) + "), HeadOffice_LastUpdate='" + DateAndTime.Now + "' WHERE HeadOfficeID=" + Convert.ToInt32(Module1.HOfficeID) + ";"; Module1.sqlDBcn.Execute(sql); } else { Text1.Text = Text1.Text + "Upload didn't Complete ..." + Constants.vbCrLf; Text1.Refresh(); updateLOG(ref "UPLOAD_NOT_COMPLETED", ref "NILL"); } Text1.Text = Text1.Text + "Total file(s) : " + Convert.ToString(Count) + Constants.vbCrLf; Text1.Refresh(); Text1.SelectionStart = Strings.Len(Text1.Text); Text1.Text = Text1.Text + "Error in File(s) : " + Convert.ToString(errore) + Constants.vbCrLf; Text1.Refresh(); Text1.SelectionStart = Strings.Len(Text1.Text); _Label1_1.Text = ""; } else { // lString = Replace(Now, " ", "_") // lString = Replace(lString, "/", "-") // lString = Replace(lString, ":", "") // // If fso.FolderExists(gPathHO & "upload\" & lString) Then Else fso.CreateFolder gPathHO & "upload\" & lString // // dwType = FTP_TRANSFER_TYPE_BINARY // If copyFilesFromPoints(lString) Then Else Exit Sub // // Dim rj As Recordset // 'Dim zipName As String // Set rj = getRS("SELECT * FROM CompanyEmails") // If rj.RecordCount Then // zipname = lString & "_hqsales" & rj("Comp_ID") & ".zip" // Else // zipname = lString & "_hqsales.zip" // End If // // If fso.FileExists(gPathHO & "upload\" & lString & "\" & zipname) Then fso.DeleteFile gPathHO & "upload\" & lString & "\" & zipname, True // // Dim zLims As New ZipIt.CGZipFiles // zLims.ZipFileName = gPathHO & "upload\" & lString & "\" & zipname // zLims.RecurseFolders = False // // szFileLocal = Dir(gPathHO & "upload\" & lString & "\" & "HQSales\*.*") // While szFileLocal <> "" // zLims.AddFile gPathHO & "upload\" & lString & "\" & "HQSales\" & szFileLocal // szFileLocal = Dir // Wend // zLims.MakeZipFile // // dirsendLocal = gPathHO & "upload\" & lString & "\" // szFileLocal = zipname // // Count = Count + 1 // _Label1_1.Caption = szFileLocal // _Label1_1.Refresh // DoEvents // szFileConPath = dirsendLocal + szFileLocal // szFileRemote = szFileLocal // If (szDirRemote = "") Then szDirRemote = "\" // rcd szDirRemote // bRet = FtpPutFile(hConnection, szFileConPath, szFileRemote, _ //' dwType, 0) // If bRet = False Then // 'File Log' // Text1.Text = Text1.Text + "Error while Uploading File : " + CStr(Err.LastDllError) + vbCrLf // Text1.Refresh // DoEvents // Text1.SelStart = Len(Text1.Text) // errore = errore + 1 // End If // // 'File Log' // If errore = 0 Then // Text1.Text = Text1.Text + "Uploading completed successfully ..." + vbCrLf // Text1.Refresh // Text1.SelStart = Len(Text1.Text) // lbl33 = "DONE" // Else // Text1.Text = Text1.Text + "Upload didn't Complete ..." + vbCrLf // Text1.Refresh // // End If // Text1.Text = Text1.Text + "Total file(s) : " + CStr(Count) + vbCrLf // Text1.Refresh // Text1.SelStart = Len(Text1.Text) // Text1.Text = Text1.Text + "Error in File(s) : " + CStr(errore) + vbCrLf // Text1.Refresh // Text1.SelStart = Len(Text1.Text) // _Label1_1.Caption = "" } if (fso.FileExists(gPathHO + "upload\\" + "4pos_upload.txt")) fso.DeleteFile(gPathHO + "upload\\" + "4pos_upload.txt", true); Module1.dwType = Module1.FTP_TRANSFER_TYPE_ASCII; tempStatus = (string.IsNullOrEmpty(zipname) ? lString : zipname); //Now() ErrTextstream = fso.OpenTextFile(gPathHO + "upload\\" + "4pos_upload.txt", Scripting.IOMode.ForWriting, true); ErrTextstream.Write(tempStatus); ErrTextstream.Close(); dirsendLocal = gPathHO + "upload\\"; szFileLocal = "4pos_upload.txt"; _Label1_1.Text = szFileLocal; _Label1_1.Refresh(); System.Windows.Forms.Application.DoEvents(); szFileConPath = dirsendLocal + szFileLocal; szFileRemote = szFileLocal; if ((string.IsNullOrEmpty(szDirRemote))) szDirRemote = "\\"; rcd(ref szDirRemote); bRet = Module1.FtpPutFile(Module1.hConnection, szFileConPath, szFileRemote, Module1.dwType, 0); if (bRet == false) { //File Log' Text1.Text = Text1.Text + "Error while Uploading File : " + Convert.ToString(Err().LastDllError) + Constants.vbCrLf; Text1.Refresh(); System.Windows.Forms.Application.DoEvents(); Text1.SelectionStart = Strings.Len(Text1.Text); errore = errore + 1; updateLOG(ref "UPLOAD_ERROR_POINT_2", ref Convert.ToString(Err().LastDllError)); } DownLoadFile_DownTxt(true); System.Windows.Forms.Application.DoEvents(); DownLoadFile_DownTxt(true); //------------------------------------------------------------------- //Else //End If } updateStatus(ref "Finishing Upload"); updateLOG(ref "UPLOAD_END_POINT", ref "NILL"); }
private void cmdScale_Click(System.Object eventSender, System.EventArgs eventArgs) { string mySQL = null; ADODB.Recordset rsScale = default(ADODB.Recordset); ADODB.Recordset rsData = default(ADODB.Recordset); string lString = ""; string lFormat = null; string HeadingString1 = null; string HeadingString2 = null; string lWeighted = null; Scripting.FileSystemObject FSO = new Scripting.FileSystemObject(); Scripting.TextStream lTextstreamC = default(Scripting.TextStream); // ERROR: Not supported in C#: OnErrorStatement rsScale = modRecordSet.getRS(ref "SELECT Scale.* FROM Scale;"); while (!(rsScale.EOF)) { if (My.MyProject.Forms.frmUpdatePOScriteria.frmType[0].Visible == true) { mySQL = "SELECT Right('0000'+[Catalogue_Barcode],4) AS code, Format([CatalogueChannelLnk_Price],'Fixed') AS price, StockItem.StockItem_Name, StockGroup.StockGroup_Name, StockItem.StockItem_NonWeighted FROM POSUpdate_PriceChangeSummary INNER JOIN ((StockItem INNER JOIN (CatalogueChannelLnk INNER JOIN Catalogue ON (CatalogueChannelLnk.CatalogueChannelLnk_StockItemID = Catalogue.Catalogue_StockItemID) AND (CatalogueChannelLnk.CatalogueChannelLnk_Quantity = Catalogue.Catalogue_Quantity)) ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID) INNER JOIN StockGroup ON StockItem.StockItem_StockGroupID = StockGroup.StockGroupID) ON POSUpdate_PriceChangeSummary.CatalogueChannelLnk_StockItemID = StockItem.StockItemID WHERE (((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1) AND ((Catalogue.Catalogue_Quantity)=1) AND ((StockItem.StockItem_Disabled)=False) AND ((StockItem.StockItem_VariablePrice)=True));"; } else { mySQL = "SELECT Right('0000'+[Catalogue_Barcode],4) AS code, Format([CatalogueChannelLnk_Price],'Fixed') AS price, StockItem.StockItem_Name, StockGroup.StockGroup_Name, StockItem.StockItem_NonWeighted FROM (StockItem INNER JOIN (CatalogueChannelLnk INNER JOIN Catalogue ON (CatalogueChannelLnk.CatalogueChannelLnk_Quantity = Catalogue.Catalogue_Quantity) AND (CatalogueChannelLnk.CatalogueChannelLnk_StockItemID = Catalogue.Catalogue_StockItemID)) ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID) INNER JOIN StockGroup ON StockItem.StockItem_StockGroupID = StockGroup.StockGroupID WHERE (((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1) AND ((Catalogue.Catalogue_Quantity)=1) AND ((StockItem.StockItem_Disabled)=False) AND ((StockItem.StockItem_VariablePrice)=True));"; } rsData = modRecordSet.getRS(ref mySQL); // Select Case rsScale("Scale_format") // Case 0 // rsData.MoveFirst // Do Until rsData.EOF // HeadingString1 = Left(rsData("Stockitem_Name"), 16) // HeadingString2 = "" // If Len(rsData("Stockitem_Name")) > 16 Then // Do Until Right(HeadingString1, 1) = " " // HeadingString1 = Left(HeadingString1, Len(HeadingString1) - 1) // Loop // HeadingString2 = Mid(rsData("Stockitem_Name"), Len(HeadingString1) + 1) // End If // HeadingString1 = Left(HeadingString1 & String(16, " "), 16) // HeadingString2 = Left(HeadingString2 & String(16, " "), 16) // If rsData("StockItem_NonWeighted") Then lWeighted = "01" Else lWeighted = "00" // lstring = lstring & vbCrLf & "#" & rsData("code") & "$" & rsData("price") & "%#000%$" & lWeighted & "%(A" & HeadingString1 & "%)A" & HeadingString2 & "%[" & Left(rsData("StockGroup_Name") & String(15, " "), 15) // rsData.moveNext // Loop // Case 1 rsData.MoveFirst(); while (!(rsData.EOF)) { HeadingString1 = Strings.Left(rsData.Fields("Stockitem_Name").Value, 16); //16 was 22 HeadingString2 = ""; //16 was 22 if (Strings.Len(rsData.Fields("Stockitem_Name").Value) > 16) { while (!(Strings.Right(HeadingString1, 1) == " " | string.IsNullOrEmpty(HeadingString1))) { HeadingString1 = Strings.Left(HeadingString1, Strings.Len(HeadingString1) - 1); } HeadingString2 = Strings.Mid(rsData.Fields("Stockitem_Name").Value, Strings.Len(HeadingString1) + 1); } HeadingString1 = Strings.Left(HeadingString1 + new string(" ", 16), 16); //16 was 22 HeadingString2 = Strings.Left(HeadingString2 + new string(" ", 22), 22); //16 was 22 if (rsData.Fields("StockItem_NonWeighted").Value) { lWeighted = "01"; } else { lWeighted = "00"; } // lstring = lstring & vbCrLf & "%*0 #" & rsData("code") & " $" & Right("00000" & Replace(rsData("price"), ".", ""), 5) & " %#000 %$" & lWeighted & "%&" & rsScale("ScaleID") & rsData("code") & " %(A" & HeadingString1 & " %)A" & HeadingString2 & " %[" & Left(rsData("StockGroup_Name") & String(15, " "), 15) & " %]" & String(15, " ") & " %~" //If lString = "" Then // lString = "%*0 #" & rsData("code") & " $" & Right("00000" & FormatNumber(rsData("price"), 2), 6) & " %#000 %& %(A" & HeadingString1 & " %)A" & HeadingString2 & " %$" & lWeighted //Else lString = lString + Constants.vbCrLf + "%*0 #" + rsData.Fields("code").Value + " $" + Strings.Right("00000" + Strings.FormatNumber(rsData.Fields("price").Value, 2), 6) + " %#000 %& %(A" + HeadingString1 + " %)A" + HeadingString2 + " %$" + lWeighted; //End If rsData.moveNext(); } // End Select //FOR NEW SCALE ITEMS if (My.MyProject.Forms.frmUpdatePOScriteria.frmType[0].Visible == true) { //UPGRADE_WARNING: Couldn't resolve default property of object mySQL. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' mySQL = "SELECT Right('0000'+[Catalogue_Barcode],4) AS code, Format([CatalogueChannelLnk_Price],'Fixed') AS price, StockItem.StockItem_Name, StockGroup.StockGroup_Name, StockItem.StockItem_NonWeighted FROM POSUpdate_PriceNewSummary INNER JOIN ((StockItem INNER JOIN (CatalogueChannelLnk INNER JOIN Catalogue ON (CatalogueChannelLnk.CatalogueChannelLnk_StockItemID = Catalogue.Catalogue_StockItemID) AND (CatalogueChannelLnk.CatalogueChannelLnk_Quantity = Catalogue.Catalogue_Quantity)) ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID) INNER JOIN StockGroup ON StockItem.StockItem_StockGroupID = StockGroup.StockGroupID) ON POSUpdate_PriceNewSummary.CatalogueChannelLnk_StockItemID = StockItem.StockItemID WHERE (((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1) AND ((Catalogue.Catalogue_Quantity)=1) AND ((StockItem.StockItem_Disabled)=False) AND ((StockItem.StockItem_VariablePrice)=True));"; rsData = modRecordSet.getRS(ref mySQL); rsData.MoveFirst(); while (!(rsData.EOF)) { HeadingString1 = Strings.Left(rsData.Fields("Stockitem_Name").Value, 16); //16 was 22 HeadingString2 = ""; //16 was 22 if (Strings.Len(rsData.Fields("Stockitem_Name").Value) > 16) { while (!(Strings.Right(HeadingString1, 1) == " " | string.IsNullOrEmpty(HeadingString1))) { HeadingString1 = Strings.Left(HeadingString1, Strings.Len(HeadingString1) - 1); } HeadingString2 = Strings.Mid(rsData.Fields("Stockitem_Name").Value, Strings.Len(HeadingString1) + 1); } HeadingString1 = Strings.Left(HeadingString1 + new string(" ", 16), 16); //16 was 22 HeadingString2 = Strings.Left(HeadingString2 + new string(" ", 22), 22); //16 was 22 if (rsData.Fields("StockItem_NonWeighted").Value) { lWeighted = "01"; } else { lWeighted = "00"; } lString = lString + Constants.vbCrLf + "%*0 #" + rsData.Fields("code").Value + " $" + Strings.Right("00000" + Strings.FormatNumber(rsData.Fields("price").Value, 2), 6) + " %#000 %& %(A" + HeadingString1 + " %)A" + HeadingString2 + " %$" + lWeighted; rsData.moveNext(); } } if (FSO.FileExists(rsScale.Fields("Scale_Path").Value)) { FSO.DeleteFile(rsScale.Fields("Scale_Path").Value); } if (Strings.Len(lString)) { lTextstreamC = FSO.CreateTextFile(rsScale.Fields("Scale_Path").Value, true); Debug.Print(Strings.Trim(Strings.Left(lString, Strings.Len(lString) - 1))); lTextstreamC.Write(Strings.Mid(lString, 3)); lTextstreamC.Close(); //Open rsScale("Scale_Path") For Output As #7 //Print #7, mID(lString, 3, Len(lString) - 5) //Close #7 if (FSO.FileExists(modRecordSet.serverPath + "teraoka.bat")) { Interaction.Shell(modRecordSet.serverPath + "teraoka.bat", AppWinStyle.MinimizedNoFocus); } } rsScale.moveNext(); } modRecordSet.cnnDB.Execute("UPDATE Scale SET Scale.Scale_Update = False;"); }
private bool ImportCSVHand(ref string strFilePath) { bool functionReturnValue = false; string sql = null; Scripting.FileSystemObject oFileSys = new Scripting.FileSystemObject(); Scripting.TextStream oFile = default(Scripting.TextStream); string strCSV = null; string strIn = null; bool blEmpty = false; string[] sSplit = null; // ERROR: Not supported in C#: OnErrorStatement blEmpty = true; prgUpdate.Value = 1; ADODB.Recordset rsLang = default(ADODB.Recordset); if (oFileSys.FileExists(strFilePath)) { modRecordSet.cnnDB.Execute("INSERT INTO LanguageLayout ( LanguageLayout_Name ) SELECT 'New Language';"); rsLang = modRecordSet.getRS(ref "SELECT Max(LanguageLayout.LanguageLayoutID) AS MaxOfLanguageLayoutID FROM LanguageLayout;"); modRecordSet.cnnDB.Execute("INSERT INTO LanguageLayoutLnk ( LanguageLayoutLnk_LanguageID, LanguageLayoutLnk_LanguageLayoutID, LanguageLayoutLnk_Description, LanguageLayoutLnk_RightTL, LanguageLayoutLnk_Screen ) SELECT theJoin.LanguageID, theJoin.LanguageLayoutID, 'None' AS Expr1, 0 AS Expr2, 'None' AS Expr3 FROM (SELECT Language.LanguageID, LanguageLayout.LanguageLayoutID From Language, LanguageLayout WHERE (((LanguageLayout.LanguageLayoutID)=" + rsLang.Fields("MaxOfLanguageLayoutID").Value + "))) AS theJoin LEFT JOIN LanguageLayoutLnk ON (theJoin.LanguageID = LanguageLayoutLnk.LanguageLayoutLnk_LanguageID) AND (theJoin.LanguageLayoutID = LanguageLayoutLnk.LanguageLayoutLnk_LanguageLayoutID) WHERE (((LanguageLayoutLnk.LanguageLayoutLnk_LanguageID) Is Null));"); sql = "UPDATE LanguageLayoutLnk AS LanguageLayoutLnk_1 INNER JOIN LanguageLayoutLnk ON LanguageLayoutLnk_1.LanguageLayoutLnk_LanguageID = LanguageLayoutLnk.LanguageLayoutLnk_LanguageID SET LanguageLayoutLnk.LanguageLayoutLnk_Description = [LanguageLayoutLnk_1]![LanguageLayoutLnk_Description], LanguageLayoutLnk.LanguageLayoutLnk_RightTL = [LanguageLayoutLnk_1]![LanguageLayoutLnk_RightTL], LanguageLayoutLnk.LanguageLayoutLnk_Section = [LanguageLayoutLnk_1]![LanguageLayoutLnk_Section], LanguageLayoutLnk.LanguageLayoutLnk_Screen = [LanguageLayoutLnk_1]![LanguageLayoutLnk_Screen] "; sql = sql + "WHERE (((LanguageLayoutLnk.LanguageLayoutLnk_Description)='None') AND ((LanguageLayoutLnk.LanguageLayoutLnk_Screen)='None') AND ((LanguageLayoutLnk.LanguageLayoutLnk_LanguageLayoutID)=" + rsLang.Fields("MaxOfLanguageLayoutID").Value + ") AND ((LanguageLayoutLnk_1.LanguageLayoutLnk_LanguageLayoutID)=1));"; modRecordSet.cnnDB.Execute(sql); Command3.Tag = rsLang.Fields("MaxOfLanguageLayoutID").Value; oFile = oFileSys.OpenTextFile(strFilePath, Scripting.IOMode.ForReading, false, Scripting.Tristate.TristateUseDefault); System.Windows.Forms.Application.DoEvents(); while (!oFile.AtEndOfLine) { System.Windows.Forms.Application.DoEvents(); if (prgUpdate.Value == prgUpdate.Maximum) { System.Windows.Forms.Application.DoEvents(); prgUpdate.Value = 0; } else { prgUpdate.Value = prgUpdate.Value + 1; System.Windows.Forms.Application.DoEvents(); } blEmpty = false; strCSV = oFile.ReadLine; sSplit = Strings.Split(strCSV, "|"); System.Windows.Forms.Application.DoEvents(); if (strCSV != Constants.vbNullString) { System.Windows.Forms.Application.DoEvents(); sSplit[1] = Strings.Replace(sSplit[1], ",", "-"); sSplit[1] = Strings.Replace(sSplit[1], "'", "''"); strIn = "UPDATE LanguageLayoutLnk SET LanguageLayoutLnk_Description = '" + sSplit[1] + "' WHERE LanguageLayoutLnk_LanguageID = " + sSplit[0] + " AND LanguageLayoutLnk_LanguageLayoutID = " + rsLang.Fields("MaxOfLanguageLayoutID").Value + ";"; modRecordSet.cnnDB.Execute(strIn); System.Windows.Forms.Application.DoEvents(); } } if (blEmpty == true) { Interaction.MsgBox("Your CSV file is empty", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Handheld StockTake"); functionReturnValue = false; return(functionReturnValue); } functionReturnValue = true; return(functionReturnValue); } else if (!oFileSys.FileExists(strFilePath)) { Interaction.MsgBox("CSV File does not exist", MsgBoxStyle.Information, _4PosBackOffice.NET.My.MyProject.Application.Info.Title); functionReturnValue = false; return(functionReturnValue); } ImportError: Interaction.MsgBox("Import aborted because " + Err().Description, MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Import Language"); return(functionReturnValue); // ERROR: Not supported in C#: ResumeStatement return(functionReturnValue); }