CanDelete in grid is throwing an error ...

[drgarytraub]

In the CanDelete event of a grid, I have this code:

if tn>0
Result.Cancel = .t.
Result.ErrorHTML = "Folder cannot be deleted because it is not empty."
END
end if


It throws this error:

XHTTPRequest Error:

500 Internal Server Error

Script ErrorError:Script:a5GridHelper_saveGridData() line:649

Property not found


rv._detailViewRecord subelement not found.




If I comment out the 5 lines, it works fine. Does anyone know what causes this error message - and I get it frequently.

[Davidk]

Re: CanDelete in grid is throwing an error ...

You're using Xbasic, so I'd guess it's a server-side event. Where is the CanDelete event? There's a CanDeleteRecord... is that what you're using?

Where is tn coming from?

[drgarytraub]

Re: CanDelete in grid is throwing an error ...

Hi David,

Yes, its the CanDeleteRecord server side event.

tn is a numeric variable = to the number of records retrieved from a table.

And I get that error message even when I comment out all the rest of the code.

Thanks for any suggestions.

[Davidk]

Re: CanDelete in grid is throwing an error ...

Using this code... no errors... no issues. What Alpha build are you using?

dim tn as n = 0 ' or 1 to trigger the error
if tn>0
Result.Cancel = .t.
Result.ErrorHTML = "Folder cannot be deleted because it is not empty."
END
end if

If you comment out all your other code in this event... and just leave in what I've posted... does the issue still exist?

Can you post the your other code?

[drgarytraub]

Re: CanDelete in grid is throwing an error ...

Build 4346

Here is the entire code:

function CanDeleteRecord as v (DataSubmitted as P, Args as p, PageVariables as p, Result as P)
with PageVariables
Result.Cancel = .f.
Result.ErrorHTML = ""

'dim ndx as p
'dim tbl as p
'tbl=table.open("[pathalias.adb_path]\folder_data")
'query.filter="folder_id="+quote(DataSubmitted.Folder_id)
'query.order=""
'query.options=""
'ndx=tbl.query_create()
'dim tn as n
'tn=ndx.records_get()
'ndx.drop()
'tbl.close()

dim tn as n
tn=1
if tn>0
Result.Cancel = .t.
Result.ErrorHTML = "Folder cannot be deleted because it is not empty."
END
end if

'if DataSubmitted.Ndocs>0
' Result.Cancel = .t.
' Result.ErrorHTML = "Folder is not empty so it cannot be deleted!"
' end
'end if

end with
end function


Note that when the condition is false, the deletion occurs without any error; when the condition is true, the deletion does occur as expected but I get that error message.

[drgarytraub]

Re: CanDelete in grid is throwing an error ...

More information:

If I simply make the grid updateable and turn off the detail view, it works! In other words, if I try to delete a record that has associated records, the deletion is prevented and no error message, It is only when I use the detail view.

[Davidk]

Re: CanDelete in grid is throwing an error ...

when the condition is true, the deletion does occur as expected but I get that error message.

You mean the deletion does NOT occur... is that right?

I'd build a new test grid, just a few fields, detail view, and add your code. Something else is going on. Under 4346 I'm not seeing any issues... using your full code and with or without a detail view.

[drgarytraub]

Re: CanDelete in grid is throwing an error ...

Hi David,

Yes, sorry about that - does NOT occur.

I did end up doing that and it was working fine and as expected up until I added something in one of the events. I have to go back and redo from scratch again to catch what is causing the problem. But yes, starting from scratch, the detail view does work as expected.