FRM-40403 A Calling for has.....

Question

Hi guyz,
im facing some strange problem, hope someone give me a suitable answer.
My application is working fine just i attach the another datablock its starts giving problem with an error
FRM-40403: A Calling form has unapplied changes. Save not allowed.
I create some parameters and passing the values below is the parameter code.
declare
plist ParamList;
begin
plist := Create_Parameter_List('INPUT_PARAM');
Add_Parameter(plist, 'empid',TEXT_PARAMETER,:employee.empid);
Add_Parameter(plist, 'emp_name',TEXT_PARAMETER,:employee.emp_name);
Add_Parameter(plist, 'dob',TEXT_PARAMETER,:employee.dob);
CALL_FORM('PORTS',no_HIDE,NO_REPLACE,NO_QUERY_ONLY,plist);
DESTROY_PARAMETER_LIST(plist);
end;
im unable to save the data in form B before it was working fine.
anyone help me why this problem occured? even though i delete the newly added datablock even though not working. help me plz...
Regards

Answer 1

Before calling form b you could check :SYSTEM.FORM_STATUS, if that is changed, the changed have to be applied to DB before callin form b, maybe something like:
IF :SYSTEM.FORM_STATUS='CHANGED' THEN
  IF <Aks use for saving> THEN
    COMMIT_FORM;
    CALL_FORM('FORMB');
  END IF;
ELSE
  CALL_FORM('FORMB');
END IF;