Larry: You should mention what version of RBase you're using? Karen
In a message dated 9/14/2011 9:22:42 AM Central Daylight Time, [email protected] writes: > Consider the code, which is in file temp.prg: > > > SET VAR tDays = -5 > > > > SET VAR tDateTime DATETIME = (ADDDAY(.#NOW, .tDays)) > > > SELECT (LISTOF(DIST PQCResult) + ':' &SRPL(PQCTestText, CHAR(10), ' - ', > 0)), COUNT(*) + > > FROM PartOpResults POR, PartPQCResults PPR, PQCTestCache PTC + > WHERE POR.ResultID = PPR.ResultID AND PPR.PQCTestID = PTC.PQCTestID + > AND MachineID = .fBLM_MachineID AND OpNum = .fBLM_OpNum AND OpResult > >= .tDateTime AND PQCResult <>'A' + > AND BatchNum IN (SELECT DISTINCT BatchNum FROM PartSerl WHERE WONum > = .fBLM_WONum AND Class IN ('B', 'NC', 'RWK', 'Q')) + > GROUP BY PQCTestText > > > SET VAR tDate DATE = (ADDDAY(.#DATE, .tDays)) > > > SELECT ('NC:' &DefectDesc), COUNT(*) FROM NonConform NC, NCDefectCodes > DC + > > WHERE NC.OGNCDefectCode = DC.DefectCode + > AND MachineID = .fBLM_MachineID AND OpNum = .fBLM_OpNum AND > ManufactureDate >= .tDate + > AND BatchNum IN (SELECT DISTINCT BatchNum FROM PartSerl WHERE WONum > = .fBLM_WONum AND Class IN ('B', 'NC', 'RWK', 'Q')) + > GROUP BY DefectDesc > > > > If I run temp.prg from the R> prompt, it executes in .2 seconds (two > tenths of a second). > > > If I do RUN temp.prg from inside a form, the same code takes 3.6 seconds, > almost 20 times as long, to execute. > > > I am not changing any variable values in my code that might affect lookups > on the form. The form is a variable form. > > > Does anyone know what could be causing the difference, and how I can work > around it? > -- > >
