﻿<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReferencedAssemblies="System.dll&#13;&#10;System.Drawing.dll&#13;&#10;System.Windows.Forms.dll&#13;&#10;System.Data.dll&#13;&#10;System.Xml.dll&#13;&#10;ESToolkit.dll" DoublePass="true" StartReportEvent="_StartReport" ReportInfo.Created="01/16/2019 09:35:23" ReportInfo.Modified="01/27/2023 15:42:21" ReportInfo.CreatorVersion="2019.3.5.0" PrintSettings.SavePrinterWithReport="true">
  <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;
using ESToolkit;

namespace FastReport
{
  public class ReportScript
  {
    private void _StartReport(object sender, EventArgs e)
    {                                                                   
    }          
        

    private void Text20_AfterData(object sender, EventArgs e)
    {                                                                                  
      Decimal d=(Decimal) Report.GetTotalValue(&quot;借方合计&quot;);
      Decimal c=(Decimal) Report.GetTotalValue(&quot;贷方合计&quot;);
      if(d==0)
        d=c;
      Text20.Text =&quot; 合 计: &quot;+ Toolkit.ToChinese(d);
    }   
    Dictionary&lt;string,int&gt; dic =new  Dictionary&lt;string,int&gt;();
    int curPage,totalPages;
    string oldNo=&quot;&quot;;
    string curNo=&quot;&quot;;

