Recoding
/
PEIS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

1、费用统计模板改动

Browse Source
dhzzyy
lsm 9 months ago
parent a8e2adb50b
commit 40170a8fd2
4 changed files with 96 additions and 73 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      PEIS/Entity/EnrollmentFeeItem.cs
  2. 6
      PEIS/Model/StatisticalReportModel.cs
  3. 155
      PEIS/ReportFiles/CostCount.frx
  4. 4
      PEIS/View/statistics/StatisticalReportForm.cs

4
PEIS/Entity/EnrollmentFeeItem.cs
Unescape View File

@ -55,6 +55,10 @@ namespace PEIS.Entity
[RefFlag(true)]
public Decimal? Discount { get; set; }
//总价
[RefFlag(true)]
public Decimal? TotalPrice { get; set; }
//是否治疗费
[RefFlag(true)]
public Boolean IsHide { get; set; }

6
PEIS/Model/StatisticalReportModel.cs
Unescape View File

@ -348,6 +348,7 @@ namespace PEIS.Model
a.FeeItemName,
a.Price,
COUNT ( * ) AS Quantity,
CONVERT ( DECIMAL ( 18, 2 ), SUM ( a.Price )) AS TotalPrice,
b.Discount,
Convert(decimal(18,2),SUM ( a.Price ) * b.Discount / 10) AS Fee
FROM
@ -369,6 +370,7 @@ namespace PEIS.Model
a.FeeItemName,
a.Price,
COUNT ( * ) AS Quantity,
CONVERT ( DECIMAL ( 18, 2 ), SUM ( a.Price )) AS TotalPrice,
b.Discount,
Convert(decimal(18,2),SUM ( a.Price ) * b.Discount / 10) AS Fee
FROM
@ -395,6 +397,7 @@ namespace PEIS.Model
a.FeeItemName,
a.Price,
COUNT ( * ) AS Quantity,
CONVERT ( DECIMAL ( 18, 2 ), SUM ( a.Price )) AS TotalPrice,
b.Discount,
Convert(decimal(18,2),SUM ( a.Price ) * b.Discount / 10) AS Fee
FROM
@ -416,6 +419,7 @@ namespace PEIS.Model
a.FeeItemName,
a.Price,
COUNT ( * ) AS Quantity,
CONVERT ( DECIMAL ( 18, 2 ), SUM ( a.Price )) AS TotalPrice,
b.Discount,
Convert(decimal(18,2),SUM ( a.Price ) * b.Discount / 10) AS Fee
FROM
@ -442,6 +446,7 @@ namespace PEIS.Model
a.FeeItemName,
a.Price,
COUNT ( * ) AS Quantity,
CONVERT ( DECIMAL ( 18, 2 ), SUM ( a.Price )) AS TotalPrice,
b.Discount,
Convert(decimal(18,2),SUM ( a.Price ) * b.Discount / 10) AS Fee
FROM
@ -463,6 +468,7 @@ namespace PEIS.Model
a.FeeItemName,
a.Price,
COUNT ( * ) AS Quantity,
CONVERT ( DECIMAL ( 18, 2 ), SUM ( a.Price )) AS TotalPrice,
b.Discount,
Convert(decimal(18,2),SUM ( a.Price ) * b.Discount / 10) AS Fee
FROM

155
PEIS/ReportFiles/CostCount.frx
Unescape View File

