Results 1 to 2 of 2
  1. #1
    Join Date
    Nov 2003
    Posts
    4

    Unanswered: Global Record group

    I am having trouble getting a tlist populated with a record group. I currently have this code.
    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;

    I believe some how i need to make the list_id variable global but i am unsure how to go about doing that. Any help would be great.

  2. #2
    Join Date
    Nov 2003
    Posts
    4
    the tlist to be populated is on the form that is called.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •