Как можно сделать так, что бы кнопка Delete перед тем как удалить запись из файла F1 копировала его в файл F2 с аналогичной структурой
P.S. Попробовал по вашему примеру
if ThisWindow.Response=RequestCompleted
if ThisWindow.Request=DeleteRecord
Kar:record :=: Otd:record
add(Kar:record)
end
end
он у меня выкинул ошибку:
invalid structure as first parameter
Написал: Sergey(111)
Кнопка Delete
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- StillZero
- Ветеран
- Сообщения: 454
- Зарегистрирован: 06 Июль 2005, 2:17
- Откуда: Хабаровск
- Контактная информация:
Если пишешь на ABC:
- на форме в Embeds-ах в WindowManager.Kill до ParentCall пишешь
if ThisWindow.Response=RequestCompleted
if ThisWindow.Request=DeleteRecord
MyFile2:record :=: MyFile1:record
add(MyFile2:record) ! не используется Access:Insert из за возможного autoinc
end
end
Если на Legacy (плохо помню, могу ошибиться):
- примерно тоже, только точка вставки BeforeCloseWindow
ThisWindow.Response заменяется на GlobalResponse
ThisWindow.Request заменяется на GlobalRequest, т.е.
if GlobalResponse=RequestCompleted
if GlobalRequest=DeleteRecord
MyFile2:record :=: MyFile1:record
add(MyFile2:record)
end
end
Написал: PAA(27)
- на форме в Embeds-ах в WindowManager.Kill до ParentCall пишешь
if ThisWindow.Response=RequestCompleted
if ThisWindow.Request=DeleteRecord
MyFile2:record :=: MyFile1:record
add(MyFile2:record) ! не используется Access:Insert из за возможного autoinc
end
end
Если на Legacy (плохо помню, могу ошибиться):
- примерно тоже, только точка вставки BeforeCloseWindow
ThisWindow.Response заменяется на GlobalResponse
ThisWindow.Request заменяется на GlobalRequest, т.е.
if GlobalResponse=RequestCompleted
if GlobalRequest=DeleteRecord
MyFile2:record :=: MyFile1:record
add(MyFile2:record)
end
end
Написал: PAA(27)