Для выполнения данного макроса, нужно в режиме ведения номенклатурного справочника отметить  позиции, которым будет присваиваться штрих-код, и запустить макрос «Назначить штрих-код выделенным позициям номенклатуры».

Данный пример иллюстрирует использование функции TCSApp.BarCodeGen, котрая возвращает уникальное число для использования в справочнике штрих-кодов.

 

Sub FormMacro_NBarCodeINS(TCSActiveModule)

'

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

'

' С использованием функции TCSApp.BarCodeGen, котрая возвращает уникальное число

' для использования в справочнике штрих-кодов                            

'

'

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

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

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

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

  

    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                                            ' Добавляем счетчик

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

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

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

                      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                    

                 

17.4 Работа со штрих-кодами