<?xml version = '1.0' encoding = 'UTF-8'?>
<Module version="101020002" xmlns="http://xmlns.oracle.com/Forms">
   <FormModule Name="ORDERS" ConsoleWindow="WIN_ORDER" DirtyInfo="true" MenuModule="m_summit" Title="MODULE2">
      <Coordinate CharacterCellWidth="5" CoordinateSystem="Real" CharacterCellHeight="14" RealUnit="Point" DefaultFontScaling="true"/>
      <Alert Name="DELETE_ALERT" Button2Label="No" AlertStyle="Caution" Button1Label="Yes"/>
      <Alert Name="QUESTION_ALERT" Button2Label="No" Title="Question" Button1Label="Yes"/>
      <Alert Name="PAYMENT_TYPE_ALERT" AlertMessage="This customer must pay cash!" Button2Label="" AlertStyle="Caution" Title="Payment Type"/>
      <AttachedLibrary Name="CALENDAR" LibrarySource="File" LibraryLocation="calendar"/>
      <Block Name="S_ORD" DirtyInfo="true" QueryDataSourceName="S_ORD" ScrollbarWidth="9" DMLDataName="S_ORD" ScrollbarLength="135">
         <Item Name="CUSTOMER_NAME" PromptAlign="Start" Height="14" PromptFontName="MS Sans Serif" InsertAllowed="false" Width="116" PromptForegroundColor="black" Prompt="Customer Name" UpdateAllowed="false" DirtyInfo="true" Bevel="Lowered" XPosition="177" QueryAllowed="false" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DatabaseItem="false" YPosition="51" BackColor="white" KeyboardNavigable="false" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium"/>
         <Item Name="ID" Height="14" PromptFontName="MS Sans Serif" Width="40" DistanceBetweenRecords="40" PromptDisplayStyle="All Records" MaximumLength="8" ItemsDisplay="0" ItemType="Text Item" PromptForegroundColor="white" Prompt="Order Id " DirtyInfo="true" XPosition="64" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="4" Required="false" DataType="Number" YPosition="4" BackColor="white" PromptAttachmentOffset="9" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium"/>
         <Item Name="CUSTOMER_ID" Height="14" PromptFontName="MS Sans Serif" Width="66" DistanceBetweenRecords="40" PromptDisplayStyle="All Records" ItemsDisplay="0" MaximumLength="8" ItemType="Text Item" PromptForegroundColor="black" Prompt="Customer Id" DirtyInfo="true" Bevel="Lowered" XPosition="103" PromptJustification="Start" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" Required="true" DataType="Number" YPosition="51" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium">
            <Trigger Name="WHEN-VALIDATE-ITEM" TriggerText="SELECT C.name, C.sales_rep_id, E.last_name&amp;#10;INTO :S_ORD.customer_name, :S_ORD.sales_rep_id, :S_ORD.sales_rep_name&amp;#10;FROM S_CUSTOMER C, S_EMP E&amp;#10;WHERE (E.id=C.sales_rep_id) AND (:S_ORD.customer_id = C.id);&amp;#10;EXCEPTION&amp;#10; WHEN NO_DATA_FOUND THEN&amp;#10;   MESSAGE('Invalid Customer Id!');&amp;#10;   RAISE FORM_TRIGGER_FAILURE;&amp;#10;"/>
         </Item>
         <Item Name="DATE_ORDERED" Height="14" PromptFontName="MS Sans Serif" Width="66" DistanceBetweenRecords="40" PromptDisplayStyle="All Records" ItemsDisplay="0" MaximumLength="11" ItemType="Text Item" PromptForegroundColor="black" Prompt="Date Ordered" FormatMask="" DirtyInfo="true" XPosition="25" Bevel="Lowered" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Date" YPosition="51" BackColor="white" InitializeValue="$$date$$" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium">
            <Trigger Name="KEY-LISTVAL" TriggerText="date_lov.get_date(sysdate,         -- initial date&amp;#10;                  'Orders.date_ordered',  -- return block.item&amp;#10;                  240,             -- window x position&amp;#10;                  60,              -- window y position&amp;#10;                  'Order Date',    -- window title&amp;#10;                  'OK',            -- ok button label&amp;#10;                  'Cancel',        -- cancel button label&amp;#10;                  TRUE,            -- highlight weekend days&amp;#10;                  FALSE,           -- autoconfirm selection&amp;#10;                  FALSE);          -- autoskip after selection"/>
         </Item>
         <Item Name="DATE_SHIPPED" Height="14" PromptFontName="MS Sans Serif" Width="66" DistanceBetweenRecords="40" PromptDisplayStyle="All Records" ItemsDisplay="0" MaximumLength="11" ItemType="Text Item" PromptForegroundColor="black" Prompt="Date Shipped" FormatMask="" DirtyInfo="true" Bevel="Lowered" XPosition="25" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Date" YPosition="119" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium">
            <Trigger Name="KEY-LISTVAL" TriggerText="date_lov.get_date(sysdate + 7,         -- initial date&amp;#10;                  'Orders.date_shipped',  -- return block.item&amp;#10;                  240,             -- window x position&amp;#10;                  60,              -- window y position&amp;#10;                  'Shipped Date',    -- window title&amp;#10;                  'OK',            -- ok button label&amp;#10;                  'Cancel',        -- cancel button label&amp;#10;                  TRUE,            -- highlight weekend days&amp;#10;                  FALSE,           -- autoconfirm selection&amp;#10;                  FALSE);          -- autoskip after selection"/>
         </Item>
         <Item Name="SALES_REP_ID" Height="14" PromptFontName="MS Sans Serif" Width="66" DistanceBetweenRecords="40" PromptDisplayStyle="All Records" ItemsDisplay="0" MaximumLength="8" ItemType="Text Item" PromptForegroundColor="black" Prompt="Sales Rep Id" DirtyInfo="true" Bevel="Lowered" XPosition="103" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Number" YPosition="85" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium"/>
         <Item Name="SALES_REP_NAME" Height="14" PromptFontName="MS Sans Serif" InsertAllowed="false" Width="116" PromptForegroundColor="black" Prompt="Sales Rep Name" DirtyInfo="true" UpdateAllowed="false" Bevel="Lowered" XPosition="177" QueryAllowed="false" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DatabaseItem="false" YPosition="85" BackColor="white" KeyboardNavigable="false" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium"/>
         <Item Name="PAYMENT_TYPE" Height="14" XPosition="121" PromptFontName="MS Sans Serif" PromptFontSpacing="Normal" PromptFontSize="800" Width="48" PromptAlignOffset="-12" DistanceBetweenRecords="40" YPosition="167" InitializeValue="CASH" PromptDisplayStyle="All Records" ItemsDisplay="0" MaximumLength="6" PromptAttachmentOffset="-49" ItemType="Radio Group" TabPageName="" CanvasName="CV_ORDER" Prompt="Payment Type" PromptFontStyle="Plain" PromptFontWeight="Medium">
            <RadioButton Name="CASH_BUTTON" BackColor="FrameColor" AccessKey="S" DirtyInfo="true" Height="14" XPosition="112" RadioButtonValue="CASH" Width="45" YPosition="119" Label="Cash"/>
            <RadioButton Name="CREDIT_BUTTON" BackColor="FrameColor" AccessKey="T" DirtyInfo="true" Height="14" XPosition="160" RadioButtonValue="CREDIT" Width="45" YPosition="119" Label="Credit"/>
            <Trigger Name="WHEN-RADIO-CHANGED" TriggerText="DECLARE&amp;#10;  N NUMBER;&amp;#10;  v_credit S_CUSTOMER.credit_rating%type;&amp;#10;BEGIN&amp;#10;  IF :S_ORD.payment_type = 'CREDIT' THEN&amp;#10;    SELECT credit_rating&amp;#10;    INTO v_credit&amp;#10;    FROM S_CUSTOMER&amp;#10;    WHERE :S_ORD.customer_id = id;&amp;#10;    IF v_credit NOT IN ('GOOD', 'EXCELLENT') THEN&amp;#10;      :S_ORD.payment_type:= 'CASH';&amp;#10;      n:=SHOW_ALERT('Payment_Type_Alert');&amp;#10;    END IF;&amp;#10;  END IF;&amp;#10;END;&amp;#10;"/>
         </Item>
         <Item Name="ORDER_FILLED" Height="14" CheckBoxOtherValues="Not Allowed" PromptFontName="MS Sans Serif" Width="72" DistanceBetweenRecords="40" Label="Order Filled" PromptDisplayStyle="All Records" CheckedValue="Y" ItemsDisplay="0" MaximumLength="1" ItemType="Check Box" Prompt="" DirtyInfo="true" XPosition="215" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="-12" YPosition="119" BackColor="FrameColor" InitializeValue="N" PromptAttachmentOffset="-30" UncheckedValue="N" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Medium"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="ID" DSCScale="0" DSCMandatory="true"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="CUSTOMER_ID" DSCScale="0" DSCMandatory="true"/>
         <DataSourceColumn Type="Query" DSCType="DATE" DSCLength="0" DSCPrecision="0" DSCName="DATE_ORDERED" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="DATE" DSCLength="0" DSCPrecision="0" DSCName="DATE_SHIPPED" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="SALES_REP_ID" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="11" DSCName="TOTAL" DSCScale="2" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="VARCHAR2" DSCLength="6" DSCPrecision="0" DSCName="PAYMENT_TYPE" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="VARCHAR2" DSCLength="1" DSCPrecision="0" DSCName="ORDER_FILLED" DSCScale="0" DSCMandatory="false"/>
         <Relation Name="S_ORD_S_ITEM" DeleteRecord="Non Isolated" DetailBlock="S_ITEM" AutoQuery="false" PreventMasterlessOperations="false" Deferred="false" JoinCondition="Items.ORD_ID = Orders.ID"/>
         <Trigger Name="KEY-COMMIT" TriggerText="COMMIT_FORM;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
         <Trigger Name="ON-POPULATE-DETAILS" TriggerText="--&amp;#10;-- Begin default relation declare section&amp;#10;--&amp;#10;DECLARE&amp;#10;  recstat     VARCHAR2(20) := :System.record_status;   &amp;#10;  startitm    VARCHAR2(61) := :System.cursor_item;   &amp;#10;  rel_id      Relation;&amp;#10;--&amp;#10;-- End default relation declare section&amp;#10;--&amp;#10;--&amp;#10;-- Begin default relation program section&amp;#10;--&amp;#10;BEGIN&amp;#10;  IF ( recstat = 'NEW' or recstat = 'INSERT' ) THEN   &amp;#10;    RETURN;&amp;#10;  END IF;&amp;#10;  --&amp;#10;  -- Begin S_ITEM detail program section&amp;#10;  --&amp;#10;  IF ( (:S_ORD.ID is not null) ) THEN   &amp;#10;    rel_id := Find_Relation('Orders.S_ORD_S_ITEM');   &amp;#10;    Query_Master_Details(rel_id, 'S_ITEM');   &amp;#10;  END IF;&amp;#10;  --&amp;#10;  -- End S_ITEM detail program section&amp;#10;  --&amp;#10;&amp;#10;  IF ( :System.cursor_item &lt;> startitm ) THEN     &amp;#10;     Go_Item(startitm);     &amp;#10;     Check_Package_Failure;     &amp;#10;  END IF;&amp;#10;END;&amp;#10;--&amp;#10;-- End default relation program section&amp;#10;--&amp;#10;"/>
         <Trigger Name="ON-CHECK-DELETE-MASTER" TriggerText="--&amp;#10;-- Begin default relation declare section&amp;#10;--&amp;#10;DECLARE&amp;#10;  Dummy_Define CHAR(1);&amp;#10;  --&amp;#10;  -- Begin S_ITEM detail declare section&amp;#10;  --&amp;#10;  CURSOR S_ITEM_cur IS      &amp;#10;    SELECT 1 FROM S_ITEM     &amp;#10;    WHERE ORD_ID = :S_ORD.ID;&amp;#10;  --&amp;#10;  -- End S_ITEM detail declare section&amp;#10;  --&amp;#10;--&amp;#10;-- End default relation declare section&amp;#10;--&amp;#10;--&amp;#10;-- Begin default relation program section&amp;#10;--&amp;#10;BEGIN&amp;#10;  --&amp;#10;  -- Begin S_ITEM detail program section&amp;#10;  --&amp;#10;  OPEN S_ITEM_cur;     &amp;#10;  FETCH S_ITEM_cur INTO Dummy_Define;     &amp;#10;  IF ( S_ITEM_cur%found ) THEN     &amp;#10;    Message('Cannot delete master record when matching detail records exist.');     &amp;#10;    CLOSE S_ITEM_cur;     &amp;#10;    RAISE Form_Trigger_Failure;     &amp;#10;  END IF;&amp;#10;  CLOSE S_ITEM_cur;&amp;#10;  --&amp;#10;  -- End S_ITEM detail program section&amp;#10;  --&amp;#10;END;&amp;#10;--&amp;#10;-- End default relation program section&amp;#10;--&amp;#10;"/>
         <Trigger Name="POST-QUERY" TriggerText="SELECT C.name, E.last_name &amp;#10;INTO :S_ORD.customer_name, :S_ORD.sales_rep_name&amp;#10;FROM S_CUSTOMER C, S_EMP E&amp;#10;WHERE E.id = C.sales_rep_id AND :S_ORD.customer_id = C.id;"/>
         <Trigger Name="WHEN-VALIDATE-RECORD" TriggerText="IF :S_ORD.date_shipped &lt; :S_ORD.date_ordered THEN&amp;#10;  MESSAGE('Ship date is before order date!');&amp;#10;  RAISE FORM_TRIGGER_FAILURE;&amp;#10;END IF;"/>
         <Trigger Name="PRE-QUERY" TriggerText=":S_ORD.customer_id := :GLOBAL.customer_id;"/>
         <Trigger Name="WHEN-CREATE-RECORD" TriggerText=":S_ORD.customer_id := :GLOBAL.customer_id;"/>
         <Trigger Name="PRE-INSERT" TriggerText="SELECT S_ORD_ID.nextval&amp;#10;INTO :S_ORD.id&amp;#10;FROM SYS.DUAL;&amp;#10;EXCEPTION&amp;#10;  WHEN OTHERS THEN&amp;#10;    MESSAGE('Faild to assign Order Id');&amp;#10;    RAISE form_trigger_failure;"/>
         <Trigger Name="KEY-DUPREC" TriggerText=":S_ORD.id := NULL;" DirtyInfo="true" ExecuteHierarchy="After" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-EXEQRY" TriggerText="EXECUTE_QUERY;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-ENTQRY" TriggerText="ENTER_QUERY;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-CREREC" TriggerText="CREATE_RECORD;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-CLRBLK" TriggerText="CLEAR_BLOCK;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-UP" TriggerText="UP;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-DOWN" TriggerText="DOWN;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-OTHERS" TriggerText="MESSAGE('Function Not Allowed');" DirtyInfo="true" DisplayInKeyboardHelp="false"/>
         <Trigger Name="KEY-DELREC" TriggerText="SET_ALERT_PROPERTY('delete_alert', ALERT_MESSAGE_TEXT, 'Do you want to delete this order?');&amp;#10;IF SHOW_ALERT('delete_alert')=ALERT_BUTTON1&amp;#10;THEN&amp;#10;  DELETE_RECORD;&amp;#10;END IF;" DirtyInfo="true" KeyboardHelpText="Delete an Order" DisplayInKeyboardHelp="true"/>
         <Trigger Name="WHEN-NEW-RECORD-INSTANCE" TriggerText="DECLARE&amp;#10;  filename VARCHAR2(20);&amp;#10;BEGIN&amp;#10;  IF  GET_ITEM_PROPERTY('Items.product_image',VISIBLE)='TRUE' THEN&amp;#10;    filename := GET_PRODUCT_IMAGE(:S_ITEM.product_id); &amp;#10;    IF filename = 'No file' THEN  &amp;#10;       null;&amp;#10;    ELSE  &amp;#10;      READ_IMAGE_FILE(filename,'tiff','Items.product_image');&amp;#10;    END IF;&amp;#10;  END IF;&amp;#10;END;"/>
      </Block>
      <Block Name="S_ITEM" ScrollbarTabPageName="" DirtyInfo="true" ScrollbarWidth="11" DMLDataName="S_ITEM" ScrollbarXPosition="399" OrderByClause="ITEM_ID" BackColor="gray" RecordVisualAttributeGroupName="CURRENT_RECORD" QueryDataSourceName="S_ITEM" ScrollbarYPosition="176" ShowScrollbar="true" ScrollbarCanvasName="CV_ORDER" NavigationStyle="Change Record" RecordsDisplayCount="4" ScrollbarLength="56" QueryAllRecords="true">
         <Item Name="ORD_ID" CopyValueFromItem="Orders.ID" Height="14" PromptAlign="Center" XPosition="10" Width="41" Required="true" DataType="Number" YPosition="134" PromptDisplayStyle="First Record" ItemsDisplay="0" MaximumLength="8" PromptAttachmentEdge="Top" ItemType="Text Item" TabPageName="" CanvasName="" Prompt="Ord Id"/>
         <Item Name="ITEM_ID" Height="14" PromptAlign="Center" PromptFontName="MS Sans Serif" Width="20" PromptDisplayStyle="First Record" MaximumLength="8" ItemsDisplay="0" ItemType="Text Item" PromptForegroundColor="black" Prompt="Item&amp;#10;Id" DirtyInfo="true" Bevel="Lowered" XPosition="20" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" Required="false" DataType="Number" YPosition="176" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="PRODUCT_ID" Height="14" PromptAlign="Center" PromptFontName="MS Sans Serif" Width="40" PromptDisplayStyle="First Record" ItemsDisplay="0" MaximumLength="8" ItemType="Text Item" PromptForegroundColor="black" Prompt="Product&amp;#10;Id" DirtyInfo="true" Bevel="Lowered" XPosition="41" PromptFontSize="800" PromptFontSpacing="Normal" LovName="PRODUCTS_LOV" PromptAlignOffset="0" Required="true" DataType="Number" YPosition="176" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight">
            <Trigger Name="WHEN-VALIDATE-ITEM" TriggerText="SELECT name, suggested_whlsl_price&amp;#10;INTO :S_ITEM.description, :S_ITEM.price&amp;#10;FROM S_PRODUCT&amp;#10;WHERE :S_ITEM.product_id = id;&amp;#10;EXCEPTION&amp;#10;  WHEN NO_DATA_FOUND THEN&amp;#10;    MESSAGE('Invalid Product Id!');&amp;#10;    RAISE FORM_TRIGGER_FAILURE;&amp;#10;"/>
         </Item>
         <Item Name="PRICE" Height="14" PromptAlign="Center" PromptFontName="MS Sans Serif" Width="42" PromptDisplayStyle="First Record" ItemsDisplay="0" MaximumLength="13" ItemType="Text Item" PromptForegroundColor="black" Prompt="Price" DirtyInfo="true" Justification="Right" Bevel="Lowered" XPosition="215" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Number" YPosition="176" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="QUANTITY" Height="14" PromptAlign="Center" PromptFontName="MS Sans Serif" Width="26" PromptDisplayStyle="First Record" ItemsDisplay="0" MaximumLength="10" ItemType="Text Item" PromptForegroundColor="black" Prompt="Qty" DirtyInfo="true" Justification="Right" Bevel="Lowered" XPosition="258" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Number" YPosition="176" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="QUANTITY_SHIPPED" Height="14" PromptAlign="Center" PromptFontName="MS Sans Serif" Width="26" PromptDisplayStyle="First Record" ItemsDisplay="0" MaximumLength="10" ItemType="Text Item" PromptForegroundColor="black" Prompt="Shipped" UpdateAllowed="false" DirtyInfo="true" Justification="Right" Bevel="Lowered" XPosition="285" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Number" YPosition="176" BackColor="white" KeyboardNavigable="true" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="ITEM_TOTAL" Height="14" PromptAlign="Center" PromptFontName="MS Sans Serif" InsertAllowed="false" Width="86" PromptForegroundColor="black" Prompt="Item Total" FormatMask="999,990.99" UpdateAllowed="false" DirtyInfo="true" Bevel="Lowered" XPosition="312" Formula=":S_ITEM.quantity_shipped * :S_ITEM.price" QueryAllowed="false" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DatabaseItem="false" DataType="Number" YPosition="176" BackColor="white" KeyboardNavigable="false" CalculateMode="Formula" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="TOTAL" Height="14" PromptFontName="MS Sans Serif" Width="86" ItemsDisplay="1" MaximumLength="13" PromptForegroundColor="black" Prompt="Order Total" FormatMask="9,999,990.99" SummaryFunction="Sum" DirtyInfo="true" Bevel="Lowered" XPosition="313" PromptFontSize="800" PromptFontSpacing="Normal" DatabaseItem="false" PromptAlignOffset="4" SummaryBlockName="Items" DataType="Number" YPosition="241" BackColor="white" KeyboardNavigable="false" CalculateMode="Summary" PromptAttachmentOffset="9" SummaryItemName="ITEM_TOTAL" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="DESCRIPTION" PromptAlign="Center" Height="14" PromptFontName="MS Sans Serif" Width="133" MaximumLength="50" ItemType="Display Item" PromptForegroundColor="black" Prompt="Description" DirtyInfo="true" Bevel="Lowered" XPosition="82" PromptJustification="Start" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DatabaseItem="false" YPosition="176" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_ORDER" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="PRODUCT_IMAGE" Height="113" DirtyInfo="true" XPosition="320" Visible="false" ForegroundColor="black" Width="115" DatabaseItem="false" YPosition="8" BackColor="white" KeyboardNavigable="false" SizingStyle="Adjust" ItemsDisplay="1" ItemType="Image" CanvasName="CV_ORDER"/>
         <Item Name="IMAGE_DESCRIPTION" FontSize="800" DirtyInfo="true" Justification="Start" Height="16" XPosition="312" SynchronizedItemName="DESCRIPTION" FontName="MS Sans Serif" ForegroundColor="black" DatabaseItem="false" Width="133" YPosition="124" FontSpacing="Normal" BackColor="white" MaximumLength="50" ItemsDisplay="1" FontWeight="Medium" FontStyle="Plain" ItemType="Display Item" CanvasName="CV_ORDER"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="ORD_ID" DSCScale="0" DSCMandatory="true"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="ITEM_ID" DSCScale="0" DSCMandatory="true"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="PRODUCT_ID" DSCScale="0" DSCMandatory="true"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="11" DSCName="PRICE" DSCScale="2" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="9" DSCName="QUANTITY" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="9" DSCName="QUANTITY_SHIPPED" DSCScale="0" DSCMandatory="false"/>
         <Relation Name="S_ITEM_S_INVENTORY" DeleteRecord="Isolated" DetailBlock="S_INVENTORY" AutoQuery="true" PreventMasterlessOperations="false" Deferred="true" JoinCondition="Items.product_id = Inventories.product_id"/>
         <Trigger Name="POST-QUERY" TriggerText="SELECT name&amp;#10;INTO :S_ITEM.description&amp;#10;FROM S_PRODUCT&amp;#10;WHERE :S_ITEM.product_id = id;"/>
         <Trigger Name="WHEN-NEW-RECORD-INSTANCE" TriggerText="DECLARE&amp;#10;  filename VARCHAR2(20);&amp;#10;BEGIN&amp;#10;  IF  GET_ITEM_PROPERTY('Items.product_image',VISIBLE)='TRUE' THEN&amp;#10;    filename := GET_PRODUCT_IMAGE(:S_ITEM.product_id); &amp;#10;    IF filename = 'No file' THEN  &amp;#10;       null;&amp;#10;    ELSE  &amp;#10;      READ_IMAGE_FILE(filename,'tiff','Items.product_image');&amp;#10;    END IF;&amp;#10;  END IF;&amp;#10;END;"/>
         <Trigger Name="PRE-INSERT" TriggerText="SELECT NVL(MAX(item_id),0) + 1&amp;#10;INTO :S_ITEM.item_id&amp;#10;FROM S_ITEM&amp;#10;WHERE :S_ITEM.ord_id = ord_id;"/>
         <Trigger Name="KEY-DUPREC" TriggerText=":S_ITEM.item_id := NULL;&amp;#10;:S_ITEM.product_id := NULL;&amp;#10;:S_ITEM.description := NULL;&amp;#10;:S_ITEM.price := NULL;" DirtyInfo="true" ExecuteHierarchy="After" DisplayInKeyboardHelp="true"/>
         <Trigger Name="KEY-DELREC" TriggerText="SET_ALERT_PROPERTY('delete_alert', ALERT_MESSAGE_TEXT, 'Do you want to delete this line order?');&amp;#10;IF SHOW_ALERT('delete_alert')=ALERT_BUTTON1&amp;#10;THEN&amp;#10;  DELETE_RECORD;&amp;#10;END IF;" DirtyInfo="true" KeyboardHelpText="Delete a line Order" DisplayInKeyboardHelp="true"/>
         <Trigger Name="ON-POPULATE-DETAILS" TriggerText="--&amp;#10;-- Begin default relation declare section&amp;#10;--&amp;#10;DECLARE&amp;#10;  recstat     VARCHAR2(20) := :System.record_status;   &amp;#10;  startitm    VARCHAR2(61) := :System.cursor_item;   &amp;#10;  rel_id      Relation;&amp;#10;--&amp;#10;-- End default relation declare section&amp;#10;--&amp;#10;--&amp;#10;-- Begin default relation program section&amp;#10;--&amp;#10;BEGIN&amp;#10;  IF ( recstat = 'NEW' or recstat = 'INSERT' ) THEN   &amp;#10;    RETURN;&amp;#10;  END IF;&amp;#10;  --&amp;#10;  -- Begin S_INVENTORY detail program section&amp;#10;  --&amp;#10;  IF ( (:S_ITEM.PRODUCT_ID is not null) ) THEN   &amp;#10;    rel_id := Find_Relation('Items.S_ITEM_S_INVENTORY');   &amp;#10;    Query_Master_Details(rel_id, 'S_INVENTORY');   &amp;#10;  END IF;&amp;#10;  --&amp;#10;  -- End S_INVENTORY detail program section&amp;#10;  --&amp;#10;&amp;#10;  IF ( :System.cursor_item &lt;> startitm ) THEN     &amp;#10;     Go_Item(startitm);     &amp;#10;     Check_Package_Failure;     &amp;#10;  END IF;&amp;#10;END;&amp;#10;--&amp;#10;-- End default relation program section&amp;#10;--&amp;#10;"/>
         <Trigger Name="KEY-COMMIT" TriggerText="COMMIT_FORM;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
      </Block>
      <Block Name="S_INVENTORY" ScrollbarTabPageName="" DirtyInfo="true" ScrollbarWidth="9" DMLDataName="S_INVENTORY" ScrollbarXPosition="272" BackColor="gray" RecordVisualAttributeGroupName="CURRENT_RECORD" QueryDataSourceName="S_INVENTORY" ScrollbarYPosition="65" ShowScrollbar="true" ScrollbarCanvasName="CV_INVENTORY" RecordsDisplayCount="4" ScrollbarLength="56">
         <Item Name="PRODUCT_ID" Height="14" CopyValueFromItem="Items.PRODUCT_ID" PromptAlign="Start" PromptFontName="MS Sans Serif" Width="64" PromptDisplayStyle="First Record" MaximumLength="8" ItemsDisplay="1" ItemType="Text Item" PromptForegroundColor="white" Prompt="Product Id" DirtyInfo="true" XPosition="13" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" Required="true" DataType="Number" YPosition="20" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_INVENTORY" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="WAREHOUSE_ID" PromptAlign="Center" Height="14" PromptFontName="MS Sans Serif" Width="41" PromptDisplayStyle="First Record" MaximumLength="8" ItemsDisplay="0" ItemType="Text Item" PromptForegroundColor="white" Prompt="Warehouse Id" DirtyInfo="true" XPosition="26" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" Required="true" DataType="Number" YPosition="65" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_INVENTORY" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="AMOUNT_IN_STOCK" PromptAlign="Center" Height="14" PromptFontName="MS Sans Serif" Width="50" PromptDisplayStyle="First Record" MaximumLength="10" ItemsDisplay="0" ItemType="Text Item" PromptForegroundColor="white" Prompt="In Stock" DirtyInfo="true" XPosition="68" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Number" YPosition="65" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_INVENTORY" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="REORDER_POINT" PromptAlign="Center" Height="14" PromptFontName="MS Sans Serif" Width="50" PromptDisplayStyle="First Record" MaximumLength="10" ItemsDisplay="0" ItemType="Text Item" PromptForegroundColor="white" Prompt="Reorder Point" DirtyInfo="true" XPosition="117" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Number" YPosition="65" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_INVENTORY" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="MAX_IN_STOCK" PromptAlign="Center" Height="14" PromptFontName="MS Sans Serif" Width="50" PromptDisplayStyle="First Record" MaximumLength="10" ItemsDisplay="0" ItemType="Text Item" PromptForegroundColor="white" Prompt="Max In Stock" DirtyInfo="true" XPosition="168" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Number" YPosition="65" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_INVENTORY" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <Item Name="RESTOCK_DATE" PromptAlign="Center" Height="14" PromptFontName="MS Sans Serif" Width="54" PromptDisplayStyle="First Record" MaximumLength="11" ItemsDisplay="0" ItemType="Text Item" PromptForegroundColor="white" Prompt="Restock Date" DirtyInfo="true" XPosition="218" PromptFontSize="800" PromptFontSpacing="Normal" PromptAlignOffset="0" DataType="Date" YPosition="65" BackColor="white" PromptAttachmentEdge="Top" PromptAttachmentOffset="5" TabPageName="" CanvasName="CV_INVENTORY" PromptFontStyle="Plain" PromptFontWeight="Demilight"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="PRODUCT_ID" DSCScale="0" DSCMandatory="true"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="7" DSCName="WAREHOUSE_ID" DSCScale="0" DSCMandatory="true"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="9" DSCName="AMOUNT_IN_STOCK" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="9" DSCName="REORDER_POINT" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="NUMBER" DSCLength="0" DSCPrecision="9" DSCName="MAX_IN_STOCK" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="VARCHAR2" DSCLength="255" DSCPrecision="0" DSCName="OUT_OF_STOCK_EXPLANATION" DSCScale="0" DSCMandatory="false"/>
         <DataSourceColumn Type="Query" DSCType="DATE" DSCLength="0" DSCPrecision="0" DSCName="RESTOCK_DATE" DSCScale="0" DSCMandatory="false"/>
      </Block>
      <Block Name="Controls" UpdateAllowed="true" DirtyInfo="true" QueryDataSourceType="None" QueryAllowed="true" InsertAllowed="true" ScrollbarWidth="9" DeleteAllowed="true" ScrollbarLength="135" DatabaseBlock="false">
         <Item Name="STOCK_BUTTON" Height="18" DirtyInfo="true" MouseNavigate="true" XPosition="129" Width="43" YPosition="4" Label="Stock" AccessKey="S" BackColor="gray" ImplementationClass="oracle.forms.demos.RoundedButton" KeyboardNavigable="true" ItemType="Push Button" TabPageName="" CanvasName="TOOLBAR">
            <Trigger Name="WHEN-BUTTON-PRESSED" TriggerText="GO_BLOCK('Inventories');"/>
         </Item>
         <Item Name="IMAGE_BUTTON" Height="18" DirtyInfo="true" MouseNavigate="true" XPosition="172" Width="61" YPosition="4" Label="Image On" AccessKey="I" BackColor="gray" ImplementationClass="oracle.forms.demos.RoundedButton" KeyboardNavigable="true" ItemType="Push Button" TabPageName="" CanvasName="TOOLBAR">
            <Trigger Name="WHEN-BUTTON-PRESSED" TriggerText="DECLARE&amp;#10;	product_image_id	ITEM := FIND_ITEM('Items.product_image');&amp;#10;	image_description_id	ITEM := FIND_ITEM('Items.image_description');&amp;#10;	image_button_id		ITEM := FIND_ITEM('Controls.image_button');&amp;#10;BEGIN&amp;#10;	IF    GET_ITEM_PROPERTY(product_image_id,displayed) = 'TRUE'&amp;#10;	THEN&amp;#10;		SET_ITEM_PROPERTY(product_image_id,DISPLAYED,PROPERTY_FALSE);&amp;#10;		SET_ITEM_PROPERTY(image_description_id,DISPLAYED,PROPERTY_FALSE);&amp;#10;		SET_ITEM_PROPERTY(image_button_id,LABEL,'Image On');&amp;#10;		SET_MENU_ITEM_PROPERTY('IMAGE_MENU.IMAGE_ACTIVATE', CHECKED, PROPERTY_FALSE );&amp;#10;	ELSE  &amp;#10;		SET_ITEM_PROPERTY(product_image_id,DISPLAYED,PROPERTY_TRUE);&amp;#10;		SET_ITEM_PROPERTY(image_description_id,DISPLAYED,PROPERTY_TRUE);&amp;#10;		SET_ITEM_PROPERTY(image_button_id,LABEL,'Image Off');&amp;#10;		SET_MENU_ITEM_PROPERTY('IMAGE_MENU.IMAGE_ACTIVATE', CHECKED, PROPERTY_TRUE );&amp;#10;	END IF;&amp;#10;END;"/>
         </Item>
         <Item Name="SHOW_HELP_BUTTON" DirtyInfo="true" Height="18" MouseNavigate="false" XPosition="233" Bevel="None" ForegroundColor="black" Width="45" YPosition="4" Label="Help" AccessKey="H" BackColor="gray" Tooltip="Show Help" ImplementationClass="oracle.forms.demos.RoundedButton" KeyboardNavigable="true" ItemType="Push Button" TabPageName="" CanvasName="TOOLBAR">
            <Trigger Name="WHEN-BUTTON-PRESSED" TriggerText=":GLOBAL.save_item_name := :SYSTEM.CURSOR_ITEM;&amp;#10;GO_ITEM('Orders.id');&amp;#10;SHOW_VIEW('CV_HELP');" DirtyInfo="true"/>
         </Item>
         <Item Name="EXIT_BUTTON" Height="18" DirtyInfo="true" MouseNavigate="true" XPosition="278" Width="45" YPosition="4" Label="Exit" AccessKey="E" BackColor="gray" ImplementationClass="oracle.forms.demos.RoundedButton" KeyboardNavigable="true" ItemType="Push Button" TabPageName="" CanvasName="TOOLBAR">
            <Trigger Name="WHEN-BUTTON-PRESSED" TriggerText="DO_KEY('EXIT_FORM');&amp;#10;" FireInQuery="false"/>
         </Item>
         <Item Name="PRODUCT_LOV_BUTTON" Height="17" DirtyInfo="true" MouseNavigate="false" XPosition="50" Iconic="true" Width="17" YPosition="235" BackColor="gray" ImplementationClass="" KeyboardNavigable="false" ItemType="Push Button" TabPageName="" CanvasName="CV_ORDER" IconFilename="list">
            <Trigger Name="WHEN-BUTTON-PRESSED" TriggerText="DECLARE&amp;#10;  no_rows  NUMBER(7);&amp;#10;  rg_id    RECORDGROUP;&amp;#10;BEGIN&amp;#10;  :GLOBAL.where_cls  := ' id NOT IN (';&amp;#10;  GO_BLOCK('Items');&amp;#10;  FIRST_RECORD;&amp;#10;  IF:SYSTEM.RECORD_STATUS != 'NEW' THEN&amp;#10;    LOOP&amp;#10;      :GLOBAL.where_cls := :GLOBAL.where_cls || TO_CHAR(:S_ITEM.product_id);&amp;#10;      NEXT_RECORD;&amp;#10;      EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';  &amp;#10;      :GLOBAL.where_cls := :GLOBAL.where_cls || ',';&amp;#10;    END LOOP;&amp;#10;    :GLOBAL.where_cls := :GLOBAL.where_cls || ',' || TO_CHAR(:S_ITEM.product_id) || ')';  &amp;#10;  END IF;&amp;#10;--  CALL_FORM('lov_product', NO_HIDE);  &amp;#10;  CALL_FORM('pick', NO_HIDE);&amp;#10;&amp;#10;  GO_BLOCK('Items');&amp;#10;  rg_id := FIND_GROUP('sel_records');&amp;#10;  IF NOT ID_NULL(rg_id) THEN&amp;#10;    no_rows := GET_GROUP_ROW_COUNT(rg_id);&amp;#10;    FOR i IN 1..no_rows LOOP&amp;#10;      IF :SYSTEM.RECORD_STATUS != 'NEW' THEN&amp;#10;        CREATE_RECORD;&amp;#10;      END IF;&amp;#10;      :S_ITEM.product_id  := GET_GROUP_NUMBER_CELL('sel_records.prodno', i);&amp;#10;      :S_ITEM.description := GET_GROUP_CHAR_CELL('sel_records.prodname', i);&amp;#10;      :S_ITEM.price       := GET_GROUP_NUMBER_CELL('sel_records.prodprice', i);&amp;#10;    END LOOP;&amp;#10;    IF NOT ID_NULL(FIND_GROUP('sel_records')) THEN&amp;#10;      DELETE_GROUP('sel_records');&amp;#10;    END IF;&amp;#10;  END IF;&amp;#10;END;   "/>
         </Item>
         <Item Name="IMMEDIATE" FontSize="800" DirtyInfo="true" Height="14" MouseNavigate="false" XPosition="14" FontName="MS Sans Serif" ForegroundColor="black" DatabaseItem="false" Width="71" YPosition="2" FontSpacing="Normal" Label="Immediate" BackColor="NewCanvas" InitializeValue="Y" KeyboardNavigable="false" CheckedValue="Y" FontWeight="Medium" ItemType="Check Box" UncheckedValue="N" FontStyle="Plain" CanvasName="TOOLBAR">
            <Trigger Name="WHEN-CHECKBOX-CHANGED" TriggerText="IF get_relation_property( 's_ord_s_item', deferred_coordination ) = 'FALSE'&amp;#10;THEN&amp;#10;	set_relation_property('s_ord_s_item', deferred_coordination, property_true);&amp;#10;	set_item_property('Controls.auto_query', enabled, property_true );&amp;#10;ELSE&amp;#10;	set_relation_property('s_ord_s_item', deferred_coordination, property_false);&amp;#10;	set_item_property('Controls.auto_query', enabled, property_false );&amp;#10;END IF;&amp;#10;&amp;#10;"/>
         </Item>
         <Item Name="AUTO_QUERY" FontSize="800" DirtyInfo="true" Height="14" MouseNavigate="false" XPosition="14" CheckBoxOtherValues="Unchecked" FontName="MS Sans Serif" ForegroundColor="black" DatabaseItem="false" Width="71" YPosition="14" FontSpacing="Normal" Label="Auto Query" BackColor="NewCanvas" InitializeValue="Y" KeyboardNavigable="false" CheckedValue="Y" FontWeight="Medium" ItemType="Check Box" UncheckedValue="N" FontStyle="Plain" CanvasName="TOOLBAR" Enabled="false">
            <Trigger Name="WHEN-CHECKBOX-CHANGED" TriggerText="IF get_relation_property('s_ord_s_item', autoquery ) = 'FALSE'&amp;#10;THEN&amp;#10;	set_relation_property('s_ord_s_item', autoquery, property_true );&amp;#10;ELSE&amp;#10;	set_relation_property('s_ord_s_item', autoquery, property_false);&amp;#10;END IF;&amp;#10;&amp;#10;&amp;#10;"/>
         </Item>
         <Item Name="PUSH_BUTTON57" Height="18" DirtyInfo="true" XPosition="97" MouseNavigate="false" ForegroundColor="black" Width="76" YPosition="189" Label="Exit" BackColor="gray" ImplementationClass="oracle.forms.demos.RoundedButton" ItemType="Push Button" CanvasName="CV_HELP">
            <Trigger Name="WHEN-BUTTON-PRESSED" TriggerText="HIDE_VIEW('cv_help');&amp;#10;GO_ITEM(:GLOBAL.save_item_name);" DirtyInfo="true"/>
         </Item>
      </Block>
      <Canvas Name="CV_ORDER" ViewportHeight="324" BackColor="NewCanvas" DirtyInfo="true" Height="302" WindowName="WIN_ORDER" Width="455" ViewportWidth="360" CanvasType="Content">
         <Graphics Name="TEXT91" GraphicsText="Order Information" VerticalOrigin="Top" InternalLineWidth="113" Height="10" VerticalMargin="14" GraphicsFontColor="white" GraphicsFontSpacing="Normal" ForegroundColor="black" FixedBoundingBox="false" Width="74" InternalRotationAngle="0" HorizontalJustification="Left" GraphicsFontSize="1600" GraphicsFontWeight="Bold" StartPromptOffset="5" CustomSpacing="0" FillPattern="transparent" GraphicsFontColorCode="1" FontScaleable="false" HorizontalObjectOffset="9" EdgeBackColor="black" LineSpacing="Single" WrapText="false" CapStyle="Butt" DirtyInfo="true" XPosition="135" Bevel="None" ScrollbarWidth="9" GraphicsFontStyle="0" HorizontalMargin="5" BoundingBoxScalable="false" DashStyle="Solid" EdgePattern="none" YPosition="2" GraphicsType="Text" BackColor="NewCanvas" VerticalJustification="Top" EdgeForegroundColor="black" GraphicsFontName="Times New Roman" LanguageDirection="Default" HorizontalOrigin="Left" JoinStyle="Mitre">
            <CompoundText Name="CMPTXT92">
               <TextSegment Name="TEXTSTR93" FontSize="1600" DirtyInfo="true" FontName="Times New Roman" ForegroundColor="white" FontWeight="Bold" FontStyle="Plain" Text="Order Information" FontSpacing="Normal"/>
            </CompoundText>
         </Graphics>
         <Graphics Name="TEXT15" GraphicsText="Payment Type" Height="10" VerticalMargin="14" GraphicsFontSpacing="Normal" GraphicsFontColor="black" Width="51" HorizontalJustification="Start" GraphicsFontWeight="Medium" GraphicsFontSize="800" StartPromptOffset="5" FillPattern="transparent" GraphicsFontColorCode="0" HorizontalObjectOffset="9" DirtyInfo="true" Bevel="None" XPosition="125" GraphicsFontStyle="0" ScrollbarWidth="9" HorizontalMargin="5" EdgePattern="none" YPosition="104" GraphicsType="Text" BackColor="FrameColor" GraphicsFontName="MS Sans Serif" JoinStyle="Bevel">
            <CompoundText Name="CMPTXT17">
               <TextSegment Name="TEXTSTR18" FontSize="800" DirtyInfo="true" FontName="MS Sans Serif" ForegroundColor="black" FontWeight="Medium" FontStyle="Plain" Text="Payment Type" FontSpacing="Normal"/>
            </CompoundText>
         </Graphics>
         <Graphics Name="RECT59" GraphicsText="" Height="112" InternalLineWidth="1" VerticalMargin="19" GraphicsFontSpacing="Ultradense" GraphicsFontColor="" Width="302" GraphicsFontWeight="Ultralight" GraphicsFontSize="0" StartPromptOffset="8" FillPattern="transparent" GraphicsFontColorCode="0" HorizontalObjectOffset="16" DirtyInfo="true" Bevel="None" XPosition="10" GraphicsFontStyle="0" ScrollbarWidth="16" HorizontalMargin="8" YPosition="32" GraphicsType="Rectangle" BackColor="gray28" GraphicsFontName="" JoinStyle="Bevel"/>
         <Graphics Name="RECT60" GraphicsText="" DirtyInfo="true" InternalLineWidth="1" Height="123" XPosition="10" VerticalMargin="19" Bevel="None" GraphicsFontColor="" GraphicsFontSpacing="Ultradense" ScrollbarWidth="16" GraphicsFontStyle="0" HorizontalMargin="8" Width="420" GraphicsFontSize="0" GraphicsFontWeight="Ultralight" YPosition="148" StartPromptOffset="8" GraphicsType="Rectangle" BackColor="gray28" GraphicsFontColorCode="0" HorizontalObjectOffset="16" GraphicsFontName="" JoinStyle="Bevel"/>
      </Canvas>
      <Canvas Name="CV_INVENTORY" ViewportHeight="324" BackColor="NewCanvas" DirtyInfo="true" Height="143" WindowName="WIN_INVENTORY" Visible="false" Width="312" ViewportWidth="360" CanvasType="Content" RaiseOnEnter="true">
         <Graphics Name="TEXT27" GraphicsText="Stock Information" VerticalOrigin="Top" InternalLineWidth="113" Height="19" VerticalMargin="14" GraphicsFontColor="white" GraphicsFontSpacing="Normal" ForegroundColor="black" FixedBoundingBox="false" Width="122" InternalRotationAngle="0" HorizontalJustification="Left" GraphicsFontSize="1600" GraphicsFontWeight="Bold" StartPromptOffset="5" CustomSpacing="0" FillPattern="none" GraphicsFontColorCode="1" FontScaleable="false" HorizontalObjectOffset="9" EdgeBackColor="black" LineSpacing="Single" WrapText="false" CapStyle="Butt" DirtyInfo="true" XPosition="109" Bevel="None" ScrollbarWidth="9" GraphicsFontStyle="0" HorizontalMargin="5" BoundingBoxScalable="false" DashStyle="Solid" EdgePattern="none" YPosition="16" GraphicsType="Text" BackColor="NewCanvas" VerticalJustification="Top" EdgeForegroundColor="black" GraphicsFontName="Times New Roman" LanguageDirection="Default" HorizontalOrigin="Left" JoinStyle="Mitre">
            <CompoundText Name="CMPTXT28">
               <TextSegment Name="TEXTSTR29" FontSize="1600" DirtyInfo="true" FontName="Times New Roman" ForegroundColor="white" FontWeight="Bold" FontStyle="Plain" Text="Stock Information" FontSpacing="Normal"/>
            </CompoundText>
         </Graphics>
         <Graphics Name="RECT61" GraphicsText="" DirtyInfo="true" InternalLineWidth="1" Height="89" XPosition="12" VerticalMargin="19" Bevel="None" GraphicsFontColor="" GraphicsFontSpacing="Ultradense" ScrollbarWidth="16" GraphicsFontStyle="0" HorizontalMargin="8" Width="283" GraphicsFontSize="0" GraphicsFontWeight="Ultralight" YPosition="41" StartPromptOffset="8" GraphicsType="Rectangle" BackColor="gray28" GraphicsFontColorCode="0" HorizontalObjectOffset="16" GraphicsFontName="" JoinStyle="Bevel"/>
      </Canvas>
      <Canvas Name="CV_HELP" ViewportHeight="215" ViewportXPosition="50" WindowName="WIN_ORDER" Height="324" DirtyInfo="true" Visible="false" ViewportYPosition="30" Width="360" ViewportWidth="270" CanvasType="Stacked" RaiseOnEnter="true" BackColor="NewCanvas" ViewportXPositionOnCanvas="0" DisplayViewport="false" ViewportYPositionOnCanvas="0">
         <Graphics Name="RECT62" GraphicsText="" DirtyInfo="true" InternalLineWidth="1" Height="123" XPosition="20" VerticalMargin="19" Bevel="None" GraphicsFontColor="" GraphicsFontSpacing="Ultradense" ScrollbarWidth="16" GraphicsFontStyle="0" HorizontalMargin="8" Width="192" GraphicsFontSize="0" GraphicsFontWeight="Ultralight" YPosition="28" StartPromptOffset="8" GraphicsType="Rectangle" BackColor="gray28" GraphicsFontColorCode="0" HorizontalObjectOffset="16" GraphicsFontName="" JoinStyle="Bevel"/>
         <Graphics Name="TEXT99" GraphicsText="The Orders Form lets you insert, update,&amp;#10;delete and query orders for a customer.&amp;#10;The Orders section (top) lets you display or &amp;#10;define the order. The Items section (bottom)&amp;#10;lets you display or define the lineitems for &amp;#10;the order. The Stock section shows the &amp;#10;existing stockfor the product of the current &amp;#10;lineitem. (Click on the Stock button to see &amp;#10;the stock) You can use the Record menu &amp;#10;for insertingand deleting records. " VerticalOrigin="Top" InternalLineWidth="0" Height="9" VerticalMargin="14" GraphicsFontColor="black" GraphicsFontSpacing="Normal" ForegroundColor="black" FixedBoundingBox="false" Width="2" InternalRotationAngle="0" HorizontalJustification="Left" GraphicsFontSize="800" GraphicsFontWeight="Bold" StartPromptOffset="5" CustomSpacing="0" FillPattern="none" GraphicsFontColorCode="0" FontScaleable="false" HorizontalObjectOffset="9" EdgeBackColor="white" LineSpacing="Single" WrapText="true" CapStyle="Butt" DirtyInfo="true" XPosition="41" Bevel="None" ScrollbarWidth="9" GraphicsFontStyle="0" HorizontalMargin="5" BoundingBoxScalable="true" DashStyle="Solid" EdgePattern="none" YPosition="38" GraphicsType="Text" BackColor="gray" VerticalJustification="Top" EdgeForegroundColor="black" GraphicsFontName="Arial" LanguageDirection="Default" HorizontalOrigin="Left" JoinStyle="Bevel">
            <CompoundText Name="CMPTXT100">
               <TextSegment Name="TEXTSTR101" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="The Orders Form lets you insert, update,&amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT102">
               <TextSegment Name="TEXTSTR103" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="delete and query orders for a customer.&amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT104">
               <TextSegment Name="TEXTSTR105" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="The Orders section (top) lets you display or &amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT106">
               <TextSegment Name="TEXTSTR107" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="define the order. The Items section (bottom)&amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT108">
               <TextSegment Name="TEXTSTR109" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="lets you display or define the lineitems for &amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT110">
               <TextSegment Name="TEXTSTR111" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="the order. The Stock section shows the &amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT112">
               <TextSegment Name="TEXTSTR113" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="existing stockfor the product of the current &amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT114">
               <TextSegment Name="TEXTSTR115" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="lineitem. (Click on the Stock button to see &amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT116">
               <TextSegment Name="TEXTSTR117" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="the stock) You can use the Record menu &amp;#10;" FontSpacing="Normal"/>
            </CompoundText>
            <CompoundText Name="CMPTXT118">
               <TextSegment Name="TEXTSTR119" FontSize="800" DirtyInfo="true" FontName="Arial" ForegroundColor="black" FontWeight="Bold" FontStyle="Plain" Text="for insertingand deleting records. " FontSpacing="Normal"/>
            </CompoundText>
         </Graphics>
         <Graphics Name="TEXT126" GraphicsText="Help Information" VerticalOrigin="Top" InternalLineWidth="0" Height="1" VerticalMargin="14" GraphicsFontColor="white" GraphicsFontSpacing="Normal" ForegroundColor="black" FixedBoundingBox="false" Width="1" InternalRotationAngle="0" HorizontalJustification="Left" GraphicsFontSize="1800" GraphicsFontWeight="Bold" StartPromptOffset="5" CustomSpacing="0" FillPattern="none" GraphicsFontColorCode="1" FontScaleable="false" HorizontalObjectOffset="9" EdgeBackColor="white" LineSpacing="Single" WrapText="true" CapStyle="Butt" DirtyInfo="true" XPosition="63" Bevel="None" ScrollbarWidth="9" GraphicsFontStyle="3" HorizontalMargin="5" BoundingBoxScalable="true" DashStyle="Solid" EdgePattern="none" YPosition="6" GraphicsType="Text" BackColor="gray" VerticalJustification="Top" EdgeForegroundColor="black" GraphicsFontName="MS Sans Serif" LanguageDirection="Default" HorizontalOrigin="Left" JoinStyle="Bevel">
            <CompoundText Name="CMPTXT127">
               <TextSegment Name="TEXTSTR128" FontSize="1800" DirtyInfo="true" FontName="MS Sans Serif" ForegroundColor="white" FontWeight="Bold" FontStyle="Underline" Text="Help Information" FontSpacing="Normal"/>
            </CompoundText>
         </Graphics>
      </Canvas>
      <Canvas Name="TOOLBAR" ViewportHeight="324" BackColor="NewCanvas" DirtyInfo="true" Height="32" WindowName="WIN_ORDER" Width="455" ViewportWidth="360" CanvasType="Horizontal Toolbar"/>
      <LOV Name="PRODUCTS_LOV" RecordGroupName="LOV12" Height="250" XPosition="30" Width="200" YPosition="30" Title="Products">
         <LOVColumnMapping Name="ID" ReturnItem="Items.PRODUCT_ID" DisplayWidth="25" Title="Id"/>
         <LOVColumnMapping Name="NAME" DisplayWidth="230" Title="Name"/>
      </LOV>
      <ProgramUnit Name="CHECK_PACKAGE_FAILURE" ProgramUnitType="Procedure" ProgramUnitText="Procedure Check_Package_Failure IS&amp;#10;BEGIN&amp;#10;  IF NOT ( Form_Success ) THEN&amp;#10;    RAISE Form_Trigger_Failure;&amp;#10;  END IF;&amp;#10;END;"/>
      <ProgramUnit Name="QUERY_MASTER_DETAILS" ProgramUnitType="Procedure" ProgramUnitText="PROCEDURE Query_Master_Details(rel_id Relation,detail VARCHAR2) IS&amp;#10;  oldmsg VARCHAR2(2);  -- Old Message Level Setting&amp;#10;  reldef VARCHAR2(5);  -- Relation Deferred Setting&amp;#10;BEGIN&amp;#10;  --&amp;#10;  -- Initialize Local Variable(s)&amp;#10;  --&amp;#10;  reldef := Get_Relation_Property(rel_id, DEFERRED_COORDINATION);&amp;#10;  oldmsg := :System.Message_Level;&amp;#10;  --&amp;#10;  -- If NOT Deferred, Goto detail and execute the query.&amp;#10;  --&amp;#10;  IF reldef = 'FALSE' THEN&amp;#10;    Go_Block(detail);&amp;#10;    Check_Package_Failure;&amp;#10;    :System.Message_Level := '10';&amp;#10;    Execute_Query;&amp;#10;    :System.Message_Level := oldmsg;&amp;#10;  ELSE&amp;#10;    --&amp;#10;    -- Relation is deferred, mark the detail block as un-coordinated&amp;#10;    --&amp;#10;    Set_Block_Property(detail, COORDINATION_STATUS, NON_COORDINATED);&amp;#10;  END IF;&amp;#10;&amp;#10;EXCEPTION&amp;#10;    WHEN Form_Trigger_Failure THEN&amp;#10;      :System.Message_Level := oldmsg;&amp;#10;      RAISE;&amp;#10;END Query_Master_Details;&amp;#10;"/>
      <ProgramUnit Name="CLEAR_ALL_MASTER_DETAILS" ProgramUnitType="Procedure" ProgramUnitText="PROCEDURE Clear_All_Master_Details IS&amp;#10;  mastblk  VARCHAR2(30);  -- Initial Master Block Cusing Coord&amp;#10;  coordop  VARCHAR2(30);  -- Operation Causing the Coord&amp;#10;  trigblk  VARCHAR2(30);  -- Cur Block On-Clear-Details Fires On&amp;#10;  startitm VARCHAR2(61);  -- Item in which cursor started&amp;#10;  frmstat  VARCHAR2(15);  -- Form Status&amp;#10;  curblk   VARCHAR2(30);  -- Current Block&amp;#10;  currel   VARCHAR2(30);  -- Current Relation&amp;#10;  curdtl   VARCHAR2(30);  -- Current Detail Block&amp;#10;&amp;#10;  FUNCTION First_Changed_Block_Below(Master VARCHAR2)&amp;#10;  RETURN VARCHAR2 IS&amp;#10;    curblk VARCHAR2(30);  -- Current Block&amp;#10;    currel VARCHAR2(30);  -- Current Relation&amp;#10;    retblk VARCHAR2(30);  -- Return Block&amp;#10;  BEGIN&amp;#10;    --&amp;#10;    -- Initialize Local Vars&amp;#10;    --&amp;#10;    curblk := Master;&amp;#10;    currel := Get_Block_Property(curblk,  FIRST_MASTER_RELATION);&amp;#10;    --&amp;#10;    -- While there exists another relation for this block&amp;#10;    --&amp;#10;    WHILE currel IS NOT NULL LOOP&amp;#10;      --&amp;#10;      -- Get the name of the detail block&amp;#10;      --&amp;#10;      curblk := Get_Relation_Property(currel, DETAIL_NAME);&amp;#10;      --&amp;#10;      -- If this block has changes, return its name&amp;#10;      --&amp;#10;      IF ( Get_Block_Property(curblk, STATUS) IN('CHANGED','INSERT') ) THEN&amp;#10;        RETURN curblk;&amp;#10;      ELSE&amp;#10;        --&amp;#10;        -- No changes, recursively look for changed blocks below&amp;#10;        --&amp;#10;        retblk := First_Changed_Block_Below(curblk);&amp;#10;        --&amp;#10;        -- If some block below is changed, return its name&amp;#10;        --&amp;#10;        IF retblk IS NOT NULL THEN&amp;#10;          RETURN retblk;&amp;#10;        ELSE&amp;#10;          --&amp;#10;          -- Consider the next relation&amp;#10;          --&amp;#10;          currel := Get_Relation_Property(currel, NEXT_MASTER_RELATION);&amp;#10;        END IF;&amp;#10;      END IF;&amp;#10;    END LOOP;&amp;#10;&amp;#10;    --&amp;#10;    -- No changed blocks were found&amp;#10;    --&amp;#10;    RETURN NULL;&amp;#10;  END First_Changed_Block_Below;&amp;#10;&amp;#10;BEGIN&amp;#10;  --&amp;#10;  -- Init Local Vars&amp;#10;  --&amp;#10;  mastblk  := :System.Master_Block;&amp;#10;  coordop  := :System.Coordination_Operation;&amp;#10;  trigblk  := :System.Trigger_Block;&amp;#10;  startitm := :System.Trigger_Item;&amp;#10;  frmstat  := :System.Form_Status;&amp;#10;&amp;#10;  --&amp;#10;  -- If the coordination operation is anything but CLEAR_RECORD or&amp;#10;  -- SYNCHRONIZE_BLOCKS, then continue checking.&amp;#10;  --&amp;#10;  IF coordop NOT IN ('CLEAR_RECORD', 'SYNCHRONIZE_BLOCKS') THEN&amp;#10;    --&amp;#10;    -- If we're processing the driving master block...&amp;#10;    --&amp;#10;    IF mastblk = trigblk THEN&amp;#10;      --&amp;#10;      -- If something in the form is changed, find the&amp;#10;      -- first changed block below the master&amp;#10;      --&amp;#10;      IF frmstat = 'CHANGED' THEN&amp;#10;        curblk := First_Changed_Block_Below(mastblk);&amp;#10;        --&amp;#10;        -- If we find a changed block below, go there&amp;#10;        -- and Ask to commit the changes.&amp;#10;        --&amp;#10;        IF curblk IS NOT NULL THEN&amp;#10;          Go_Block(curblk);&amp;#10;          Check_Package_Failure;&amp;#10;          Clear_Block(ASK_COMMIT);&amp;#10;          --&amp;#10;          -- If user cancels commit dialog, raise error&amp;#10;          --&amp;#10;          IF NOT ( :System.Form_Status = 'QUERY'&amp;#10;                   OR :System.Block_Status = 'NEW' ) THEN&amp;#10;            RAISE Form_Trigger_Failure;&amp;#10;          END IF;&amp;#10;        END IF;&amp;#10;      END IF;&amp;#10;    END IF;&amp;#10;  END IF;&amp;#10;&amp;#10;  --&amp;#10;  -- Clear all the detail blocks for this master without&amp;#10;  -- any further asking to commit.&amp;#10;  --&amp;#10;  currel := Get_Block_Property(trigblk, FIRST_MASTER_RELATION);&amp;#10;  WHILE currel IS NOT NULL LOOP&amp;#10;    curdtl := Get_Relation_Property(currel, DETAIL_NAME);&amp;#10;    IF Get_Block_Property(curdtl, STATUS) &lt;> 'NEW'  THEN&amp;#10;      Go_Block(curdtl);&amp;#10;      Check_Package_Failure;&amp;#10;      Clear_Block(NO_VALIDATE);&amp;#10;      IF :System.Block_Status &lt;> 'NEW' THEN&amp;#10;        RAISE Form_Trigger_Failure;&amp;#10;      END IF;&amp;#10;    END IF;&amp;#10;    currel := Get_Relation_Property(currel, NEXT_MASTER_RELATION);&amp;#10;  END LOOP;&amp;#10;&amp;#10;  --&amp;#10;  -- Put cursor back where it started&amp;#10;  --&amp;#10;  IF :System.Cursor_Item &lt;> startitm THEN&amp;#10;    Go_Item(startitm);&amp;#10;    Check_Package_Failure;&amp;#10;  END IF;&amp;#10;&amp;#10;EXCEPTION&amp;#10;  WHEN Form_Trigger_Failure THEN&amp;#10;    IF :System.Cursor_Item &lt;> startitm THEN&amp;#10;      Go_Item(startitm);&amp;#10;    END IF;&amp;#10;    RAISE;&amp;#10;&amp;#10;END Clear_All_Master_Details;&amp;#10;"/>
      <ProgramUnit Name="CHECK_WINDOW_SIZE" ProgramUnitType="Procedure" ProgramUnitText="PROCEDURE check_window_size( p_window IN VARCHAR2 )&amp;#10;IS&amp;#10;	v_window_max_width	NUMBER;&amp;#10;	v_window_max_height	NUMBER;&amp;#10;BEGIN&amp;#10;	v_window_max_width := NAME_IN('GLOBAL.width_' || p_window );&amp;#10;	v_window_max_height := NAME_IN('GLOBAL.height_' || p_window );&amp;#10;	IF v_window_max_width &lt; TO_NUMBER( GET_WINDOW_PROPERTY(p_window, WIDTH) )&amp;#10;	THEN&amp;#10;		SET_WINDOW_PROPERTY(p_window, WIDTH, v_window_max_width );&amp;#10;	END IF;&amp;#10;	IF v_window_max_height &lt; TO_NUMBER( GET_WINDOW_PROPERTY(p_window, HEIGHT) )&amp;#10;	THEN&amp;#10;		SET_WINDOW_PROPERTY(p_window, HEIGHT, v_window_max_height );&amp;#10;	END IF;&amp;#10;END check_window_size;"/>
      <ProgramUnit Name="DATE_CHOOSEN" ParentType="23" ParentName="CALENDAR" SubclassObjectGroup="true" ParentModule="FORM_BUILDER_II" ProgramUnitType="Procedure" ProgramUnitText="PROCEDURE date_choosen IS&amp;#10;  x1 varchar2(2000);&amp;#10;  x2 varchar2(2000);&amp;#10;BEGIN&amp;#10;	 x1 := date_lov.current_lov_date;&amp;#10;	 x2 := date_lov.date_lov_return_item;&amp;#10;   copy(to_char(date_lov.current_lov_date,'dd-mon-yyyy'), date_lov.date_lov_return_item);&amp;#10;   go_item(date_lov.date_lov_return_item);&amp;#10;   if date_lov.lov_auto_skip = TRUE then&amp;#10;      next_item;&amp;#10;   end if;&amp;#10;END;" ParentFilename="Form_Builder_II.olb" ParentModuleType="25"/>
      <PropertyClass Name="DATE_BUTTON_CLASS" ParentType="23" ParentName="CALENDAR" SubclassObjectGroup="true" ParentModule="FORM_BUILDER_II" ParentFilename="Form_Builder_II.olb" ParentModuleType="25"/>
      <RecordGroup Name="LOV12" RecordGroupFetchSize="0" RecordGroupQuery="Select id, name from s_product order by name">
         <RecordGroupColumn Name="ID" MaximumLength="23" ColumnDataType="Number"/>
         <RecordGroupColumn Name="NAME" MaximumLength="50" ColumnDataType="Character"/>
      </RecordGroup>
      <Trigger Name="ON-CLEAR-DETAILS" TriggerText="--&amp;#10;-- Begin default relation program section&amp;#10;--&amp;#10;BEGIN&amp;#10;  Clear_All_Master_Details;&amp;#10;END;&amp;#10;--&amp;#10;-- End default relation program section&amp;#10;--&amp;#10;"/>
      <Trigger Name="WHEN-NEW-FORM-INSTANCE" TriggerText="Set_Application_Property(MENU_BUFFERING, 'false');&amp;#10;EXECUTE_QUERY;&amp;#10;:GLOBAL.width_win_order := GET_WINDOW_PROPERTY('win_order', WIDTH);&amp;#10;:GLOBAL.height_win_order := GET_WINDOW_PROPERTY('win_order', HEIGHT);&amp;#10;:GLOBAL.width_win_inventory := GET_WINDOW_PROPERTY('win_inventory', WIDTH);&amp;#10;:GLOBAL.height_win_inventory := GET_WINDOW_PROPERTY('win_inventory', HEIGHT);&amp;#10;"/>
      <Trigger Name="PRE-FORM" TriggerText="&amp;#10;break;DEFAULT_VALUE('','GLOBAL.customer_id');&amp;#10;"/>
      <Trigger Name="KEY-DUPREC" TriggerText="CREATE_RECORD;&amp;#10;DUPLICATE_RECORD;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
      <Trigger Name="KEY-EXIT" TriggerText="SET_ALERT_PROPERTY('Question_Alert',ALERT_MESSAGE_TEXT, &amp;#10;                   'Do you really want to leave the form?');&amp;#10;IF SHOW_ALERT('Question_Alert')=ALERT_BUTTON1 THEN&amp;#10;  EXIT_FORM;&amp;#10;END IF;" DirtyInfo="true" DisplayInKeyboardHelp="true"/>
      <Trigger Name="WHEN-WINDOW-CLOSED" TriggerText="IF :SYSTEM.EVENT_WINDOW = 'WIN_ORDER'&amp;#10;THEN&amp;#10;	DO_KEY('exit_form');&amp;#10;ELSIF :SYSTEM.EVENT_WINDOW = 'WIN_INVENTORY'&amp;#10;       THEN&amp;#10;	GO_BLOCK('Orders');&amp;#10;END IF;"/>
      <Trigger Name="WHEN-FORM-NAVIGATE" TriggerText="go_block('Orders');&amp;#10;EXECUTE_QUERY;&amp;#10;:GLOBAL.width_win_order := GET_WINDOW_PROPERTY('win_order', WIDTH);&amp;#10;:GLOBAL.height_win_order := GET_WINDOW_PROPERTY('win_order', HEIGHT);&amp;#10;:GLOBAL.width_win_inventory := GET_WINDOW_PROPERTY('win_inventory', WIDTH);&amp;#10;:GLOBAL.height_win_inventory := GET_WINDOW_PROPERTY('win_inventory', HEIGHT);" DirtyInfo="true"/>
      <VisualAttribute Name="DATE_NORMAL_VA" ParentType="23" ParentName="CALENDAR" SubclassObjectGroup="true" ParentModule="FORM_BUILDER_II" ParentFilename="Form_Builder_II.olb" ParentModuleType="25"/>
      <VisualAttribute Name="DATE_WEEKEND_VA" ParentType="23" ParentName="CALENDAR" SubclassObjectGroup="true" ParentModule="FORM_BUILDER_II" ParentFilename="Form_Builder_II.olb" ParentModuleType="25"/>
      <VisualAttribute Name="DATE_SELECTED_VA" ParentType="23" ParentName="CALENDAR" SubclassObjectGroup="true" ParentModule="FORM_BUILDER_II" ParentFilename="Form_Builder_II.olb" ParentModuleType="25"/>
      <VisualAttribute Name="CURRENT_RECORD" BackColor="darkcyan" ForegroundColor="white"/>
      <Window Name="DATE_LOV_WINDOW" ParentType="23" DirtyInfo="true" ParentName="CALENDAR" SubclassObjectGroup="true" ParentModule="FORM_BUILDER_II" InheritMenu="false" ParentFilename="Form_Builder_II.olb" ParentModuleType="25"/>
      <Window Name="WIN_ORDER" DirtyInfo="true" Height="340" Width="455" InheritMenu="true" Title="Orders and Items" PrimaryCanvas=""/>
      <Window Name="WIN_INVENTORY" DirtyInfo="true" Height="180" XPosition="60" HideOnExit="true" Width="312" YPosition="60" Title="Stock Levels"/>
      <ObjectGroup Name="CALENDAR" ParentType="23" ParentName="CALENDAR" ParentModule="FORM_BUILDER_II" ParentFilename="Form_Builder_II.olb" ParentModuleType="25">
         <ObjectGroupChild Name="DATE_CHOOSEN" SubclassSubObject="true" Type="ProgramUnit"/>
         <ObjectGroupChild Name="DATE_BUTTON_CLASS" SubclassSubObject="true" Type="PropertyClass"/>
         <ObjectGroupChild Name="DATE_NORMAL_VA" SubclassSubObject="true" Type="VisualAttribute"/>
         <ObjectGroupChild Name="DATE_WEEKEND_VA" SubclassSubObject="true" Type="VisualAttribute"/>
         <ObjectGroupChild Name="DATE_SELECTED_VA" SubclassSubObject="true" Type="VisualAttribute"/>
         <ObjectGroupChild Name="DATE_LOV_WINDOW" SubclassSubObject="true" Type="Window"/>
      </ObjectGroup>
      <ObjectGroup Name="STOCK_OBJECTS" ObjectGroupType="22">
         <ObjectGroupChild Name="Inventories" Type="Block"/>
         <ObjectGroupChild Name="CV_INVENTORY" Type="Canvas"/>
         <ObjectGroupChild Name="WIN_INVENTORY" Type="Window"/>
      </ObjectGroup>
   </FormModule>
</Module>

