Update Method_InitialUnitAndStockingPoint.qbl

yanyuan

2023-09-06 409884b9996679072dc7d0207b70ed1d8d0ee2b9

Update Method_InitialUnitAndStockingPoint.qbl

 _Main/BL/Type_MacroPlan/Method_InitialUnitAndStockingPoint.qbl

@@ -90,16 +90,21 @@
                                isfromdb );
    }
    
    Currency_MP::CreateCurrency( this, "CNY", "CNY", "", true );
    currency := Currency_MP::FindById( this, "EUR" );
    currency.IsBase(false);
    Transaction::Transaction().Propagate();
    existcurrency := Currency_MP::FindById( this, "CNY" );
    if( isnull( existcurrency ) ){
      Currency_MP::CreateCurrency( this, "CNY", "CNY", "", true );
      currency := Currency_MP::FindById( this, "EUR" );
      currency.IsBase(false);
      Transaction::Transaction().Propagate();
      }
    
    isproductcatagory := false;
    isfromdb := false;
    
    ProductLevel_MP::Create( "1", isproductcatagory, this, isfromdb );
    ProductLevel_MP::Create( "2", isproductcatagory, this, isfromdb );
    ProductLevel_MP::Create( "3", isproductcatagory, this, isfromdb );
    existproductlevel := ProductLevel_MP::FindProductLevelTypeIndex( "2" );
    if( isnull( existproductlevel ) ){
      ProductLevel_MP::Create( "1", isproductcatagory, this, isfromdb );
      ProductLevel_MP::Create( "2", isproductcatagory, this, isfromdb );
      ProductLevel_MP::Create( "3", isproductcatagory, this, isfromdb );
      }
  *]
}