Sub FormMacro_CloseCard(TCSActiveModule)

'

' Макрос для закрытия пустых учетных карточек

' у выделенных записей   

' 

'

Dim BM                               'текущая позиция курсора

Dim pbStr                            'прогресбар

Dim I                                     'служебная переменная

Dim NMkId                          'ID номенклатуры

Dim DepartmentID             'ID подразделения

Dim BalanceNmkCards      'Интерфейс "Учетные карточки"

Dim NmkCardTotal            'Интерфейс "Обороты по учетным карточкам"

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

     DepartmentID=TCSActiveModule.Properties( "CEHA_ID" ).AsInteger    'Запомнить ID подразделения, где находится картотека

            TCSActiveModule.First                                      'Встать на начало 

        For I = 0 To TCSActiveModule.SelectedRowsCount - 1             'перебираем выделенные записи номенклатуры картотеки

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

            NMkId =  TCSActiveModule.Properties( "NMK_ID" ).AsInteger  'Взять ID номенклатуры

            Set BalanceNmkCards = TCSApp.Inventory.BalanceNmkCards( DepartmentID, NMkId ) 'Получим интерфейс "Учетные карточки" 

            BalanceNmkCards.First                                      'Встаем на первую запись в картотеке 

               Do While Not BalanceNmkCards.EOF                        'Перебираем записи картотеки

                  If BalanceNmkCards.Properties( "CLOSED" ).DisplayText="F" Then        'Если карточка не закрыта     

                     Set NmkCardTotal = BalanceNmkCards.Properties("BalanceNmkCardTotal").AsIDispatch'Получаем интерфейс к оборотам по карточке

                     If  NmkCardTotal.Properties("TOTALQUAN_END").AsFloat = 0 Then      'И проверяем, есть ли остаток на карточке (не важно, положительный или отрицательный)

                         Call BalanceNmkCards.Edit                                      'Если нет, то берем ее на редактирование

                         BalanceNmkCards.Properties( "CLOSED" ).Value="T"               'Если нет, то закрыть карточку

                         Call BalanceNmkCards.SaveChanges                               'Сохранить карточку, и если произошла

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

                      End If                                                            '

                     Set NmkCardTotal = Nothing                                         'Освободить интерфейс к оборотам по карточке

                  End If                                                                '

                  BalanceNmkCards.Next                                                  'Перебираем записи картотеки

               Loop                                                                     'Конец цикла по номенклатуре

            Set BalanceNmkCards = Nothing                                               'Освободить интерфейс "Учетные карточки"   

            End If                                                                      '

        Next                                                                            '

Else

Call TCSApp.ShowErrorMessage("Выделите записи для которых необходимо закрыть пустые учетные карточки!")  

End If

End Sub