private void cmdBuildChanges_Click(System.Object eventSender, System.EventArgs eventArgs) { System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor; System.Windows.Forms.Application.DoEvents(); modRecordSet.cnnDB.Execute("DELETE FROM systemStockItemPricing;"); modRecordSet.cnnDB.Execute("INSERT INTO systemStockItemPricing ( systemStockItemPricing ) SELECT tempStockItem.tempStockItemID FROM tempStockItem;"); modRecordSet.cnnDB.Execute("UPDATE POSCatalogueChannelLnk INNER JOIN CatalogueChannelLnk ON (POSCatalogueChannelLnk.POSCatalogueChannelLnk_Quantity = CatalogueChannelLnk.CatalogueChannelLnk_Quantity) AND (POSCatalogueChannelLnk.POSCatalogueChannelLnk_ChannelID = CatalogueChannelLnk.CatalogueChannelLnk_ChannelID) AND (POSCatalogueChannelLnk.POSCatalogueChannelLnk_StockItemID = CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) SET CatalogueChannelLnk.CatalogueChannelLnk_Price = [POSCatalogueChannelLnk]![POSCatalogueChannelLnk_Price] WHERE (((CatalogueChannelLnk.CatalogueChannelLnk_Price)<>[POSCatalogueChannelLnk]![POSCatalogueChannelLnk_Price]));"); System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default; frmUpdateCatalogue frmUpdate = null; frmUpdatePOS frmPOS = null; frmUpdate.Show(); if (gParameters & gUpdateWarnin == 512) { frmPOS.Show(); } else { if (My.MyProject.Forms.frmUpdateWarning.loadItem()) { frmPOS.Show(); } } this.Close(); //If frmUpdateWarning.loadItem() Then frmUpdatePOS.show 1, Me }
private void createProduct() { ADODB.Recordset rs = default(ADODB.Recordset); string sql = null; if (string.IsNullOrEmpty(txtName.Text)) { Interaction.MsgBox("Product Name is a required field", MsgBoxStyle.Exclamation, this.Text); txtName.Focus(); return; } if (string.IsNullOrEmpty(txtReceipt.Text)) { Interaction.MsgBox("Receipt Name is a required field", MsgBoxStyle.Exclamation, this.Text); txtReceipt.Focus(); return; } txtQuantity.Text = "1"; txtCost.Text = "1"; if (string.IsNullOrEmpty(cmbSupplier.BoundText) | string.IsNullOrEmpty(cmbShrink.BoundText) | string.IsNullOrEmpty(cmbPricingGroup.BoundText) | string.IsNullOrEmpty(cmbStockGroup.BoundText) | string.IsNullOrEmpty(cmbDeposit.BoundText)) { Interaction.MsgBox("Please enter all the required information", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _4PosBackOffice.NET.My.MyProject.Application.Info.Title); return; } sql = "INSERT INTO StockItem (StockItem_BrandItemID, StockItem_SupplierID, StockItem_ShrinkID, StockItem_PricingGroupID, StockItem_StockGroupID, StockItem_VatID, StockItem_DepositID, StockItem_Name, StockItem_ReceiptName, StockItem_Quantity, StockItem_ListCost, StockItem_ActualCost, StockItem_MinimumStock, StockItem_MaximumStock, StockItem_OrderQuantity, StockItem_OrderRounding, StockItem_OrderDynamic, StockItem_Disabled, StockItem_Discontinued, StockItem_QuickKey) VALUES ("; sql = sql + gBrandItem + ", " + cmbSupplier.BoundText + ", " + cmbShrink.BoundText + ", " + cmbPricingGroup.BoundText + ", " + cmbStockGroup.BoundText + ", 2, " + cmbDeposit.BoundText + ", '" + Strings.Replace(txtName.Text, "'", "''") + "', '" + Strings.Replace(txtReceipt.Text, "'", "''") + "', " + Strings.Replace(txtQuantity.Text, ",", "") + ", " + Strings.Replace(txtCost.Text, ",", "") + ", " + Strings.Replace(txtCost.Text, ",", "") + ", 0, 0, " + txtQuantity.Text + ", 1, 0, 0, 0, '')"; modRecordSet.cnnDB.Execute(sql); sql = "SELECT Max(StockItem.StockItemID) AS id FROM StockItem;"; rs = modRecordSet.getRS(ref sql); gStockItem = rs.Fields("id").Value; modRecordSet.cnnDB.Execute("UPDATE StockItem, Company SET StockItem.StockItem_LastCost = [Company_DayEndID] WHERE (((StockItem.StockItemID)=" + gStockItem + "));"); modRecordSet.cnnDB.Execute("UPDATE StockItem INNER JOIN BrandItemSupplier ON (StockItem.StockItem_SupplierID = BrandItemSupplier.BrandItemSupplier_SupplierID) AND (StockItem.StockItem_BrandItemID = BrandItemSupplier.BrandItemSupplier_BrandItemID) SET StockItem.StockItem_SupplierCode = [BrandItemSupplier]![BrandItemSupplier_Code] WHERE (((StockItem.StockItemID)=" + gStockItem + "));"); modRecordSet.cnnDB.Execute("INSERT INTO DayEndStockItemLnk ( DayEndStockItemLnk_DayEndID, DayEndStockItemLnk_StockItemID, DayEndStockItemLnk_Quantity, DayEndStockItemLnk_QuantitySales, DayEndStockItemLnk_QuantityShrink, DayEndStockItemLnk_QuantityGRV, DayEndStockItemLnk_ListCost, DayEndStockItemLnk_ActualCost ) SELECT Company.Company_DayEndID, " + gStockItem + " AS stock, 0, 0, 0, 0, " + Convert.ToDecimal(txtCost.Text) / Convert.ToDecimal(txtQuantity.Text) + ", " + Convert.ToDecimal(txtCost.Text) / Convert.ToDecimal(txtQuantity.Text) + " FROM Company;"); modRecordSet.cnnDB.Execute("INSERT INTO WarehouseStockItemLnk ( WarehouseStockItemLnk_WarehouseID, WarehouseStockItemLnk_StockItemID, WarehouseStockItemLnk_Quantity ) SELECT Warehouse.WarehouseID, " + gStockItem + ", 0 FROM Warehouse;"); modRecordSet.cnnDB.Execute("INSERT INTO tempStockItem ( tempStockItemID ) SELECT StockItem.StockItemID FROM tempStockItem RIGHT JOIN StockItem ON tempStockItem.tempStockItemID = StockItem.StockItemID WHERE (((tempStockItem.tempStockItemID) Is Null) AND ((StockItem.StockItemID)=" + gStockItem + "));"); modRecordSet.cnnDB.Execute("DELETE FROM systemStockItemPricing;"); modRecordSet.cnnDB.Execute("INSERT INTO systemStockItemPricing ( systemStockItemPricing ) VALUES (" + gStockItem + ")"); frmUpdateCatalogue update = new frmUpdateCatalogue(); update.Show(); modApplication.buildBarcodes(ref gStockItem); if (gBrandItem) { modRecordSet.cnnDB.Execute("UPDATE (StockItem INNER JOIN Catalogue ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID) INNER JOIN BrandItemQuantity ON (BrandItemQuantity.BrandItemQuantity_Quantity = Catalogue.Catalogue_Quantity) AND (StockItem.StockItem_BrandItemID = BrandItemQuantity.BrandItemQuantity_BrandItemID) SET Catalogue.Catalogue_Barcode = [BrandItemQuantity]![BrandItemQuantity_Barcode] WHERE (((StockItem.StockItemID)=" + gStockItem + "));"); } else { modRecordSet.cnnDB.Execute("UPDATE StockItem INNER JOIN Catalogue ON StockItem.StockItemID=Catalogue.Catalogue_StockItemID SET Catalogue.Catalogue_Barcode = '" + stBarcode + "' WHERE (((StockItem.StockItemID)=" + gStockItem + "));"); } gStockItem = 0; gBrandItem = 0; }
//Private Sub CreateVegItems(csvBarcode As String, csvPRG As String, csvDESC As String, csvSell As Currency, csvCost As Currency, csvSTG_RPG As String, csvVAT As String) private void CreateVegItems(ref int sID, ref decimal sSellPrice, ref decimal sPackVol, ref int lgetNewID) { bool newATItem = false; string sql = null; int gBrandItem = 0; int gStockItem = 0; System.Windows.Forms.Application.DoEvents(); gStockItem = 0; gBrandItem = 0; // ERROR: Not supported in C#: OnErrorStatement //Dim rsSupp As Recordset //Dim rsDep As Recordset //Dim rsPriceG As Recordset //Dim rsStockG As Recordset //Dim rsReportG As Recordset ADODB.Recordset rs = default(ADODB.Recordset); ADODB.Recordset rsCostPrice = default(ADODB.Recordset); decimal aCost = default(decimal); decimal sPrice = default(decimal); sql = "SELECT StockItem.StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_StockItemID, CatalogueChannelLnk.CatalogueChannelLnk_Price, StockItem.StockItem_ListCost, StockItem.StockItem_ActualCost, Catalogue.Catalogue_Barcode "; sql = sql + "FROM (StockItem INNER JOIN CatalogueChannelLnk ON StockItem.StockItemID = CatalogueChannelLnk.CatalogueChannelLnk_StockItemID) INNER JOIN Catalogue ON StockItem.StockItemID = Catalogue.Catalogue_StockItemID "; sql = sql + "WHERE (((StockItem.StockItemID)=" + sID + ") AND ((CatalogueChannelLnk.CatalogueChannelLnk_ChannelID)=1) AND ((CatalogueChannelLnk.CatalogueChannelLnk_Quantity)=1) AND ((Catalogue.Catalogue_Quantity)=1));"; rsCostPrice = modRecordSet.getRS(ref sql); sql = "INSERT INTO StockItem ( StockItem_BrandItemID, StockItem_SupplierID, StockItem_ShrinkID, StockItem_PackSizeID, StockItem_PricingGroupID, StockItem_StockGroupID, StockItem_VatID, StockItem_DepositID, StockItem_Name, StockItem_ReceiptName, StockItem_Quantity, StockItem_ListCost, StockItem_ActualCost, StockItem_MinimumStock, StockItem_MaximumStock, StockItem_OrderQuantity, StockItem_OrderRounding, StockItem_OrderDynamic, StockItem_Disabled, StockItem_Discontinued, StockItem_SupplierCode, StockItem_ActualCostChange, StockItem_PriceSetID, StockItem_LastCost, StockItem_Parameters, StockItem_Fractions, StockItem_NegSale, StockItem_VariablePrice, StockItem_NonWeighted, StockItem_PrintLocationID, StockItem_RecipeType, StockItem_PrintGroupID, StockItem_SerialTracker, StockItem_SBarcode, StockItem_SShelf, StockItem_ReportID, StockItemOrderType, StockItem_ATItem, StockItem_ATStockTypeID, StockItem_ExpiryDays ) "; sql = sql + "SELECT StockItem.StockItem_BrandItemID, StockItem.StockItem_SupplierID, StockItem.StockItem_ShrinkID, StockItem.StockItem_PackSizeID, StockItem.StockItem_PricingGroupID, StockItem.StockItem_StockGroupID, StockItem.StockItem_VatID, StockItem.StockItem_DepositID, [StockItem].[StockItem_Name] & ' # " + Strings.Format(DateAndTime.Today, "dd/mm") + "' AS StockItemName, [StockItem].[StockItem_ReceiptName] & ' # " + Strings.Format(DateAndTime.Today, "dd/mm") + "' AS StockItemReceiptName, StockItem.StockItem_Quantity, " + (Convert.ToDecimal((sPackVol == 0 ? 1 : sPackVol) * Convert.ToDecimal(txtR.Text))) + " AS StockItemListCost, " + (Convert.ToDecimal((sPackVol == 0 ? 1 : sPackVol) * Convert.ToDecimal(txtR.Text))) + " AS StockItemActualCost, StockItem.StockItem_MinimumStock, StockItem.StockItem_MaximumStock, StockItem.StockItem_OrderQuantity, StockItem.StockItem_OrderRounding, StockItem.StockItem_OrderDynamic, StockItem.StockItem_Disabled, StockItem.StockItem_Discontinued, "; //sql = sql & "SELECT StockItem.StockItem_BrandItemID, StockItem.StockItem_SupplierID, StockItem.StockItem_ShrinkID, StockItem.StockItem_PackSizeID, StockItem.StockItem_PricingGroupID, StockItem.StockItem_StockGroupID, StockItem.StockItem_VatID, StockItem.StockItem_DepositID, [StockItem].[StockItem_Name] & ' # " & Format(Date, "dd/mm") & "' AS StockItemName, [StockItem].[StockItem_ReceiptName] & ' # " & Format(Date, "dd/mm") & "' AS StockItemReceiptName, StockItem.StockItem_Quantity, " & CCur(txtR.Text) & " AS StockItemListCost, " & CCur(txtR.Text) & " AS StockItemActualCost, StockItem.StockItem_MinimumStock, StockItem.StockItem_MaximumStock, StockItem.StockItem_OrderQuantity, StockItem.StockItem_OrderRounding, StockItem.StockItem_OrderDynamic, StockItem.StockItem_Disabled, StockItem.StockItem_Discontinued, StockItem.StockItem_SupplierCode, StockItem.StockItem_ActualCostChange, StockItem.StockItem_PriceSetID, " sql = sql + "StockItem.StockItem_SupplierCode, StockItem.StockItem_ActualCostChange, StockItem.StockItem_PriceSetID, StockItem.StockItem_LastCost, StockItem.StockItem_Parameters, StockItem.StockItem_Fractions, StockItem.StockItem_NegSale, StockItem.StockItem_VariablePrice, StockItem.StockItem_NonWeighted, StockItem.StockItem_PrintLocationID, StockItem.StockItem_RecipeType, StockItem.StockItem_PrintGroupID, StockItem.StockItem_SerialTracker, StockItem.StockItem_SBarcode, StockItem.StockItem_SShelf, StockItem.StockItem_ReportID, StockItem.StockItemOrderType, StockItem.StockItem_ATItem, StockItem.StockItem_ATStockTypeID, StockItem.StockItem_ExpiryDays "; sql = sql + "From StockItem WHERE (((StockItem.StockItemID)=" + sID + "));"; //sql = "INSERT INTO StockItem (StockItem_BrandItemID, StockItem_SupplierID, StockItem_ShrinkID, StockItem_PackSizeID, StockItem_PricingGroupID, StockItem_StockGroupID, StockItem_VatID, StockItem_DepositID, StockItem_Name, StockItem_ReceiptName, StockItem_Quantity, StockItem_ListCost, StockItem_ActualCost, StockItem_MinimumStock, StockItem_MaximumStock, StockItem_OrderQuantity, StockItem_OrderRounding, StockItem_OrderDynamic, StockItem_Disabled, StockItem_Discontinued, StockItem_QuickKey, StockItem_NegSale, StockItem_PrintLocationID, StockItem_SerialTracker, StockItem_ReportID, StockItem_ATItem, StockItem_ATStockTypeID) VALUES (" //sql = sql & gBrandItem & ", " & 2 & ", " & 1 & ", " & 1 & ", " & rsPriceG(0) & ", " & rsStockG(0) & ", 2, " & rsDep(0) & ", '" & csvDESC & "', '" & csvDESC & "', " & Replace(1, ",", "") & ", " & Replace(aCost, ",", "") & ", " & Replace(aCost, ",", "") & ", 0, 0, " & CCur(1) & ", 1, 0, 0, 0, '" & csvBarcode & "', True, 1, True, " & rsReportG(0) & ", True, 0)" Debug.Print(sql); modRecordSet.cnnDB.Execute(sql); sql = "SELECT Max(StockItem.StockItemID) AS id FROM StockItem;"; rs = modRecordSet.getRS(ref sql); gStockItem = rs.Fields("id").Value; lgetNewID = gStockItem; modRecordSet.cnnDB.Execute("UPDATE StockItem, Company SET StockItem.StockItem_LastCost = [Company_DayEndID] WHERE (((StockItem.StockItemID)=" + gStockItem + "));"); modRecordSet.cnnDB.Execute("UPDATE StockItem INNER JOIN BrandItemSupplier ON (StockItem.StockItem_SupplierID = BrandItemSupplier.BrandItemSupplier_SupplierID) AND (StockItem.StockItem_BrandItemID = BrandItemSupplier.BrandItemSupplier_BrandItemID) SET StockItem.StockItem_SupplierCode = [BrandItemSupplier]![BrandItemSupplier_Code] WHERE (((StockItem.StockItemID)=" + gStockItem + "));"); //Multi Warehouse change //cnnDB.Execute "INSERT INTO DayEndStockItemLnk ( DayEndStockItemLnk_DayEndID, DayEndStockItemLnk_StockItemID, DayEndStockItemLnk_Quantity, DayEndStockItemLnk_QuantitySales, DayEndStockItemLnk_QuantityShrink, DayEndStockItemLnk_QuantityGRV, DayEndStockItemLnk_ListCost, DayEndStockItemLnk_ActualCost, DayEndStockItemLnk_Warehouse ) SELECT Company.Company_DayEndID, " & gStockItem & " AS stock, 0, 0, 0, 0, " & rsCostPrice("StockItem_ListCost") & ", " & rsCostPrice("StockItem_ListCost") & ", Warehouse.WarehouseID FROM Company, Warehouse;" modRecordSet.cnnDB.Execute("INSERT INTO DayEndStockItemLnk ( DayEndStockItemLnk_DayEndID, DayEndStockItemLnk_StockItemID, DayEndStockItemLnk_Quantity, DayEndStockItemLnk_QuantitySales, DayEndStockItemLnk_QuantityShrink, DayEndStockItemLnk_QuantityGRV, DayEndStockItemLnk_ListCost, DayEndStockItemLnk_ActualCost, DayEndStockItemLnk_Warehouse ) SELECT Company.Company_DayEndID, " + gStockItem + " AS stock, 0, 0, 0, 0, " + (Convert.ToDecimal((sPackVol == 0 ? 1 : sPackVol) * Convert.ToDecimal(txtR.Text))) + ", " + (Convert.ToDecimal((sPackVol == 0 ? 1 : sPackVol) * Convert.ToDecimal(txtR.Text))) + ", Warehouse.WarehouseID FROM Company, Warehouse;"); modRecordSet.cnnDB.Execute("INSERT INTO WarehouseStockItemLnk ( WarehouseStockItemLnk_WarehouseID, WarehouseStockItemLnk_StockItemID, WarehouseStockItemLnk_Quantity ) SELECT Warehouse.WarehouseID, " + gStockItem + ", 0 FROM Warehouse;"); modRecordSet.cnnDB.Execute("INSERT INTO tempStockItem ( tempStockItemID ) SELECT StockItem.StockItemID FROM tempStockItem RIGHT JOIN StockItem ON tempStockItem.tempStockItemID = StockItem.StockItemID WHERE (((tempStockItem.tempStockItemID) Is Null) AND ((StockItem.StockItemID)=" + gStockItem + "));"); modRecordSet.cnnDB.Execute("DELETE FROM systemStockItemPricing;"); modRecordSet.cnnDB.Execute("INSERT INTO systemStockItemPricing ( systemStockItemPricing ) VALUES (" + gStockItem + ")"); //cnnDB.Execute "INSERT INTO Catalogue (Catalogue_StockItemID,Catalogue_Quantity,Catalogue_Barcode) VALUES (" & gStockItem & ",1,'" & buildItemBarcode(gStockItem, 1) & "')" //UPGRADE_WARNING: Couldn't resolve default property of object gStockItem. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' modRecordSet.cnnDB.Execute("INSERT INTO Catalogue (Catalogue_StockItemID,Catalogue_Quantity,Catalogue_Barcode) VALUES (" + gStockItem + ",1,'" + rsCostPrice.Fields("Catalogue_Barcode").Value + Strings.Format(DateAndTime.Today, "ddmmyy") + "')"); //Override modRecordSet.cnnDB.Execute("INSERT INTO PriceChannelLnk ( PriceChannelLnk_StockItemID, PriceChannelLnk_Quantity, PriceChannelLnk_ChannelID, PriceChannelLnk_Price ) VALUES (" + gStockItem + "," + 1 + ",1," + sSellPrice + ")"); modRecordSet.cnnDB.Execute("UPDATE PriceChannelLnk SET PriceChannelLnk_Price=" + sSellPrice + " WHERE PriceChannelLnk_StockItemID = " + gStockItem + ";"); newATItem = true; frmUpdateCatalogue catalog = new frmUpdateCatalogue(); catalog.Show(); return; cErrorHndlr: Interaction.MsgBox(Err().Description); // ERROR: Not supported in C#: ResumeStatement }