PROCEDURE ReadNotes
TEXT _userName
TEXT _pictName
TEXT _pictDesc
TIME _bt, _et
RECORD NOALIAS (SD.PICTNOTE) _notes
_userName := ""
_pictName := ""
_pictDesc := ""
_bt := SysTime
_bt := %TimeFromItems(%Year(_bt), %Month(_bt), %Day(_bt), 0, 0, 0, 0)
_et := %TimeFromItems(%Year(_bt), %Month(_bt), %Day(_bt)+1, 0, 0, 0, 0)
READPICTNOTES _bt, _et, _pictName, _pictDesc, _userName, _notes
END ReadNotes