Versions Compared

Old Version 1

changes.mady.by.user Rieko Saitoh

Saved on

compared with

New Version Current

changes.mady.by.user Rieko Saitoh

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

  1. Your AddSect WebRoutine will handle the initial call from the Begin web page in iiiSecMaint and the call from the Save button' on the AddSect web page itself.
     

...

  1. Create your logic for WebRoutine AddSect based on the following pseudo code:
         CASE of STDRENTRY
         * when called from Begin WebRoutine
         When = N
         Change DEPTMENT to DEPT_IN (value passed in from iiiSecMaint)
         Change SECTION to *null (value is passed in from iiiSecMaint)
         * when Save button clicked
         When = A
         Change DEPTMENT to DEPT_IN (the input value on the web page)
         Insert to Section file
         If Status is *OKAY
         Output message
         Change STDRENTRY to L
         Transfer to WebRoutine iiiSecMaint.Begin
         Endif
         Endcase

...


  1. Your completed RDMLX code should look like the following:
...
  1.      Function Options(*DIRECT)
         Begin_Com Role(*EXTENDS #PRIM_WAM) Layoutweblet('iiilay01')
         Group_
...
  1. By Name(#SECT_DETL)
...
  1.  Fields((
...
  1. #DEPTMENT *hidden)
...
  1.  #SECTION #SECDESC #SECADDR1 #SECADDR2 #SECADDR3 #SECPCODE #SECPHBUS)
         Define Field(#dept_in)
...
  1.  Reffld(#deptment)
         Web_
...
  1. Map For(*BOTH)
...
  1.  Fields((
...
  1. #STDRENTRY *HIDDEN))
...

  1.      WebRoutine Name(ADDSECT)
...
  1.  Desc('
...
  1. ADD SECTION')
         Web_
...
  1. Map For(*BOTH)
...
  1.  Fields(#dept_
...
  1. in #SECT_DETL)
...

  1.      Case Of_Field(#STDRENTRY)
...

  1.      * New button clicked in iiiSecMaint
         When (= N)
         #deptment := #dept_in
         #SECTION := *NULL
         * Add button clicked
         When (= A)
         #deptment := #dept_in
         Insert Fields(#SECT_DETL)
...
  1.  To_File(SECTAB)
...
  1.  Val_Error(*NEXT)
...

  1.      #STDRENTRY :=
...
  1.  *NULL
         If_
...
  1. Status Is(*OKAY)
...

  1.      Message Msgtxt('
...
  1. Section successfully added')
...

  1.      #stdrentry := L
         Transfer Toroutine(#iiiSecMaint.BEGIN)
         Endif
         Endcase
         Endroutine
         End_
...
  1. Com
...

  2. Compile your WAM and open in the Design view. It should look like the following:

    Image Modified
...

  2. If necessary change the Department Code to an input field. Drop an AutoComplete weblet onto the department field value. Set up the weblet properties based on:
     
    Property
    Value
    sourceWamName
    iiiSecMaint
    sourcewrName
    AutoComplete
    listName
    DEPTS
    valueField
    DEPTMENT
...

  1. Note that the AutoComplete weblet is calling the response WebRoutine you created in WAM iiiSecMaint.
...

  2. The Section field should be an input field, change it if necessary.
...

  2. Add a row to the bottom of the table and add a push button with image to the right hand cell. Make the cell right align. Set up the push button properties as shown:
    Property
    Value
    caption
    Save
    left_relative_image
    icons/normal/16/check_mark_16.png
    on_click_wrname
    AddSect
    submitExtraFields

    Field Name: STDRENTRY
...
  1. Literal Value: A
...


  2. Save these changes. Your completed AddSect page should look like the following:

    Image Modified