1 2 3 4 5 6 7 8
|
qryAddRecordInItems.SQL.Clear;
qryAddRecordInItems.SQL.Add('INSERT INTO ITEMS (NAME, ABREVIATION, HIDDEN, EXTERN_ID, BARCODE, ENABLED, ITEM_TYPE, ITEM_CAT) VALUES (:NAME, :ABREVIATION, :HIDDEN, :EXTERN_ID, :BARCODE, :ENABLED, :ITEM_TYPE, :ITEM_CAT) ');
qryAddRecordInItems.SQL.Add('SELECT items_seq.CURRVAL AS ID from dual');
qryAddRecordInTreeStructure.SQL.Clear;
qryAddRecordInTreeStructure.SQL.Add('INSERT INTO TREE_STRUCTURE(BRANCH_NAME, PARENT, HIDDEN, SYSTEM) VALUES (:BRANCH_NAME, :PARENT, '#39'False'#39', '#39'False'#39') ');
qryAddRecordInTreeStructure.SQL.Add('SELECT tree_structure_seq.CURRVAL AS ID from dual'); |
Partager