Recoding
/
PEIS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
体检系统架构
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 Commits
6 Branches
0 Tags
168 MiB
 
 
 
Tag: Branch: Tree: 2690104bb0
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '2690104bb0'
${ noResults }
PEIS/PEIS/ReportFiles/CostCount.frx

255 lines
16 KiB
Raw Blame History

<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="06/27/2023 00:02:11" ReportInfo.Modified="07/15/2024 13:22:11" 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 itemTotal = 0;
public double itemPrice = 0;
public double deptTotal= 0;
public double deptPrice = 0;
public string deptName = &quot;科室&quot;;
public string feeItem = &quot;项目&quot;;
private void CostCount_AfterData(object sender, EventArgs e)
{
DataSourceBase rowData = Report.GetDataSource(&quot;P&quot;);
#region 科室
if(deptName.Equals(rowData[&quot;DeptName&quot;].ToString()))
{
deptTotal += Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
deptPrice += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
Cell181.Text = deptTotal.ToString();
Cell186.Text = deptPrice.ToString();
}else{
if(deptName == &quot;科室&quot;){
deptTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
deptPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
Cell181.Text = deptTotal.ToString();
Cell186.Text = deptPrice.ToString();
}else{
deptTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
deptPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
Cell181.Text = deptTotal.ToString();
Cell186.Text = deptPrice.ToString();
}
deptName = rowData[&quot;DeptName&quot;].ToString();
}
#endregion
#region 项目
if(feeItem.Equals(rowData[&quot;FeeItemName&quot;].ToString()))
{
itemTotal += Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
itemPrice += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
Cell172.Text = itemTotal.ToString();
Cell177.Text = itemPrice.ToString();
}else{
if(feeItem == &quot;项目&quot;){
itemTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
itemPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
Cell172.Text = itemTotal.ToString();
Cell177.Text = itemPrice.ToString();
}else{
itemTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
itemPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
Cell172.Text = itemTotal.ToString();
Cell177.Text = itemPrice.ToString();
}
feeItem = rowData[&quot;FeeItemName&quot;].ToString();
}
#endregion
}
}
}
</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="77.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="126.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="157.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="187.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" Text="[P.Price]" 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="217.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="248.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="278.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>