From d8f056609cbecb8851fdaf5b8f74131ee2ebb2c0 Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期四, 01 八月 2024 17:31:26 +0800
Subject: [PATCH] 日历不可用事件日期列补充
---
_Main/BL/Type_LibCal_SubscriberEventTable/Method_InitializeTable.qbl | 27 ++++++++++++++++++++-------
1 files changed, 20 insertions(+), 7 deletions(-)
diff --git a/_Main/BL/Type_LibCal_SubscriberEventTable/Method_InitializeTable.qbl b/_Main/BL/Type_LibCal_SubscriberEventTable/Method_InitializeTable.qbl
index 1c22d42..1171045 100644
--- a/_Main/BL/Type_LibCal_SubscriberEventTable/Method_InitializeTable.qbl
+++ b/_Main/BL/Type_LibCal_SubscriberEventTable/Method_InitializeTable.qbl
@@ -33,14 +33,27 @@
}
}
-
+ //info( '----------------------1------------------------', this.LibCal_SubscriberEventColumn( relsize ) );
//traverse( this, LibCal_SubscriberEventColumn, column ){
- // traverse( this, LibCal_SubscriberEventRow, row ){
- // if( not exists( column, LibCal_SubscriberEventCell, cell, cell.LibCal_SubscriberEventRow() = row ) ) {
- // cell := column.LibCal_SubscriberEventCell( relnew, Value := '' );
- // row.LibCal_SubscriberEventCell( relinsert, cell );
- // }
- // }
+ // info( '------------------------', column.Name(), column.Period(), column.TimeUnit() );
//}
+
+ Transaction::Transaction().Propagate( attribute( LibCal_SubscriberEventTable, MaxDayDate ) );
+ Transaction::Transaction().Propagate( attribute( LibCal_SubscriberEventTable, MaxWeekDate ) );
+ Transaction::Transaction().Propagate( attribute( LibCal_SubscriberEventTable, MaxMonthDate ) );
+ Transaction::Transaction().Propagate( attribute( LibCal_SubscriberEventTable, MinDayDate ) );
+ Transaction::Transaction().Propagate( attribute( LibCal_SubscriberEventTable, MinWeekDate ) );
+ Transaction::Transaction().Propagate( attribute( LibCal_SubscriberEventTable, MinMonthDate ) );
+ this.ProcessColumnDay();
+ this.ProcessColumnWeek();
+ this.ProcessColumnMonth();
+ traverse( this, LibCal_SubscriberEventColumn, column ){
+ traverse( this, LibCal_SubscriberEventRow, row ){
+ if( not exists( column, LibCal_SubscriberEventCell, cell, cell.LibCal_SubscriberEventRow() = row ) ) {
+ cell := column.LibCal_SubscriberEventCell( relnew, Value := '' );
+ row.LibCal_SubscriberEventCell( relinsert, cell );
+ }
+ }
+ }
*]
}
--
Gitblit v1.9.3