SAP接口PL数量乘以四

lazhen

2024-12-03 63c7e5158f06baee49dba32e78f9d360b502ed8c

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl

@@ -2,6 +2,7 @@
#parent: #root
StaticMethod GenerateData (
  InterfaceDataset owner,
  MacroPlan macroplan,
  String werk,
  String version,
  Date startdate,
@@ -45,8 +46,12 @@
          if( not exists( productids, Elements, e, e = quantityrow.ProductID() ) ){
            productids.Add( quantityrow.ProductID() );
          }
      
          pir.PIRData( relnew, Product := quantityrow.ProductID(), PlanningDate := column.StartDate(), PlanningQty := [Number]cell.Quantity(), Werk := rowwerk );
          product          := selectobject( macroplan, Product_MP, product, product.ID() = quantityrow.Name() );
          planqty          := [Number]cell.Quantity();
          if( not isnull( product ) and exists( product.GetAllParent(), Elements, proparent, proparent.ID() = 'PL' ) ){
            planqty        := planqty *  4;
          }
          pir.PIRData( relnew, Product := quantityrow.ProductID(), PlanningDate := column.StartDate(), PlanningQty := planqty, Werk := rowwerk );
        }
      }
    }
@@ -64,7 +69,12 @@
          if( isnull( pirdata ) ){
            pirdata        := pir.PIRData( relnew, Product := row.ProductID(), PlanningDate := column.StartDate(), PlanningQty := 0, Werk := rowwerk );
          }
          pirdata.PlanningQty( pirdata.PlanningQty() + [Number]cell.Quantity() );
          product          := selectobject( macroplan, Product_MP, product, product.ID() = row.Name() );
          planqty          := [Number]cell.Quantity();
          if( not isnull( product ) and exists( product.GetAllParent(), Elements, proparent, proparent.ID() = 'PL' ) ){
            planqty        := planqty *  4;
          }
          pirdata.PlanningQty( pirdata.PlanningQty() + planqty );
        }
      }
    }