BUG&优化项

陈清红

2025-04-14 0b84c9999f07bc46275f5947c4b8ebf5ce0c25cf

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_Publish.qbl

@@ -2,7 +2,8 @@
#parent: #root
StaticMethod Publish (
  InterfaceDataset owner,
  InterfaceLoginfo loginfo
  InterfaceLoginfo loginfo,
  Product_MPs products
) as String
{
  TextBody:
@@ -12,7 +13,8 @@
    
    traverse( loginfo, AOnlineAndMOfflinePlanPIR, pir ){
      jsonarray        := JSON::Array();//.Add( "dto", JSON::Object().Add( "dday", date.Format( "Y-M2-D2" ) ).Add( "fac", "" ) ).Build();
      traverse( pir, PIRData, pirdata ){
      traverse( pir, PIRData, pirdata, exists( products, Elements, tempP, 
                                               ifexpr( tempP.ParentID() = "MLB" or tempP.ParentID() = "MQB", tempP.Notes(), tempP.ID() ) = pirdata.Product() ) ){
        pirjson        := JSON::Object().Add( "product", pirdata.Product() )
                                        .Add( "planningDate", pirdata.PlanningDate().Format( 'YM2D2' ) )//"2024-10-01" )
                                        .Add( "planningQty", pirdata.PlanningQty() )
@@ -27,10 +29,16 @@
      .Add( 'dataList', jsonarray );
    }
    
    loginfo.RequestBody( jsondata.Build().AsString() );
    //info( loginfo.RequestBody() );
    // 设置请求体
    requestBody := jsondata.Build().AsString();
    loginfo.RequestBody( requestBody );
    
    info( loginfo.RequestBody() );
    data              := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
    
    //info( '----------------', data );
    //data := "Test";
    
    return data;
  *]
}