加一个指示单号过滤条件，匹数汇总注脚加下

2025-11-15 10:35:30 +08:00 · 2025-11-15 10:35:30 +08:00 · cc41975176
commit cc41975176
parent e07d994b64
2 changed files with 90 additions and 103 deletions
--- a/应收应付(YSYF.dll)/U_YSMXlist.dfm
+++ b/应收应付(YSYF.dll)/U_YSMXlist.dfm
@ -79,7 +79,7 @@ object frmYSMXlist: TfrmYSMXlist
    Left = 0
    Top = 31
    Width = 1306
-    Height = 38
+    Height = 42
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
@ -92,13 +92,6 @@ object frmYSMXlist: TfrmYSMXlist
      Height = 12
      Caption = #21697#21517
    end
-    object Label3: TLabel
-      Left = 510
-      Top = 45
-      Width = 48
-      Height = 12
-      Caption = #20986#24211#21333#21495
-    end
    object Label2: TLabel
      Left = 22
      Top = 13
@ -134,6 +127,13 @@ object frmYSMXlist: TfrmYSMXlist
      Height = 12
      Caption = #25351#31034#21333#21495
    end
+    object Label3: TLabel
+      Left = 510
+      Top = 45
+      Width = 48
+      Height = 12
+      Caption = #20986#24211#21333#21495
+    end
    object MPRTCodeName: TEdit
      Tag = 2
      Left = 726
@ -143,15 +143,6 @@ object frmYSMXlist: TfrmYSMXlist
      TabOrder = 0
      OnChange = MPRTCodeNameChange
    end
-    object OrderNo: TEdit
-      Tag = 2
-      Left = 558
-      Top = 41
-      Width = 120
-      Height = 20
-      TabOrder = 1
-      OnChange = OrderNoChange
-    end
    object begdate: TDateTimePicker
      Left = 72
      Top = 9
@ -160,7 +151,7 @@ object frmYSMXlist: TfrmYSMXlist
      Date = 41256.918237847230000000
      Format = 'yyyy-MM-dd'
      Time = 41256.918237847230000000
-      TabOrder = 2
+      TabOrder = 1
    end
    object Enddate: TDateTimePicker
      Left = 182
@ -170,7 +161,7 @@ object frmYSMXlist: TfrmYSMXlist
      Date = 41256.918237847230000000
      Format = 'yyyy-MM-dd'
      Time = 41256.918237847230000000
-      TabOrder = 3
+      TabOrder = 2
    end
    object OrdDefNote3: TComboBox
      Tag = 1
@ -179,7 +170,7 @@ object frmYSMXlist: TfrmYSMXlist
      Width = 145
      Height = 20
      ItemHeight = 12
