存档报表界面去掉日期区分列

lazhen

2024-11-21 4534d2c0921049d9d150ba0c31f76cb445bdd365

存档报表界面去掉日期区分列

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl

@@ -37,7 +37,7 @@
    pir                    := owner.AOnlineAndMOfflinePlanPIR( relnew, ZPPPSCode := OS::GenerateGUIDAsString(), Werk := AOnlineAndMOfflinePlanPIR::GetWerk( werk ), Version := version, StartDate := startdate, EndDate := enddate );
    loginfo.AOnlineAndMOfflinePlanPIR( relinsert, pir );
    traverse( owner, AssemblyOnlinePlanVersion, verison, not verison.IsShow() ){
      traverse( verison, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() and column.StartDate() >= startdate and column.StartDate() <= enddate ){
      traverse( verison, Column, column, column.StartDate() >= startdate and column.StartDate() <= enddate ){//column.TimeUnit() = Translations::MP_GlobalParameters_Day() and 
        traverse( column, Cell, cell, ( werk = 'All' or cell.Row().Unit().FindString( werk, 0 ) > -1 ) ){
          quantityrow      := cell.Row();
          rowwerk          := ifexpr( quantityrow.ProductionLine().FindString( "CC", 0 ) > -1, AOnlineAndMOfflinePlanPIR::GetWerk( FinancialProductionReport::GetDefaultCCUnit() ), AOnlineAndMOfflinePlanPIR::GetWerk( FinancialProductionReport::GetDefaultDLUnit() ) );
@@ -51,7 +51,7 @@
    }
    
    traverse( owner, OfflinePlanArchiveVersion, table, not table.IsShow() ){
      traverse( table, Column, column, column.StartDate() >= startdate and column.StartDate() <= enddate ){
      traverse( table, Column, column, column.StartDate() >= startdate and column.StartDate() <= enddate ){//column.TimeUnit() = Translations::MP_GlobalParameters_Day() and 
        traverse( column, Cell, cell, ( werk = 'All' or cell.Row().Unit().FindString( werk, 0 ) > -1 )
                  and ( cell.Row().ProductionLine() <> 'DL_MOMO' or cell.Row().ProductionLine() <> 'CC_MOMO' ) ){
          row              := cell.Row();
@@ -68,7 +68,7 @@
      }
    }
    traverse( productids, Elements, e ){
      for( date        := startdate.StartOfWeek(); date <= enddate; date := ( date + Duration::Days( 1 ) ).Date() ){
      for( date        := startdate.StartOfYear(); date <= enddate; date := ( date + Duration::Days( 1 ) ).Date() ){
        if( not exists( pir, PIRData, pirdata, pirdata.Product() = e and pirdata.PlanningDate() = date ) ){
          if( werk = 'All' ){
            pir.PIRData( relnew, Product := e, PlanningDate := date, PlanningQty := 0, Werk := '8200' );

 _Main/BL/Type_AssemblyOnlinePlanColumn0/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl

@@ -29,7 +29,7 @@
                                                                 , Last                      := true
                                                                  );
    traverse( interfaceDataset, AssemblyOnlinePlanVersion, verison, not verison.IsShow() ){
      traverse( verison, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() ){
      traverse( verison, Column, column ){//, column.TimeUnit() = Translations::MP_GlobalParameters_Day()
        traverse( column, Cell, cell ){
          row              := cell.Row();
          if( ( iscc and row.Unit() = FinancialProductionReport::GetDefaultCCUnit() ) or ( isdl and row.Unit() = FinancialProductionReport::GetDefaultDLUnit() ) ){

 _Main/BL/Type_AssemblyOnlinePlanVersion/Method_Generate.qbl

@@ -10,28 +10,28 @@
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    info( '-----------Search start-------' );
    table                   := selectobject( this,InterfaceDataset.AssemblyOnlinePlanVersion, report, not report.IsShow() );
    //清空之前存储的显示数据
    aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    this.Clear( aopcolumns );
    traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.ProductionLine() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 )  ){
      
      showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
      if( isnull( showrow ) ){
        showrow             := this.Row( relnew, Name := row.Name(), ProductID := row.ProductID(), ProductionLine := row.ProductionLine(), Type := row.Type(), Unit := search.Unit() );
      }
      traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
        column              := selectobject( this, Column, column, column.ColumnName() = cell.Column().ColumnName() );
        if( not isnull( column ) ){
          showcell          := selectobject( showrow, Cell, showcell, showcell.Column() = column );
          if( isnull( showcell ) ){
            showcell        := column.Cell( relnew, Quantity := 0 );
            showrow.Cell( relinsert, showcell );
          }
          showcell.Quantity( cell.Quantity() + showcell.Quantity() );
        }
      }
    }
    //table                   := selectobject( this,InterfaceDataset.AssemblyOnlinePlanVersion, report, not report.IsShow() );
    ////清空之前存储的显示数据
    //aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    //this.Clear( aopcolumns );
    //traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.ProductionLine() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 )  ){
    //  
    //  showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
    //  if( isnull( showrow ) ){
    //    showrow             := this.Row( relnew, Name := row.Name(), ProductID := row.ProductID(), ProductionLine := row.ProductionLine(), Type := row.Type(), Unit := search.Unit() );
    //  }
    //  traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
    //    column              := selectobject( this, Column, column, column.ColumnName() = cell.Column().ColumnName() );
    //    if( not isnull( column ) ){
    //      showcell          := selectobject( showrow, Cell, showcell, showcell.Column() = column );
    //      if( isnull( showcell ) ){
    //        showcell        := column.Cell( relnew, Quantity := 0 );
    //        showrow.Cell( relinsert, showcell );
    //      }
    //      showcell.Quantity( cell.Quantity() + showcell.Quantity() );
    //    }
    //  }
    //}
    info( '-----------Search end-------' );
  *]
}

 _Main/BL/Type_AssemblyOnlinePlanVersion/Method_GenerateColumn.qbl

@@ -8,40 +8,40 @@
  TextBody:
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    timeunit              := guard( this.InterfaceDataset().AssemblyOnlinePlanVersionSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    weekstart             := periods.Element( 0 );
    
    monthstart            := periods.Element( 0 );
    //timeunit              := guard( this.InterfaceDataset().AssemblyOnlinePlanVersionSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    //weekstart             := periods.Element( 0 );
    //
    //monthstart            := periods.Element( 0 );
    traverse( periods, Elements, periodtime ){
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
        periodname        := periodtime.Format( "M2/D2/Y" );
        
        this.Column( relnew, ColumnName := periodname, StartDate := periodtime, EndDate := periodtime, TimeUnit := Translations::MP_GlobalParameters_Day() );
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
        weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
        if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
          weekstart       := periodtime;
        }
        if( periodtime = weekstart ){
          weekperiodname  := weekstart.Format( "M2/D2/Y" );
          this.Column( relnew, ColumnName := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
          
        }
        weekstart         := periodtime.StartOfNextWeek();
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
        if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
          monthstart      := periodtime;
        }
        if( periodtime = monthstart ){
          monthperiodname := monthstart.Format( "M2/D2/Y" );
          enddate         := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
          this.Column( relnew, ColumnName := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
          
        }
        monthstart        := periodtime.StartOfNextMonth();
      }
        this.Column( relnew, ColumnName := periodname, StartDate := periodtime, EndDate := periodtime );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
    //    weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
    //    if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
    //      weekstart       := periodtime;
    //    }
    //    if( periodtime = weekstart ){
    //      weekperiodname  := weekstart.Format( "M2/D2/Y" );
    //      this.Column( relnew, ColumnName := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
    //      
    //    }
    //    weekstart         := periodtime.StartOfNextWeek();
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
    //    if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
    //      monthstart      := periodtime;
    //    }
    //    if( periodtime = monthstart ){
    //      monthperiodname := monthstart.Format( "M2/D2/Y" );
    //      enddate         := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
    //      this.Column( relnew, ColumnName := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
    //      
    //    }
    //    monthstart        := periodtime.StartOfNextMonth();
    //  }
    }
  *]
}

 _Main/BL/Type_AssemblyOnlinePlanVersion/Method_GetColumnByTimeUnit.qbl

@@ -9,7 +9,7 @@
  [*
    // ç”„兰鸽 Aug-7-2024 (created)
    
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period and column.TimeUnit() = unit );
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period );// and column.TimeUnit() = unit
    
    return column;
  *]

 _Main/BL/Type_AssemblyOnlinePlanVersion/StaticMethod_InitiateSearch.qbl

@@ -10,12 +10,11 @@
    allunit                   := FinancialProductionReport::GetDefaultAllUnit();
    search                    := owner.AssemblyOnlinePlanVersionSearch();
    if( isnull( owner.AssemblyOnlinePlanVersionSearch() ) ){
      search                  := owner.AssemblyOnlinePlanVersionSearch( relnew, Product := allunit, ProductionLine := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
      search                  := owner.AssemblyOnlinePlanVersionSearch( relnew, Product := allunit, ProductionLine := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
    }else{
      search                  := owner.AssemblyOnlinePlanVersionSearch();
      search.Product( allunit );
      search.ProductionLine( allunit );
      search.TimeUnit(  Translations::MP_GlobalParameters_Day() );
      search.Unit( allunit );
      search.StartDate( Date::MinDate() );
      search.EndDate( Date::MaxDate() );

 _Main/BL/Type_AssemblyOnlinePlanVersion/StaticMethod_RefreshData.qbl

@@ -11,7 +11,7 @@
    interface.AssemblyOnlinePlanVersion( relflush );
    allunit                := AssemblyOnlinePlanVersion::GetDefaultAllUnit();
    name                   := AssemblyOnlinePlanVersion::GetDefaultName();//search                 := 
    search                 := interface.AssemblyOnlinePlanVersionSearch( relnew, Product := allunit, ProductionLine := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
    search                 := interface.AssemblyOnlinePlanVersionSearch( relnew, Product := allunit, ProductionLine := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    table                  := selectobject( interface, AssemblyOnlinePlanVersion, version, not version.IsShow() );
    if( isnull( table ) ){
      table                := interface.AssemblyOnlinePlanVersion( relnew, ID := name, Name := name );
@@ -20,7 +20,7 @@
    if( isnull( showtable ) ){
      showtable               := interface.AssemblyOnlinePlanVersion( relnew, ID := name, Name := name, IsShow := true );
    }
    aopcolumns             := selectuniquevalues(  macroPlan, NewAssemblyOnlinePlanColumn, aopcolumn, not exists( table, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() and column.StartDate() = aopcolumn.StartDate() ), aopcolumn.StartDate() );
    aopcolumns             := selectuniquevalues(  macroPlan, NewAssemblyOnlinePlanColumn, aopcolumn, not exists( table, Column, column, column.StartDate() = aopcolumn.StartDate() ), aopcolumn.StartDate() );//, column.TimeUnit() = Translations::MP_GlobalParameters_Day()
    if( aopcolumns.Size() > 0 ){
      table.GenerateColumn( aopcolumns, false );
    }

 _Main/BL/Type_AssemblyOnlinePlanVersionSearch/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_AssemblyOnlinePlanVersionSearch/DefaultValue_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_CustomerDemandIDS/Method_Generate.qbl

@@ -9,29 +9,29 @@
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    info( '-----------Search start-------' );
    table                   := selectobject( this,InterfaceDataset.CustomerDemandIDS, report, not report.IsShow() );
    //清空之前存储的显示数据
    idscolumns              := selectuniquevalues(  table, Column, idscolumn, idscolumn.TimeUnit() = search.TimeUnit() and idscolumn.StartDate() >= search.StartDate() and idscolumn.StartDate() <= search.EndDate(), idscolumn.StartDate() );
    this.Clear( idscolumns );
    traverse( table, Row, row, ( search.Unit() = FinancialProductionReport::GetDefaultAllUnit() or row.Factory() = search.Unit() ) 
              and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
      
      showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Factory() = search.Unit() );
      if( isnull( showrow ) ){
        showrow             := this.Row( relnew, Name := row.Name(), Factory := search.Unit() );
      }
      traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
        column              := selectobject( this, Column, column, column.Name() = cell.Column().Name() );
        if( not isnull( column ) ){
          showcell          := selectobject( showrow, Cell, showcell, showcell.Column() = column );
          if( isnull( showcell ) ){
            showcell        := column.Cell( relnew, Value := '' );
            showrow.Cell( relinsert, showcell );
          }
          showcell.Value( [String]( [Number]cell.Value() + [Number]showcell.Value() ) );
        }
      }
    }
    //table                   := selectobject( this,InterfaceDataset.CustomerDemandIDS, report, not report.IsShow() );
    ////清空之前存储的显示数据
    //idscolumns              := selectuniquevalues(  table, Column, idscolumn, idscolumn.TimeUnit() = search.TimeUnit() and idscolumn.StartDate() >= search.StartDate() and idscolumn.StartDate() <= search.EndDate(), idscolumn.StartDate() );
    //this.Clear( idscolumns );
    //traverse( table, Row, row, ( search.Unit() = FinancialProductionReport::GetDefaultAllUnit() or row.Factory() = search.Unit() ) 
    //          and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
    //  
    //  showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Factory() = search.Unit() );
    //  if( isnull( showrow ) ){
    //    showrow             := this.Row( relnew, Name := row.Name(), Factory := search.Unit() );
    //  }
    //  traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
    //    column              := selectobject( this, Column, column, column.Name() = cell.Column().Name() );
    //    if( not isnull( column ) ){
    //      showcell          := selectobject( showrow, Cell, showcell, showcell.Column() = column );
    //      if( isnull( showcell ) ){
    //        showcell        := column.Cell( relnew, Value := '' );
    //        showrow.Cell( relinsert, showcell );
    //      }
    //      showcell.Value( [String]( [Number]cell.Value() + [Number]showcell.Value() ) );
    //    }
    //  }
    //}
    info( '-----------Search end-------' );
  *]
}

 _Main/BL/Type_CustomerDemandIDS/Method_GenerateColumn.qbl

@@ -8,40 +8,40 @@
  TextBody:
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    timeunit              := guard( this.InterfaceDataset().CustomerDemandIDSSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    weekstart             := periods.Element( 0 );
    
    monthstart            := periods.Element( 0 );
    //timeunit              := guard( this.InterfaceDataset().CustomerDemandIDSSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    //weekstart             := periods.Element( 0 );
    //
    //monthstart            := periods.Element( 0 );
    traverse( periods, Elements, periodtime ){
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
        periodname        := periodtime.Format( "M2/D2/Y" );
        
        this.Column( relnew, Name := periodname, StartDate := periodtime, EndDate := periodtime, TimeUnit := Translations::MP_GlobalParameters_Day() );
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
        weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
        if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
          weekstart       := periodtime;
        }
        if( periodtime = weekstart ){
          weekperiodname  := weekstart.Format( "M2/D2/Y" );
          this.Column( relnew, Name := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
          
        }
        weekstart         := periodtime.StartOfNextWeek();
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
        if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
          monthstart        := periodtime;
        }
        if( periodtime = monthstart ){
          monthperiodname   := monthstart.Format( "M2/D2/Y" );
          enddate           := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
          this.Column( relnew, Name := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
          
        }
        monthstart        := periodtime.StartOfNextMonth();
      }
        this.Column( relnew, Name := periodname, StartDate := periodtime, EndDate := periodtime );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
    //    weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
    //    if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
    //      weekstart       := periodtime;
    //    }
    //    if( periodtime = weekstart ){
    //      weekperiodname  := weekstart.Format( "M2/D2/Y" );
    //      this.Column( relnew, Name := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
    //      
    //    }
    //    weekstart         := periodtime.StartOfNextWeek();
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
    //    if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
    //      monthstart        := periodtime;
    //    }
    //    if( periodtime = monthstart ){
    //      monthperiodname   := monthstart.Format( "M2/D2/Y" );
    //      enddate           := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
    //      this.Column( relnew, Name := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
    //      
    //    }
    //    monthstart        := periodtime.StartOfNextMonth();
    //  }
    }
  *]
}

 _Main/BL/Type_CustomerDemandIDS/Method_GetColumnByTimeUnit.qbl

@@ -10,7 +10,7 @@
    // ç”„兰鸽 Aug-7-2024 (created)
    //periodname := period.Format( "M2/D2/Y" );
    
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period and column.TimeUnit() = unit );
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period );// and column.TimeUnit() = unit
    
    return column;
  *]

 _Main/BL/Type_CustomerDemandIDS/StaticMethod_GenerateData.qbl

@@ -11,11 +11,11 @@
  TextBody:
  [*
    // ç”„兰鸽 Aug-20-2024 (created)
    interface.CustomerDemandIDS( relflush );
    //interface.CustomerDemandIDS( relflush );
    //interface.CustomerDemandIDSSearch( relflush );
    info( '-------------------------Start---------------------');
    allunit               := CustomerDemandIDS::GetDefaultAllUnit();
    search                := interface.CustomerDemandIDSSearch( relnew, Product := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate(), TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit );
    search                := interface.CustomerDemandIDSSearch( relnew, Product := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate(), Unit := allunit );
    name                  := '客户需求';
    idstable              := selectobject( interface, CustomerDemandIDS, idstable, idstable.ID() = name );
    if( isnull( idstable ) ){

 _Main/BL/Type_CustomerDemandIDS/StaticMethod_InitiateSearch.qbl

@@ -10,11 +10,10 @@
    allunit                   := FinancialProductionReport::GetDefaultAllUnit();
    search                    := owner.CustomerDemandIDSSearch();
    if( isnull( search ) ){
      search                  := owner.CustomerDemandIDSSearch( relnew, Product := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
      search                  := owner.CustomerDemandIDSSearch( relnew, Product := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
    }else{
      search                  := owner.CustomerDemandIDSSearch();
      search.Product( allunit );
      search.TimeUnit(  Translations::MP_GlobalParameters_Day() );
      search.Unit( allunit );
      search.StartDate( Date::MinDate() );
      search.EndDate( Date::MaxDate() );

 _Main/BL/Type_CustomerDemandIDSColumn/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_CustomerDemandIDSSearch/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_CustomerDemandIDSSearch/DefaultValue_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_InterfaceDataset/StaticMethod_PushOfflinePlanData.qbl

@@ -17,7 +17,7 @@
    jsonarray     := JSON::Array();
    
    traverse ( table, Row, r ){
      traverse ( table, Column, c, c.TimeUnit() = Translations::MP_GlobalParameters_Day() ) {
      traverse ( table, Column, c ) {//, c.TimeUnit() = Translations::MP_GlobalParameters_Day()
        cell := select( r, Cell, tempC, tempC.Column() = c );
        
        if ( not isnull( cell ) ) {

 _Main/BL/Type_InterfaceDataset/StaticMethod_PushPlanInventoryData.qbl

@@ -17,7 +17,7 @@
    jsonarray     := JSON::Array();
    
    traverse ( table, Row, r ){
      traverse ( table, Column, c, c.TimeUnit() = Translations::MP_GlobalParameters_Day() ) {
      traverse ( table, Column, c ) {//, c.TimeUnit() = Translations::MP_GlobalParameters_Day()
        cell := select( r, Cell, tempC, tempC.Column() = c );
        
        if ( not isnull( cell ) ) {

 _Main/BL/Type_InventoryPlanArchiveColumn/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_InventoryPlanArchiveColumn/DefaultValue_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_InventoryPlanArchiveVersion/Method_Generate.qbl

@@ -10,29 +10,30 @@
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    info( '-----------Search start-------' );
    table                   := selectobject( this,InterfaceDataset.InventoryPlanArchiveVersion, report, not report.IsShow() );
    //清空之前存储的显示数据
    aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    this.Clear( aopcolumns );
    traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.Unit() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
      
      showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
      if( isnull( showrow ) ){
        showrow             := this.Row( relnew, Name := row.Name(), ProductID := row.ProductID(), Unit := search.Unit() );
      }
      traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
        column              := selectobject( this, Column, column, column.Name() = cell.Column().Name() );
        if( not isnull( column ) ){
          showcell          := selectobject( showrow, Cell, showcell, showcell.Column() = column );
          if( isnull( showcell ) ){
            showcell        := showrow.Cell( relnew, PlanQuantity := 0, ActualQuantity := 0 );
            column.Cell( relinsert, showcell );
          }
          showcell.PlanQuantity( cell.PlanQuantity() + showcell.PlanQuantity() );
          showcell.ActualQuantity( cell.ActualQuantity() + showcell.ActualQuantity() );
        }
      }
    }
    //table                   := selectobject( this,InterfaceDataset.InventoryPlanArchiveVersion, report, not report.IsShow() );
    ////清空之前存储的显示数据
    //search.TimeUnit( Translations::MP_GlobalParameters_Day() );
    //aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    //this.Clear( aopcolumns );
    //traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.Unit() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
    //  
    //  showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
    //  if( isnull( showrow ) ){
    //    showrow             := this.Row( relnew, Name := row.Name(), ProductID := row.ProductID(), Unit := search.Unit() );
    //  }
    //  traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
    //    column              := selectobject( this, Column, column, column.Name() = cell.Column().Name() );
    //    if( not isnull( column ) ){
    //      showcell          := selectobject( showrow, Cell, showcell, showcell.Column() = column );
    //      if( isnull( showcell ) ){
    //        showcell        := showrow.Cell( relnew, PlanQuantity := 0, ActualQuantity := 0 );
    //        column.Cell( relinsert, showcell );
    //      }
    //      showcell.PlanQuantity( cell.PlanQuantity() + showcell.PlanQuantity() );
    //      showcell.ActualQuantity( cell.ActualQuantity() + showcell.ActualQuantity() );
    //    }
    //  }
    //}
    info( '-----------Search end-------' );
  *]
}

 _Main/BL/Type_InventoryPlanArchiveVersion/Method_GenerateColumn.qbl

@@ -9,40 +9,40 @@
  TextBody:
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    timeunit              := guard( this.InterfaceDataset().InventoryPlanArchiveVersionSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    weekstart             := periods.Element( 0 );
    
    monthstart            := periods.Element( 0 );
    //timeunit              := guard( this.InterfaceDataset().InventoryPlanArchiveVersionSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    //weekstart             := periods.Element( 0 );
    //
    //monthstart            := periods.Element( 0 );
    traverse( periods, Elements, periodtime ){
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
        periodname        := periodtime.Format( "M2/D2/Y" );
        
        this.Column( relnew, Name := periodname, StartDate := periodtime, EndDate := periodtime, TimeUnit := Translations::MP_GlobalParameters_Day() );
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
        weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
        if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
          weekstart       := periodtime;
        }
        if( periodtime = weekstart ){
          weekperiodname  := weekstart.Format( "M2/D2/Y" );
          this.Column( relnew, Name := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
          
        }
        weekstart         := periodtime.StartOfNextWeek();
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
        if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
          monthstart      := periodtime;
        }
        if( periodtime = monthstart ){
          monthperiodname := monthstart.Format( "M2/D2/Y" );
          enddate         := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
          this.Column( relnew, Name := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
          
        }
        monthstart        := periodtime.StartOfNextMonth();
      }
        this.Column( relnew, Name := periodname, StartDate := periodtime, EndDate := periodtime );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
    //    weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
    //    if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
    //      weekstart       := periodtime;
    //    }
    //    if( periodtime = weekstart ){
    //      weekperiodname  := weekstart.Format( "M2/D2/Y" );
    //      this.Column( relnew, Name := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
    //      
    //    }
    //    weekstart         := periodtime.StartOfNextWeek();
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
    //    if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
    //      monthstart      := periodtime;
    //    }
    //    if( periodtime = monthstart ){
    //      monthperiodname := monthstart.Format( "M2/D2/Y" );
    //      enddate         := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
    //      this.Column( relnew, Name := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
    //      
    //    }
    //    monthstart        := periodtime.StartOfNextMonth();
    //  }
    }
  *]
}

 _Main/BL/Type_InventoryPlanArchiveVersion/Method_GetColumnByTimeUnit.qbl

@@ -10,7 +10,7 @@
    // ç”„兰鸽 Aug-7-2024 (created)
    //periodname := period.Format( "M2/D2/Y" );
    
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period and column.TimeUnit() = unit );
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period );// and column.TimeUnit() = unit
    
    return column;
  *]

 _Main/BL/Type_InventoryPlanArchiveVersion/StaticMethod_GenerateData.qbl

@@ -8,13 +8,13 @@
  Description: '生成计划库存存档数据'
  TextBody:
  [*
    interfaceDataset.InventoryPlanArchiveVersion( relflush );
    //interfaceDataset.InventoryPlanArchiveVersion( relflush );
    info( '-------------------------Start---------------------');
    machineproductparent   := MachiningPipelineReport::GetDefaultProductParent();
    engineproductparent    := EnginePipelineReport::GetDefaultProductParent();
    allunit                := AssemblyOnlinePlanVersion::GetDefaultAllUnit();
    name                   := InventoryPlanArchiveVersion::GetDefaultName();
    search                 := interfaceDataset.InventoryPlanArchiveVersionSearch( relnew, Product := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
    search                 := interfaceDataset.InventoryPlanArchiveVersionSearch( relnew, Product := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    table                  := selectobject( interfaceDataset, InventoryPlanArchiveVersion, version, not version.IsShow() );
    if( isnull( table ) ){
      table                := interfaceDataset.InventoryPlanArchiveVersion( relnew, ID := name, Name := name );
@@ -24,7 +24,7 @@
      showtable               := interfaceDataset.InventoryPlanArchiveVersion( relnew, ID := name, Name := name, IsShow := true );
    }
    periods                := selectuniquevalues(  macroPlan, Period_MP, period, not period.IsHistorical() and period.TimeUnit() = Translations::MP_GlobalParameters_Day()
                                                   and not exists( table, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() and column.StartDate() = period.StartDate() ), period.StartDate() );
                                                   and not exists( table, Column, column, column.StartDate() = period.StartDate() ), period.StartDate() );//column.TimeUnit() = Translations::MP_GlobalParameters_Day() and 
    if( periods.Size() > 0 ){
      table.GenerateColumn( periods, false );
    }

 _Main/BL/Type_InventoryPlanArchiveVersion/StaticMethod_InitiateSearch.qbl

@@ -10,11 +10,11 @@
    allunit                   := FinancialProductionReport::GetDefaultAllUnit();
    search                    := owner.InventoryPlanArchiveVersionSearch();
    if( isnull( owner.InventoryPlanArchiveVersionSearch() ) ){
      search                  := owner.InventoryPlanArchiveVersionSearch( relnew, Product := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
      search                  := owner.InventoryPlanArchiveVersionSearch( relnew, Product := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    }else{
      search                  := owner.InventoryPlanArchiveVersionSearch();
      search.Product( allunit );
      search.TimeUnit(  Translations::MP_GlobalParameters_Day() );
    //  search.TimeUnit(  Translations::MP_GlobalParameters_Day() );
      search.Unit( allunit );
      search.StartDate( Date::MinDate() );
      search.EndDate( Date::MaxDate() );

 _Main/BL/Type_InventoryPlanArchiveVersionSearch/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_LockPeriod/Method_Enable.qbl

@@ -10,7 +10,7 @@
    offlinePlanRow := select( offlinePlanTable,Row,row,row.ProductID() = this.ProductInStockingPoint_MP().ProductID() and row.StockingPointID() = this.ProductInStockingPoint_MP().StockingPointID() );
    
    if( not this.IsEnable() and not isnull( offlinePlanRow )){
      offlinePlanCells := selectset( offlinePlanRow, Cell,cell,cell.Column().TimeUnit() = "Day" );
      offlinePlanCells := selectset( offlinePlanRow, Cell,cell, true );//,cell.Column().TimeUnit() = "Day"
      offlinePlanCellIndexTree := NamedValueTree::Create();
      for( i := 0; i< offlinePlanCells.Size(); i++ ){
        offlinePlanCell := offlinePlanCells.Element( i );

 _Main/BL/Type_OfflinePlanArchiveVersion/Method_Generate.qbl

@@ -12,7 +12,7 @@
    info( '-----------Search start-------' );
    table                   := selectobject( this,InterfaceDataset.OfflinePlanArchiveVersion, report, not report.IsShow() );
    //清空之前存储的显示数据
    aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );//aopcolumn.TimeUnit() = search.TimeUnit() and 
    this.Clear( aopcolumns );
    traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.ProductionLine() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
      
@@ -21,9 +21,7 @@
        showrow             := this.Row( relnew, Name := row.Name(), ProductID := row.ProductID(), Unit := search.Unit() );
      }
      traverse( this, Column, column ){
        cells               := selectset( row, Cell, cell, cell.Column().TimeUnit() = Translations::MP_GlobalParameters_Day() 
                                          and cell.Column().StartDate() >= column.StartDate()
                                          and cell.Column().StartDate() <= column.EndDate() );
        cells               := selectset( row, Cell, cell, cell.Column().StartDate() >= column.StartDate() and cell.Column().StartDate() <= column.EndDate() );//cell.Column().TimeUnit() = Translations::MP_GlobalParameters_Day() and 
        
    //  traverse( row, Cell, cell, cell.Column().TimeUnit() = search.TimeUnit() ){
    //    column              := selectobject( this, Column, column, column.ColumnName() = cell.Column().ColumnName() );
@@ -37,10 +35,10 @@
          actqty            := sum( cells, Elements, cell, cell.ActualProductionQty() );
          showcell.Quantity( qty + showcell.Quantity() );
          showcell.ActualProductionQty( actqty + showcell.ActualProductionQty() );
          if( search.TimeUnit() = Translations::MP_GlobalParameters_Day() ){
    //      if( search.TimeUnit() = Translations::MP_GlobalParameters_Day() ){
            showcell.Order( cells.Element( 0 ).Order() );
            showcell.OrderNr( cells.Element( 0 ).OrderNr() );
          }
    //      }
        }
      }
    }

 _Main/BL/Type_OfflinePlanArchiveVersion/Method_GenerateColumn.qbl

@@ -9,40 +9,40 @@
  TextBody:
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    timeunit              := guard( this.InterfaceDataset().OfflinePlanArchiveSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    weekstart             := periods.Element( 0 );
    
    monthstart            := periods.Element( 0 );
    //timeunit              := guard( this.InterfaceDataset().OfflinePlanArchiveSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    //weekstart             := periods.Element( 0 );
    //
    //monthstart            := periods.Element( 0 );
    traverse( periods, Elements, periodtime ){
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Day() ){
        periodname        := periodtime.Format( "M2/D2/Y" );
        
        this.Column( relnew, ColumnName := periodname, StartDate := periodtime, EndDate := periodtime, TimeUnit := Translations::MP_GlobalParameters_Day() );
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
        weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
        if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
          weekstart       := periodtime;
        }
        if( periodtime = weekstart ){
          weekperiodname  := weekstart.Format( "M2/D2/Y" );
          this.Column( relnew, ColumnName := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
          
        }
        weekstart         := periodtime.StartOfNextWeek();
      }
      if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
        if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
          monthstart      := periodtime;
        }
        if( periodtime = monthstart ){
          monthperiodname := monthstart.Format( "M2/D2/Y" );
          enddate         := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
          this.Column( relnew, ColumnName := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
          
        }
        monthstart        := periodtime.StartOfNextMonth();
      }
        this.Column( relnew, ColumnName := periodname, StartDate := periodtime, EndDate := periodtime );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Week() ){
    //    weekend           := ( weekstart + Duration::Days( 6 ) ).Date();
    //    if( ( weekend.Year() <> periodtime.Year() and weekend.Month() > 1 ) or ( abs( weekstart.Week() - periodtime.Week() ) > 1 and weekend.Year() = periodtime.Year() ) ){
    //      weekstart       := periodtime;
    //    }
    //    if( periodtime = weekstart ){
    //      weekperiodname  := weekstart.Format( "M2/D2/Y" );
    //      this.Column( relnew, ColumnName := weekperiodname, StartDate := weekstart, EndDate := ( weekstart.StartOfNextWeek() - Duration::Days( 1 ) ).Date(), TimeUnit := Translations::MP_GlobalParameters_Week() );
    //      
    //    }
    //    weekstart         := periodtime.StartOfNextWeek();
    //  }
    //  if( not isshow or timeunit = Translations::MP_GlobalParameters_Month() ){
    //    if( ( monthstart.Year() <> periodtime.Year() and abs( monthstart.Month() - periodtime.Month() ) <> 11 ) or ( abs( monthstart.Month() - periodtime.Month() ) > 1 and monthstart.Year() = periodtime.Year() ) ){
    //      monthstart      := periodtime;
    //    }
    //    if( periodtime = monthstart ){
    //      monthperiodname := monthstart.Format( "M2/D2/Y" );
    //      enddate         := ( monthstart.StartOfNextMonth() - Duration::Days( 1 ) ).Date();
    //      this.Column( relnew, ColumnName := monthperiodname, StartDate := monthstart, EndDate := enddate, TimeUnit := Translations::MP_GlobalParameters_Month() );
    //      
    //    }
    //    monthstart        := periodtime.StartOfNextMonth();
    //  }
    }
  *]
}

 _Main/BL/Type_OfflinePlanArchiveVersion/Method_GetColumnByTimeUnit.qbl

@@ -9,7 +9,7 @@
  [*
    // ç”„兰鸽 Aug-7-2024 (created) 
    
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period and column.TimeUnit() = unit );
    column := selectobject( this, Column, column, column.StartDate() <= period and column.EndDate() >= period );// and column.TimeUnit() = unit
    
    return column;
  *]

 _Main/BL/Type_OfflinePlanArchiveVersion/StaticMethod_InitiateSearch.qbl

@@ -10,12 +10,12 @@
    allunit                   := FinancialProductionReport::GetDefaultAllUnit();
    search                    := owner.OfflinePlanArchiveSearch();
    if( isnull( owner.OfflinePlanArchiveSearch() ) ){
      search                  := owner.OfflinePlanArchiveSearch( relnew, Product := allunit, ProductionLine := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
      search                  := owner.OfflinePlanArchiveSearch( relnew, Product := allunit, ProductionLine := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    }else{
      search                  := owner.OfflinePlanArchiveSearch();
      search.Product( allunit );
      search.ProductionLine( allunit );
      search.TimeUnit(  Translations::MP_GlobalParameters_Day() );
    //  search.TimeUnit(  Translations::MP_GlobalParameters_Day() );
      search.Unit( allunit );
      search.StartDate( Date::MinDate() );
      search.EndDate( Date::MaxDate() );

 _Main/BL/Type_OfflinePlanArchiveVersion/StaticMethod_RefreshData.qbl

@@ -11,7 +11,7 @@
    //根据当前版本的下线计划
    allunit                := OfflinePlanArchiveVersion::GetDefaultAllUnit();
    name                   := OfflinePlanArchiveVersion::GetDefaultName();
    search                 := interface.OfflinePlanArchiveSearch( relnew, Product := allunit, ProductionLine := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
    search                 := interface.OfflinePlanArchiveSearch( relnew, Product := allunit, ProductionLine := allunit, Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );//, TimeUnit := Translations::MP_GlobalParameters_Day()
    table                  := selectobject( interface, OfflinePlanArchiveVersion, version, not version.IsShow() );
    if( isnull( table ) ){
      table                := interface.OfflinePlanArchiveVersion( relnew, ID := name, Name := name );
@@ -20,7 +20,7 @@
    if( isnull( showtable ) ){
      showtable               := interface.OfflinePlanArchiveVersion( relnew, ID := name, Name := name, IsShow := true );
    }
    nopcolumns             := selectuniquevalues(  macroPlan, NewOfflinePlanTable.NewOfflinePlanColumn, nopcolumn, not exists( table, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() and column.StartDate() = nopcolumn.StartDate() ), nopcolumn.StartDate() );
    nopcolumns             := selectuniquevalues(  macroPlan, NewOfflinePlanTable.NewOfflinePlanColumn, nopcolumn, not exists( table, Column, column, column.StartDate() = nopcolumn.StartDate() ), nopcolumn.StartDate() );//column.TimeUnit() = Translations::MP_GlobalParameters_Day() and 
    if( nopcolumns.Size() > 0 ){
      table.GenerateColumn( nopcolumns, false );
    }
@@ -38,7 +38,7 @@
      row                  := table.GetRow( noprow );
      if( not isnull( row ) ){
        traverse( noprow, NewOfflinePlanCell, nopcell ){
          column             := selectobject( table, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() and column.StartDate() = nopcell.NewOfflinePlanColumn().StartDate() );
          column             := selectobject( table, Column, column, column.StartDate() = nopcell.NewOfflinePlanColumn().StartDate() );//column.TimeUnit() = Translations::MP_GlobalParameters_Day() and 
          cell               := selectobject( row, Cell, cell, cell.Column() = column );
          actproductionKey   := noprow.ProductID() + column.StartDate().AsQUILL();
          actproductionhandle:= actproductiontree.GetHandle( actproductionKey );

 _Main/BL/Type_OfflinePlanArchiveVersionColumn/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_OfflinePlanArchiveVersionColumn/DefaultValue_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_OfflinePlanArchiveVersionSearch/Attribute_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_OfflinePlanArchiveVersionSearch/DefaultValue_TimeUnit.qbl

ÎļþÒÑɾ³ý

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelTimeUnit.def

@@ -22,5 +22,6 @@
  Properties:
  [
    Taborder: 1
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Response_PanelTimeUnit_RadioButtonGroupUseForTimeUnit_OnChanged.def

@@ -10,10 +10,10 @@
    Body:
    [*
      //区间改变后刷新显示 
      if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
        dhSearch.Data().TimeUnit( this.BoundValue() );
      //  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      }
      //if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
      //  dhSearch.Data().TimeUnit( this.BoundValue() );
      ////  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      //}
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormCustomerDemandPPAIDS/Component_PanelTimeUnit.def

@@ -22,5 +22,6 @@
  Properties:
  [
    Taborder: 5
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormCustomerDemandPPAIDS/Response_PanelTimeUnit_RadioButtonGroupUseForTimeUnit_OnChanged#150.def

@@ -10,10 +10,10 @@
    Body:
    [*
      //区间改变后刷新显示 
      if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
        dhSearch.Data().TimeUnit( this.BoundValue() );
      //  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      }
      //if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
      //  dhSearch.Data().TimeUnit( this.BoundValue() );
      ////  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      //}
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelTimeUnit.def

@@ -22,5 +22,6 @@
  Properties:
  [
    Taborder: 1
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Response_PanelTimeUnit_RadioButtonGroupUseForTimeUnit_OnChanged.def

@@ -10,10 +10,10 @@
    Body:
    [*
      //区间改变后刷新显示 
      if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
        dhSearch.Data().TimeUnit( this.BoundValue() );
      //  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      }
      //if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
      //  dhSearch.Data().TimeUnit( this.BoundValue() );
      ////  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      //}
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormOfflinePlanArchive/Component_MatrixEditorTable.def

@@ -26,7 +26,7 @@
      ]
      Properties:
      [
        Attributes: 'Quantity;ActualProductionQty'
        Attributes: 'Order;Quantity;ActualProductionQty'
        Column: 'Column'
        Row: 'Row'
        Taborder: 0

 _Main/UI/MacroPlannerWebApp/Component_FormOfflinePlanArchive/Component_PanelTimeUnit#720.def

@@ -23,5 +23,6 @@
  [
    Orientation: 'horizontal'
    Taborder: 1
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormOfflinePlanArchive/Response_PanelTimeUnit_720_RadioButtonGroupUseForTimeUnit_OnChanged.def

@@ -10,10 +10,10 @@
    Body:
    [*
      //区间改变后刷新显示 
      if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
        dhSearch.Data().TimeUnit( this.BoundValue() );
      //  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      }
      //if( dhSearch.Data().TimeUnit() <> this.BoundValue() ){
      //  dhSearch.Data().TimeUnit( this.BoundValue() );
      ////  DataHolderTable.Data().Generate( dhSearch.Data(), DataHolderProduct.Data() );
      //}
    *]
    GroupServerCalls: false
  }