Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

3.09

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2026-03-09 12:49:21 +08:00
parent 361cc63c93
commit 0886812848
47 changed files with 3988 additions and 969 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
A00通用窗体/U_YarnPurchasePlanSel.pas
View File

@ -169,9 +169,9 @@ begin
// sql.Add(' ,WDHQty=B.Qty-(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) '); // sql.Add(' ,WDHQty=B.Qty-(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' ,YRKQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) '); sql.Add(' ,YRKQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' ,YRKPiece=(select sum(Piece) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) '); sql.Add(' ,YRKPiece=(select sum(Piece) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' ,FromOrdNo=(select OrderNo from Tat_Plan_Main X inner join Tat_Plan_Sub Y on X.MainID=Y.MainID where Y.ConNo=B.ConNo) '); // sql.Add(' ,FromOrdNo=(select OrderNo from Tat_Plan_Main X inner join Tat_Plan_Sub Y on X.MainID=Y.MainID where Y.ConNo=B.ConNo) ');
sql.Add(' ,FromMainId=(select MainID from Tat_Plan_Sub X where X.ConNo=B.ConNo) '); // sql.Add(' ,FromMainId=(select MainID from Tat_Plan_Sub X where X.ConNo=B.ConNo) ');
sql.Add(' ,FromSubId=(select OrderNo from Tat_Plan_Sub X where X.ConNo=B.ConNo) '); // sql.Add(' ,FromSubId=(select OrderNo from Tat_Plan_Sub X where X.ConNo=B.ConNo) ');
sql.Add(' from Pur_YarnPlan_Main A'); sql.Add(' from Pur_YarnPlan_Main A');
sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId'); sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId');
sql.Add(' where isnull(LX,'''') <> ''Ö¯Ôìµ¥'' and isnull(A.status,''0'')=''9'''); sql.Add(' where isnull(LX,'''') <> ''Ö¯Ôìµ¥'' and isnull(A.status,''0'')=''9''');
@ -202,7 +202,6 @@ end;
procedure TfrmYarnPurchasePlanSel.N1Click(Sender: TObject); procedure TfrmYarnPurchasePlanSel.N1Click(Sender: TObject);
begin begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmYarnPurchasePlanSel.N2Click(Sender: TObject); procedure TfrmYarnPurchasePlanSel.N2Click(Sender: TObject);

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

@ -26,9 +26,9 @@
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>

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

Binary file not shown.

11
A01基础公司管理/U_Company.dfm
View File

@ -30,6 +30,7 @@ inherited frmCompany: TfrmCompany
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
ExplicitTop = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -94,6 +95,7 @@ inherited frmCompany: TfrmCompany
Height = 542 Height = 542
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
ExplicitLeft = -8
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -141,6 +143,13 @@ inherited frmCompany: TfrmCompany
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 173 Width = 173
end end
object Tv1ShuiNo: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'ShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -157,6 +166,8 @@ inherited frmCompany: TfrmCompany
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 2 TabOrder = 2
ExplicitLeft = 8
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 315 Left = 315
Top = 8 Top = 8

1
A01基础公司管理/U_Company.pas
View File

@ -45,6 +45,7 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
CoName: TcxTextEdit; CoName: TcxTextEdit;
CoCode: TcxTextEdit; CoCode: TcxTextEdit;
Tv1ShuiNo: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

39
A01基础公司管理/U_CustomerInput.dfm
View File