@ -1,5 +1,5 @@
<?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">
<Report ScriptLanguage="CSharp" ReportInfo.Created="06/27/2023 00:02:11" ReportInfo.Modified="08/28/2024 10:33:14" ReportInfo.CreatorVersion="2022.1.0.0">
<ScriptText>using System;
using System.Collections;
using System.Collections.Generic;
@ -20,8 +20,10 @@ namespace FastReport
{
public double itemTotal = 0;
public double itemFee = 0;
public double itemPrice = 0;
public double deptTotal= 0;
public double deptFee = 0;
public double deptPrice = 0;
public string deptName = &quot;科室&quot;;
@ -35,27 +37,33 @@ namespace FastReport
if(deptName.Equals(rowData[&quot;DeptName&quot;].ToString()))
{
deptTotal += Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
deptPrice += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
deptFee += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
deptPrice += Convert.ToDouble(rowData[&quot;TotalPrice&quot;].ToString());
Cell181.Text = deptTotal.ToString();
Cell186.Text = deptPrice.ToString();
Cell183.Text = deptPrice.ToString();
Cell186.Text = deptFee.ToString();
}else{
if(deptName == &quot;科室&quot;){
deptTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
deptPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
deptFee = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
deptPrice = Convert.ToDouble(rowData[&quot;TotalPrice&quot;].ToString());
Cell181.Text = deptTotal.ToString();
Cell186.Text = deptPrice.ToString();
Cell183.Text = deptPrice.ToString();
Cell186.Text = deptFee.ToString();
}else{
deptTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
deptPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
deptFee = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
deptPrice = Convert.ToDouble(rowData[&quot;TotalPrice&quot;].ToString());
Cell181.Text = deptTotal.ToString();
Cell186.Text = deptPrice.ToString();
Cell183.Text = deptPrice.ToString();
Cell186.Text = deptFee.ToString();
}
deptName = rowData[&quot;DeptName&quot;].ToString();
@ -67,27 +75,34 @@ namespace FastReport
if(feeItem.Equals(rowData[&quot;FeeItemName&quot;].ToString()))
{
itemTotal += Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
itemPrice += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
itemFee += Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
itemPrice += Convert.ToDouble(rowData[&quot;TotalPrice&quot;].ToString());
Cell172.Text = itemTotal.ToString();
Cell177.Text = itemPrice.ToString();
Cell212.Text = itemTotal.ToString();
Cell218.Text = itemFee.ToString();
Cell216.Text = itemPrice.ToString();
}else{
if(feeItem == &quot;项目&quot;){
itemTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
itemPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
itemFee = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
itemPrice = Convert.ToDouble(rowData[&quot;TotalPrice&quot;].ToString());
Cell172.Text = itemTotal.ToString();
Cell177.Text = itemPrice.ToString();
Cell212.Text = itemTotal.ToString();
Cell218.Text = itemFee.ToString();
Cell216.Text = itemPrice.ToString();
}else{
itemTotal = Convert.ToDouble(rowData[&quot;Quantity&quot;].ToString());
itemPrice = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
itemFee = Convert.ToDouble(rowData[&quot;Fee&quot;].ToString());
itemPrice = Convert.ToDouble(rowData[&quot;TotalPrice&quot;].ToString());
Cell172.Text = itemTotal.ToString();
Cell177.Text = itemPrice.ToString();
Cell212.Text = itemTotal.ToString();
Cell218.Text = itemFee.ToString();
Cell216.Text = itemPrice.ToString();
}
feeItem = rowData[&quot;FeeItemName&quot;].ToString();
@ -102,10 +117,6 @@ namespace FastReport
<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">
@ -128,16 +139,17 @@ namespace FastReport
</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">
<TableObject Name="Table39" Width="718.2" Height="28.35" Border.Lines="All" Fill.Color="Silver">
<TableColumn Name="Column116" Width="123.95"/>
<TableColumn Name="Column117" Width="265.7"/>
<TableColumn Name="Column117" Width="218.45"/>
<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"/>
<TableColumn Name="Column123" Width="78.9"/>
<TableColumn Name="Column124" Width="47.91"/>
<TableColumn Name="Column152" Width="75.6"/>
<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"/>
@ -146,55 +158,60 @@ namespace FastReport
<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"/>
<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"/>
<TableCell Name="Cell196" 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"/>
<TableObject Name="Table43" Width="718.2" Height="28.35" Border.Lines="All">
<TableColumn Name="Column153" Width="123.95"/>
<TableColumn Name="Column154" Width="218.45"/>
<TableColumn Name="Column155" Width="1.28"/>
<TableColumn Name="Column156" Width="86.15"/>
<TableColumn Name="Column157" Width="1.28"/>
<TableColumn Name="Column158" Width="83.4"/>
<TableColumn Name="Column159" Width="1.28"/>
<TableColumn Name="Column160" Width="78.9"/>
<TableColumn Name="Column161" Width="47.91"/>
<TableColumn Name="Column162" Width="75.6"/>
<TableRow Name="Row52" Height="28.35">
<TableCell Name="Cell197" Border.Lines="All" Text="[P.FeeItemName]" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
<TableCell Name="Cell198" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell199" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell200" Border.Lines="All" Text="[P.Quantity]" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
<TableCell Name="Cell201" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell202" Border.Lines="All" Text="[P.Price]" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
<TableCell Name="Cell203" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell204" Border.Lines="All" Text="[P.TotalPrice]" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell205" Border.Lines="All" Text="[P.Discount]" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell206" 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"/>
<TableObject Name="Table44" Width="718.2" Height="28.35" Border.Lines="All">
<TableColumn Name="Column165" Width="123.95"/>
<TableColumn Name="Column166" Width="218.45"/>
<TableColumn Name="Column167" Width="1.28"/>
<TableColumn Name="Column168" Width="86.15"/>
<TableColumn Name="Column169" Width="1.28"/>
<TableColumn Name="Column170" Width="83.4"/>
<TableColumn Name="Column171" Width="1.28"/>
<TableColumn Name="Column172" Width="78.9"/>
<TableColumn Name="Column173" Width="47.91"/>
<TableColumn Name="Column174" Width="75.6"/>
<TableRow Name="Row53" Height="28.35">
<TableCell Name="Cell209" Border.Lines="All" Text="-[P.FeeItemName]-小计" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="3"/>
<TableCell Name="Cell210" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell211" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell212" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
<TableCell Name="Cell213" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell214" Border.Lines="All" Text="[P.Price]" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
<TableCell Name="Cell215" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell216" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt" ColSpan="2"/>
<TableCell Name="Cell217" Border.Lines="All" VertAlign="Center" Font="微软雅黑, 10pt"/>
<TableCell Name="Cell218" VertAlign="Center" Font="微软雅黑, 10pt"/>
</TableRow>
</TableObject>
</GroupFooterBand>
@ -202,14 +219,14 @@ namespace FastReport
<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="Column135" Width="218.45"/>
<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"/>
<TableColumn Name="Column141" Width="78.9"/>
<TableColumn Name="Column142" Width="123.51"/>
<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"/>

4
PEIS/View/statistics/StatisticalReportForm.cs
Unescape View File

@ -168,10 +168,6 @@ namespace PEIS.View.Statistics
break;
case "CostCount":
sReport.RegisterData(_eFeeItems, "p");
sReport.SetParameterValue("TotalQuantity", _eFeeItems.Sum(s => s.Quantity));
sReport.SetParameterValue("TotalSettlePrice", _eFeeItems.Sum(s => s.SettlePrice));
sReport.SetParameterValue("TotalSettleFee", _eFeeItems.Sum(s => s.SettleFee));
sReport.SetParameterValue("TotalPrice", _eFeeItems.Sum(s => s.Price));
sReport.SetParameterValue("TotalFee", _eFeeItems.Sum(s => s.Fee));
sReport.SetParameterValue("DeptName", (DeptComboBox.SelectedItem as User)?.DeptName);
break;

Write Preview
Loading…
Cancel
Save