Pseudo SQL

SELECT

-- Database Fields
COMPANY_RRCUST = RRCUST.COMPANY
,CUST_NO_RRCUST = RRCUST.CUST_NO
,CUSTNO_RRORDERS = RRORDERS.CUSTNO
,ORDER_NO_RRITEMS = RRITEMS.ORDER_NO
,ORDNO_RRORDERS = RRORDERS.ORDNO
,ORDRDATE_RRORDERS = RRORDERS.ORDRDATE
,PROD_CODE_RRPRICES = RRPRICES.PROD_CODE
,PROD_NAME_RRPRICES = RRPRICES.PROD_NAME
,PROD_PRICE_RRPRICES = RRPRICES.PROD_PRICE
,PRODUCT_NO_RRITEMS = RRITEMS.PRODUCT_NO
,QUANTITY_RRITEMS = RRITEMS.QUANTITY
-- Calculated Fields
,Amount = QUANTITY * PROD_PRICE
,Date_rr = Date()
,Page_rr = Page()
,RepName_rr = RepName()
,Time_rr = Time()
,TotPages = LASTPAGE()
-- Total Fields
,ORD_TOT = Sum(RRORDERS.Amount(), RRPRICES.PROD_CODE, Every composite, Running)
,ORDER_SUM = Sum(ORD_TOT, Grand, RRPRICES.PROD_CODE, Running)
,PROD_QTY = Sum(RRITEMS.QUANTITY, RRPRICES.PROD_CODE, Every composite, Running)
,qty_sum = Sum(RRITEMS.QUANTITY, Grand, Every composite, Running)


FROM `rrorders.dbf` RRORDERS

INNER JOIN `rrcust.dbf` RRCUST ON RRORDERS.CUSTNO = RRCUST.CUST_NO
INNER JOIN `rritems.dbf` RRITEMS ON RRORDERS.ORDNO = RRITEMS.ORDER_NO
INNER JOIN `rrprices.dbf` RRPRICES ON RRITEMS.PRODUCT_NO = RRPRICES.PROD_CODE



WHERE 1=1

AND RRPRICES.PROD_NAME is in the list "CommIt!", "StoreIt!", "DrawIt!", "PlanIt!" and RRORDERS.ORDRDATE is greater than or equal to OrderBegDt and RRORDERS.ORDRDATE is less than or equal to OrderEndDt


ORDER BY

RRPRICES.PROD_CODE ASC, RRORDERS.ORDRDATE ASC, RRITEMS.QUANTITY ASC


GROUP BY

RRPRICES.PROD_CODE