-      TabOrder = 4
+      TabOrder = 3
      OnChange = MPRTCodeNameChange
      Items.Strings = (
        #24050#20132#21333
@ -197,26 +188,25 @@ object frmYSMXlist: TfrmYSMXlist
      Top = 9
      Width = 120
      Height = 20
-      TabOrder = 5
+      TabOrder = 4
      OnChange = MPRTCodeNameChange
      OnKeyPress = factoryNameKeyPress
    end
-    object Edit1: TEdit
+    object OrderNo: TEdit
      Tag = 2
-      Left = 556
+      Left = 557
      Top = 9
      Width = 120
      Height = 20
-      TabOrder = 6
-      OnChange = MPRTCodeNameChange
-      OnKeyPress = factoryNameKeyPress
+      TabOrder = 5
+      OnChange = OrderNoChange
    end
  end
  object cxGrid2: TcxGrid
    Left = 0
-    Top = 69
+    Top = 73
    Width = 1306
-    Height = 459
+    Height = 455
    Align = alClient
    TabOrder = 2
    object TV1: TcxGridDBBandedTableView
--- a/应收应付(YSYF.dll)/U_YSMXlist.pas
+++ b/应收应付(YSYF.dll)/U_YSMXlist.pas
@ -5,30 +5,28 @@ 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,
+  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, cxDropDownEdit, RM_e_Xls,
-  cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels,
-  cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
-  dxSkinscxPCPainter, cxCurrencyEdit, dxSkinBlack, dxSkinBlue,
-  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
-  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
-  dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
-  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
-  dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
+  cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+  dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCurrencyEdit,
+  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
+  dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
-  dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
-  dxSkinXmas2008Blue;
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
+  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;

 type
  TfrmYSMXlist = class(TForm)
@ -43,8 +41,6 @@ type
    MPRTCodeName: TEdit;
    ADOQueryMain: TADOQuery;
    ToolButton1: TToolButton;
-    Label3: TLabel;
-    OrderNo: TEdit;
    cxGrid2: TcxGrid;
    cxGridLevel1: TcxGridLevel;
    Label2: TLabel;
@ -84,7 +80,8 @@ type
    TV1Column1: TcxGridDBBandedColumn;
    TV1Column3: TcxGridDBBandedColumn;
    Label7: TLabel;
-    Edit1: TEdit;
+    OrderNo: TEdit;
+    Label3: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
@ -102,36 +99,33 @@ type
    { Private declarations }

    procedure InitGrid();
-
  public
-    { Public declarations }              
-    RKFlag,FCYID:String;
-    fType:string;
-
+    { Public declarations }
+    RKFlag, FCYID: string;
+    fType: string;
  end;

 var
  frmYSMXlist: TfrmYSMXlist;

 implementation
+
 uses
-  U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList;
+  U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderNewList;

 {$R *.dfm}

-
-
 procedure TfrmYSMXlist.InitGrid();
 begin
-  IF trim(factoryName.Text)='' then
+  if trim(factoryName.Text) = '' then
  begin
-    application.MessageBox('请输入客户，以便提高查询速度！','提示信息',MB_ICONERROR);
+    application.MessageBox('请输入客户，以便提高查询速度！', '提示信息', MB_ICONERROR);
    exit;
  end;
-  screen.Cursor:=crsqlwait;
-  Panetime.Visible:=true;
-  Panetime.Left:=(Width-Panetime.Width) div 2;
-  Panetime.top:=(Height-Panetime.Height-200) div 2;
+  screen.Cursor := crsqlwait;
+  Panetime.Visible := true;
+  Panetime.Left := (Width - Panetime.Width) div 2;
+  Panetime.top := (Height - Panetime.Height - 200) div 2;
  application.ProcessMessages;
  try
    ADOQueryMain.DisableControls;
@ -139,43 +133,43 @@ begin
    begin
      Close;
      SQL.Clear;
-      Filtered:=False;
+      Filtered := False;
      sql.Add(' exec  P_Qry_Ysk_mx :begdate,:enddate,:factoryName');
-      Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime));
-      Parameters.ParamByName('Enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1));
+      Parameters.ParamByName('begdate').Value := Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime));
+      Parameters.ParamByName('Enddate').Value := Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1));
    //  Parameters.ParamByName('Type').Value:=Trim(fType);
-      Parameters.ParamByName('factoryName').Value:=Trim(factoryName.Text);
+      Parameters.ParamByName('factoryName').Value := Trim(factoryName.Text);
      Open;
    end;
-    SCreateCDS20(ADOQueryMain,CDS_HZ);
-    SInitCDSData20(ADOQueryMain,CDS_HZ);
+    SCreateCDS20(ADOQueryMain, CDS_HZ);
+    SInitCDSData20(ADOQueryMain, CDS_HZ);
  finally
    ADOQueryMain.EnableControls;
    ToolButton2.Click;
-    Panetime.Visible:=false;
-    screen.Cursor:=crdefault;
+    Panetime.Visible := false;
+    screen.Cursor := crdefault;
  end;
 end;

-
 procedure TfrmYSMXlist.FormDestroy(Sender: TObject);
 begin
-  frmYSMXlist:=nil;
+  frmYSMXlist := nil;
 end;

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

 procedure TfrmYSMXlist.TBCloseClick(Sender: TObject);
 begin
-  WriteCxBandedGrid(self.Caption+'2',Tv1,'财务管理1');
+  WriteCxBandedGrid(self.Caption + '2', Tv1, '财务管理1');
  Close;
 end;
+
 procedure TfrmYSMXlist.FormShow(Sender: TObject);
-begin                                                                               
-  readCxBandedGrid(self.Caption+'2',Tv1,'财务管理1');
+begin
+  readCxBandedGrid(self.Caption + '2', Tv1, '财务管理1');

 end;

@ -189,9 +183,9 @@ procedure TfrmYSMXlist.ToolButton2Click(Sender: TObject);
 begin
  if ADOQueryMain.Active then
  begin
-    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
-    SCreateCDS20(ADOQueryMain,CDS_HZ);
-    SInitCDSData20(ADOQueryMain,CDS_HZ);
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS20(ADOQueryMain, CDS_HZ);
+    SInitCDSData20(ADOQueryMain, CDS_HZ);
  end;
 end;