    private void PageHeader1_BeforePrint(object sender, EventArgs e)
    {
      curNo= Toolkit.ToString((Guid)Report.GetColumnValue(&quot;主表.主键&quot;));
      if(Engine.FirstPass){
        if(dic.ContainsKey(curNo)){
          dic[curNo]=dic[curNo]+1;
        }else{
          dic[curNo]=1;
        }
      }
      if(Engine.FinalPass){
        if(oldNo!=curNo)
        {
          curPage=1;
          oldNo=curNo;
        }else{
          curPage=curPage+1;
        }
        if(dic.ContainsKey(curNo)) 
        {
          totalPages=dic[curNo];
        }
        else { totalPages = 1; }
        
      }   
    }
  }
}</ScriptText>
  <Dictionary>
    <TableDataSource Name="CW_AccVoucherDetTB" Alias="从表" ReferenceName="Data.CW_AccVoucherDetTB" DataType="System.Int32" Enabled="true">
      <Column Name="DeptName" Alias="部门" DataType="System.String"/>
      <Column Name="EmpName" Alias="员工" DataType="System.String"/>
      <Column Name="CustName" Alias="客户名称" DataType="System.String"/>
      <Column Name="PrvName" Alias="供应商" DataType="System.String"/>
      <Column Name="ProjectName" Alias="项目" DataType="System.String"/>
      <Column Name="ItemName" Alias="货品" DataType="System.String"/>
      <Column Name="CashName" Alias="现金流量" DataType="System.String"/>
      <Column Name="Num" Alias="数量" DataType="System.Decimal"/>
      <Column Name="ESID" Alias="主键" DataType="System.Guid"/>
      <Column Name="AutoID" Alias="自增" DataType="System.Int32"/>
      <Column Name="Remark" Alias="备注" DataType="System.String"/>
      <Column Name="PESID" Alias="父键" DataType="System.Guid"/>
      <Column Name="LESID" Alias="上级键" DataType="System.Guid"/>
      <Column Name="BillNo" Alias="单号" DataType="System.String"/>
      <Column Name="Digest" Alias="摘要" DataType="System.String"/>
      <Column Name="sAccName" Alias="会计科目|名称" DataType="System.String"/>
      <Column Name="AccName" Alias="名称" DataType="System.String"/>
      <Column Name="CoinName" Alias="外币|币种" DataType="System.String"/>
      <Column Name="FDebitM" Alias="外币借方金额" DataType="System.Decimal"/>
      <Column Name="FCreditM" Alias="外币贷方金额" DataType="System.Decimal"/>
      <Column Name="bDept" Alias="部门核算" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="DeptID" Alias="部门ID" DataType="System.String"/>
      <Column Name="bCust" Alias="客户核算" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="CustID" Alias="客户ID" DataType="System.String"/>
      <Column Name="bPrv" Alias="供应商核算" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="PrvID" Alias="供应商ID" DataType="System.String"/>
      <Column Name="bProject" Alias="项目核算" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="ProjectID" Alias="项目ID" DataType="System.String"/>
      <Column Name="bCash" Alias="是否现金流量" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="CashID" Alias="现金流量ID" DataType="System.String"/>
      <Column Name="bItem" Alias="货品核算" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="ItemID" Alias="货品ID" DataType="System.String"/>
      <Column Name="DebitNum" Alias="借方数量" DataType="System.Decimal"/>
      <Column Name="CreditNum" Alias="贷方数量" DataType="System.Decimal"/>
      <Column Name="bEmp" Alias="个人核算" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="EmpID" Alias="员工ID" DataType="System.String"/>
      <Column Name="ExchRate" Alias="外币|汇率" DataType="System.Decimal"/>
      <Column Name="OrgM" Alias="外币金额" DataType="System.Decimal"/>
      <Column Name="DebitM" Alias="借方金额" DataType="System.Decimal"/>
      <Column Name="CreditM" Alias="贷方金额" DataType="System.Decimal"/>
      <Column Name="AccCode" Alias="会计科目|编号" DataType="System.String"/>
    </TableDataSource>
    <TableDataSource Name="CW_AccVoucherHedTB" Alias="主表" ReferenceName="Data.CW_AccVoucherHedTB" DataType="System.Int32" Enabled="true">
      <Column Name="FHMan" Alias="复核ID" DataType="System.String"/>
      <Column Name="FHManName" Alias="登账人" DataType="System.String"/>
      <Column Name="YearMonth" Alias="年月" DataType="System.String"/>
      <Column Name="ESID" Alias="主键" DataType="System.Guid"/>
      <Column Name="AutoID" Alias="自增" DataType="System.Int32"/>
      <Column Name="Remark" Alias="备注" DataType="System.String"/>
      <Column Name="BillNo" Alias="单号" DataType="System.String"/>
      <Column Name="MakeMan" Alias="制单ID" DataType="System.String"/>
      <Column Name="MakeManName" Alias="制单人" DataType="System.String"/>
      <Column Name="EditMan" Alias="修改ID" DataType="System.String"/>
      <Column Name="EditManName" Alias="修改人" DataType="System.String"/>
      <Column Name="EditDate" Alias="修改日期" DataType="System.DateTime"/>
      <Column Name="OKMan" Alias="确认ID" DataType="System.String"/>
      <Column Name="OKManName" Alias="签字人" DataType="System.String"/>
      <Column Name="OKDate" Alias="签字日期" DataType="System.DateTime"/>
      <Column Name="AuditMan" Alias="审核ID" DataType="System.String"/>
      <Column Name="AuditManName" Alias="审核人" DataType="System.String"/>
      <Column Name="PZWord" Alias="凭证字" DataType="System.String"/>
      <Column Name="iYear" Alias="年" DataType="System.Int32"/>
      <Column Name="iMonth" Alias="月" DataType="System.Int32"/>
      <Column Name="PrintNum" Alias="打印次数" DataType="System.Int32"/>
      <Column Name="PZNo" Alias="凭证号" DataType="System.Int32"/>
      <Column Name="iDocNum" Alias="附单据数" DataType="System.Int32"/>
      <Column Name="bOK" Alias="是否签字" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="bAudit" Alias="是否审核" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="bPrint" Alias="是否打印" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="bFH" Alias="是否登账" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="BillDate" Alias="日期" DataType="System.DateTime"/>
      <Column Name="MakeDate" Alias="制单日期" DataType="System.DateTime"/>
      <Column Name="AuditDate" Alias="审核日期" DataType="System.DateTime"/>
      <Column Name="FHDate" Alias="登账日期" DataType="System.DateTime"/>
      <Column Name="bSelect" Alias="选择" DataType="System.Boolean" BindableControl="CheckBox"/>
    </TableDataSource>
    <TableDataSource Name="CompanSetTB" ReferenceName="Data.CompanSetTB" DataType="System.Int32" Enabled="true">
      <Column Name="CompanyName" DataType="System.String"/>
      <Column Name="TaxCode" DataType="System.String"/>
      <Column Name="Addr" DataType="System.String"/>
      <Column Name="Tel" DataType="System.String"/>
      <Column Name="Bank" DataType="System.String"/>
      <Column Name="BankNo" DataType="System.String"/>
      <Column Name="Fax" DataType="System.String"/>
      <Column Name="Web" DataType="System.String"/>
      <Column Name="LegalPerson" DataType="System.String"/>
      <Column Name="Logo" DataType="System.Drawing.Image, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" BindableControl="Picture"/>
    </TableDataSource>
    <Total Name="借方合计" Expression="[从表.借方金额]" Evaluator="Data2" PrintOn="GroupFooter1"/>
    <Total Name="贷方合计" Expression="[从表.贷方金额]" Evaluator="Data2" PrintOn="GroupFooter1"/>
  </Dictionary>
  <ReportPage Name="Page1" PaperHeight="148" LeftMargin="0" TopMargin="0" RightMargin="0" BottomMargin="0" FirstPageSource="15" OtherPagesSource="15" Watermark.Font="宋体, 60pt">
    <PageHeaderBand Name="PageHeader1" Width="793.8" BeforePrintEvent="PageHeader1_BeforePrint"/>
    <GroupHeaderBand Name="GroupHeader1" Top="4" Width="793.8" Height="170.1" StartNewPage="true" RepeatOnEveryPage="true" Condition="[主表.单号]" SortOrder="None" ResetPageNumber="true">
      <TextObject Name="Text2" Left="309.05" Top="75.6" Width="207.9" Height="28.35" Text="记  账  凭  证" HorzAlign="Center" Font="黑体, 16pt, style=Bold"/>
      <TextObject Name="Text5" Left="352.52" Top="109.08" Width="179.75" Height="21.17" Text="[主表.日期]" Format="Date" Format.Format="d" VertAlign="Center" Font="宋体, 10pt"/>
      <TextObject Name="Text6" Left="593.45" Top="108.7" Width="239.25" Height="22.9" Text="凭证号 ：[主表.凭证字][主表.凭证号]  [curPage]/[totalPages]" VertAlign="Center" Font="宋体, 10pt"/>
      <TextObject Name="Text33" Left="46.25" Top="132.3" Width="103.95" Height="37.8" Border.Lines="All" Text="摘   要" HorzAlign="Center" VertAlign="Center" Font="黑体, 11pt, style=Bold"/>
      <TextObject Name="Text34" Left="660.5" Top="132.3" Width="103.95" Height="37.8" Border.Lines="All" Text="贷  方" HorzAlign="Center" VertAlign="Center" Font="黑体, 11pt, style=Bold"/>
      <TextObject Name="Text35" Left="235.25" Top="132.3" Width="321.3" Height="37.8" Border.Lines="All" Text="科    目" HorzAlign="Center" VertAlign="Center" Font="黑体, 11pt, style=Bold"/>
      <TextObject Name="Text36" Left="556.55" Top="132.3" Width="103.95" Height="37.8" Border.Lines="All" Text="借  方" HorzAlign="Center" VertAlign="Center" Font="黑体, 11pt, style=Bold"/>
      <TextObject Name="Text1" Left="44.8" Top="111.4" Width="274.05" Height="18.9" Text="核算单位：[CompanSetTB.CompanyName]" VertAlign="Center" Font="宋体, 10pt"/>
      <TextObject Name="Text4" Left="150.2" Top="132.3" Width="85.05" Height="37.8" Border.Lines="All" Text="编码" HorzAlign="Center" VertAlign="Center" Font="黑体, 11pt, style=Bold"/>
      <DataBand Name="Data1" Top="178.1" Width="793.8" Guides="0" DataSource="CW_AccVoucherHedTB">
        <DataBand Name="Data2" Top="182.1" Width="793.8" Height="37.8" Guides="0" DataSource="CW_AccVoucherDetTB" Filter="[从表.父键]==[主表.主键]">
          <TextObject Name="Text12" Left="46.25" Width="103.95" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" Text="[从表.摘要]" VertAlign="Center" Font="黑体, 10pt"/>
          <TextObject Name="Text13" Left="235.25" Width="321.3" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" Text="[从表.会计科目|名称]" VertAlign="Center" Font="黑体, 10pt"/>
          <TextObject Name="Text14" Left="556.55" Width="103.95" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" Text="[IIf([从表.借方金额]==0,&quot;&quot;,[从表.借方金额])]&#13;&#10;" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="," Format.NegativePattern="1" HorzAlign="Right" VertAlign="Center" Font="黑体, 10pt"/>
          <TextObject Name="Text15" Left="660.5" Width="103.95" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" Text="[IIf([从表.贷方金额]==0,&quot;&quot;,[从表.贷方金额])]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="," Format.NegativePattern="1" HorzAlign="Right" VertAlign="Center" Font="黑体, 10pt"/>
          <TextObject Name="Text48" Left="150.2" Width="85.05" Height="37.8" Border.Lines="All" Text="[从表.会计科目|编号]" HorzAlign="Center" VertAlign="Center" Font="黑体, 10pt"/>
        </DataBand>
        <Sort>
          <Sort Expression="[主表.年月]"/>
          <Sort Expression="[主表.凭证号]"/>
        </Sort>
      </DataBand>
      <GroupFooterBand Name="GroupFooter1" Top="265.7" Width="793.8" Height="47.25" CanGrow="true" Guides="28.35" RepeatOnEveryPage="true">
        <TextObject Name="Text20" Left="235.25" Width="321.3" Height="47.25" Border.Lines="All" CanGrow="true" GrowToBottom="true" AfterDataEvent="Text20_AfterData" Text="合计：[借方合计]" VertAlign="Center" Font="黑体, 11pt, style=Bold"/>
        <TextObject Name="Text22" Left="660.5" Width="103.95" Height="47.25" Border.Lines="All" CanGrow="true" GrowToBottom="true" Text="[IIf([借方合计]==[贷方合计],[贷方合计],&quot;&quot;)]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="," Format.NegativePattern="1" HorzAlign="Right" VertAlign="Center" Font="黑体, 11pt"/>
        <TextObject Name="Text21" Left="556.55" Width="103.95" Height="47.25" Border.Lines="All" CanGrow="true" GrowToBottom="true" Text="[IIf([借方合计]==[贷方合计],[借方合计],&quot;&quot;)]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="," Format.NegativePattern="1" HorzAlign="Right" VertAlign="Center" Font="黑体, 11pt"/>
        <TextObject Name="Text3" Left="46.25" Width="103.95" Height="47.25" Border.Lines="All" Text="附件数：[IIf([主表.附单据数]==0,&quot;&quot;,[主表.附单据数])]" VertAlign="Center" Font="黑体, 11pt"/>
        <TextObject Name="Text50" Left="150.2" Width="85.05" Height="47.25" Border.Lines="All" VertAlign="Center" Font="黑体, 11pt"/>
        <ChildBand Name="Child2" Top="223.9" Width="793.8" Height="37.8" FillUnusedSpace="true">
          <TextObject Name="Text32" Left="660.5" Width="103.95" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="," Format.NegativePattern="1" HorzAlign="Center" VertAlign="Center" Font="宋体, 9pt"/>
          <TextObject Name="Text31" Left="556.55" Width="103.95" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="," Format.NegativePattern="1" HorzAlign="Center" VertAlign="Center" Font="宋体, 9pt"/>
          <TextObject Name="Text30" Left="235.25" Width="321.3" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" HorzAlign="Center" VertAlign="Center" Font="宋体, 9pt"/>
          <TextObject Name="Text29" Left="46.25" Width="103.95" Height="37.8" Border.Lines="All" CanGrow="true" GrowToBottom="true" VertAlign="Center" Font="宋体, 9pt"/>
          <TextObject Name="Text49" Left="150.2" Width="85.05" Height="37.8" Border.Lines="All" Font="宋体, 9pt"/>
        </ChildBand>
      </GroupFooterBand>
    </GroupHeaderBand>
    <PageFooterBand Name="PageFooter1" Top="316.95" Width="793.8" Height="59.14" CanGrow="true">
      <TextObject Name="Text23" Left="641.05" Top="2.1" Width="122.85" Height="19.24" CanGrow="true" GrowToBottom="true" Text="制单：[主表.制单人]" Font="宋体, 10pt"/>
      <TextObject Name="Text24" Left="44.67" Top="2.1" Width="137.2" Height="19.24" CanGrow="true" GrowToBottom="true" Text="审核：[主表.审核人]" Font="宋体, 10pt"/>
      <TextObject Name="Text46" Left="245.7" Width="137.2" Height="19.24" CanGrow="true" GrowToBottom="true" Text="记账：[主表.登账人]" Font="宋体, 10pt"/>
      <TextObject Name="Text47" Left="463.05" Width="156.1" Height="19.24" CanGrow="true" GrowToBottom="true" Text="出纳： [主表.签字人]" Font="宋体, 10pt"/>
    </PageFooterBand>
  </ReportPage>
</Report>
