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

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-05-13 09:12:14 +08:00
parent 0a8618ee3c
commit a500748e12
270 changed files with 7372 additions and 440 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
A01基础公司管理/Company.dproj.local
View File

@ -1,15 +1,15 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.560,D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_CoBankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.328,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGRZInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.212,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.167,=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.167,=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.560,D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_CoBankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.560,D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_CoBankSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_EmpFileUp.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

14
A09财务通用管理/Financial.dproj.local
View File

@ -39,14 +39,14 @@
<Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.014,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_BatchEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
@ -55,8 +55,8 @@
<Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.pas</Transaction>
@ -69,9 +69,9 @@
<Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.256,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPrice.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm</Transaction>

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

2
A09财务通用管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Financial.dproj"/>
<Projects ActiveProject="D:\D10V1W\项目代码\D10zzbiaoqi\A09财务通用管理\Financial.dproj"/>
</Default.Personality>
</BorlandProject>

15
A09财务通用管理/U_BatchEdit.dfm
View File

@ -43,10 +43,23 @@ object frmBatchEdit: TfrmBatchEdit
OnClick = btnCancelClick
end
object cxLabel2: TcxLabel
Left = 80
Left = 59
Top = 25
Caption = #20215#26684
end
object priceGW: TcxTextEdit
Left = 114
Top = 51
TabOrder = 4
Visible = False
Width = 156
end
object cxLabel1: TcxLabel
Left = 56
Top = 51
Caption = #20928#37325#20215#26684
Visible = False
end
object ADOConnection1: TADOConnection
Left = 312
end

66
A09财务通用管理/U_BatchEdit.pas
View File

@ -3,11 +3,11 @@ unit U_BatchEdit;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer, cxEdit, Vcl.Menus,
Vcl.StdCtrls, cxButtons, cxLabel, cxTextEdit, cxMaskEdit, cxDropDownEdit,
dxSkinsCore, dxSkinWXI, Data.DB, Data.Win.ADODB, U_BaseInput;
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
Vcl.Menus, Vcl.StdCtrls, cxButtons, cxLabel, cxTextEdit, cxMaskEdit,
cxDropDownEdit, dxSkinsCore, dxSkinWXI, Data.DB, Data.Win.ADODB, U_BaseInput;
type
TfrmBatchEdit = class(TfrmBaseInput)
@ -17,6 +17,8 @@ type
cxLabel2: TcxLabel;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
priceGW: TcxTextEdit;
cxLabel1: TcxLabel;
procedure btnOKClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -35,11 +37,11 @@ var
frmBatchEdit: TfrmBatchEdit;
implementation
uses
U_DataLink;
{$R *.dfm}
procedure TfrmBatchEdit.btnCancelClick(Sender: TObject);
begin
close;
@ -47,10 +49,10 @@ end;
procedure TfrmBatchEdit.btnOKClick(Sender: TObject);
begin
if price.Text = '' then
price.Text := 'null';
if (Fflag = 0) or (Fflag = 1) then
begin
if price.Text = '' then
price.Text := 'null';
if FBCIOID = '' then
exit;
try
@ -58,15 +60,18 @@ begin
begin
close;
sql.Clear;
sql.Add(' update bs_cloth_io set price = ' + price.Text + ' where BCIOID in (' + FBCIOID + ')');
sql.Add(' update bs_cloth_io set price = ' + price.Text + ' where BCIOID in (' + FBCIOID + ')');
ExecSQL;
end;
finally
ModalResult := 1;;
ModalResult := 1;
;
end;
end
else if Fflag = 2 then
begin
if price.Text = '' then
price.Text := 'null';
if FStkId = '' then
exit;
try
@ -74,15 +79,22 @@ begin
begin
close;
sql.Clear;
sql.Add(' update Trade_Cloth_Stock_ZD set ZDprice = ' + price.Text + ' where StkId in (' + FStkId + ')');
sql.Add(' update Trade_Cloth_Stock_ZD set ZDprice = ' + price.Text + ' where StkId in (' + FStkId + ')');
ExecSQL;
end;
finally
ModalResult := 1;;
ModalResult := 1;
;
end;
end
else if Fflag = 3 then
begin
if (price.Text <> '') and (priceGW.Text <> '') then
begin
Application.MessageBox('只能填写一个单价', '提示信息', 0);
Exit;
end;
if FIOID = '' then
exit;
try
@ -90,17 +102,32 @@ begin
begin
close;
sql.Clear;
sql.Add(' update Trade_Cloth_IO set price = ' + price.Text + ' where IOID in (' + FIOID + ')');
if (price.Text = '') and (priceGW.Text = '') then
begin
sql.Add(' update Trade_Cloth_IO set price = ' + price.Text + ' where IOID in (' + FIOID + ')');
sql.Add(' update Trade_Cloth_IO set Amount = ' + price.Text + ' where IOID in (' + FIOID + ')');
end
else if (price.Text <> '') and (priceGW.Text = '') then
begin
sql.Add(' update Trade_Cloth_IO set price = ' + price.Text + ' where IOID in (' + FIOID + ')');
sql.Add(' update Trade_Cloth_IO set Amount = ' + price.Text + ' * meter where IOID in (' + FIOID + ')');
end
else if (price.Text = '') and (priceGW.Text <> '') then
begin
sql.Add(' update Trade_Cloth_IO set price = ' + priceGW.Text + ' where IOID in (' + FIOID + ')');
sql.Add(' update Trade_Cloth_IO set Amount = ' + priceGW.Text + ' * NetWeight where IOID in (' + FIOID + ')');
end;
// ShowMessage(sql.Text);
ExecSQL;
end;
finally
ModalResult := 1;;
ModalResult := 1;
;
end;
end;
end;
procedure TfrmBatchEdit.FormShow(Sender: TObject);
@ -119,6 +146,13 @@ begin
except
application.MessageBox('Êý¾Ý¿âÁ¬½Óʧ°Ü£¡', '´íÎó', mb_Ok + MB_ICONERROR);
end;
if FFlag = 3 then
begin
priceGW.Visible := true;
cxLabel1.Visible := True;
cxLabel2.Caption := '米数价格';
end;
end;
end.

29
A09财务通用管理/U_CollectList.dfm
View File

@ -167,6 +167,7 @@ inherited frmCollectList: TfrmCollectList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label3: TLabel
Left = 172
Top = 13
@ -199,7 +200,7 @@ inherited frmCollectList: TfrmCollectList
Top = 38
Width = 48
Height = 12
Caption = #21512' '#21516' '#21495
Caption = #35745#21010#21333#21495
end
object Label11: TLabel
Left = 475
@ -277,7 +278,7 @@ inherited frmCollectList: TfrmCollectList
TabOrder = 5
OnKeyPress = OppCoNameKeyPress
end
object ConNo: TEdit
object OrderNo: TEdit
Tag = 2
Left = 529
Top = 35
@ -322,6 +323,7 @@ inherited frmCollectList: TfrmCollectList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 142
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -352,6 +354,22 @@ inherited frmCollectList: TfrmCollectList
item
Kind = skSum
Column = Tv1Column5
end
item
Kind = skSum
Column = Tv1Column13
end
item
Kind = skSum
Column = Tv1Column7
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
Column = Tv1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
@ -402,6 +420,13 @@ inherited frmCollectList: TfrmCollectList
Options.Editing = False
Width = 73
end
object Tv1Column16: TcxGridDBColumn
Caption = #25910#27454#21333#21495
DataBinding.FieldName = 'ffid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv1Column8: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'

33
A09财务通用管理/U_CollectList.pas
View File

