Line 63: End IF
Line 64:
Line 65: dtProducts = Sql.DataTable("Select R.TransactionLineID As ID, R.ItemID, R.SerialPrefix, R.SerialNumber, ISNULL(Category.Name,'') As CategoryName, ISNULL(Item.WebName, Item.Name) As ItemName, ISNULL(Files.Filename,'') As FileName, ISNULL(Files.ID,0) As FileID, ISNULL(ItemPriceList.Price11,0) As Price, ISNULL(Location.Name,'') AS Location, ISNULL(Item.SubCategoryValue,'') As Collection, ISNULL(Color.Value1,'') As Color, ISNULL(Item.ItemGroupValue,'') As Line, Round(ISNULL(R.CurrentSlabLength,0),0) AS AverageLength, Round(ISNULL(R.CurrentSlabWidth,0), 0) AS AverageWidth, ISNULL(Round(R.AvailableQuantity, 2),0) AS AvailableQty, Item.ProductFormValue As ItemType, Item.SellingUnitsValue As UOM, ISNULL(R.IDOne, R.SerialPrefix) As LOTNO, TransactionLine.Notes From R_Inventory_byStatus_Detail R LEFT OUTER JOIN Item ON Item.ID = R.ItemID LEFT OUTER JOIN ItemPriceList ON ItemPriceList.ItemID = Item.ID LEFT OUTER JOIN Category ON Category.ID = Item.ServiceCategoryID LEFT OUTER JOIN Files ON Files.BarcodeID = R.BarcodeID AND Files.Subsource = 'SLAB' LEFT OUTER JOIN SystemOptions Color ON Color.ID = Item.BaseColors LEFT OUTER JOIN Location ON Location.ID = R.CurrentLocationID LEFT OUTER JOIN TransactionLine ON TransactionLine.ID = R.TransactionLineID And TransactionLine.InventoryCreated = 'on' Where Files.ID IN (SELECT FilesTableID FROM custom_cart WHERE UserID = "& NewUserID &") AND R.CurrentLocationID IN (6,8,9) And R.InventoryStatus = 'Available' ORDER BY R.SerialNumber, Files.UploadedOn DESC")
Line 66: If Request("act") = "sendEmail" Then
Line 67: Dim Body
|