< pre >
code
< /pre >
for more readability on UT message.DO CASE CASE THISFORM.pgfCREdetails.ACTIVEPAGE=1 * 1° insert RETURN IF THISFORM.message_question('Insert a new rent layer?')#6 RETURN ENDIF * 2° if not error remove 1° and insert RETURN here IF THISFORM.layercount_val=5 &&archive oldest +insert new layer THISFORM.auto_archive ELSE && insert new layer THISFORM.insert_layer ENDIF * .... ENDCASEI am not in a position to writing more.