We are brand new to RMS, and have question that is nagging us. Is there a way to get a report that shows what is currently on order, preferably able to sort by department and category?
- posted
18 years ago
We are brand new to RMS, and have question that is nagging us. Is there a way to get a report that shows what is currently on order, preferably able to sort by department and category?
Try with this code...
//--- Report Summary --- //
Begin ReportSummary ReportType = reporttypeItems ReportTitle = "Documenti Magazzino" PageOrientation = pageorientationPortrait OutLineMode = True Groups = 1 GroupDescription = " " DisplayLogo = True LogoFileName = "" ProcedureCall = "" PreQuery1 = "SET DATEFORMAT ymd" TablesQueried FROM PurchaseOrder JOIN PurchaseOrderEntry on (PurchaseOrder.ID PurchaseOrderEntry.PurchaseOrderID AND PurchaseOrder.StoreID PurchaseOrderEntry.StoreID) JOIN Store on purchaseorder.storeid = store.id LEFT JOIN Item ON (PurchaseOrderEntry.ItemID = Item.ID) LEFT JOIN Department ON (Item.DepartmentID = Department.ID) LEFT JOIN Category ON (Item.CategoryID = Category.ID) LEFT JOIN Supplier ON (Supplier.ID = Item.SupplierID)
SelCriteria = "PurchaseOrder.Status = 2" GroupBy = "Store.Name, PurchaseOrder.DateCreated, PurchaseOrder.POType, PurchaseOrder.PONumber, PurchaseOrder.SupplierID, PurchaseOrder.[To], PurchaseOrder.ShipTo, Department.Name, Category.Name, SupplierName" SortOrder = "store.name, PurchaseOrder.DateCreated" End ReportSummary
//--- Title Rows ---// Begin TitleRow Text = "" Font = "Arial" FontBold = True FontSize = 12 Color = "Black" End TitleRow
Begin TitleRow Text = "Generato il " Font = "Arial" FontBold = True FontSize = 10 Color = "Black" End TitleRow
//--- Filters ---// Begin Filter FieldName = "PurchaseOrder.DateCreated" FilterOp = reportfilteropBetween FilterLoLim = "" FilterHilim = "" End Filter //--- Columns ---//
Begin Column FieldName = "Store.Name" DrillDownFieldName = "" DrillDownReportName = "" Title = "Negozio" VBDataType = vbString Formula = "" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupmethodNone ColFormat = "" End Column
Begin Column FieldName = "PurchaseOrder.DateCreated" DrillDownFieldName = "" DrillDownReportName = "" Title = "Data" VBDataType = vbDate Formula = "" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupmethodNone ColFormat = "" End Column
Begin Column FieldName = "DocumentType" DrillDownFieldName = "" DrillDownReportName = "" Title = "Documento" VBDataType = vbString Formula = "(CASE PurchaseOrder.POType WHEN 0 THEN 'Ordine locale' WHEN 1 THEN 'Ordine HQ' WHEN 2 THEN ( CASE PurchaseOrder.SupplierID WHEN
0 THEN 'Ric. da Negozio' ELSE 'Ric. da Fornitore' END ) WHEN 3 THEN ( CASE PurchaseOrder.SupplierID WHEN 0 THEN 'Trasf. Negozio' ELSE 'Reso Fornitore' END ) WHEN 4 THEN ( CASE PurchaseOrder.SupplierID WHEN 0 THEN 'Ric. da Negozio(HQ)' ELSE 'Ric. Fornitore (HQ)' END) WHEN 5 THEN ( CASE PurchaseOrder.SupplierID WHEN 0 THEN 'Trasf. da Negozio (HQ)' ELSE 'Ric. da Fornitore (HQ)' END ) ELSE 'Documento Sconosciuto' END)" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1600 GroupMethod = groupMethodNone ColFormat = "" End ColumnBegin Column FieldName = "PurchaseOrder.PONumber" DrillDownFieldName = "" DrillDownReportName = "" Title = "Rif. Documento" VBDataType = vbString Formula = "" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupMethodNone ColFormat = "" End Column
Begin Column FieldName = "PurchaseOrder.[To]" DrillDownFieldName = "" DrillDownReportName = "" Title = "Origine" VBDataType = vbString Formula = "" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1600 GroupMethod = groupMethodNone ColFormat = "" End Column
Begin Column FieldName = "DepartmentName" DrillDownFieldName = "" DrillDownReportName = "" Title = "Reparto" VBDataType = vbString Formula = "ISNULL(Department.Name, '')" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupMethodNone ColFormat = "" End Column
Begin Column FieldName = "CategoryName" DrillDownFieldName = "" DrillDownReportName = "" Title = "Categoria" VBDataType = vbString Formula = "ISNULL(Category.Name, '')" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupMethodNone ColFormat = "" End Column
Begin Column FieldName = "SupplierName" DrillDownFieldName = "" DrillDownReportName = "" Title = "Fornitore" VBDataType = vbString Formula = "ISNULL(Supplier.SupplierName, '')" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupMethodNone ColFormat = "" End Column
Begin Column FieldName = "PurchaseOrder.ShipTo" DrillDownFieldName = "" DrillDownReportName = "" Title = "Destinazione" VBDataType = vbString Formula = "" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1600 GroupMethod = groupMethodNone ColFormat = "" End Column
Begin Column FieldName = "SUM(PurchaseOrderEntry.Price * PurchaseOrderEntry.QuantityReceivedToDate)" DrillDownFieldName = "" DrillDownReportName = "" Title = "Costo" VBDataType = vbCurrency Formula = "" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupmethodSum ColFormat = "" End Column
Begin Column FieldName = "SUM(PurchaseOrderEntry.QuantityReceivedToDate)" DrillDownFieldName = "" DrillDownReportName = "" Title = "Quantità" VBDataType = vbDouble Formula = "" ColHidden = False ColNotDisplayable = False FilterDisabled = False ColWidth = 1200 GroupMethod = groupmethodSum ColFormat = "" End Column
BeanSmart website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.