Originally posted by: TommyVercetti
Rule #1 of posting, Post in the right forum
Rule #2 of posting, Post the problem along with the question.
SOrry figured this was the best forum to post in.
The problem i am having is populating a tlist on a serprate form.
here is the code i have:
DECLARE
group_id RecordGroup;
list_id Item := Find_Item('LOC_BLOCK.SELECT_CITY_TLIST');
status NUMBER;
errcode NUMBER;
TEMP_PUDATE VARCHAR(20);
TEMP_RTDATE VARCHAR(20);
BEGIN
:GLOBAL.PROJECT_PATH := 'F:\DATABASE_MGMT\';
TEMP_PUDATE := :TIME_PLACE_BLOCK.PICKUP_DAY || :TIME_PLACE_BLOCK.PICKUP_MONTH;
:GLOBAL.PUDATE := TO_DATE(TEMP_PUDATE);
TEMP_RTDATE := :TIME_PLACE_BLOCK.RETURN_DAY || :TIME_PLACE_BLOCK.RETURN_MONTH;
:GLOBAL.RTDATE := TO_DATE(TEMP_RTDATE);
:GLOBAL.PUTIME := :TIME_PLACE_BLOCK.PICKUP_HOUR || :TIME_PLACE_BLOCK.PICKUP_MIN;
:GLOBAL.RTTIME := :TIME_PLACE_BLOCK.RETURN_HOUR || :TIME_PLACE_BLOCK.RETURN_MIN;
group_id :=
Create_Group_From_Query('City_Group',
'SELECT Branch.BrchCity, Branch.BrchCity FROM Branch');
status := Populate_Group('City_Group');
Populate_List(list_id, group_id);
IF :TIME_PLACE_BLOCK.AIR_CODE = '12345' THEN
CALL_FORM

GLOBAL.PROJECT_PATH || 'RATES_DISCOUNTS_FRM', HIDE, DO_REPLACE);
ELSE
CALL_FORM

GLOBAL.PROJECT_PATH || 'LOC_FRM', HIDE, DO_REPLACE);
END IF;
END;