powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Незафиксированые записи в буфере CAD
8 сообщений из 8, страница 1 из 1
Незафиксированые записи в буфере CAD
    #35133435
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как проверить есть ли незафиксированные операции (изменить, добавить, удалить) в буфере CAD?
Большое спасибо!
...
Рейтинг: 0 / 0
Незафиксированые записи в буфере CAD
    #35133462
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
GETFLDSTATE(cFieldName | nFieldNumber [, cTableAlias | nWorkArea])

GETNEXTMODIFIED(nRecordNumber [, cTableAlias | nWorkArea])
...
Рейтинг: 0 / 0
Незафиксированые записи в буфере CAD
    #35133504
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это означает, что нужно проверить каждую запись на GETNEXTMODIFIED(RECNO())? Других вариантов нет?
...
Рейтинг: 0 / 0
Незафиксированые записи в буфере CAD
    #35133530
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
shantonЭто означает, что нужно проверить каждую запись на GETNEXTMODIFIED(RECNO())? Других вариантов нет?

Для какой цели это надо знать?
...
Рейтинг: 0 / 0
Незафиксированые записи в буфере CAD
    #35133632
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторДругих вариантов нет?

http://forum.foxclub.ru/read.php?29,226190,226237#msg-226237

читай внизу

автор
select getfldstate(-1) as fldState from (lcAlias) with (buffering=.T.) into cursor (lcTmpAlias)
select (lcTmpAlias)
count to lnEdited for at('2',lcFldState)>0 && вот так покажет количество где трогали

1-й символ в поле fldState
"1" существовали
"2" удаленные
"3" добавили
"4" добавили и удалили
...
Рейтинг: 0 / 0
Незафиксированые записи в буфере CAD
    #35133855
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
PaulWist
Для какой цели это надо знать?
У меня есть CAD, в который данные вводятся прямо в гриде. На форме есть кнопка "Сохранить", которая фиксирует изменения - TABLEUPDATE (). Если CAD не изменяли, кнопка будет не активной, и наоборот. При закрытии формы тоже проверяем, если CAD изменялся, задаём вопрос "Сохранить изменеия?".
...
Рейтинг: 0 / 0
Незафиксированые записи в буфере CAD
    #35133879
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
shanton... Если CAD не изменяли, кнопка будет не активной, и наоборот. При закрытии формы тоже проверяем, если CAD изменялся, задаём вопрос "Сохранить изменеия?".
Не совсем в тему, но в данной ситуации сначала открываю форму на просмотр (ReadOnly) и две кнопки "Изменить" и "Закрыть", если нажали "изменить", то кнопки становятся "Сохранить" и "Отмена" и все контролы ReadOnly .F.
А то часто юзеры открывают для посмотреть иногда случайно что-нибудь введут. "Отмена" боятся нажимать - ассоциация в мозгу с потерей при вводе. А так - хочешь менять, нажми кнопку - осознанное действие
...
Рейтинг: 0 / 0
Незафиксированые записи в буфере CAD
    #35136535
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
shantonЭто означает, что нужно проверить каждую запись на GETNEXTMODIFIED(RECNO())? Других вариантов нет?
Каждую-то зачем? Достаточно того факта, что хотя бы одна запись была изменена

Код: plaintext
1.
2.
3.
IF GetNextModified( 0 )<> 0 
    * Что-то в буфере CursorAdapter изменяли
ENDIF 
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Незафиксированые записи в буфере CAD
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]