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="06/25/2024 00:54:26" 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" Landscape="true" PaperWidth="297" PaperHeight="210" RawPaperSize="9" Watermark.Font="宋体, 60pt">
    <ColumnHeaderBand Name="ColumnHeader1" Width="1047.06" Height="103.95" PrintOn="FirstPage">
      <TextObject Name="Text1" Width="1047.06" Height="56.7" Text="费用明细表" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 26pt, style=Bold"/>
      <TableObject Name="Table1" Top="75.6" Width="1046.76" Height="28.35">
        <TableColumn Name="Column1" Width="123.67"/>
        <TableColumn Name="Column2" Width="274.87"/>
        <TableColumn Name="Column3" Width="85.77"/>
        <TableColumn Name="Column4" Width="85.87"/>
        <TableColumn Name="Column5" Width="111.47"/>
        <TableColumn Name="Column6" Width="111.47"/>
        <TableColumn Name="Column25" Width="99.04"/>
        <TableColumn Name="Column26" Width="59.72"/>
        <TableColumn Name="Column33" Width="94.88"/>
        <TableRow Name="Row1" Height="28.35">
          <TableCell Name="Cell1" Border.Lines="All" Text="执行科室" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell2" Border.Lines="All" Text="收费项目" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell3" Border.Lines="All" Text="单位" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell4" Border.Lines="All" Text="数量" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell5" Border.Lines="All" Text="成本单价" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell26" Border.Lines="All" Text="成本金额" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell45" Border.Lines="All" Text="HIS单价" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell46" Border.Lines="All" Text="折扣" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
          <TableCell Name="Cell53" Border.Lines="All" Text="折后金额" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt, style=Bold"/>
        </TableRow>
      </TableObject>
      <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="226.8" 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="538.65" Top="56.7" Width="66.15" Height="18.9" Text="统计科室:" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 9pt"/>
      <TextObject Name="Text7" Left="604.8" Top="56.7" Width="113.4" Height="18.9" CanBreak="false" Text="[DeptName]" VertAlign="Center" WordWrap="false" Font="微软雅黑, 9pt"/>
    </ColumnHeaderBand>
    <GroupHeaderBand Name="GroupHeader1" Top="105.55" Width="1047.06" Visible="false" Condition="[P.DeptName]" SortOrder="None">
      <DataBand Name="CostCount" Top="107.15" Width="1047.06" Height="28.35" CanGrow="true" CanShrink="true" AfterDataEvent="CostCount_AfterData" KeepTogether="true">
        <TableObject Name="Table2" Width="1047.04" Height="28.35">
          <TableColumn Name="Column7" Width="123.7"/>
          <TableColumn Name="Column8" Width="274.9"/>
          <TableColumn Name="Column9" Width="85.9"/>
          <TableColumn Name="Column10" Width="85.9"/>
          <TableColumn Name="Column11" Width="111.6"/>
          <TableColumn Name="Column12" Width="111.6"/>
          <TableColumn Name="Column27" Width="98.37"/>
          <TableColumn Name="Column28" Width="60.57"/>
          <TableColumn Name="Column34" Width="94.5"/>
          <TableRow Name="Row2" Height="28.35" AutoSize="true">
            <TableCell Name="Cell27" Border.Lines="All" Text="[P.DeptName]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell28" Border.Lines="All" Text="[P.FeeItemName]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell29" Border.Lines="All" Text="[P.Unit]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell30" Border.Lines="All" Text="[P.Quantity]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell31" Border.Lines="All" Text="[P.SettlePrice]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell32" Border.Lines="All" Text="[P.SettleFee]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell47" Border.Lines="All" Text="[P.Price]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell48" Border.Lines="All" Text="[P.Discount]" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell54" Border.Lines="All" Text="[P.Fee]" VertAlign="Center" Font="微软雅黑, 10pt"/>
          </TableRow>
        </TableObject>
      </DataBand>
      <GroupFooterBand Name="GroupFooter1" Top="137.1" Width="1047.06" Height="28.35" CanGrow="true" CanShrink="true" KeepWithData="true">
        <TableObject Name="Table3" Width="1047.04" Height="28.35" Fill.Color="InactiveBorder">
          <TableColumn Name="Column13" Width="123.7"/>
          <TableColumn Name="Column14" Width="274.9"/>
          <TableColumn Name="Column15" Width="85.9"/>
          <TableColumn Name="Column16" Width="85.9"/>
          <TableColumn Name="Column17" Width="111.6"/>
          <TableColumn Name="Column18" Width="111.6"/>
          <TableColumn Name="Column29" Width="98.37"/>
          <TableColumn Name="Column30" Width="155.07"/>
          <TableRow Name="Row3" Height="28.35" AutoSize="true">
            <TableCell Name="Cell33" Border.Lines="All" Fill.Color="InactiveBorder" Text="-[P.DeptName]-小计" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="5"/>
            <TableCell Name="Cell34" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell35" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell36" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell37" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell38" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell49" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell50" Border.Lines="All" HorzAlign="Right" VertAlign="Center" Font="微软雅黑, 10pt"/>
          </TableRow>
        </TableObject>
      </GroupFooterBand>
      <DataFooterBand Name="DataFooter1" Top="167.05" Width="1047.06" Height="28.35">
        <TableObject Name="Table5" Width="1047.04" Height="28.35" Fill.Color="InactiveBorder">
          <TableColumn Name="Column35" Width="123.7"/>
          <TableColumn Name="Column36" Width="274.9"/>
          <TableColumn Name="Column37" Width="85.9"/>
          <TableColumn Name="Column38" Width="85.9"/>
          <TableColumn Name="Column39" Width="111.6"/>
          <TableColumn Name="Column40" Width="111.6"/>
          <TableColumn Name="Column41" Width="98.37"/>
          <TableColumn Name="Column42" Width="155.07"/>
          <TableRow Name="Row5" Height="28.35" AutoSize="true">
            <TableCell Name="Cell55" Border.Lines="All" Fill.Color="InactiveBorder" Text="-总计-小计" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
            <TableCell Name="Cell56" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell57" Border.Lines="All" Fill.Color="InactiveBorder" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell58" Border.Lines="All" Fill.Color="InactiveBorder" Text="[TotalQuantity]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell59" Border.Lines="All" Fill.Color="InactiveBorder" Text="[TotalSettlePrice]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell60" Border.Lines="All" Fill.Color="InactiveBorder" Text="[TotalSettleFee]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell61" Border.Lines="All" Text="[TotalPrice]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt"/>
            <TableCell Name="Cell62" Border.Lines="All" Text="[TotalFee]" HorzAlign="Center" VertAlign="Center" Font="微软雅黑, 10pt"/>
          </TableRow>
        </TableObject>
      </DataFooterBand>
    </GroupHeaderBand>
    <PageFooterBand Name="PageFooter1" Printable="false" Top="197" Width="1047.06" Height="37.8">
      <TextObject Name="Text8" Width="1047.06" Height="37.8" Text="第[Page#]页，共[TotalPages#]页" HorzAlign="Center" Font="微软雅黑, 10pt"/>
    </PageFooterBand>
  </ReportPage>
</Report>