Sub FormMacro_TSTDat(TCSActiveModule) 

'

' Задание даты выделенным строкам в перечне ПСп

'

    Dim I

    Dim Dt 'Дата

If TCSActiveModule.SelectedRowsCount > 0 Then               'Если есть выделенные записи

                                                            '

     Dt=TCSApp.InputBox("Введите дату запуска","",Dt)   'Ввести новую дату

     For I = 0 To TCSActiveModule.SelectedRowsCount - 1    ' Перебрать выделенные записи спецификации 

         If TCSActiveModule.GotoSelectedRow(I) Then              ' Встать на очередную выделенную запись

         Call TCSActiveModule.Edit                                       'Берем запись на редактирование

         TCSActiveModule.Properties("SCHEDULE_LAUNCH_DATE").AsDate=Dt 

         Call TCSActiveModule.SaveChanges                         'Сохранить данные, и если произошла  

         Call TCSActiveModule.CancelChanges                       'ошибка, отменим все изменения

         End If                                                                        '

     Next                                                                              '

Else                                                                           'Если выделенных записей нет

    Call TCSApp.ShowMessageBox("Сообщение", "Выделите записи в Перечне ПСп")

End If                                                                            '

End Sub