@ -50,7 +50,7 @@ type
v2OrderNo: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Label10: TLabel;
ConNo: TEdit;
OrderNo: TEdit;
Label11: TLabel;
BuyConNo: TEdit;
v2Column2: TcxGridDBColumn;
@ -104,6 +104,7 @@ type
Tv1Column15: TcxGridDBColumn;
DKAmount: TEdit;
Label7: TLabel;
Tv1Column16: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -295,13 +296,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法删除', '提示');
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
@ -576,6 +577,11 @@ begin
sql.Add(' WHERE FFID = ''' + Trim(FFID.Text) + '''');
sql.Add(') t');
sql.Add('WHERE f.FromId = ''' + Trim(FFID.Text) + '''');
sql.Add(' update Costing_Table set HYStatus = 1 where COrderNO in (select B.orderno from Finance_WriteOff A ');
sql.Add(' inner join Finance_Flow B on A.FromId=B.FFID ');
sql.Add(' inner join Finance_Flow C on A.ToId=C.FFID ');
sql.Add(' where FromId=''' + Trim(FFID.Text) + ''')' );
// ShowMessage(sql.Text);
execsql;
end;
@ -740,6 +746,20 @@ end;
procedure TfrmCollectList.ToolButton6Click(Sender: TObject);
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成或已清算，无法数据补录', '提示');
Exit;
end;
FFID.text := trim(CDS_1.fieldbyname('FFID').AsString);
Panel2.Left := (self.width - Panel2.width) div 2;
Panel2.Top := 330;
@ -753,13 +773,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
application.MessageBox('计划单已完成或已清算，无法修改', '提示');
Exit;
end;
@ -800,7 +820,6 @@ procedure TfrmCollectList.ToolButton7Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
with ADOQueryTemp do
begin
Close;
@ -824,7 +843,7 @@ begin
FOurCoName := CDS_1.fieldbyname('OurCoName').AsString;
if showmodal = 1 then
begin
// Initgrid();
end;
free;
end;

13
A09财务通用管理/U_CollectWriteOff.pas
View File

@ -156,7 +156,7 @@ begin
Close;
SQL.Clear;
Filtered := False;
sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00,CurSXFAmount=0.00,CurJHExchangeRate=0.0 ');
sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00,CurSXFAmount=0.00,CurJHExchangeRate=0.0000 ');
sql.Add('from Finance_Flow A ');
sql.Add(' where Amount-isnull(FFWoAmount,0)<>0');
sql.Add(' and FFType=' + quotedstr(trim('Ó¦ÊÕ¿îµÇ¼Ç')));
@ -330,7 +330,6 @@ begin
begin
if CDS_Ysk.FieldByName('ssel').AsBoolean and (Abs(CDS_Ysk.FieldByName('CurWoAmount').AsFloat) > 0.001) then
begin
with AdoqueryCmd do
begin
Close;
@ -343,10 +342,18 @@ begin
SQL.Add(',@CurJHExchangeRate = ' + FloatToStr(CDS_Ysk.FieldByName('CurJHExchangeRate').AsFloat));
SQL.Add(',@DName = ' + QuotedStr(Trim(DName)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with AdoqueryCmd do
begin
Close;
SQL.Clear;
SQL.Add(' update Costing_Table set HYStatus = 1 where COrderNo=' + QuotedStr(CDS_Ysk.FieldByName('OrderNO').AsString));
ExecSQL;
end;
end;
CDS_Ysk.Next;
end;

2
A09财务通用管理/U_CollectWriteOffList.dfm
View File

@ -177,8 +177,6 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
Height = 499
Align = alClient
TabOrder = 2
ExplicitLeft = 40
ExplicitTop = 119
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False

22
A09财务通用管理/U_CollectWriteOffList.pas
View File

@ -215,6 +215,28 @@ begin
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with AdoqueryCmd do
begin
Close;
SQL.Clear;
SQL.Add(' update Costing_Table set HYStatus = 1 where COrderNo=' + QuotedStr(CDS_HZ.FieldByName('OrderNO').AsString));
ExecSQL;
end;
with AdoqueryCmd do
begin
Close;
Sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('收款管理撤销核销')));
sql.Add(',''' + trim('计划单号：' + trim(CDS_HZ.FieldByName('OrderNo').AsString) + ',fromId:' + trim(CDS_HZ.FieldByName('fromId').AsString)));
sql.Add(trim(',ToId:' + trim(CDS_HZ.FieldByName('ToId').AsString)) + trim(',金额:' + trim(CDS_HZ.FieldByName('WoAmount').AsString)) + '''');
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
end;
next;
end;

2
A09财务通用管理/U_DataLink.dfm
View File

@ -10542,7 +10542,7 @@ inherited DataLink_Financial: TDataLink_Financial
end
object cxBlue: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16711731
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12

14
A09财务通用管理/U_ExpenseList.pas
View File

@ -495,20 +495,6 @@ end;
procedure TfrmExpenseList.btnEditClick(Sender: TObject);
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
Exit;
end;
try
with ADOQueryCmd do
begin

10
A09财务通用管理/U_FtyStatement.dfm
View File

@ -67,10 +67,18 @@ inherited frmFtyStatement: TfrmFtyStatement
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
object ToolButton5: TToolButton
Left = 403
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 474
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick

10
A09财务通用管理/U_FtyStatement.pas
View File

@ -59,6 +59,7 @@ type
Tv2Column2: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
ToolButton5: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -70,6 +71,7 @@ type
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -280,6 +282,14 @@ begin
end;
procedure TfrmFtyStatement.ToolButton5Click(Sender: TObject);
begin
inherited;
if CDS_HZ.IsEmpty then
exit;
TcxGridToExcel(Self.Caption, cxGrid2);
end;
procedure TfrmFtyStatement.cxTabControl1Change(Sender: TObject);
begin
InitGrid();

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

@ -72,15 +72,15 @@ begin
if trim(DataBaseStr) = '' then
begin
// server := '101.132.143.144,7781';
// dtbase := 'BiaoqiData';
// user := 'rtsa';
// pswd := 'rightsoft@5740';
server := '127.0.0.1';
server := '101.132.143.144,7781';
dtbase := 'BiaoqiData';
user := 'sa';
pswd := 'root';
user := 'rtsa';
pswd := 'rightsoft@5740';
// server := '127.0.0.1';
// dtbase := 'BiaoqiData';
// user := 'sa';
// pswd := 'root';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DParameters1 := '¹ÜÀí';

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

@ -79,7 +79,6 @@ object frmHandPayableInPut: TfrmHandPayableInPut
Height = 466
Align = alClient
TabOrder = 1
ExplicitTop = 44
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False

2
A09财务通用管理/U_HandPayableInPut.pas
View File

@ -148,7 +148,7 @@ begin
sql.Clear;
if PState = '复制' then
begin
sql.Add('select '''' FFID,0 Amount,* from Finance_Flow where FFID=''' + trim(FFID) + '''');
sql.Add('select '''' FFID,0.00 Amount,* from Finance_Flow where FFID=''' + trim(FFID) + '''');
end
else
begin

16
A09财务通用管理/U_OtherPayableList.dfm
View File

@ -167,6 +167,13 @@ inherited frmOtherPayableList: TfrmOtherPayableList
Height = 12
Caption = #19978#32423#21333#20301
end
object Label1: TLabel
Left = 630
Top = 11
Width = 48
Height = 12
Caption = #35745#21010#21333#21495
end
object OppCoName: TEdit
Tag = 2
Left = 228
@ -249,6 +256,15 @@ inherited frmOtherPayableList: TfrmOtherPayableList
TabOrder = 8
OnKeyPress = OppCoNameKeyPress
end
object OrderNo: TEdit
Tag = 2
Left = 687
Top = 7
Width = 87
Height = 20
TabOrder = 9
OnKeyPress = OppCoNameKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0

10
A09财务通用管理/U_OtherPayableList.pas
View File

@ -99,6 +99,8 @@ type
Tv1Column31: TcxGridDBColumn;
Tv1Column32: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn;
OrderNo: TEdit;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -255,13 +257,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in (''10'',''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法删除', '提示');
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
@ -529,13 +531,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in (''10'',''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
application.MessageBox('计划单已完成或已清算，无法修改', '提示');
Exit;
end;
try

8
A09财务通用管理/U_PayList.pas
View File

@ -332,13 +332,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法删除', '提示');
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
@ -886,13 +886,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
application.MessageBox('计划单已完成或已清算，无法修改', '提示');
Exit;
end;

12
A09财务通用管理/U_PayableList.pas
View File

@ -265,13 +265,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法删除', '提示');
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
@ -653,13 +653,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，单价无法删除', '提示');
application.MessageBox('计划单已完成或已清算，单价无法删除', '提示');
Exit;
end;
@ -734,13 +734,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
application.MessageBox('计划单已完成或已清算，无法修改', '提示');
Exit;
end;

44
A09财务通用管理/U_PlanProfitDetails.pas
View File

@ -228,11 +228,11 @@ begin
sql.Add(',WBSJRMB = ISNULL((select sum(cast(CWBSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),');
sql.Add('RMBSHJE = ISNULL((select sum(cast(CRMBSSJE as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),');
sql.Add('TSSJ = ISNULL((select sum(cast(CTSSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0)');
sql.Add(',CPKPJE = ISNULL((select sum(cast(CCPKPJE as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0)');
SQL.Add(',BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))');
SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo)));
sql.Add(' and FFType = ''应收款登记'' ');
sql.Add(' and FFType = ''应收款登记'' and isnull(status, ''0'') = ''9'' ');
// sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
//ShowMessage(sql.text);
Open;
@ -243,7 +243,7 @@ begin
begin
with CDS_HZ do
begin
for var i := 0 to 2 do
for var i := 0 to 3 do
begin
append;
if i = 0 then
@ -260,6 +260,11 @@ begin
begin
CDS_HZ.FieldByName('FFAbstract').Value := '退税收益';
CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('TSSJ').Value;
end
else if i = 3 then
begin
CDS_HZ.FieldByName('FFAbstract').Value := '成品开票金额';
CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('CPKPJE').Value;
end;
post;
end;
@ -439,13 +444,13 @@ begin
SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,');
SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,');
SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS TOOrdNo,');
SQL.Add(' CAST(ISNULL(Sum(');
SQL.Add(' iif(sum(A.Amount) is null,CAST(ISNULL(Sum(');
SQL.Add(' ISNULL(A.price, sub.price) * ');
SQL.Add(' ISNULL( CASE sub.QtyUnit');
SQL.Add(' WHEN ''M'' THEN A.Meter');
SQL.Add(' WHEN ''Kg'' THEN A.NetWeight ');
SQL.Add(' WHEN ''Y'' THEN A.Yardage');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)), sum(A.Amount)) AS zdamount');
SQL.Add('FROM Trade_Cloth_IO A ');
SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID ');
SQL.Add('CROSS APPLY (');
@ -457,6 +462,7 @@ begin
SQL.Add(' AND A.IOType IN (''加工出库'', ''回修出库'')');
SQL.Add(' AND B.OrderNo = ' + QuotedStr(FOrderNo));
SQL.Add('GROUP BY B.OrderNo, A.IONO, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, sub.price, sub.QtyUnit, A.IOTime, A.price');
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQuery2, CDS_22);
@ -498,23 +504,16 @@ begin
Filtered := False;
Close;
SQL.Clear;
sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice, B.OrdUnit, A.ZDTime');
if FUnit = 'M' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))')
end
else if FUnit = 'Y' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))')
end
else if FUnit = 'Kg' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkNetWeight))')
end;
sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice, D.qtyunit OrdUnit, A.ZDTime ');
sql.Add(', ZDAmount = case D.qtyunit when ''M'' then (ISNULL(A.ZDPrice,0)*SUM(StkMeter))');
sql.Add(' when ''Y'' then (ISNULL(A.ZDPrice,0)*SUM(StkYardage))');
sql.Add(' when ''Kg'' then (ISNULL(A.ZDPrice,0)*SUM(StkNetWeight)) end');
SQL.Add(',SUM(StkGrossWeight) GrossWeight,SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage');
SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID');
sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId where A.ZDMainID= ' + QuotedStr(Trim(FMainID)));
Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice, B.OrdUnit, A.ZDTime');
sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId');
sql.Add('left join (select DISTINCT QtyUnit,DRSID from Trade_Cloth_DR_Sub ) D on D.DRSID = A.DRSID');
sql.Add(' where A.ZDMainID= ' + QuotedStr(Trim(FMainID)));
Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice, D.qtyunit, A.ZDTime');
// ShowMessage(sql.text);
Open;
end;
@ -589,13 +588,13 @@ begin
SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,');
SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,');
SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS ToOrdNo,');
SQL.Add(' CAST(ISNULL(Sum(');
SQL.Add(' iif(sum(A.Amount) is null, CAST(ISNULL(Sum(');
SQL.Add(' ISNULL(A.price, sub.price) * ');
SQL.Add(' ISNULL( CASE sub.QtyUnit');
SQL.Add(' WHEN ''M'' THEN A.Meter');
SQL.Add(' WHEN ''Kg'' THEN A.NetWeight ');
SQL.Add(' WHEN ''Y'' THEN A.Yardage');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)), sum(A.Amount)) AS zdamount');
SQL.Add('FROM Trade_Cloth_IO A ');
SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID ');
SQL.Add('CROSS APPLY (');
@ -607,6 +606,7 @@ begin
SQL.Add(' AND A.IOType IN (''加工出库'', ''回修出库'')');
SQL.Add(' AND (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ' + QuotedStr(FOrderNo));
SQL.Add('GROUP BY B.OrderNo, A.IONO, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, sub.price, sub.QtyUnit, A.IOTime, A.price');
Open;
end;
SCreateCDS(ADOQuery3, CDS_32);

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

@ -6,6 +6,7 @@ inherited frmReceivableList: TfrmReceivableList
ClientWidth = 1540
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -17
ExplicitWidth = 1556
ExplicitHeight = 629
PixelsPerInch = 96
@ -91,16 +92,23 @@ inherited frmReceivableList: TfrmReceivableList
ImageIndex = 11
OnClick = btnReChkClick
end
object ToolButton4: TToolButton
object ToolButton3: TToolButton
Left = 616
Top = 0
Caption = #26680#38144#35814#24773
ImageIndex = 4
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 707
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 687
Left = 778
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -108,7 +116,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 782
Left = 873
Top = 0
AutoSize = True
Caption = #20851#38381
@ -127,6 +135,7 @@ inherited frmReceivableList: TfrmReceivableList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label3: TLabel
Left = 172
Top = 13
@ -176,12 +185,19 @@ inherited frmReceivableList: TfrmReceivableList
Caption = #19978#32423#21333#20301
end
object Label1: TLabel
Left = 627
Left = 642
Top = 13
Width = 48
Height = 12
Caption = #35745#21010#21333#21495
end
object Label5: TLabel
Left = 632
Top = 39
Width = 60
Height = 12
Caption = #24212#25910#27454#21333#21495
end
object OppCoName: TEdit
Tag = 2
Left = 228
@ -266,13 +282,22 @@ inherited frmReceivableList: TfrmReceivableList
end
object OrderNo: TEdit
Tag = 2
Left = 681
Left = 698
Top = 9
Width = 87
Height = 20
TabOrder = 9
OnKeyPress = OppCoNameKeyPress
end
object FFID: TEdit
Tag = 2
Left = 699
Top = 34
Width = 87
Height = 20
TabOrder = 10
OnKeyPress = OppCoNameKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0
@ -369,6 +394,13 @@ inherited frmReceivableList: TfrmReceivableList
Options.Editing = False
Width = 76
end
object Tv1Column34: TcxGridDBColumn
Caption = #24212#25910#27454#21333#21495
DataBinding.FieldName = 'FFID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'

33
A09财务通用管理/U_ReceivableList.pas
View File

@ -102,6 +102,10 @@ type
Tv1Column31: TcxGridDBColumn;
Tv1Column32: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column34: TcxGridDBColumn;
FFID: TEdit;
Label5: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -121,6 +125,7 @@ type
procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -132,7 +137,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_ReceivableInput, U_ReceivableEdit;
U_DataLink, U_RTFun, U_ZDYHelp, U_ReceivableInput, U_ReceivableEdit, U_CollectWriteOffList;
{$R *.dfm}
procedure TfrmReceivableList.SetStatus();
@ -286,13 +291,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法删除', '提示');
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
@ -537,13 +542,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，单价无法修改', '提示');
application.MessageBox('计划单已完成或已清算，单价无法修改', '提示');
Exit;
end;
@ -629,6 +634,20 @@ begin
end;
procedure TfrmReceivableList.ToolButton3Click(Sender: TObject);
begin
frmCollectWriteOffList := TfrmCollectWriteOffList.create(self);
with frmCollectWriteOffList do
begin
ToId.text := Self.CDS_1.fieldbyname('FFID').AsString;
if showmodal = 1 then
begin
end;
free;
end;
end;
procedure TfrmReceivableList.ToolButton4Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
@ -647,13 +666,13 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' ');
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
application.MessageBox('计划单已完成或已清算，无法修改', '提示');
Exit;
end;

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

@ -150,6 +150,7 @@ begin
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));
sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency)));
ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);

10
A09财务通用管理/U_TaxInput.dfm
View File

@ -52,10 +52,18 @@ object frmTaxInput: TfrmTaxInput
Visible = False
OnClick = ToolButton1Click
end
object TBClose: TToolButton
object ToolButton2: TToolButton
Left = 190
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 8
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 261
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick

43
A09财务通用管理/U_TaxInput.pas
View File

@ -74,6 +74,7 @@ type
ToolButton1: TToolButton;
CSXF: TEdit;
Label20: TLabel;
ToolButton2: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -96,6 +97,7 @@ type
procedure COrtherRateChange(Sender: TObject);
procedure COrderNoChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
//procedure ToolButton1Click(Sender: TObject);
//procedure ToolButton2Click(Sender: TObject);
private
@ -133,7 +135,7 @@ begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from Costing_Table where CostMID =''' + Trim(FFFID) + '''');
sql.Add(' select * from Costing_Table where CostMID =''' + Trim(FFFID) + '''');
Open;
end;
if not ADOQueryMain.IsEmpty then
@ -558,7 +560,7 @@ procedure TfrmTaxInput.CalculateProduct(Sender: TObject);//
var
AValue, BValue, CValue: Double;
begin
if (PState = '新增') or (PState = '修改') then
if (PState = '新增') or (PState = '修改') then
begin
try
if (CWBSHrate.Text = '') or (CWBSHJE.Text = '') then
@ -607,7 +609,7 @@ procedure TfrmTaxInput.CalculateProduct3(Sender: TObject); //
var
AValue, BValue, CValue, DValue: Double;
begin
if (PState = '新增') or (PState = '修改') then
if (PState = '新增') or (PState = '修改') then
begin
if (CCPKPJE.Text = '') or (CGDSL.Text = '') then
begin
@ -629,9 +631,9 @@ end;
procedure TfrmTaxInput.CalculateProduct4(Sender: TObject); //¼ÆËãÆäËûË°·Ñ
var
AValue, BValue, CValue, DValue: Double;
AValue, BValue, BBValue, CValue, Dvalue: Double;
begin
if (PState = '新增') or (PState = '修改') then
if (PState = '新增') or (PState = '修改') then
begin
if (COrtherRate.Text = '') or (CCPKPJE.Text = '') or (COrderNo.Text = '') then
begin
@ -646,17 +648,27 @@ begin
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT TotalAmount FROM V_SF_YFK WHERE OrderNo = :OrderNo';
SQL.Text := 'SELECT TotalAmount FROM V_SF_YFK2 WHERE OrderNo = :OrderNo';
Parameters.ParamByName('OrderNo').Value := COrderNo.Text;
Open;
if not IsEmpty then
BValue := FieldByName('TotalAmount').AsFloat;
Close;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Text := 'exec P_Trade_ZD @orderno = ' + QuotedStr(COrderNo.Text);
Open;
if not IsEmpty then
BBValue := FieldByName('ZDRKFee').AsFloat - FieldByName('ZDCKFee').AsFloat;
Close;
end;
CValue := StrToFloatDef(CCPKPJE.Text, 0);
DValue := (CValue - BValue) * AValue;
COrderSF.Text := FormatFloat('0.00', DValue);
Dvalue := (CValue - (BValue + BBValue)) * AValue;
COrderSF.Text := FormatFloat('0.00', Dvalue);
except
on E: Exception do
COrderSF.Text := 'ÊäÈë´íÎó: ' + E.Message;
@ -695,6 +707,21 @@ begin
end;
end;
procedure TfrmTaxInput.ToolButton2Click(Sender: TObject);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from V_Tax2 where orderno=' + QuotedStr(COrderNo.Text));
Open;
end;
C_WBHXJE.Text := Trim(ADOQueryTemp.fieldbyname('SumUSD').AsString);
C_RMBHXJE.Text := Trim(ADOQueryTemp.fieldbyname('SumCNY').AsString);
C_HXrate.Text := Trim(ADOQueryTemp.fieldbyname('HXHV').AsString);
CSXF.Text := Trim(ADOQueryTemp.fieldbyname('SXF').AsString);
end;
procedure TfrmTaxInput.ToolButton3Click(Sender: TObject);
begin
ToolBar1.SetFocus;

60
A09财务通用管理/U_TaxList.dfm
View File

@ -3,11 +3,10 @@ inherited frmTaxList: TfrmTaxList
Top = 101
Caption = #31246#36153#26680#31639
ClientHeight = 590
ClientWidth = 1284
ClientWidth = 1281
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -433
ExplicitWidth = 1300
ExplicitWidth = 1297
ExplicitHeight = 629
PixelsPerInch = 96
TextHeight = 12
@ -15,7 +14,7 @@ inherited frmTaxList: TfrmTaxList
Tag = 1
Left = 0
Top = 0
Width = 1284
Width = 1281
Height = 60
AutoSize = True
ButtonHeight = 30
@ -185,7 +184,7 @@ inherited frmTaxList: TfrmTaxList
object Panel1: TPanel [1]
Left = 0
Top = 60
Width = 1284
Width = 1281
Height = 43
Align = alTop
BevelInner = bvRaised
@ -296,7 +295,7 @@ inherited frmTaxList: TfrmTaxList
object cxGrid1: TcxGrid [2]
Left = 0
Top = 103
Width = 1284
Width = 1281
Height = 487
Align = alClient
PopupMenu = PopupMenu1
@ -329,6 +328,50 @@ inherited frmTaxList: TfrmTaxList
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column5
end
item
Kind = skSum
Column = Tv1Column7
end
item
Kind = skSum
Column = Tv1Column10
end
item
Kind = skSum
Column = Tv1Column13
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
Column = Tv1Column15
end
item
Kind = skSum
Column = Tv1Column19
end
item
Kind = skSum
Column = Tv1Column20
end
item
Kind = skSum
Column = Tv1Column27
end
item
Kind = skSum
Column = Tv1Column21
end
item
Kind = skSum
Column = Tv1Column23
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
@ -564,6 +607,11 @@ inherited frmTaxList: TfrmTaxList
Options.Editing = False
Width = 70
end
object Tv1Column29: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
Visible = False
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1

63
A09财务通用管理/U_TaxList.pas
View File

@ -120,6 +120,7 @@ type
ToolButton10: TToolButton;
ToolButton11: TToolButton;
Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -190,7 +191,8 @@ begin
SQL.add('select *, OrdDate = (select OrdDate from Trade_Plan_Main x where x.OrderNo = a.COrderNo) ');
SQL.Add(' ,BuyConNo = (select BuyConNo from V_Trade_Plan_Single_2 X where COrderNo = X.OrderNo )');
SQL.Add(' from Costing_Table a ');
SQL.Add(' ,status = (select status from Trade_plan_main X where COrderNo = X.OrderNo )');
SQL.Add(' from V_Costing_Table a ');
SQL.add('where 1=1');
if CheckBox1.Checked then
begin
@ -309,13 +311,13 @@ begin
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status = ''10'' ');
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法删除', '提示');
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
@ -454,6 +456,20 @@ begin
Exit;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
@ -733,6 +749,21 @@ end;
procedure TfrmTaxList.ToolButton10Click(Sender: TObject);
begin
inherited;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
with ADOQueryCmd do
begin
close;
@ -746,6 +777,20 @@ end;
procedure TfrmTaxList.ToolButton11Click(Sender: TObject);
begin
inherited;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
with ADOQueryCmd do
begin
close;
@ -930,13 +975,13 @@ begin
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status = ''10'' ');
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
application.MessageBox('计划单已完成或已清算，无法修改', '提示');
Exit;
end;
@ -989,6 +1034,11 @@ begin
ACanvas.Brush.Color := $00FF8080;
end;
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '12' then
begin
ACanvas.Brush.Color := clMoneyGreen;
end;
mColumn := Tv1.GetColumnByFieldName('HYStatus');
if mColumn = nil then
exit;
@ -996,8 +1046,9 @@ begin
if mvalue = true then
begin
ACanvas.Font.Color := clBlue;
Exit;
// Exit;
end;
end;
procedure TfrmTaxList.OppCoNameKeyPress(Sender: TObject; var Key: Char);

25
A09财务通用管理/U_TaxSel.dfm
View File

@ -1,4 +1,4 @@
inherited frmTaxSel: TfrmTaxSel
inherited frmTaxSel: TfrmTaxSel
Left = 372
Top = 106
Caption = #35745#21010#21333#21495#36873#25321
@ -10,7 +10,6 @@ inherited frmTaxSel: TfrmTaxSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -298
ExplicitWidth = 1165
ExplicitHeight = 597
PixelsPerInch = 96
@ -85,6 +84,13 @@ inherited frmTaxSel: TfrmTaxSel
Height = 12
Caption = #23458#25143#21333#21495
end
object 客户: TLabel
Left = 543
Top = 15
Width = 24
Height = 12
Caption = #23458#25143
end
object OrderNo: TEdit
Tag = 2
Left = 69
@ -103,6 +109,15 @@ inherited frmTaxSel: TfrmTaxSel
TabOrder = 1
OnChange = OrderNoChange
end
object CustName: TEdit
Tag = 2
Left = 573
Top = 10
Width = 169
Height = 20
TabOrder = 2
OnChange = OrderNoChange
end
end
object cxGrid2: TcxGrid [2]
Left = 0
@ -313,6 +328,12 @@ inherited frmTaxSel: TfrmTaxSel
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = 'S0-'#21407#26009#25903#20986
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column9: TcxGridDBColumn
Caption = 'S1-'#38754#26009#25903#20986
DataBinding.FieldName = 'S1JE'

3
A09财务通用管理/U_TaxSel.pas
View File

@ -74,6 +74,9 @@ type
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
CustName: TEdit;
客户: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

33
A09财务通用管理/U_ZDPrice.dfm
View File

@ -6,8 +6,6 @@ inherited frmZDPrice: TfrmZDPrice
ClientWidth = 1247
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -396
ExplicitTop = -115
ExplicitWidth = 1263
ExplicitHeight = 558
PixelsPerInch = 96
@ -614,8 +612,33 @@ inherited frmZDPrice: TfrmZDPrice
OnCustomDrawCell = Tv4CustomDrawCell
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv4Column9
end
item
Kind = skSum
Column = Tv4Column10
end
item
Kind = skSum
Column = Tv4Column11
end
item
Kind = skSum
Column = Tv4Column12
end
item
Kind = skCount
Column = Tv4Column8
end
item
Kind = skSum
Column = Tv4Column18
end>
DataController.Summary.SummaryGroups = <>
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv4Column1: TcxGridDBColumn
AlternateCaption = #36873#25321
@ -763,7 +786,7 @@ inherited frmZDPrice: TfrmZDPrice
end
object Tv4Column19: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'ConMid'
DataBinding.FieldName = 'Editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -771,7 +794,7 @@ inherited frmZDPrice: TfrmZDPrice
end
object Tv4Column20: TcxGridDBColumn
Caption = #23457#26680#26102#38388
DataBinding.FieldName = 'ConSid'
DataBinding.FieldName = 'Edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False

86
A09财务通用管理/U_ZDPrice.pas
View File

@ -211,16 +211,16 @@ begin
end;
3:
begin
sql.Add(' select B.stkid,B.ConMid,B.ConSid,B.OrderNo fromordno,A.IOID,A.IOTime,B.C_Code,B.C_Name,B.PieceNo,B.StkMeter,B.StkYardage,B.StkGrossWeight,');
sql.Add(' select B.stkid,A.Editer,A.Edittime,B.OrderNo fromordno,A.IOID,A.IOTime,B.C_Code,B.C_Name,B.PieceNo,B.StkMeter,B.StkYardage,B.StkGrossWeight,');
SQL.Add(' B.StkNetWeight,B.C_Color,B.C_Pattern,B.C_ColorNo,B.MainID,');
SQL.Add(' iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) price, ');
sql.Add(' (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS QtyUnit, ');
sql.Add(' cast (case when (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ''M'' ');
sql.Add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) * StkMeter');
sql.Add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO)* StkMeter, A.Amount)');
SQL.Add(' when (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ''Kg'' ');
SQL.Add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) * StkNetWeight');
SQL.Add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) * StkNetWeight, A.Amount) ');
SQL.Add(' when (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ''Y'' ');
sql.add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) * StkYardage');
sql.add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) * StkYardage, A.Amount) ');
SQL.Add(' end as DECIMAL(18,2)) as zdamount,');
sql.Add(' STUFF(');
sql.Add(' (SELECT DISTINCT '', '' + OrderNo ');
@ -353,36 +353,26 @@ begin
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
end;
end
else if cxTabControl1.TabIndex = 3 then
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_3);
SInitCDSData(ADOQueryMain, CDS_3);
end;
end;
end;
procedure TfrmZDPrice.ToolButton3Click(Sender: TObject);
var
PBCIOID, PStkId, PIOID: string;
PBCIOID, PStkId, PIOID, POrderNo: string;
Bookmark: TBookmark;
begin
inherited;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('FromOrdNo').AsString) + ' and status = ''10'' ')
else if cxTabControl1.TabIndex = 2 then
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_2.FieldByName('FromOrdNo').AsString) + ' and status = ''10'' ')
else if cxTabControl1.TabIndex = 3 then
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_3.FieldByName('FromOrdNo').AsString) + ' and status = ''10'' ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法删除', '提示');
Exit;
end;
if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then
Bookmark := CDS_1.GetBookmark
else if cxTabControl1.TabIndex = 2 then
@ -411,10 +401,12 @@ begin
if PBCIOID = '' then
begin
PBCIOID := PBCIOID + '''' + FieldByName('BCIOID').AsString + '''';
POrderNo := POrderNo + '''' + FieldByName('fromOrdNo').AsString + '''' + ',''' + FieldByName('ToOrdNo').AsString + '''';
end
else
begin
PBCIOID := PBCIOID + ',''' + FieldByName('BCIOID').AsString + '''';
POrderNo := POrderNo + ',''' + FieldByName('fromOrdNo').AsString + '''' + ',''' + FieldByName('ToOrdNo').AsString + '''';
end;
end;
Next;
@ -445,10 +437,12 @@ begin
if PStkId = '' then
begin
PStkId := PStkId + '''' + FieldByName('StkId').AsString + '''';
POrderNo := POrderNo + '''' + FieldByName('fromOrdNo').AsString + '''' + ',''' + FieldByName('ToOrdNo').AsString + '''';
end
else
begin
PStkId := PStkId + ',''' + FieldByName('StkId').AsString + '''';
POrderNo := POrderNo + '''' + FieldByName('fromOrdNo').AsString + '''' + ',''' + FieldByName('ToOrdNo').AsString + '''';
end;
end;
Next;
@ -477,10 +471,12 @@ begin
if PIOID = '' then
begin
PIOID := PIOID + '''' + FieldByName('IOID').AsString + '''';
POrderNo := POrderNo + '''' + FieldByName('fromOrdNo').AsString + '''' + ',''' + FieldByName('ToOrdNo').AsString + '''';
end
else
begin
PIOID := PIOID + ',''' + FieldByName('IOID').AsString + '''';
POrderNo := POrderNo + '''' + FieldByName('fromOrdNo').AsString + '''' + ',''' + FieldByName('ToOrdNo').AsString + '''';
end;
end;
Next;
@ -490,6 +486,26 @@ begin
Tv4.endUpdate;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then
sql.Add(' select * from Trade_Plan_Main where OrderNo in (' + POrderNo + ') and status in(''10'',''12'') ')
else if cxTabControl1.TabIndex = 2 then
sql.Add(' select * from Trade_Plan_Main where OrderNo in (' + POrderNo + ') and status in(''10'',''12'') ')
else if cxTabControl1.TabIndex = 3 then
sql.Add(' select * from Trade_Plan_Main where OrderNo in (' + POrderNo + ') and status in(''10'',''12'') ');
// ShowMessage(SQL.Text);
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成或已清算，无法删除', '提示');
Exit;
end;
try
frmBatchEdit := TfrmBatchEdit.Create(Application);
with frmBatchEdit do
@ -690,13 +706,13 @@ begin
begin
if FieldByName('ssel').AsBoolean = true then
begin
if PStkId = '' then
if PBCIOID = '' then
begin
PStkId := PStkId + '''' + FieldByName('StkId').AsString + '''';
PBCIOID := PBCIOID + '''' + FieldByName('ioid').AsString + '''';
end
else
begin
PStkId := PStkId + ',''' + FieldByName('StkId').AsString + '''';
PBCIOID := PBCIOID + ',''' + FieldByName('ioid').AsString + '''';
end;
end;
Next;
@ -707,8 +723,8 @@ begin
begin
close;
SQL.Clear;
sql.add('update Trade_Cloth_Stock set ConMID = ' + QuotedStr(DName) + 'where stkid in (' + PStkId + ')');
sql.add('update Trade_Cloth_Stock set ConSID = CONVERT(VARCHAR(10), GETDATE(), 23) where stkid in (' + PStkId + ')');
sql.add('update Trade_Cloth_io set Editer = ' + QuotedStr(DName) + 'where ioid in (' + PBCIOID + ')');
sql.add('update Trade_Cloth_io set Edittime = CONVERT(VARCHAR(10), GETDATE(), 23) where ioid in (' + PBCIOID + ')');
// ShowMessage(sql.text);
ExecSQL;
end;
@ -850,13 +866,13 @@ begin
begin
if FieldByName('ssel').AsBoolean = true then
begin
if PStkId = '' then
if PBCIOID = '' then
begin
PStkId := PStkId + '''' + FieldByName('StkId').AsString + '''';
PBCIOID := PBCIOID + '''' + FieldByName('ioid').AsString + '''';
end
else
begin
PStkId := PStkId + ',''' + FieldByName('StkId').AsString + '''';
PBCIOID := PBCIOID + ',''' + FieldByName('ioid').AsString + '''';
end;
end;
Next;
@ -867,8 +883,8 @@ begin
begin
close;
SQL.Clear;
sql.add('update Trade_Cloth_Stock set ConMID = null where stkid in (' + PStkId + ')');
sql.add('update Trade_Cloth_Stock set ConSID = null where stkid in (' + PStkId + ')');
sql.add('update Trade_Cloth_IO set Editer = null where ioid in (' + PBCIOID + ')');
sql.add('update Trade_Cloth_IO set Edittime = null where ioid in (' + PBCIOID + ')');
ExecSQL;
end;
@ -949,7 +965,7 @@ var
mvalue: Variant;
begin
inherited;
mColumn := Tv4.GetColumnByFieldName('ConMID');
mColumn := Tv4.GetColumnByFieldName('Editer');
if mColumn = nil then
exit;
mvalue := AViewInfo.GridRecord.Values[mColumn.index];

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

@ -152,7 +152,6 @@ inherited frmhandPayableList: TfrmhandPayableList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 44
object Label2: TLabel
Left = 40
Top = 13

48
A09财务通用管理/U_handPayableList.pas
View File

@ -286,6 +286,19 @@ end;
procedure TfrmhandPayableList.TUPDATEClick(Sender: TObject);
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_Invoice.FieldByName('OrderNo').AsString) + ' and status in(''10'',''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
Exit;
end;
frmHandPayableInPut := TfrmHandPayableInPut.Create(self);
with frmHandPayableInPut do
begin
@ -307,6 +320,21 @@ begin
exit;
if application.MessageBox('确定要删除吗？', '提示', 1) = 2 then
exit;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_Invoice.FieldByName('OrderNo').AsString) + ' and status in (''10'',''12'') ');
open;
end;
if not ADOQueryTemp.IsEmpty then
begin
application.MessageBox('计划单已完成，无法修改', '提示');
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
@ -350,7 +378,7 @@ end;
procedure TfrmhandPayableList.TCHKClick(Sender: TObject);
var
MFFIDS: string;
MFFIDS, MOrderNos: string;
begin
if CDS_Invoice.IsEmpty then
exit;
@ -367,11 +395,27 @@ begin
while CDS_Invoice.Locate('SSel', True, []) do
begin
MFFIDS := MFFIDS + Trim(CDS_Invoice.fieldbyname('FFID').AsString) + ',';
MOrderNos := MOrderNos + Trim(CDS_Invoice.fieldbyname('OrderNo').AsString) + ',';
CDS_Invoice.Delete;
end;
// EnableControls;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.add('select * from trade_plan_main where OrderNo in (select rtvalue from F_Tool_SplitString(''' + MOrderNos + ''', '','') ) and status in(''10'', ''12'')');
// showmessage(sql.text);
Open;
end;
if not ADOQueryTemp.IsEmpty() then
begin
application.MessageBox('选择的计划单状态有已完成或已清算的状态，无法审核', '提示');
InitGrid();
Exit;
end;
try
with ADOQueryCmd do
begin
@ -386,7 +430,7 @@ begin
end;
application.MessageBox('审核成功', '提示');
// InitGrid();
CDS_Invoice.delete;
// CDS_Invoice.delete;
except
application.MessageBox('审核失败', '提示');
end;

BIN
A09财务通用管理/testDll.identcache
View File

Binary file not shown.

10
B01基础合同管理/Contract.dproj.local
View File

@ -47,8 +47,8 @@
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
@ -72,16 +72,16 @@
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10zzbiaoqi"/>

16
B01基础合同管理/U_GetDllForm.pas
View File

@ -15,7 +15,7 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation
uses
U_DataLink, U_iniParam, U_SalesContractList, U_ContractList,U_BaoguanList;
U_DataLink, U_iniParam, U_SalesContractList, U_ContractList, U_BaoguanList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -73,13 +73,17 @@ begin
dtbase := 'BiaoqiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
// server := '127.0.0.1';
// dtbase := 'BiaoqiData';
// user := 'sa';
// pswd := 'root';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '录入';
Parameters1 := '理单';
// Parameters1 := '管理';
// DName :='admin';
DCode :='002';
// Parameters1 := '理单';
Parameters1 := '管理';
DName :='admin';
DCode := 'admin';
end
else
begin
@ -152,7 +156,7 @@ begin
end;
end;
211: //报关管理
211: //报关管理
begin
with TfrmBaoguanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin

3
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -77,8 +77,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitLeft = 1
ExplicitTop = 33
object Label3: TLabel
Left = 40
Top = 81
@ -753,6 +751,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
StyleReadOnly.LookAndFeel.NativeStyle = True
TabOrder = 19
Visible = False
OnDblClick = cxDBImage1DblClick

14
B01基础合同管理/U_SalesConInPut.pas
View File

@ -827,6 +827,17 @@ begin
SCreateCDS(ADOTemp, Order_Sub);
SInitCDSData(ADOTemp, Order_Sub);
if PState = '¸´ÖÆ' then
begin
with Order_Sub do
begin
Edit;
FieldByName('Estimated').Value := '';
FieldByName('ProfitRate').Value := '';
post;
end;
end;
//刷新条款信息
with ADOTemp do
begin
@ -881,10 +892,9 @@ begin
TV1Column2.VisibleForCustomization := False;
TV1Column4.Visible := False;
TV1Column4.VisibleForCustomization := False;
Panel2.Visible:=False;
Panel2.Visible := False;
end;
end;
procedure TfrmSalesConInPut.MiddleNameBtnUpClick(Sender: TObject);

4
B04采购计划管理/PurchasePlan.dproj.local
View File

@ -11,10 +11,10 @@
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.953,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.pas</Transaction>

BIN
B04采购计划管理/PurchasePlan.identcache
View File

Binary file not shown.

57
B04采购计划管理/U_ClothPurchasePlanList.dfm
View File

@ -6,6 +6,7 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
ClientWidth = 1525
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -635
ExplicitWidth = 1541
ExplicitHeight = 775
PixelsPerInch = 96
@ -161,16 +162,24 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
ImageIndex = 11
OnClick = TnoqxClick
end
object ToolButton7: TToolButton
object ToolButton3: TToolButton
Left = 1280
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton3Click
end
object ToolButton7: TToolButton
Left = 1351
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton7Click
end
object TBClose: TToolButton
Left = 1375
Left = 1446
Top = 0
AutoSize = True
Caption = #20851#38381
@ -186,6 +195,7 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitTop = 121
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -204,6 +214,9 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
@ -237,7 +250,6 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_PurchasePlan.Default
Width = 86
end
@ -249,20 +261,39 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_PurchasePlan.Default
Width = 85
end
object Tv1Column8: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object v1ConNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_PurchasePlan.Default
Width = 82
end
object Tv1Column9: TcxGridDBColumn
Caption = #23454#38469#37319#36141#25968#37327
DataBinding.FieldName = 'SCGQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 128
end
object Tv1Column10: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'qtyunit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 101
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
@ -275,7 +306,6 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_PurchasePlan.FontBlue
Width = 94
end
@ -285,7 +315,6 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_PurchasePlan.FoneClMaroon
Width = 99
end
@ -507,7 +536,7 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009200
Time = 0.464761099538009100
TabOrder = 1
end
object BuyName: TEdit
@ -673,6 +702,18 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
item
Kind = skSum
Column = TV2Column3
end
item
Kind = skSum
Column = TV2Column7
end
item
Kind = skSum
Column = TV2Column6
end
item
Kind = skSum
Column = TV2Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True

16
B04采购计划管理/U_ClothPurchasePlanList.pas
View File

@ -135,6 +135,10 @@ type
Tv1Column6: TcxGridDBColumn;
Label1: TLabel;
BuyConNo: TEdit;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -171,6 +175,7 @@ type
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
fFlileFlag: string;
procedure InitGrid();
@ -402,7 +407,7 @@ begin
Close;
sql.Clear;
sql.Add('select AA.* from (select DISTINCT A.*,C.BuyConNo,D.FOrdNo');
sql.Add('select AA.* from (select DISTINCT A.*,B.qtyunit,SCGQty = (select sum(SCGQty) from Pur_ClothPlan_Sub X where X.PurMId = A.PurMId),C.BuyConNo,C.C_Name,D.FOrdNo');
sql.Add(',(Case A.Status when ''0'' then ''未提交'' when ''1'' then ''已提交''');
sql.Add('when ''9'' then ''已审核'' when ''10'' then ''已完成'' ');
SQL.Add('when ''-1'' then ''已取消'' end) AS ZT');
@ -435,6 +440,7 @@ begin
end;
end;
sql.add('Order By PurDate Desc');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@ -624,6 +630,14 @@ begin
end;
end;
procedure TfrmClothPurchasePlanList.ToolButton3Click(Sender: TObject);
begin
inherited;
if CDS_1.IsEmpty then
exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmClothPurchasePlanList.btnWCClick(Sender: TObject);
var
MPurMIdS: string;

