Fix Currency bug

yanyuan

2023-11-06 330f70c9c8dbb88df2cc716dfad5d3e0f842e2de

Fix Currency bug

由于API接口传输数据并非布尔型，因此在原代码中会将所有货币设置为非基础货币，目前已修改

 _Main/BL/Type_GlobalDTOTable/Method_SynchronizeDataToMacroPlan#127.qbl

@@ -44,7 +44,7 @@
      }
    
    if( organcodelist.Size() = 0 ){
      organcodelist := selectvalues( this, Global_MappingOperationBOM, bom,true, bom.OrganCode() );
      organcodelist := selectuniquevalues( this, Global_MappingOperationBOM, bom,true, bom.OrganCode() );
      }
    
    macroPlan.InitialUnitAndStockingPoint();

 _Main/BL/Type_Global_MappingCurrency_MP/StaticMethod_CreateByAPI.qbl

@@ -31,7 +31,8 @@
      globalOTDTable.Global_MappingCurrency_MP( relnew,
                                                ID     := guard( datalist.Get( j ).Get( "id" ).GetString(), "" ),
                                                Name   := guard( datalist.Get( j ).Get( "name" ).GetString(), "" ),
                                                IsBase := guard( datalist.Get( j ).Get( "isbase" ).GetBoolean(), false )
    //                                            IsBase := guard( datalist.Get( j ).Get( "isbase" ).GetBoolean(), false )
                                                IsBase := ifexpr( datalist.Get( j ).Get( "isbase" ).GetString() = "TRUE", true, false )
                                               );
    }
    

 _Main/BL/Type_MacroPlan/StaticMethod_DoASync#253.qbl

@@ -22,9 +22,10 @@
    organcodelist := selectvalues( businessType, OrganCode, organ, true, organ.OrganCodeName() );
    
    if( organcodelist.Size() = 0 ){
      organcodelist := selectvalues( globalOTDTable, Global_MappingOperationBOM, bom,true, bom.OrganCode() );
      organcodelist := selectuniquevalues( globalOTDTable, Global_MappingOperationBOM, bom,true, bom.OrganCode() );
      }
    
    info( "Organcode list : " + organcodelist.ToString( "-" ) );
    info( "KeyProduct : " + [String]isKeyProduct )
    info( "Create purchase supply material : " + [String]createPurchaseSupplyMaterial )