Sub FormMacro_Ntest1(TCSActiveModule)                              

'Создание расчетного документа из ПСп

'для позиций, которые не нужно изготавливать

Dim CalcDocs      'объект "Расчетные документы" 

Dim PspSpecs      'объект "Производственные спецификации" 

Dim CalcDoc       'экземпляр расчетного документа

Dim DocNumber 'номер расчетного документа

Dim DocName     'наименование расчетного документа

Dim DocDate       'дата расчетного документа

Dim DocRem       'комментарий к расчетному документу

Dim DocTypeID  'идентификатор расчетного документа

Dim CehaID        'идентификатор подразделения

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

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

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

                                                                   '

    If TCSApp.Inventory.CalculateDocumentTypes.RunModuleForSelect("Выберите тип расчетного документа", False) Then 'Выбор типа расчетного документа

        If TCSApp.PlantDepartments.RunModuleForSelect("Выберите цех/участок", False) Then ' Выбор подразделения, где будет формироваться документ

            Set CalcDocs = TCSApp.Inventory.CalculateDocuments     'объект "Расчетные документы"

            DocNumber = ""                                         'Номер документа (будет

            DocName="Комплектация по заказу"   'Наименование документа

            DocDate = Date()                                                               'Дата сздания

            DocRem = "Комментарий"                                                         'Комментарий к документу

            DocTypeID = TCSApp.Inventory.CalculateDocumentTypes.Properties("ID").AsInteger 'Тип документа 

            CehaID = TCSApp.PlantDepartments.Properties("ID").AsInteger                    'Подразделение

            CalcDoc = CalcDocs.AddCalculateDocument(DocNumber,DocName,DocDate,DocRem,DocTypeID,CehaID)'Создать документ

            Set CalcDoc = CalcDocs.Properties("CalculateDocumentSpecification").AsIDispatch'Спецификация

         pbStr = CSDN_VIS_Library.constProgressBarStr                         'Взять строку прогрессбара

         BM = TCSActiveModule.GetBookmark                          'Запомнить полжение курсора

            TCSActiveModule.First                                  'Встать на начало спецификации

            Do While Not TCSActiveModule.EOF                       'Перебираем выделенные записи спецификации

                pbStr = CSDN_VIS_Library.ShowProgressBar(pbStr)        'Двигаем прогрессбар

                  If TCSActiveModule.Properties( "N_ORDTREE_NU" ).Value="T" Then                   'Если эту позицию не нужно изготавливать

                    If CalcDoc.Locate("NMK_ID", TCSActiveModule.Properties("NMK_ID").Value, 0) Then'Если такая номенклатура уже добалена 

                       CalcDoc.Edit                                                                'Берем ее на редактирование и складываем количество

                       CalcDoc.Properties("QUANTITY").Value = CalcDoc.Properties("QUANTITY").Value + TCSActiveModule.Properties("N_ORDTREE_QUAN").Value

                    Else                                                                           'Если такой номенклатуры еще нет

                       CalcDoc.CreateNew                                                           'Создаем новую запись

                       CalcDoc.Properties("NMK_ID").Value = TCSActiveModule.Properties("NMK_ID").Value          'ID Номенклатуры

                       CalcDoc.Properties("QUANTITY").Value = TCSActiveModule.Properties("N_ORDTREE_QUAN").Value'Количество

                       CalcDoc.Properties("COEFF").Value = TCSActiveModule.Properties("N_ORDTREE_COEFF").Value  'Коэффициент пересчета

                       CalcDoc.Properties("MESUR_ID").Value = TCSActiveModule.Properties("MESUR_ID").Value      'ID Единицы измерения

                    End If

                  End If

                    On Error Resume Next                          'В случае ошибки подолжить цикл

                    CalcDoc.SaveChanges                            'Сохраним расчетный документ, и если произошла

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

            TCSActiveModule.Next    

            Loop                                                   'Конец цикла по выделенным записям спецификации

            Call TCSApp.HideProgressMessage              'Выключить прогрессбар

            Call TCSActiveModule.GotoBookmark(BM)   'Вернуть курсор в исходное положение

            CalcDocs.EditAction.Execute                            'Дать документ для ручного редактирования

            Set CalcDocs = Nothing                                 'Освободить "Расчетные документы"

        End If                                                     '

    End If                                                         '

End Sub                                                            '