Merge remote-tracking branch 'origin/dev' into dev_yx

yypsybs

2023-09-07 bc2de42011e9f28a3741bc0e340a9eef53e375d1

 _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 );
      }
  *]
}