62 lines
1.6 KiB
Plaintext
62 lines
1.6 KiB
Plaintext
# 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
|
|
|