Quintiq file version 2.0 
 | 
#parent: #root 
 | 
StaticMethod HandleBESI ( 
 | 
  Archive archive, 
 | 
  MacroPlan macroPlan, 
 | 
  String besiFileName, 
 | 
  BinaryValue besiBinaryValue, 
 | 
  String filePath 
 | 
) as owning JSON 
 | 
{ 
 | 
  TextBody: 
 | 
  [* 
 | 
    // 请求参数 
 | 
    pathBESI     := filePath + besiFileName; 
 | 
    macroPlanKey := [String]macroPlan.MDSID().MinorKey(); 
 | 
    json         := JSON::Object() 
 | 
                    .Add( "pathBESI", pathBESI ) 
 | 
                    .Add( "minorKey", macroPlanKey ).Build().AsString(); 
 | 
     
 | 
    // 写入临时文件 
 | 
    Archive::WriteTempFile( pathBESI, besiBinaryValue ); 
 | 
     
 | 
    // 调用接口 
 | 
    url := "/BESI/Import"; 
 | 
     
 | 
    i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() ); 
 | 
    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 ); 
 | 
     
 | 
    return &respJSON; 
 | 
  *] 
 | 
} 
 |