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
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  StaticMethod HandlePP ( 
 |    Archive archive, 
 |    MacroPlan macroPlan, 
 |    String userName, 
 |    String ppFileName, 
 |    BinaryValue ppBinaryValue, 
 |    Boolean isPPArchive, 
 |    String filePath 
 |  ) 
 |  { 
 |    TextBody: 
 |    [* 
 |      // 请求参数 
 |      pathPP    := filePath + ppFileName; 
 |      isArchive := ifexpr( isPPArchive, "true", "false" ); 
 |      minorKey  := [String]macroPlan.MDSID().MinorKey(); 
 |      json      := JSON::Object() 
 |                   .Add( "path", pathPP ) 
 |                   .Add( "isArchive", isArchive ) 
 |                   .Add( "minorKey", minorKey ).Build().AsString(); 
 |       
 |      // 写入临时文件 
 |      Archive::WriteTempFile( pathPP, ppBinaryValue ); 
 |       
 |      info( json ); 
 |       
 |      // 调用接口 
 |      //url := "/PR/Import"; 
 |      //i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() ); 
 |      //i.URL( url ); 
 |      //i.PostMethod( true ); 
 |      // 
 |      //try { 
 |      //  i.Call( json ); 
 |      //   
 |      //  htmlresult := i.Result(); 
 |      //} onerror { 
 |      // 
 |      //} 
 |    *] 
 |  } 
 |  
  |