jeff.dickinson
Forum Replies Created
-
I have logged a ticket to CC for the Tracker T673, This should be fixed and I agree it is a security flaw
-
Whenever we have had that issue CC usually runs the following,
Sqlplus sys/PASSWORD@maxqprod as sysdba
SQL> Alter system flush shared_pool;
regards,
Jeff
-
Pam,
Here is the coding to display the serial Numbers in a list
var
q : TOracleDataset;
S: String;
begin
memo3.Lines.Clear;
s:= null;
q:=RLC_HEADER.DataSource.Dataset;
q.Sql.text := ‘select serial_number from VIEW_SPS_WOO_SERIAL_NUMBER where woo_auto_key = ‘ + Parameters[‘WOO_AUTO_KEY’];
while not q.EOF do
begin
S:=S + (q.FieldByName[‘serial_number’].AsString)+’,’;
q.Next;
end;
memo3.lines.add(S);
end;
regards,
Jeff Dickinson
-
***********update**************
Just wrote it like this and it works perfect
VAR
q : TOracleDataset;
begin
Text:=”;
q := TOracleDataset.Create(nil);
q.SetSession;
q.Sql.text :=’SELECT SERIAL_NUMBER, TI_TYPE ‘+
‘ FROM WO_BOM WOB, STOCK_TI STI, STOCK STM ‘ +
‘ WHERE STM.STM_AUTO_KEY (+) = STI.STM_AUTO_KEY ‘+
‘ AND WOB.WOB_AUTO_KEY (+) = STI.WOB_AUTO_KEY ‘+
‘ AND TI_TYPE LIKE ”T%” AND STI.WOB_AUTO_KEY = ‘+ WO_TASK_BOM[‘WOB_AUTO_KEY’];
Q.Open;
Text :=Q.FIELDBYNAME[‘SERIAL_NUMBER’].ASSTRING;
Q.FREE;
end;