@ -2,23 +2,23 @@ inherited frmCustomerInput: TfrmCustomerInput
Left = 261 Left = 261
Top = 149 Top = 149
Caption = #20844#21496#24405#20837 Caption = #20844#21496#24405#20837
ClientHeight = 286 ClientHeight = 329
ClientWidth = 599 ClientWidth = 687
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 615 ExplicitWidth = 703
ExplicitHeight = 325 ExplicitHeight = 368
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 599 Width = 687
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -31,6 +31,7 @@ inherited frmCustomerInput: TfrmCustomerInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 599
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -51,8 +52,8 @@ inherited frmCustomerInput: TfrmCustomerInput
object ScrollBox1: TScrollBox [1] object ScrollBox1: TScrollBox [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 599 Width = 687
Height = 256 Height = 299
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -62,6 +63,8 @@ inherited frmCustomerInput: TfrmCustomerInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitWidth = 730
ExplicitHeight = 291
object Label2: TLabel object Label2: TLabel
Left = 15 Left = 15
Top = 12 Top = 12
@ -78,14 +81,14 @@ inherited frmCustomerInput: TfrmCustomerInput
end end
object Label39: TLabel object Label39: TLabel
Left = 15 Left = 15
Top = 84 Top = 123
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22320#22336 Caption = #22320#22336
end end
object Label7: TLabel object Label7: TLabel
Left = 15 Left = 15
Top = 128 Top = 167
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
@ -97,6 +100,13 @@ inherited frmCustomerInput: TfrmCustomerInput
Height = 21 Height = 21
Caption = #31616#31216 Caption = #31616#31216
end end
object Label1: TLabel
Left = 15
Top = 83
Width = 32
Height = 21
Caption = #31246#21495
end
object CoName: TcxTextEdit object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 53 Left = 53
@ -114,7 +124,7 @@ inherited frmCustomerInput: TfrmCustomerInput
object CoAddress: TcxTextEdit object CoAddress: TcxTextEdit
Tag = 2 Tag = 2
Left = 53 Left = 53
Top = 81 Top = 120
TabOrder = 2 TabOrder = 2
Width = 504 Width = 504
end end
@ -128,11 +138,18 @@ inherited frmCustomerInput: TfrmCustomerInput
object CoNote: TcxMemo object CoNote: TcxMemo
Tag = 2 Tag = 2
Left = 53 Left = 53
Top = 128 Top = 167
TabOrder = 4 TabOrder = 4
Height = 77 Height = 77
Width = 504 Width = 504
end end
object ShuiNo: TcxTextEdit
Tag = 2
Left = 53
Top = 80
TabOrder = 5
Width = 504
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink

4
A01基础公司管理/U_CustomerInput.pas
View File

@ -16,7 +16,7 @@ uses
cxNavigator, dxDateRanges, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxImage, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxImage,
cxDBEdit, IdExplicitTLSClientServerBase, cxMemo, U_BaseInput, System.ImageList, cxDBEdit, IdExplicitTLSClientServerBase, cxMemo, U_BaseInput, System.ImageList,
Vcl.ImgList, cxImageList; Vcl.ImgList, cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
type type
TfrmCustomerInput = class(TfrmBaseInput) TfrmCustomerInput = class(TfrmBaseInput)
@ -37,6 +37,8 @@ type
CoAbbrName: TcxTextEdit; CoAbbrName: TcxTextEdit;
Label3: TLabel; Label3: TLabel;
CoNote: TcxMemo; CoNote: TcxMemo;
Label1: TLabel;
ShuiNo: TcxTextEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

25
A01基础公司管理/U_FactoryInput.dfm
View File

@ -86,7 +86,7 @@ inherited frmFactoryInput: TfrmFactoryInput
end end
object Label7: TLabel object Label7: TLabel
Left = 39 Left = 39
Top = 273 Top = 302
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
@ -161,6 +161,20 @@ inherited frmFactoryInput: TfrmFactoryInput
Height = 21 Height = 21
Caption = #31246#29575 Caption = #31246#29575
end end
object Label13: TLabel
Left = 39
Top = 268
Width = 32
Height = 21
Caption = #36134#26399
end
object Label14: TLabel
Left = 199
Top = 268
Width = 16
Height = 21
Caption = #22825
end
object CoName: TcxTextEdit object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 94 Left = 94
@ -185,7 +199,7 @@ inherited frmFactoryInput: TfrmFactoryInput
object CoNote: TcxMemo object CoNote: TcxMemo
Tag = 2 Tag = 2
Left = 94 Left = 94
Top = 273 Top = 302
TabOrder = 3 TabOrder = 3
Height = 77 Height = 77
Width = 761 Width = 761
@ -273,6 +287,13 @@ inherited frmFactoryInput: TfrmFactoryInput
TabOrder = 12 TabOrder = 12
Width = 340 Width = 340
end end
object BillCycle: TcxTextEdit
Tag = 2
Left = 94
Top = 262
TabOrder = 13
Width = 99
end
end end
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0

13
A01基础公司管理/U_FactoryInput.pas
View File

@ -69,6 +69,9 @@ type
ShuiNo: TcxTextEdit; ShuiNo: TcxTextEdit;
Label12: TLabel; Label12: TLabel;
ShuiLv: TcxTextEdit; ShuiLv: TcxTextEdit;
Label13: TLabel;
BillCycle: TcxTextEdit;
Label14: TLabel;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -406,11 +409,11 @@ end;
procedure TfrmFactoryInput.ToolButton3Click(Sender: TObject); procedure TfrmFactoryInput.ToolButton3Click(Sender: TObject);
begin begin
if Trim(CoAbbrName.Text) = '' then // if Trim(CoAbbrName.Text) = '' then
begin // begin
Application.MessageBox('简称不能为空!', '提示', 0); // Application.MessageBox('简称不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
if Trim(CoName.Text) = '' then if Trim(CoName.Text) = '' then
begin begin
Application.MessageBox('名称不能为空!', '提示', 0); Application.MessageBox('名称不能为空!', '提示', 0);

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

@ -1,62 +1,62 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</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.422,=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.734,=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.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</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.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<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.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction> <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.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.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.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.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.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2026/02/04 15:48:47.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction> <Transaction>2026-02-04 15:48:47.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>2026/02/05 12:06:10.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction> <Transaction>2026-02-05 12:06:10.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

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

Binary file not shown.

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

@ -1,9 +1,9 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>2025-03-01 00:29:55.986,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\ProjectGroup1.groupproj=C:\Users\Administrator\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj</Transaction> <Transaction>1899/12/30 00:00:00.000.986,C:\Users\Administrator\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\ProjectGroup1.groupproj</Transaction>
</Transactions> </Transactions>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\Financial.dproj"/> <Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\Financial.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

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

@ -3,11 +3,11 @@ inherited frmCollectList: TfrmCollectList
Top = 101 Top = 101
Caption = #25910#27454#31649#29702 Caption = #25910#27454#31649#29702
ClientHeight = 590 ClientHeight = 590
ClientWidth = 1625 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1641 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -15,7 +15,7 @@ inherited frmCollectList: TfrmCollectList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1625 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -136,7 +136,7 @@ inherited frmCollectList: TfrmCollectList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1625 Width = 1540
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -266,7 +266,7 @@ inherited frmCollectList: TfrmCollectList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 128 Top = 128
Width = 1625 Width = 1540
Height = 462 Height = 462
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -358,7 +358,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 84
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143 Caption = #25105#26041#36134#25143
@ -366,7 +366,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 92
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #23545#26041#36134#25143 Caption = #23545#26041#36134#25143
@ -374,7 +374,7 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 96
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335 Caption = #20184#27454#26041#24335
@ -463,7 +463,7 @@ inherited frmCollectList: TfrmCollectList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1625 Width = 1540
Height = 33 Height = 33
Align = alTop Align = alTop
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -482,7 +482,7 @@ inherited frmCollectList: TfrmCollectList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 36 ClientRectBottom = 36
ClientRectRight = 1625 ClientRectRight = 1540
ClientRectTop = 36 ClientRectTop = 36
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar

228
A09财务通用管理/U_ExpenseInput.dfm
View File

@ -34,7 +34,6 @@ object frmExpenseInput: TfrmExpenseInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,41 +65,41 @@ object frmExpenseInput: TfrmExpenseInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 44 OnClick = ScrollBox1Click
object Label7: TLabel object Label7: TLabel
Left = 78 Left = 78
Top = 323 Top = 404
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20132#26131#38468#35328 Caption = #20132#26131#38468#35328
end end
object Label1: TLabel object Label1: TLabel
Left = 84 Left = 440
Top = 86 Top = 36
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #25253#38144#31867#22411 Caption = #25253#38144#31867#22411
end end
object Label2: TLabel object Label2: TLabel
Left = 440 Left = 440
Top = 140 Top = 193
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31246#21495 Caption = #31246#21495
end end
object Label3: TLabel object Label3: TLabel
Left = 84 Left = 84
Top = 195 Top = 246
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #25910#27454#38134#34892#21517#31216 Caption = #25910#27454#38134#34892#21517#31216
end end
object Label5: TLabel object Label5: TLabel
Left = 84 Left = 84
Top = 249 Top = 299
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #25910#27454#38134#34892#36134#25143 Caption = #25910#27454#38134#34892#36134#21495
end end
object Label6: TLabel object Label6: TLabel
Left = 440 Left = 440
@ -111,21 +110,21 @@ object frmExpenseInput: TfrmExpenseInput
end end
object Label8: TLabel object Label8: TLabel
Left = 84 Left = 84
Top = 140 Top = 194
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #21333#20301#21517#31216 Caption = #21333#20301#21517#31216
end end
object Label10: TLabel object Label10: TLabel
Left = 440 Left = 440
Top = 195 Top = 248
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20184#27454#38134#34892 Caption = #20184#27454#38134#34892
end end
object Label12: TLabel object Label12: TLabel
Left = 440 Left = 440
Top = 249 Top = 302
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20184#27454#36134#21495 Caption = #20184#27454#36134#21495
@ -138,16 +137,37 @@ object frmExpenseInput: TfrmExpenseInput
Caption = #30003#35831#21333#21495 Caption = #30003#35831#21333#21495
end end
object Label9: TLabel object Label9: TLabel
Left = 440 Left = 84
Top = 36 Top = 141
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #29992#36884 Caption = #29992#36884
end end
object Label11: TLabel
Left = 84
Top = 89
Width = 64
Height = 21
Caption = #20184#27454#26041#24335
end
object Label13: TLabel
Left = 84
Top = 351
Width = 64
Height = 21
Caption = #20184#27454#26085#26399
end
object Label14: TLabel
Left = 440
Top = 351
Width = 96
Height = 21
Caption = #38134#34892#27700#21333#32534#30721
end
object FinanceNote: TMemo object FinanceNote: TMemo
Tag = 2 Tag = 2
Left = 168 Left = 168
Top = 303 Top = 388
Width = 681 Width = 681
Height = 57 Height = 57
ScrollBars = ssVertical ScrollBars = ssVertical
@ -155,8 +175,8 @@ object frmExpenseInput: TfrmExpenseInput
end end
object ReimburseType: TcxButtonEdit object ReimburseType: TcxButtonEdit
Tag = 2 Tag = 2
Left = 200 Left = 541
Top = 83 Top = 35
Hint = 'ReimburseType/'#25253#38144#31867#22411 Hint = 'ReimburseType/'#25253#38144#31867#22411
Properties.Buttons = < Properties.Buttons = <
item item
@ -169,8 +189,8 @@ object frmExpenseInput: TfrmExpenseInput
end end
object Currency: TcxComboBox object Currency: TcxComboBox
Tag = 2 Tag = 2
Left = 718 Left = 747
Top = 83 Top = 86
Properties.Items.Strings = ( Properties.Items.Strings = (
'CNY' 'CNY'
'USD' 'USD'
@ -181,43 +201,38 @@ object frmExpenseInput: TfrmExpenseInput
end end
object TaxNumber: TcxTextEdit object TaxNumber: TcxTextEdit
Tag = 2 Tag = 2
Left = 512 Left = 541
Top = 137 Top = 189
Properties.OnChange = TaxNumberPropertiesChange
TabOrder = 3 TabOrder = 3
Width = 200 Width = 200
end end
object OppBankCardNo: TcxTextEdit object OppBankCardNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 200 Left = 200
Top = 246 Top = 292
TabOrder = 4 TabOrder = 4
Width = 200 Width = 200
end end
object Amount: TcxTextEdit object Amount: TcxTextEdit
Tag = 2 Tag = 2
Left = 512 Left = 541
Top = 83 Top = 83
Properties.OnEditValueChanged = AmountPropertiesEditValueChanged
TabOrder = 5 TabOrder = 5
Width = 200 Width = 200
end end
object OppCoName: TcxTextEdit
Tag = 2
Left = 200
Top = 137
TabOrder = 6
Width = 200
end
object OurBankCardNo: TcxTextEdit object OurBankCardNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 512 Left = 541
Top = 246 Top = 292
TabOrder = 7 TabOrder = 6
Width = 200 Width = 200
end end
object OurBankName: TcxButtonEdit object OurBankName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 512 Left = 541
Top = 192 Top = 240
Hint = 'OurBankName/'#20184#27454#38134#34892 Hint = 'OurBankName/'#20184#27454#38134#34892
Properties.Buttons = < Properties.Buttons = <
item item
@ -225,13 +240,13 @@ object frmExpenseInput: TfrmExpenseInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = OurBankNamePropertiesButtonClick Properties.OnButtonClick = OurBankNamePropertiesButtonClick
TabOrder = 8 TabOrder = 7
Width = 200 Width = 200
end end
object OppBankName: TcxButtonEdit object OppBankName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 200 Left = 200
Top = 192 Top = 240
Hint = 'OppBankName/'#25910#27454#38134#34892#21517#31216 Hint = 'OppBankName/'#25910#27454#38134#34892#21517#31216
Properties.Buttons = < Properties.Buttons = <
item item
@ -239,25 +254,129 @@ object frmExpenseInput: TfrmExpenseInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = OppBankNamePropertiesButtonClick Properties.OnButtonClick = OppBankNamePropertiesButtonClick
TabOrder = 9 TabOrder = 8
Width = 200 Width = 200
end end
object FFID: TcxTextEdit object FFID: TcxTextEdit
Tag = 2 Tag = 2
Left = 200 Left = 200
Top = 33 Top = 35
Properties.ReadOnly = True Properties.ReadOnly = True
TabOrder = 10 TabOrder = 9
Width = 200 Width = 200
end end
object Use: TcxTextEdit object Use: TcxTextEdit
Tag = 2 Tag = 2
Left = 512 Left = 200
Top = 33 Top = 138
Properties.ReadOnly = False Properties.ReadOnly = False
TabOrder = 10
Width = 541
end
object OppCoName: TcxButtonEdit
Tag = 2
Left = 200
Top = 189
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = OppCoNamePropertiesButtonClick
TabOrder = 11 TabOrder = 11
Width = 200 Width = 200
end end
object PayMent: TcxButtonEdit
Tag = 2
Left = 200
Top = 86
Hint = 'PayMent/'#20184#27454#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = PayMentPropertiesButtonClick
TabOrder = 12
Width = 200
end
object PayTime: TcxDateEdit
Tag = 2
Left = 200
Top = 343
TabOrder = 13
Width = 200
end
object BankSlipNumber: TcxTextEdit
Tag = 2
Left = 541
Top = 343
TabOrder = 14
Width = 200
end
object Panel1: TPanel
Left = 542
Top = 224
Width = 428
Height = 201
TabOrder = 15
Visible = False
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 426
Height = 199
Align = alClient
TabOrder = 0
ExplicitLeft = 0
ExplicitTop = 0
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object Tv1CoName: TcxGridDBColumn
Caption = #21333#20301#21517#31216
DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1BankName: TcxGridDBColumn
Caption = #25910#27454#38134#34892#21517#31216
DataBinding.FieldName = 'BankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 130
end
object Tv1BankNo: TcxGridDBColumn
Caption = #25910#27454#38134#34892#36134#21495
DataBinding.FieldName = 'BankNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 127
end
object Tv1ShuiNo: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'ShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
@ -279,4 +398,29 @@ object frmExpenseInput: TfrmExpenseInput
Left = 853 Left = 853
Top = 49 Top = 49
end end
object DS_1: TDataSource
DataSet = CDS_1
Left = 640
Top = 24
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 728
Top = 30
end
object PM_1: TPopupMenu
Left = 590
Top = 398
object N1: TMenuItem
Caption = #22797#21046
OnClick = N1Click
end
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 662
Top = 398
end
end end

221
A09财务通用管理/U_ExpenseInput.pas
View File

@ -13,9 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinsCore, cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters, dxCore, cxDateUtils,
dxSkinsDefaultPainters; dxScrollbarAnnotations, Vcl.Menus,Clipbrd;
type type
TfrmExpenseInput = class(TForm) TfrmExpenseInput = class(TForm)
@ -38,7 +38,6 @@ type
Label5: TLabel; Label5: TLabel;
Amount: TcxTextEdit; Amount: TcxTextEdit;
Label6: TLabel; Label6: TLabel;
OppCoName: TcxTextEdit;
Label8: TLabel; Label8: TLabel;
Label10: TLabel; Label10: TLabel;
OurBankCardNo: TcxTextEdit; OurBankCardNo: TcxTextEdit;
@ -49,6 +48,26 @@ type
FFID: TcxTextEdit; FFID: TcxTextEdit;
Label9: TLabel; Label9: TLabel;
Use: TcxTextEdit; Use: TcxTextEdit;
OppCoName: TcxButtonEdit;
Label11: TLabel;
PayMent: TcxButtonEdit;
PayTime: TcxDateEdit;
Label13: TLabel;
Label14: TLabel;
BankSlipNumber: TcxTextEdit;
Panel1: TPanel;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
DS_1: TDataSource;
CDS_1: TClientDataSet;
Tv1CoName: TcxGridDBColumn;
Tv1BankName: TcxGridDBColumn;
Tv1BankNo: TcxGridDBColumn;
Tv1ShuiNo: TcxGridDBColumn;
PM_1: TPopupMenu;
GPM_1: TcxGridPopupMenu;
N1: TMenuItem;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -58,16 +77,21 @@ type
procedure PayMentBtnDnClick(Sender: TObject); procedure PayMentBtnDnClick(Sender: TObject);
procedure PayMentBtnUpClick(Sender: TObject); procedure PayMentBtnUpClick(Sender: TObject);
procedure OppCoNameBtnUpClick(Sender: TObject); procedure OppCoNameBtnUpClick(Sender: TObject);
procedure ReimburseTypePropertiesButtonClick(Sender: TObject; procedure ReimburseTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); procedure OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OurBankNamePropertiesButtonClick(Sender: TObject; procedure OppBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); procedure OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OppBankNamePropertiesButtonClick(Sender: TObject; procedure PayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); procedure AmountPropertiesEditValueChanged(Sender: TObject);
procedure TaxNumberPropertiesChange(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
function SaveData(): Boolean; function SaveData(): Boolean;
procedure InitGrid2();
public public
{ Public declarations } { Public declarations }
@ -113,10 +137,35 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.InitGrid2();
begin
try
ADOQueryCmd.DisableControls;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select A.* from BS_Company A where 1=1 ');
sql.Add(' and A.CoType=''供应商'' ');
SQL.Add(' and ShuiNo like ''%' + TaxNumber.Text + '%'' ');
Open;
end;
procedure TfrmExpenseInput.OppBankNamePropertiesButtonClick(Sender: TObject; SCreateCDS(ADOQueryCmd, CDS_1);
AButtonIndex: Integer); SInitCDSData(ADOQueryCmd, CDS_1);
finally
ADOQueryCmd.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmExpenseInput.N1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmExpenseInput.OppBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var var
fsj: string; fsj: string;
FWZ: Integer; FWZ: Integer;
@ -160,8 +209,30 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.OurBankNamePropertiesButtonClick(Sender: TObject; procedure TfrmExpenseInput.OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
TaxNumber.Text := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
OppBankCardNo.Text := Trim(CDS_1.fieldbyname('BankNo').AsString);
end;
end;
Panel1.Visible := False;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmExpenseInput.OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var var
fsj: string; fsj: string;
FWZ: Integer; FWZ: Integer;
@ -221,8 +292,7 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.ReimburseTypePropertiesButtonClick(Sender: TObject; procedure TfrmExpenseInput.PayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
var var
fsj: string; fsj: string;
FWZ: Integer; FWZ: Integer;
@ -246,7 +316,102 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.ReimburseTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
//procedure TfrmExpenseInput.AmountPropertiesEditValueChanged(Sender: TObject);
//var
// n: Double;
// CleanText: string;
//begin
// // 移除千分位逗号
// CleanText := StringReplace(Amount.Text, ',', '', [rfReplaceAll]);
//
// if TryStrToFloat(CleanText, n) then
// begin
// // 格式化显示，但避免重复触发事件
// Amount.Properties.OnEditValueChanged := nil; // 暂时禁用事件
// try
// Amount.Text := FormatFloat('#,##0', n);
// finally
// Amount.Properties.OnEditValueChanged := AmountPropertiesEditValueChanged;
// end;
// end;
//end;
procedure TfrmExpenseInput.AmountPropertiesEditValueChanged(Sender: TObject);
var
n: Double;
CleanText: string;
DecimalPos: Integer;
DecimalDigits: Integer;
FormatStr: string;
CaretPos: Integer;
TextBeforeCaret: string;
begin
// 记住光标位置和光标前的文本
CaretPos := Amount.SelStart;
TextBeforeCaret := Copy(Amount.Text, 1, CaretPos);
// 移除千分位逗号
CleanText := StringReplace(Amount.Text, ',', '', [rfReplaceAll]);
if TryStrToFloat(CleanText, n) then
begin
Amount.Properties.OnEditValueChanged := nil;
try
// 检测用户输入的小数位数
DecimalPos := Pos('.', CleanText);
if DecimalPos > 0 then
DecimalDigits := Length(CleanText) - DecimalPos
else
DecimalDigits := 0;
// 动态生成格式化字符串
if DecimalDigits = 0 then
FormatStr := '#,##0'
else
FormatStr := '#,##0.' + StringOfChar('0', DecimalDigits);
// 应用格式化
Amount.Text := FormatFloat(FormatStr, n);
// 智能恢复光标位置
if CaretPos > 0 then
begin
// 计算添加逗号后的光标位置偏移
CaretPos := Length(TextBeforeCaret) +
(StringReplace(Copy(Amount.Text, 1, Length(TextBeforeCaret)), ',', '', [rfReplaceAll])
.Length - TextBeforeCaret.Length);
if CaretPos <= Length(Amount.Text) then
Amount.SelStart := CaretPos;
end;
finally
Amount.Properties.OnEditValueChanged := AmountPropertiesEditValueChanged;
end;
end;
end;
procedure TfrmExpenseInput.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmExpenseInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -254,6 +419,12 @@ begin
Action := caFree; Action := caFree;
end; end;
procedure TfrmExpenseInput.TaxNumberPropertiesChange(Sender: TObject);
begin
InitGrid2();
Panel1.Visible := True;
end;
procedure TfrmExpenseInput.TBCloseClick(Sender: TObject); procedure TfrmExpenseInput.TBCloseClick(Sender: TObject);
begin begin
@ -263,6 +434,7 @@ end;
procedure TfrmExpenseInput.FormShow(Sender: TObject); procedure TfrmExpenseInput.FormShow(Sender: TObject);
begin begin
InitGrid(); InitGrid();
Panel1.Visible := False;
end; end;
procedure TfrmExpenseInput.TBRafreshClick(Sender: TObject); procedure TfrmExpenseInput.TBRafreshClick(Sender: TObject);
@ -322,6 +494,7 @@ begin
// FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); // FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
// FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode); // FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode);
// FieldByName('FFID').Value := Trim(MaxId); // FieldByName('FFID').Value := Trim(MaxId);
FieldByName('OppCoNo').Value := OppCoName.Properties.LookupItems.Text;
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2);
Post; Post;
end; end;
@ -336,6 +509,11 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.ScrollBox1Click(Sender: TObject);
begin
Panel1.Visible := False;
end;
procedure TfrmExpenseInput.ToolButton3Click(Sender: TObject); procedure TfrmExpenseInput.ToolButton3Click(Sender: TObject);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
@ -357,5 +535,16 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.Tv1DblClick(Sender: TObject);
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
TaxNumber.Text := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
OppBankCardNo.Text := Trim(CDS_1.fieldbyname('BankNo').AsString);
Panel1.Visible := false;
end;
end. end.

121
A09财务通用管理/U_ExpenseList.dfm
View File

@ -19,7 +19,7 @@ inherited frmExpenseList: TfrmExpenseList
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 108
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_Financial.ImageList_new32 DisabledImages = DataLink_Financial.ImageList_new32
@ -64,20 +64,36 @@ inherited frmExpenseList: TfrmExpenseList
Left = 284 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680'1'
ImageIndex = 12 ImageIndex = 12
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 355 Left = 364
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680'1'
ImageIndex = 11 ImageIndex = 11
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object btnChk2: TToolButton
Left = 476
Top = 0
AutoSize = True
Caption = #23457#26680'2'
ImageIndex = 12
OnClick = btnChk2Click
end
object btnReChk2: TToolButton
Left = 556
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680'2'
ImageIndex = 11
OnClick = btnReChk2Click
end
object TbnPay: TToolButton object TbnPay: TToolButton
Left = 458 Left = 668
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20184#27454 Caption = #20184#27454
@ -85,7 +101,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbnPayClick OnClick = TbnPayClick
end end
object TbnRePay: TToolButton object TbnRePay: TToolButton
Left = 529 Left = 739
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#20184#27454 Caption = #25764#38144#20184#27454
@ -93,7 +109,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbnRePayClick OnClick = TbnRePayClick
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 632 Left = 842
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214#19978#20256 Caption = #38468#20214#19978#20256
@ -101,7 +117,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 735 Left = 945
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -109,7 +125,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TbPrint: TToolButton object TbPrint: TToolButton
Left = 806 Left = 1016
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -117,7 +133,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbPrintClick OnClick = TbPrintClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 877 Left = 1087
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -125,7 +141,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 980 Left = 1190
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -144,6 +160,7 @@ inherited frmExpenseList: TfrmExpenseList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 218 Left = 218
Top = 6 Top = 6
@ -271,6 +288,7 @@ inherited frmExpenseList: TfrmExpenseList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 130
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -326,6 +344,13 @@ inherited frmExpenseList: TfrmExpenseList
Options.Editing = False Options.Editing = False
Width = 101 Width = 101
end end
object Tv1FFID: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'FFID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1ReimburseType: TcxGridDBColumn object Tv1ReimburseType: TcxGridDBColumn
Caption = #25253#38144#31867#22411 Caption = #25253#38144#31867#22411
DataBinding.FieldName = 'ReimburseType' DataBinding.FieldName = 'ReimburseType'
@ -341,6 +366,28 @@ inherited frmExpenseList: TfrmExpenseList
Options.Editing = False Options.Editing = False
Width = 91 Width = 91
end end
object Tv1PayMent: TcxGridDBColumn
Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Use: TcxGridDBColumn
Caption = #29992#36884
DataBinding.FieldName = 'Use'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Amount: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1Currency: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
@ -354,13 +401,13 @@ inherited frmExpenseList: TfrmExpenseList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object Tv1Amount: TcxGridDBColumn object v2FactoryName: TcxGridDBColumn
Caption = #37329#39069 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 90 Width = 95
end end
object Tv1TaxNumber: TcxGridDBColumn object Tv1TaxNumber: TcxGridDBColumn
Caption = #31246#21495 Caption = #31246#21495
@ -369,14 +416,6 @@ inherited frmExpenseList: TfrmExpenseList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object v2FactoryName: TcxGridDBColumn
Caption = #21333#20301#21517#31216
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object Tv1OppBankName: TcxGridDBColumn object Tv1OppBankName: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #25910#27454#38134#34892#21517#31216 Caption = #25910#27454#38134#34892#21517#31216
@ -387,7 +426,7 @@ inherited frmExpenseList: TfrmExpenseList
Width = 118 Width = 118
end end
object Tv1OppBankCardNo: TcxGridDBColumn object Tv1OppBankCardNo: TcxGridDBColumn
Caption = #25910#27454#38134#34892#36134#25143 Caption = #25910#27454#38134#34892#36134#21495
DataBinding.FieldName = 'OppBankCardNo' DataBinding.FieldName = 'OppBankCardNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -452,13 +491,35 @@ inherited frmExpenseList: TfrmExpenseList
Options.Editing = False Options.Editing = False
Width = 94 Width = 94
end end
object Tv1Column5: TcxGridDBColumn object Tv1PayTime: TcxGridDBColumn
Caption = #20184#27454#26085#26399 Caption = #20184#27454#26085#26399
DataBinding.FieldName = 'PayTime' DataBinding.FieldName = 'PayTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
end end
object Tv1BankSlipNumber: TcxGridDBColumn
Caption = #38134#34892#27700#21333#32534#30721
DataBinding.FieldName = 'BankSlipNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 120
end
object Tv1Filler: TcxGridDBColumn
Caption = #30003#35831#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FJFlag: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -476,11 +537,13 @@ inherited frmExpenseList: TfrmExpenseList
Properties.TabIndex = 0 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23457#26680 #26410#23457#26680
#24050#23457#26680 #24050#23457#26680'1'
#24050#23457#26680'2'
#24050#20184#27454 #24050#20184#27454
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 94
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
@ -489,8 +552,10 @@ inherited frmExpenseList: TfrmExpenseList
ExplicitTop = 176 ExplicitTop = 176
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Top = 89 Left = 432
ExplicitTop = 89 Top = 257
ExplicitLeft = 432
ExplicitTop = 257
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

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

@ -72,7 +72,7 @@ type
Tv1PayStatus: TcxGridDBColumn; Tv1PayStatus: TcxGridDBColumn;
ToolButton9: TToolButton; ToolButton9: TToolButton;
N3: TMenuItem; N3: TMenuItem;
Tv1Column5: TcxGridDBColumn; Tv1PayTime: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
@ -82,6 +82,14 @@ type
TbnPay: TToolButton; TbnPay: TToolButton;
TbnRePay: TToolButton; TbnRePay: TToolButton;
TbPrint: TToolButton; TbPrint: TToolButton;
Tv1FFID: TcxGridDBColumn;
Tv1Filler: TcxGridDBColumn;
Tv1FJFlag: TcxGridDBColumn;
Tv1PayMent: TcxGridDBColumn;
Tv1BankSlipNumber: TcxGridDBColumn;
Tv1Use: TcxGridDBColumn;
btnChk2: TToolButton;
btnReChk2: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -104,6 +112,8 @@ type
procedure TbnPayClick(Sender: TObject); procedure TbnPayClick(Sender: TObject);
procedure TbnRePayClick(Sender: TObject); procedure TbnRePayClick(Sender: TObject);
procedure TbPrintClick(Sender: TObject); procedure TbPrintClick(Sender: TObject);
procedure btnChk2Click(Sender: TObject);
procedure btnReChk2Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -121,8 +131,10 @@ uses
procedure TfrmExpenseList.SetStatus(); procedure TfrmExpenseList.SetStatus();
begin begin
btnChk.Enabled := false; //审核 btnChk.Enabled := false; //审核1
btnReChk.Enabled := false; //撤销 btnReChk.Enabled := false; //撤销1
btnChk2.Enabled := false; //审核2
btnReChk2.Enabled := false; //撤销2
TbnPay.Enabled := false; //付款 TbnPay.Enabled := false; //付款
TbnRePay.Enabled := false; //撤销 TbnRePay.Enabled := false; //撤销
@ -143,14 +155,74 @@ begin
1: 1:
begin begin
btnReChk.Enabled := true; btnReChk.Enabled := true;
TbnPay.Enabled := true; // btnChk2.Enabled := true; //审核2
end; end;
2: 2:
begin begin
// TbnPay.Enabled := true;
// btnReChk2.Enabled := true; //撤销2
end;
3:
begin
// TbnRePay.Enabled := true;
end;
end;
end;
if Trim(FAuthority) = '审核2' then
begin
btnAdd.Enabled := true;
case cxTabControl1.TabIndex of
0:
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
// btnChk.Enabled := true;
end;
1:
begin
// btnReChk.Enabled := true;
btnChk2.Enabled := true; //审核2
end;
2:
begin
// TbnPay.Enabled := true;
btnReChk2.Enabled := true; //撤销2
end;
3:
begin
// TbnRePay.Enabled := true;
end;
end;
end;
if Trim(FAuthority) = '付款' then
begin
btnAdd.Enabled := true;
case cxTabControl1.TabIndex of
0:
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
// btnChk.Enabled := true;
end;
1:
begin
// btnReChk.Enabled := true;
// btnChk2.Enabled := true; //审核2
end;
2:
begin
TbnPay.Enabled := true;
// btnReChk2.Enabled := true; //撤销2
end;
3:
begin
TbnRePay.Enabled := true; TbnRePay.Enabled := true;
end; end;
end; end;
end; end;
if Trim(FAuthority) = '申请' then if Trim(FAuthority) = '申请' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
@ -189,7 +261,9 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
Filtered := False; Filtered := False;
sql.Add(' select A.* from Finance_Flow A '); sql.Add(' select A.* ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''费用登记'' and X.WBID=A.FFID)>0 THEN 1 ELSE 0 END) AS BIT) ');
sql.Add(' from Finance_Flow A ');
sql.Add(' where A.FFType=''费用登记'' '); sql.Add(' where A.FFType=''费用登记'' ');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -198,12 +272,17 @@ begin
end; end;
1: 1:
begin begin
sql.Add(' and Checkstatus=''已审核'' and PayStatus=''未付款'' '); sql.Add(' and Checkstatus=''已审核1'' ');
end; end;
2: 2:
begin
sql.add(' and Checkstatus=''已审核2'' and PayStatus<>''已付款'' ');
end;
3:
begin begin
sql.Add(' and PayStatus=''已付款'' '); sql.Add(' and PayStatus=''已付款'' ');
end; end;
end; end;
if CheckBox1.Checked then if CheckBox1.Checked then
begin begin
@ -253,6 +332,13 @@ end;
procedure TfrmExpenseList.TbnPayClick(Sender: TObject); procedure TfrmExpenseList.TbnPayClick(Sender: TObject);
var var
FFFIDS: string; FFFIDS: string;
SelectedDate: TDate;
DateForm: TForm;
cxDateEdit: TcxDateEdit;
cxTextEdit: TcxTextEdit;
btnOK, btnCancel: TButton;
lblDate, lblBankSlip: TLabel;
BankSlipCode: string;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
@ -263,12 +349,117 @@ begin
Exit; Exit;
end; end;
// 创建一个窗体
DateForm := TForm.Create(nil);
try
DateForm.Caption := '付款信息';
DateForm.Width := 350;
DateForm.Height := 200;
DateForm.Position := poScreenCenter;
DateForm.BorderStyle := bsDialog;
DateForm.BorderIcons := [biSystemMenu];
// 创建付款日期标签
lblDate := TLabel.Create(DateForm);
lblDate.Parent := DateForm;
lblDate.Caption := '付款日期:';
lblDate.Left := 20;
lblDate.Top := 23;
// 创建 cxDateEdit
cxDateEdit := TcxDateEdit.Create(DateForm);
cxDateEdit.Parent := DateForm;
cxDateEdit.Properties.Kind := ckDate; // 或者 ckDate 如果只需要日期
cxDateEdit.Properties.DateButtons := [btnToday]; // 添加今天按钮
cxDateEdit.Properties.ShowTime := False; // 不显示时间部分
cxDateEdit.Properties.SaveTime := False;
cxDateEdit.Properties.DateOnError := deToday; // 错误时显示今天
cxDateEdit.Date := Now; // 默认当前日期
cxDateEdit.Left := 120;
cxDateEdit.Top := 18;
cxDateEdit.Width := 200;
// 创建银行水单编码标签
lblBankSlip := TLabel.Create(DateForm);
lblBankSlip.Parent := DateForm;
lblBankSlip.Caption := '银行水单编码:';
lblBankSlip.Left := 20;
lblBankSlip.Top := 63;
// 创建 cxTextEdit 用于输入银行水单编码
cxTextEdit := TcxTextEdit.Create(DateForm);
cxTextEdit.Parent := DateForm;
cxTextEdit.Left := 120;
cxTextEdit.Top := 58;
cxTextEdit.Width := 200;
cxTextEdit.Text := '';
// 创建确定按钮
btnOK := TButton.Create(DateForm);
btnOK.Parent := DateForm;
btnOK.Caption := '确定';
btnOK.ModalResult := mrOK;
btnOK.Left := 80;
btnOK.Top := 110;
btnOK.Width := 80;
btnOK.Default := True;
// 创建取消按钮
btnCancel := TButton.Create(DateForm);
btnCancel.Parent := DateForm;
btnCancel.Caption := '取消';
btnCancel.ModalResult := mrCancel;
btnCancel.Left := 180;
btnCancel.Top := 110;
btnCancel.Width := 80;
btnCancel.Cancel := True;
// 显示对话框
if DateForm.ShowModal = mrOK then
begin
// 获取选择的日期
SelectedDate := Trunc(cxDateEdit.Date); // 取日期部分
BankSlipCode := Trim(cxTextEdit.Text);
// 验证输入
if BankSlipCode = '' then
begin
if application.MessageBox('银行水单编码为空，是否继续？', '确认', MB_YESNO + MB_ICONQUESTION) <> IDYES then
Exit;
end;
// 显示选择的日期和银行水单编码（调试用）
// ShowMessage('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode);
// 这里可以添加审核确认
if application.MessageBox(PChar('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode + #13#10 + '确认付款吗？'), '确认付款', MB_YESNO + MB_ICONQUESTION) = IDYES then
begin
// 获取选中的记录
with CDS_1 do
begin
DisableControls;
First;
while not EOF do
begin
if FieldByName('SSel').AsBoolean then
begin
FFFIDS := FFFIDS + Trim(FieldByName('FFID').AsString) + ',';
end;
Next;
end;
EnableControls;
end;
// 删除末尾的逗号
if FFFIDS <> '' then
FFFIDS := Copy(FFFIDS, 1, Length(FFFIDS) - 1);
// 处理选中的记录
with CDS_1 do with CDS_1 do
begin begin
DisableControls; DisableControls;
while CDS_1.Locate('SSel', True, []) do while CDS_1.Locate('SSel', True, []) do
begin begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete; CDS_1.Delete;
end; end;
EnableControls; EnableControls;
@ -283,34 +474,163 @@ begin
sql.Add(' exec P_Fin_Flow_SetStatus '); sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''付款'' '); sql.Add(',@Operation=''付款'' ');
// 添加付款日期参数
sql.Add(',@PayTime=' + QuotedStr(FormatDateTime('yyyy-mm-dd', SelectedDate)));
// 添加银行水单编码参数 - 需要修改存储过程
sql.Add(',@BankSlipNumber=' + QuotedStr(BankSlipCode));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; open;
end; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add(' exec P_Fin_In_Bank_Flow ');
// sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('付款成功', '提示'); application.MessageBox('付款成功', '提示');
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid(); InitGrid();
end; end;
end; end;
end;
finally
DateForm.Free;
end;
end;
//var
// FFFIDS: string;
// SelectedDate: TDate;
// DateForm: TForm;
// MonthCalendar: TMonthCalendar;
// btnOK, btnCancel: TButton;
//begin
// if CDS_1.IsEmpty then
// exit;
//
// if not CDS_1.Locate('SSel', True, []) then
// begin
// application.MessageBox('请选择数据', '提示');
// Exit;
// end;
//
// // 创建一个窗体来包含 MonthCalendar
// DateForm := TForm.Create(nil);
// try
// DateForm.Caption := '选择付款日期';
// DateForm.Width := 400;
// DateForm.Height := 400;
// DateForm.Position := poScreenCenter;
// DateForm.BorderStyle := bsDialog;
// DateForm.BorderIcons := [biSystemMenu];
//
// // 创建 MonthCalendar
// MonthCalendar := TMonthCalendar.Create(DateForm);
// MonthCalendar.Parent := DateForm;
// MonthCalendar.Left := 55;
// MonthCalendar.Top := 15;
// MonthCalendar.Width := 300; // 明确设置宽度
// MonthCalendar.Height := 300; // 明确设置高度
// MonthCalendar.Date := Now;
//
// // 创建确定按钮
// btnOK := TButton.Create(DateForm);
// btnOK.Parent := DateForm;
// btnOK.Caption := '确定';
// btnOK.ModalResult := mrOK;
// btnOK.Left := 120;
// btnOK.Top := MonthCalendar.Top + MonthCalendar.Height + 10;
// btnOK.Default := True;
//
// // 创建取消按钮
// btnCancel := TButton.Create(DateForm);
// btnCancel.Parent := DateForm;
// btnCancel.Caption := '取消';
// btnCancel.ModalResult := mrCancel;
// btnCancel.Left := btnOK.Left + btnOK.Width + 20;
// btnCancel.Top := btnOK.Top;
// btnCancel.Cancel := True;
//
// // 显示对话框
// if DateForm.ShowModal = mrOK then
// begin
// // 获取选择的日期
// SelectedDate := MonthCalendar.Date;
//
// // 显示选择的日期（调试用）
// // ShowMessage('选择的日期: ' + DateToStr(SelectedDate));
//
// // 这里可以添加审核确认
// if application.MessageBox(PChar('付款日期: ' + DateToStr(SelectedDate)), '确认', MB_YESNO + MB_ICONQUESTION) = IDYES then
// begin
// // 获取选中的记录
// with CDS_1 do
// begin
// DisableControls;
// First;
// while not EOF do
// begin
// if FieldByName('SSel').AsBoolean then
// begin
// FFFIDS := FFFIDS + Trim(FieldByName('FFID').AsString) + ',';
// end;
// Next;
// end;
// EnableControls;
// end;
//
// // 删除末尾的逗号
// if FFFIDS <> '' then
// FFFIDS := Copy(FFFIDS, 1, Length(FFFIDS) - 1);
//
// // 处理选中的记录
// with CDS_1 do
// begin
// DisableControls;
// while CDS_1.Locate('SSel', True, []) do
// begin
// CDS_1.Delete;
// end;
// EnableControls;
// end;
//
// try
// ADOQueryCmd.Connection.BeginTrans;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add(' exec P_Fin_Flow_SetStatus ');
// sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
// sql.Add(',@Operation=''付款'' ');
// // 添加付款日期参数
// sql.Add(',@PayTime=' + QuotedStr(FormatDateTime('yyyy-mm-dd', SelectedDate)));
// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// open;
// end;
//
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
//
// ADOQueryCmd.Connection.CommitTrans;
// application.MessageBox('付款成功', '提示');
//
// except
// ADOQueryCmd.Connection.RollbackTrans;
// application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// InitGrid();
// end;
// end;
// end;
//
// finally
// DateForm.Free;
// end;
//end;
procedure TfrmExpenseList.TbnRePayClick(Sender: TObject); procedure TfrmExpenseList.TbnRePayClick(Sender: TObject);
var var
@ -386,7 +706,7 @@ begin
Exit; Exit;
end; end;
WSql := ''; WSql := '';
WSql1 := ''; Wsql1 := '';
CDS_1.DisableControls; CDS_1.DisableControls;
with CDS_1 do with CDS_1 do
begin begin
@ -404,13 +724,13 @@ begin
WSql := Trim(CDS_1.fieldbyname('FFID').AsString); WSql := Trim(CDS_1.fieldbyname('FFID').AsString);
end; end;
if WSql1 <> '' then if Wsql1 <> '' then
begin begin
WSql1 := WSql1 + ',' + QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString)); Wsql1 := Wsql1 + ',' + QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString));
end end
else else
begin begin
WSql1 := QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString)); Wsql1 := QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString));
end; end;
end; end;
Next; Next;
@ -428,7 +748,7 @@ begin
// ShowMessage(FFiltration1); // ShowMessage(FFiltration1);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
WSQl := ''''+WSql + ''''; WSql := '''' + WSql + '''';
// ShowMessage('1111'); // ShowMessage('1111');
with Self.ADOQueryCmd do with Self.ADOQueryCmd do
begin begin
@ -436,7 +756,7 @@ begin
sql.Clear; sql.Clear;
sql.Add(' UPDATE F SET PrintStatus = ''已打印'' FROM Finance_Flow F '); sql.Add(' UPDATE F SET PrintStatus = ''已打印'' FROM Finance_Flow F ');
SQL.Add(' WHERE EXISTS ( SELECT 1 FROM [dbo].[F_Tool_SplitString]('+WSQl+', '','') X WHERE X.RTValue = F.FFID )'); SQL.Add(' WHERE EXISTS ( SELECT 1 FROM [dbo].[F_Tool_SplitString](' + WSql + ', '','') X WHERE X.RTValue = F.FFID )');
// showMessage(sql.Text); // showMessage(sql.Text);
execsql; execsql;
end; end;
@ -593,7 +913,7 @@ begin
sql.Clear; sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus '); sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''审核'' '); sql.Add(',@Operation=''审核1'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; open;
@ -615,7 +935,7 @@ begin
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('审核成功', '提示'); application.MessageBox('审核1成功', '提示');
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -655,7 +975,7 @@ begin
sql.Clear; sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus '); sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销审核'' '); sql.Add(',@Operation=''撤销审核1'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; open;
@ -677,7 +997,7 @@ begin
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('撤销审核成功', '提示'); application.MessageBox('撤销审核1成功', '提示');
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -703,6 +1023,130 @@ begin
end; end;
end; end;
procedure TfrmExpenseList.btnChk2Click(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''审核2'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
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(' exec P_Fin_In_Bank_Flow ');
// sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('审核2成功', '提示');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmExpenseList.btnReChk2Click(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销审核2'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
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(' exec P_Fin_In_Bank_Flow ');
// sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('撤销审核2成功', '提示');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmExpenseList.ToolButton4Click(Sender: TObject); procedure TfrmExpenseList.ToolButton4Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
@ -761,7 +1205,7 @@ begin
if Trim(Self.CDS_1.fieldbyname('filler').AsString) = dname then if Trim(Self.CDS_1.fieldbyname('filler').AsString) = dname then
FEditAuthority := True; FEditAuthority := True;
fkeyNO := Trim(Self.CDS_1.fieldbyname('FFID').AsString); fkeyNO := Trim(Self.CDS_1.fieldbyname('FFID').AsString);
fType := 'SD'; fType := '费用登记';
if ShowModal = 1 then if ShowModal = 1 then
begin begin

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

@ -185,13 +185,11 @@ inherited frmFinPurchasePlanSel: TfrmFinPurchasePlanSel
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 113 Top = 142
Width = 1540 Width = 1540
Height = 530 Height = 501
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 102
ExplicitHeight = 546
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -402,6 +400,25 @@ inherited frmFinPurchasePlanSel: TfrmFinPurchasePlanSel
GridView = Tv1 GridView = Tv1
end end
end end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 113
Width = 1540
Height = 29
Align = alTop
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23436#25104
#24050#23436#25104
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 297 Left = 297

28
A09财务通用管理/U_FinPurchasePlanSel.pas
View File

@ -9,9 +9,9 @@ uses
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox, System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxSkinsCore,
cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations; dxSkinsDefaultPainters, dxScrollbarAnnotations, cxPC;
type type
TfrmFinPurchasePlanSel = class(TfrmBaseHelp) TfrmFinPurchasePlanSel = class(TfrmBaseHelp)
@ -70,6 +70,7 @@ type
Tv1Tax: TcxGridDBColumn; Tv1Tax: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn; Tv1TaxInclude: TcxGridDBColumn;
Tv1currency: TcxGridDBColumn; Tv1currency: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -79,6 +80,7 @@ type
procedure OrderNoChange(Sender: TObject); procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -120,6 +122,12 @@ begin
frmFinPurchasePlanSel := nil; frmFinPurchasePlanSel := nil;
end; end;
procedure TfrmFinPurchasePlanSel.cxTabControl1Change(Sender: TObject);
begin
// SetStatus();
InitGrid();
end;
procedure TfrmFinPurchasePlanSel.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmFinPurchasePlanSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -134,10 +142,22 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.*,B.PurNo,C.FROMCPSID,C.FROMCPMID from Pur_YarnPlan_Sub A '); sql.Add('select A.*,B.PurNo,B.SellName,B.SellNo,C.FROMCPSID,C.FROMCPMID,D.shuiNo from Pur_YarnPlan_Sub A ');
SQL.Add(' left join Pur_YarnPlan_Main B on A.PurMId=B.PurMId '); SQL.Add(' left join Pur_YarnPlan_Main B on A.PurMId=B.PurMId ');
sql.Add(' left join BS_Contract_Sub C on A.fromConSId=C.ConMId '); sql.Add(' left join BS_Contract_Sub C on A.fromConSId=C.ConMId ');
SQL.Add(' left join BS_Company D on D.CoCode = B.SellNo ');
sql.Add(' where 1=1 ');
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(B.status,''0'')=''9'' ');
end;
1:
begin
sql.Add(' and isnull(B.status,''0'')=''10'' ');
end;
end;
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

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

@ -78,7 +78,8 @@ begin
pswd := 'rightsoft,.KXY@YN'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1:='¹ÜÀí'; Parameters1:='¹ÜÀí';
// Parameters1 := 'ÉóºË'; // Parameters1 := '<27>뵙2';
// Parameters1 := '마운';
end end
else else
begin begin

271
A09财务通用管理/U_InvoiceInInPut.dfm
View File

@ -47,16 +47,24 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton5: TToolButton
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #24212#20184#27454
ImageIndex = 2
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 229
Top = 0
AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 6 ImageIndex = 6
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 213 Left = 300
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -64,7 +72,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 284 Left = 371
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -72,7 +80,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 387 Left = 474
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -98,11 +106,10 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1Qty
end end
item item
Kind = skSum Kind = skSum
Column = v1Money Column = Tv1Amount
end end
item item
Kind = skSum Kind = skSum
@ -112,7 +119,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
end end
item item
Kind = skSum Kind = skSum
Column = v1Column4 Column = Tv1TaxAmount
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -121,7 +128,21 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True OptionsView.Indicator = True
object Tv1Column5: TcxGridDBColumn object Tv1IVNo: TcxGridDBColumn
Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1BGDNum: TcxGridDBColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.FieldName = 'BGDNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 120
end
object Tv1IVDate: TcxGridDBColumn
Caption = #21457#31080#26085#26399 Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'IVDate' DataBinding.FieldName = 'IVDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -129,14 +150,35 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
end end
object Tv1Column1: TcxGridDBColumn object Tv1SupplierShuiNo: TcxGridDBColumn
Caption = #21457#31080#21495#30721 Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'IVNo' DataBinding.FieldName = 'SupplierShuiNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 103
end end
object Tv1Column2: TcxGridDBColumn object Tv1Supplier: TcxGridDBColumn
Caption = #20379#24212#21830#21517#31216
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1SupplierPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 109
end
object Tv1OurShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'OurShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 114
end
object Tv1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -146,151 +188,11 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True Properties.OnButtonClick = ButtonEdit
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 82 Width = 130
end end
object Tv1Column4: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column4PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column6: TcxGridDBColumn
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column6PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column3: TcxGridDBColumn
Caption = #21457#31080#31867#22411
DataBinding.FieldName = 'IVType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1P_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 119
end
object v1P_Spec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 103
end
object v1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 83
end
object v1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1QtyUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Price: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 93
end
object v1Money: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column3: TcxGridDBColumn
Caption = #31246#29575'(%)'
DataBinding.FieldName = 'tax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 53
end
object v1Column4: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column8: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -301,13 +203,62 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
'USD' 'USD'
'EUR') 'EUR')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85
end end
object Tv1Column7: TcxGridDBColumn object Tv1Price: TcxGridDBColumn
Caption = #22791#27880 Caption = #21333#20215
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv1Amount: TcxGridDBColumn
Caption = #24635#37329#39069#26410#21547#31246
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 111
end
object Tv1TaxFee: TcxGridDBColumn
Caption = #31246#37329
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1TaxAmount: TcxGridDBColumn
Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 114
end
object Tv1BillCycle: TcxGridDBColumn
Caption = #36134#26399
DataBinding.FieldName = 'BillCycle'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 80
end
object Tv1fromFlow: TcxGridDBColumn
Caption = #24212#20184#27454#20027#38190
DataBinding.FieldName = 'fromFlow'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 120
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel

