Sub FormMacro_NBarCodeINS_EAN13(TCSActiveModule) 

'

' Назначение штрих-кода EAN13 выделенным позициям номенклатуры

' 

' ПРИМЕР ИСПОЛЬЗОВАНИЯ ВНЕШНЕГО КОДА (КОДА ЗАДАВАЕМОГО ПОЛЬЗОВАТЕЛЕМ)

'

' Формат кода:  0ХХХХХХХХХХХ

'                              

'               0 - признак того, что код относится к номенклатурной позиции

'     ХХХХХХХХХХХ - 11 символов ID номенклатуры         

'   

    Dim I,J,K,L,M   'Служебные переменные

    Dim BarCodes    'Штрих-коды объект                            

    Dim RowsCount   'Количество выделенных записей

    Dim msBM()      'Массив ссылок на выделенные записи

    Dim IBar        'Штрих-код

    Dim IStr        'Служебная строковая переменная

    RowsCount = TCSActiveModule.SelectedRowsCount                   ' Запомнить количество выделенных записей

    If RowsCount > 0 Then                                           ' Если выделенные записи есть, то

        Redim msBM( RowsCount - 1 )                          ' Определить необходимый размар массива для запоминания ссылок

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

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

                msBM( I ) = TCSActiveModule.GetBookmark             ' И запомнить ее в массиве

            End If                                                  '

        Next                                                        '  

        TCSActiveModule.Refresh                                     ' Cбросить выделение  

            K=0                                                     ' Счетчик записей

        For I = 0 To RowsCount - 1                                  ' Идти по массиву ссылок

           Call TCSActiveModule.GotoBookmark( msBM( I ) )           ' Позиционироваться на текущую запись 

               Set BarCodes = TCSActiveModule.Properties("BarCodes").AsIDispatch

               If BarCodes.Properties( "BAR_CODE" ).IsNull Then     ' Если у позиции нет штрих-кода

                   K=K+1                                      ' Добавляем счетчик

                   IStr=Cstr(TCSActiveModule.Properties( "ID" ).AsInteger)'Идентификатор номенклатуры

                   If Len(IStr)>11  Then                     ' Если идентификатор слишком длинный то

                   Call TCSApp.ShowMessageBox("Сообщение", "Код EAN13 не может обеспечить уникальность позиции")

                 Else                                         ' Если до 11 символов, то

                   For L=1 To 11-Len(IStr)             ' Сформировать уникальный код  

                    IStr="0" & IStr                           ' Дополнить код нулями

                   Next                                       '

                         IStr="0" & IStr                      ' Для обеспечения уникальности штрих-коды в номенклатуре будем начинать с "0" 

                 End If                                       '

                    Call BarCodes.CreateNew                         ' Создадим новую запись в штрих-коде

                      BarCodes.Properties("BAR_CODE").Value = IStr  ' Присвоим штрих-код

                      BarCodes.Properties("DEFAULT").Value = "T"    ' Сделаем его основным

                      BarCodes.Properties("REM").Value = "EAN13"    ' Занесем комментарий

                      On Error Resume Next                          ' и

                    Call BarCodes.SaveChanges                       ' Сохраним изменения

                    Call BarCodes.CancelChanges                     ' В случае ошибки отменим их

               End If                                         '

               Set BarCodes = Nothing                         '

        Next                                                  ' Взять новую запись

        For I = 0 To RowsCount - 1                            ' Идти по массиву ссылок

            Call TCSActiveModule.GotoBookmark( msBM( I ) ) ' Позиционироваться на текущую запись

            TCSActiveModule.CurrentRowSelected = True         ' Вернуть выделение строки

        Next                                                  '

        Call TCSApp.ShowMessageBox("Сообщение", "Штрих-код назначен для " + Cstr(K) + " записей")

        If K=0 Then

          Call TCSApp.ShowMessageBox("Сообщение", "Выделенным позициям номенклатуры штрих-код уже был назначен")

        End If

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

        Call TCSApp.ShowMessageBox("Сообщение", "Выделите записи для которых необходимо указать штрих-коды")

    End If                                                    '

End Sub