PEIS/PEIS/ReportFiles/CostCount.frx

<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="06/27/2023 00:02:11" ReportInfo.Modified="07/12/2024 16:33:36" ReportInfo.CreatorVersion="2022.1.0.0">
  <ScriptText>using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Windows.Forms;
using System.Drawing;
using System.Data;
using FastReport;
using FastReport.Data;
using FastReport.Dialog;
using FastReport.Barcode;
using FastReport.Table;
using FastReport.Utils;

namespace FastReport
{ 
  public class ReportScript
  {
    
    public double totalSum = 0;
    public double totalHisSum = 0;
    public double deptSum = 0;
    public double deptHisSum = 0;
    
    public string deptName = &quot;科室&quot;;
  
    private void CostCount_AfterData(object sender, EventArgs e)
    {
      DataSourceBase rowData = Report.GetDataSource(&quot;P&quot;);
      
//      if(deptName.Equals(rowData[&quot;DeptName&quot;].ToString()))
//      {
//        deptSum += Convert.ToDouble(rowData[&quot;SettleFee&quot;].ToString());
//        deptHisSum += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
//        
//        Cell38.Text = deptSum.ToString();
//        Cell50.Text = deptHisSum.ToString();
//      }else{
//       
//        if(deptName == &quot;科室&quot;){
//          
//          deptSum = Convert.ToDouble(rowData[&quot;SettleFee&quot;].ToString());
//          deptHisSum = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
//          
//          Cell38.Text = rowData[&quot;SettleFee&quot;].ToString();
//          Cell50.Text = rowData[&quot;Fee&quot;].ToString();
//          
//        }else{
//          
//          deptSum = Convert.ToDouble(rowData[&quot;SettleFee&quot;].ToString());
//          deptHisSum = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
//          
//          Cell38.Text = deptSum.ToString();
//          Cell50.Text = deptHisSum.ToString();
//        }
//
//        deptName = rowData[&quot;DeptName&quot;].ToString();
//      }
    }
  }
}
</ScriptText>
  <Dictionary>
    <Parameter Name="HospitalName" DataType="System.String"/>
    <Parameter Name="DateBetween" DataType="System.String"/>
    <Parameter Name="Type" DataType="System.String"/>
    <Parameter Name="DeptName" DataType="System.String"/>
    <Parameter Name="TotalQuantity" DataType="System.String"/>
    <Parameter Name="TotalSettlePrice" DataType="System.String"/>
    <Parameter Name="TotalSettleFee" DataType="System.String"/>
    <Parameter Name="TotalPrice" DataType="System.String"/>
    <Parameter Name="TotalFee" DataType="System.String"/>
  </Dictionary>
  <ReportPage Name="Page1" RawPaperSize="9" Watermark.Font="宋体, 60pt">
    <ColumnHeaderBand Name="ColumnHeader1" Width="718.2" Height="75.6" PrintOn="FirstPage">
      <TextObject Name="Text1" Width="718.2" Height="56.7" Text="费用明细表" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 26pt, style=Bold"/>
      <TextObject Name="Text2" Top="56.7" Width="66.15" Height="18.9" Text="统计单位:" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 9pt"/>
      <TextObject Name="Text5" Left="311.85" Top="56.7" Width="189" Height="18.9" CanBreak="false" Text="[DateBetween]" VertAlign="Center" WordWrap="false" Font="微软雅黑, 9pt"/>
      <TextObject Name="Text3" Left="66.15" Top="56.7" Width="179.55" Height="18.9" CanBreak="false" Text="[HospitalName]" VertAlign="Center" WordWrap="false" Font="微软雅黑, 9pt"/>
      <TextObject Name="Text4" Left="245.7" Top="56.7" Width="66.15" Height="18.9" Text="统计日期:" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 9pt"/>
      <TextObject Name="Text6" Left="500.85" Top="56.7" Width="66.15" Height="18.9" Text="统计科室:" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 9pt"/>
      <TextObject Name="Text7" Left="567" Top="56.7" Width="151.2" Height="18.9" CanBreak="false" Text="[DeptName]" AutoShrink="FontWidth" VertAlign="Center" WordWrap="false" Font="微软雅黑, 9pt"/>
    </ColumnHeaderBand>
    <GroupHeaderBand Name="GroupHeader1" Top="79.6" Width="718.2" Height="47.25" Condition="[P.DeptName]" SortOrder="None">
      <TableObject Name="Table38" Top="18.9" Width="718.2" Height="28.35" Border.Lines="All">
        <TableColumn Name="Column114" Width="359.1"/>
        <TableColumn Name="Column115" Width="359.1"/>
        <TableRow Name="Row47" Height="28.35">
          <TableCell Name="Cell158" Fill.Color="Silver" Text="[P.DeptName]" VertAlign="Center" Font="微软雅黑, 12pt, style=Bold, Italic" ColSpan="2"/>
          <TableCell Name="Cell159" Font="宋体, 9pt"/>
        </TableRow>
      </TableObject>
      <GroupHeaderBand Name="GroupHeader2" Top="130.85" Width="718.2" Height="28.35" Condition="[P.FeeItemName]" SortOrder="None">
        <TableObject Name="Table39" Width="718.2" Height="28.35" Fill.Color="Silver">
          <TableColumn Name="Column116" Width="123.95"/>
          <TableColumn Name="Column117" Width="265.7"/>
          <TableColumn Name="Column118" Width="1.28"/>
          <TableColumn Name="Column119" Width="86.15"/>
          <TableColumn Name="Column120" Width="1.28"/>
          <TableColumn Name="Column121" Width="83.4"/>
          <TableColumn Name="Column122" Width="1.28"/>
          <TableColumn Name="Column123" Width="60"/>
          <TableColumn Name="Column124" Width="95.16"/>
          <TableRow Name="Row48" Height="28.35">
            <TableCell Name="Cell160" Border.Lines="All" Text="收费项目" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold" ColSpan="3"/>
            <TableCell Name="Cell161" Border.Lines="All" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
            <TableCell Name="Cell162" Border.Lines="All" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
            <TableCell Name="Cell163" Border.Lines="All" Text="数量" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold" ColSpan="2"/>
            <TableCell Name="Cell164" Border.Lines="All" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
            <TableCell Name="Cell165" Border.Lines="All" Text="单价" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold" ColSpan="2"/>
            <TableCell Name="Cell166" Border.Lines="All" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
            <TableCell Name="Cell167" Border.Lines="All" Text="折扣" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
            <TableCell Name="Cell168" Border.Lines="All" Text="折后金额" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          </TableRow>
        </TableObject>
        <DataBand Name="CostCount" Top="163.2" Width="718.2" Height="28.35" CanGrow="true" CanShrink="true" AfterDataEvent="CostCount_AfterData" KeepTogether="true">
          <TableObject Name="Table6" Width="718.2" Height="28.35">
            <TableColumn Name="Column43" Width="123.95"/>
            <TableColumn Name="Column44" Width="265.7"/>
            <TableColumn Name="Column45" Width="1.28"/>
            <TableColumn Name="Column46" Width="86.15"/>
            <TableColumn Name="Column47" Width="1.28"/>
            <TableColumn Name="Column48" Width="83.4"/>
            <TableColumn Name="Column49" Width="1.28"/>
            <TableColumn Name="Column50" Width="60"/>
            <TableColumn Name="Column51" Width="95.16"/>
            <TableRow Name="Row6" MinHeight="28.35" Height="28.35" AutoSize="true">
              <TableCell Name="Cell63" Border.Lines="All" Text="[P.FeeItemName]" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
              <TableCell Name="Cell64" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell65" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell66" Border.Lines="All" Text="[P.Quantity]" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
              <TableCell Name="Cell67" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell68" Border.Lines="All" Text="[P.Price]" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
              <TableCell Name="Cell69" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell70" Border.Lines="All" Text="[P.Discount]" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell71" Border.Lines="All" Text="[P.Fee]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            </TableRow>
          </TableObject>
        </DataBand>
        <GroupFooterBand Name="GroupFooter2" Top="195.55" Width="718.2" Height="28.35" CanGrow="true" CanShrink="true">
          <TableObject Name="Table40" Width="718.2" Height="28.35">
            <TableColumn Name="Column125" Width="123.95"/>
            <TableColumn Name="Column126" Width="265.7"/>
            <TableColumn Name="Column127" Width="1.28"/>
            <TableColumn Name="Column128" Width="86.15"/>
            <TableColumn Name="Column129" Width="1.28"/>
            <TableColumn Name="Column130" Width="83.4"/>
            <TableColumn Name="Column131" Width="1.28"/>
            <TableColumn Name="Column132" Width="60"/>
            <TableColumn Name="Column133" Width="95.16"/>
            <TableRow Name="Row49" MinHeight="28.35" Height="28.35" AutoSize="true">
              <TableCell Name="Cell169" Border.Lines="All" Fill.Color="InactiveBorder" Text="-[P.FeeItemName]-小计" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
              <TableCell Name="Cell170" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell171" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell172" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
              <TableCell Name="Cell173" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell174" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
              <TableCell Name="Cell175" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell176" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
              <TableCell Name="Cell177" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            </TableRow>
          </TableObject>
        </GroupFooterBand>
      </GroupHeaderBand>
      <GroupFooterBand Name="GroupFooter1" Top="227.9" Width="718.2" Height="28.35" CanGrow="true" CanShrink="true" KeepWithData="true">
        <TableObject Name="Table41" Width="718.2" Height="28.35">
          <TableColumn Name="Column134" Width="123.95"/>
          <TableColumn Name="Column135" Width="265.7"/>
          <TableColumn Name="Column136" Width="1.28"/>
          <TableColumn Name="Column137" Width="86.15"/>
          <TableColumn Name="Column138" Width="1.28"/>
          <TableColumn Name="Column139" Width="83.4"/>
          <TableColumn Name="Column140" Width="1.28"/>
          <TableColumn Name="Column141" Width="60"/>
          <TableColumn Name="Column142" Width="95.16"/>
          <TableRow Name="Row50" Height="28.35">
            <TableCell Name="Cell178" Border.Lines="All" Fill.Color="InactiveBorder" Text="-[P.DeptName]-小计" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
            <TableCell Name="Cell179" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell180" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell181" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
            <TableCell Name="Cell182" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell183" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
            <TableCell Name="Cell184" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell185" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell186" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
          </TableRow>
        </TableObject>
      </GroupFooterBand>
      <DataFooterBand Name="DataFooter1" Top="260.25" Width="718.2" Height="28.35">
        <TableObject Name="Table42" Width="718.2" Height="28.35">
          <TableColumn Name="Column143" Width="123.95"/>
          <TableColumn Name="Column144" Width="265.7"/>
          <TableColumn Name="Column145" Width="1.28"/>
          <TableColumn Name="Column146" Width="86.15"/>
          <TableColumn Name="Column147" Width="1.28"/>
          <TableColumn Name="Column148" Width="83.4"/>
          <TableColumn Name="Column149" Width="1.28"/>
          <TableColumn Name="Column150" Width="60"/>
          <TableColumn Name="Column151" Width="95.16"/>
          <TableRow Name="Row51" Height="28.35">
            <TableCell Name="Cell187" Border.Lines="All" Fill.Color="InactiveBorder" Text="-总计-小计" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
            <TableCell Name="Cell188" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell189" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell190" Border.Lines="All" Fill.Color="InactiveBorder" Text="[TotalFee]" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="6"/>
            <TableCell Name="Cell191" Border.Lines="All" Fill.Color="InactiveBorder" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell192" Border.Lines="All" Fill.Color="InactiveBorder" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell193" Border.Lines="All" Fill.Color="InactiveBorder" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell194" Border.Lines="All" Fill.Color="InactiveBorder" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell195" Border.Lines="All" Fill.Color="InactiveBorder" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 10pt"/>
          </TableRow>
        </TableObject>
      </DataFooterBand>
    </GroupHeaderBand>
    <PageFooterBand Name="PageFooter1" Printable="false" Top="292.6" Width="718.2" Height="37.8">
      <TextObject Name="Text8" Width="718.2" Height="37.8" Text="第[Page#]页，共[TotalPages#]页" HorzAlign="Center" Font="微软雅黑, 10pt"/>
    </PageFooterBand>
  </ReportPage>
</Report>