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

 

Макрос «Расчет пооперационного времени начала/конца работ с учетом сменности». Позволяет используя даты и время запуска позиций плана изготовления и трудоемкости порнормированные в технологических процессах, рассчитать и занести даты и время запуска на каждую операцию ТП.

 

Sub FormMacro_TSTSMOperationTime(TCSActiveModule)    

'

' Вычисление пооперационных дат и времен начала/окончания работ с учетом коэффициента сменности

' по упрощенному календарю:

'

' 08-00  16-00  1 смена

' 16-00  24-00  2 смена

' 24-00  08-00  3 смена 

'

' Соответственно: 1 сменная работа  8 часов 08-00 16-00

'                 2 сменная работа 16 часов 08-00 24-00

'                 3 сменная работа 24 часа  08-00 16-00

'

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

    Dim IFirst     ' ID предыдущей позиции плана

    Dim INext      ' ID следующей позиции плана

    Dim IFirstOP   ' ID предыдущей операции

    Dim INextOP    ' ID следующей операции                                     

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

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

    Dim Dz           'Дата запуска предыдущая

    Dim Dw          'Дата выпуска предыдущая

    Dim Tr           'Трудоемкость предыдущая

    Dim Dz1         'Дата запуска следующая

    Dim Dw1        'Дата выпуска следующая

    Dim Tmo        'Межоперационное время

    Dim CTmin    'Служебная переменная для вычисления времени в минутах

    Dim Sostav     'Состав изделия по ПСп

    Dim Tp           'ТП из коллекции

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

    Dim Sm           'Коэффициент сменности (количество смен в сутки)

    Dim SmD        'Служебная переменная (количество смен м-ду запуском и выпуском)

'     

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

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

    Sm=1                                                            ' Задать по умолчанию одну смену

    Sm=TCSApp.InputBox("Введите коэффициент сменности","(1,2,3)",Sm)' Ввести коэффициент сменности

    If Sm=1 Or Sm=2 Or Sm=3 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бросить выделение 

        Call TCSActiveModule.GotoBookmark( msBM( 0 ) )              ' Позиционироваться на первую запись выделения

'

' Определение времени начала работ (для первой записи)

'           

                If TCSActiveModule.Properties("WorkStart").IsNull Then        ' Если текущая дата запуска не занесена 

                    Set Sostav = TCSApp.Manufacturing.ProductionBOMStructure( TCSActiveModule.Properties("PRODUCTIONBOM_ID").AsInteger, -1, TCSActiveModule.Properties("PRODBOM_STRUCTUREITEM_ID").AsInteger )'Взять ПСп

                   '   LogObject.ShowPropExplorer(Sostav)

                    Set Tp = Sostav.Properties("ProductionBOMProcess").AsIDispatch ' Взять ТП позиции состава ПСп

                      If Sostav.Properties("SCHEDULE_LAUNCH_DATE").IsNull Then     ' Если плановой даты запуска нет в ПСп

                        If Sostav.Properties("CALC_LAUNCH_DATE").IsNull Then       ' Попытаться взять ее из расчетной даты

                           II = Tp.Locate( "ID", TCSActiveModule.Properties("PRODBOM_MNFPROCESSITEM_ID").AsInteger,0 )' Перейти к соответствующей операции

                           IStr=" Операция: " + Tp.Properties("OPERATION_NUMBER").AsSafeString + " " + Tp.Properties("OPERATION_NOTE").AsSafeString + " " + Tp.Properties("OPERATION_NAME").AsSafeString

                           Dz=TCSApp.InputBox("Введите дату запуска для",IStr,Dz)  ' Ввести дату запуска вручную

                        Else                                                       '

                           Dz=Sostav.Properties("CALC_LAUNCH_DATE").AsDate         ' Взять из расчетной даты     

                        End If                                                     '

                      Else                                                         '

                       Dz=Sostav.Properties("SCHEDULE_LAUNCH_DATE").AsDate         ' Взять из плановой даты

                      End If                                                       '

                    Set Sostav = Nothing                                      ' Освободить объект

                    Set Tp = Nothing                                          ' Освободить объект

                    Call TCSActiveModule.Edit                                 ' Берем запись на редактирование

                 TCSActiveModule.Properties("WorkStart").AsDate=Dz            ' Занести текущую дату

                 Call TCSActiveModule.SaveChanges                             ' Сохраним, и если произошла

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

                Else                                                          '

                Dz=TCSActiveModule.Properties("WorkStart").AsDate             ' Взять текущую дату запуска

                End If   

'               

'  Цикл по записям позиций плана

'                                                                    '

            IFirst=TCSActiveModule.Properties("PRODBOM_STRUCTUREITEM_ID").AsInteger   ' Предыдущая позиция

            IFirstOP=TCSActiveModule.Properties("PRODBOM_MNFPROCESSITEM_ID").AsInteger' Предыдущая операция

            K=0                                                               ' Счетчик измененных эаписей

            M=0                                                              ' Счетчик эаписей для прогрессбара

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

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

           INext=TCSActiveModule.Properties("PRODBOM_STRUCTUREITEM_ID").AsInteger     ' Следующая позиция

           INextOP=TCSActiveModule.Properties("PRODBOM_MNFPROCESSITEM_ID").AsInteger  ' Следующая операция

