你看一下二开界面新增一个事件，删除一条产线的occurances，标准功能里面还是有

lazhen

2024-07-29 603028485fee72bab8b4f861eb87a050917f4015

你看一下二开界面新增一个事件，删除一条产线的occurances，标准功能里面还是有

 _Main/BL/Type_InventoryInterfaceData/StaticMethod_SynchronizeInventory.qbl

@@ -18,7 +18,11 @@
                    or loginfo.Name() = Translations::InterfaceDataset_FinishedEngineInventory_Name() ) ){
      //机加库存
      traverse( loginfo, MachineStockData, inventory ){
        InventoryInterfaceData::Generate( interfaceDataset, inventory.DDay(), inventory.MaterialNo(), inventory.LineType(), [Number]inventory.Total() );
        inventoryname := inventory.Lgort();
        if( inventory.Fac() = 'DL' and inventory.Lgort() = 'All' ){
          inventoryname := inventory.LineType();
        }
        InventoryInterfaceData::Generate( interfaceDataset, inventory.DDay(), inventory.MaterialNo(), inventoryname, [Number]inventory.Total() );
      }
      //发动机成品库存
      traverse( loginfo, FinishedEngineInventory, inventory ){

 _Main/BL/Type_LibCal_ExplicitTimeInterval/StaticMethod_Delete.qbl

@@ -18,9 +18,13 @@
        }
      }
      if( not isnull( leadingeti ) ){
        eti.Delete();
        subscription := selectobject( eti, Participation.Event.LeadingParticipation.Subscription, subscription, subscription.Calendar().CalendarID() = eti.Participation().Calendar().CalendarID() );
        if( subscription.ExplicitTimeInterval( relsize ) = 1 ){
          subscription.Delete();
        }else{
          eti.Delete();
        }
      }
    
    }
  *]
}

 _Main/BL/Type_MachineStockData/Attribute_Lgort.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,8 @@
Quintiq file version 2.0
#parent: #root
Attribute Lgort
{
  #keys: '3[415136.0.951252825][415136.0.951252824][415136.0.951252826]'
  Description: '库存点，当fac为DL且lgort值为all则取linetyp的值'
  ValueType: String
}

 _Main/BL/Type_MachineStockData/StaticMethod_GenerateData.qbl

@@ -17,6 +17,7 @@
    all_total         := guard( item.Get( "all_total").GetReal(), 0 );
    dday              := guard( item.Get( "dday").GetString(),"");
    line_type         := guard( item.Get( "fac").GetString(),"");
    lgort             := guard( item.Get( "lgort").GetString(),"");
    
    msdata           := owner.MachineStockData( relnew, MaterialNo := material_no
                                                  , MaterialName := material_name
@@ -25,7 +26,8 @@
                                                  , Total := total
                                                  , AllTotal := all_total
                                                  , DDay := cnv.Convert( dday )
                                                  , LineType := line_type );
                                                  , LineType := line_type
                                                  , Lgort := lgort );
    
    return msdata;
  *]