lazhen
2024-05-24 8e6b4fbf0ced25ea7bed8fc8fa8364bb104d05c2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Quintiq file version 2.0
#parent: #root
StaticMethod HandlePR (
  Archive archive,
  MacroPlan macroPlan,
  String userName,
  String prFileName,
  BinaryValue prBinaryValue,
  Boolean isPRArchive,
  String filePath
)
{
  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();
    
    // 写入临时文件
    Archive::WriteTempFile( pathPR, prBinaryValue );
    
    info( json );
    
    // 调用接口
    url := "/PR/Import";
    
    i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() );
    i.URL( url );
    i.PostMethod( true );
    i.MediaType( "application/json" );
    
    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 );
    }
  *]
}