'

'  Расчет трудоемкости и занесение ее в план  LaborIntensity = Тпз + Тшт*Кол-во(по плану) + Тмо

'                                                                             '

               If TCSActiveModule.Properties("LaborIntensity").AsFloat=0 Then ' Если трудоемкость не занесена

                 Set Sostav = TCSApp.Manufacturing.ProductionBOMStructure( TCSActiveModule.Properties("PRODUCTIONBOM_ID").AsInteger, -1, TCSActiveModule.Properties("PRODBOM_STRUCTUREITEM_ID").AsInteger )'Взять ПСп

                 Set Tp = Sostav.Properties("ProductionBOMProcess").AsIDispatch ' Взять ТП позиции состава ПСп           

                 II = Tp.Locate( "ID", TCSActiveModule.Properties("PRODBOM_MNFPROCESSITEM_ID").AsInteger,0 )' Перейти к соответствующей операции

                 Tr=Tp.Properties("SetupTime").AsFloat                        ' Тпз  

                 Tr=Tr+(Tp.Properties("TimePerPiece").AsFloat * TCSActiveModule.Properties("QUANTITY").AsFloat)' Тшт*Кол-во(по плану)

                 Tr=Tr+Tp.Properties("InterOperationTime").AsFloat            ' Тмо

                 Call TCSActiveModule.Edit                                    ' Берем запись на редактирование

                 TCSActiveModule.Properties("LaborIntensity").AsFloat=Tr      ' Взять текущую трудоемкость в часах

                 Call TCSActiveModule.SaveChanges                             'Сохраним, и если произошла

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

               Else                                                           ' Если занесена

                Tr=TCSActiveModule.Properties("LaborIntensity").AsFloat       ' Взять текущую трудоемкость в часах

               End If                                                         '

'                                                                             

'   Определение времени начала и окончания работ

'         

           If INext=IFirst Then                                                       ' Если номенклатура прежняя

               If INextOP=IFirstOP Then                                        ' Если операция первая

                If TCSActiveModule.Properties("WorkStart").IsNull Then        ' Если текущая дата начала работ не занесена 

                        Set Sostav = TCSApp.Manufacturing.ProductionBOMStructure( TCSActiveModule.Properties("PRODUCTIONBOM_ID").AsInteger, -1, TCSActiveModule.Properties("PRODBOM_STRUCTUREITEM_ID").AsInteger )'Взять ПСп

                        Set Tp = Sostav.Properties("ProductionBOMProcess").AsIDispatch ' Взять ТП позиции состава ПСп

                          If Sostav.Properties("SCHEDULE_LAUNCH_DATE").IsNull Then     ' Если плановой даты запуска нет в ПСп

                            If Sostav.Properties("CALC_LAUNCH_DATE").IsNull Then       ' Попытаться взять ее из расчетной даты

                           II = Tp.Locate( "ID", TCSActiveModule.Properties("PRODBOM_MNFPROCESSITEM_ID").AsInteger,0 )' Перейти к соответствующей операции

                           IStr=" Операция: " + Tp.Properties("OPERATION_NUMBER").AsSafeString + " " + Tp.Properties("OPERATION_NOTE").AsSafeString + " " + Tp.Properties("OPERATION_NAME").AsSafeString

                           Dz1=TCSApp.InputBox("Введите дату запуска для",IStr,Dz)     ' Ввести дату запуска вручную

                            Else                                                       '

                           Dz1=Sostav.Properties("CALC_LAUNCH_DATE").AsDate            ' Взять из расчетной даты     

                            End If                                                     '

                          Else                                                         '

                           Dz1=Sostav.Properties("SCHEDULE_LAUNCH_DATE").AsDate        ' Взять из плановой даты

                          End If                                                       '

                    Set Sostav = Nothing                                      ' Освободить объект

                    Set Tp = Nothing                                          ' Освободить объект

                Else                                                          '

                Dz1=TCSActiveModule.Properties("WorkStart").AsDate             ' Взять текущую дату запуска

                End If   

                  CTmin=Tr*60                                 ' Трудоемкость в минутах

                  Dw1=DateAdd ("n",CTmin,Dz1)                 ' Дата выпуска

               Else                                           ' Если операция следующая    

                  Dz1=Dw                  ' Следующая дата(время) запуска=пред.дата(время)выпуска.Межоперационное время учтено в трудоемкости

                  CTmin=Tr*60                                 ' Трудоемкость в минутах

                  Dw1=DateAdd ("n",CTmin,Dz1)                 ' Следующая дата(время) выпуска=дата(время)запуска+трудоемкость

               End If                                         '

           Else                                               ' Если сменилась номенклатура

               IFirst=INext                                   ' Первая запись номенклатуры

               IFirstOP=INextOP                               ' Первая операция

                If TCSActiveModule.Properties("WorkStart").IsNull Then                 ' Если текущая дата начала работ не занесена 

                        Set Sostav = TCSApp.Manufacturing.ProductionBOMStructure( TCSActiveModule.Properties("PRODUCTIONBOM_ID").AsInteger, -1, TCSActiveModule.Properties("PRODBOM_STRUCTUREITEM_ID").AsInteger )'Взять ПСп

                        Set Tp = Sostav.Properties("ProductionBOMProcess").AsIDispatch ' Взять ТП позиции состава ПСп

                          If Sostav.Properties("SCHEDULE_LAUNCH_DATE").IsNull Then     ' Если плановой даты запуска нет в ПСп

                            If Sostav.Properties("CALC_LAUNCH_DATE").IsNull Then       ' Попытаться взять ее из расчетной даты

                           II = Tp.Locate( "ID", TCSActiveModule.Properties("PRODBOM_MNFPROCESSITEM_ID").AsInteger,0 )' Перейти к соответствующей операции

                           IStr=" Операция: " + Tp.Properties("OPERATION_NUMBER").AsSafeString + " " + Tp.Properties("OPERATION_NOTE").AsSafeString + " " + Tp.Properties("OPERATION_NAME").AsSafeString

                           Dz1=TCSApp.InputBox("Введите дату запуска для",IStr,Dz)     ' Ввести дату запуска вручную

                            Else                                                       '

                           Dz1=Sostav.Properties("CALC_LAUNCH_DATE").AsDate            ' Взять из расчетной даты     

                            End If                                                   '

                          Else                                                         '

                           Dz1=Sostav.Properties("SCHEDULE_LAUNCH_DATE").AsDate        ' Взять из плановой даты

                          End If                                                      '

                    Set Sostav = Nothing                                    ' Освободить объект

                    Set Tp = Nothing                                          ' Освободить объект

                Else                                                                    '   

                Dz1=TCSActiveModule.Properties("WorkStart").AsDate                     ' Взять текущую дату запуска

                End If                                                                '

               CTmin=Tr*60                                                   ' Трудоемкость в минутах

               Dw1=DateAdd ("n",CTmin,Dz1)                       ' Дата выпуска

           End If                                                                      '

