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

Данный пример иллюстрирует использование внешнего кода (кода, задаваемого пользователем), построенного на основе имеющихся в базе данных идентификаторов номенклатуры для получения уникальных 12-разрядных кодовых комбинаций кода EAN13.

 

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

 

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