356
A09财务通用管理/U_InvoiceInInPut.pas
View File

@ -23,32 +23,29 @@ type
TBClose: TToolButton; TBClose: TToolButton;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1P_CodeName: TcxGridDBColumn; Tv1Price: TcxGridDBColumn;
v1P_Spec: TcxGridDBColumn;
v1Qty: TcxGridDBColumn;
v1Price: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
ADOQueryTmp: TADOQuery; ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
v1Column1: TcxGridDBColumn; Tv1TaxAmount: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; Tv1TaxFee: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; Tv1IVNo: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; Tv1IVDate: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column6: TcxGridDBColumn; Tv1Currency: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
ToolButton4: TToolButton; ToolButton4: TToolButton;
CDS_LM: TClientDataSet; CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
Tv1BGDNum: TcxGridDBColumn;
Tv1SupplierShuiNo: TcxGridDBColumn;
Tv1Supplier: TcxGridDBColumn;
Tv1OurShuiNo: TcxGridDBColumn;
Tv1OurCoName: TcxGridDBColumn;
Tv1BillCycle: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1fromFlow: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject); procedure TSaveClick(Sender: TObject);
@ -65,9 +62,14 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private private
procedure initGrid(); procedure initGrid();
procedure SaveDate(); procedure SaveDate();
procedure SaveFlowInvoice();
{ Private declarations } { Private declarations }
public public
FIVID: string; FIVID: string;
@ -81,9 +83,90 @@ var
implementation implementation
uses uses
U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink; U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_PayableSel;
{$R *.dfm} {$R *.dfm}
//procedure TfrmInvoiceInInPut.SaveFlowInvoice();
//var
// sl: TStringList;
// i: Integer;
//begin
// with CDS_Invoice do
// begin
// first;
// while not eof do
// begin
// if fieldbyname('IVID').AsString <> '' then
// begin
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.add('delete from Finance_FlowInvoice where IVID=' + quotedstr(Trim(CDS_Invoice.fieldbyname('IVID').AsString)));
// ExecSQL;
// end;
//
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.add('exec P_InsertFinanceFlowInvoice @IVID=' + quotedstr(Trim(CDS_Invoice.fieldbyname('IVID').AsString)));
// sql.Add(' ,@fffIDs=' + quotedstr(Trim(CDS_Invoice.fieldbyname('fromFlow').AsString)) );
// ExecSQL;
// end;
//
//
// end;
// CDS_Invoice.Next;
// end;
// end;
//end;
procedure TfrmInvoiceInInPut.SaveFlowInvoice();
begin
if CDS_Invoice.IsEmpty then
Exit;
// 开始事务（假设使用ADO事务）
ADOQueryCmd.Connection.BeginTrans;
try
CDS_Invoice.DisableControls;
CDS_Invoice.First;
while not CDS_Invoice.Eof do
begin
if Trim(CDS_Invoice.FieldByName('IVID').AsString) <> '' then
begin
// 使用参数化查询
with ADOQueryCmd do
begin
Close;
SQL.Text := 'delete from Finance_FlowInvoice where IVID = :IVID';
Parameters.ParamByName('IVID').Value := Trim(CDS_Invoice.FieldByName('IVID').AsString);
ExecSQL;
Close;
SQL.Text := 'exec P_InsertFinanceFlowInvoice @IVID = :IVID, @fffIDs = :fffIDs';
Parameters.ParamByName('IVID').Value := Trim(CDS_Invoice.FieldByName('IVID').AsString);
Parameters.ParamByName('fffIDs').Value := Trim(CDS_Invoice.FieldByName('fromFlow').AsString);
ShowMessage(sql.Text);
ExecSQL;
end;
end;
CDS_Invoice.Next; // 移动到下一条记录
end;
CDS_Invoice.EnableControls;
ADOQueryCmd.Connection.CommitTrans; // 提交事务
// ShowMessage('保存成功！');
except
ADOQueryCmd.Connection.RollbackTrans; // 出错回滚
raise; // 重新抛出异常
end;
end;
procedure TfrmInvoiceInInPut.SaveDate(); procedure TfrmInvoiceInInPut.SaveDate();
var var
MaxNo: string; MaxNo: string;
@ -127,17 +210,21 @@ begin
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Invoice, 'Finance_Invoice', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Invoice, 'Finance_Invoice', 0);
ADOQueryCmd.fieldbyname('IVID').Value := MaxNo; ADOQueryCmd.fieldbyname('IVID').Value := MaxNo;
ADOQueryCmd.fieldbyname('IVFlag').Value := '进项'; ADOQueryCmd.fieldbyname('IVFlag').Value := '进项';
ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').AsString); // ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').AsString);
ADOQueryCmd.fieldbyname('OppParentCoNo').Value := trim(CDS_Invoice.FieldByName('OppParentCoNo').AsString); // ADOQueryCmd.fieldbyname('OppParentCoNo').Value := trim(CDS_Invoice.FieldByName('OppParentCoNo').AsString);
ADOQueryCmd.FieldByName('SupplierShuiNo').Value := Trim(CDS_Invoice.fieldbyname('SupplierShuiNo').AsString);
ADOQueryCmd.fieldbyname('OurCoNo').Value := trim(CDS_Invoice.FieldByName('OurCoNo').AsString); ADOQueryCmd.fieldbyname('OurCoNo').Value := trim(CDS_Invoice.FieldByName('OurCoNo').AsString);
ADOQueryCmd.Post; ADOQueryCmd.Post;
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('IVId').Value := MaxNo;
CDS_Invoice.Post;
next; next;
end; end;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('保存成功！', '提示'); application.MessageBox('保存成功！', '提示');
Modalresult := 1;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -188,22 +275,15 @@ begin
application.MessageBox('发票号不能为空', '提示'); application.MessageBox('发票号不能为空', '提示');
exit; exit;
end; end;
if CDS_Invoice.Locate('IVType', null, []) then
begin
application.MessageBox('发票类型不能为空', '提示');
exit;
end;
if CDS_Invoice.Locate('OurCoName', null, []) then if CDS_Invoice.Locate('OurCoName', null, []) then
begin begin
application.MessageBox('我方单位不能为空', '提示'); application.MessageBox('我方单位不能为空', '提示');
exit; exit;
end; end;
if CDS_Invoice.Locate('OppCoName', null, []) then
begin
application.MessageBox('对方单位不能为空', '提示');
exit;
end;
SaveDate(); SaveDate();
SaveFlowInvoice();
Modalresult := 1;
end; end;
procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -270,41 +350,41 @@ var
mvalue, FFieldName: string; mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FtaxAmount: double; FQty, FPrice, FAmount, Ftax, FtaxAmount: double;
begin begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); // FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText; // mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then // if Trim(mvalue) = '' then
begin // begin
mvalue := '0'; // mvalue := '0';
end; // end;
with CDS_Invoice do // with CDS_Invoice do
begin // begin
Edit; // Edit;
FieldByName(FFieldName).Value := Trim(mvalue); // FieldByName(FFieldName).Value := Trim(mvalue);
Post; // Post;
FQty := FieldbyName('Qty').AsFloat; // FQty := FieldbyName('Qty').AsFloat;
FtaxAmount := FieldbyName('taxAmount').AsFloat; // FtaxAmount := FieldbyName('taxAmount').AsFloat;
Ftax := FieldbyName('tax').AsFloat; // Ftax := FieldbyName('tax').AsFloat;
end; // end;
if FQty <> 0 then // if FQty <> 0 then
begin // begin
FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); // FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
FPrice := strtofloat(format('%.2f', [FAmount / FQty])); // FPrice := strtofloat(format('%.2f', [FAmount / FQty]));
end // end
else // else
begin // begin
FPrice := 0; // FPrice := 0;
FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); // FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
end; // end;
//
with CDS_Invoice do // with CDS_Invoice do
begin // begin
Edit; // Edit;
FieldByName('Price').Value := FPrice; // FieldByName('Price').Value := FPrice;
FieldByName('Amount').Value := FAmount; // FieldByName('Amount').Value := FAmount;
FieldByName('TaxFee').Value := FtaxAmount - FAmount; // FieldByName('TaxFee').Value := FtaxAmount - FAmount;
Post; // Post;
end; // end;
tv1.Controller.EditingController.ShowEdit(); // tv1.Controller.EditingController.ShowEdit();
end; end;
@ -313,6 +393,59 @@ begin
frmInvoiceInInPut := nil; frmInvoiceInInPut := nil;
end; end;
procedure TfrmInvoiceInInPut.Tv1AmountPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
mAmount, mTaxFee, mTaxAmount: Double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Invoice do
begin
Edit;
FieldByName(FFieldName).Value := StrToFloat(Trim(mvalue));
Post;
// ShowMessage(Fieldbyname('TaxRate').AsString);
if Fieldbyname('Amount').AsString <> '' then
begin
mAmount := Fieldbyname('Amount').AsFloat;
end
else
begin
mAmount := 0;
end;
if Fieldbyname('TaxFee').AsString <> '' then
begin
mTaxFee := Fieldbyname('TaxFee').AsFloat;
end
else
begin
mTaxFee := 0;
end;
end;
mTaxAmount := RoundFloat(mAmount + mTaxFee, 2);
with CDS_Invoice do
begin
Edit;
FieldByName('Amount').Value := mAmount;
// FieldByName('ConPrice').Value := FConPrice;
FieldByName('TaxFee').Value := mTaxFee;
FieldByName('TaxAmount').Value := mTaxAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceInInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmInvoiceInInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -394,10 +527,55 @@ begin
end; end;
end; end;
procedure TfrmInvoiceInInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
CDS_Invoice.FieldByName('OurShuiNo').Value := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
CDS_Invoice.Post;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceInInPut.Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('Supplier').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
CDS_Invoice.FieldByName('SupplierShuiNo').Value := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
CDS_Invoice.FieldByName('SupplierNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
CDS_Invoice.FieldByName('BillCycle').Value := Trim(CDS_1.fieldbyname('BillCycle').AsString);
CDS_Invoice.Post;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject); procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject);
begin begin
CDS_Invoice.Append; CDS_Invoice.Append;
CDS_Invoice.FieldByName('IVDate').Value := now(); CDS_Invoice.FieldByName('IVDate').Value := now();
CDS_Invoice.FieldByName('IVType').Value := '进项发票';
CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg'; CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg';
CDS_Invoice.FieldByName('Amount').Value := 0; CDS_Invoice.FieldByName('Amount').Value := 0;
CDS_Invoice.FieldByName('Qty').Value := 0; CDS_Invoice.FieldByName('Qty').Value := 0;
@ -521,5 +699,51 @@ begin
end; end;
procedure TfrmInvoiceInInPut.ToolButton5Click(Sender: TObject);
begin
try
frmPayableSel := TfrmPayableSel.Create(Application);
with frmPayableSel do
begin
if ShowModal = 1 then
begin
// frmPayableSel.CDS_1.first;
CDS_1.Locate('ssel', True, []);
with frmPayableSel.CDS_1 do
begin
self.CDS_Invoice.Append;
Self.CDS_Invoice.FieldByName('Supplier').value := frmPayableSel.CDS_1.FieldByName('OppCoName').AsString;
Self.CDS_Invoice.FieldByName('SupplierNo').value := frmPayableSel.CDS_1.FieldByName('OppCoNo').AsString;
Self.CDS_Invoice.FieldByName('SupplierShuiNo').value := frmPayableSel.CDS_1.FieldByName('oppShuiNo').AsString;
Self.CDS_Invoice.FieldByName('OurCoName').value := frmPayableSel.CDS_1.FieldByName('OurCoName').AsString;
Self.CDS_Invoice.FieldByName('OurCoNo').value := frmPayableSel.CDS_1.FieldByName('OurCoNo').AsString;
Self.CDS_Invoice.FieldByName('OurShuiNo').value := frmPayableSel.CDS_1.FieldByName('ourShuiNo').AsString;
Self.CDS_Invoice.FieldByName('Currency').value := frmPayableSel.CDS_1.FieldByName('Currency').AsString;
if frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString <> '' then
begin
Self.CDS_Invoice.FieldByName('Price').value := frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString;
end
else
begin
Self.CDS_Invoice.FieldByName('Price').value := 0;
end;
Self.CDS_Invoice.FieldByName('Amount').value := frmPayableSel.FNoTaxInclude;
Self.CDS_Invoice.FieldByName('TaxFee').value := frmPayableSel.FTax;
Self.CDS_Invoice.FieldByName('TaxAmount').value := frmPayableSel.FTaxInclude;
self.CDS_Invoice.FieldByName('fromFlow').Value := frmPayableSel.FFFIDs;
Self.CDS_Invoice.post;
end;
end;
end;
finally
frmPayableSel.Free;
end;
end;
end. end.

