Procedure

QuickOrderSave

Module

uOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure QuickOrderSave;

Calls Hierarchy


QuickOrderSave
 └SaveAsQuickOrder
   ├TResponses.OrderCRC
   ├TfrmBase508Form.Create
   │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ ├UnfocusableControlEnter
   │ └AdjustControls
   │   ├TfrmBase508Form.ModifyUnfocusableControl
   │   └..(rec)..
   ├NameOfDGroup
   │ └LoadDGroupMap
   ├GetQuickName
   ├TResponses.GetOrderText
   │ ├TResponses.NextInstance
   │ ├TResponses.FindResponseByName
   │ ├TResponses.FormatResponse
   │ │ └TResponses.FindResponseByIEN
   │ └TResponses.AppendChildren
   │   ├TResponses.FindPromptByIEN
   │   ├TResponses.FindResponseByIEN
   │   └TResponses.FormatResponse...
   ├LoadQuickListForOD
   ├TResponses.SaveQuickOrder
   │ ├PutQuickOrder
   │ │ └SetupORDIALOG
   │ └TResponses.OrderCRC
   └SaveQuickListForOD

Called-By Hierarchy


                   QuickOrderSave
TfrmOrders.mnuOptSaveQuickClick┘ 

Calls

Name Declaration Comments
SaveAsQuickOrder function SaveAsQuickOrder(ResponseSet: TResponses): Boolean; -

Called-By

Name Declaration Comments
TfrmOrders.mnuOptSaveQuickClick procedure mnuOptSaveQuickClick(Sender: TObject); -


Source

1940  procedure QuickOrderSave;
1941  begin
1942    // would be better to prompt for dialog
1943    if uOrderDialog = nil then
1944    begin
1945      InfoBox(TX_NO_SAVE_QO, TC_NO_SAVE_QO, MB_OK);
1946      Exit;
1947    end;
1948    with uOrderDialog do
1949    begin
1950      if not AllowQuickOrder then
1951      begin
1952        InfoBox(TX_NO_QUICK, TC_NO_QUICK, MB_OK);
1953        Exit;
1954      end;
1955      if Responses.OrderContainsObjects then
1956      begin
1957        InfoBox(TX_CANT_SAVE_QO, TC_NO_QUICK, MB_ICONERROR or MB_OK);
1958        Exit;
1959      end;
1960      SaveAsQuickOrder(Responses);
1961    end;
1962  end;