who can tell me, 32 choice is ? / how can execute "press "esc" key in session". need return to choice field,
I find the development reference book, the book display as follow
01 start.set 23 print.data 45 chm
02 first.view 24 create.job 46 start.query
03 next.view 25 change.frm 48 user.0
04 prev.view 26 first.frm 49 user.1
05 last.view 27 next.frm 50 user.2
06 def.find 28 prev.frm 51 user.3
07 find.data 29 last.frm 52 user.4
08 first.set 30 make.resident 53 user.5
09 next.set 31 resize.frm 54 user.6
10 next.halfset 33 options 55 user.7
11 prev.set 34 zoom 56 user.8
12 prev.halfset 35 interrupt 57 user.9
13 last.set 36 end.program 60 ask.helpinfo
14 add.set 37 abort.program 62 calculator
15 update.db 38 cont.process 63 calendar
16 dupl.occur 39 text.manager 64 bms
17 recover.set 40 run.job 65 screendump
18 mark.delete 41 global.delete 66 to.shell
19 mark.occur 42 global.copy 67 set.tabstops
20 change.order 43 save.defaults 71 field.help
21 modify.set 44 get.defaults 72 help.index
22 restart.input

No Choice_option Description Before On After

01 start.set Add/start a new group in main table 1234 ---4 1234
02 first.view View first group of main table 1234 ---4 1234
03 next.view View next group of main table 1234 ---4 1234
04 prev.view View previous group of main table 1234 ---4 1234
05 last.view View last group of main table 1234 ---4 1234
06 def.find Find a specific record on key 1234 ---4 1234
07 find.data Start the set from the current data in the program script. Use: after import of data in a zoom process. (refresh) 1234 ---4 1234
08 first.set View first set of main table 1234 ---4 1234
09 next.set First execute an update.db and then view next set of main table 1234 ---4 1234
10 display.set Open read-only details 1234 ---4 1234
11 prev.set First execute an update.db and then view previous set of main table 1234 ---4 1234
12 rotate.curr Show amounts in other currency (on.choice subsections are available for this command only if no currencies are set) 1234 1234 1234
13 last.set View last set of main table 1234 ---4 1234
14 add.set Insert a new record 1234 ---4 1234
15 update.db First test consistency of data and then (re)write record or set (save) 1234 ---4 1234
16 dupl.occur Copy the record to a new one 1234 ---4 1234
17 recover.set Undo modifications which are not yet written to the database 1234 ---4 1234
18 mark.delete Delete selected records 1234 ---4 1234
19 mark.occur Select a record on the screen 1234 ---4 1234
20 change.order Change the search key 1234 ---4 1234
21 modify.set Change a record stored in the database 1234 ---- 1234
23 print.data Make a report with the current data on the form 1234 1234 1234
24 create.job Add session in job 1234 ---- 1234
25 form.tab.change Go to another form in session 1234 ---- 1234
26 first.frm Go to first form 1234 ---- 1234
27 next.frm Go to next form 1234 ---- 1234
28 prev.frm Go to previous form 1234 ---- 1234
29 last.frm Go to last form 1234 ---- 1234
31 resize.frm Resize the current form 1234 1234 1234
33 cmd.options Show available form options ---- ---- ----
34 zoom Zoom to another session/menu 1234 ---- 1234
35 interrupt Do an action each time interval 1234 1234 1234
36 end.program End execution of the session; the main table will be updated 1234 ---- ----
37 abort.program Cancel execution of the session. The main table is not updated 1234 ---- ----
39 text.manager Start the text manager 1234 ---- 1234
40 run.job Run job of session 1234 1234 1234
41 global.delete Delete range of records 1234 1234 1234
42 global.copy Copy range of records 1234 1234 1234
43 save.defaults Save values as defaults 1234 ---- 1234
44 get.defaults Get previous stored defaults 1234 ---- 1234
45 start.chart Chart Manager is started 1234 ---4 1234
46 start.query Start query by form 1234 ---4 1234
60 ask.helpinfo Asks for session help ---- ---- ----
62 calculator Calculator will be started ---- ---- ----
63 calendar Calendar will be started ---- ---- ----
64 bms A broadcast message is received 1234 1234 1234
71 cmd.whats.this Asks for field help ---- ---- ----
72 help.index Asks for the help index ---- ---- ----

The following commands are supported for backward compatibility only. Support is not guaranteed in future versions of the software.

No Choice_option Description Before On After
22 restart.input Restart the input after giving <Esc> during input mode 1234 ---- 1234
38 cont.process Start user defined process 1234 1234 1234
48 user.0 User option 0 1234 1234 1234
49 user.1 User option 1 1234 1234 1234
50 user.2 User option 2 1234 1234 1234
51 user.3 User option 3 1234 1234 1234
52 user.4 User option 4 1234 1234 1234
53 user.5 User option 5 1234 1234 1234
54 user.6 User option 6 1234 1234 1234
55 user.7 User option 7 1234 1234 1234
56 user.8 User option 8 1234 1234 1234
57 user.9 User option 9 1234 1234 1234


:) :) :)

for example

field.tisfc958.rqty:
before.input:
if tisfc958.rdat < first.date then
mess("tisfc9131.6", 1)
execute(????) | need return to choice field
endif

for example

field.tisfc958.rqty:
before.input:
if tisfc958.rdat < first.date then
mess("tisfc9131.6", 1)
execute(????) | need return to choice field
endif

Hello,
why not check.input ??

field.tisfc958.rqty:
before.input:
if tisfc958.rdat < first.date then
mess("tisfc9131.6", 1)
set.input.error("")
endif

Otherwise it's choice.again()

Regards

Hi

Check whether this heps ?, i have used this in some of my sessions.

field.tisfc958.rqty:
before.input:
if tisfc958.rdat < first.date then
mess("tisfc9131.6", 1)
execute(recover.set) | need return to choice field
endif

Thanks & Regards

I plan let the user only modify the record in a period of time( for example, with in the week of) , our have used Choice.again() in the morning, but have problems(cannot choice modify next records, need execute find.data at first), we think to be before modifying, give message, and return to choice field

You could try following:

field.all:
before.input:
if choice = modify.set and tisfc958.rdat < first.date then
attr.input = false
else
attr.input = true
endif

Youp

how to fetch the first record in the database

Thanx

Gurmeet Singh

I don't know exactly what you need, but if you just need to fetch the first record of a table, you simply write:

select <table_name>.*
from <table_name>
as set with 1 rows
selectdo
selectempty
endselect

If you want your session to default to the first record in the database, go to Maintain Sessions and set the 'Start Option' to 'First View' for type 1/2 forms, or First Set for type 3 forms.

how to print current page no with out of total page no
e.g 1/4

Gurmeet Makkar