235
A09财务通用管理/U_InvoiceInList.dfm
View File

@ -3,11 +3,11 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Top = 202 Top = 202
Caption = #36827#39033#21457#31080#31649#29702 Caption = #36827#39033#21457#31080#31649#29702
ClientHeight = 626 ClientHeight = 626
ClientWidth = 1558 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1574 ExplicitWidth = 1556
ExplicitHeight = 665 ExplicitHeight = 665
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -15,7 +15,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1558 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -137,7 +137,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1558 Width = 1540
Height = 67 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -247,7 +247,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 126 Top = 126
Width = 1558 Width = 1540
Height = 500 Height = 500
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -280,24 +280,24 @@ inherited frmInvoiceInList: TfrmInvoiceInList
end end
item item
Kind = skSum Kind = skSum
Column = v1Column12
end end
item item
Kind = skSum Kind = skSum
Column = v1Column15 Column = Tv1Amount
end end
item item
Kind = skSum Kind = skSum
Column = v1Column17 Column = Tv1TaxFee
end end
item item
Kind = skSum Kind = skSum
Column = v1Column18 Column = Tv1TaxAmount
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
@ -306,7 +306,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 49 Width = 49
end end
object v1InvoiceNo: TcxGridDBColumn object Tv1IVNo: TcxGridDBColumn
Caption = #21457#31080#21495#30721 Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'IVNo' DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -314,7 +314,14 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
end end
object v1InvoiceDate: TcxGridDBColumn object Tv1BGDNum: TcxGridDBColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.FieldName = 'BGDNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 101
end
object Tv1IVDate: TcxGridDBColumn
Caption = #21457#31080#26085#26399 Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'IVDate' DataBinding.FieldName = 'IVDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -322,15 +329,28 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object v1InvoiceType: TcxGridDBColumn object Tv1SupplierShuiNo: TcxGridDBColumn
Caption = #21457#31080#31867#22411 Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'IVType' DataBinding.FieldName = 'SupplierShuiNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 100
Width = 92
end end
object v1Column2: TcxGridDBColumn object Tv1Supplier: TcxGridDBColumn
Caption = #20379#24212#21830#21517#31216
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object Tv1OurShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'OurShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -338,89 +358,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
end end
object v1FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column1: TcxGridDBColumn
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column8: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object v1Column9: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object v1Column10: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Column11: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1Column12: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 57
end
object v1Column13: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column14: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 44
end
object v1Column15: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
end
object v1Column17: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
@ -429,38 +366,83 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
end end
object v1Column18: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Caption = #21547#31246#37329#39069 Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 57
end
object Tv1Amount: TcxGridDBColumn
Caption = #24635#37329#39069#26410#21547#31246
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object Tv1TaxFee: TcxGridDBColumn
Caption = #31246#37329
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object Tv1TaxAmount: TcxGridDBColumn
Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'TaxAmount' DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end
object v1Column19: TcxGridDBColumn
Caption = #31246#29575'(%)'
DataBinding.FieldName = 'tax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
end
object v1note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114 Width = 114
end end
object Tv1Column2: TcxGridDBColumn object Tv1BillCycle: TcxGridDBColumn
Caption = #38468#20214 Caption = #36134#26399
DataBinding.FieldName = 'FJFlag' DataBinding.FieldName = 'BillCycle'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 65
Width = 59 end
object Tv1PayDate: TcxGridDBColumn
Caption = #21040#26399#20184#27454#26085
DataBinding.FieldName = 'PayDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 101
end
object Tv1Column2: TcxGridDBColumn
Caption = #23457#26680#29366#24577
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv1Chker: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Chktime: TcxGridDBColumn
Caption = #23457#26680#26102#38388
DataBinding.FieldName = 'Chktime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#29366#24577
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column4: TcxGridDBColumn
Caption = #20184#27454#26085#26399
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -470,7 +452,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1558 Width = 1540
Height = 29 Height = 29
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -483,11 +465,14 @@ inherited frmInvoiceInList: TfrmInvoiceInList
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 95
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1558 ClientRectRight = 1540
ClientRectTop = 31 ClientRectTop = 31
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Top = 99
ExplicitTop = 99
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

