Help with Killfocus event and %code% logic

[Graham Wickens]

Trying to get the killfocus event to work on several variables.

vDateEvent works ... converts vDate to date format

vLocationEvent.. don't allow a blank value in vLocation

vLogEvent creates filename from input variables and saves vLogdata

I cannot see how to get the "OK" & "cancel" to be used with the other codings

getting my conditions muddled somewhere in the %code" section, but cannot see it.

Can anyone please tell me where I am going wrong?

DIM form_name as C
if is_object(topparent.this) then
    form_name = topparent.name()+".this"
else
    form_name = ""
end if
DIM SHARED vDate as D
DIM SHARED vPlaceNo as C = "01"
DIM SHARED vLocation as C
DIM SHARED vLogData as C
DIM SHARED varC_result as C
DELETE expression_result
expression_result = eval("date()",form_name)
vDate = convert_type(expression_result,"D")
DIM vLocation_def as C
vLocation_def = "ke=logging_where,{keylist_build(\"H=.05,1:25\",''+where,left(''+where,25))}{}"
varC_result = ui_dlg_box("Enter Logging",<<%dlg%
{Background=#153+204+255}
{region}
Date:| [%DATE;P=popup.calendar(dtoc(vDate));I=popup.calendar%.16vDate!vDateEvent_*];
Place Number:| [.3vPlaceNo];
Location:| [%@vLocation_def%.40vLocation!vLocationEvent_*];
Log:| [%mw%.40,12vLogData!vLogEvent_*];
{endregion};
{line=1,0};
{region}
<*10OK!OK> <10Cancel!CANCEL>
{endregion};
%dlg%,<<%code%
if a_dlg_button = "OK" .or. a_dlg_button = "CANCEL" then
    'do nothing - the dialog will close
elseif left(a_dlg_button,11) = "vDateEvent_" then
    if a_dlg_button = "vDateEvent_killfocus" then
        vDate = ctod(dtoc(vDate))
    end if
    a_dlg_button = ""
elseif left(a_dlg_button,15) = "vLocationEvent_" then
    if a_dlg_button = "vLocationEvent_killfocus" then
        if vLocation = "" then
            ui_msg_box("error","Location Required")
            a_dlg_button = ""
        else
            vLocation = upper(vLocation)
            a_dlg_button = ""
        end if
    end if
    a_dlg_button = ""
elseif left(a_dlg_button,10) = "vLogEvent_" then
    if a_dlg_button = "vLogEvent_Killfocus" then
        header_text = "#"-dtoc(vDate)-"|"-vPlaceNo-"|"-vLocation
        vLogFileData = upper(header_text+crlf()+vLogdata)
'        dim st as Y
'        st = now()
'        ctimestamp = left(cshorttime(st),4)
'        cDatestamp = dtos(vDate)
'        vLogFileName = filename_decode("[logPath]\\"+remspecial(rtrim(vLocation))+cDatestamp+"@"+ctimestamp+".log")
'        showvar(vLogfileName)
'        save_to_file(vLogFileData,vLogFileName)
        a_dlg_button = ""
    end if
    a_dlg_button = ""
else
    a_dlg_button = ""
end if
%code%)
if varC_result = "OK" then
    showvar(vLogFileData)
end if

[Ronald Anusiewicz]

I looked at this kind of quickly and found that the cursor would not stop in the location field.
I removed the @ symbol and it appears to be working.

Location:| [%@vLocation_def%.40vLocation!vLocationEvent_*];

[Ronald Anusiewicz]

Add the code in red to have the cursor return to that field.

if vLocation = "" then
ui_msg_box("error","Location Required")
UI_DLG_CTL_GOTO("Enter Logging","[%vLocation_def%.40vLocation!vLocationEvent_*]")
a_dlg_button = ""
else
vLocation = upper(vLocation)
a_dlg_button = ""
end if

[Graham Wickens]

Thanks Ron,
think I have all bases covered now, UI_DLG_CTL_GOTO is a new one to me :)
but it only worked for me as ui_dlg_ctl_goto("Enter Logging","vLocationEvent")