57
B04采购计划管理/U_ClothRSPlanList.dfm
View File

@ -6,6 +6,7 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
ClientWidth = 1525
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -499
ExplicitWidth = 1541
ExplicitHeight = 775
PixelsPerInch = 96
@ -161,16 +162,24 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
ImageIndex = 11
OnClick = TnoqxClick
end
object ToolButton7: TToolButton
object ToolButton3: TToolButton
Left = 1280
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton3Click
end
object ToolButton7: TToolButton
Left = 1351
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton7Click
end
object TBClose: TToolButton
Left = 1375
Left = 1446
Top = 0
AutoSize = True
Caption = #20851#38381
@ -186,6 +195,7 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitTop = 121
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -202,6 +212,10 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column9
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -263,6 +277,28 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Styles.Header = DataLink_PurchasePlan.Default
Width = 82
end
object Tv1Column8: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object Tv1Column9: TcxGridDBColumn
Caption = #23454#38469#37319#36141#25968#37327
DataBinding.FieldName = 'SCGQty'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1Column10: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'qtyunit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
@ -508,7 +544,7 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009200
Time = 0.464761099538009100
TabOrder = 1
end
object BuyName: TEdit
@ -674,6 +710,18 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
item
Kind = skSum
Column = TV2Column3
end
item
Kind = skSum
Column = TV2Column6
end
item
Kind = skSum
Column = TV2Column7
end
item
Kind = skSum
Column = TV2Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
@ -749,6 +797,7 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Caption = #23433#25490#26579#33394#25968#37327
DataBinding.FieldName = 'CGQty'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 99
end
@ -756,6 +805,7 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Caption = #23454#38469#26579#33394#25968#37327
DataBinding.FieldName = 'SCGQty'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 99
end
@ -851,6 +901,7 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 86
end

