Lost for solution

[L. McIntosh]

Hello again,

Believe me, I tried several searchs and couldn't find a thread related to my question :).

I have a form that incorporates fields that will have changes made. I have put this script in the 'Can Save Record' event in field rules for records.

'-------------------------------------------------------
'This script checks each record after changes for errors
'-------------------------------------------------------
DIM TEST_YEAR AS N

ON ERROR GOTO check
dbh = db_current()
If db_mode_get(dbh) = 1 .and. pap_rslt-"path_date "" {} then
If year(date()) = year(pap_rslt-"date_acc) then
test_year = year(date())
Else if year(date()-1) = year(pap_rslt-"date_acc) then
test_year = year(date()-1)
End if
If year(pap_rslt-"path_date) "" test_year then
ui_msg_box("ATTENTION!!!","You have entered an invalid date for Pathologist.",16)
ui_msg_box("EDIT PLEASE!","Please correct changes before saving record! Thank You!",64)
fetch_prev(dbh) ---------------------
card_resynch() ---------------------
A_CAN_DO = "F" --------------------- Lines of concern!
End
End if
Select
Case pap_rslt-"cyt1_date "" {}
If year(pap_rslt-"cyt1_date) "" test_year then
ui_msg_box("ATTENTION!!!","You have entered an invalid date for Cytologist#1.",16)
ui_msg_box("EDIT PLEASE!","Please correct changes before saving record! Thank You!",64)
End if
Case pap_rslt-"cyt2_date "" {}
If year(pap_rslt-"cyt2_date) "" test_year then
ui_msg_box("ATTENTION!!!","You have entered an invalid date for Cytologist#2.",16)
ui_msg_box("EDIT PLEASE!","Please correct changes before saving record! Thank You!",64)
End if
Case pap_rslt-"cyt3_date "" {}
If year(pap_rslt-"cyt3_date) "" test_year then
ui_msg_box("ATTENTION!!!","You have entered an invalid date for Cytologist#3.",16)
ui_msg_box("EDIT PLEASE!","Please correct changes before saving record! Thank You!",64)
End if
End Select
End if
End

Check:
err = error_code_get()
msg = error_text_get(err)
ui_msg_box("Error", msg)
RESUME NEXT

It works as far as not saving the any of the data, but after encountering the A_Can_Do = "F" , it will not remain on the same record? Is there any way I can get it to stay with the original record for corrections? As you can see, I have tried fetching, but that doesn't seem to work? The script is attached to the Path_date field in the field rules.

Any help appreciated - Thanks in advance :)

Mac

[Tom Henkel]

RE: Lost for solution

Instead of setting "A_CAN_DO" to a false state, Why not do a sys_send_keys("{esc}"). This will, in effect, cancel the change. We do this a lot, and the system seems to stay on record. After that, do an obj_goto to place yourself back into the namrd field (object) ie:

field: pap_rslt-"path_date
object on form: path_date

then code is
sys_send_keys("{esc"})
obj_goto("path_date")
end

Try this.

Tom

[L. McIntosh]

RE: Lost for solution

Tom

Thank you sir - I shall check this one out. I'm not sure what I did right at this moment, but any idea is truly appreciated :)

Mac

P.S.
wish I had your experience :) and knowledge of programming

[Tom Henkel]

RE: Lost for solution

Mac,

I appreciate your praise, but I'm not sure it is well placed.

I did notice in your code that you are using 2 "ui_msg_box" lines for each message. You can make one box with a couple of lines in it.

ui_msg_box("ATTENTION - PLEASE EDIT!!!","You have entered an invalid date for Cytologist#1."+chr(13)+"Please correct changes before saving record! Thank You!",16)

The chr(13) is a line feed character, giving you a second line in the msg_box. Looks a little cleaner.

Tom

[L. McIntosh]

RE: Lost for solution

Tom,

Thanks again :) I finally noticed this little trick in V6. Wish I new about that a few yrs ago :).

Thanks bunches for your ideas and help Tom :)

Mac