If (ll_NumFunds <= 0) Then
SetPointer(oldpointer) //ig20041208 - Added.
//Message Stating that no funds were selected for deletion
Messagebox("Delete Funds", "No funds were selected for deletion.", Information!, OK!) RETURN FAILURE
End If
....
....
....
....
....
if (li_rc = 1) then
//Commit the fund deletions to the database
COMMIT USING SQLCA;
gnv_app.inv_error.of_message("fin7000_process_success", {"Delete Funds"}) //ig20071001 - Added.
else
ROLLBACK USING SQLCA;
gnv_app.inv_error.of_message("fin7000_process_canceled", {"Delete Funds"}) //ig20071001 - Added. return FAILURE
end if
else
//Do not update the database with the fund deletions
ROLLBACK USING SQLCA;
gnv_app.inv_error.of_message("fin7000_process_canceled", {"Delete Funds"}) //ig20071001 - Added.
return FAILURE
end if
RETURN SUCCESS