15
B04采购计划管理/U_ClothRSPlanList.pas
View File

@ -135,6 +135,10 @@ type
Tv1Column6: TcxGridDBColumn;
Label1: TLabel;
BuyConNo: TEdit;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -171,6 +175,7 @@ type
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
fFlileFlag: string;
procedure InitGrid();
@ -403,7 +408,7 @@ begin
Close;
sql.Clear;
sql.Add('select AA.* from (select DISTINCT A.*,C.BuyConNo,D.FOrdNo');
sql.Add('select AA.* from (select DISTINCT A.*,B.qtyunit,SCGQty = (select sum(SCGQty) from Pur_ClothPlan_Sub X where X.PurMId = A.PurMId),C.BuyConNo,C.C_Name,D.FOrdNo');
sql.Add(',(Case A.Status when ''0'' then ''未提交'' when ''1'' then ''已提交''');
sql.Add('when ''9'' then ''已审核'' when ''10'' then ''已完成'' ');
SQL.Add('when ''-1'' then ''已取消'' end) AS ZT');
@ -626,6 +631,14 @@ begin
end;
end;
procedure TfrmClothRSPlanList.ToolButton3Click(Sender: TObject);
begin
inherited;
if CDS_1.IsEmpty then
exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmClothRSPlanList.btnWCClick(Sender: TObject);
var
MPurMIdS: string;

