From 8c5557b992ac917c11f0f24d9716af1a16045777 Mon Sep 17 00:00:00 2001
From: hongjli <3117313295@qq.com>
Date: 星期一, 18 九月 2023 21:04:27 +0800
Subject: [PATCH] 全局代理
---
_Main/BL/Type_MacroPlan/Method_InitialUnitAndStockingPoint.qbl | 104 ++++++++++++---------------------------------------
1 files changed, 25 insertions(+), 79 deletions(-)
diff --git a/_Main/BL/Type_MacroPlan/Method_InitialUnitAndStockingPoint.qbl b/_Main/BL/Type_MacroPlan/Method_InitialUnitAndStockingPoint.qbl
index d030255..767523f 100644
--- a/_Main/BL/Type_MacroPlan/Method_InitialUnitAndStockingPoint.qbl
+++ b/_Main/BL/Type_MacroPlan/Method_InitialUnitAndStockingPoint.qbl
@@ -6,105 +6,51 @@
[*
// Administrator Sep-1-2023 (created)
+ unitOfMeasure_MP := UnitOfMeasure_MP::FindByName( this, "PCS" );
+ if ( isnull( unitOfMeasure_MP ) ) {
+ unitOfMeasure_MP := UnitOfMeasure_MP::Create( this, "PCS", false, false );
+ }
+
//Set the Default values
unitofmeasurename := "PCS";
- currencyid := "CNY";
- startdate := Date::Date( 1900, 1, 1 );
- enddate := Date::Date( 9999, 12, 31 );
capacitytype := "Transport quantity";
- if( isnull( Unit::FindById( this, "绌鸿繍" ) ) ){
- this.Unit( relnew,
- ID := "绌鸿繍",
- Name := "绌鸿繍",
- UnitOfMeasureName := unitofmeasurename,
- CurrencyID := currencyid,
- StartDate := startdate,
- EndDate := enddate,
- CapacityType := capacitytype );
- }
+ if ( isnull( Unit::FindById( this, "绌鸿繍" ) ) ) {
+ Unit::Create( "绌鸿繍", this, "绌鸿繍", unitOfMeasure_MP, null( Unit ), capacitytype, "", null( SupplyChainView ), 0, 0, false );
+ }
- if( isnull( Unit::FindById( this, "搴撳瓨浜嬪姟澶勭悊" ) ) ){
- this.Unit( relnew,
- ID := "搴撳瓨浜嬪姟澶勭悊",
- Name := "搴撳瓨浜嬪姟澶勭悊",
- UnitOfMeasureName := unitofmeasurename,
- CurrencyID := currencyid,
- StartDate := startdate,
- EndDate := enddate,
- CapacityType := capacitytype );
+ if ( isnull( Unit::FindById( this, "搴撳瓨浜嬪姟澶勭悊" ) ) ) {
+ Unit::Create( "搴撳瓨浜嬪姟澶勭悊", this, "搴撳瓨浜嬪姟澶勭悊", unitOfMeasure_MP, null( Unit ), capacitytype, "", null( SupplyChainView ), 0, 0, false );
}
unitofmeasurename := "PCS";
- name := "鎵嬪姩鍒涘缓搴撳瓨鐐�";
- currencyname := "CNY";
- isplannedinfinite := false;
- datestart := Date::Construct(1900, 1, 1) ;
- dateend := Date::Construct(9999, 12, 31);
- groupname := " ";
- description := " ";
- isfromdb := true;
- if( isnull( StockingPoint_MP::FindById( this, "F13_FG_STOCK" ) ) ){
- StockingPoint_MP::Create( this,
- "F13_FG_STOCK",
- "F13",
- name,
- unitofmeasurename,
- currencyname,
- isplannedinfinite,
- datestart,
- dateend,
- groupname,
- description,
- isfromdb );
+ if ( isnull( StockingPoint_MP::FindById( this, "F13_FG_STOCK" ) ) ) {
+ StockingPoint_MP::Create( "F13_FG_STOCK", this, null( Unit ), "F13_FG_STOCK", null( SupplyChainView ), 0, 0, false );
}
- if( isnull( StockingPoint_MP::FindById( this, "H10_SA_STOCK" ) ) ){
- StockingPoint_MP::Create( this,
- "H10_SA_STOCK",
- "H10",
- name,
- unitofmeasurename,
- currencyname,
- isplannedinfinite,
- datestart,
- dateend,
- groupname,
- description,
- isfromdb );
+ if ( isnull( StockingPoint_MP::FindById( this, "H10_SA_STOCK" ) ) ) {
+ StockingPoint_MP::Create( "H10_SA_STOCK", this, null( Unit ), "H10_SA_STOCK", null( SupplyChainView ), 0, 0, false );
}
- if( isnull( StockingPoint_MP::FindById( this, "Q10_FG_STOCK" ) ) ){
- StockingPoint_MP::Create( this,
- "Q10_FG_STOCK",
- "Q10",
- name,
- unitofmeasurename,
- currencyname,
- isplannedinfinite,
- datestart,
- dateend,
- groupname,
- description,
- isfromdb );
+ if ( isnull( StockingPoint_MP::FindById( this, "Q10_FG_STOCK" ) ) ) {
+ StockingPoint_MP::Create( "Q10_FG_STOCK", this, null( Unit ), "Q10_FG_STOCK", null( SupplyChainView ), 0, 0, false );
}
- 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();
- }
+ if ( isnull( Currency_MP::FindById( this, "CNY" ) ) ) {
+ Currency_MP::Create( "CNY", this, "CNY", "", false, false );
+ }
isproductcatagory := false;
isfromdb := false;
- existproductlevel := ProductLevel_MP::FindProductLevelTypeIndex( "2" );
- if( isnull( existproductlevel ) ){
+ if ( isnull( ProductLevel_MP::FindProductLevelTypeIndex( "1" ) ) ) {
ProductLevel_MP::Create( "1", isproductcatagory, this, isfromdb );
+ }
+ if ( isnull( ProductLevel_MP::FindProductLevelTypeIndex( "2" ) ) ) {
ProductLevel_MP::Create( "2", isproductcatagory, this, isfromdb );
+ }
+ if ( isnull( ProductLevel_MP::FindProductLevelTypeIndex( "3" ) ) ) {
ProductLevel_MP::Create( "3", isproductcatagory, this, isfromdb );
- }
+ }
*]
}
--
Gitblit v1.9.3