Group_DJD/D7DJfhshengxing
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
libingpeng 2025-11-15 10:35:30 +08:00
parent e07d994b64
commit cc41975176
2 changed files with 90 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
应收应付(YSYF.dll)/U_YSMXlist.dfm
View File

@ -79,7 +79,7 @@ object frmYSMXlist: TfrmYSMXlist
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1306 Width = 1306
Height = 38 Height = 42
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -92,13 +92,6 @@ object frmYSMXlist: TfrmYSMXlist
Height = 12 Height = 12
Caption = #21697#21517 Caption = #21697#21517
end end
object Label3: TLabel
Left = 510
Top = 45
Width = 48
Height = 12
Caption = #20986#24211#21333#21495
end
object Label2: TLabel object Label2: TLabel
Left = 22 Left = 22
Top = 13 Top = 13
@ -134,6 +127,13 @@ object frmYSMXlist: TfrmYSMXlist
Height = 12 Height = 12
Caption = #25351#31034#21333#21495 Caption = #25351#31034#21333#21495
end end
object Label3: TLabel
Left = 510
Top = 45
Width = 48
Height = 12
Caption = #20986#24211#21333#21495
end
object MPRTCodeName: TEdit object MPRTCodeName: TEdit
Tag = 2 Tag = 2
Left = 726 Left = 726
@ -143,15 +143,6 @@ object frmYSMXlist: TfrmYSMXlist
TabOrder = 0 TabOrder = 0
OnChange = MPRTCodeNameChange OnChange = MPRTCodeNameChange
end end
object OrderNo: TEdit
Tag = 2
Left = 558
Top = 41
Width = 120
Height = 20
TabOrder = 1
OnChange = OrderNoChange
end
object begdate: TDateTimePicker object begdate: TDateTimePicker
Left = 72 Left = 72
Top = 9 Top = 9
@ -160,7 +151,7 @@ object frmYSMXlist: TfrmYSMXlist
Date = 41256.918237847230000000 Date = 41256.918237847230000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 41256.918237847230000000 Time = 41256.918237847230000000
TabOrder = 2 TabOrder = 1
end end
object Enddate: TDateTimePicker object Enddate: TDateTimePicker
Left = 182 Left = 182
@ -170,7 +161,7 @@ object frmYSMXlist: TfrmYSMXlist
Date = 41256.918237847230000000 Date = 41256.918237847230000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 41256.918237847230000000 Time = 41256.918237847230000000
TabOrder = 3 TabOrder = 2
end end
object OrdDefNote3: TComboBox object OrdDefNote3: TComboBox
Tag = 1 Tag = 1
@ -179,7 +170,7 @@ object frmYSMXlist: TfrmYSMXlist
Width = 145 Width = 145
Height = 20 Height = 20
ItemHeight = 12 ItemHeight = 12
TabOrder = 4 TabOrder = 3
OnChange = MPRTCodeNameChange OnChange = MPRTCodeNameChange
Items.Strings = ( Items.Strings = (
#24050#20132#21333 #24050#20132#21333
@ -197,26 +188,25 @@ object frmYSMXlist: TfrmYSMXlist
Top = 9 Top = 9
Width = 120 Width = 120
Height = 20 Height = 20
TabOrder = 5 TabOrder = 4
OnChange = MPRTCodeNameChange OnChange = MPRTCodeNameChange
OnKeyPress = factoryNameKeyPress OnKeyPress = factoryNameKeyPress
end end
object Edit1: TEdit object OrderNo: TEdit
Tag = 2 Tag = 2
Left = 556 Left = 557
Top = 9 Top = 9
Width = 120 Width = 120
Height = 20 Height = 20
TabOrder = 6 TabOrder = 5
OnChange = MPRTCodeNameChange OnChange = OrderNoChange
OnKeyPress = factoryNameKeyPress
end end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 69 Top = 73
Width = 1306 Width = 1306
Height = 459 Height = 455
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView

147
应收应付(YSYF.dll)/U_YSMXlist.pas
View File

@ -5,30 +5,28 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls, cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels, cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCurrencyEdit,
dxSkinscxPCPainter, cxCurrencyEdit, dxSkinBlack, dxSkinBlue, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
dxSkinXmas2008Blue;
type type
TfrmYSMXlist = class(TForm) TfrmYSMXlist = class(TForm)
@ -43,8 +41,6 @@ type
MPRTCodeName: TEdit; MPRTCodeName: TEdit;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Label3: TLabel;
OrderNo: TEdit;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Label2: TLabel; Label2: TLabel;
@ -84,7 +80,8 @@ type
TV1Column1: TcxGridDBBandedColumn; TV1Column1: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn; TV1Column3: TcxGridDBBandedColumn;
Label7: TLabel; Label7: TLabel;
Edit1: TEdit; OrderNo: TEdit;
Label3: TLabel;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -102,36 +99,33 @@ type
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
public public
{ Public declarations } { Public declarations }
RKFlag,FCYID:String; RKFlag, FCYID: string;
fType:string; fType: string;
end; end;
var var
frmYSMXlist: TfrmYSMXlist; frmYSMXlist: TfrmYSMXlist;
implementation implementation
uses uses
U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderNewList;
{$R *.dfm} {$R *.dfm}
procedure TfrmYSMXlist.InitGrid(); procedure TfrmYSMXlist.InitGrid();
begin begin
IF trim(factoryName.Text)='' then if trim(factoryName.Text) = '' then
begin begin
application.MessageBox('请输入客户，以便提高查询速度！','提示信息',MB_ICONERROR); application.MessageBox('请输入客户，以便提高查询速度！', '提示信息', MB_ICONERROR);
exit; exit;
end; end;
screen.Cursor:=crsqlwait; screen.Cursor := crsqlwait;
Panetime.Visible:=true; Panetime.Visible := true;
Panetime.Left:=(Width-Panetime.Width) div 2; Panetime.Left := (Width - Panetime.Width) div 2;
Panetime.top:=(Height-Panetime.Height-200) div 2; Panetime.top := (Height - Panetime.Height - 200) div 2;
application.ProcessMessages; application.ProcessMessages;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
@ -139,43 +133,43 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
Filtered:=False; Filtered := False;
sql.Add(' exec P_Qry_Ysk_mx :begdate,:enddate,:factoryName'); sql.Add(' exec P_Qry_Ysk_mx :begdate,:enddate,:factoryName');
Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',begdate.DateTime)); 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('Enddate').Value := Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1));
// Parameters.ParamByName('Type').Value:=Trim(fType); // Parameters.ParamByName('Type').Value:=Trim(fType);
Parameters.ParamByName('factoryName').Value:=Trim(factoryName.Text); Parameters.ParamByName('factoryName').Value := Trim(factoryName.Text);
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
ToolButton2.Click; ToolButton2.Click;
Panetime.Visible:=false; Panetime.Visible := false;
screen.Cursor:=crdefault; screen.Cursor := crdefault;
end; end;
end; end;
procedure TfrmYSMXlist.FormDestroy(Sender: TObject); procedure TfrmYSMXlist.FormDestroy(Sender: TObject);
begin begin
frmYSMXlist:=nil; frmYSMXlist := nil;
end; end;
procedure TfrmYSMXlist.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmYSMXlist.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmYSMXlist.TBCloseClick(Sender: TObject); procedure TfrmYSMXlist.TBCloseClick(Sender: TObject);
begin begin
WriteCxBandedGrid(self.Caption+'2',Tv1,'财务管理1'); WriteCxBandedGrid(self.Caption + '2', Tv1, '财务管理1');
Close; Close;
end; end;
procedure TfrmYSMXlist.FormShow(Sender: TObject); procedure TfrmYSMXlist.FormShow(Sender: TObject);
begin begin
readCxBandedGrid(self.Caption+'2',Tv1,'财务管理1'); readCxBandedGrid(self.Caption + '2', Tv1, '财务管理1');
end; end;
@ -189,9 +183,9 @@ procedure TfrmYSMXlist.ToolButton2Click(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain,CDS_HZ); SCreateCDS20(ADOQueryMain, CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ);
end; end;
end; end;
@ -202,13 +196,15 @@ end;
procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject); procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel(self.Caption,cxgrid2); Exit;
TcxGridToExcel(self.Caption, cxgrid2);
end; end;
procedure TfrmYSMXlist.OrderNoChange(Sender: TObject); procedure TfrmYSMXlist.OrderNoChange(Sender: TObject);
begin begin
if Length(Trim(OrderNo.Text))<3 then Exit; if Length(Trim(OrderNo.Text)) < 3 then
Exit;
ToolButton2.Click; ToolButton2.Click;
end; end;
@ -219,19 +215,20 @@ end;
procedure TfrmYSMXlist.FormCreate(Sender: TObject); procedure TfrmYSMXlist.FormCreate(Sender: TObject);
begin begin
cxGrid2.Align:=AlClient; cxGrid2.Align := AlClient;
Enddate.DateTime:=SGetServerDate(ADOQueryTemp); Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime:=Enddate.DateTime; begdate.DateTime := Enddate.DateTime;
end; end;
procedure TfrmYSMXlist.ToolButton3Click(Sender: TObject); procedure TfrmYSMXlist.ToolButton3Click(Sender: TObject);
var var
filepath:string; filepath: string;
mBegdate,mEnddate:string; mBegdate, mEnddate: string;
begin begin
mbegdate:=FormatDateTime('yyyy-MM-dd',begdate.Date); mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
menddate:=FormatDateTime('yyyy-MM-dd',enddate.Date); mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
if CDS_HZ.IsEmpty then exit; if CDS_HZ.IsEmpty then
exit;
{ with ADOQueryPrint do { with ADOQueryPrint do
@ -250,21 +247,21 @@ begin
end; end;
} }
try try
filepath:=ExtractFilePath(Application.ExeName) + 'report\应收款对账单.rmf'; filepath := ExtractFilePath(Application.ExeName) + 'report\应收款对账单.rmf';
if not FileExists(Pchar(filepath)) then if not FileExists(Pchar(filepath)) then
begin begin
application.MessageBox(pchar('文件['+filepath+']不存在！'),'提示信息',MB_IConError); application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
exit; exit;
end; end;
RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date());
RmVariables['begDate'] :=FormatDateTime('yyyy-mm-dd',begDate.Date); RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date);
RmVariables['enddate'] :=FormatDateTime('yyyy-mm-dd',enddate.Date); RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date);
RMVariables['zdr'] :=trim(DName); RMVariables['zdr'] := trim(DName);
RmVariables['begDate'] :=FormatDateTime('yymmdd',begDate.Date)+'-'+FormatDateTime('yymmdd',enddate.Date); RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
CDS_HZ.First; 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; CDS_HZ.Last;
RmVariables['endNum'] :=CDS_HZ.fieldbyname('MoneyYe').AsString; RmVariables['endNum'] := CDS_HZ.fieldbyname('MoneyYe').AsString;
RMGridReport1.LoadFromFile(filepath); RMGridReport1.LoadFromFile(filepath);
// RMGridReport1.PrintReport; // RMGridReport1.PrintReport;
RMGridReport1.ShowReport; RMGridReport1.ShowReport;
@ -272,7 +269,7 @@ begin
finally finally
end; end;
end; end;
//var //var
// filepath:string; // filepath:string;
// mBegdate,mEnddate:string; // mBegdate,mEnddate:string;
@ -322,10 +319,9 @@ begin
// //
//end; //end;
procedure TfrmYSMXlist.factoryNameKeyPress(Sender: TObject; var Key: Char); procedure TfrmYSMXlist.factoryNameKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
if Length(factoryName.Text) < 2 then if Length(factoryName.Text) < 2 then
Exit; Exit;
@ -336,3 +332,4 @@ begin
end; end;
end. end.