Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-04 11:39:16 +08:00
parent e7b3893290
commit 06e3c20cb0
8 changed files with 83 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
A00通用方法/U_ProgressUpdate.pas
View File

@ -33,7 +33,7 @@ begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select distinct TMSId from Trade_Market_sub A '); sql.Add('select distinct TMSId from Trade_Market_sub A ');
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(Trim(MTMMID)) + ','','') X where X.RTValue=A.TMSId ) '); sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(Trim(MTMMID)) + ','','') X where X.RTValue=A.TMMID ) ');
Open; Open;
while not Eof do while not Eof do
begin begin
@ -41,6 +41,7 @@ begin
MTMSIdS := FieldByName('TMSId').AsString MTMSIdS := FieldByName('TMSId').AsString
else else
MTMSIdS := MTMSIdS + ',' + FieldByName('TMSId').AsString; MTMSIdS := MTMSIdS + ',' + FieldByName('TMSId').AsString;
next;
end; end;
end; end;

1
A09财务通用管理/U_GetDllForm.pas
View File

@ -83,6 +83,7 @@ begin
// Parameters1 := '完成'; // Parameters1 := '完成';
// Parameters1 := '录入'; // Parameters1 := '录入';
DCode := '005'; DCode := '005';
Parameters4 := '新余';
DName := 'ADMIN'; DName := 'ADMIN';
end end
else else

1
A09财务通用管理/U_ReceivableList.dfm
View File

@ -301,7 +301,6 @@ inherited frmReceivableList: TfrmReceivableList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 185
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

2
T02贸易汇总仓库/U_GetDllForm.pas
View File

@ -229,7 +229,7 @@ begin
925: //新余出库 925: //新余出库
begin begin
with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeXinYuOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;

20
T02贸易汇总仓库/U_TradeXinYuOutList.dfm
View File

@ -1,4 +1,4 @@
inherited frmTradeMarketList: TfrmTradeMarketList inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
Left = 165 Left = 165
Top = 13 Top = 13
Caption = #22823#36135#21333 Caption = #22823#36135#21333
@ -43,16 +43,24 @@ inherited frmTradeMarketList: TfrmTradeMarketList
ImageIndex = 0 ImageIndex = 0
OnClick = TBFindClick OnClick = TBFindClick
end end
object TWC: TToolButton object ToolButton3: TToolButton
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton3Click
end
object TWC: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #23436#25104 Caption = #23436#25104
ImageIndex = 12 ImageIndex = 12
OnClick = TWCClick OnClick = TWCClick
end end
object TNowc: TToolButton object TNowc: TToolButton
Left = 213 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
@ -60,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TNowcClick OnClick = TNowcClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 316 Left = 387
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -68,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 419 Left = 490
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -76,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 490 Left = 561
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

86
T02贸易汇总仓库/U_TradeXinYuOutList.pas
View File

