发放提示中过滤发放理由为“会议用”的记录。

DataUnit.dfm

@@ -109,13 +109,39 @@ object DM1: TDM1
   object FDQuery8: TFDQuery
     Connection = FDConnection1
     SQL.Strings = (
+      'SELECT '#24207#21495','
+      '       '#21697#21517','
+      '       '#25968#37327','
+      '       Max('#20986#24211#26085#26399') AS '#26368#36817#21457#25918','
       
-        'SELECT '#24207#21495','#21697#21517','#25968#37327',Max('#20986#24211#26085#26399') as '#26368#36817#21457#25918',(case when julianday('#20986#24211#26085#26399') + '#25968 +
-        #37327'/if('#21697#21517'='#39#19968#27425#24615#21475#32617#39' ,(select count(*) from '#20154#21592#34920' where '#25152#22312#37096#38376#65288#29677#32452#65289'= '#20986#24211#34920'.'#25152 +
-        #22312#37096#38376#65288#29677#32452#65289'),1)*'#20351#29992#21608#26399#65288#22825#65289' <= julianday('#39'now'#39') then '#39#24050#21040#26399#39' else '#39#26410#21040#26399#39' en' +
-        'd ) as '#21040#26399#25552#31034','#39046#21462#20154','#25152#22312#37096#38376#65288#29677#32452#65289',(select count(*) from '#20154#21592#34920' where '#25152#22312#37096#38376#65288#29677#32452 +
-        #65289'= '#20986#24211#34920'.'#25152#22312#37096#38376#65288#29677#32452#65289') as '#20154#25968','#20351#29992#21608#26399#65288#22825#65289' FROM '#20986#24211#34920' GROUP BY '#25152#22312#37096#38376#65288#29677#32452#65289','#21697#21517' ord' +
-        'er by '#25152#22312#37096#38376#65288#29677#32452#65289','#21697#21517)
+        '       (CASE WHEN julianday('#20986#24211#26085#26399') + '#25968#37327' / CASE WHEN '#21697#21517' = '#39#19968#27425#24615#21475#32617#39' ' +
+        'THEN ('
+      
+        '                                                 SELECT count( *' +
+        ' ) '
+      '                                                   FROM '#20154#21592#34920
+      
+        '                                                  WHERE '#25152#22312#37096#38376#65288#29677#32452#65289 +
+        ' = '#20986#24211#34920'.'#25152#22312#37096#38376#65288#29677#32452#65289
+      '                                             )'
+      
+        '                                         ELSE 1 END * '#20351#29992#21608#26399#65288#22825#65289' <=' +
+        ' julianday('#39'now'#39') THEN '#39#24050#21040#26399#39' ELSE '#39#26410#21040#26399#39' END) AS '#21040#26399#25552#31034','
+      '       '#39046#21462#20154','
+      '       '#25152#22312#37096#38376#65288#29677#32452#65289','
+      '       ('
+      '           SELECT count( * ) '
+      '             FROM '#20154#21592#34920
+      '            WHERE '#25152#22312#37096#38376#65288#29677#32452#65289' = '#20986#24211#34920'.'#25152#22312#37096#38376#65288#29677#32452#65289
+      '       )'
+      '       AS '#20154#25968','
+      '       '#20351#29992#21608#26399#65288#22825#65289
+      '  FROM '#20986#24211#34920
+      ' WHERE ifnull('#21457#25918#29702#30001','#39#39') = '#39#39
+      ' GROUP BY '#25152#22312#37096#38376#65288#29677#32452#65289','
+      '          '#21697#21517
+      ' ORDER BY '#25152#22312#37096#38376#65288#29677#32452#65289','
+      '          '#21697#21517)
     Left = 152
     Top = 296
   end

WZGL.dproj

@@ -88,9 +88,9 @@
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.7.8;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.7.11;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
         <VerInfo_Release>7</VerInfo_Release>
-        <VerInfo_Build>8</VerInfo_Build>
+        <VerInfo_Build>11</VerInfo_Build>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -950,6 +950,7 @@
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">False</Platform>
             </Platforms>
+            <ModelSupport>False</ModelSupport>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>