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

xiaoding721

2024-10-31 5e5a0d4eb60f70b969ece9c6c4cc90d28c2edf55

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

 _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;
  *]
}

 _Main/BL/Type_DispatchShiftSchedulingInformation/StaticMethod_DispatchDL.qbl

@@ -2,7 +2,7 @@
#parent: #root
StaticMethod DispatchDL (
  const RecycleBin recycleBin
) as String
) as owning JSON
{
  TextBody:
  [*
@@ -55,12 +55,6 @@
    
    respJSON   := JSON::Parse( htmlresult );
    
    result := respJSON.Get( "State" ).AsString();
    message := respJSON.Get( "Message" ).AsString();
    if( result = "Error" ){
      error( "远程服务器返回了一个错误：" + message );
    }
    
    return message;
    return &respJSON;
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_FormDispatchShiftSchedulingInformation/Response_PanelDispatchShiftSchedulingInformation_bDispatch_OnClick.def

@@ -27,12 +27,24 @@
      factoryNameEnglish := factoryNameEnglish.SubString( 0,factoryNameEnglish.Length() - 1 );
      if( WebMessageBox::Question( Translations::RecycleBin_DispatchShiftSchedulingDispatchCheck( factoryNameChinese,factoryNameEnglish ),Translations::MessageBox_YesNo() ) = 0 ){
        if( cbCC.Checked() ){
          message := DispatchShiftSchedulingLine::DispatchCC( RecycleBin );
          WebMessageBox::Information( message );
          respJSON := DispatchShiftSchedulingLine::DispatchCC( RecycleBin );
          result := respJSON.Get( "State" ).AsString(); 
          message := respJSON.Get( "Message" ).AsString();
          if( result = "Error" ){
            WebMessageBox::Error( "远程服务器返回了一个错误：" + message );
          }else{
            WebMessageBox::Information( message );
          }
        }
        if( cbDL.Checked() ){
          message := DispatchShiftSchedulingLine::DispatchDL( RecycleBin ); 
          WebMessageBox::Information( message );
          respJSON := DispatchShiftSchedulingLine::DispatchDL( RecycleBin ); 
          result := respJSON.Get( "State" ).AsString();
          message := respJSON.Get( "Message" ).AsString();
          if( result = "Error" ){
            WebMessageBox::Error( "远程服务器返回了一个错误：" + message );
          }else{
            WebMessageBox::Information( message );
          }
        }
        WebMessageBox::Success( "下发成功" );
      }else{