Merge remote-tracking branch 'refs/remotes/origin/dev'

Administrator

2023-10-08 e5ce585db70b5d45104f054eefc5efef8e7c2d61

 _Main/BL/Type_MacroPlan/Method_MappingOperationCostData.qbl

@@ -50,24 +50,27 @@
          id := id + "_" + item.Line();
        }
      operation := Operation::FindOperationTypeIndex( id );
      account := Account_MP::FindByName( this, "Operation cost" );
      isfromdb := false;
      existoperationcost := OperationCost::FindOperationCostTypeIndex( id );
      if( isnull( existoperationcost ) ){
        connecteditem := select( globalOTDTable, 
                                 Global_MappingOperationCost,
                                 moperationcost, 
                                 moperationcost.OrgCode() = item.OrganCode(), 
                                 moperationcost.ProductID() = item.ProductID() );
        if( not isnull( connecteditem)){
            cost := connecteditem.Cost();
            lengthoftime := connecteditem.LengthOfTime();
            start := connecteditem.Start();
            timeunit := connecteditem.TimeUnit();
            OperationCost::Create( id, operation, account, "Volume", start, timeunit, lengthoftime, cost, isfromdb );
          }
        
        }
      if(not isnull(operation)){
            account := Account_MP::FindByName( this, "Operation cost" );
            isfromdb := false;
            existoperationcost := OperationCost::FindOperationCostTypeIndex( id );
            if( isnull( existoperationcost ) ){
              connecteditem := select( globalOTDTable,
                                       Global_MappingOperationCost,
                                       moperationcost,
                                       moperationcost.OrgCode() = item.OrganCode(),
                                       moperationcost.ProductID() = item.ProductID() );
              if( not isnull( connecteditem)){
                  cost := connecteditem.Cost();
                  lengthoftime := connecteditem.LengthOfTime();
                  start := connecteditem.Start();
                  timeunit := connecteditem.TimeUnit();
                  OperationCost::Create( id, operation, account, "Volume", start, timeunit, lengthoftime, cost, isfromdb );
                }

              }
      }

      }
  *]
}