# 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.

DEFINE donations DYNAMIC ARRAY OF RECORD
  p_date  DATE,
  p_amount MONEY,
  p_reason VARCHAR(250)
END RECORD

FUNCTION fill()
  DEFINE i INT
  FOR i=1 TO 5
    LET donations[i].p_date   = TODAY -10 +i
    LET donations[i].p_amount = i+1
  END FOR
END FUNCTION

DIALOG donations()
    INPUT ARRAY donations FROM donations.*
      AFTER FIELD p_amount
        IF donations[arr_curr()].p_amount<2.0 THEN
          ERROR "must be at least 2 dollar:-)"
          NEXT FIELD CURRENT
        END IF
      AFTER ROW
        IF arr_curr()<=arr_count() THEN
          DISPLAY "AFTER ROW donations:check row and save to database"
        END IF
    END INPUT
END DIALOG

FUNCTION MAIN() -- This MAIN is for testing only.
  OPEN FORM f FROM "donations"
  DISPLAY FORM f
  CALL FILL()
  DIALOG
    SUBDIALOG donations
    ON ACTION ACCEPT 
      ACCEPT DIALOG
  END DIALOG
END FUNCTION