35
A09财务通用管理/U_InvoiceInList.pas
View File

@ -40,17 +40,13 @@ type
TADD: TToolButton; TADD: TToolButton;
TUPDATE: TToolButton; TUPDATE: TToolButton;
TBDEL: TToolButton; TBDEL: TToolButton;
v1InvoiceNo: TcxGridDBColumn; Tv1IVNo: TcxGridDBColumn;
v1InvoiceType: TcxGridDBColumn; Tv1IVDate: TcxGridDBColumn;
v1InvoiceDate: TcxGridDBColumn;
v1FactoryName: TcxGridDBColumn;
v1note: TcxGridDBColumn;
TCHK: TToolButton; TCHK: TToolButton;
TNOCHK: TToolButton; TNOCHK: TToolButton;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
TSel: TToolButton; TSel: TToolButton;
v1Column1: TcxGridDBColumn; Tv1OurCoName: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
RMXLSExport1: TRMXLSExport; RMXLSExport1: TRMXLSExport;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
@ -58,17 +54,10 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
ADOQueryPrint: TADOQuery; ADOQueryPrint: TADOQuery;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn; Tv1Amount: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; Tv1TaxFee: TcxGridDBColumn;
v1Column18: TcxGridDBColumn; Tv1TaxAmount: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
ToolButton3: TToolButton; ToolButton3: TToolButton;
N3: TMenuItem; N3: TMenuItem;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
@ -83,11 +72,21 @@ type
OppCoName: TcxTextEdit; OppCoName: TcxTextEdit;
OurCoName: TcxTextEdit; OurCoName: TcxTextEdit;
ToolButton5: TToolButton; ToolButton5: TToolButton;
Tv1Column2: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
Label4: TLabel; Label4: TLabel;
Tv1BGDNum: TcxGridDBColumn;
Tv1SupplierShuiNo: TcxGridDBColumn;
Tv1Supplier: TcxGridDBColumn;
Tv1OurShuiNo: TcxGridDBColumn;
Tv1BillCycle: TcxGridDBColumn;
Tv1PayDate: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Chker: TcxGridDBColumn;
Tv1Chktime: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

54
A09财务通用管理/U_PayableBatchInput.dfm
View File

@ -29,6 +29,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -95,6 +96,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 1 TabOrder = 1
ExplicitLeft = -8
ExplicitTop = 36 ExplicitTop = 36
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -126,6 +128,10 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = Tv1Tax
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
@ -155,20 +161,34 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
end end
object Tv1ReconciliationDate: TcxGridDBColumn
Caption = #23545#36134#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object TV1OurCoName: TcxGridDBColumn object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV1OurCoNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 91
end end
object Tv1ourShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'ourShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1oppShuiNo: TcxGridDBColumn
Caption = #23545#26041#31246#21495
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1OppCoName: TcxGridDBColumn object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'OppCoName'
@ -208,6 +228,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1PurNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 81
end end
@ -222,6 +243,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1OrderNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 91
end end
@ -298,6 +320,8 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
end end
@ -306,12 +330,19 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 64 Width = 63
end end
object Tv1Currency: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'EUR'
'VND')
Properties.OnChange = Tv1CurrencyPropertiesChange
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
@ -319,6 +350,8 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Caption = #19981#21547#31246#21333#20215 Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'NoTaxPrice' DataBinding.FieldName = 'NoTaxPrice'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 99 Width = 99
end end
@ -333,13 +366,16 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Caption = #31246#29575 Caption = #31246#29575
DataBinding.FieldName = 'TaxRate' DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 80
end end
object Tv1Tax: TcxGridDBColumn object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069 Caption = #31246#39069
DataBinding.FieldName = 'Tax' DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
end end

395
A09财务通用管理/U_PayableBatchInput.pas
View File

