WHERE ; S.PN == R.PN AND ; not s.PN=="" AND ; LEFT(S.DATE,5)=>lcStartMMDD AND ; LEFT(S.DATE,5)<=lcEndMMDD AND ; SUBSTR(S.DATE,7,2)=lcYY AND ; S.remnant ;>You know, I had forgotten about not using expressions in SQL statements for ORDER BY. In regard to using reserved words, I try not to, but in this case, my predecessor had already created the tables years before I took over from him.
>lcStartMMDD=LEFT(DTOC(.txtBegDate.Value), 5) >lcEndMMDD=LEFT(DTOC(.txtEndDate.Value), 5) >lcYY=SUBSTR(DTOC(.txtBegDate.Value), 9, 2) >DO CASE >* Totals Only reporting for Scrap and Remnants. >CASE .OptGrp1.optTotalsOnly.VALUE = 1 > >SELECT ; > S.Emp, S.Dept, S.Netwgt, S.Date, S.PN, ; > R.Descriptn ; > FROM ; > SCRAP S, ; > REMNANT R ; > WHERE ; > S.PN = R.PN AND ; > LEFT(S.DATE,5)=>lcStartMMDD AND ; > LEFT(S.DATE,5)<=lcEndMMDD AND ; > SUBSTR(S.DATE,7,2)=lcYY AND ; > S.remnant ; > ORDER BY ; > 2, 4 ; > INTO TABLE ; > C:\SCRAP\REMNANT_RPT > SELECT REMNANT_RPT > COPY TO "C:\SCRAP\Remnants_" + lcDate TYPE XLS > USE >>