修复下发时候无法显示error的问题

xiaoding721

2024-10-31 5e5a0d4eb60f70b969ece9c6c4cc90d28c2edf55

 _Main/BL/Type_DispatchShiftSchedulingInformation/StaticMethod_DispatchCC.qbl

@@ -2,13 +2,14 @@
#parent: #root
StaticMethod DispatchCC (
  const RecycleBin recycleBin
) as String
) as owning JSON
{
  TextBody:
  [*
    // Akari Oct-28-2024 (created)
    // 接口地址：172.18.1.12/PPPS/AddPlan ---长春地址
    url := "http://172.18.1.12/PPPS/AddPlan";
    address := "172.18.1.12";
    url := "/PPPS/AddPlan";
    
    datas := selectset( recycleBin,DispatchShiftSchedulingLine.DispatchShiftSchedulingProduct,object,object.DispatchShiftSchedulingLine().Fac() = "CC" );
    
@@ -35,20 +36,25 @@
      datas_Json.Add( data_Json );
    }
    
    info( datas_Json.Build().AsString() );
    
    i := HTTPInterface::Create( url, 80 );
    i := HTTPInterface::Create( address, 80 );
    i.URL( url );
    i.PostMethod( true );
    i.MediaType( "application/json" );
    i.TimeOut( Duration::Minutes( 5 ) );
    
    i.Call( datas_Json.AsString() );
      
    resultJson := JSON::Object();
    resultJson.Add( "jsonStr", datas_Json.Build().AsString() );
    
    json := resultJson.Build().AsString();
    
    LocalTool::WriteStringToFile( json );
    
    i.Call( json );
    
    htmlresult := i.Result();
      
    
    respJSON   := JSON::Parse( htmlresult );
    
    return respJSON.Get( "Message" ).AsString();
    return &respJSON;
  *]
}