@ -12,8 +12,8 @@ uses
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox, Vcl.Menus dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox, Vcl.Menus,
,Clipbrd; Clipbrd, cxCurrencyEdit;
type type
TfrmPayableBatchInput = class(TfrmBaseInput) TfrmPayableBatchInput = class(TfrmBaseInput)
@ -33,7 +33,6 @@ type
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
Tv1FFTime: TcxGridDBColumn; Tv1FFTime: TcxGridDBColumn;
Tv1ReconciliationDate: TcxGridDBColumn;
TV1OurCoName: TcxGridDBColumn; TV1OurCoName: TcxGridDBColumn;
Tv1OppCoName: TcxGridDBColumn; Tv1OppCoName: TcxGridDBColumn;
Tv1FFAbstract: TcxGridDBColumn; Tv1FFAbstract: TcxGridDBColumn;
@ -65,6 +64,8 @@ type
N1: TMenuItem; N1: TMenuItem;
N3: TMenuItem; N3: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
Tv1oppShuiNo: TcxGridDBColumn;
Tv1ourShuiNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -81,6 +82,12 @@ type
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure Tv1PurNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1CurrencyPropertiesChange(Sender: TObject);
procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
procedure TV1OurCoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
@ -89,6 +96,7 @@ type
public public
{ Public declarations } { Public declarations }
FBCId, FKHName: string; FBCId, FKHName: string;
FFFID : string;
end; end;
var var
@ -119,7 +127,7 @@ begin
Filtered := False; Filtered := False;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(' from Finance_Flow A '); sql.Add(' from Finance_Flow A ');
sql.Add(' where 1=2 '); sql.Add(' where FFID = ' + QuotedStr(FFFID));
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);
@ -209,6 +217,9 @@ begin
//织造单号 //织造单号
FieldByName('OrdMainId').Value := CDS_1.fieldbyname('OrdMainId').Value; FieldByName('OrdMainId').Value := CDS_1.fieldbyname('OrdMainId').Value;
FieldByName('OrdSubId').Value := CDS_1.fieldbyname('OrdSubId').Value; FieldByName('OrdSubId').Value := CDS_1.fieldbyname('OrdSubId').Value;
//织造单号
FieldByName('PurMID').Value := CDS_1.fieldbyname('PurMID').Value;
FieldByName('PurSID').Value := CDS_1.fieldbyname('PurSID').Value;
//坯布合同 //坯布合同
FieldByName('ConMId').Value := CDS_1.fieldbyname('ConMId').value; FieldByName('ConMId').Value := CDS_1.fieldbyname('ConMId').value;
FieldByName('ConSId').Value := CDS_1.fieldbyname('ConSId').value; FieldByName('ConSId').Value := CDS_1.fieldbyname('ConSId').value;
@ -389,39 +400,66 @@ begin
with Self.CDS_1 do with Self.CDS_1 do
begin begin
append; append;
//对方单位
self.CDS_1.FieldByName('OppCoName').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellName').asstring);
self.CDS_1.FieldByName('OppCoNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellNo').asstring);
self.CDS_1.FieldByName('oppShuiNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('shuino').asstring);
//我方单位 //我方单位
self.CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd); self.CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
self.CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd); self.CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
self.CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD'; self.CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
self.CDS_1.FieldByName('FinType').Value := '纱线'; self.CDS_1.FieldByName('FinType').Value := '纱线';
self.CDS_1.FieldByName('Currency').Value := 'CNY';
self.CDS_1.FieldByName('SSel').Value := False; self.CDS_1.FieldByName('SSel').Value := False;
//Ö¯Ôìµ¥ self.CDS_1.FieldByName('FFAbstract').Value := '纱线采购';
self.CDS_1.FieldByName('PurNo').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurNo').AsString); //采购单
self.CDS_1.FieldByName('PurMID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurMId').AsString); self.CDS_1.FieldByName('PurNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurNo').AsString);
self.CDS_1.FieldByName('PurSID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurSId').AsString); self.CDS_1.FieldByName('PurMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurMId').AsString);
self.CDS_1.FieldByName('PurSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurSId').AsString);
//坯布合同 //坯布合同
self.CDS_1.FieldByName('ConNo').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('ConNo').AsString); self.CDS_1.FieldByName('ConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConMId').AsString); self.CDS_1.FieldByName('ConMId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConMId').AsString);
self.CDS_1.FieldByName('ConSId').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConSId').AsString); self.CDS_1.FieldByName('ConSId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConSId').AsString);
//面料合同 //面料合同
self.CDS_1.FieldByName('BuyConNo').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('CPConNo').AsString); self.CDS_1.FieldByName('BuyConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('CPConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString); self.CDS_1.FieldByName('BuyConMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString); self.CDS_1.FieldByName('BuyConSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString); self.CDS_1.FieldByName('F_Code').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').Value);
self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString); self.CDS_1.FieldByName('F_Name').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').Value);
// self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SubId').AsString); // self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SubId').AsString);
// self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString); // self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString); self.CDS_1.FieldByName('F_Color').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').Value);
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Piece').IsNull then
begin
self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString); self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Qty').IsNull then
begin
self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString); self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
self.CDS_1.FieldByName('QtyUnit').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString); end;
self.CDS_1.FieldByName('currency').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString); self.CDS_1.FieldByName('QtyUnit').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
self.CDS_1.FieldByName('NoTaxPrice').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString); self.CDS_1.FieldByName('currency').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString);
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Price').IsNull then
begin
self.CDS_1.FieldByName('NoTaxPrice').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Price').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Amount').IsNull then
begin
self.CDS_1.FieldByName('NoTaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').AsString); self.CDS_1.FieldByName('NoTaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxRate').IsNull then
begin
self.CDS_1.FieldByName('TaxRate').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').AsString); self.CDS_1.FieldByName('TaxRate').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Tax').IsNull then
begin
self.CDS_1.FieldByName('Tax').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').AsString); self.CDS_1.FieldByName('Tax').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxInclude').IsNull then
begin
self.CDS_1.FieldByName('TaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').AsString); self.CDS_1.FieldByName('TaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').AsString);
end;
Post; Post;
end; end;
end; end;
@ -461,6 +499,85 @@ begin
end; end;
procedure TfrmPayableBatchInput.Tv1CurrencyPropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
// if not Assigned(Sender) or not (Sender is TComboBox) then
// Exit;
if TComboBox(Sender).Text = 'VND' then
begin
with CDS_1 do
begin
// 检查记录是否处于可编辑状态
if not (State in [dsEdit, dsInsert]) then
Edit;
// 检查字段是否存在且不为空
if not FieldByName('NoTaxPrice').IsNull and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxPrice').Value := RoundFloat(FieldByName('NoTaxPrice').AsFloat, 0);
end;
// 检查Qty和NoTaxPrice字段是否存在且不为空
if not FieldByName('Qty').IsNull and not FieldByName('NoTaxPrice').IsNull and (FieldByName('Qty').AsString <> '') and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxInclude').Value := RoundFloat(FieldByName('Qty').AsFloat * FieldByName('NoTaxPrice').AsFloat, 0);
end;
if not FieldByName('TaxRate').IsNull and (FieldByName('TaxRate').AsString <> '') then
FieldByName('TaxRate').Value := RoundFloat(FieldByName('TaxRate').AsFloat, 0);
if not FieldByName('Tax').IsNull and (FieldByName('Tax').AsString <> '') then
FieldByName('Tax').Value := RoundFloat(FieldByName('Tax').AsFloat, 0);
Post;
end;
end
else
begin
with CDS_1 do
begin
// 检查记录是否处于可编辑状态
if not (State in [dsEdit, dsInsert]) then
Edit;
// 使用一致的空值检查方式
if (not FieldByName('NoTaxPrice').IsNull) and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxPrice').Value := FormatFloat('0.00', FieldByName('NoTaxPrice').AsFloat);
end;
if (not FieldByName('Qty').IsNull) and (not FieldByName('NoTaxPrice').IsNull) and (FieldByName('Qty').AsString <> '') and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxInclude').Value := FormatFloat('0.00', FieldByName('NoTaxInclude').AsFloat);
end;
if not FieldByName('TaxRate').IsNull and (FieldByName('TaxRate').AsString <> '') then
begin
FieldByName('TaxRate').Value := FormatFloat('0.00', FieldByName('TaxRate').AsFloat);
end;
if not FieldByName('Tax').IsNull and (FieldByName('Tax').AsString <> '') then
begin
FieldByName('Tax').Value := FormatFloat('0.00', FieldByName('Tax').AsFloat);
end;
Post;
end;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmPayableBatchInput.Tv1FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmPayableBatchInput.Tv1FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -523,8 +640,9 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.CDS_1.Edit; Self.CDS_1.Edit;
Self.CDS_1.FieldByName('OppCoName').asstring := Trim(CDS_1.fieldbyname('CoName').AsString); Self.CDS_1.FieldByName('OppCoName').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
Self.CDS_1.FieldByName('OurCoNo').asstring := Trim(CDS_1.fieldbyname('CoCode').AsString); Self.CDS_1.FieldByName('OurCoNo').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_1.FieldByName('oppShuiNo').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('ShuiNo').AsString);
Self.CDS_1.Post; Self.CDS_1.Post;
end; end;
end; end;
@ -533,5 +651,238 @@ begin
end; end;
end; end;
procedure TfrmPayableBatchInput.Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
with frmFinTradePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
begin
//采购单
self.CDS_1.FieldByName('PurNo').value := null;
self.CDS_1.FieldByName('PurMID').value := null;
self.CDS_1.FieldByName('PurSID').value := null;
//织造单
self.CDS_1.FieldByName('OrderNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('OrdMainId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
self.CDS_1.FieldByName('OrdSubId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConMId').AsString);
self.CDS_1.FieldByName('ConSId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('BuyConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
// self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString);
// self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString);
// self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString);
// self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
// self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
// self.CDS_1.FieldByName('QtyUnit').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
// self.CDS_1.FieldByName('currency').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString);
// self.CDS_1.FieldByName('NoTaxPrice').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
// self.CDS_1.FieldByName('NoTaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').AsString);
// self.CDS_1.FieldByName('TaxRate').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').AsString);
// self.CDS_1.FieldByName('Tax').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').AsString);
// self.CDS_1.FieldByName('TaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').AsString);
self.CDS_1.Post;
end;
end;
end;
finally
frmFinTradePlanSel.Free;
end;
end;
procedure TfrmPayableBatchInput.TV1OurCoNamePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
self.CDS_1.Edit;
self.CDS_1.FieldByName('OurCoName').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
self.CDS_1.FieldByName('OurShuiNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('ShuiNo').AsString);
self.CDS_1.FieldByName('OurCoNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.CDS_1.Post;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmPayableBatchInput.Tv1PurNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmFinPurchasePlanSel := TfrmFinPurchasePlanSel.Create(Application);
with frmFinPurchasePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinPurchasePlanSel.CDS_1 do
begin
self.CDS_1.Edit;
//对方单位
self.CDS_1.FieldByName('OppCoName').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellName').AsString);
self.CDS_1.FieldByName('OppCoNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellNo').AsString);
//织造单号
self.CDS_1.FieldByName('OrderNo').value := null;
self.CDS_1.FieldByName('OrdMainId').value := null;
self.CDS_1.FieldByName('OrdSubId').value := null;
//类型
self.CDS_1.FieldByName('FinType').Value := '纱线';
self.CDS_1.FieldByName('FFAbstract').Value := '纱线采购';
//采购单
self.CDS_1.FieldByName('PurNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurNo').AsString);
self.CDS_1.FieldByName('PurMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurMId').AsString);
self.CDS_1.FieldByName('PurSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurSId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConMId').AsString);
self.CDS_1.FieldByName('ConSId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('CPConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
self.CDS_1.FieldByName('BuyConSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('F_Code').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString);
self.CDS_1.FieldByName('F_Name').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString);
// self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SubId').AsString);
// self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
self.CDS_1.FieldByName('F_Color').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString);
self.CDS_1.FieldByName('Piece').asstring := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
self.CDS_1.FieldByName('Qty').asstring := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
self.CDS_1.FieldByName('QtyUnit').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
self.CDS_1.FieldByName('currency').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString);
if not frmFinPurchasePlanSel.CDS_1.FieldByName('PRICE').IsNull then
begin
self.CDS_1.FieldByName('NoTaxPrice').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PRICE').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Amount').IsNull then
begin
self.CDS_1.FieldByName('NoTaxInclude').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxRate').IsNull then
begin
self.CDS_1.FieldByName('TaxRate').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Tax').IsNull then
begin
self.CDS_1.FieldByName('Tax').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxInclude').IsNull then
begin
self.CDS_1.FieldByName('TaxInclude').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').Value);
end;
self.CDS_1.Post;
end;
end;
end;
finally
frmFinPurchasePlanSel.Free;
end;
end;
procedure TfrmPayableBatchInput.Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FNoTaxPrice, FNoTaxInclude: Double; //数量，不含税单价，不含税金额
mTaxRate, mTax, mTaxInclude: Double; //税率，税额，含税金额
// mCP_QTY, mCP_TPXS: Double; //成品数量，投坯系数
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := StrToFloat(Trim(mvalue));
Post;
// ShowMessage(Fieldbyname('TaxRate').AsString);
if Fieldbyname('Qty').AsString <> '' then
begin
FQty := Fieldbyname('Qty').AsFloat;
end
else
begin
FQty := 0;
end;
if Fieldbyname('NoTaxPrice').AsString <> '' then
begin
FNoTaxPrice := Fieldbyname('NoTaxPrice').AsFloat;
end
else
begin
FNoTaxPrice := 0;
end;
if Fieldbyname('TaxRate').AsString <> '' then
begin
mTaxRate := Fieldbyname('TaxRate').AsFloat / 100;
end
else
begin
mTaxRate := 0;
end;
if Fieldbyname('Tax').AsString <> '' then
begin
mTax := Fieldbyname('Tax').AsFloat;
end
else
begin
mTax := 0;
end;
if Fieldbyname('TaxInclude').AsString <> '' then
begin
mTaxInclude := Fieldbyname('TaxInclude').AsFloat;
end
else
begin
mTaxInclude := 0;
end;
end;
FNoTaxInclude := RoundFloat(FQty * FNoTaxPrice, 2);
mTax := RoundFloat(FNoTaxInclude * mTaxRate, 2);
mTaxInclude := RoundFloat(FNoTaxInclude + mTax, 2);
with CDS_1 do
begin
Edit;
FieldByName('Qty').Value := FQty;
// FieldByName('ConPrice').Value := FConPrice;
FieldByName('NoTaxPrice').Value := FloatToStr(FNoTaxPrice);
FieldByName('NoTaxInclude').Value := FloatToStr(FNoTaxInclude);
FieldByName('TaxRate').Value := FloatToStr(mTaxRate * 100);
FieldByName('Tax').Value := FloatToStr(mTax);
FieldByName('TaxInclude').Value := FloatToStr(mTaxInclude);
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end. end.

67
A09财务通用管理/U_PayableList.dfm
View File

@ -330,13 +330,45 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
end end
object Tv1ReconciliationDate: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #23545#36134#26085#26399 Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'ReconciliationDate' DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object Tv1Column3: TcxGridDBColumn
Caption = #21457#31080#26085#26399
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 128
end
object Tv1oppShuiNo: TcxGridDBColumn
Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object Tv1OppCoName: TcxGridDBColumn
Caption = #20379#24212#21830#21517#31216
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 86 Width = 182
end
object Tv1ourShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'ourShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end end
object TV1OurCoName: TcxGridDBColumn object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
@ -346,14 +378,6 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 91 Width = 91
end end
object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object Tv1FinType: TcxGridDBColumn object Tv1FinType: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
DataBinding.FieldName = 'FinType' DataBinding.FieldName = 'FinType'
@ -516,12 +540,12 @@ inherited frmPayableList: TfrmPayableList
Width = 78 Width = 78
end end
object Tv1FromID1: TcxGridDBColumn object Tv1FromID1: TcxGridDBColumn
Caption = #26469#28304 Caption = #26469#28304#21333#21495'('#26469#28304')'
DataBinding.FieldName = 'FromID1' DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 78
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -544,6 +568,7 @@ inherited frmPayableList: TfrmPayableList
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
@ -612,23 +637,23 @@ inherited frmPayableList: TfrmPayableList
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 504 Left = 488
Top = 312 Top = 271
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 595 Left = 627
Top = 315 Top = 274
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 552 Left = 552
Top = 336 Top = 271
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 408 Left = 416
Top = 288 Top = 271
object N1: TMenuItem object N1: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
OnClick = N1Click OnClick = N1Click

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

@ -74,7 +74,6 @@ type
Tv1OrderNo: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn;
Tv1BuyConNo: TcxGridDBColumn; Tv1BuyConNo: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
Tv1ReconciliationDate: TcxGridDBColumn;
N3: TMenuItem; N3: TMenuItem;
Tv1FFAbstract: TcxGridDBColumn; Tv1FFAbstract: TcxGridDBColumn;
Tv1FromID1: TcxGridDBColumn; Tv1FromID1: TcxGridDBColumn;
@ -93,6 +92,11 @@ type
TbnBatchAdd: TToolButton; TbnBatchAdd: TToolButton;
Tv1FinType: TcxGridDBColumn; Tv1FinType: TcxGridDBColumn;
Tv1PurNo: TcxGridDBColumn; Tv1PurNo: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1oppShuiNo: TcxGridDBColumn;
Tv1ourShuiNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -179,6 +183,9 @@ begin
Filtered := False; Filtered := False;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''²ÆÎñÁ÷Ë®'' and X.WBID=A.FFID)>0 THEN 1 ELSE 0 END) AS BIT)'); sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''²ÆÎñÁ÷Ë®'' and X.WBID=A.FFID)>0 THEN 1 ELSE 0 END) AS BIT)');
sql.Add(' from Finance_Flow A '); sql.Add(' from Finance_Flow A ');
sql.Add(' where A.FFType=''Ó¦¸¶¿îµÇ¼Ç'' '); sql.Add(' where A.FFType=''Ó¦¸¶¿îµÇ¼Ç'' ');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
@ -581,7 +588,7 @@ begin
frmPayableBatchInput := TfrmPayableBatchInput.Create(Application); frmPayableBatchInput := TfrmPayableBatchInput.Create(Application);
with frmPayableBatchInput do with frmPayableBatchInput do
begin begin
// FFFID := ''; FFFID := '';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -597,11 +604,11 @@ begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then // if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin // begin
Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit; // Exit;
end; // end;
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -621,8 +628,8 @@ begin
end; end;
try try
frmPayableInput := TfrmPayableInput.Create(Application); frmPayableBatchInput := TfrmPayableBatchInput.Create(Application);
with frmPayableInput do with frmPayableBatchInput do
begin begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
@ -631,7 +638,7 @@ begin
end; end;
end; end;
finally finally
frmPayableInput.Free; frmPayableBatchInput.Free;
end; end;
end; end;

491
A09财务通用管理/U_PayableSel.dfm Normal file
View File

