diff --git a/A00通用窗体/U_YarnPurchasePlanSel.pas b/A00通用窗体/U_YarnPurchasePlanSel.pas index 86cc523..8a7061f 100644 --- a/A00通用窗体/U_YarnPurchasePlanSel.pas +++ b/A00通用窗体/U_YarnPurchasePlanSel.pas @@ -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(' ,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(' ,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(' ,FromSubId=(select OrderNo from Tat_Plan_Sub X where X.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(' ,FromSubId=(select OrderNo from Tat_Plan_Sub X where X.ConNo=B.ConNo) '); sql.Add(' from Pur_YarnPlan_Main A'); sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId'); sql.Add(' where isnull(LX,'''') <> ''֯쵥'' and isnull(A.status,''0'')=''9'''); @@ -202,7 +202,6 @@ end; procedure TfrmYarnPurchasePlanSel.N1Click(Sender: TObject); begin SelOKNo(CDS_1, true); - end; procedure TfrmYarnPurchasePlanSel.N2Click(Sender: TObject); diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 09c6e3f..b303a04 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -26,9 +26,9 @@ 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas 1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= - 1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas - 1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas 1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas 1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 11a8dc4..b437efc 100644 Binary files a/A01基础公司管理/Company.identcache and b/A01基础公司管理/Company.identcache differ diff --git a/A01基础公司管理/U_Company.dfm b/A01基础公司管理/U_Company.dfm index 67d73d3..d7241ec 100644 --- a/A01基础公司管理/U_Company.dfm +++ b/A01基础公司管理/U_Company.dfm @@ -30,6 +30,7 @@ inherited frmCompany: TfrmCompany ParentColor = False ShowCaptions = True TabOrder = 3 + ExplicitTop = 2 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -94,6 +95,7 @@ inherited frmCompany: TfrmCompany Height = 542 Align = alClient TabOrder = 4 + ExplicitLeft = -8 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -141,6 +143,13 @@ inherited frmCompany: TfrmCompany HeaderAlignmentHorz = taCenter Width = 173 end + object Tv1ShuiNo: TcxGridDBColumn + Caption = #31246#21495 + DataBinding.FieldName = 'ShuiNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 @@ -157,6 +166,8 @@ inherited frmCompany: TfrmCompany Color = clWhite ParentBackground = False TabOrder = 2 + ExplicitLeft = 8 + ExplicitTop = 24 object Label3: TLabel Left = 315 Top = 8 diff --git a/A01基础公司管理/U_Company.pas b/A01基础公司管理/U_Company.pas index e36d87e..74aa966 100644 --- a/A01基础公司管理/U_Company.pas +++ b/A01基础公司管理/U_Company.pas @@ -45,6 +45,7 @@ type ToolButton5: TToolButton; CoName: TcxTextEdit; CoCode: TcxTextEdit; + Tv1ShuiNo: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A01基础公司管理/U_CustomerInput.dfm b/A01基础公司管理/U_CustomerInput.dfm index 7377dba..51c45a2 100644 --- a/A01基础公司管理/U_CustomerInput.dfm +++ b/A01基础公司管理/U_CustomerInput.dfm @@ -2,23 +2,23 @@ inherited frmCustomerInput: TfrmCustomerInput Left = 261 Top = 149 Caption = #20844#21496#24405#20837 - ClientHeight = 286 - ClientWidth = 599 + ClientHeight = 329 + ClientWidth = 687 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -16 OldCreateOrder = True Position = poScreenCenter OnClose = FormClose - ExplicitWidth = 615 - ExplicitHeight = 325 + ExplicitWidth = 703 + ExplicitHeight = 368 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 - Width = 599 + Width = 687 Height = 30 AutoSize = True ButtonHeight = 30 @@ -31,6 +31,7 @@ inherited frmCustomerInput: TfrmCustomerInput ParentColor = False ShowCaptions = True TabOrder = 0 + ExplicitWidth = 599 object ToolButton3: TToolButton Left = 0 Top = 0 @@ -51,8 +52,8 @@ inherited frmCustomerInput: TfrmCustomerInput object ScrollBox1: TScrollBox [1] Left = 0 Top = 30 - Width = 599 - Height = 256 + Width = 687 + Height = 299 Align = alClient BevelInner = bvNone BevelOuter = bvNone @@ -62,6 +63,8 @@ inherited frmCustomerInput: TfrmCustomerInput ParentColor = False ParentCtl3D = False TabOrder = 1 + ExplicitWidth = 730 + ExplicitHeight = 291 object Label2: TLabel Left = 15 Top = 12 @@ -78,14 +81,14 @@ inherited frmCustomerInput: TfrmCustomerInput end object Label39: TLabel Left = 15 - Top = 84 + Top = 123 Width = 32 Height = 21 Caption = #22320#22336 end object Label7: TLabel Left = 15 - Top = 128 + Top = 167 Width = 32 Height = 21 Caption = #22791#27880 @@ -97,6 +100,13 @@ inherited frmCustomerInput: TfrmCustomerInput Height = 21 Caption = #31616#31216 end + object Label1: TLabel + Left = 15 + Top = 83 + Width = 32 + Height = 21 + Caption = #31246#21495 + end object CoName: TcxTextEdit Tag = 2 Left = 53 @@ -114,7 +124,7 @@ inherited frmCustomerInput: TfrmCustomerInput object CoAddress: TcxTextEdit Tag = 2 Left = 53 - Top = 81 + Top = 120 TabOrder = 2 Width = 504 end @@ -128,11 +138,18 @@ inherited frmCustomerInput: TfrmCustomerInput object CoNote: TcxMemo Tag = 2 Left = 53 - Top = 128 + Top = 167 TabOrder = 4 Height = 77 Width = 504 end + object ShuiNo: TcxTextEdit + Tag = 2 + Left = 53 + Top = 80 + TabOrder = 5 + Width = 504 + end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_Company.ADOLink diff --git a/A01基础公司管理/U_CustomerInput.pas b/A01基础公司管理/U_CustomerInput.pas index a046bbc..b85a136 100644 --- a/A01基础公司管理/U_CustomerInput.pas +++ b/A01基础公司管理/U_CustomerInput.pas @@ -16,7 +16,7 @@ uses cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, cxMemo, U_BaseInput, System.ImageList, - Vcl.ImgList, cxImageList; + Vcl.ImgList, cxImageList, dxSkinsCore, dxSkinsDefaultPainters; type TfrmCustomerInput = class(TfrmBaseInput) @@ -37,6 +37,8 @@ type CoAbbrName: TcxTextEdit; Label3: TLabel; CoNote: TcxMemo; + Label1: TLabel; + ShuiNo: TcxTextEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A01基础公司管理/U_FactoryInput.dfm b/A01基础公司管理/U_FactoryInput.dfm index bcc74e4..fa8586f 100644 --- a/A01基础公司管理/U_FactoryInput.dfm +++ b/A01基础公司管理/U_FactoryInput.dfm @@ -86,7 +86,7 @@ inherited frmFactoryInput: TfrmFactoryInput end object Label7: TLabel Left = 39 - Top = 273 + Top = 302 Width = 32 Height = 21 Caption = #22791#27880 @@ -161,6 +161,20 @@ inherited frmFactoryInput: TfrmFactoryInput Height = 21 Caption = #31246#29575 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 Tag = 2 Left = 94 @@ -185,7 +199,7 @@ inherited frmFactoryInput: TfrmFactoryInput object CoNote: TcxMemo Tag = 2 Left = 94 - Top = 273 + Top = 302 TabOrder = 3 Height = 77 Width = 761 @@ -273,6 +287,13 @@ inherited frmFactoryInput: TfrmFactoryInput TabOrder = 12 Width = 340 end + object BillCycle: TcxTextEdit + Tag = 2 + Left = 94 + Top = 262 + TabOrder = 13 + Width = 99 + end end object Panel2: TPanel [2] Left = 0 diff --git a/A01基础公司管理/U_FactoryInput.pas b/A01基础公司管理/U_FactoryInput.pas index 24d6d3d..61516d6 100644 --- a/A01基础公司管理/U_FactoryInput.pas +++ b/A01基础公司管理/U_FactoryInput.pas @@ -69,6 +69,9 @@ type ShuiNo: TcxTextEdit; Label12: TLabel; ShuiLv: TcxTextEdit; + Label13: TLabel; + BillCycle: TcxTextEdit; + Label14: TLabel; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -406,11 +409,11 @@ end; procedure TfrmFactoryInput.ToolButton3Click(Sender: TObject); begin - if Trim(CoAbbrName.Text) = '' then - begin - Application.MessageBox('ƲΪ!', 'ʾ', 0); - Exit; - end; +// if Trim(CoAbbrName.Text) = '' then +// begin +// Application.MessageBox('ƲΪ!', 'ʾ', 0); +// Exit; +// end; if Trim(CoName.Text) = '' then begin Application.MessageBox('ƲΪ!', 'ʾ', 0); diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index 981981b..88da527 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,62 +1,62 @@  - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas - 1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas - 1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas - 1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas - 1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj - 1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas - 1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas - 1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm - 1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas - 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas - 1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas - 1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas - 1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas - 2026/02/04 15:48:47.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas - 2026/02/05 12:06:10.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas + 1899-12-30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas + 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm + 1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas + 1899-12-30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas + 1899-12-30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas + 1899-12-30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas + 1899-12-30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas + 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas + 1899-12-30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas + 1899-12-30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 2026-02-04 15:48:47.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas + 2026-02-05 12:06:10.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index 9bed0d0..57c855b 100644 Binary files a/A09财务通用管理/Financial.identcache and b/A09财务通用管理/Financial.identcache differ diff --git a/A09财务通用管理/ProjectGroup1.groupproj.local b/A09财务通用管理/ProjectGroup1.groupproj.local index 4e5ff9d..4e4971e 100644 --- a/A09财务通用管理/ProjectGroup1.groupproj.local +++ b/A09财务通用管理/ProjectGroup1.groupproj.local @@ -1,9 +1,9 @@  - - 2025-03-01 00:29:55.986,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\ProjectGroup1.groupproj=C:\Users\Administrator\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj + + 1899/12/30 00:00:00.000.986,C:\Users\Administrator\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\ProjectGroup1.groupproj - - - + + + diff --git a/A09财务通用管理/U_CollectList.dfm b/A09财务通用管理/U_CollectList.dfm index 3af4e02..0ee1fee 100644 --- a/A09财务通用管理/U_CollectList.dfm +++ b/A09财务通用管理/U_CollectList.dfm @@ -3,11 +3,11 @@ inherited frmCollectList: TfrmCollectList Top = 101 Caption = #25910#27454#31649#29702 ClientHeight = 590 - ClientWidth = 1625 + ClientWidth = 1540 Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitWidth = 1641 + ExplicitWidth = 1556 ExplicitHeight = 629 PixelsPerInch = 96 TextHeight = 21 @@ -15,7 +15,7 @@ inherited frmCollectList: TfrmCollectList Tag = 1 Left = 0 Top = 0 - Width = 1625 + Width = 1540 Height = 30 AutoSize = True ButtonHeight = 30 @@ -136,7 +136,7 @@ inherited frmCollectList: TfrmCollectList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1625 + Width = 1540 Height = 65 Align = alTop BevelInner = bvRaised @@ -266,7 +266,7 @@ inherited frmCollectList: TfrmCollectList object cxGrid1: TcxGrid [2] Left = 0 Top = 128 - Width = 1625 + Width = 1540 Height = 462 Align = alClient Font.Charset = GB2312_CHARSET @@ -358,7 +358,7 @@ inherited frmCollectList: TfrmCollectList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 82 + Width = 84 end object Tv1Column1: TcxGridDBColumn Caption = #25105#26041#36134#25143 @@ -366,7 +366,7 @@ inherited frmCollectList: TfrmCollectList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 92 end object Tv1Column2: TcxGridDBColumn Caption = #23545#26041#36134#25143 @@ -374,7 +374,7 @@ inherited frmCollectList: TfrmCollectList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 74 + Width = 96 end object Tv1Column3: TcxGridDBColumn Caption = #20184#27454#26041#24335 @@ -463,7 +463,7 @@ inherited frmCollectList: TfrmCollectList object cxTabControl1: TcxTabControl [3] Left = 0 Top = 95 - Width = 1625 + Width = 1540 Height = 33 Align = alTop Font.Charset = ANSI_CHARSET @@ -482,7 +482,7 @@ inherited frmCollectList: TfrmCollectList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 36 - ClientRectRight = 1625 + ClientRectRight = 1540 ClientRectTop = 36 end inherited cxProgressBar2: TcxProgressBar diff --git a/A09财务通用管理/U_ExpenseInput.dfm b/A09财务通用管理/U_ExpenseInput.dfm index 45fe8d5..e44b304 100644 --- a/A09财务通用管理/U_ExpenseInput.dfm +++ b/A09财务通用管理/U_ExpenseInput.dfm @@ -34,7 +34,6 @@ object frmExpenseInput: TfrmExpenseInput ParentColor = False ShowCaptions = True TabOrder = 0 - ExplicitTop = -6 object ToolButton3: TToolButton Left = 0 Top = 0 @@ -66,41 +65,41 @@ object frmExpenseInput: TfrmExpenseInput ParentColor = False ParentCtl3D = False TabOrder = 1 - ExplicitTop = 44 + OnClick = ScrollBox1Click object Label7: TLabel Left = 78 - Top = 323 + Top = 404 Width = 64 Height = 21 Caption = #20132#26131#38468#35328 end object Label1: TLabel - Left = 84 - Top = 86 + Left = 440 + Top = 36 Width = 64 Height = 21 Caption = #25253#38144#31867#22411 end object Label2: TLabel Left = 440 - Top = 140 + Top = 193 Width = 32 Height = 21 Caption = #31246#21495 end object Label3: TLabel Left = 84 - Top = 195 + Top = 246 Width = 96 Height = 21 Caption = #25910#27454#38134#34892#21517#31216 end object Label5: TLabel Left = 84 - Top = 249 + Top = 299 Width = 96 Height = 21 - Caption = #25910#27454#38134#34892#36134#25143 + Caption = #25910#27454#38134#34892#36134#21495 end object Label6: TLabel Left = 440 @@ -111,21 +110,21 @@ object frmExpenseInput: TfrmExpenseInput end object Label8: TLabel Left = 84 - Top = 140 + Top = 194 Width = 64 Height = 21 Caption = #21333#20301#21517#31216 end object Label10: TLabel Left = 440 - Top = 195 + Top = 248 Width = 64 Height = 21 Caption = #20184#27454#38134#34892 end object Label12: TLabel Left = 440 - Top = 249 + Top = 302 Width = 64 Height = 21 Caption = #20184#27454#36134#21495 @@ -138,16 +137,37 @@ object frmExpenseInput: TfrmExpenseInput Caption = #30003#35831#21333#21495 end object Label9: TLabel - Left = 440 - Top = 36 + Left = 84 + Top = 141 Width = 32 Height = 21 Caption = #29992#36884 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 Tag = 2 Left = 168 - Top = 303 + Top = 388 Width = 681 Height = 57 ScrollBars = ssVertical @@ -155,8 +175,8 @@ object frmExpenseInput: TfrmExpenseInput end object ReimburseType: TcxButtonEdit Tag = 2 - Left = 200 - Top = 83 + Left = 541 + Top = 35 Hint = 'ReimburseType/'#25253#38144#31867#22411 Properties.Buttons = < item @@ -169,8 +189,8 @@ object frmExpenseInput: TfrmExpenseInput end object Currency: TcxComboBox Tag = 2 - Left = 718 - Top = 83 + Left = 747 + Top = 86 Properties.Items.Strings = ( 'CNY' 'USD' @@ -181,43 +201,38 @@ object frmExpenseInput: TfrmExpenseInput end object TaxNumber: TcxTextEdit Tag = 2 - Left = 512 - Top = 137 + Left = 541 + Top = 189 + Properties.OnChange = TaxNumberPropertiesChange TabOrder = 3 Width = 200 end object OppBankCardNo: TcxTextEdit Tag = 2 Left = 200 - Top = 246 + Top = 292 TabOrder = 4 Width = 200 end object Amount: TcxTextEdit Tag = 2 - Left = 512 + Left = 541 Top = 83 + Properties.OnEditValueChanged = AmountPropertiesEditValueChanged TabOrder = 5 Width = 200 end - object OppCoName: TcxTextEdit - Tag = 2 - Left = 200 - Top = 137 - TabOrder = 6 - Width = 200 - end object OurBankCardNo: TcxTextEdit Tag = 2 - Left = 512 - Top = 246 - TabOrder = 7 + Left = 541 + Top = 292 + TabOrder = 6 Width = 200 end object OurBankName: TcxButtonEdit Tag = 2 - Left = 512 - Top = 192 + Left = 541 + Top = 240 Hint = 'OurBankName/'#20184#27454#38134#34892 Properties.Buttons = < item @@ -225,13 +240,13 @@ object frmExpenseInput: TfrmExpenseInput Kind = bkEllipsis end> Properties.OnButtonClick = OurBankNamePropertiesButtonClick - TabOrder = 8 + TabOrder = 7 Width = 200 end object OppBankName: TcxButtonEdit Tag = 2 Left = 200 - Top = 192 + Top = 240 Hint = 'OppBankName/'#25910#27454#38134#34892#21517#31216 Properties.Buttons = < item @@ -239,25 +254,129 @@ object frmExpenseInput: TfrmExpenseInput Kind = bkEllipsis end> Properties.OnButtonClick = OppBankNamePropertiesButtonClick - TabOrder = 9 + TabOrder = 8 Width = 200 end object FFID: TcxTextEdit Tag = 2 Left = 200 - Top = 33 + Top = 35 Properties.ReadOnly = True - TabOrder = 10 + TabOrder = 9 Width = 200 end object Use: TcxTextEdit Tag = 2 - Left = 512 - Top = 33 + Left = 200 + Top = 138 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 Width = 200 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 object ADOQueryTemp: TADOQuery Connection = DataLink_Financial.ADOLink @@ -279,4 +398,29 @@ object frmExpenseInput: TfrmExpenseInput Left = 853 Top = 49 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 diff --git a/A09财务通用管理/U_ExpenseInput.pas b/A09财务通用管理/U_ExpenseInput.pas index 11f9017..eebd710 100644 --- a/A09财务通用管理/U_ExpenseInput.pas +++ b/A09财务通用管理/U_ExpenseInput.pas @@ -13,9 +13,9 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxDateRanges, - dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinsCore, - dxSkinsDefaultPainters; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, + cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters, dxCore, cxDateUtils, + dxScrollbarAnnotations, Vcl.Menus,Clipbrd; type TfrmExpenseInput = class(TForm) @@ -38,7 +38,6 @@ type Label5: TLabel; Amount: TcxTextEdit; Label6: TLabel; - OppCoName: TcxTextEdit; Label8: TLabel; Label10: TLabel; OurBankCardNo: TcxTextEdit; @@ -49,6 +48,26 @@ type FFID: TcxTextEdit; Label9: TLabel; 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 FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -58,16 +77,21 @@ type procedure PayMentBtnDnClick(Sender: TObject); procedure PayMentBtnUpClick(Sender: TObject); procedure OppCoNameBtnUpClick(Sender: TObject); - procedure ReimburseTypePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure OurBankNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure OppBankNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure ReimburseTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure OppBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure PayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure AmountPropertiesEditValueChanged(Sender: TObject); + procedure TaxNumberPropertiesChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure ScrollBox1Click(Sender: TObject); + procedure N1Click(Sender: TObject); private { Private declarations } procedure InitGrid(); function SaveData(): Boolean; + procedure InitGrid2(); public { Public declarations } @@ -81,7 +105,7 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel, - U_FinTradeSalesContractSel,U_ZDYBankSel; + U_FinTradeSalesContractSel, U_ZDYBankSel; {$R *.dfm} @@ -113,10 +137,35 @@ begin 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; - AButtonIndex: Integer); + SCreateCDS(ADOQueryCmd, CDS_1); + 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 fsj: string; FWZ: Integer; @@ -160,8 +209,30 @@ begin end; end; -procedure TfrmExpenseInput.OurBankNamePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmExpenseInput.OppCoNamePropertiesButtonClick(Sender: TObject; 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 fsj: string; FWZ: Integer; @@ -221,8 +292,7 @@ begin end; end; -procedure TfrmExpenseInput.ReimburseTypePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmExpenseInput.PayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); var fsj: string; FWZ: Integer; @@ -246,7 +316,102 @@ begin 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); begin @@ -254,6 +419,12 @@ begin Action := caFree; end; +procedure TfrmExpenseInput.TaxNumberPropertiesChange(Sender: TObject); +begin + InitGrid2(); + Panel1.Visible := True; +end; + procedure TfrmExpenseInput.TBCloseClick(Sender: TObject); begin @@ -263,6 +434,7 @@ end; procedure TfrmExpenseInput.FormShow(Sender: TObject); begin InitGrid(); + Panel1.Visible := False; end; procedure TfrmExpenseInput.TBRafreshClick(Sender: TObject); @@ -322,6 +494,7 @@ begin // FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); // FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode); // FieldByName('FFID').Value := Trim(MaxId); + FieldByName('OppCoNo').Value := OppCoName.Properties.LookupItems.Text; RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2); Post; end; @@ -336,6 +509,11 @@ begin end; end; +procedure TfrmExpenseInput.ScrollBox1Click(Sender: TObject); +begin + Panel1.Visible := False; +end; + procedure TfrmExpenseInput.ToolButton3Click(Sender: TObject); begin ToolBar1.SetFocus; @@ -357,5 +535,16 @@ begin 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. diff --git a/A09财务通用管理/U_ExpenseList.dfm b/A09财务通用管理/U_ExpenseList.dfm index 195e0bb..60e96aa 100644 --- a/A09财务通用管理/U_ExpenseList.dfm +++ b/A09财务通用管理/U_ExpenseList.dfm @@ -19,7 +19,7 @@ inherited frmExpenseList: TfrmExpenseList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 99 + ButtonWidth = 108 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_Financial.ImageList_new32 @@ -64,20 +64,36 @@ inherited frmExpenseList: TfrmExpenseList Left = 284 Top = 0 AutoSize = True - Caption = #23457#26680 + Caption = #23457#26680'1' ImageIndex = 12 OnClick = btnChkClick end object btnReChk: TToolButton - Left = 355 + Left = 364 Top = 0 AutoSize = True - Caption = #25764#38144#23457#26680 + Caption = #25764#38144#23457#26680'1' ImageIndex = 11 OnClick = btnReChkClick 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 - Left = 458 + Left = 668 Top = 0 AutoSize = True Caption = #20184#27454 @@ -85,7 +101,7 @@ inherited frmExpenseList: TfrmExpenseList OnClick = TbnPayClick end object TbnRePay: TToolButton - Left = 529 + Left = 739 Top = 0 AutoSize = True Caption = #25764#38144#20184#27454 @@ -93,7 +109,7 @@ inherited frmExpenseList: TfrmExpenseList OnClick = TbnRePayClick end object ToolButton9: TToolButton - Left = 632 + Left = 842 Top = 0 AutoSize = True Caption = #38468#20214#19978#20256 @@ -101,7 +117,7 @@ inherited frmExpenseList: TfrmExpenseList OnClick = ToolButton9Click end object ToolButton4: TToolButton - Left = 735 + Left = 945 Top = 0 AutoSize = True Caption = #23548#20986 @@ -109,7 +125,7 @@ inherited frmExpenseList: TfrmExpenseList OnClick = ToolButton4Click end object TbPrint: TToolButton - Left = 806 + Left = 1016 Top = 0 AutoSize = True Caption = #25171#21360 @@ -117,7 +133,7 @@ inherited frmExpenseList: TfrmExpenseList OnClick = TbPrintClick end object ToolButton5: TToolButton - Left = 877 + Left = 1087 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -125,7 +141,7 @@ inherited frmExpenseList: TfrmExpenseList OnClick = ToolButton5Click end object TBClose: TToolButton - Left = 980 + Left = 1190 Top = 0 AutoSize = True Caption = #20851#38381 @@ -144,6 +160,7 @@ inherited frmExpenseList: TfrmExpenseList Color = clWhite ParentBackground = False TabOrder = 5 + ExplicitTop = 24 object Label3: TLabel Left = 218 Top = 6 @@ -271,6 +288,7 @@ inherited frmExpenseList: TfrmExpenseList Align = alClient PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 130 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -326,6 +344,13 @@ inherited frmExpenseList: TfrmExpenseList Options.Editing = False Width = 101 end + object Tv1FFID: TcxGridDBColumn + Caption = #30003#35831#21333#21495 + DataBinding.FieldName = 'FFID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1ReimburseType: TcxGridDBColumn Caption = #25253#38144#31867#22411 DataBinding.FieldName = 'ReimburseType' @@ -341,6 +366,28 @@ inherited frmExpenseList: TfrmExpenseList Options.Editing = False Width = 91 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 Caption = #24065#31181 DataBinding.FieldName = 'Currency' @@ -354,13 +401,13 @@ inherited frmExpenseList: TfrmExpenseList Options.Editing = False Width = 88 end - object Tv1Amount: TcxGridDBColumn - Caption = #37329#39069 - DataBinding.FieldName = 'Amount' + object v2FactoryName: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'OppCoName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 90 + Width = 95 end object Tv1TaxNumber: TcxGridDBColumn Caption = #31246#21495 @@ -369,14 +416,6 @@ inherited frmExpenseList: TfrmExpenseList HeaderAlignmentHorz = taCenter Width = 80 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 Tag = 7 Caption = #25910#27454#38134#34892#21517#31216 @@ -387,7 +426,7 @@ inherited frmExpenseList: TfrmExpenseList Width = 118 end object Tv1OppBankCardNo: TcxGridDBColumn - Caption = #25910#27454#38134#34892#36134#25143 + Caption = #25910#27454#38134#34892#36134#21495 DataBinding.FieldName = 'OppBankCardNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -452,13 +491,35 @@ inherited frmExpenseList: TfrmExpenseList Options.Editing = False Width = 94 end - object Tv1Column5: TcxGridDBColumn + object Tv1PayTime: TcxGridDBColumn Caption = #20184#27454#26085#26399 DataBinding.FieldName = 'PayTime' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 76 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 object cxGridLevel1: TcxGridLevel GridView = Tv1 @@ -476,11 +537,13 @@ inherited frmExpenseList: TfrmExpenseList Properties.TabIndex = 0 Properties.Tabs.Strings = ( #26410#23457#26680 - #24050#23457#26680 + #24050#23457#26680'1' + #24050#23457#26680'2' #24050#20184#27454 #20840#37096) LookAndFeel.Kind = lfUltraFlat OnChange = cxTabControl1Change + ExplicitTop = 94 ClientRectRight = 0 ClientRectTop = 0 end @@ -489,8 +552,10 @@ inherited frmExpenseList: TfrmExpenseList ExplicitTop = 176 end inherited cxProgressBar2: TcxProgressBar - Top = 89 - ExplicitTop = 89 + Left = 432 + Top = 257 + ExplicitLeft = 432 + ExplicitTop = 257 ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery diff --git a/A09财务通用管理/U_ExpenseList.pas b/A09财务通用管理/U_ExpenseList.pas index b5c608d..9caf939 100644 --- a/A09财务通用管理/U_ExpenseList.pas +++ b/A09财务通用管理/U_ExpenseList.pas @@ -72,7 +72,7 @@ type Tv1PayStatus: TcxGridDBColumn; ToolButton9: TToolButton; N3: TMenuItem; - Tv1Column5: TcxGridDBColumn; + Tv1PayTime: TcxGridDBColumn; Label1: TLabel; begdate: TcxDateEdit; Enddate: TcxDateEdit; @@ -82,6 +82,14 @@ type TbnPay: TToolButton; TbnRePay: 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 TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -104,6 +112,8 @@ type procedure TbnPayClick(Sender: TObject); procedure TbnRePayClick(Sender: TObject); procedure TbPrintClick(Sender: TObject); + procedure btnChk2Click(Sender: TObject); + procedure btnReChk2Click(Sender: TObject); private procedure InitGrid(); procedure SetStatus(); @@ -121,8 +131,10 @@ uses procedure TfrmExpenseList.SetStatus(); begin - btnChk.Enabled := false; // - btnReChk.Enabled := false; // + btnChk.Enabled := false; //1 + btnReChk.Enabled := false; //1 + btnChk2.Enabled := false; //2 + btnReChk2.Enabled := false; //2 TbnPay.Enabled := false; // TbnRePay.Enabled := false; // @@ -143,14 +155,74 @@ begin 1: begin btnReChk.Enabled := true; - TbnPay.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) = '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; end; end; end; + if Trim(FAuthority) = '' then begin btnAdd.Enabled := true; @@ -189,7 +261,9 @@ begin Close; SQL.Clear; 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=''õǼ'' '); case cxTabControl1.TabIndex of 0: @@ -198,12 +272,17 @@ begin end; 1: begin - sql.Add(' and Checkstatus='''' and PayStatus=''δ'' '); + sql.Add(' and Checkstatus=''1'' '); end; 2: + begin + sql.add(' and Checkstatus=''2'' and PayStatus<>''Ѹ'' '); + end; + 3: begin sql.Add(' and PayStatus=''Ѹ'' '); end; + end; if CheckBox1.Checked then begin @@ -253,6 +332,13 @@ end; procedure TfrmExpenseList.TbnPayClick(Sender: TObject); var FFFIDS: string; + SelectedDate: TDate; + DateForm: TForm; + cxDateEdit: TcxDateEdit; + cxTextEdit: TcxTextEdit; + btnOK, btnCancel: TButton; + lblDate, lblBankSlip: TLabel; + BankSlipCode: string; begin if CDS_1.IsEmpty then exit; @@ -263,54 +349,288 @@ begin 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; - + // һ + DateForm := TForm.Create(nil); try - ADOQueryCmd.Connection.BeginTrans; - with ADOQueryCmd do + 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 - Close; - sql.Clear; - sql.Add(' exec P_Fin_Flow_SetStatus '); - sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - sql.Add(',@Operation='''' '); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - open; + // ȡѡ + 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 + 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(',@BankSlipNumber=' + QuotedStr(BankSlipCode)); + 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; - 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('ɹ', 'ʾ'); - except - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - InitGrid(); + 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); var @@ -376,7 +696,7 @@ end; procedure TfrmExpenseList.TbPrintClick(Sender: TObject); var - WSql,Wsql1: string; + WSql, Wsql1: string; begin if CDS_1.IsEmpty then Exit; @@ -386,7 +706,7 @@ begin Exit; end; WSql := ''; - WSql1 := ''; + Wsql1 := ''; CDS_1.DisableControls; with CDS_1 do begin @@ -404,13 +724,13 @@ begin WSql := Trim(CDS_1.fieldbyname('FFID').AsString); end; - if WSql1 <> '' then + if Wsql1 <> '' then begin - WSql1 := WSql1 + ',' + QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString)); + Wsql1 := Wsql1 + ',' + QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString)); end else begin - WSql1 := QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString)); + Wsql1 := QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString)); end; end; Next; @@ -428,7 +748,7 @@ begin // ShowMessage(FFiltration1); if ShowModal = 1 then begin - WSQl := ''''+WSql + ''''; + WSql := '''' + WSql + ''''; // ShowMessage('1111'); with Self.ADOQueryCmd do begin @@ -436,7 +756,7 @@ begin sql.Clear; 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); execsql; end; @@ -593,7 +913,7 @@ begin sql.Clear; sql.Add(' exec P_Fin_Flow_SetStatus '); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - sql.Add(',@Operation='''' '); + sql.Add(',@Operation=''1'' '); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); open; @@ -615,7 +935,7 @@ begin // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; - application.MessageBox('˳ɹ', 'ʾ'); + application.MessageBox('1ɹ', 'ʾ'); except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); @@ -655,7 +975,7 @@ begin sql.Clear; sql.Add(' exec P_Fin_Flow_SetStatus '); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - sql.Add(',@Operation='''' '); + sql.Add(',@Operation=''1'' '); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); open; @@ -677,7 +997,7 @@ begin // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; - application.MessageBox('˳ɹ', 'ʾ'); + application.MessageBox('1ɹ', 'ʾ'); except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); @@ -703,6 +1023,130 @@ begin 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); begin if ADOQueryMain.IsEmpty then @@ -761,7 +1205,7 @@ begin if Trim(Self.CDS_1.fieldbyname('filler').AsString) = dname then FEditAuthority := True; fkeyNO := Trim(Self.CDS_1.fieldbyname('FFID').AsString); - fType := 'SD'; + fType := 'õǼ'; if ShowModal = 1 then begin diff --git a/A09财务通用管理/U_FinPurchasePlanSel.dfm b/A09财务通用管理/U_FinPurchasePlanSel.dfm index 945bb99..853d745 100644 --- a/A09财务通用管理/U_FinPurchasePlanSel.dfm +++ b/A09财务通用管理/U_FinPurchasePlanSel.dfm @@ -185,13 +185,11 @@ inherited frmFinPurchasePlanSel: TfrmFinPurchasePlanSel end object cxGrid1: TcxGrid [2] Left = 0 - Top = 113 + Top = 142 Width = 1540 - Height = 530 + Height = 501 Align = alClient TabOrder = 2 - ExplicitTop = 102 - ExplicitHeight = 546 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -402,6 +400,25 @@ inherited frmFinPurchasePlanSel: TfrmFinPurchasePlanSel GridView = Tv1 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 Connection = ADOConnection1 Left = 297 diff --git a/A09财务通用管理/U_FinPurchasePlanSel.pas b/A09财务通用管理/U_FinPurchasePlanSel.pas index f082a36..5369630 100644 --- a/A09财务通用管理/U_FinPurchasePlanSel.pas +++ b/A09财务通用管理/U_FinPurchasePlanSel.pas @@ -9,9 +9,9 @@ uses cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, - dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox, - cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations; + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, + System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxSkinsCore, + dxSkinsDefaultPainters, dxScrollbarAnnotations, cxPC; type TfrmFinPurchasePlanSel = class(TfrmBaseHelp) @@ -70,6 +70,7 @@ type Tv1Tax: TcxGridDBColumn; Tv1TaxInclude: TcxGridDBColumn; Tv1currency: TcxGridDBColumn; + cxTabControl1: TcxTabControl; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); @@ -79,6 +80,7 @@ type procedure OrderNoChange(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Tv1DblClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); private procedure InitGrid(); { Private declarations } @@ -120,6 +122,12 @@ begin frmFinPurchasePlanSel := nil; end; +procedure TfrmFinPurchasePlanSel.cxTabControl1Change(Sender: TObject); +begin +// SetStatus(); + InitGrid(); +end; + procedure TfrmFinPurchasePlanSel.FormClose(Sender: TObject; var Action: TCloseAction); begin @@ -134,10 +142,22 @@ begin begin Close; 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 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); + 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; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas index bc0ae26..5ff7ed9 100644 --- a/A09财务通用管理/U_GetDllForm.pas +++ b/A09财务通用管理/U_GetDllForm.pas @@ -78,7 +78,8 @@ begin pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1:=''; -// Parameters1 := ''; +// Parameters1 := '2'; +// Parameters1 := ''; end else begin diff --git a/A09财务通用管理/U_InvoiceInInPut.dfm b/A09财务通用管理/U_InvoiceInInPut.dfm index 592b2d4..5965307 100644 --- a/A09财务通用管理/U_InvoiceInInPut.dfm +++ b/A09财务通用管理/U_InvoiceInInPut.dfm @@ -47,16 +47,24 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut ImageIndex = 2 OnClick = ToolButton1Click end - object ToolButton2: TToolButton + object ToolButton5: TToolButton Left = 142 Top = 0 AutoSize = True + Caption = #24212#20184#27454 + ImageIndex = 2 + OnClick = ToolButton5Click + end + object ToolButton2: TToolButton + Left = 229 + Top = 0 + AutoSize = True Caption = #21024#34892 ImageIndex = 6 OnClick = ToolButton2Click end object ToolButton4: TToolButton - Left = 213 + Left = 300 Top = 0 AutoSize = True Caption = #23548#20837 @@ -64,7 +72,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut OnClick = ToolButton4Click end object ToolButton3: TToolButton - Left = 284 + Left = 371 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -72,7 +80,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut OnClick = ToolButton3Click end object TBClose: TToolButton - Left = 387 + Left = 474 Top = 0 AutoSize = True Caption = #20851#38381 @@ -98,11 +106,10 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut DataController.Summary.FooterSummaryItems = < item Kind = skSum - Column = v1Qty end item Kind = skSum - Column = v1Money + Column = Tv1Amount end item Kind = skSum @@ -112,7 +119,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut end item Kind = skSum - Column = v1Column4 + Column = Tv1TaxAmount end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -121,7 +128,21 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut OptionsView.Footer = True OptionsView.GroupByBox = False 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 DataBinding.FieldName = 'IVDate' DataBinding.IsNullValueType = True @@ -129,14 +150,35 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut HeaderAlignmentHorz = taCenter Width = 77 end - object Tv1Column1: TcxGridDBColumn - Caption = #21457#31080#21495#30721 - DataBinding.FieldName = 'IVNo' + object Tv1SupplierShuiNo: TcxGridDBColumn + Caption = #20379#24212#21830#31246#21495 + DataBinding.FieldName = 'SupplierShuiNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 77 + Width = 103 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 DataBinding.FieldName = 'OurCoName' DataBinding.IsNullValueType = True @@ -146,151 +188,11 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut Default = True Kind = bkEllipsis end> - Properties.ReadOnly = True - Properties.OnButtonClick = Tv1Column2PropertiesButtonClick + Properties.OnButtonClick = ButtonEdit HeaderAlignmentHorz = taCenter - Width = 82 + Width = 130 end - object Tv1Column4: 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 + object Tv1Currency: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Currency' DataBinding.IsNullValueType = True @@ -301,13 +203,62 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut 'USD' 'EUR') HeaderAlignmentHorz = taCenter + Width = 85 end - object Tv1Column7: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' + object Tv1Price: TcxGridDBColumn + Caption = #21333#20215 + 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 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 object cxGridLevel1: TcxGridLevel diff --git a/A09财务通用管理/U_InvoiceInInPut.pas b/A09财务通用管理/U_InvoiceInInPut.pas index 0d512f1..20d9ca3 100644 --- a/A09财务通用管理/U_InvoiceInInPut.pas +++ b/A09财务通用管理/U_InvoiceInInPut.pas @@ -10,7 +10,7 @@ uses cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, - dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters, + dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations; type @@ -23,32 +23,29 @@ type TBClose: TToolButton; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; - v1P_CodeName: TcxGridDBColumn; - v1P_Spec: TcxGridDBColumn; - v1Qty: TcxGridDBColumn; - v1Price: TcxGridDBColumn; - v1QtyUnit: TcxGridDBColumn; + Tv1Price: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; ADOQueryTmp: TADOQuery; ADOQueryCmd: TADOQuery; - v1Column1: TcxGridDBColumn; - v1Column3: TcxGridDBColumn; - v1Column4: TcxGridDBColumn; - v1Column5: TcxGridDBColumn; - Tv1Column1: TcxGridDBColumn; - Tv1Column2: TcxGridDBColumn; - Tv1Column3: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; - Tv1Column7: TcxGridDBColumn; + Tv1TaxAmount: TcxGridDBColumn; + Tv1TaxFee: TcxGridDBColumn; + Tv1IVNo: TcxGridDBColumn; + Tv1IVDate: TcxGridDBColumn; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; - Tv1Column6: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; + Tv1Currency: TcxGridDBColumn; ToolButton4: TToolButton; CDS_LM: TClientDataSet; OpenDialog1: TOpenDialog; + Tv1BGDNum: TcxGridDBColumn; + Tv1SupplierShuiNo: TcxGridDBColumn; + Tv1Supplier: TcxGridDBColumn; + Tv1OurShuiNo: TcxGridDBColumn; + Tv1OurCoName: TcxGridDBColumn; + Tv1BillCycle: TcxGridDBColumn; + ToolButton5: TToolButton; + Tv1fromFlow: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TSaveClick(Sender: TObject); @@ -65,9 +62,14 @@ type procedure ToolButton3Click(Sender: TObject); procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); 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 procedure initGrid(); procedure SaveDate(); + procedure SaveFlowInvoice(); { Private declarations } public FIVID: string; @@ -81,9 +83,90 @@ var implementation uses - U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink; + U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_PayableSel; {$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(); var MaxNo: string; @@ -127,17 +210,21 @@ begin RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Invoice, 'Finance_Invoice', 0); ADOQueryCmd.fieldbyname('IVID').Value := MaxNo; ADOQueryCmd.fieldbyname('IVFlag').Value := '进项'; - ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').AsString); - ADOQueryCmd.fieldbyname('OppParentCoNo').Value := trim(CDS_Invoice.FieldByName('OppParentCoNo').AsString); +// ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').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.Post; + CDS_Invoice.Edit; + CDS_Invoice.FieldByName('IVId').Value := MaxNo; + CDS_Invoice.Post; next; end; end; ADOQueryCmd.Connection.CommitTrans; application.MessageBox('保存成功！', '提示'); - Modalresult := 1; + except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); @@ -188,22 +275,15 @@ begin application.MessageBox('发票号不能为空', '提示'); exit; end; - if CDS_Invoice.Locate('IVType', null, []) then - begin - application.MessageBox('发票类型不能为空', '提示'); - exit; - end; if CDS_Invoice.Locate('OurCoName', null, []) then begin application.MessageBox('我方单位不能为空', '提示'); exit; end; - if CDS_Invoice.Locate('OppCoName', null, []) then - begin - application.MessageBox('对方单位不能为空', '提示'); - exit; - end; + SaveDate(); + SaveFlowInvoice(); + Modalresult := 1; end; procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -270,41 +350,41 @@ var mvalue, FFieldName: string; FQty, FPrice, FAmount, Ftax, FtaxAmount: double; begin - FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); - mvalue := TcxTextEdit(Sender).EditingText; - if Trim(mvalue) = '' then - begin - mvalue := '0'; - end; - with CDS_Invoice do - begin - Edit; - FieldByName(FFieldName).Value := Trim(mvalue); - Post; - FQty := FieldbyName('Qty').AsFloat; - FtaxAmount := FieldbyName('taxAmount').AsFloat; - Ftax := FieldbyName('tax').AsFloat; - end; - if FQty <> 0 then - begin - FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); - FPrice := strtofloat(format('%.2f', [FAmount / FQty])); - end - else - begin - FPrice := 0; - FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); - end; - - with CDS_Invoice do - begin - Edit; - FieldByName('Price').Value := FPrice; - FieldByName('Amount').Value := FAmount; - FieldByName('TaxFee').Value := FtaxAmount - FAmount; - Post; - end; - tv1.Controller.EditingController.ShowEdit(); +// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); +// mvalue := TcxTextEdit(Sender).EditingText; +// if Trim(mvalue) = '' then +// begin +// mvalue := '0'; +// end; +// with CDS_Invoice do +// begin +// Edit; +// FieldByName(FFieldName).Value := Trim(mvalue); +// Post; +// FQty := FieldbyName('Qty').AsFloat; +// FtaxAmount := FieldbyName('taxAmount').AsFloat; +// Ftax := FieldbyName('tax').AsFloat; +// end; +// if FQty <> 0 then +// begin +// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); +// FPrice := strtofloat(format('%.2f', [FAmount / FQty])); +// end +// else +// begin +// FPrice := 0; +// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)])); +// end; +// +// with CDS_Invoice do +// begin +// Edit; +// FieldByName('Price').Value := FPrice; +// FieldByName('Amount').Value := FAmount; +// FieldByName('TaxFee').Value := FtaxAmount - FAmount; +// Post; +// end; +// tv1.Controller.EditingController.ShowEdit(); end; @@ -313,6 +393,59 @@ begin frmInvoiceInInPut := nil; 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); begin try @@ -394,10 +527,55 @@ begin 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); begin CDS_Invoice.Append; CDS_Invoice.FieldByName('IVDate').Value := now(); + CDS_Invoice.FieldByName('IVType').Value := '进项发票'; CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg'; CDS_Invoice.FieldByName('Amount').Value := 0; CDS_Invoice.FieldByName('Qty').Value := 0; @@ -521,5 +699,51 @@ begin 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. diff --git a/A09财务通用管理/U_InvoiceInList.dfm b/A09财务通用管理/U_InvoiceInList.dfm index 1e63c0b..ddd7dde 100644 --- a/A09财务通用管理/U_InvoiceInList.dfm +++ b/A09财务通用管理/U_InvoiceInList.dfm @@ -3,11 +3,11 @@ inherited frmInvoiceInList: TfrmInvoiceInList Top = 202 Caption = #36827#39033#21457#31080#31649#29702 ClientHeight = 626 - ClientWidth = 1558 + ClientWidth = 1540 Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitWidth = 1574 + ExplicitWidth = 1556 ExplicitHeight = 665 PixelsPerInch = 96 TextHeight = 21 @@ -15,7 +15,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList Tag = 1 Left = 0 Top = 0 - Width = 1558 + Width = 1540 Height = 30 AutoSize = True ButtonHeight = 30 @@ -137,7 +137,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1558 + Width = 1540 Height = 67 Align = alTop BevelInner = bvRaised @@ -247,7 +247,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList object cxGrid1: TcxGrid [2] Left = 0 Top = 126 - Width = 1558 + Width = 1540 Height = 500 Align = alClient PopupMenu = PopupMenu1 @@ -280,24 +280,24 @@ inherited frmInvoiceInList: TfrmInvoiceInList end item Kind = skSum - Column = v1Column12 end item Kind = skSum - Column = v1Column15 + Column = Tv1Amount end item Kind = skSum - Column = v1Column17 + Column = Tv1TaxFee end item Kind = skSum - Column = v1Column18 + Column = Tv1TaxAmount end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False + OptionsView.Indicator = True object v1Column3: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' @@ -306,7 +306,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList HeaderAlignmentHorz = taCenter Width = 49 end - object v1InvoiceNo: TcxGridDBColumn + object Tv1IVNo: TcxGridDBColumn Caption = #21457#31080#21495#30721 DataBinding.FieldName = 'IVNo' DataBinding.IsNullValueType = True @@ -314,7 +314,14 @@ inherited frmInvoiceInList: TfrmInvoiceInList Options.Editing = False Width = 77 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 DataBinding.FieldName = 'IVDate' DataBinding.IsNullValueType = True @@ -322,15 +329,28 @@ inherited frmInvoiceInList: TfrmInvoiceInList Options.Editing = False Width = 79 end - object v1InvoiceType: TcxGridDBColumn - Caption = #21457#31080#31867#22411 - DataBinding.FieldName = 'IVType' + object Tv1SupplierShuiNo: TcxGridDBColumn + Caption = #20379#24212#21830#31246#21495 + DataBinding.FieldName = 'SupplierShuiNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 92 + Width = 100 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 DataBinding.FieldName = 'OurCoName' DataBinding.IsNullValueType = True @@ -338,89 +358,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList Options.Editing = False Width = 83 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 Caption = #24065#31181 DataBinding.FieldName = 'Currency' @@ -429,38 +366,83 @@ inherited frmInvoiceInList: TfrmInvoiceInList Options.Editing = False Width = 69 end - object v1Column18: TcxGridDBColumn - Caption = #21547#31246#37329#39069 + object v1Column14: TcxGridDBColumn + 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.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged 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 end - object Tv1Column2: TcxGridDBColumn - Caption = #38468#20214 - DataBinding.FieldName = 'FJFlag' + object Tv1BillCycle: TcxGridDBColumn + Caption = #36134#26399 + DataBinding.FieldName = 'BillCycle' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 59 + Width = 65 + 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 object cxGridLevel1: TcxGridLevel @@ -470,7 +452,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList object cxTabControl1: TcxTabControl [3] Left = 0 Top = 97 - Width = 1558 + Width = 1540 Height = 29 Align = alTop TabOrder = 2 @@ -483,11 +465,14 @@ inherited frmInvoiceInList: TfrmInvoiceInList #20840#37096) LookAndFeel.Kind = lfUltraFlat OnChange = cxTabControl1Change + ExplicitTop = 95 ClientRectBottom = 31 - ClientRectRight = 1558 + ClientRectRight = 1540 ClientRectTop = 31 end inherited cxProgressBar2: TcxProgressBar + Top = 99 + ExplicitTop = 99 ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery diff --git a/A09财务通用管理/U_InvoiceInList.pas b/A09财务通用管理/U_InvoiceInList.pas index f909944..716292e 100644 --- a/A09财务通用管理/U_InvoiceInList.pas +++ b/A09财务通用管理/U_InvoiceInList.pas @@ -40,17 +40,13 @@ type TADD: TToolButton; TUPDATE: TToolButton; TBDEL: TToolButton; - v1InvoiceNo: TcxGridDBColumn; - v1InvoiceType: TcxGridDBColumn; - v1InvoiceDate: TcxGridDBColumn; - v1FactoryName: TcxGridDBColumn; - v1note: TcxGridDBColumn; + Tv1IVNo: TcxGridDBColumn; + Tv1IVDate: TcxGridDBColumn; TCHK: TToolButton; TNOCHK: TToolButton; cxTabControl1: TcxTabControl; TSel: TToolButton; - v1Column1: TcxGridDBColumn; - v1Column2: TcxGridDBColumn; + Tv1OurCoName: TcxGridDBColumn; RMXLSExport1: TRMXLSExport; PopupMenu1: TPopupMenu; N1: TMenuItem; @@ -58,17 +54,10 @@ type ToolButton4: TToolButton; v1Column3: TcxGridDBColumn; ADOQueryPrint: TADOQuery; - v1Column8: TcxGridDBColumn; - v1Column9: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; - v1Column11: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; - v1Column13: TcxGridDBColumn; v1Column14: TcxGridDBColumn; - v1Column15: TcxGridDBColumn; - v1Column17: TcxGridDBColumn; - v1Column18: TcxGridDBColumn; - v1Column19: TcxGridDBColumn; + Tv1Amount: TcxGridDBColumn; + Tv1TaxFee: TcxGridDBColumn; + Tv1TaxAmount: TcxGridDBColumn; ToolButton3: TToolButton; N3: TMenuItem; Tv1Column1: TcxGridDBColumn; @@ -83,11 +72,21 @@ type OppCoName: TcxTextEdit; OurCoName: TcxTextEdit; ToolButton5: TToolButton; - Tv1Column2: TcxGridDBColumn; Label2: TLabel; begdate: TcxDateEdit; Enddate: TcxDateEdit; 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 FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A09财务通用管理/U_PayableBatchInput.dfm b/A09财务通用管理/U_PayableBatchInput.dfm index f8947e0..56b3808 100644 --- a/A09财务通用管理/U_PayableBatchInput.dfm +++ b/A09财务通用管理/U_PayableBatchInput.dfm @@ -29,6 +29,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput ParentColor = False ShowCaptions = True TabOrder = 0 + ExplicitTop = -6 object TBSave: TToolButton Left = 0 Top = 0 @@ -95,6 +96,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput Align = alClient PopupMenu = PM_1 TabOrder = 1 + ExplicitLeft = -8 ExplicitTop = 36 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -126,6 +128,10 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput end item Kind = skSum + end + item + Kind = skSum + Column = Tv1Tax end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True @@ -155,20 +161,34 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput Options.Editing = False Width = 82 end - object Tv1ReconciliationDate: TcxGridDBColumn - Caption = #23545#36134#26085#26399 - DataBinding.FieldName = 'ReconciliationDate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 86 - end object TV1OurCoName: TcxGridDBColumn Caption = #25105#26041#21333#20301 DataBinding.FieldName = 'OurCoName' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = TV1OurCoNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 91 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 Caption = #23545#26041#21333#20301 DataBinding.FieldName = 'OppCoName' @@ -208,6 +228,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput Kind = bkEllipsis end> Properties.ReadOnly = True + Properties.OnButtonClick = Tv1PurNoPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 81 end @@ -222,6 +243,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput Kind = bkEllipsis end> Properties.ReadOnly = True + Properties.OnButtonClick = Tv1OrderNoPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 91 end @@ -298,6 +320,8 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput Caption = #25968#37327 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 76 end @@ -306,12 +330,19 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput DataBinding.FieldName = 'QtyUnit' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 64 + 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 @@ -319,6 +350,8 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput Caption = #19981#21547#31246#21333#20215 DataBinding.FieldName = 'NoTaxPrice' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 99 end @@ -333,13 +366,16 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput Caption = #31246#29575 DataBinding.FieldName = 'TaxRate' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 81 + Width = 80 end object Tv1Tax: TcxGridDBColumn Caption = #31246#39069 DataBinding.FieldName = 'Tax' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 85 end diff --git a/A09财务通用管理/U_PayableBatchInput.pas b/A09财务通用管理/U_PayableBatchInput.pas index 18a5379..e929d26 100644 --- a/A09财务通用管理/U_PayableBatchInput.pas +++ b/A09财务通用管理/U_PayableBatchInput.pas @@ -12,8 +12,8 @@ uses StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox, Vcl.Menus - ,Clipbrd; + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox, Vcl.Menus, + Clipbrd, cxCurrencyEdit; type TfrmPayableBatchInput = class(TfrmBaseInput) @@ -33,7 +33,6 @@ type Tv1: TcxGridDBTableView; Tv1Column22: TcxGridDBColumn; Tv1FFTime: TcxGridDBColumn; - Tv1ReconciliationDate: TcxGridDBColumn; TV1OurCoName: TcxGridDBColumn; Tv1OppCoName: TcxGridDBColumn; Tv1FFAbstract: TcxGridDBColumn; @@ -65,6 +64,8 @@ type N1: TMenuItem; N3: TMenuItem; N2: TMenuItem; + Tv1oppShuiNo: TcxGridDBColumn; + Tv1ourShuiNo: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); @@ -81,6 +82,12 @@ type 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 TV1OurCoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); private { Private declarations } @@ -89,6 +96,7 @@ type public { Public declarations } FBCId, FKHName: string; + FFFID : string; end; var @@ -119,7 +127,7 @@ begin Filtered := False; sql.Add(' select A.* '); sql.Add(' from Finance_Flow A '); - sql.Add(' where 1=2 '); + sql.Add(' where FFID = ' + QuotedStr(FFFID)); Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -209,6 +217,9 @@ begin //֯쵥 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; @@ -389,39 +400,66 @@ begin with Self.CDS_1 do begin 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('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('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('PurSID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurSId').AsString); + 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').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('ConNo').AsString); - self.CDS_1.FieldByName('ConMId').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConMId').AsString); - self.CDS_1.FieldByName('ConSId').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConSId').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').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('CPConNo').AsString); - self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString); - self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPMID').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').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_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').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.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; @@ -461,6 +499,85 @@ begin 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; + + + // QtyNoTaxPriceֶǷҲΪ + 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); begin try @@ -523,8 +640,9 @@ begin 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.FieldByName('OppCoName').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').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; end; end; @@ -533,5 +651,238 @@ begin 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. diff --git a/A09财务通用管理/U_PayableList.dfm b/A09财务通用管理/U_PayableList.dfm index 9c31387..bb57246 100644 --- a/A09财务通用管理/U_PayableList.dfm +++ b/A09财务通用管理/U_PayableList.dfm @@ -330,13 +330,45 @@ inherited frmPayableList: TfrmPayableList Options.Editing = False Width = 82 end - object Tv1ReconciliationDate: TcxGridDBColumn - Caption = #23545#36134#26085#26399 - DataBinding.FieldName = 'ReconciliationDate' + object Tv1Column1: TcxGridDBColumn + Caption = #21457#31080#21495#30721 + 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 HeaderAlignmentHorz = taCenter 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 object TV1OurCoName: TcxGridDBColumn Caption = #25105#26041#21333#20301 @@ -346,14 +378,6 @@ inherited frmPayableList: TfrmPayableList Options.Editing = False Width = 91 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 Caption = #31867#22411 DataBinding.FieldName = 'FinType' @@ -516,12 +540,12 @@ inherited frmPayableList: TfrmPayableList Width = 78 end object Tv1FromID1: TcxGridDBColumn - Caption = #26469#28304 + Caption = #26469#28304#21333#21495'('#26469#28304')' DataBinding.FieldName = 'FromID1' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 70 + Width = 78 end end object cxGridLevel1: TcxGridLevel @@ -544,6 +568,7 @@ inherited frmPayableList: TfrmPayableList #20840#37096) LookAndFeel.Kind = lfUltraFlat OnChange = cxTabControl1Change + ExplicitTop = 99 ClientRectRight = 0 ClientRectTop = 0 end @@ -612,23 +637,23 @@ inherited frmPayableList: TfrmPayableList object GPM_1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 504 - Top = 312 + Left = 488 + Top = 271 end object DS_1: TDataSource DataSet = CDS_1 - Left = 595 - Top = 315 + Left = 627 + Top = 274 end object CDS_1: TClientDataSet Aggregates = <> Params = <> Left = 552 - Top = 336 + Top = 271 end object PopupMenu1: TPopupMenu - Left = 408 - Top = 288 + Left = 416 + Top = 271 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click diff --git a/A09财务通用管理/U_PayableList.pas b/A09财务通用管理/U_PayableList.pas index 49fc94f..d7bcfbe 100644 --- a/A09财务通用管理/U_PayableList.pas +++ b/A09财务通用管理/U_PayableList.pas @@ -74,7 +74,6 @@ type Tv1OrderNo: TcxGridDBColumn; Tv1BuyConNo: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn; - Tv1ReconciliationDate: TcxGridDBColumn; N3: TMenuItem; Tv1FFAbstract: TcxGridDBColumn; Tv1FromID1: TcxGridDBColumn; @@ -93,6 +92,11 @@ type TbnBatchAdd: TToolButton; Tv1FinType: TcxGridDBColumn; Tv1PurNo: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1oppShuiNo: TcxGridDBColumn; + Tv1ourShuiNo: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -179,6 +183,9 @@ begin Filtered := False; 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=''ӦǼ'' '); case cxTabControl1.TabIndex of @@ -581,7 +588,7 @@ begin frmPayableBatchInput := TfrmPayableBatchInput.Create(Application); with frmPayableBatchInput do begin -// FFFID := ''; + FFFID := ''; if ShowModal = 1 then begin InitGrid(); @@ -597,11 +604,11 @@ begin if CDS_1.IsEmpty then Exit; - if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then - begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; - end; +// if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then +// begin +// Application.MessageBox('ܲ˵!', 'ʾ', 0); +// Exit; +// end; try with ADOQueryCmd do begin @@ -621,8 +628,8 @@ begin end; try - frmPayableInput := TfrmPayableInput.Create(Application); - with frmPayableInput do + frmPayableBatchInput := TfrmPayableBatchInput.Create(Application); + with frmPayableBatchInput do begin FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); if ShowModal = 1 then @@ -631,7 +638,7 @@ begin end; end; finally - frmPayableInput.Free; + frmPayableBatchInput.Free; end; end; diff --git a/A09财务通用管理/U_PayableSel.dfm b/A09财务通用管理/U_PayableSel.dfm new file mode 100644 index 0000000..33c9d92 --- /dev/null +++ b/A09财务通用管理/U_PayableSel.dfm @@ -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 diff --git a/A09财务通用管理/U_PayableSel.pas b/A09财务通用管理/U_PayableSel.pas new file mode 100644 index 0000000..89deae5 --- /dev/null +++ b/A09财务通用管理/U_PayableSel.pas @@ -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; + + + // QtyNoTaxPriceֶǷҲΪ + 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. + diff --git a/A09财务通用管理/U_ReceivableInput.dfm b/A09财务通用管理/U_ReceivableInput.dfm index c81c596..abcb2cf 100644 --- a/A09财务通用管理/U_ReceivableInput.dfm +++ b/A09财务通用管理/U_ReceivableInput.dfm @@ -34,6 +34,7 @@ object frmReceivableInput: TfrmReceivableInput ParentColor = False ShowCaptions = True TabOrder = 0 + ExplicitTop = -6 object ToolButton3: TToolButton Left = 0 Top = 0 diff --git a/A09财务通用管理/U_ReceivableList.dfm b/A09财务通用管理/U_ReceivableList.dfm index e78d0f1..23e4901 100644 --- a/A09财务通用管理/U_ReceivableList.dfm +++ b/A09财务通用管理/U_ReceivableList.dfm @@ -136,8 +136,6 @@ inherited frmReceivableList: TfrmReceivableList Color = clWhite ParentBackground = False TabOrder = 5 - ExplicitLeft = 8 - ExplicitTop = 24 object Label3: TLabel Left = 250 Top = 8 @@ -390,14 +388,14 @@ inherited frmReceivableList: TfrmReceivableList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 82 end object Tv1Column21: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 74 + Width = 80 end object Tv1Column4: TcxGridDBColumn Caption = #32534#21495 diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 8aa744c..252d762 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -1,7 +1,7 @@  - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas @@ -10,7 +10,7 @@ 1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas @@ -29,8 +29,8 @@ 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas - 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas + 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas @@ -47,10 +47,10 @@ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas 1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm @@ -58,9 +58,9 @@ 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm 1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas diff --git a/B01基础合同管理/U_SalesContractList.dfm b/B01基础合同管理/U_SalesContractList.dfm index ed41eb7..33deb66 100644 --- a/B01基础合同管理/U_SalesContractList.dfm +++ b/B01基础合同管理/U_SalesContractList.dfm @@ -621,6 +621,7 @@ inherited frmSalesContractList: TfrmSalesContractList Color = clWhite ParentBackground = False TabOrder = 6 + ExplicitTop = 36 object Label4: TLabel Left = 268 Top = 50 @@ -733,6 +734,8 @@ inherited frmSalesContractList: TfrmSalesContractList #20840#37096) LookAndFeel.Kind = lfUltraFlat OnChange = cxTabControl1Change + ExplicitLeft = 1 + ExplicitTop = 115 ClientRectBottom = 34 ClientRectLeft = 2 ClientRectRight = 1538 @@ -745,6 +748,7 @@ inherited frmSalesContractList: TfrmSalesContractList Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom + ExplicitTop = 488 end object Panel2: TPanel [5] Left = 0 diff --git a/B02基础纱线仓库/U_YarnInEdit.dfm b/B02基础纱线仓库/U_YarnInEdit.dfm index ccfd885..61e841b 100644 --- a/B02基础纱线仓库/U_YarnInEdit.dfm +++ b/B02基础纱线仓库/U_YarnInEdit.dfm @@ -21,6 +21,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit Height = 549 Align = alClient TabOrder = 0 + ExplicitTop = 36 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B02基础纱线仓库/U_YarnInEdit.pas b/B02基础纱线仓库/U_YarnInEdit.pas index a4213d4..05091f3 100644 --- a/B02基础纱线仓库/U_YarnInEdit.pas +++ b/B02基础纱线仓库/U_YarnInEdit.pas @@ -449,9 +449,9 @@ begin FieldByName('FromCoName').Value := CDS_1.fieldbyname('SellName').value;//Եλ Ӧ FieldByName('FromCoNo').Value := CDS_1.fieldbyname('SellNo').value; //֯쵥 - FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('FromOrdNo').value; - FieldByName('FromMainId').Value := CDS_1.fieldbyname('FromMainId').value; - FieldByName('FromSubId').Value := CDS_1.fieldbyname('FromSubId').value; +// FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('FromOrdNo').value; +// FieldByName('FromMainId').Value := CDS_1.fieldbyname('FromMainId').value; +// FieldByName('FromSubId').Value := CDS_1.fieldbyname('FromSubId').value; // ֯쵥 // FieldByName('ToOrdNo').Value := CDS_1.fieldbyname('PurNo').value; // FieldByName('ToMainId').Value := CDS_1.fieldbyname('PurNo').value; diff --git a/B02基础纱线仓库/U_YarnInList.dfm b/B02基础纱线仓库/U_YarnInList.dfm index 6ce2cee..e74d5b4 100644 --- a/B02基础纱线仓库/U_YarnInList.dfm +++ b/B02基础纱线仓库/U_YarnInList.dfm @@ -5,6 +5,7 @@ inherited frmYarnInList: TfrmYarnInList ClientHeight = 640 ClientWidth = 1540 Font.Height = -16 + ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 679 PixelsPerInch = 96 @@ -158,6 +159,7 @@ inherited frmYarnInList: TfrmYarnInList Color = clWhite ParentBackground = False TabOrder = 3 + ExplicitTop = 24 object Label3: TLabel Left = 717 Top = 46 diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index 7c41c04..9dda314 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,103 +1,103 @@  - 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm - 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas - 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= - 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm - 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm - 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas - 1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas - 1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas - 1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas - 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas - 1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas - 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm - 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas - 1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj - 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas - 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm - 1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= - 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm - 1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas - 1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm - 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas - 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas - 1899-12-30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas - 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas - 1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas - 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas - 1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm - 1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm - 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas - 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas - 2025-09-02 12:38:38.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas - 2025-09-02 12:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas - 2026-02-06 16:59:00.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas - 2026-02-06 17:00:15.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas= - 2026-02-06 17:00:45.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas + 1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj + 1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas + 1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm + 1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas + 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm + 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas + 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm + 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm + 1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas + 1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas + 1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm + 1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas + 1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= + 1899/12/30 00:00:00.000.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas= + 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm + 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas + 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= + 1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm + 1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas + 1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas + 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas + 1899/12/30 00:00:00.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas + 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm + 1899/12/30 00:00:00.000.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas + 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas + 1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm + 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas + 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache index 597f7ab..cda9f2e 100644 Binary files a/B02基础纱线仓库/YarnStk.identcache and b/B02基础纱线仓库/YarnStk.identcache differ diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index 39af536..e94dae1 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -1,62 +1,62 @@  - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas - 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas - 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas - 1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm - 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas - 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm - 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj - 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas - 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas - 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas - 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas - 1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 2025/12/06 09:54:40.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas + 1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas + 1899-12-30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas + 1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas + 1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj + 1899-12-30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm + 1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm + 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm + 1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= + 1899-12-30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 2025-12-06 09:54:40.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas diff --git a/B04采购计划管理/U_YarnPurchasePlanList.dfm b/B04采购计划管理/U_YarnPurchasePlanList.dfm index b24be44..ac94f19 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanList.dfm @@ -7,6 +7,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Font.Height = -16 FormStyle = fsMDIChild Visible = True + ExplicitLeft = -513 ExplicitWidth = 1380 ExplicitHeight = 774 PixelsPerInch = 96 @@ -28,6 +29,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList ParentColor = False ShowCaptions = True TabOrder = 4 + ExplicitTop = 3 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -190,6 +192,8 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Align = alClient PopupMenu = pm1 TabOrder = 3 + ExplicitLeft = 8 + ExplicitTop = 162 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -252,6 +256,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList HeaderAlignmentHorz = taCenter Width = 80 end + object Tv1ConNo: TcxGridDBColumn + Caption = #22383#24067#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 118 + end object v1ConNo: TcxGridDBColumn Caption = #37319#36141#21333#21495 DataBinding.FieldName = 'PurNo' @@ -341,31 +352,49 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Width = 80 end object Tv1Price: TcxGridDBColumn - Caption = #21333#20215 + Caption = #19981#21547#31246#21333#20215 DataBinding.FieldName = 'Price' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1TaxRate: TcxGridDBColumn - Caption = #31246#29575 - DataBinding.FieldName = 'TaxRate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 + Width = 131 end object Tv1Amount: TcxGridDBColumn - Caption = #37329#39069 + Caption = #19981#21547#31246#37329#39069 DataBinding.FieldName = 'Amount' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Width = 117 + end + object Tv1TaxRate: TcxGridDBColumn + Caption = #31246#29575'%' + DataBinding.FieldName = 'TaxRate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 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 Caption = #24065#31181 DataBinding.FieldName = 'currency' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1SNote: TcxGridDBColumn @@ -373,6 +402,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList DataBinding.FieldName = 'SNote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1RKDate: TcxGridDBColumn @@ -473,6 +503,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Color = clWhite ParentBackground = False TabOrder = 5 + ExplicitTop = 54 object Label4: TLabel Left = 452 Top = 45 @@ -605,6 +636,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Align = alBottom BorderStyle = cxcbsNone TabOrder = 7 + ExplicitLeft = 2 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -762,7 +794,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Width = 80 end object v1PRTPrice: TcxGridDBColumn - Caption = #21333#20215 + Caption = #19981#21547#31246#21333#20215 DataBinding.FieldName = 'Price' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -771,15 +803,8 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Options.Sorting = False Width = 90 end - object Tv2TaxRate: TcxGridDBColumn - Caption = #31246#29575 - DataBinding.FieldName = 'TaxRate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end object cxGridDBColumn6: TcxGridDBColumn - Caption = #37329#39069 + Caption = #19981#21547#31246#37329#39069 DataBinding.FieldName = 'Amount' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -787,12 +812,37 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Options.Editing = False Width = 90 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 Caption = #24065#31181 DataBinding.FieldName = 'currency' DataBinding.IsNullValueType = True GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter + Options.Editing = False end object cxGridDBColumn7: TcxGridDBColumn Caption = #20132#36135#26085#26399 diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas index 4369772..147adaa 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList.pas @@ -127,6 +127,11 @@ type Tv1SNote: TcxGridDBColumn; Tbdelete: TToolButton; Tv2Conno: TcxGridDBColumn; + Tv1ConNo: TcxGridDBColumn; + Tv2Tax: TcxGridDBColumn; + Tv1Tax: TcxGridDBColumn; + Tv1TaxInclude: TcxGridDBColumn; + Tv2TaxInclude: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -297,6 +302,9 @@ begin Tv1SNote.Visible := False; Tv1RKDate.Visible := False; Tv1RKQty.Visible := False; + Tv1ConNo.Visible := False; + Tv1Tax.Visible := False; + Tv1TaxInclude.Visible := False; case cxTabControl1.TabIndex of 0: @@ -307,7 +315,6 @@ begin end; 1: begin - btnCXTijiao.Enabled := True; end; 2: @@ -350,6 +357,9 @@ begin Tv1SNote.Visible := False; Tv1RKDate.Visible := False; Tv1RKQty.Visible := False; + Tv1ConNo.Visible := False; + Tv1Tax.Visible := False; + Tv1TaxInclude.Visible := False; case cxTabControl1.TabIndex of 0: diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm index 1b54f82..2858f86 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm @@ -125,6 +125,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Align = alClient BorderStyle = cxcbsNone TabOrder = 2 + ExplicitLeft = -6 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -352,7 +353,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Properties.OnButtonClick = Tv1TaxRatePropertiesButtonClick Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 80 + Width = 82 end object Tv1Tax: TcxGridDBColumn Caption = #31246#39069 @@ -427,6 +428,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut ParentColor = False ParentCtl3D = False TabOrder = 3 + ExplicitTop = 36 object lbl5: TLabel Left = 32 Top = 50 diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local index 780428e..f6221a5 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local @@ -1,114 +1,114 @@  - 1899/12/30 00:00:00.000.379,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T02贸易汇总仓库\U_testdll.pas - 1899/12/30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas - 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.pas - 1899/12/30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas - 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm - 1899/12/30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas - 1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm - 1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas + 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm + 1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas + 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas + 1899/12/30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas + 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas + 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm + 1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm + 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas + 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm + 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas + 1899/12/30 00:00:00.000.379,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T02贸易汇总仓库\U_testdll.pas 1899/12/30 00:00:00.000.656,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas - 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas - 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm - 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm + 1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm + 1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas + 1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas + 1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm - 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas - 1899/12/30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas - 1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas + 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas + 1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm + 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas + 1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas 1899/12/30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas - 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas + 1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas 1899/12/30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas - 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas - 1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas - 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas + 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas + 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas + 1899/12/30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas + 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas 1899/12/30 00:00:00.000.246,=D:\Dp10RepoV1\项目代码\D10szYueXiang\T02贸易汇总仓库\U_CollectImport.pas 1899/12/30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas - 1899/12/30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas - 1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas 1899/12/30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas + 1899/12/30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm 1899/12/30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.pas + 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas 1899/12/30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas 1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas - 1899/12/30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas - 1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas - 1899/12/30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas 1899/12/30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas + 1899/12/30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas 1899/12/30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas - 1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm - 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm - 1899/12/30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas - 1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas - 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas + 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas + 1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm + 1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas 1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.662,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas + 1899/12/30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas + 1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm + 1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj + 1899/12/30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas + 1899/12/30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas 1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas + 1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas - 1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm - 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas + 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas + 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm - 1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm - 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas - 1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas - 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas - 1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm + 1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm - 1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm - 1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj - 1899/12/30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas - 1899/12/30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas - 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm - 1899/12/30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas - 1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas - 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm + 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas + 1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm + 1899/12/30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas + 1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas + 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas + 1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas + 1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas + 1899/12/30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas diff --git a/T02贸易汇总仓库/TradeTotalClothStk.identcache b/T02贸易汇总仓库/TradeTotalClothStk.identcache index 5e801ba..144b89a 100644 Binary files a/T02贸易汇总仓库/TradeTotalClothStk.identcache and b/T02贸易汇总仓库/TradeTotalClothStk.identcache differ diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm b/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm index c6144ff..f9ed7cb 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm @@ -3,10 +3,10 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Top = 98 Caption = #22383#24067#20986#24211#21015#34920 ClientHeight = 544 - ClientWidth = 1595 + ClientWidth = 1540 Font.Height = -16 Position = poScreenCenter - ExplicitWidth = 1611 + ExplicitWidth = 1556 ExplicitHeight = 583 PixelsPerInch = 96 TextHeight = 21 @@ -14,7 +14,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 1 Left = 0 Top = 0 - Width = 1595 + Width = 1540 Height = 30 AutoSize = True ButtonHeight = 30 @@ -117,14 +117,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1595 + Width = 1540 Height = 139 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 4 object Label3: TLabel Left = 289 Top = 52 @@ -259,15 +259,19 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList ParentColor = False TabOrder = 8 ExplicitTop = 6 - inherited cbbType: TcxComboBox - ExplicitHeight = 29 + ExplicitHeight = 37 + inherited lbl2: TLabel + Width = 16 + Height = 21 + ExplicitWidth = 16 + ExplicitHeight = 21 end end end object cxGrid1: TcxGrid [2] Left = 0 Top = 169 - Width = 1595 + Width = 1540 Height = 375 Align = alClient PopupMenu = PopupMenu1 @@ -614,7 +618,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Top = 303 ExplicitLeft = 378 ExplicitTop = 303 - ExplicitHeight = 28 + ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutList.pas b/T02贸易汇总仓库/U_TradeGreyClothOutList.pas index 5cfdb17..58d9540 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutList.pas +++ b/T02贸易汇总仓库/U_TradeGreyClothOutList.pas @@ -13,7 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, - dxScrollbarAnnotations, FrameDateSel, cxContainer, cxProgressBar; + dxScrollbarAnnotations, FrameDateSel, cxContainer, cxProgressBar, dxSkinsCore, + dxSkinsDefaultPainters; type TfrmTradeGreyClothOutList = class(TfrmBaseList)