Price List Report

Philip,

Try this one.

TomT

begin 666 Memorized-WeeklyItem Value Supplier cost.qrp M+R\M+2T@4F5P;W)T(%-U;6UA

Hi Philip,

Retail Analytics from Professional Advantage will enable you to easily create the report you are looking for. If you enter it in RMS you can report on it in Retail Analytics. If you would like to take a quick look at the product or if there is anything that we can do for you, please let me know.

Thanks Jen snipped-for-privacy@profad.com

HI Gass, its Akber again,

Replace this code in Items-Item Price List.grp file Begin ReportSummary ReportType = reporttypeItems ReportTitle = "Item Price List" PageOrientation = pageorientationLandscape OutLineMode = True Groups = 1 GroupDescription = "Average" DisplayLogo = True LogoFileName = "MyLogo.bmp" ProcedureCall = "" PreQuery1 = "IF EXISTS (SELECT TABLE_NAME FROM INFORMATION_SCHEMA.VIEWS WHERE TABLE_NAME = 'Vw_POQty') DROP VIEW vw_POQty" PreQuery2 CREATE View vw_POQty AS SELECT ItemID,Sum(QuantityOrdered) OrderQty From PurchaseOrder INNER join PurchaseOrderEntry ON PurchaseOrder.ID=PurchaseOrderEntry.PurchaseOrderID Where Status=0 Group by PurchaseOrderEntry.ItemID

TablesQueried = "FROM Item WITH(NOLOCK) LEFT JOIN vw_POQty WITH(NOLOCK) ON vw_POQty.ItemID=Item.ID LEFT JOIN Department WITH(NOLOCK) ON Item.DepartmentID = Department.ID LEFT JOIN Category WITH(NOLOCK) ON Item.CategoryID = Category.ID LEFT JOIN Supplier WITH(NOLOCK) ON Item.SupplierID = Supplier.ID LEFT JOIN SupplierList WITH (NOLOCK) ON Supplierlist.ItemID=Item.ID AND Supplier.ID=SupplierList.SupplierID" SelCriteria = "" GroupBy = "" SortOrder = "" End ReportSummary

Now add anywhere in the same report the following code: remember you need to add in the //--- Columns ---// block

Begin Column FieldName = "SupplierList.ReorderNumber" DrillDownFieldName = "" DrillDownReportName = "" Title = "Reorder Number" VBDataType = vbString Formula = "" ColHidden = false ColNotDisplayable = False FilterDisabled = False ColWidth = 2115 GroupMethod = groupmethodNone ColFormat = "" ColAlignment = flexAlignLeftCenter End Column

Begin Column FieldName = "vw_POQty.OrderQty" DrillDownFieldName = "" DrillDownReportName = "" Title = "On Ordered" VBDataType = vbDouble Formula = "" ColHidden = false ColNotDisplayable = False FilterDisabled = False ColWidth = 1050 GroupMethod = groupmethodNone ColFormat = "" End Column

Now rate me.

"Philip Gass" wrote:

Akber,

You need to exclude POType = 3 (transfer outs)

Where Status=0 and POType3