@ -0,0 +1,491 @@
inherited frmPayableSel: TfrmPayableSel
Left = 65
Top = 113
Caption = #24212#20184#27454#25209#37327#36873#25321
ClientHeight = 572
ClientWidth = 1406
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1422
ExplicitHeight = 611
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1406
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clSkyBlue
Images = cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
Visible = False
OnClick = TBSaveClick
end
object TBAdd: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
Visible = False
OnClick = TBAddClick
end
object TbOrdAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #32455#36896#21333#22686#34892
ImageIndex = 2
Visible = False
OnClick = TbOrdAddClick
end
object TbPurSel: TToolButton
Left = 261
Top = 0
AutoSize = True
Caption = #37319#36141#21333#22686#34892
ImageIndex = 2
Visible = False
OnClick = TbPurSelClick
end
object TBDel: TToolButton
Left = 380
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
Visible = False
OnClick = TBDelClick
end
object TbSSel: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = TbSSelClick
end
object ToolButton1: TToolButton
Left = 522
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 625
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 59
Width = 1406
Height = 513
Align = alClient
PopupMenu = PM_1
TabOrder = 1
ExplicitTop = 184
ExplicitHeight = 388
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Qty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1TaxInclude
end
item
Kind = skSum
Column = Tv1Piece
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Tax
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column22: TcxGridDBColumn
Tag = 99
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 43
end
object Tv1FFTime: TcxGridDBColumn
Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1OppCoNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 83
end
object Tv1FFAbstract: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1FFAbstractPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1PurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1PurNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1OrderNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object Tv1BuyConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 127
end
object Tv1FinType: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'FinType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#32433#32447
#38050#31576
#22383#24067
#26426#29289#26009)
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1F_Name: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1F_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv1F_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'F_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1F_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Piece: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'EUR'
'VND')
Properties.OnChange = Tv1CurrencyPropertiesChange
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1NoTaxPrice: TcxGridDBColumn
Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'NoTaxPrice'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 99
end
object Tv1NoTaxInclude: TcxGridDBColumn
Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'NoTaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108
end
object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1TaxInclude: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1FromID1: TcxGridDBColumn
Caption = #26469#28304
DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [2]
Left = 0
Top = 30
Width = 1406
Height = 29
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#24050#24320#31080
#26410#24320#31080
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ExplicitTop = 24
ClientRectRight = 0
ClientRectTop = 0
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 57
Top = 72
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 177
Top = 73
end
inherited ImageList_new32: TImageList
Left = 160
Top = 288
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 248
Top = 249
DesignInfo = 16318712
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 592
Top = 184
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 496
Top = 184
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 176
Top = 176
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 360
Top = 200
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 392
Top = 272
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 456
Top = 88
end
object PM_1: TPopupMenu
Left = 504
Top = 280
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N3: TMenuItem
Caption = #20840#24323
OnClick = N3Click
end
object N2: TMenuItem
Caption = #22797#21046
OnClick = N2Click
end
end
end

943
A09财务通用管理/U_PayableSel.pas Normal file
View File

@ -0,0 +1,943 @@
unit U_PayableSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox, Vcl.Menus,
Clipbrd, cxCurrencyEdit, cxPC;
type
TfrmPayableSel = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBAdd: TToolButton;
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
DS_1: TDataSource;
CDS_1: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
GPM_1: TcxGridPopupMenu;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column22: TcxGridDBColumn;
Tv1FFTime: TcxGridDBColumn;
TV1OurCoName: TcxGridDBColumn;
Tv1OppCoName: TcxGridDBColumn;
Tv1FFAbstract: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1BuyConNo: TcxGridDBColumn;
Tv1F_Code: TcxGridDBColumn;
Tv1F_Name: TcxGridDBColumn;
Tv1F_Width: TcxGridDBColumn;
Tv1F_GramWeight: TcxGridDBColumn;
Tv1F_Color: TcxGridDBColumn;
Tv1Piece: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1Currency: TcxGridDBColumn;
Tv1NoTaxPrice: TcxGridDBColumn;
Tv1NoTaxInclude: TcxGridDBColumn;
Tv1TaxRate: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
Tv1FromID1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TbOrdAdd: TToolButton;
Tv1PurNo: TcxGridDBColumn;
Tv1FinType: TcxGridDBColumn;
TbPurSel: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;
N3: TMenuItem;
N2: TMenuItem;
TbSSel: TToolButton;
cxTabControl1: TcxTabControl;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TBAddClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TbOrdAddClick(Sender: TObject);
procedure TbPurSelClick(Sender: TObject);
procedure Tv1OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Tv1PurNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1CurrencyPropertiesChange(Sender: TObject);
procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
procedure TbSSelClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
procedure InitGrid();
public
{ Public declarations }
FBCId, FKHName: string;
FFFID: string;
FNoTaxInclude, FTax, FTaxInclude: Double; //不含税金额，税额，含税金额 ，选择应付款主键
FFFIDs: string;
end;
var
frmPayableSel: TfrmPayableSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_FinTradePlanSel,
U_FinPurchasePlanSel;
{$R *.dfm}
procedure TfrmPayableSel.cxTabControl1Change(Sender: TObject);
begin
// SetStatus();
InitGrid();
end;
procedure TfrmPayableSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmPayableSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' select A.* ');
sql.Add(' from Finance_Flow A ');
sql.Add(' where CheckStatus = ''未审核'' ');
SQL.Add(' and FFFlag = ''应付付'' ');
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and EXISTS ( select 1 from Finance_FlowInvoice X where X.FFID=A.FFID ) ');
end;
1:
begin
sql.Add(' and not EXISTS ( select 1 from Finance_FlowInvoice X where X.FFID=A.FFID ) ');
end;
end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmPayableSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmPayableSel.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmPayableSel.N3Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
function TfrmPayableSel.SaveData(): Boolean;
var
Maxno, MFFID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Finance_Flow where FFID=''' + Trim(CDS_1.fieldbyname('FFID').AsString) + '''');
open;
end;
MFFID := Trim(ADOQueryTemp.fieldbyname('FFID').AsString);
if Trim(MFFID) = '' then
begin
if not GetLSNo(ADOQueryCmd, Maxno, 'YFK', 'Finance_Flow', 3, 1) then
raise Exception.Create('取应收款编号失败！');
end
else
begin
Maxno := Trim(MFFID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Finance_Flow where FFID=''' + Trim(Maxno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(MFFID) = '' then
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editid').Value := Trim(Dcode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Finance_Flow', 0);
FieldByName('FFID').Value := Maxno;
FieldByName('FFFlag').Value := '应付付';
FieldByName('FFType').Value := '应付款登记';
FieldByName('CheckStatus').Value := '未审核';
//织造单号
FieldByName('OrdMainId').Value := CDS_1.fieldbyname('OrdMainId').Value;
FieldByName('OrdSubId').Value := CDS_1.fieldbyname('OrdSubId').Value;
//织造单号
FieldByName('PurMID').Value := CDS_1.fieldbyname('PurMID').Value;
FieldByName('PurSID').Value := CDS_1.fieldbyname('PurSID').Value;
//坯布合同
FieldByName('ConMId').Value := CDS_1.fieldbyname('ConMId').value;
FieldByName('ConSId').Value := CDS_1.fieldbyname('ConSId').value;
//面料合同
FieldByName('BuyConMID').Value := CDS_1.fieldbyname('BuyConMID').value;
FieldByName('BuyConSID').Value := CDS_1.fieldbyname('BuyConSID').Value;
//对方单位
FieldByName('OppCoNo').Value := CDS_1.fieldbyname('OppCoNo').Value;
//我方单位
FieldByName('OurCoNo').Value := CDS_1.fieldbyname('OurCoNo').Value;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)');
sql.Add('values(''应付款批量登记'' ');
sql.Add(',' + quotedstr(Maxno));
sql.Add(',''保存'' ');
sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(Maxno));
sql.Add(') ');
ExecSQL;
end;
Next;
end;
end;
CDS_1.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
CDS_1.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmPayableSel.TBAddClick(Sender: TObject);
begin
CDS_1.Append;
CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
CDS_1.FieldByName('SSel').Value := False;
CDS_1.Post;
end;
procedure TfrmPayableSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmPayableSel.TBDelClick(Sender: TObject);
begin
CDS_1.Delete;
end;
procedure TfrmPayableSel.TbOrdAddClick(Sender: TObject);
begin
try
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
with frmFinTradePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
begin
//织造单
self.CDS_1.FieldByName('OrderNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('OrdMainId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
self.CDS_1.FieldByName('OrdSubId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConMId').AsString);
self.CDS_1.FieldByName('ConSId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('BuyConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
end;
end;
end;
finally
frmFinTradePlanSel.Free;
end;
end;
procedure TfrmPayableSel.FormShow(Sender: TObject);
var
fsj: string;
begin
inherited;
ReadCxGrid('应付款选择', Tv1, '应付款选择');
InitGrid();
end;
procedure TfrmPayableSel.TBSaveClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('FFTime', null, []) = True then
begin
Application.MessageBox('登记日期不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('ReconciliationDate', null, []) = True then
begin
Application.MessageBox('对账日期不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('FinType', null, []) = True then
begin
Application.MessageBox('请选择类型!', '提示', 0);
Exit;
end;
if CDS_1.Locate('Qty', null, []) = True then
begin
Application.MessageBox('数量不能为空!', '提示', 0);
Exit;
end;
// CDS_1.First;
// while not CDS_1.Eof do
// begin
// // 同时判断两个条件
// if (CDS_1.FieldByName('IOType').AsString = '车间领用') and (CDS_1.FieldByName('ToOrdNo').IsNull or (Trim(CDS_1.FieldByName('ToOrdNo').AsString) = '')) then
// begin
// Application.MessageBox('请选择车间领用 出到织造单!', '提示', 0);
// Exit;
// end;
// CDS_1.Next;
// end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
//ModalResult:=1;
Exit;
end;
end;
procedure TfrmPayableSel.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid('应付款选择', Tv1, '应付款选择');
end;
procedure TfrmPayableSel.TbPurSelClick(Sender: TObject);
begin
try
frmFinPurchasePlanSel := TfrmFinPurchasePlanSel.Create(Application);
with frmFinPurchasePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinPurchasePlanSel.CDS_1 do
begin
first;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
with Self.CDS_1 do
begin
append;
//对方单位
self.CDS_1.FieldByName('OppCoName').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellName').Value);
self.CDS_1.FieldByName('OppCoNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellNo').Value);
//我方单位
self.CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
self.CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
self.CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
self.CDS_1.FieldByName('FinType').Value := '纱线';
self.CDS_1.FieldByName('Currency').Value := 'CNY';
self.CDS_1.FieldByName('SSel').Value := False;
self.CDS_1.FieldByName('FFAbstract').Value := '纱线采购';
//采购单
self.CDS_1.FieldByName('PurNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurNo').AsString);
self.CDS_1.FieldByName('PurMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurMId').AsString);
self.CDS_1.FieldByName('PurSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurSId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConMId').AsString);
self.CDS_1.FieldByName('ConSId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('CPConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
self.CDS_1.FieldByName('BuyConSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('F_Code').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').Value);
self.CDS_1.FieldByName('F_Name').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').Value);
// self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SubId').AsString);
// self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
self.CDS_1.FieldByName('F_Color').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').Value);
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Piece').IsNull then
begin
self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Qty').IsNull then
begin
self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
end;
self.CDS_1.FieldByName('QtyUnit').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
self.CDS_1.FieldByName('currency').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString);
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Price').IsNull then
begin
self.CDS_1.FieldByName('NoTaxPrice').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Price').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Amount').IsNull then
begin
self.CDS_1.FieldByName('NoTaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxRate').IsNull then
begin
self.CDS_1.FieldByName('TaxRate').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Tax').IsNull then
begin
self.CDS_1.FieldByName('Tax').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').AsString);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxInclude').IsNull then
begin
self.CDS_1.FieldByName('TaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').AsString);
end;
Post;
end;
end;
frmFinPurchasePlanSel.CDS_1.Next;
end;
end;
end;
end;
finally
frmFinPurchasePlanSel.Free;
end;
end;
procedure TfrmPayableSel.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
with Self.CDS_1 do
begin
Edit;
FieldByName('ToCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('ToCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
post;
end;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmPayableSel.Tv1CurrencyPropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
// if not Assigned(Sender) or not (Sender is TComboBox) then
// Exit;
if TComboBox(Sender).Text = 'VND' then
begin
with CDS_1 do
begin
// 检查记录是否处于可编辑状态
if not (State in [dsEdit, dsInsert]) then
Edit;
// 检查字段是否存在且不为空
if not FieldByName('NoTaxPrice').IsNull and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxPrice').Value := RoundFloat(FieldByName('NoTaxPrice').AsFloat, 0);
end;
// 检查Qty和NoTaxPrice字段是否存在且不为空
if not FieldByName('Qty').IsNull and not FieldByName('NoTaxPrice').IsNull and (FieldByName('Qty').AsString <> '') and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxInclude').Value := RoundFloat(FieldByName('Qty').AsFloat * FieldByName('NoTaxPrice').AsFloat, 0);
end;
if not FieldByName('TaxRate').IsNull and (FieldByName('TaxRate').AsString <> '') then
FieldByName('TaxRate').Value := RoundFloat(FieldByName('TaxRate').AsFloat, 0);
if not FieldByName('Tax').IsNull and (FieldByName('Tax').AsString <> '') then
FieldByName('Tax').Value := RoundFloat(FieldByName('Tax').AsFloat, 0);
Post;
end;
end
else
begin
with CDS_1 do
begin
// 检查记录是否处于可编辑状态
if not (State in [dsEdit, dsInsert]) then
Edit;
// 使用一致的空值检查方式
if (not FieldByName('NoTaxPrice').IsNull) and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxPrice').Value := FormatFloat('0.00', FieldByName('NoTaxPrice').AsFloat);
end;
if (not FieldByName('Qty').IsNull) and (not FieldByName('NoTaxPrice').IsNull) and (FieldByName('Qty').AsString <> '') and (FieldByName('NoTaxPrice').AsString <> '') then
begin
FieldByName('NoTaxInclude').Value := FormatFloat('0.00', FieldByName('NoTaxInclude').AsFloat);
end;
if not FieldByName('TaxRate').IsNull and (FieldByName('TaxRate').AsString <> '') then
begin
FieldByName('TaxRate').Value := FormatFloat('0.00', FieldByName('TaxRate').AsFloat);
end;
if not FieldByName('Tax').IsNull and (FieldByName('Tax').AsString <> '') then
begin
FieldByName('Tax').Value := FormatFloat('0.00', FieldByName('Tax').AsFloat);
end;
Post;
end;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmPayableSel.Tv1FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FFAbstract';
flagname := '摘要';
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('FFAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.CDS_1.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmPayableSel.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
FFSPID: string;
begin
// if CDS_Sub.IsEmpty then
// Exit;
// if Trim(CDS_Sub.fieldbyname('BYIOID').AsString) <> '' then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('BYIOID').AsString) + '''');
// Open;
// end;
// FFSPID := Trim(ADOQueryTemp.fieldbyname('BYIOID').AsString);
// if Trim(FFSPID) <> '' then
// begin
// v1CRType.Options.Editing := False;
// end
// else
// begin
// v1CRType.Options.Editing := True;
// end;
// end
// else
// begin
// v1CRType.Options.Editing := True;
// end;
end;
procedure TfrmPayableSel.Tv1OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('OppCoName').asstring := Trim(CDS_1.fieldbyname('CoName').AsString);
Self.CDS_1.FieldByName('OurCoNo').asstring := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_1.Post;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmPayableSel.Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
with frmFinTradePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
begin
//采购单
self.CDS_1.FieldByName('PurNo').value := null;
self.CDS_1.FieldByName('PurMID').value := null;
self.CDS_1.FieldByName('PurSID').value := null;
//织造单
self.CDS_1.FieldByName('OrderNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('OrdMainId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
self.CDS_1.FieldByName('OrdSubId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConMId').AsString);
self.CDS_1.FieldByName('ConSId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('BuyConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
// self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString);
// self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString);
// self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString);
// self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
// self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
// self.CDS_1.FieldByName('QtyUnit').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
// self.CDS_1.FieldByName('currency').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString);
// self.CDS_1.FieldByName('NoTaxPrice').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
// self.CDS_1.FieldByName('NoTaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').AsString);
// self.CDS_1.FieldByName('TaxRate').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').AsString);
// self.CDS_1.FieldByName('Tax').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').AsString);
// self.CDS_1.FieldByName('TaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').AsString);
self.CDS_1.Post;
end;
end;
end;
finally
frmFinTradePlanSel.Free;
end;
end;
procedure TfrmPayableSel.Tv1PurNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmFinPurchasePlanSel := TfrmFinPurchasePlanSel.Create(Application);
with frmFinPurchasePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinPurchasePlanSel.CDS_1 do
begin
self.CDS_1.Edit;
//对方单位
self.CDS_1.FieldByName('OppCoName').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellName').AsString);
self.CDS_1.FieldByName('OppCoNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SellNo').AsString);
//织造单号
self.CDS_1.FieldByName('OrderNo').value := null;
self.CDS_1.FieldByName('OrdMainId').value := null;
self.CDS_1.FieldByName('OrdSubId').value := null;
//类型
self.CDS_1.FieldByName('FinType').Value := '纱线';
self.CDS_1.FieldByName('FFAbstract').Value := '纱线采购';
//采购单
self.CDS_1.FieldByName('PurNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurNo').AsString);
self.CDS_1.FieldByName('PurMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurMId').AsString);
self.CDS_1.FieldByName('PurSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurSId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConMId').AsString);
self.CDS_1.FieldByName('ConSId').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('CPConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
self.CDS_1.FieldByName('BuyConSID').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('F_Code').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString);
self.CDS_1.FieldByName('F_Name').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString);
// self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SubId').AsString);
// self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
self.CDS_1.FieldByName('F_Color').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString);
self.CDS_1.FieldByName('Piece').asstring := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
self.CDS_1.FieldByName('Qty').asstring := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
self.CDS_1.FieldByName('QtyUnit').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
self.CDS_1.FieldByName('currency').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString);
if not frmFinPurchasePlanSel.CDS_1.FieldByName('PRICE').IsNull then
begin
self.CDS_1.FieldByName('NoTaxPrice').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PRICE').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Amount').IsNull then
begin
self.CDS_1.FieldByName('NoTaxInclude').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxRate').IsNull then
begin
self.CDS_1.FieldByName('TaxRate').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('Tax').IsNull then
begin
self.CDS_1.FieldByName('Tax').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').Value);
end;
if not frmFinPurchasePlanSel.CDS_1.FieldByName('TaxInclude').IsNull then
begin
self.CDS_1.FieldByName('TaxInclude').Value := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').Value);
end;
self.CDS_1.Post;
end;
end;
end;
finally
frmFinPurchasePlanSel.Free;
end;
end;
procedure TfrmPayableSel.Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FNoTaxPrice, FNoTaxInclude: Double; //数量，不含税单价，不含税金额
mTaxRate, mTax, mTaxInclude: Double; //税率，税额，含税金额
// mCP_QTY, mCP_TPXS: Double; //成品数量，投坯系数
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := StrToFloat(Trim(mvalue));
Post;
// ShowMessage(Fieldbyname('TaxRate').AsString);
if Fieldbyname('Qty').AsString <> '' then
begin
FQty := Fieldbyname('Qty').AsFloat;
end
else
begin
FQty := 0;
end;
if Fieldbyname('NoTaxPrice').AsString <> '' then
begin
FNoTaxPrice := Fieldbyname('NoTaxPrice').AsFloat;
end
else
begin
FNoTaxPrice := 0;
end;
if Fieldbyname('TaxRate').AsString <> '' then
begin
mTaxRate := Fieldbyname('TaxRate').AsFloat / 100;
end
else
begin
mTaxRate := 0;
end;
if Fieldbyname('Tax').AsString <> '' then
begin
mTax := Fieldbyname('Tax').AsFloat;
end
else
begin
mTax := 0;
end;
if Fieldbyname('TaxInclude').AsString <> '' then
begin
mTaxInclude := Fieldbyname('TaxInclude').AsFloat;
end
else
begin
mTaxInclude := 0;
end;
end;
FNoTaxInclude := RoundFloat(FQty * FNoTaxPrice, 2);
mTax := RoundFloat(FNoTaxInclude * mTaxRate, 2);
mTaxInclude := RoundFloat(FNoTaxInclude + mTax, 2);
with CDS_1 do
begin
Edit;
FieldByName('Qty').Value := FQty;
// FieldByName('ConPrice').Value := FConPrice;
FieldByName('NoTaxPrice').Value := FloatToStr(FNoTaxPrice);
FieldByName('NoTaxInclude').Value := FloatToStr(FNoTaxInclude);
FieldByName('TaxRate').Value := FloatToStr(mTaxRate * 100);
FieldByName('Tax').Value := FloatToStr(mTax);
FieldByName('TaxInclude').Value := FloatToStr(mTaxInclude);
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmPayableSel.TbSSelClick(Sender: TObject);
var
FirstOppCoName: string;
bAllSame: Boolean;
begin
if not CDS_1.Locate('ssel', True, []) then
begin
Application.MessageBox('请先选择数据！', '提示信息', MB_OK);
Exit;
end;
//判断所选供应商是否是同一个
FNoTaxInclude := 0;
FTax := 0;
FTaxInclude := 0;
FFFID := '';
CDS_1.First;
FirstOppCoName := '';
bAllSame := True;
with CDS_1 do
begin
while not Eof do
begin
if FieldByName('Ssel').AsBoolean then
begin
if FirstOppCoName = '' then
FirstOppCoName := FieldByName('OppCoName').AsString
else if FirstOppCoName <> FieldByName('OppCoName').AsString then
begin
bAllSame := False;
Break;
end;
FNoTaxInclude := FNoTaxInclude + CDS_1.FieldByName('NoTaxInclude').AsFloat;
FTax := FTax + CDS_1.FieldByName('Tax').AsFloat;
FTaxInclude := FTaxInclude + CDS_1.FieldByName('TaxInclude').AsFloat;
if FFFIDs = '' then
begin
FFFIDs := CDS_1.FieldByName('FFID').AsString;
end
else
begin
FFFIDs := FFFIDs + ',' + CDS_1.FieldByName('FFID').AsString;
end;
end;
Next;
end;
end;
if not bAllSame then
begin
ShowMessage('选择的对方单位不相同');
exit;
end;
ModalResult := 1;
end;
end.

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

