供应商unit

renhao

2023-09-25 9c9638c18c5098cd429a39723de7c095c14aa360

供应商unit

 _Main/BL/Type_MacroPlan/Method_MappingUnitData.qbl

@@ -42,12 +42,13 @@
                          infinite, 
                          unitofmeasurename );
    
    Unit::CreateOrUpdate( this, 
    supplyunit := Unit::CreateOrUpdate( this, 
                          "供应商", 
                          "供应商", 
                          "天马集团", 
                          infinite, 
                          unitofmeasurename );
    supplyunit.IsSupplier(true);
    
    Unit::CreateOrUpdate( this, 
                          "整车运输", 

 _Main/BL/Type_Unit/StaticMethod_CreateOrUpdate.qbl

@@ -7,7 +7,7 @@
  String parentunitid,
  String capacitytype,
  String unitofmeasurename
)
) as Unit
{
  TextBody:
  [*
@@ -21,7 +21,7 @@
    unit := Unit::FindById( owner, id );
    
    if( id="天马集团" and isnull( unit ) ){
      owner.Unit( relnew, 
      unit := owner.Unit( relnew, 
                 ID := id, 
                 Name := name, 
                 UnitOfMeasureName := unitofmeasurename, 
@@ -31,7 +31,7 @@
                 CapacityType := capacitytype );
      }else{
      if( isnull( unit ) ){
        owner.Unit( relnew, ID := id, 
        unit := owner.Unit( relnew, ID := id, 
                   Name := name, 
                   ParentUnitID := parentunitid, 
                   CapacityType := capacitytype, 
@@ -46,5 +46,7 @@
          unit.UnitOfMeasureName( unitofmeasurename );
          }
        }
    
    return unit;
  *]
}