PR，PP，Budget 功能

xiaoding721

2024-05-27 191fc5cc2e5eeaff377b749dfa7e497fe503506b

 _Main/BL/Type_Archive/StaticMethod_HandlePR.qbl

@@ -7,29 +7,26 @@
  String prFileName,
  BinaryValue prBinaryValue,
  Boolean isPRArchive,
  String filePath
)
  String filePath,
  Boolean isOverwriteFile
) as stream[JSON]
{
  TextBody:
  [*
    // 请求参数
    pathPR    := filePath + prFileName;
    isArchive := ifexpr( isPRArchive, "true", "false" );
    minorKey  := [String]macroPlan.MDSID().MinorKey();
    json      := JSON::Object()
                 .Add( "pathPR", pathPR )
                 .Add( "isArchive", isArchive )
                 .Add( "minorKey", minorKey ).Build().AsString();
    pathPR     := filePath + prFileName;
    isArchive  := ifexpr( isPRArchive, "true", "false" );
    isOverride := ifexpr( isOverwriteFile, "true", "false" );
    minorKey   := [String]macroPlan.MDSID().MinorKey();
    json       := JSON::Object()
                  .Add( "pathPR", pathPR )
                  .Add( "isArchive", isArchive )
                  .Add( "isOverride", isOverride )
                  .Add( "minorKey", minorKey ).Build().AsString();
    
    // 写入临时文件
    Archive::WriteTempFile( pathPR, prBinaryValue );
    
    info( json );
    for ( i := 0; i < 10000; i++ ) {
      for ( j := 0; j < 20000; j++ ) {
        info( i + j ); 
      } 
    }
    // 调用接口
    url := "/PR/Import";
    
@@ -37,19 +34,14 @@
    i.URL( url );
    i.PostMethod( true );
    i.MediaType( "application/json" );
    i.TimeOut( Duration::Minutes( 5 ) );
    
    i.Call( json );
      
    htmlresult := i.Result();
      
    respJSON   := JSON::Parse( htmlresult );
    code       := respJSON.Get( "code" ).GetNumber();
    message    := respJSON.Get( "message" ).GetString();
      
    if ( code = 200 ) {
    
    } else {
      error( message );
    }
    return emit( respJSON );
  *]
}