2
T01贸易生产计划/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\TradePlan.dproj"/>
<Projects ActiveProject="D:\D10V1W\项目代码\D10zzbiaoqi\T01贸易生产计划\TradePlan.dproj"/>
</Default.Personality>
</BorlandProject>

4
T01贸易生产计划/TradePlan.dpr
View File

@ -34,7 +34,9 @@ uses
U_PlanProfit in 'U_PlanProfit.pas' {frmPlanProfit},
U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail},
U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails},
U_ZDYHelp_P in 'U_ZDYHelp_P.pas' {frmZDYHelp_P};
U_ZDYHelp_P in 'U_ZDYHelp_P.pas' {frmZDYHelp_P},
U_TradePlanLoss in 'U_TradePlanLoss.pas' {frmTradePlanLoss},
U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList};
{$R *.res}

8
T01贸易生产计划/TradePlan.dproj
View File

@ -178,6 +178,14 @@
<Form>frmZDYHelp_P</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradePlanLoss.pas">
<Form>frmTradePlanLoss</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradePlanList.pas">
<Form>frmTradePlanList</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

69
T01贸易生产计划/TradePlan.dproj.local
View File

@ -1,53 +1,58 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanLoss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>2026-04-28 09:30:30.539,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas</Transaction>
<Transaction>2026-04-28 09:31:54.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.dfm</Transaction>
<Transaction>2026-04-28 09:31:54.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas</Transaction>
<Transaction>2026-04-28 09:34:05.504,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanList.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10zzbiaoqi"/>
@ -108,5 +113,9 @@
<File Path="U_PlanProfitDetails.dfm"/>
<File Path="U_ZDYHelp_P.pas"/>
<File Path="U_ZDYHelp_P.dfm"/>
<File Path="U_TradePlanLoss.pas"/>
<File Path="U_TradePlanLoss.dfm"/>
<File Path="U_TradePlanList.pas"/>
<File Path="U_TradePlanList.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

43
T01贸易生产计划/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_TradePlanList, U_TradePlanMulFtyList,
U_TradePlanSchedule, U_PlanTecList, U_PlanProfit;
U_TradePlanSchedule, U_PlanTecList, U_PlanProfit, U_TradePlanLoss, U_SalesRanking;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -70,21 +70,22 @@ begin
if trim(DataBaseStr) = '' then
begin
// server := '101.132.143.144,7781';
// dtbase := 'BiaoqiData';
// user := 'rtsa';
// pswd := 'rightsoft@5740';
server := '127.0.0.1';
server := '101.132.143.144,7781';
dtbase := 'BiaoqiData';
user := 'sa';
pswd := 'root';
user := 'rtsa';
pswd := 'rightsoft@5740';
// server := '127.0.0.1';
// dtbase := 'BiaoqiData';
// user := 'sa';
// pswd := 'root';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '录入';
// Parameters2 := '业务';
Parameters1 := '管理';
// DName:='ADMIN';
DName := 'ADMIN';
DCode := 'ADMIN';
end
else
begin
@ -180,6 +181,17 @@ begin
mnewHandle := Handle;
end;
end;
212: //ËðºÄ±í²éѯ
begin
with TfrmTradePlanLoss.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
311: //利润表查询
begin
@ -192,6 +204,17 @@ begin
mnewHandle := Handle;
end;
end;
312: //ÏúÁ¿ÅÅÐаñ
begin
with TfrmSalesRanking.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000:
begin

145
T01贸易生产计划/U_PlanProfit.dfm
View File

@ -7,6 +7,7 @@ inherited frmPlanProfit: TfrmPlanProfit
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -394
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
@ -16,7 +17,7 @@ inherited frmPlanProfit: TfrmPlanProfit
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 76
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
@ -126,12 +127,13 @@ inherited frmPlanProfit: TfrmPlanProfit
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
Wrap = True
Visible = False
OnClick = TBTJClick
end
object TBTJCX: TToolButton
Left = 829
Top = 0
Left = 0
Top = 38
AutoSize = True
Caption = #25552#20132#25764#38144
ImageIndex = 11
@ -139,8 +141,8 @@ inherited frmPlanProfit: TfrmPlanProfit
OnClick = TBTJCXClick
end
object Tchk: TToolButton
Left = 924
Top = 0
Left = 95
Top = 38
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
@ -148,8 +150,8 @@ inherited frmPlanProfit: TfrmPlanProfit
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 995
Top = 0
Left = 166
Top = 38
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
@ -157,8 +159,8 @@ inherited frmPlanProfit: TfrmPlanProfit
OnClick = TnochkClick
end
object TWC: TToolButton
Left = 1090
Top = 0
Left = 261
Top = 38
AutoSize = True
Caption = #23436#25104
ImageIndex = 12
@ -166,25 +168,49 @@ inherited frmPlanProfit: TfrmPlanProfit
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 1161
Top = 0
Left = 332
Top = 38
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 11
Visible = False
OnClick = TNowcClick
end
object ToolButton6: TToolButton
Left = 427
Top = 38
AutoSize = True
Caption = #28165#31639
ImageIndex = 12
OnClick = ToolButton6Click
end
object ToolButton7: TToolButton
Left = 498
Top = 38
AutoSize = True
Caption = #25764#38144#28165#31639
ImageIndex = 10
OnClick = ToolButton7Click
end
object ToolButton5: TToolButton
Left = 593
Top = 38
AutoSize = True
Caption = #23548#20986
ImageIndex = 19
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 1256
Top = 0
Left = 664
Top = 38
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 1351
Top = 0
Left = 759
Top = 38
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
@ -193,7 +219,7 @@ inherited frmPlanProfit: TfrmPlanProfit
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Top = 76
Width = 1540
Height = 51
Align = alTop
@ -242,7 +268,7 @@ inherited frmPlanProfit: TfrmPlanProfit
ParentFont = False
end
object Label2: TLabel
Left = 978
Left = 818
Top = 20
Width = 52
Height = 12
@ -253,10 +279,9 @@ inherited frmPlanProfit: TfrmPlanProfit
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 828
Left = 974
Top = 20
Width = 39
Height = 12
@ -342,17 +367,16 @@ inherited frmPlanProfit: TfrmPlanProfit
end
object C_Name: TEdit
Tag = 2
Left = 1036
Left = 876
Top = 16
Width = 77
Height = 20
TabOrder = 6
Visible = False
OnChange = OrderNoChange
OnKeyPress = OrderNoKeyPress
end
object ConNo: TEdit
Tag = 2
Left = 873
Left = 1019
Top = 16
Width = 80
Height = 20
@ -379,12 +403,14 @@ inherited frmPlanProfit: TfrmPlanProfit
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 107
Top = 145
Width = 1540
Height = 653
Height = 615
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = 248
ExplicitTop = 114
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -496,6 +522,20 @@ inherited frmPlanProfit: TfrmPlanProfit
Styles.Header = DataLink_TradePlan.FoneClMaroon
Width = 88
end
object Tv1Column29: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column30: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'OurCoName'
@ -627,11 +667,32 @@ inherited frmPlanProfit: TfrmPlanProfit
Width = 86
end
object Tv1Column8: TcxGridDBColumn
Caption = #25163#32493#36153
Caption = 'TT'#25163#32493#36153
DataBinding.FieldName = 'SXFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column21: TcxGridDBColumn
Caption = #36864#31246#25910#30410
DataBinding.FieldName = 'TSSY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column28: TcxGridDBColumn
Caption = #25104#21697#24320#31080#37329#39069
DataBinding.FieldName = 'CPKPJE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 103
end
object Tv1Column23: TcxGridDBColumn
Caption = #22806#24065#23454#26680#27719#29575
DataBinding.FieldName = 'WBSHrate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 101
end
object Tv1Column6: TcxGridDBColumn
Caption = #21033#28070
DataBinding.FieldName = 'SJLRAMount'
@ -659,6 +720,35 @@ inherited frmPlanProfit: TfrmPlanProfit
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column24: TcxGridDBColumn
AlternateCaption = #25104#26412#21512#35745
Caption = #25104#26412#21512#35745
DataBinding.FieldName = 'CBHJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column25: TcxGridDBColumn
Caption = #39044#20272#21033#28070#29575
DataBinding.FieldName = 'YGLRL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column26: TcxGridDBColumn
Caption = #23454#38469#21033#28070#29575
DataBinding.FieldName = 'SJLRL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column27: TcxGridDBColumn
Caption = #28165#31639#26085#26399
DataBinding.FieldName = 'SettleDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -666,7 +756,7 @@ inherited frmPlanProfit: TfrmPlanProfit
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 89
Top = 127
Width = 1540
Height = 18
Align = alTop
@ -677,6 +767,7 @@ inherited frmPlanProfit: TfrmPlanProfit
Properties.Tabs.Strings = (
#26410#23436#25104
#24050#23436#25104
#24050#28165#31639
#20840#37096)
OnChange = cxTabControl1Change
ClientRectRight = 0

191
T01贸易生产计划/U_PlanProfit.pas
View File

@ -109,6 +109,18 @@ type
Label5: TLabel;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
Tv1Column27: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -147,6 +159,9 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
private
DQdate: TDateTime;
procedure InitGrid();
@ -203,6 +218,19 @@ begin
TWC.Enabled := False;
TNowc.Enabled := False;
TBDel.Enabled := False;
ToolButton6.Visible := False;
ToolButton7.Visible := False;
case cxTabControl1.TabIndex of
1:
begin
ToolButton6.Visible := True;
end;
2:
begin
ToolButton7.Visible := True;
end;
end;
// case cxTabControl1.TabIndex of
// 0:
@ -304,6 +332,10 @@ begin
sql.Add(' ,@WCFlag=''已完成'' ');
end;
2:
begin
sql.Add(' ,@WCFlag=''已清算'' ');
end;
3:
begin
sql.Add(' ,@WCFlag=''全部'' ');
end;
@ -661,7 +693,6 @@ var
begin
end;
procedure TfrmPlanProfit.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
@ -753,7 +784,7 @@ begin
OrderNo.Text := self.Order_Main.fieldbyname('OrderNo').AsString;
FOrderNo := self.Order_Main.fieldbyname('OrderNo').AsString;
FMainID := self.Order_Main.fieldbyname('MainID').AsString;
FUnit :=Self.ADOQuery1.FieldByName('OrdUnit').ASString;
FUnit := Self.ADOQuery1.FieldByName('OrdUnit').ASString;
if ShowModal = 1 then
begin
@ -831,6 +862,122 @@ begin
end;
end;
procedure TfrmPlanProfit.ToolButton5Click(Sender: TObject);
begin
inherited;
if Order_Main.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxGrid1);
end;
procedure TfrmPlanProfit.ToolButton6Click(Sender: TObject);
var
topIndex: Integer;
mainIDS: string;
begin
if Order_Main.IsEmpty then
exit;
if not Order_Main.Locate('ssel', True, []) then
begin
ShowMessage('没有选择数据');
Exit;
end;
if Application.MessageBox('是否清算？', '提示', 32 + 4) <> IDYES then
Exit;
topIndex := Tv1.Controller.TopRowIndex;
mainIDS := '';
Tv1.BeginUpdate;
Order_Main.DisableConstraints;
with Order_Main do
begin
First;
while not eof do
begin
if FieldByName('ssel').Value = true then
begin
mainIDS := mainIDS + ',' + FieldByName('mainId').AsString;
end;
Next;
end;
end;
try
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET SettleDate=getdate(),status = ''12'' ');
sql.Add('where mainID in (select rtvalue from F_Tool_SplitString(' + QuotedStr(mainIDS) + ', '','') ) ');
// ShowMessage(sql.text);
ExecSQL;
end;
end;
TBRafresh.Click;
Order_Main.EnableConstraints;
Tv1.EndUpdate;
Tv1.Controller.TopRowIndex := topIndex;
application.MessageBox('计划单清算成功！', '提示信息');
except
application.MessageBox('计划单清算失败！', '提示信息', 0);
end;
end;
procedure TfrmPlanProfit.ToolButton7Click(Sender: TObject);
var
topIndex: Integer;
mainIDS: string;
begin
if Order_Main.IsEmpty then
exit;
if not Order_Main.Locate('ssel', True, []) then
begin
ShowMessage('没有选择数据');
Exit;
end;
if Application.MessageBox('是否撤销清算？', '提示', 32 + 4) <> IDYES then
Exit;
mainIDS := '';
Tv1.BeginUpdate;
Order_Main.DisableConstraints;
with Order_Main do
begin
First;
while not eof do
begin
if FieldByName('ssel').Value = true then
begin
mainIDS := mainIDS + ',' + FieldByName('mainId').AsString;
end;
Next;
end;
end;
try
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET SettleDate=null,status = ''10'' ');
sql.Add('where mainID in (select rtvalue from F_Tool_SplitString(' + QuotedStr(mainIDS) + ', '','') ) ');
// ShowMessage(sql.text);
ExecSQL;
end;
end;
TBRafresh.Click;
Order_Main.EnableConstraints;
Tv1.endUpdate;
Tv1.Controller.TopRowIndex := topIndex;
application.MessageBox('计划单撤销清算成功！', '提示信息');
except
application.MessageBox('计划单撤销清算失败！', '提示信息', 0);
end;
end;
procedure TfrmPlanProfit.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
@ -916,28 +1063,32 @@ begin
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit;
try
with ADOQueryCmd do
with Order_Main do
begin
close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''10'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''10'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('exec P_Ord_Up_SuoLv @DataID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('exec P_Ord_Up_SuoLv @DataID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单完成')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('orderNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('计划单完成')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(Order_Main.FieldByName('orderNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('计划单完成成功！', '提示信息');
TBRafresh.Click;
end;
application.MessageBox('计划单完成成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('计划单完成失败！', '提示信息', 0);
end;
@ -1152,7 +1303,7 @@ begin
if SGetFilters(Panel1, 1, 2) <> '' then
wsql := ' and ';
wsql := wsql + ' (OrdDate >= ' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime)));
wsql := wsql + ' and OrdDate <= ' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime))) + ')';
wsql := wsql + ' and OrdDate <= ' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime))) + ')';
end;
if ADOQueryMain.Active then