@ -34,6 +34,7 @@ object frmReceivableInput: TfrmReceivableInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0

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

@ -136,8 +136,6 @@ inherited frmReceivableList: TfrmReceivableList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitLeft = 8
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 250 Left = 250
Top = 8 Top = 8
@ -390,14 +388,14 @@ inherited frmReceivableList: TfrmReceivableList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 82
end end
object Tv1Column21: TcxGridDBColumn object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Width = 80
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495

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

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
@ -10,7 +10,7 @@
<Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<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.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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
@ -29,8 +29,8 @@
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
@ -47,10 +47,10 @@
<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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.519,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.242,=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> <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.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction>
@ -58,9 +58,9 @@
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>

4
B01基础合同管理/U_SalesContractList.dfm
View File

@ -621,6 +621,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 6 TabOrder = 6
ExplicitTop = 36
object Label4: TLabel object Label4: TLabel
Left = 268 Left = 268
Top = 50 Top = 50
@ -733,6 +734,8 @@ inherited frmSalesContractList: TfrmSalesContractList
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitLeft = 1
ExplicitTop = 115
ClientRectBottom = 34 ClientRectBottom = 34
ClientRectLeft = 2 ClientRectLeft = 2
ClientRectRight = 1538 ClientRectRight = 1538
@ -745,6 +748,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
ExplicitTop = 488
end end
object Panel2: TPanel [5] object Panel2: TPanel [5]
Left = 0 Left = 0

1
B02基础纱线仓库/U_YarnInEdit.dfm
View File

@ -21,6 +21,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Height = 549 Height = 549
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 36
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

6
B02基础纱线仓库/U_YarnInEdit.pas
View File

@ -449,9 +449,9 @@ begin
FieldByName('FromCoName').Value := CDS_1.fieldbyname('SellName').value;//윱菱데貫 묩壇<EFBFBD> FieldByName('FromCoName').Value := CDS_1.fieldbyname('SellName').value;//윱菱데貫 묩壇<EFBFBD>
FieldByName('FromCoNo').Value := CDS_1.fieldbyname('SellNo').value; FieldByName('FromCoNo').Value := CDS_1.fieldbyname('SellNo').value;
//흙욋廉芚데 //흙욋廉芚데
FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('FromOrdNo').value; // FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('FromOrdNo').value;
FieldByName('FromMainId').Value := CDS_1.fieldbyname('FromMainId').value; // FieldByName('FromMainId').Value := CDS_1.fieldbyname('FromMainId').value;
FieldByName('FromSubId').Value := CDS_1.fieldbyname('FromSubId').value; // FieldByName('FromSubId').Value := CDS_1.fieldbyname('FromSubId').value;
// 놔욋廉芚데 // 놔욋廉芚데
// FieldByName('ToOrdNo').Value := CDS_1.fieldbyname('PurNo').value; // FieldByName('ToOrdNo').Value := CDS_1.fieldbyname('PurNo').value;
// FieldByName('ToMainId').Value := CDS_1.fieldbyname('PurNo').value; // FieldByName('ToMainId').Value := CDS_1.fieldbyname('PurNo').value;

2
B02基础纱线仓库/U_YarnInList.dfm
View File

@ -5,6 +5,7 @@ inherited frmYarnInList: TfrmYarnInList
ClientHeight = 640 ClientHeight = 640
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
ExplicitLeft = -689
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 679 ExplicitHeight = 679
PixelsPerInch = 96 PixelsPerInch = 96
@ -158,6 +159,7 @@ inherited frmYarnInList: TfrmYarnInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 717 Left = 717
Top = 46 Top = 46

194
B02基础纱线仓库/YarnStk.dproj.local
View File

@ -1,103 +1,103 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm</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.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.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.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm</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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm</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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.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.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.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.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.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.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.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.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.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.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.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.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.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.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\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.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.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.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.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.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>2025-09-02 12:38:38.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>2025-09-02 12:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>2026-02-06 16:59:00.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>2026-02-06 17:00:15.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2026-02-06 17:00:45.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

BIN
B02基础纱线仓库/YarnStk.identcache
View File

Binary file not shown.

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

@ -1,62 +1,62 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<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.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.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_YarnInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.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.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.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.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</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.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.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.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.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.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</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.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.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,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.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.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>2025/12/06 09:54:40.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction> <Transaction>2025-12-06 09:54:40.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

88
B04采购计划管理/U_YarnPurchasePlanList.dfm
View File

@ -7,6 +7,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -513
ExplicitWidth = 1380 ExplicitWidth = 1380
ExplicitHeight = 774 ExplicitHeight = 774
PixelsPerInch = 96 PixelsPerInch = 96
@ -28,6 +29,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 4 TabOrder = 4
ExplicitTop = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -190,6 +192,8 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Align = alClient Align = alClient
PopupMenu = pm1 PopupMenu = pm1
TabOrder = 3 TabOrder = 3
ExplicitLeft = 8
ExplicitTop = 162
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -252,6 +256,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object v1ConNo: TcxGridDBColumn object v1ConNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo' DataBinding.FieldName = 'PurNo'
@ -341,31 +352,49 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Width = 80 Width = 80
end end
object Tv1Price: TcxGridDBColumn object Tv1Price: TcxGridDBColumn
Caption = #21333#20215 Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 131
end
object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end end
object Tv1Amount: TcxGridDBColumn object Tv1Amount: TcxGridDBColumn
Caption = #37329#39069 Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 117
end
object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575'%'
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1TaxInclude: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1currency: TcxGridDBColumn object Tv1currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'currency' DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1SNote: TcxGridDBColumn object Tv1SNote: TcxGridDBColumn
@ -373,6 +402,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
DataBinding.FieldName = 'SNote' DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1RKDate: TcxGridDBColumn object Tv1RKDate: TcxGridDBColumn
@ -473,6 +503,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 54
object Label4: TLabel object Label4: TLabel
Left = 452 Left = 452
Top = 45 Top = 45
@ -605,6 +636,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Align = alBottom Align = alBottom
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 7 TabOrder = 7
ExplicitLeft = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -762,7 +794,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Width = 80 Width = 80
end end
object v1PRTPrice: TcxGridDBColumn object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215 Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -771,15 +803,8 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Sorting = False Options.Sorting = False
Width = 90 Width = 90
end end
object Tv2TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #37329#39069 Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -787,12 +812,37 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
Width = 90 Width = 90
end end
object Tv2TaxRate: TcxGridDBColumn
Caption = #31246#29575'%'
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv2Tax: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv2TaxInclude: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object Tv2currency: TcxGridDBColumn object Tv2currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'currency' DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
end end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399

12
B04采购计划管理/U_YarnPurchasePlanList.pas
View File

@ -127,6 +127,11 @@ type
Tv1SNote: TcxGridDBColumn; Tv1SNote: TcxGridDBColumn;
Tbdelete: TToolButton; Tbdelete: TToolButton;
Tv2Conno: TcxGridDBColumn; Tv2Conno: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv2Tax: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn;
Tv2TaxInclude: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -297,6 +302,9 @@ begin
Tv1SNote.Visible := False; Tv1SNote.Visible := False;
Tv1RKDate.Visible := False; Tv1RKDate.Visible := False;
Tv1RKQty.Visible := False; Tv1RKQty.Visible := False;
Tv1ConNo.Visible := False;
Tv1Tax.Visible := False;
Tv1TaxInclude.Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -307,7 +315,6 @@ begin
end; end;
1: 1:
begin begin
btnCXTijiao.Enabled := True; btnCXTijiao.Enabled := True;
end; end;
2: 2:
@ -350,6 +357,9 @@ begin
Tv1SNote.Visible := False; Tv1SNote.Visible := False;
Tv1RKDate.Visible := False; Tv1RKDate.Visible := False;
Tv1RKQty.Visible := False; Tv1RKQty.Visible := False;
Tv1ConNo.Visible := False;
Tv1Tax.Visible := False;
Tv1TaxInclude.Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:

4
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -125,6 +125,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -352,7 +353,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Properties.OnButtonClick = Tv1TaxRatePropertiesButtonClick Properties.OnButtonClick = Tv1TaxRatePropertiesButtonClick
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 82
end end
object Tv1Tax: TcxGridDBColumn object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069 Caption = #31246#39069
@ -427,6 +428,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
ExplicitTop = 36
object lbl5: TLabel object lbl5: TLabel
Left = 32 Left = 32
Top = 50 Top = 50

160
T02贸易汇总仓库/TradeTotalClothStk.dproj.local
View File

@ -1,114 +1,114 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.379,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T02贸易汇总仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.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.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.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.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.379,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T02贸易汇总仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.656,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.656,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.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.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.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.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.246,=D:\Dp10RepoV1\项目代码\D10szYueXiang\T02贸易汇总仓库\U_CollectImport.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.246,=D:\Dp10RepoV1\项目代码\D10szYueXiang\T02贸易汇总仓库\U_CollectImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.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.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm</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.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.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.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm</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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm</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.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.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.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.662,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.662,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.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.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm</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.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</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.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm</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.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.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.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

BIN
T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

22
T02贸易汇总仓库/U_TradeGreyClothOutList.dfm
View File

@ -3,10 +3,10 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
Top = 98 Top = 98
Caption = #22383#24067#20986#24211#21015#34920 Caption = #22383#24067#20986#24211#21015#34920
ClientHeight = 544 ClientHeight = 544
ClientWidth = 1595 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1611 ExplicitWidth = 1556
ExplicitHeight = 583 ExplicitHeight = 583
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -14,7 +14,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1595 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -117,14 +117,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1595 Width = 1540
Height = 139 Height = 139
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 4
object Label3: TLabel object Label3: TLabel
Left = 289 Left = 289
Top = 52 Top = 52
@ -259,15 +259,19 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
ParentColor = False ParentColor = False
TabOrder = 8 TabOrder = 8
ExplicitTop = 6 ExplicitTop = 6
inherited cbbType: TcxComboBox ExplicitHeight = 37
ExplicitHeight = 29 inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end end
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 169 Top = 169
Width = 1595 Width = 1540
Height = 375 Height = 375
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -614,7 +618,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
Top = 303 Top = 303
ExplicitLeft = 378 ExplicitLeft = 378
ExplicitTop = 303 ExplicitTop = 303
ExplicitHeight = 28 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink Connection = DataLink_TradeTotalClothStk.ADOLink

3
T02贸易汇总仓库/U_TradeGreyClothOutList.pas
View File

@ -13,7 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations, FrameDateSel, cxContainer, cxProgressBar; dxScrollbarAnnotations, FrameDateSel, cxContainer, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmTradeGreyClothOutList = class(TfrmBaseList) TfrmTradeGreyClothOutList = class(TfrmBaseList)