unit U_YSZDList_MX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
  cxButtonEdit, cxTextEdit, BtnEdit, RM_e_Xls;

type
  TfrmYSZDList_MX = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ToolButton2: TToolButton;
    ADOQueryMain: TADOQuery;
    ToolButton1: TToolButton;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    Label3: TLabel;
    Label2: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    Label1: TLabel;
    Label4: TLabel;
    YFName: TEdit;
    Label7: TLabel;
    ComTaiTou: TEdit;
    Label6: TLabel;
    P_CodeName: TEdit;
    Label10: TLabel;
    Label12: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Order_Print: TClientDataSet;
    RMXLSExport1: TRMXLSExport;
    FactoryName: TComboBox;
    Label13: TLabel;
    Label14: TLabel;
    SGFangshi: TEdit;
    TeXing: TEdit;
    cxGrid2: TcxGrid;
    TV2: TcxGridDBTableView;
    v1CRTime: TcxGridDBColumn;
    v1FactoryName: TcxGridDBColumn;
    v1YFName: TcxGridDBColumn;
    v1GCName: TcxGridDBColumn;
    v1ComTaiTou: TcxGridDBColumn;
    v1P_CodeName: TcxGridDBColumn;
    v1TeXing: TcxGridDBColumn;
    v1SGFangshi: TcxGridDBColumn;
    v2JSTypeM: TcxGridDBColumn;
    v2XXPrice: TcxGridDBColumn;
    v1XFBFB: TcxGridDBColumn;
    v1KSFee: TcxGridDBColumn;
    v1KSFeeP8: TcxGridDBColumn;
    v1WPZFee: TcxGridDBColumn;
    v1XSFee: TcxGridDBColumn;
    v1Qty: TcxGridDBColumn;
    v1Price: TcxGridDBColumn;
    v1yfkye: TcxGridDBColumn;
    v1Note: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    V2yfk: TcxGridDBColumn;
    V2fk: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FactoryNameChange(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure v2SselPropertiesChange(Sender: TObject);
    procedure TPrintClick(Sender: TObject);
  private
    { Private declarations }
    procedure InitGrid();
  public
    { Public declarations }
    RKFlag,FCYID:String;

  end;

var
  frmYSZDList_MX: TfrmYSZDList_MX;

implementation
uses
  U_DataLink,U_Fun,U_ZDYHelp;

{$R *.dfm}

procedure TfrmYSZDList_MX.InitGrid();
var FMoney,FUSDMoney:double;
    i:Integer;
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryTemp do
    begin
      close;
      sql.Clear;
      sql.Add('select Sum(yfkye) yfkye,sum(USDyfkye) USDyfkye ');
      sql.add('from (select yfkye=(case when BZType<>''USD'' and BZType<>''$'' then Sum((Money+isnull(SXMoney,0))*QtyFlag) else 0 end) ');
      sql.add(',USDyfkye=(case when BZType<>''RMB'' and BZType<>''￥'' then Sum((Money+isnull(SXMoney,0))*QtyFlag) else 0 end) ');
      sql.add('from YF_Money_CR ');
      sql.add('where CRTime<'''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+'''');
      sql.add(' and CRtype in (''应收款登记'',''收款登记'') and isnull(FeeType,'''')<>''虚拟费用''');
      if FactoryName.Text<>'' then
      sql.add(' and FactoryName like '''+'%'+trim(FactoryName.Text)+'%'+'''');
      if YFName.Text<>'' then
      sql.add(' and YFName like '''+'%'+trim(YFName.Text)+'%'+'''');
      if ComTaiTou.Text<>'' then
      sql.add(' and ComTaiTou like '''+'%'+trim(ComTaiTou.Text)+'%'+'''');
      if P_CodeName.Text<>'' then
      sql.add(' and P_CodeName like '''+'%'+trim(P_CodeName.Text)+'%'+'''');
      if TeXing.Text<>'' then
      sql.add(' and TeXing like '''+'%'+trim(TeXing.Text)+'%'+'''');
      if SGFangshi.Text<>'' then
      sql.add(' and SGFangshi like '''+'%'+trim(SGFangshi.Text)+'%'+'''');
      sql.add(' and isnull(status,''0'')<>''0'' ');
      sql.add(' group by BZType) AA');
      open;
    end;
    FMoney:=ADOQueryTemp.fieldbyname('yfkye').asfloat;
    FUSDMoney:=ADOQueryTemp.fieldbyname('USDyfkye').asfloat;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      sql.Add(' select ConNo=isnull((select Top 1 F.ConNo from JYOrderCon_Sub E inner join JYOrderCon_Main F on E.Mainid=F.Mainid where E.Subid=AA.ConID),AA.ConNO)');
      sql.add(' ,OrderNO=isnull(AA.OrderNo,(select Top 1 E.OrderNo from JYOrder_Main E where E.Mainid=AA.Mainid))');
      sql.add(' ,AA.* ');
      sql.add(' from (select A.*,JSTypeM=(case when isnull(JSType,'''')='''' then TeXing else JSType end),');
      sql.Add(' yfk=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDyfk=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',fk=cast(0 as decimal(18,2)),USDfk=cast(0 as decimal(18,2))');
      sql.add(',USDSXMoney=cast(0 as decimal(18,2)),RMBSXMoney=cast(0 as decimal(18,2))');
      sql.add(',cast(0 as decimal(18,2)) yfkye,cast(0 as decimal(18,2)) USDyfkye');
      sql.add(',RMBMoney=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDMoney=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.Add(' from YF_Money_CR A');
      sql.Add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
      sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
      sql.Add(' and A.CRType=''应收款登记'' ');
      sql.Add(' and isnull(YFName,'''')<>''坯布虚拟费''');
      sql.add(' union all');
      sql.Add(' select A.*,JSTypeM=(case when isnull(TeXing,'''')='''' then SGFangshi else TeXing end),');
      sql.Add(' cast(0 as decimal(18,2)) yfk,cast(0 as decimal(18,2)) USDyfk ');
      sql.add(',fk=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDfk=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDSXMoney=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(SXMoney as decimal(18,2)) else 0 end)');
      sql.Add(',RMBSXMoney=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(SXMoney as decimal(18,2)) else 0 end)');
      sql.add(',cast(0 as decimal(18,2)) yfkye,cast(0 as decimal(18,2)) USDyfkye');
      sql.add(',RMBMoney=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDMoney=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.Add(' from YF_Money_CR A');
      sql.Add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
      sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
      sql.Add(' and A.CRType=''收款登记'' ) AA');
      sql.add(' where 1=1');
      if FactoryName.Text<>'' then
      sql.add(' and AA.FactoryName like '''+'%'+trim(FactoryName.Text)+'%'+'''');
      if YFName.Text<>'' then
      sql.add(' and AA.YFName like '''+'%'+trim(YFName.Text)+'%'+'''');
      if ComTaiTou.Text<>'' then
      sql.add(' and AA.ComTaiTou like '''+'%'+trim(ComTaiTou.Text)+'%'+'''');
      if P_CodeName.Text<>'' then
      sql.add(' and AA.P_CodeName like '''+'%'+trim(P_CodeName.Text)+'%'+'''');
      if TeXing.Text<>'' then
      sql.add(' and TeXing like '''+'%'+trim(TeXing.Text)+'%'+'''');
      if SGFangshi.Text<>'' then
      sql.add(' and SGFangshi like '''+'%'+trim(SGFangshi.Text)+'%'+'''');
      sql.add(' and isnull(AA.status,''0'')<>''0'' ');
      sql.Add('order by AA.CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_HZ);
    with CDS_HZ do
    begin
      append;
      fieldbyname('Ssel').AsBoolean:=false;
      fieldbyname('CRTime').Value:=begdate.DateTime;
      fieldbyname('yfkye').Value:=FMoney;
      fieldbyname('USDyfkye').Value:=FUSDMoney;
      post;
    end;
    CDS_HZ.DisableControls;
    with ADOQueryMain do
    begin
      first;
      while not eof do
      begin
        with CDS_HZ do
        begin
          append;
          fieldbyname('Ssel').AsBoolean:=false;
          fieldbyname('CRTime').Value:=ADOQueryMain.fieldbyname('CRTime').AsDateTime;
          fieldbyname('factoryName').Value:=ADOQueryMain.fieldbyname('factoryName').AsString;
          fieldbyname('P_CodeName').Value:=ADOQueryMain.fieldbyname('P_CodeName').AsString;
          fieldbyname('YFName').Value:=ADOQueryMain.fieldbyname('YFName').AsString;
          fieldbyname('TeXing').Value:=ADOQueryMain.fieldbyname('TeXing').AsString;
          fieldbyname('SGFangshi').Value:=ADOQueryMain.fieldbyname('SGFangshi').AsString;
          fieldbyname('Qtyunit').Value:=ADOQueryMain.fieldbyname('Qtyunit').AsString;
          fieldbyname('GCName').Value:=ADOQueryMain.fieldbyname('GCName').AsString;
          fieldbyname('JSTypeM').Value:=ADOQueryMain.fieldbyname('JSTypeM').AsString;
          fieldbyname('XXPrice').Value:=ADOQueryMain.fieldbyname('XXPrice').AsFloat;
          fieldbyname('XFBFB').Value:=ADOQueryMain.fieldbyname('XFBFB').AsFloat;
          fieldbyname('KSFee').Value:=ADOQueryMain.fieldbyname('KSFee').AsFloat;
          fieldbyname('KSFeeP8').Value:=ADOQueryMain.fieldbyname('KSFeeP8').AsFloat;
          fieldbyname('WPZFee').Value:=ADOQueryMain.fieldbyname('WPZFee').AsFloat;
          fieldbyname('XSFee').Value:=ADOQueryMain.fieldbyname('XSFee').AsFloat;
          fieldbyname('Qty').Value:=ADOQueryMain.fieldbyname('Qty').AsFloat;
          fieldbyname('Price').Value:=ADOQueryMain.fieldbyname('Price').AsFloat;
          fieldbyname('yfk').Value:=ADOQueryMain.fieldbyname('yfk').AsFloat;
          fieldbyname('fk').Value:=ADOQueryMain.fieldbyname('fk').AsFloat;
          fieldbyname('USDyfk').Value:=ADOQueryMain.fieldbyname('USDyfk').AsFloat;
          fieldbyname('USDfk').Value:=ADOQueryMain.fieldbyname('USDfk').AsFloat;
          FMoney:=FMoney+ADOQueryMain.fieldbyname('RMBMoney').AsFloat*ADOQueryMain.fieldbyname('QtyFlag').AsFloat;
          FUSDMoney:=FUSDMoney+ADOQueryMain.fieldbyname('USDMoney').AsFloat*ADOQueryMain.fieldbyname('QtyFlag').AsFloat;
          fieldbyname('yfkye').Value:=FMoney;
          fieldbyname('USDyfkye').Value:=FUSDMoney;
          FieldByName('USDSXMoney').Value:=ADOQueryMain.fieldbyname('USDSXMoney').AsFloat;
          FieldByName('RMBSXMoney').Value:=ADOQueryMain.fieldbyname('RMBSXMoney').AsFloat;
          fieldbyname('note').Value:=ADOQueryMain.fieldbyname('note').AsString;
          fieldbyname('FKType').Value:=ADOQueryMain.fieldbyname('FKType').AsString;
          fieldbyname('YFName').Value:=ADOQueryMain.fieldbyname('YFName').AsString;
          fieldbyname('ComTaiTou').Value:=trim(ADOQueryMain.fieldbyname('ComTaiTou').AsString);
          post;
        end;
        next;
      end;
    end;
    CDS_HZ.EnableControls;
    for i:=1 to 33-CDS_HZ.RecordCount do
    begin
      with CDS_HZ do
      begin
        Append;
        post;
      end;
    end;
  finally
    ADOQueryMain.EnableControls;
  end;
end;


procedure TfrmYSZDList_MX.FormDestroy(Sender: TObject);
begin
  frmYSZDList_MX:=nil;
end;

procedure TfrmYSZDList_MX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmYSZDList_MX.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('应收款对账信息',Tv2,'财务管理2');
  Close;
end;
procedure TfrmYSZDList_MX.FormShow(Sender: TObject);
var fsj:string;
begin
  ReadCxGrid('应收款对账信息',Tv2,'财务管理2');
  Enddate.DateTime:=SGetServerDate(ADOQueryTemp);
  begdate.DateTime:=Enddate.DateTime-7;
  fsj:='select distinct (A.FactoryName) name from YF_Money_CR A where A.CRType=''应收款登记'' ';
  SInitComBoxBySql(ADOQueryCmd,FactoryName,False,fsj);

  //InitGrid();
end;

procedure TfrmYSZDList_MX.TBRafreshClick(Sender: TObject);
begin
  Toolbar1.SetFocus;
  InitGrid();
end;

procedure TfrmYSZDList_MX.ToolButton2Click(Sender: TObject);
var
  fsj:string;
begin
  initgrid();
end;

procedure TfrmYSZDList_MX.FactoryNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmYSZDList_MX.ToolButton1Click(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then Exit;
  SelExportData(Tv2,ADOQueryMain,'应收款收款统计列表');
end;

procedure TfrmYSZDList_MX.FormCreate(Sender: TObject);
begin
  cxGrid2.Align:=AlClient;
end;

procedure TfrmYSZDList_MX.v2SselPropertiesChange(Sender: TObject);
begin
  toolBar1.SetFocus;
  HJ(CDS_HZ,Label12,CDS_HZ.fieldbyname('ps').AsCurrency);
  HJ(CDS_HZ,Label11,CDS_HZ.fieldbyname('Qty').AsCurrency);
end;

procedure TfrmYSZDList_MX.TPrintClick(Sender: TObject);
var fPrintFile,FFactoryName,FComTaiTou,FSQNo:string;
    FSQMoney:double;
    FMoney,FUSDMoney:double;
begin
  if CDS_HZ.IsEmpty then exit;
    with ADOQueryTemp do
    begin
      close;
      sql.Clear;
      sql.Add('select Sum(yfkye) yfkye,sum(USDyfkye) USDyfkye ');
      sql.add('from (select yfkye=(case when BZType<>''USD'' and BZType<>''$'' then Sum(Money*QtyFlag) else 0 end) ');
      sql.add(',USDyfkye=(case when BZType<>''RMB'' and BZType<>''￥'' then Sum(Money*QtyFlag) else 0 end) ');
      sql.add('from YF_Money_CR ');
      sql.add('where CRTime<'''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+'''');
      sql.add(' and CRtype in (''应收款登记'',''收款登记'') and isnull(FeeType,'''')<>''虚拟费用''');
      if FactoryName.Text<>'' then
      sql.add(' and FactoryName like '''+'%'+trim(FactoryName.Text)+'%'+'''');
      if YFName.Text<>'' then
      sql.add(' and YFName like '''+'%'+trim(YFName.Text)+'%'+'''');
      if ComTaiTou.Text<>'' then
      sql.add(' and ComTaiTou like '''+'%'+trim(ComTaiTou.Text)+'%'+'''');
      sql.add(' and status=(case when CRType=''应收款登记'' and (YFName=''成品销售金额'' or Isnull(FeeType,'''')=''其他费用'') then ''3'' else ''2'' end)');
      sql.add(' group by BZType) AA');
      open;
    end;
    FMoney:=ADOQueryTemp.fieldbyname('yfkye').asfloat;
    FUSDMoney:=ADOQueryTemp.fieldbyname('USDyfkye').asfloat;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      sql.Add(' select P_CodeName=isnull((select Top 1 E.PrtCodeName from JYOrderCon_Sub E where E.Subid=AA.ConID),AA.P_CodeName)');
      sql.add(' ,P_Color=(select Top 1 isnull(E.PRTColor,E.SOrdDefStr4) from JYOrderCon_Sub E where E.Subid=AA.ConID)');
      sql.add(' ,P_Spec=Isnull((select Top 1 E.prtspec from JYOrderCon_Sub E where E.Subid=AA.ConID),P_Spec)');
      sql.add(' ,ConNo=isnull((select Top 1 F.ConNo from JYOrderCon_Sub E inner join JYOrderCon_Main F on E.Mainid=F.Mainid where E.Subid=AA.ConID),AA.ConNO)');
      sql.add(' ,OrderNO=isnull(AA.OrderNo,(select Top 1 E.OrderNo from JYOrder_Main E where E.Mainid=AA.Mainid))');
      sql.add(' ,AA.* ');
      sql.add(' from (select A.*,yfk=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDyfk=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',fk=cast(0 as decimal(18,2)),USDfk=cast(0 as decimal(18,2))');
      sql.add(',cast(0 as decimal(18,2)) yfkye,cast(0 as decimal(18,2)) USDyfkye');
      sql.add(',RMBMoney=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDMoney=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.Add(' from YF_Money_CR A');
      sql.Add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
      sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
      sql.Add(' and A.CRType=''应收款登记'' ');
      sql.Add(' and isnull(YFName,'''')<>''坯布虚拟费''');
      sql.add(' union all');
      sql.Add(' select A.*,cast(0 as decimal(18,2)) yfk,cast(0 as decimal(18,2)) USDyfk ');
      sql.add(',fk=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDfk=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',cast(0 as decimal(18,2)) yfkye,cast(0 as decimal(18,2)) USDyfkye');
      sql.add(',RMBMoney=(case when A.BZType<>''USD'' and A.BZType<>''$'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.add(',USDMoney=(case when A.BZType<>''RMB'' and A.BZType<>''￥'' then cast(Money as decimal(18,2)) else 0 end)');
      sql.Add(' from YF_Money_CR A');
      sql.Add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
      sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
      sql.Add(' and A.CRType=''收款登记'' ) AA');
      sql.add(' where 1=1');
      if FactoryName.Text<>'' then
      sql.add(' and AA.FactoryName like '''+'%'+trim(FactoryName.Text)+'%'+'''');
      if YFName.Text<>'' then
      sql.add(' and AA.YFName like '''+'%'+trim(YFName.Text)+'%'+'''');
      if ComTaiTou.Text<>'' then
      sql.add(' and AA.ComTaiTou like '''+'%'+trim(ComTaiTou.Text)+'%'+'''');
      sql.add(' and AA.status=(case when CRType=''应收款登记'' and (YFName=''成品销售金额'' or Isnull(FeeType,'''')=''其他费用'') then ''3'' else ''2'' end)');
      sql.Add('order by AA.CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,Order_Print);
    with Order_Print do
    begin
      append;
      fieldbyname('Ssel').AsBoolean:=false;
      fieldbyname('CRTime').Value:=begdate.DateTime;
      fieldbyname('yfkye').Value:=FMoney;
      fieldbyname('USDyfkye').Value:=FUSDMoney;
      post;
    end;
    with ADOQueryMain do
    begin
      first;
      while not eof do
      begin
        with Order_Print do
        begin
          append;
          fieldbyname('Ssel').AsBoolean:=false;
          fieldbyname('CRTime').Value:=ADOQueryMain.fieldbyname('CRTime').AsDateTime;
          fieldbyname('factoryName').Value:=ADOQueryMain.fieldbyname('factoryName').AsString;
          fieldbyname('ConNO').Value:=ADOQueryMain.fieldbyname('ConNO').AsString;
          fieldbyname('P_CodeName').Value:=ADOQueryMain.fieldbyname('P_CodeName').AsString;
          fieldbyname('OrderNO').Value:=ADOQueryMain.fieldbyname('OrderNO').AsString;
          fieldbyname('P_Color').Value:=ADOQueryMain.fieldbyname('P_Color').AsString;
          fieldbyname('P_Spec').Value:=ADOQueryMain.fieldbyname('P_Spec').AsString;
          fieldbyname('YFName').Value:=ADOQueryMain.fieldbyname('YFName').AsString;
          fieldbyname('QtyUnit').Value:=ADOQueryMain.fieldbyname('QtyUnit').AsString;
          fieldbyname('ps').Value:=ADOQueryMain.fieldbyname('ps').AsFloat;
          fieldbyname('Qty').Value:=ADOQueryMain.fieldbyname('Qty').AsFloat;
          fieldbyname('Price').Value:=ADOQueryMain.fieldbyname('Price').AsFloat;
          fieldbyname('yfk').Value:=ADOQueryMain.fieldbyname('yfk').AsFloat;
          fieldbyname('fk').Value:=ADOQueryMain.fieldbyname('fk').AsFloat;
          fieldbyname('USDyfk').Value:=ADOQueryMain.fieldbyname('USDyfk').AsFloat;
          fieldbyname('USDfk').Value:=ADOQueryMain.fieldbyname('USDfk').AsFloat;
          FMoney:=FMoney+ADOQueryMain.fieldbyname('RMBMoney').AsFloat*ADOQueryMain.fieldbyname('QtyFlag').AsFloat;
          FUSDMoney:=FUSDMoney+ADOQueryMain.fieldbyname('USDMoney').AsFloat*ADOQueryMain.fieldbyname('QtyFlag').AsFloat;
          fieldbyname('yfkye').Value:=FMoney;
          fieldbyname('USDyfkye').Value:=FUSDMoney;
          fieldbyname('note').Value:=ADOQueryMain.fieldbyname('note').AsString;
          fieldbyname('FKType').Value:=ADOQueryMain.fieldbyname('FKType').AsString;
          fieldbyname('YFName').Value:=ADOQueryMain.fieldbyname('YFName').AsString;
          fieldbyname('FeeType').Value:=ADOQueryMain.fieldbyname('FeeType').AsString;
          fieldbyname('ComTaiTou').Value:=trim(ADOQueryMain.fieldbyname('ComTaiTou').AsString);
          post;
        end;
        next;
      end;
    end;
  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\应收款对账单.rmf';
  if FileExists(fPrintFile) then
  begin
    RMVariables['FComTaiTou']:=trim(Order_Print.fieldbyname('ComTaiTou').AsString);
    RMVariables['FKHName']:=trim(Order_Print.fieldbyname('factoryName').AsString);
    RM1.LoadFromFile(fPrintFile);
    RM1.ShowReport;
  end else
  begin
    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\应收款对账单.rmf'),'提示',0);
  end;
end;

end.