Trigger Key clearform

Question

Hi everybody,
I have a form created with Forms 6i where I have a field called user_id, but the user doesn't have to insert a user_id because I bring that value automatically with a consecutive number. I added a bottom to this form where the user click to save all the information and to clear the form to continue with the next register. My problem is that every time the form clears up, I can't make forms to bring my consecutive user_id. How can I make it work after I clear the form?

Answer 1

Okay. Then the following info should work:
Leave WNFI trigger with this logic:
begin
select to_number(max(substr(userid,4))) + 1
into :global.userid
from users where substr(userid,1,2) = to_char(sysdate,'YY');
end;
In your WNBI trigger you could add back in the logic but append the DD-00 info:
:users.userid := to_char(sysdate, 'YY') || '-' || lpad(:GLOBAL.USERID,4,0);
Then you could change you WBP trigger to look like:
COMMIT_FORM;
MESSAGE('NEW RECORD INSERTED');
MESSAGE('NEW RECORD INSERTED');
:global.userid := :global.userid + 1;
CLEAR_FORM;
:USERS.USERID := to_char(sysdate, 'YY') || '-' || lpad(:GLOBAL.USERID,4,0);
The only thing I can think of is that as soon as the form is cleared and the :users.userid is populated in the WBP trigger then the block will be marked as CHANGED and if the user tries to exit the form it is going to ask them if they want to save their changes. In order to avoid this, you may want to display the :USERS.USERID on the canvas as a non-database item which would require you to create another item in your block. Something like :USERS.DISPLAY_USERID. For the properties you would mark this as NO for a database item. Then you would have to modify you WBP trigger to something like:
:USERS.USERID := :USERS.DISPLAY_USERID;
COMMIT_FORM;
MESSAGE('NEW RECORD INSERTED');
MESSAGE('NEW RECORD INSERTED');
:global.userid := :global.userid + 1;
CLEAR_FORM;
:USERS.DISPLAY_USERID := to_char(sysdate, 'YY') || '-' || lpad(:GLOBAL.USERID,4,0);