# Property of Four Js*
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
# * Trademark of Four Js Development Tools Europe Ltd
#   in the United States and elsewhere
# 
# Four Js and its suppliers do not warrant or guarantee that these
# samples are accurate and suitable for your purposes. Their inclusion is
# purely for information purposes only.

IMPORT FGL donations
DEFINE fname,last VARCHAR(50)

DEFINE m_details RECORD
  clubmember  INT,
  otherdetail CHAR(50) 
END RECORD

MAIN
  DEFINE i INT
  OPTIONS INPUT WRAP
  FOR i=1 TO 2
  IF i=1 THEN
  OPEN FORM f FROM "Folder_unrolled"
  ELSE
  OPEN FORM f FROM "Folder"
  END IF
  DISPLAY FORM f
  LET fname="Willi"
  CALL donations.fill()
  DIALOG ATTRIBUTES(UNBUFFERED)
    INPUT BY NAME  fname,last ATTRIBUTES(WITHOUT DEFAULTS)
    END INPUT
    SUBDIALOG donations
    INPUT m_details.* FROM details.*
      AFTER FIELD otherdetail
        --just have a uselesse contraint here to check we come thru
        --in case of leaving the folder
        IF m_details.otherdetail<>'o' THEN
          ERROR "otherdetail must be 'o'"
          NEXT FIELD otherdetail
        END IF
      AFTER INPUT
    END INPUT
    ON ACTION accept
      ACCEPT DIALOG
    ON ACTION cancel
      EXIT DIALOG
    AFTER DIALOG
      --do complete database handling here
      DISPLAY "AFTER DIALOG:save customer to database"
      FOR i=1 TO arr_count()
        DISPLAY "eventually save donation row :",i
      END FOR 
      IF FIELD_TOUCHED(details.*) THEN
        DISPLAY "Update detail in the database"
      END IF
  END DIALOG
  CLOSE FORM f
  END FOR
END MAIN