sap接口提示错误信息

lazhen

2024-11-28 db4a0cee22a752f4728c9ff9f4c28f557cf6fd4f

sap接口提示错误信息

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl

@@ -10,7 +10,7 @@
  Boolean versionflag,
  const Product_MPs products,
  String executor
)
) as String
{
  TextBody:
  [*
@@ -49,7 +49,7 @@
      
    }
    loginfo.TotalRow( ms64.MS64Data( relsize ) );
    AOnlineAndMOfflinePlanMS64::Publish( owner, loginfo );
    return AOnlineAndMOfflinePlanMS64::Publish( owner, loginfo );
    //InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
  *]
}

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_Publish.qbl

@@ -3,7 +3,7 @@
StaticMethod Publish (
  InterfaceDataset owner,
  InterfaceLoginfo loginfo
)
) as String
{
  TextBody:
  [*
@@ -30,6 +30,7 @@
    loginfo.RequestBody( jsondata.Build().AsString() );
    info( loginfo.RequestBody() );
    data              := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
    info( '----------------', data.Size() );
    info( '----------------', data );
    return data;
  *]
}

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl

@@ -7,7 +7,7 @@
  Date startdate,
  Date enddate,
  String executor
)
) as String
{
  TextBody:
  [*
@@ -80,6 +80,6 @@
      }
    }
    loginfo.TotalRow( pir.PIRData( relsize ) );
    AOnlineAndMOfflinePlanPIR::Publish( owner, loginfo );
    return AOnlineAndMOfflinePlanPIR::Publish( owner, loginfo );
  *]
}

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_Publish.qbl

@@ -3,7 +3,7 @@
StaticMethod Publish (
  InterfaceDataset owner,
  InterfaceLoginfo loginfo
)
) as String
{
  TextBody:
  [*
@@ -30,6 +30,7 @@
    loginfo.RequestBody( jsondata.Build().AsString() );
    info( loginfo.RequestBody() );
    data              := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
    info( '----------------', data.Size() );
    info( '----------------', data );
    return data;
  *]
}

 _Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterfaceForSAPGet.qbl

@@ -3,7 +3,7 @@
StaticMethod CallInterfaceForSAPGet (
  InterfaceDataset owner,
  InterfaceLoginfo loginfo
) as owning InterfaceSAPResponseLoginfos
) as String
{
  Description: '调用数据中台接口'
  TextBody:
@@ -31,7 +31,8 @@
    //后续公共处理
    loginfo.FinishTime( DateTime::ActualTime() );
    data             := JSON::Null().Build();
    saploginfos      := construct( InterfaceSAPResponseLoginfos );
    sapresponse      := construct( InterfaceSAPResponseLoginfos );
    feedback         := '';
    if( loginfo.Success() ){
      resultJson     := JSON::Parse( loginfo.Response() );
      code           := resultJson.Get( "code" ).GetNumber();
@@ -47,10 +48,22 @@
      }
      for( i := 0; i < data.Size(); i++ ){
        item := data.Get( i );
        saploginfos.Add( InterfaceSAPResponseLoginfo::GenerateData( loginfo, item ) );
        sapresponse.Add( InterfaceSAPResponseLoginfo::GenerateData( loginfo, item ) );
      }
      sucproduct     := selectuniquevalues( sapresponse, Elements, e, e.IsSuccess(), e.Msg_v1() );
      failmssages    := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess(), ifexpr( e.Msg().FindString( e.Msg_v1(), 0 ) > -1, e.Msg().ReplaceAll( e.Msg_v1(), '*' ), e.Msg() ) );
      feedback.Concat( '产品' ).Concat( sucproduct.Concatenate( "、" ) ).Concat( '推送成功' ).Concat( '；' );
      traverse( failmssages, Elements, failmsg ){
        failproduct  := selectuniquevalues( sapresponse, Elements, e, not e.IsSuccess() and ( failmsg = e.Msg() or failmsg = e.Msg().ReplaceAll( e.Msg_v1(), '*' ) ), e.Msg_v1() );
        if( failmsg.FindString( '*', 0  ) > -1 ){
          feedback.Concat( failmsg.ReplaceAll( '*', failproduct.Concatenate( '、' ) ) ).Concat( '；' );
        }else{
          feedback.Concat( '产品' ).Concat( failproduct.Concatenate( '、' ) ).Concat( '因为' ).Concat( failmsg ).Concat( '推送失败' ).Concat( '；' );
        }
      }
      feedback       := feedback.Replace( feedback.Length() - 1, 1, '。' );
    }
    
    return &saploginfos;
    return feedback;
  *]
}

 _Main/BL/Type_InterfaceLoginfo/StaticMethod_SyncMiddle.qbl

@@ -7,15 +7,15 @@
  TextBody:
  [*
    // 甄兰鸽 Aug-23-2024 (created)
    owner.IL_InterfaceLogInfoMiddlesBroker().Execute();
    // 清空临时数据库
    owner.IL_InterfaceLogInfoMiddlesBroker().Source().FlatQuery( "truncate table A_InterfaceLogInfoMiddle" );
    traverse( owner, InterfaceLoginfoMiddle, middle ){
      loginfo := selectobject( owner, InterfaceLoginfo, loginfo, loginfo.Name() = middle.Name() and loginfo.IsShow() = false and loginfo.Last() = true );
      loginfo.FinishTime( middle.FinishTime() );
      loginfo.Response( middle.Response() );
      loginfo.IsShow( true );
      middle.Delete();
    }
    //owner.IL_InterfaceLogInfoMiddlesBroker().Execute();
    //// 清空临时数据库
    //owner.IL_InterfaceLogInfoMiddlesBroker().Source().FlatQuery( "truncate table A_InterfaceLogInfoMiddle" );
    //traverse( owner, InterfaceLoginfoMiddle, middle ){
    //  loginfo := selectobject( owner, InterfaceLoginfo, loginfo, loginfo.Name() = middle.Name() and loginfo.IsShow() = false and loginfo.Last() = true );
    //  loginfo.FinishTime( middle.FinishTime() );
    //  loginfo.Response( middle.Response() );
    //  loginfo.IsShow( true );
    //  middle.Delete();
    //}
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def

@@ -18,8 +18,8 @@
    if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
      currentuser     := QuintiqUser::CurrentUser().DisplayName();
      
      AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
      WebMessageBox::Success( "推送成功！" );
      msg             := AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
      WebMessageBox::Success( msg );
    }
    Form.Close();
  *]

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def

@@ -7,8 +7,8 @@
  [*
    Form.ApplyChanges();
    if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
      AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() );
      WebMessageBox::Success( "推送成功！" );
      msg   := AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() );
      WebMessageBox::Success( msg );
    }
    Form.Close();
  *]