修复一些bug

xiaoding721

2024-10-29 11b179f35b54d33f8414ccaa815b5fa8313b7746

 _Main/BL/Type_DispatchShiftSchedulingInformation/StaticMethod_DispatchCC.qbl

@@ -13,28 +13,29 @@
    datas := selectset( recycleBin,DispatchShiftSchedulingLine.DispatchShiftSchedulingProduct,object,object.DispatchShiftSchedulingLine().Fac() = "CC" );
    
    datas_Json := JSON::Array();
    
    traverse( datas,Elements,product ){
    traverse( datas,Elements,product ,product.DispatchShiftSchedulingDetail( relsize ) <> 0 ){
      line := product.DispatchShiftSchedulingLine();
      
      data_Json := JSON::Object();
      datas_Json.Add( data_Json );
      
      data_Json.Add( "LineName" , line.LineName() );
      data_Json.Add( "ProductionDate",line.ShiftDate().Format( "Y-M2-D2" ));
      data_Json.Add( "shiftCode" , line.ShiftName() );
      
      details_Json := JSON::Array();
      data_Json.Add( "planItems",details_Json );
      traverse( product,DispatchShiftSchedulingDetail,detail ){
        detail_Json := JSON::Object();
        details_Json.Add( detail_Json );
        detail_Json.Add( "ShiftName",detail.SingleShiftName() );
        detail_Json.Add( "Quantity",detail.ShiftVolume() );
        detail_Json.Add( "ProductNo",detail.DispatchShiftSchedulingProduct().ProductID() );
        
        details_Json.Add( detail_Json );
      }
    
      data_Json.Add( "planItems",details_Json );
      datas_Json.Add( data_Json );
    }
    
    info( datas_Json.AsString() );
    info( datas_Json.Build().AsString() );
    
    i := HTTPInterface::Create( url, 80 );
    i.URL( url );