@ -202,13 +196,15 @@ end;

 procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject);
 begin
-  if ADOQueryMain.IsEmpty then Exit;
-  TcxGridToExcel(self.Caption,cxgrid2);
+  if ADOQueryMain.IsEmpty then
+    Exit;
+  TcxGridToExcel(self.Caption, cxgrid2);
 end;

 procedure TfrmYSMXlist.OrderNoChange(Sender: TObject);
 begin
-  if Length(Trim(OrderNo.Text))<3 then Exit;
+  if Length(Trim(OrderNo.Text)) < 3 then
+    Exit;
  ToolButton2.Click;
 end;

@ -219,19 +215,20 @@ end;

 procedure TfrmYSMXlist.FormCreate(Sender: TObject);
 begin
-  cxGrid2.Align:=AlClient;
-  Enddate.DateTime:=SGetServerDate(ADOQueryTemp);
-  begdate.DateTime:=Enddate.DateTime;
+  cxGrid2.Align := AlClient;
+  Enddate.DateTime := SGetServerDate(ADOQueryTemp);
+  begdate.DateTime := Enddate.DateTime;
 end;

 procedure TfrmYSMXlist.ToolButton3Click(Sender: TObject);
 var
-  filepath:string;
-  mBegdate,mEnddate:string;
+  filepath: string;
+  mBegdate, mEnddate: string;
 begin
-  mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date);
-  menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date);
-  if CDS_HZ.IsEmpty then exit;
+  mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
+  mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
+  if CDS_HZ.IsEmpty then
+    exit;


 {   with ADOQueryPrint do
@ -250,21 +247,21 @@ begin
    end;
  }
  try
-    filepath:=ExtractFilePath(Application.ExeName) + 'report\应收款对账单.rmf';
-    if not FileExists(Pchar(filepath))  then                                                        
+    filepath := ExtractFilePath(Application.ExeName) + 'report\应收款对账单.rmf';
+    if not FileExists(Pchar(filepath)) then
    begin
-      application.MessageBox(pchar('文件['+filepath+']不存在！'),'提示信息',MB_IConError);
+      application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
      exit;
    end;
-    RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date());
-    RmVariables['begDate'] :=FormatDateTime('yyyy-mm-dd',begDate.Date);
-    RmVariables['enddate'] :=FormatDateTime('yyyy-mm-dd',enddate.Date);
-    RMVariables['zdr'] :=trim(DName);
-    RmVariables['begDate'] :=FormatDateTime('yymmdd',begDate.Date)+'-'+FormatDateTime('yymmdd',enddate.Date);
+    RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date());
+    RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date);
+    RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date);
+    RMVariables['zdr'] := trim(DName);
+    RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
    CDS_HZ.First;
-    RmVariables['QCNum'] :=CDS_HZ.fieldbyname('MoneyYe').AsFloat - CDS_HZ.fieldbyname('YMoney').AsFloat + CDS_HZ.fieldbyname('Money').AsFloat; //+  CDS_HZ.fieldbyname('DerateMoney').AsFloat ;
+    RmVariables['QCNum'] := CDS_HZ.fieldbyname('MoneyYe').AsFloat - CDS_HZ.fieldbyname('YMoney').AsFloat + CDS_HZ.fieldbyname('Money').AsFloat; //+  CDS_HZ.fieldbyname('DerateMoney').AsFloat ;
    CDS_HZ.Last;
-    RmVariables['endNum'] :=CDS_HZ.fieldbyname('MoneyYe').AsString;
+    RmVariables['endNum'] := CDS_HZ.fieldbyname('MoneyYe').AsString;
    RMGridReport1.LoadFromFile(filepath);
   // RMGridReport1.PrintReport;
    RMGridReport1.ShowReport;
@ -272,7 +269,7 @@ begin
  finally

  end;
-  end;
+end;
 //var
 //  filepath:string;
 //  mBegdate,mEnddate:string;
@ -322,10 +319,9 @@ begin
 //
 //end;

-
 procedure TfrmYSMXlist.factoryNameKeyPress(Sender: TObject; var Key: Char);
 begin
-    if Key = #13 then
+  if Key = #13 then
  begin
    if Length(factoryName.Text) < 2 then
      Exit;
@ -336,3 +332,4 @@ begin
 end;

 end.
+