@ -19,7 +19,7 @@ uses
dxSkinsDefaultPainters, Vcl.DBCtrls; dxSkinsDefaultPainters, Vcl.DBCtrls;
type type
TfrmTradeMarketList = class(TfrmBaseList) TfrmTradeXinYuOutList = class(TfrmBaseList)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
@ -85,6 +85,7 @@ type
xxx1: TMenuItem; xxx1: TMenuItem;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -112,6 +113,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -130,11 +132,11 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint; U_DataLink, U_RTFun, U_RPFun, U_ZDYHelp, U_LabelPrint;
{$R *.dfm} {$R *.dfm}
procedure TfrmTradeMarketList.SetStatus(); procedure TfrmTradeXinYuOutList.SetStatus();
begin begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
@ -147,24 +149,24 @@ begin
end; end;
procedure TfrmTradeMarketList.JGTypeChange(Sender: TObject); procedure TfrmTradeXinYuOutList.JGTypeChange(Sender: TObject);
begin begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeMarketList.FormDestroy(Sender: TObject); procedure TfrmTradeXinYuOutList.FormDestroy(Sender: TObject);
begin begin
inherited; inherited;
// frmProductOrderList:=nil; // frmProductOrderList:=nil;
end; end;
procedure TfrmTradeMarketList.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmTradeXinYuOutList.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
inherited; inherited;
Action := caFree; Action := caFree;
end; end;
procedure TfrmTradeMarketList.FormCreate(Sender: TObject); procedure TfrmTradeXinYuOutList.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
cxgrid1.Align := alClient; cxgrid1.Align := alClient;
@ -172,14 +174,14 @@ begin
end; end;
procedure TfrmTradeMarketList.TBCloseClick(Sender: TObject); procedure TfrmTradeXinYuOutList.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
end; end;
procedure TfrmTradeMarketList.InitGrid(); procedure TfrmTradeXinYuOutList.InitGrid();
var var
SqlStr, FilterStr: string; SqlStr, FilterStr: string;
begin begin
@ -204,7 +206,7 @@ begin
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId'); InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
end; end;
procedure TfrmTradeMarketList.InitForm(); procedure TfrmTradeXinYuOutList.InitForm();
begin begin
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库'); ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180; frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
@ -214,12 +216,12 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeMarketList.TBRafreshClick(Sender: TObject); procedure TfrmTradeXinYuOutList.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeMarketList.OrderNoMChange(Sender: TObject); procedure TfrmTradeXinYuOutList.OrderNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active = False then if ADOQueryMain.Active = False then
Exit; Exit;
@ -228,7 +230,7 @@ begin
SInitCDSData(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main);
end; end;
procedure TfrmTradeMarketList.FormShow(Sender: TObject); procedure TfrmTradeXinYuOutList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
canshu1 := trim(self.fParameters1); canshu1 := trim(self.fParameters1);
@ -239,23 +241,23 @@ begin
InitForm(); InitForm();
end; end;
procedure TfrmTradeMarketList.TBTPClick(Sender: TObject); procedure TfrmTradeXinYuOutList.TBTPClick(Sender: TObject);
var var
FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string; FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string;
begin begin
end; end;
procedure TfrmTradeMarketList.CheckBox1Click(Sender: TObject); procedure TfrmTradeXinYuOutList.CheckBox1Click(Sender: TObject);
begin begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeMarketList.CheckBox2Click(Sender: TObject); procedure TfrmTradeXinYuOutList.CheckBox2Click(Sender: TObject);
begin begin
TBRafresh.Click; TBRafresh.Click;
end; end;
procedure TfrmTradeMarketList.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); procedure TfrmTradeXinYuOutList.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var var
id, id10: Integer; id, id10: Integer;
begin begin
@ -283,7 +285,7 @@ begin
end; } end; }
end; end;
procedure TfrmTradeMarketList.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTradeXinYuOutList.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
{ Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
Id10:=TV1.GetColumnByFieldName('SubStatus').Index; Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
@ -318,7 +320,7 @@ begin
end; } end; }
end; end;
procedure TfrmTradeMarketList.TMMNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTradeXinYuOutList.TMMNoKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
@ -327,18 +329,18 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmTradeXinYuOutList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTradeMarketList.cxTabControl1Change(Sender: TObject); procedure TfrmTradeXinYuOutList.cxTabControl1Change(Sender: TObject);
begin begin
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeMarketList.TWCClick(Sender: TObject); procedure TfrmTradeXinYuOutList.TWCClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
@ -380,7 +382,7 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketList.TNowcClick(Sender: TObject); procedure TfrmTradeXinYuOutList.TNowcClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
@ -421,27 +423,27 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketList.N1Click(Sender: TObject); procedure TfrmTradeXinYuOutList.N1Click(Sender: TObject);
begin begin
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTradeMarketList.N3Click(Sender: TObject); procedure TfrmTradeXinYuOutList.N3Click(Sender: TObject);
begin begin
SelOKNoFiler(Tv1, True); //全选 SelOKNoFiler(Tv1, True); //全选
end; end;
procedure TfrmTradeMarketList.N4Click(Sender: TObject); procedure TfrmTradeXinYuOutList.N4Click(Sender: TObject);
begin begin
SelOKNoFiler(Tv1, False); //全弃 SelOKNoFiler(Tv1, False); //全弃
end; end;
procedure TfrmTradeMarketList.ComboBox1Change(Sender: TObject); procedure TfrmTradeXinYuOutList.ComboBox1Change(Sender: TObject);
begin begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeMarketList.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); procedure TfrmTradeXinYuOutList.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
@ -449,23 +451,43 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketList.ToolButton10Click(Sender: TObject); procedure TfrmTradeXinYuOutList.ToolButton10Click(Sender: TObject);
begin begin
application.MessageBox('保存成功！', '提示信息', 0); application.MessageBox('保存成功！', '提示信息', 0);
end; end;
procedure TfrmTradeMarketList.ToolButton1Click(Sender: TObject); procedure TfrmTradeXinYuOutList.ToolButton1Click(Sender: TObject);
begin begin
TcxGridToExcel(Trim(Self.Caption), cxGrid1); TcxGridToExcel(Trim(Self.Caption), cxGrid1);
end; end;
procedure TfrmTradeMarketList.ToolButton2Click(Sender: TObject); procedure TfrmTradeXinYuOutList.ToolButton2Click(Sender: TObject);
begin begin
WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库'); WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
end; end;
procedure TfrmTradeMarketList.TBFindClick(Sender: TObject); procedure TfrmTradeXinYuOutList.ToolButton3Click(Sender: TObject);
var
MFiltration: string;
MPrintJson: string;
begin
if Order_Main.IsEmpty then
Exit;
MFiltration := Trim(Order_Main.FieldByName('TMMNo').AsString);
MPrintJson := ' {"LMType": "TradeXinYuOut1" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
end;
procedure TfrmTradeXinYuOutList.TBFindClick(Sender: TObject);
begin begin
CDSDataFilter(ADOQueryMain, Order_Main, Tv1, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}') + '" }'); CDSDataFilter(ADOQueryMain, Order_Main, Tv1, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}') + '" }');

12
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -504,15 +504,15 @@ inherited frmTradeMarketList: TfrmTradeMarketList
ClientRectTop = 28 ClientRectTop = 28
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel
Left = 616 Left = 720
Top = 346 Top = 354
ExplicitLeft = 616 ExplicitLeft = 720
ExplicitTop = 346 ExplicitTop = 354
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 616 Left = 720
Top = 296 Top = 296
ExplicitLeft = 616 ExplicitLeft = 720
ExplicitTop = 296 ExplicitTop = 296
ExplicitHeight = 29 ExplicitHeight = 29
end end

4
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -445,10 +445,14 @@ procedure TfrmTradeMarketList.TBPrintClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
try try
frmLabelPrint := TfrmLabelPrint.Create(Application); frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do with frmLabelPrint do
begin begin
if canshu4 = '新余' then
FLMType := 'TradePlanPrintxy'
else
FLMType := 'TradePlanPrint'; FLMType := 'TradePlanPrint';
FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString); FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString);
if ShowModal = 1 then if ShowModal = 1 then