Procedure

CheckForChangeFromLCtoWCOnAccept

Module

rODLab

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure CheckForChangeFromLCtoWCOnAccept(Dest: TStrings; ALocation: integer; AStartDate, ACollType, ASchedule, ADuration: string);

Calls Hierarchy


CheckForChangeFromLCtoWCOnAccept
 └FormatLCtoWCDisplayTextOnAccept
   └GetLCtoWCInstructions

Called-By Hierarchy


CheckForChangeFromLCtoWCOnAccept
TfrmODLab.DisplayChangedOrders┘ 
          TfrmODLab.Validate┘   

Calls

Name Declaration Comments
FormatLCtoWCDisplayTextOnAccept procedure FormatLCtoWCDisplayTextOnAccept(InputList, OutputList: TStrings); -

Called-By

Name Declaration Comments
TfrmODLab.DisplayChangedOrders procedure DisplayChangedOrders(ACollType: string); -


Source

225   procedure CheckForChangeFromLCtoWCOnAccept(Dest: TStrings; ALocation: integer; AStartDate, ACollType, ASchedule, ADuration: string);
226   var
227     AList: TStringList;
228   begin
229     AList := TStringList.Create;
230     try
231       CallV('ORCDLR2 CHECK ONE LC TO WC', [ALocation, '', AStartDate, ACollType, ASchedule, ADuration]);
232       FastAssign(RPCBrokerV.Results, AList);
233       FormatLCtoWCDisplayTextOnAccept(AList, Dest);
234     finally
235       AList.Free;
236     end;
237   end;