Function

ConsultMessage

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

function ConsultMessage(AnIEN: Integer): string;

Called-By Hierarchy


                              ConsultMessage
                TfrmEditProc.cboProcSelect┤ 
                 TfrmEditProc.InitDialog┘ │ 
                 EditResubmitProcedure┤   │ 
TfrmConsults.mnuActEditResubmitClick┘ │   │ 
 TfrmConsults.cmdEditResubmitClick┘   │   │ 
         TfrmEditProc.cboProcSelect...┘   │ 
                    TfrmODProc.SetupDialog┤ 
                  TfrmODProc.cboProcSelect┤ 
               TfrmODCslt.treServiceChange┤ 
            TfrmODCslt.treServiceKeyDown┘ │ 
                 TfrmODCslt.treServiceExit┤ 
               TfrmODCslt.cboServiceSelect┘ 
               TfrmODCslt.cboServiceExit┘   

Called-By

Name Declaration Comments
TfrmEditProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODCslt.cboServiceSelect procedure cboServiceSelect(Sender: TObject); -
TfrmODProc.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODCslt.treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); -
TfrmODCslt.treServiceExit procedure treServiceExit(Sender: TObject); -


Source

628   function ConsultMessage(AnIEN: Integer): string;
629   begin
630     if AnIEN = uLastOrderedIEN then Result := uLastOrderMsg else
631     begin
632       Result := sCallV('ORWDCN32 ORDRMSG', [AnIEN]);
633       uLastOrderedIEN := AnIEN;
634       uLastOrderMsg := Result;
635     end;
636   end;