Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #LRNG_FORM)
* Includes
Define_Com Class(#LREXTLB3) Name(#main)
Define_Com Class(#LREXTLB3) Name(#box1)
Define_Com Class(#LREXTLB3) Name(#box2)

* Work Objects
Define_Com Class(#PRIM_ALPH) Name(#actionValue)
Define_Com Class(#PRIM_alph) Name(#dateDate)
Define_Com Class(#PRIM_ALPH) Name(#statusText)

* GroupBy
Group_By Name(#orderData) Fields(#LTCOHDRNO #LTCOHDRTL #LTCOHDRIT #LTCOHDRPR #LTCOHDRCN #LTCOHDRDT #LTCOHDROH #LTCOHDRPD #LTCOHDRDD)

* ===============================================================
*  LRELT002 - Mainline
* ===============================================================
Mthroutine Name(HandleRequest) Options(*REDEFINE)

* Set The Layout Folder
#main.layoutPath := '<Your Longrange Folder>/layouts/'
#box1.layoutPath := '<Your Longrange Folder>/layouts/'
#box2.layoutPath := '<Your Longrange Folder>/layouts/'

* Load all the layouts
#main.loadLayout Layout('datascrn.txt')
#box1.loadLayout Layout('boxfield.txt')
#box2.loadLayout Layout('boxfield2.txt')


If (#COM_OWNER.RequestACTION.Contains( '_' ))
#actionValue := (#COM_OWNER.RequestACTION).Substring( 1 ((#COM_OWNER.RequestACTION).PositionOf( '_' ) - 1) )
Else
#actionValue := #COM_OWNER.RequestACTION
Endif

Case Of_Field(#actionValue)


When Value_Is(= actionCustomer)


Otherwise /* Default */

#main.inflate

#box1.inflate Parent('/Form')
#box2.inflate Parent('/Form')

Endcase
Endroutine

End_Com
