19 lines
469 B
Plaintext
19 lines
469 B
Plaintext
Compile subroutine Test_Delete_Record(Table, Key, Output)
|
|
|
|
Declare function Delete_Record_From_SQL
|
|
|
|
Ans = Delete_Record_From_SQL(Table, Key)
|
|
|
|
If Len(Ans) then
|
|
If Assigned(Output) then
|
|
Begin Case
|
|
Case Output EQ "MSG"
|
|
Call Msg(@Window, Ans)
|
|
Case Len(Output)
|
|
OSWrite Ans to Output
|
|
End Case
|
|
end
|
|
end
|
|
|
|
return
|