Äëÿ çàïóñêà äàííîãî ìàêðîñà íåîáõîäèìî ïåðåéòè â ðåæèì

 

«Ïðîèçâîäñòâî»-«Ïðîèçâîäñòâåííûå ñïåöèôèêàöèè»,

 

âûáðàòü ÏÑï è ïåðåéòè íà åå çàêëàäêó «Ïåðå÷åíü ÏÑï».

 

Ìàêðîñ «Çàäàòü íîâóþ äàòó çàïóñêà âûäåëåííûì ïîçèöèÿì». Ïîçâîëÿåò çàäàâàòü íîâóþ äàòó çàïóñêà ïîçèöèÿì, âûäåëåííûì íà çàêëàäêå «Ïåðå÷åíü ÏÑï».

 

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

 

! Ñì. òàêæå:

17.1 Â ðåæèìå «Ïðîèçâîäñòâåííûå ñïåöèôèêàöèè»