2
T01贸易生产计划/U_PlanProfitDetails.dfm
View File

@ -509,6 +509,8 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails
Height = 194
Align = alLeft
TabOrder = 0
ExplicitLeft = -5
ExplicitTop = 6
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False

44
T01贸易生产计划/U_PlanProfitDetails.pas
View File

@ -228,11 +228,11 @@ begin
sql.Add(',WBSJRMB = ISNULL((select sum(cast(CWBSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),');
sql.Add('RMBSHJE = ISNULL((select sum(cast(CRMBSSJE as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),');
sql.Add('TSSJ = ISNULL((select sum(cast(CTSSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0)');
sql.Add(',CPKPJE = ISNULL((select sum(cast(CCPKPJE as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0)');
SQL.Add(',BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))');
SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo)));
sql.Add(' and FFType = ''应收款登记'' ');
sql.Add(' and FFType = ''应收款登记'' and isnull(status, ''0'') = ''9'' ');
// sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
//ShowMessage(sql.text);
Open;
@ -243,7 +243,7 @@ begin
begin
with CDS_HZ do
begin
for var i := 0 to 2 do
for var i := 0 to 3 do
begin
append;
if i = 0 then
@ -260,6 +260,11 @@ begin
begin
CDS_HZ.FieldByName('FFAbstract').Value := '退税收益';
CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('TSSJ').Value;
end
else if i = 3 then
begin
CDS_HZ.FieldByName('FFAbstract').Value := '成品开票金额';
CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('CPKPJE').Value;
end;
post;
end;
@ -292,7 +297,7 @@ begin
SQL.Add('BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))');
SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo)));
sql.Add(' and (FFType = ''应付款登记'' or FFType = ''其他应付款登记'' or FFType = ''手工费用登记'' ) ');
sql.Add(' and (FFType = ''应付款登记'' or FFType = ''其他应付款登记'' or FFType = ''手工费用登记'' ) and isnull(status, ''0'') = ''9''');
// sql.Add(' and ISNULL(A.FFTime,A.SQDate)>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
// sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
//ShowMessage(sql.text);
@ -440,13 +445,13 @@ begin
SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,');
SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,');
SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS TOOrdNo,');
SQL.Add(' CAST(ISNULL(Sum(');
SQL.Add(' iif(sum(A.Amount) is null,CAST(ISNULL(Sum(');
SQL.Add(' ISNULL(A.price, sub.price) * ');
SQL.Add(' ISNULL( CASE sub.QtyUnit');
SQL.Add(' WHEN ''M'' THEN A.Meter');
SQL.Add(' WHEN ''Kg'' THEN A.NetWeight ');
SQL.Add(' WHEN ''Y'' THEN A.Yardage');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)), sum(A.Amount)) AS zdamount');
SQL.Add('FROM Trade_Cloth_IO A ');
SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID ');
SQL.Add('CROSS APPLY (');
@ -499,23 +504,16 @@ begin
Filtered := False;
Close;
SQL.Clear;
sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice, B.OrdUnit, A.ZDTime');
if FUnit = 'M' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))')
end
else if FUnit = 'Y' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))')
end
else if FUnit = 'Kg' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkNetWeight))')
end;
sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice, D.qtyunit OrdUnit, A.ZDTime ');
sql.Add(', ZDAmount = case D.qtyunit when ''M'' then (ISNULL(A.ZDPrice,0)*SUM(StkMeter))');
sql.Add(' when ''Y'' then (ISNULL(A.ZDPrice,0)*SUM(StkYardage))');
sql.Add(' when ''Kg'' then (ISNULL(A.ZDPrice,0)*SUM(StkNetWeight)) end');
SQL.Add(',SUM(StkGrossWeight) GrossWeight,SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage');
SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID');
sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId where A.ZDMainID= ' + QuotedStr(Trim(FMainID)));
Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice, B.OrdUnit, A.ZDTime');
sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId');
sql.Add('left join (select DISTINCT QtyUnit,DRSID from Trade_Cloth_DR_Sub ) D on D.DRSID = A.DRSID');
sql.Add(' where A.ZDMainID= ' + QuotedStr(Trim(FMainID)));
Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice, D.qtyunit, A.ZDTime');
// ShowMessage(sql.text);
Open;
end;
@ -590,13 +588,13 @@ begin
SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,');
SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,');
SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS ToOrdNo,');
SQL.Add(' CAST(ISNULL(Sum(');
SQL.Add(' iif(sum(A.Amount) is null, CAST(ISNULL(Sum(');
SQL.Add(' ISNULL(A.price, sub.price) * ');
SQL.Add(' ISNULL( CASE sub.QtyUnit');
SQL.Add(' WHEN ''M'' THEN A.Meter');
SQL.Add(' WHEN ''Kg'' THEN A.NetWeight ');
SQL.Add(' WHEN ''Y'' THEN A.Yardage');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount');
SQL.Add(' END, 0)),0) AS DECIMAL(18,2)), sum(A.Amount)) AS zdamount');
SQL.Add('FROM Trade_Cloth_IO A ');
SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID ');
SQL.Add('CROSS APPLY (');

206
T01贸易生产计划/U_SalesRanking.dfm Normal file
View File

@ -0,0 +1,206 @@
inherited frmSalesRanking: TfrmSalesRanking
Left = 165
Top = 13
Caption = #29983#20135#35745#21010#21333#31649#29702
ClientHeight = 760
ClientWidth = 1540
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradePlan.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBClose: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object EdgeBrowser1: TEdgeBrowser [1]
Left = 0
Top = 38
Width = 1540
Height = 722
Align = alClient
TabOrder = 1
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 257
Top = 152
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 121
Top = 153
end
object cxgrdpmn1: TcxGridPopupMenu
PopupMenus = <>
Left = 606
Top = 316
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 593
Top = 243
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 396
Top = 160
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 320
Top = 224
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1265
Top = 443
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 542
Top = 243
end
object ADOQuerySub: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 312
Top = 600
end
object DataSource2: TDataSource
DataSet = ORDER_SUB
Left = 408
Top = 604
end
object ADOQueryImage: TADOQuery
Connection = DataLink_TradePlan.ADOLink
EnableBCD = False
Parameters = <>
Left = 316
Top = 283
end
object DSImage: TDataSource
DataSet = ADOQueryImage
Left = 416
Top = 288
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 92
Top = 258
end
object ORDER_SUB: TClientDataSet
Aggregates = <>
Params = <>
Left = 212
Top = 608
end
object PopupMenu2: TPopupMenu
Left = 532
Top = 636
object N3: TMenuItem
Caption = #20840#36873
end
object N4: TMenuItem
Caption = #20840#24323
end
object N2: TMenuItem
Caption = #22797#21046
end
end
object cxgrdpmn2: TcxGridPopupMenu
PopupMenus = <>
Left = 660
Top = 636
end
object CDS_WXTS: TClientDataSet
Aggregates = <>
Params = <>
Left = 412
Top = 424
end
object PM_1: TPopupMenu
Left = 548
Top = 297
object N1: TMenuItem
Caption = #22797#21046
end
end
object GPM_3: TcxGridPopupMenu
PopupMenus = <>
Left = 647
Top = 390
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 1096
Top = 347
end
object DataSource3: TDataSource
DataSet = CDS_3
Left = 1105
Top = 399
end
object ADOCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 955
Top = 300
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 551
Top = 380
end
object ADOQuery2: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 672
Top = 251
end
end

118
T01贸易生产计划/U_SalesRanking.pas Normal file
View File

@ -0,0 +1,118 @@
unit U_SalesRanking;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, Vcl.DBCtrls, dxSkinWXI,
dxScrollbarAnnotations, dxSkinBasic, 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, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, Vcl.OleCtrls, SHDocVw, WebView2, Winapi.ActiveX, Vcl.Edge;
type
TfrmSalesRanking = class(TfrmBaseList)
ToolBar1: TToolBar;
TBClose: TToolButton;
cxgrdpmn1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
IdFTP1: TIdFTP;
ORDER_SUB: TClientDataSet;
PopupMenu2: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
cxgrdpmn2: TcxGridPopupMenu;
CDS_WXTS: TClientDataSet;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
GPM_3: TcxGridPopupMenu;
CDS_3: TClientDataSet;
DataSource3: TDataSource;
ADOCmd: TADOQuery;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
EdgeBrowser1: TEdgeBrowser;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
DQdate: TDateTime;
FOrderNo, FCustName, FConNo, FBuyConNo, FC_Code, FC_Name, FHXYS, FCPMC, FKZPZ, FOrdQty, FOrdUnit: string;
FWidth, FGramWeight, FConPrice, FJGSY: string;
{ Private declarations }
public
FFInt, FCloth: Integer;
canshu1, canshu2: string;
fFlileFlag: string;
FNOTE: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_TradePlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TradeInspSet,
U_AttachmentUpload, U_ZDYHelpSel, U_TradeInspSet_YJ, U_ZDYHelp_P;
{$R *.dfm}
procedure TfrmSalesRanking.FormDestroy(Sender: TObject);
begin
inherited;
// frmProductOrderList:=nil;
end;
procedure TfrmSalesRanking.FormShow(Sender: TObject);
begin
inherited;
EdgeBrowser1.Navigate('http://www.rightsoft.top:8090/biaoqi/');
end;
procedure TfrmSalesRanking.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmSalesRanking.TBCloseClick(Sender: TObject);
begin
Close;
end;
end.

