Расчет плановой себестоимости

Существуют разные способы расчета плановой себестоимости.
В данном модуле реализована одна из методик, использованных при внедрении (простая и довольно легко настраиваемая), адаптированная нами для общего случая.
Поднимем документы, может быть и ошибка, но похоже именно так и проектировалось.

В общем случае, данные модули поставляются в виде скриптов и могут быть настроены/модифицированы пользователем под свои нужды. Мы просто делаем некоторую общую базу для того чтобы показать рабочий вариант, а отталкиваясь от него можно сделать доработку под себя. Заготовка, скажем так. Единственный нюанс после таких доработко - если мы модуль дорабатываем или исправляем ошибки, то эти доработки приходится проносить уже самостоятельно (если они имеют ценность для вас). В любом случае код всегда можно сохранить.

Ну тут я так быстро не подскажу, так как не всегда одна строчка решает проблему, вполне возможно потом появятся новые проблемы, поэтому надо сначала разбираться.

А в чем сложности возникли?

вроде так

Tpz = query_TPP.p_TpEquip_SetupTime.AsSafeFloat
N = query_TPP.p_TpEquip_RunQuantity.AsSafeFloat

но конечный результат не гарантируется, там расчет посложнее будет (не факт что у вас все это используется конечно)

Спасибо за помощь.
В представленном виде при первоначальной аттестации- работает корректно

/" T_st = query_TPP.p_TpEquip_TimePerPiece.AsSafeFloat
             If T_st<=0.0 Then
                T_st = 0
                Call AddBadOborData( BadTpNorm, TechId, 0, TpPosCode, LastOperName, nmkName, _
                                    CurNMkId, CurKlas, CurNmkNote, CurNmkName, CurNMkCode, CurKol, _
                                    CurVerId, "ТП", CurTpName, CurTpSt )     
             End If
             RabCnt = TCSApp.StringToIntDef( query_TPP.p_TpEquip_NumOfWorkers.AsSafeString, -1 )
             if RabCnt<=0 then RabCnt = 1
             Tpz = query_TPP.p_TpEquip_SetupTime.AsSafeFloat
             if Tpz<=0 then Tpz = 1
             N = query_TPP.p_TpEquip_RunQuantity.AsSafeFloat
             if N<=0 then N = 1
             K_st = query_TPP.p_TpEquip_PieceTimeCoeff.AsSafeFloat
             if K_st<=0 then K_st = 1
             Trud_Sum = Trud_Sum + RabCnt * T_st * K_st + Tpz / N
             Trud_Sum_Itog = Trud_Sum_Itog + RabCnt * T_st * CurKol * K_st + Tpz / N
           End If   "/

Один вопрос -в этом же скрипте есть аналогичный блок с параметрами и расчетами по формуле (представлен ниже)- за что он отвечает и требуется ли его модифицировать?

"If Not TPP Is Nothing Then
           TPP.BeginUpdate           
           TPP.First
           While Not TPP.Eof
            Klas = TPP.p_NMK_CLASSIF_TYPE_NOTE.AsSafeString
            KlType = TPP.ClassType
            TechId = TPP.p_ID.AsSafeInteger
            VerId = TPP.p_VER_ID.AsSafeInteger
            OperId = TPP.p_OPER_ID.AsSafeInteger
            NMkId = TPP.p_NMK_ID.AsSafeInteger
            NMkNote = TPP.p_NMK_NOTE.AsSafeString
            NmkName = TPP.p_NMK_NAME.AsSafeString
            NmkCode = TPP.p_NMK_CODE.AsSafeString
            TpPosCode = TPP.p_OPER_POS.AsSafeString + "."
            TrudCalcCounter = TrudCalcCounter + 1
            pbStr = ShowProgressBarNote( pbStr, "ТПП-" & CStr(TrudCalcCounter) & ". " & CurNmkNote & " - " & CurNmkName )
            If KlType=CSDN_Const.ctOborud and Is_Value_InArray( Klas, GetOborClasses() ) Then
                If Is_Value_InArray( NMkName, GetCooperOborNames() ) Then 'Смежники
                    Call AddCooperData( CooperData, TechId, TPP.TpVariantId, TpPosCode, LastOperName, LastOperCode, OperId,  TechId, NMKId, _
                                        CurNMkId, CurKlas, CurNmkNote, CurNmkName, CurNMkCode, CurKol, _
                                        VerId, "ТТП", "-", "<типовой>" )
                Else
                    T_st = 0
                    RabCnt = 0
                    Set chldAt = TPP.Properties("TechnologyAttributes").AsIDispatch
                    'Dim chldAt as IGModule
                    if Not chldAt Is Nothing Then
                      T_st = chldAt.p_TimePerPiece.AsSafeFloat
                      RabCnt = TCSApp.StringToIntDef( chldAt.p_NumberOfWorkers.AsSafeString, -1 )                             
                    End If
                    If T_st<=0.0 Then
                        T_st = 0
                        Call AddBadOborData( BadTpNorm, TechId, TPP.TpVariantId, TpPosCode, LastOperName, nmkName, _
                                              CurNMkId, CurKlas, CurNmkNote, CurNmkName, CurNMkCode, CurKol, _
                                              VerId, "ТТП", "-", "-" )     
                       
                    End If
                    if RabCnt<=0 then RabCnt = 1
                    Trud_Sum = Trud_Sum + RabCnt * T_st
                    Trud_Sum_Itog = Trud_Sum_Itog + RabCnt * T_st * CurKol
                End If  "