'          

'   Корректировка даты с учетом коэффициента сменности       

'          

         If Sm=1 Or Sm=2 Then                                 ' Корректировка даты выпуска в зависимости от сменности

         CTmin=DateDiff("n",Dz1,Dw1)                          ' Взять разность м-ду датами выпуска и запуска в минутах

         SmD=INT(CTmin/(480))                                 ' Количество целых смен м-ду датами выпуска и запуска

         L=INT(SmD/Sm)                                        ' Количество целых дней с учетом коэффициента сменности

         CTmin=(L*1440)+ (CTmin-(L*Sm)*480)                   ' Добавочные минуты=Количество минут в целых днях + оставшееся время в следующей смене

         Dw1=DateAdd ("n",CTmin,Dz1)                          ' Следующая дата(время) выпуска=дата(время)запуска + Добавочные минуты

         End If                                               '

'

'   Занесение времен в план

'

         Call TCSActiveModule.Edit                            'Берем запись на редактирование

         If TCSActiveModule.Properties("WorkEnd").IsNull Then ' Если дата выпуска вообще не задана 

           TCSActiveModule.Properties("WorkEnd").AsDate=TCSApp.StringToDate(Dw1)

           TCSActiveModule.Properties("WorkStart").AsDate=TCSApp.StringToDate(Dz1)

           K=K+1                                              '

         Else                                                 '

           If Dz1 > TCSActiveModule.Properties("WorkEnd").AsDate Then 'Если получилась дата запуска > текущей даты выпуска 

           TCSActiveModule.Properties("WorkEnd").AsDate=TCSApp.StringToDate(Dw1)

           TCSActiveModule.Properties("WorkStart").AsDate=TCSApp.StringToDate(Dz1)

           K=K+1

           Else                                               ' Если получилась дата запуска <= текущей даты выпуска

           TCSActiveModule.Properties("WorkStart").AsDate=TCSApp.StringToDate(Dz1)

           TCSActiveModule.Properties("WorkEnd").AsDate=TCSApp.StringToDate(Dw1)

           K=K+1

           End If                                             ' Чтобы даты заносились правильно

         End If

         Call TCSActiveModule.SaveChanges                     'Сохраним данные, и если произошла

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

           Dz=Dz1                                             ' Сделать текущую дату запуска предыдущей

           Dw=Dw1                                             ' Сделать текущую дату выпуска предыдущей

              If M=0 Then IStr="|"                            '

              If M=10 Then IStr="/"                            ' Отрисовать

              If M=20 Then IStr="--"                           ' красивый

              If M=30 Then                                     ' прогресс

                  IStr="\"                                    '

                  M=0                                         '

              End If                                          '

              M=M+1                                           '

           JStr="Строка " & CStr(I + 1) & " из " & CStr(RowsCount)

           Call TCSApp.ShowProgressMessage(JStr, IStr)        '

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

           Call TCSApp.HideProgressMessage                    ' Скрыть прогресc

        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("Сообщение", "Введите правильный коэффициент сменности: 1,2,3 ! ")

    End If   

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

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

    End If                                                    '

End Sub                                                       '

 

17.3 В режиме «Производство»