11
T01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -732,6 +732,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label49: TLabel
Left = 400
Top = 238
Width = 6
Height = 12
Caption = 'M'
end
object OrderNo: TEdit
Tag = 2
Left = 1046
@ -1182,6 +1189,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Width = 100
Height = 18
TabOrder = 42
Text = '1'
end
object HXYS: TEdit
Tag = 2
@ -1260,6 +1268,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Font.Style = []
ParentFont = False
TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 458
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
@ -1418,6 +1428,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Caption = #24320#21305
DataBinding.FieldName = 'KP'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCalcEditProperties'
HeaderAlignmentHorz = taCenter
end
object Tv1Column6: TcxGridDBColumn

20
T01贸易生产计划/U_TradePlanInPut.pas
View File

@ -31,7 +31,7 @@ uses
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
dxSkinXmas2008Blue, cxCalc;
type
TfrmTradePlanInPut = class(TfrmBaseInput)
@ -181,6 +181,7 @@ type
ADOQuery1: TADOQuery;
Label28: TLabel;
DBFS: TBtnEditC;
Label49: TLabel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -230,7 +231,7 @@ type
function getOrderNo(fconNo: string): string;
procedure InitImageHX();
procedure LookImage(FileName: string);
function CheckData():Boolean;
function CheckData(): Boolean;
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
@ -441,6 +442,9 @@ begin
Con_Width.ReadOnly := True;
Con_GramWeight.ReadOnly := True;
C_Composition.ReadOnly := True;
ConNo.Enabled := false;
C_Code.Enabled := false;
C_Name.Enabled := false;
end;
end;
@ -773,7 +777,9 @@ begin
end;
end;
function TfrmTradePlanInPut.CheckData():Boolean;
function TfrmTradePlanInPut.CheckData(): Boolean;
var
inputNum: Float64;
begin
Result := true;
if CDS_1.IsEmpty then
@ -848,6 +854,14 @@ begin
Result := false;
exit;
end;
if not TryStrToFloat(cpmc.Text, inputNum) then
begin
Application.MessageBox('成品米长请输入数字!', '提示', 0);
Result := false;
exit;
end;
end;
procedure TfrmTradePlanInPut.TBSaveClick(Sender: TObject);

13
T01贸易生产计划/U_TradePlanList.dfm
View File

@ -7,6 +7,7 @@ inherited frmTradePlanList: TfrmTradePlanList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -539
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
@ -116,12 +117,13 @@ inherited frmTradePlanList: TfrmTradePlanList
object ToolButton11: TToolButton
Left = 806
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton11Click
end
object ToolButton4: TToolButton
Left = 921
Left = 877
Top = 0
AutoSize = True
Caption = #38468#20214
@ -129,7 +131,7 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = ToolButton4Click
end
object TBTJ: TToolButton
Left = 992
Left = 948
Top = 0
AutoSize = True
Caption = #25552#20132
@ -635,8 +637,8 @@ inherited frmTradePlanList: TfrmTradePlanList
Width = 72
end
object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
Caption = #20854#20182#20107#39033
DataBinding.FieldName = 'QTNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -726,7 +728,7 @@ inherited frmTradePlanList: TfrmTradePlanList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 1
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#24453#25552#20132' '
' '#24453#23457#26680' '
@ -734,6 +736,7 @@ inherited frmTradePlanList: TfrmTradePlanList
' '#26242#23384#21306' '
' '#29983#20135#23436#25104' '
' '#24050#23436#25104' '
' '#24050#28165#31639
' '#20840#37096' ')
OnChange = cxTabControl1Change
ClientRectRight = 0

4
T01贸易生产计划/U_TradePlanList.pas
View File

@ -689,6 +689,10 @@ begin
begin
STRwhere := STRwhere + ' and isnull(A.status,''0'')=''10'' ';
end;
6:
begin
STRwhere := STRwhere + ' and isnull(A.status,''0'')=''12'' ';
end;
end;
try

889
T01贸易生产计划/U_TradePlanLoss.dfm Normal file
View File

@ -0,0 +1,889 @@
inherited frmTradePlanLoss: TfrmTradePlanLoss
Left = 274
Top = 193
Caption = #25439#32791#34920
ClientHeight = 624
ClientWidth = 1540
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -397
ExplicitWidth = 1556
ExplicitHeight = 663
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_TradePlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 126
Top = 0
Caption = #35746#21333#24635#32467#22791#27880
ImageIndex = 3
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 233
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
Visible = False
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 296
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
Visible = False
OnClick = ToolButton3Click
end
object ToolButton5: TToolButton
Left = 359
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 446
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 107
Width = 1540
Height = 517
Align = alClient
TabOrder = 1
ExplicitTop = 113
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = Tv1Column15
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column16
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column17
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column21
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column22
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column24
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column25
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column27
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column28
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column31
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column32
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column33
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column34
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column35
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column40
end
item
Kind = skSum
Position = spFooter
Column = Tv1Column42
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column15
end
item
Kind = skSum
Column = Tv1Column16
end
item
Kind = skSum
Column = Tv1Column17
end
item
Kind = skSum
Column = Tv1Column22
end
item
Kind = skSum
Column = Tv1Column21
end
item
Kind = skSum
Column = Tv1Column24
end
item
Kind = skSum
Column = Tv1Column25
end
item
Kind = skSum
Column = Tv1Column27
end
item
Kind = skSum
Column = Tv1Column28
end
item
Kind = skSum
Column = Tv1Column31
end
item
Kind = skSum
Column = Tv1Column32
end
item
Kind = skSum
Column = Tv1Column33
end
item
Kind = skSum
Column = Tv1Column34
end
item
Kind = skSum
Column = Tv1Column35
end
item
Kind = skSum
Column = Tv1Column40
end
item
Kind = skSum
Column = Tv1Column42
end>
DataController.Summary.SummaryGroups = <>
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column46: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
FixedKind = fkLeft
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv1Column3: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
FixedKind = fkLeft
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column1: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
FixedKind = fkLeft
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
FixedKind = fkLeft
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
FixedKind = fkLeft
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
FixedKind = fkLeft
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #29702#21333
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
FixedKind = fkLeft
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #21152#24037#20132#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #36229#24037#22825#25968
DataBinding.FieldName = 'CQTS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column10: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column12: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column13: TcxGridDBColumn
Caption = #22797#21333#21495
DataBinding.FieldName = 'FOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column15: TcxGridDBColumn
Caption = #19979#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column16: TcxGridDBColumn
Caption = #19979#21333#37325#37327
DataBinding.FieldName = 'Weight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column17: TcxGridDBColumn
Caption = #19979#21333#31859#25968
DataBinding.FieldName = 'Length'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column18: TcxGridDBColumn
Caption = #29983#20135#35201#32032
DataBinding.FieldName = 'MFKZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #36127#36131#20154
DataBinding.FieldName = 'FZR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column20: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column21: TcxGridDBColumn
Caption = #25237#22383#21305#25968
DataBinding.FieldName = 'TPPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column22: TcxGridDBColumn
Caption = #25237#22383#25968#37327
DataBinding.FieldName = 'TPQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column23: TcxGridDBColumn
Caption = #25237#22383#21333#20301
DataBinding.FieldName = 'TPUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column24: TcxGridDBColumn
Caption = #26579#25972#21305#25968
DataBinding.FieldName = 'RZPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column25: TcxGridDBColumn
Caption = #26579#25972#25968#37327
DataBinding.FieldName = 'RZQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column26: TcxGridDBColumn
Caption = #26579#25972#32553#29575#65288'%'#65289
DataBinding.FieldName = 'RZSL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column27: TcxGridDBColumn
Caption = #22238#20179#21305#25968
DataBinding.FieldName = 'HCPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column28: TcxGridDBColumn
Caption = #22238#20179#25968#37327
DataBinding.FieldName = 'HCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column29: TcxGridDBColumn
Caption = #22238#20179#21333#20301
DataBinding.FieldName = 'HCUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column30: TcxGridDBColumn
Caption = #29983#20135#25439#32791#65288'%'#65289
DataBinding.FieldName = 'SCSH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column31: TcxGridDBColumn
Caption = #24453#26816#21305#25968
DataBinding.FieldName = 'DJPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column32: TcxGridDBColumn
Caption = #24453#26816#25968#37327
DataBinding.FieldName = 'DJQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column48: TcxGridDBColumn
Caption = #24453#26816#21333#20301
DataBinding.FieldName = 'DJUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column33: TcxGridDBColumn
Caption = #26816#39564#21305#25968
DataBinding.FieldName = 'JYPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column34: TcxGridDBColumn
Caption = #26816#39564#20928#37325
DataBinding.FieldName = 'WeightSum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column35: TcxGridDBColumn
Caption = #26816#39564#31859#25968
DataBinding.FieldName = 'MeterSum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column47: TcxGridDBColumn
Caption = #26816#39564#25968#37327
DataBinding.FieldName = 'JYQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1Column36: TcxGridDBColumn
Caption = #26816#39564#25439#32791#65288'%'#65289
DataBinding.FieldName = 'JYSH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column37: TcxGridDBColumn
Caption = #25104#21697#31859#38271
DataBinding.FieldName = 'CPMC'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column38: TcxGridDBColumn
Caption = #23454#38469#31859#38271
DataBinding.FieldName = 'SJMC'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column39: TcxGridDBColumn
Caption = #31859#38271#20559#24046#29575#65288'%'#65289
DataBinding.FieldName = 'MCPCL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column40: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column41: TcxGridDBColumn
Caption = #35746#21333#21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column42: TcxGridDBColumn
Caption = #25104#21697#20837#24211#25968#37327
DataBinding.FieldName = 'CPRKSL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column43: TcxGridDBColumn
Caption = #20837#24211#20559#24046#25968
DataBinding.FieldName = 'RKPCS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column44: TcxGridDBColumn
Caption = #20837#24211#20559#24046#29575#65288'%'#65289
DataBinding.FieldName = 'RKPCL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column45: TcxGridDBColumn
Caption = #35746#21333#24635#32467#22791#27880
DataBinding.FieldName = 'LossNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panetime: TPanel [2]
Left = 694
Top = 268
Width = 185
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31561#24453'...'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
end
object Panel1: TPanel [3]
Left = 0
Top = 30
Width = 1540
Height = 59
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 3
object Label2: TLabel
Left = 22
Top = 10
Width = 48
Height = 12
Caption = #26597#35810#26085#26399
end
object Label6: TLabel
Left = 54
Top = 36
Width = 30
Height = 12
Caption = '-----'
end
object Label5: TLabel
Left = 188
Top = 10
Width = 24
Height = 12
Caption = #23458#25143
end
object Label7: TLabel
Left = 176
Top = 35
Width = 36
Height = 12
Caption = #35746#21333#21495
end
object Label8: TLabel
Left = 388
Top = 8
Width = 48
Height = 12
Caption = #23458#25143#21333#21495
end
object Label9: TLabel
Left = 384
Top = 34
Width = 48
Height = 12
Caption = #20135#21697#21517#31216
end
object Label1: TLabel
Left = 603
Top = 6
Width = 11
Height = 19
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 603
Top = 34
Width = 11
Height = 19
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object begdate: TDateTimePicker
Left = 72
Top = 6
Width = 97
Height = 20
Date = 41256.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.918237847232376200
TabOrder = 0
end
object Enddate: TDateTimePicker
Left = 73
Top = 32
Width = 97
Height = 20
Date = 41256.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.918237847232376200
TabOrder = 5
end
object CustName: TEdit
Tag = 2
Left = 218
Top = 6
Width = 135
Height = 20
TabOrder = 1
OnKeyPress = CustNameKeyPress
end
object OrderNo: TEdit
Tag = 2
Left = 219
Top = 32
Width = 135
Height = 20
TabOrder = 4
OnKeyPress = CustNameKeyPress
end
object BuyConNo: TEdit
Tag = 2
Left = 440
Top = 4
Width = 135
Height = 20
TabOrder = 2
OnKeyPress = CustNameKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 440
Top = 30
Width = 135
Height = 20
TabOrder = 3
OnKeyPress = CustNameKeyPress
end
end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 89
Width = 1540
Height = 18
Align = alTop
TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#24453#25552#20132' '
' '#24453#23457#26680' '
' '#24050#23457#26680' '
' '#26242#23384#21306' '
' '#29983#20135#23436#25104' '
' '#24050#23436#25104' '
' '#24050#28165#31639
' '#20840#37096' ')
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 177
Top = 216
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 57
Top = 217
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 789
Top = 1
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 829
Top = 1
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
CommandTimeout = 600
Parameters = <>
Left = 277
Top = 217
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 528
Top = 328
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 435
Top = 323
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 200
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBDataSet1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 224
Top = 424
ReportData = {}
end
object RMDBDataSet1: TRMDBDataSet
Visible = True
DataSet = CDS_1
Left = 136
Top = 428
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 308
Top = 428
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 716
Top = 4
end
object cxStyleRepository1: TcxStyleRepository
Left = 184
Top = 320
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlack
end
end
object PopupMenu1: TPopupMenu
Left = 720
Top = 416
object N1: TMenuItem
Caption = #22797#21046
OnClick = N1Click
end
end
end

433
T01贸易生产计划/U_TradePlanLoss.pas Normal file
View File

@ -0,0 +1,433 @@
unit U_TradePlanLoss;
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, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxPC, Vcl.Menus, Clipbrd, dxSkinWXI,
dxScrollbarAnnotations, cxContainer, cxProgressBar;
type
TfrmTradePlanLoss = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
ToolButton3: TToolButton;
RMGridReport1: TRMGridReport;
RMDBDataSet1: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
ADOQueryPrint: TADOQuery;
Panetime: TPanel;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
ToolButton5: TToolButton;
cxGrid1Level1: TcxGridLevel;
Tv1: TcxGridDBTableView;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
Tv1Column31: TcxGridDBColumn;
Tv1Column32: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn;
Tv1Column34: TcxGridDBColumn;
Tv1Column35: TcxGridDBColumn;
Tv1Column36: TcxGridDBColumn;
Tv1Column37: TcxGridDBColumn;
Tv1Column38: TcxGridDBColumn;
Tv1Column39: TcxGridDBColumn;
Tv1Column40: TcxGridDBColumn;
Tv1Column41: TcxGridDBColumn;
Tv1Column42: TcxGridDBColumn;
Tv1Column43: TcxGridDBColumn;
Tv1Column44: TcxGridDBColumn;
Tv1Column45: TcxGridDBColumn;
ToolButton4: TToolButton;
Tv1Column46: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
Panel1: TPanel;
Label2: TLabel;
Label6: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label1: TLabel;
Label11: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
CustName: TEdit;
OrderNo: TEdit;
BuyConNo: TEdit;
C_Name: TEdit;
cxTabControl1: TcxTabControl;
Tv1Column47: TcxGridDBColumn;
Tv1Column48: 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 P_OrderNo_YSK(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure CustNameKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton4Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
private
{ Private declarations }
procedure InitGrid();
public
{ Public declarations }
RKFlag, FCYID, FZKType, FBZType: string;
fType, Canshu2: string;
end;
var
frmTradePlanLoss: TfrmTradePlanLoss;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_TradePlanScheduleDetail;
{$R *.dfm}
procedure TfrmTradePlanLoss.InitGrid();
var
MCG, MDH, MTP, MFH, MLen, MWeight: Double;
STRwhere: string;
begin
screen.Cursor := crsqlwait;
Panetime.Visible := true;
Panetime.Left := (Width - Panetime.Width) div 2;
Panetime.top := (Height - Panetime.Height - 200) div 2;
application.ProcessMessages;
case cxTabControl1.TabIndex of
0:
begin
STRwhere := STRwhere + ' 0 ';
end;
1:
begin
STRwhere := STRwhere + ' 1 ';
end;
2:
begin
STRwhere := STRwhere + ' 9 ';
end;
3:
begin
STRwhere := STRwhere + ' 7 ';
end;
4:
begin
STRwhere := STRwhere + ' 11 ';
end;
5:
begin
STRwhere := STRwhere + ' 10 ';
end;
6:
begin
STRwhere := STRwhere + ' 12 ';
end;
end;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' exec P_Trade_Plan_loss ');
sql.Add(' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
sql.Add(' ,@status=' + QuotedStr(Trim(STRwhere)));
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
Panetime.Visible := false;
screen.Cursor := crdefault;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmTradePlanLoss.FormDestroy(Sender: TObject);
begin
inherited;
frmTradePlanLoss := nil;
end;
procedure TfrmTradePlanLoss.OrderNoChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmTradePlanLoss.CustNameKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key = #13 then
begin
Key := #0;
ToolButton2.Click;
end;
end;
procedure TfrmTradePlanLoss.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTradePlanLoss.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTradePlanLoss.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTradePlanLoss.FormShow(Sender: TObject);
begin
inherited;
readCxGrid(self.Caption + '3', Tv1, '损耗表查询');
canshu2 := self.fParameters2;
InitGrid();
end;
procedure TfrmTradePlanLoss.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
InitGrid();
end;
procedure TfrmTradePlanLoss.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmTradePlanLoss.P_OrderNo_YSK(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmTradePlanLoss.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid1);
end;
procedure TfrmTradePlanLoss.MPRTCodeNameChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmTradePlanLoss.N1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTradePlanLoss.FormCreate(Sender: TObject);
begin
inherited;
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := Enddate.DateTime - 60;
end;
procedure TfrmTradePlanLoss.ToolButton3Click(Sender: TObject);
var
filepath: string;
mBegdate, mEnddate: string;
begin
mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
if CDS_1.IsEmpty then
exit;
try
filepath := ExtractFilePath(Application.ExeName) + 'report\订单利润表.rmf';
if not FileExists(Pchar(filepath)) then
begin
application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
exit;
end;
RMGridReport1.LoadFromFile(filepath);
RMGridReport1.ShowReport;
finally
end;
end;
procedure TfrmTradePlanLoss.ToolButton4Click(Sender: TObject);
var
useInput: string;
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
useInput := CDS_1.FieldByName('LossNote').AsString;
if InputQuery('订单总结备注输入框', '请输入订单总结备注', useInput) then
begin
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while CDS_1.Locate('SSel', True, []) do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' update Trade_Plan_Main set LossNote=' + quotedstr(Trim(useInput)));
sql.Add(' where mainId= ' + quotedstr(CDS_1.FieldByName('mainId').asstring));
ExecSQL;
end;
with CDS_1 do
begin
Edit;
FieldByName('LossNote').Value := useInput;
FieldByName('SSel').Value := False;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end;
CDS_1.EnableControls;
end;
end;
procedure TfrmTradePlanLoss.ToolButton5Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + '3', Tv1, '损耗表查询');
end;
procedure TfrmTradePlanLoss.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
val1: string;
val2: string;
val3: string;
begin
inherited;
val1 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('SJMC').Index]);
val2 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('LossNote').Index]);
if not ((val1 = '') or (val1 = '0')) and (val2 = '') then
begin
if Abs(StrTofloat(val1)) > 5 then
ACanvas.Brush.Color := $4763FF;
end;
val3 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('RKPCL').Index]);
if not (val3 = '') and (val2 = '') then
begin
if Abs(StrTofloat(val3)) > 5 then
ACanvas.Brush.Color := $4763FF;
end;
end;
procedure TfrmTradePlanLoss.TV1DblClick(Sender: TObject);
begin
try
frmTradePlanScheduleDetail := TfrmTradePlanScheduleDetail.Create(Application);
with frmTradePlanScheduleDetail do
begin
FMainId := self.CDS_1.FieldByName('MainId').AsString;
FOrderNo := self.CDS_1.FieldByName('OrderNo').AsString;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmTradePlanScheduleDetail.Free;
end;
end;
end.

32
T01贸易生产计划/U_TradePlanSchedule.dfm
View File

@ -6,7 +6,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
ClientWidth = 1540
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -30
ExplicitLeft = -453
ExplicitWidth = 1556
ExplicitHeight = 663
PixelsPerInch = 96
@ -550,7 +550,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
Width = 90
Position.BandIndex = 0
Position.ColIndex = 19
Position.RowIndex = 0
@ -794,7 +794,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 40
Width = 58
Position.BandIndex = 0
Position.ColIndex = 4
Position.RowIndex = 0
@ -804,7 +804,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 35
Width = 34
Position.BandIndex = 0
Position.ColIndex = 14
Position.RowIndex = 0
@ -814,7 +814,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'FZR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 61
Width = 59
Position.BandIndex = 0
Position.ColIndex = 18
Position.RowIndex = 0
@ -824,7 +824,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 41
Width = 40
Position.BandIndex = 0
Position.ColIndex = 6
Position.RowIndex = 0
@ -834,7 +834,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'MFKZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 55
Width = 54
Position.BandIndex = 0
Position.ColIndex = 17
Position.RowIndex = 0
@ -854,7 +854,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 30
Width = 29
Position.BandIndex = 0
Position.ColIndex = 10
Position.RowIndex = 0
@ -864,7 +864,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 39
Width = 38
Position.BandIndex = 0
Position.ColIndex = 13
Position.RowIndex = 0
@ -874,7 +874,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 24
Width = 23
Position.BandIndex = 0
Position.ColIndex = 11
Position.RowIndex = 0
@ -905,7 +905,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Caption = #21152#24037#20132#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
Width = 37
Width = 36
Position.BandIndex = 0
Position.ColIndex = 7
Position.RowIndex = 0
@ -933,7 +933,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'FOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 36
Width = 35
Position.BandIndex = 0
Position.ColIndex = 12
Position.RowIndex = 0
@ -943,7 +943,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'CQTS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
Width = 48
Position.BandIndex = 0
Position.ColIndex = 8
Position.RowIndex = 0
@ -953,7 +953,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'Weight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
Width = 53
Position.BandIndex = 0
Position.ColIndex = 15
Position.RowIndex = 0
@ -963,7 +963,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'Length'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 56
Width = 54
Position.BandIndex = 0
Position.ColIndex = 16
Position.RowIndex = 0
@ -973,7 +973,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 46
Width = 45
Position.BandIndex = 0
Position.ColIndex = 5
Position.RowIndex = 0

33
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Breadcrumbs Normal file
View File

@ -0,0 +1,33 @@
0:00:00 Startup
0:00:00 Microsoft.DeleteProfileHelper.CleanUpEphemeralProfiles
0:00:00 Microsoft.DeleteProfileHelper.CleanUpDeletedProfiles
0:00:00 Microsoft.NewBrowser_Popup
0:00:00 Microsoft.BrowserList.AddBrowser
0:00:00 Browser1 Insert active Tab1 at 0
0:00:00 Tab1 StartNav1 #auto_toplevel
0:00:00 Tab1 StartNav2 #typed
0:00:00 Tab1 FinishNav1
0:00:00 Tab1 PageLoad
0:00:00 Tab1 FinishNav2
0:00:00 Tab1 PageLoad
0:00:06 Microsoft.Shutdown.OnWindowClosing
0:00:06 Microsoft.Shutdown.OnWindowClosing_MaybeClearBrowsingDataOnExit
0:00:06 Microsoft.Shutdown.OnWindowClosing_ClearBrowsingDataOnExitNotInProgress
0:00:06 Microsoft.Shutdown.OnWindowClosingPostClearBrowsingData_NoBrowsingDataCleared
0:00:06 Tab1 RenderProcessGone
0:00:06 Browser1 Close Tab1 at 0
0:00:06 Tab1 WebContentsDestroyed
0:00:06 Microsoft.Shutdown.OnWindowClosing
0:00:06 Microsoft.Shutdown.OnWindowClosingPostClearBrowsingData_NoBrowsingDataCleared
0:00:06 Widget Closed: BrowserFrame
0:00:06 Microsoft.Shutdown.OnWindowClosing
0:00:06 Microsoft.Shutdown.OnWindowClosingPostClearBrowsingData_NoBrowsingDataCleared
0:00:06 Microsoft.Last_Browser_Removed
0:00:06 Microsoft.Shutdown.ShutdownIfNoBrowsers
0:00:06 Microsoft.Shutdown.SetTryingToQuit_Quitting
0:00:06 Microsoft.Shutdown.NotifyAppTerminating
0:00:06 Microsoft.Shutdown.OnAppExiting
0:00:06 Microsoft.Shutdown.HandleAppExitingForPlatform_Aura
0:00:06 Microsoft.Shutdown.HandleAppExitingForPlatform_Aura.NotificationUIManager_StartShutdown
0:00:06 Microsoft.Shutdown.HandleAppExitingForPlatform_Aura.CloseAllSecondaryWidgets
0:00:13 Shutdown

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/BrowserMetrics/BrowserMetrics-69F02757-25FC.pma Normal file
View File

Binary file not shown.

0
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Crashpad/metadata Normal file
View File

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Crashpad/settings.dat Normal file
View File

Binary file not shown.

1
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Crashpad/throttle_store.dat Normal file
View File

@ -0,0 +1 @@
level=none expiry=0

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/CrashpadMetrics-active.pma Normal file
View File

Binary file not shown.

0
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/AutofillStrikeDatabase/LOCK Normal file
View File

0
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/AutofillStrikeDatabase/LOG Normal file
View File

0
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/BudgetDatabase/LOCK Normal file
View File

0
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/BudgetDatabase/LOG Normal file
View File

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Cache/Cache_Data/data_0 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Cache/Cache_Data/data_1 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Cache/Cache_Data/data_2 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Cache/Cache_Data/data_3 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Cache/Cache_Data/f_000001 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Cache/Cache_Data/f_000002 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Cache/Cache_Data/index Normal file
View File

Binary file not shown.

0
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/ClientCertificates/LOCK Normal file
View File

0
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/ClientCertificates/LOG Normal file
View File

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Code Cache/js/5bc8145afbd359b1_0 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Code Cache/js/index Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Code Cache/js/index-dir/the-real-index Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Code Cache/wasm/index Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/Code Cache/wasm/index-dir/the-real-index Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DIPS Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnGraphiteCache/data_0 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnGraphiteCache/data_1 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnGraphiteCache/data_2 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnGraphiteCache/data_3 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnGraphiteCache/index Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnWebGPUCache/data_0 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnWebGPUCache/data_1 Normal file
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.exe.WebView2/EBWebView/Default/DawnWebGPUCache/data_2 Normal file
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More