diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 96650d3..2763677 100644 Binary files a/A01基础公司管理/Company.identcache and b/A01基础公司管理/Company.identcache differ diff --git a/A01基础公司管理/Company.skincfg b/A01基础公司管理/Company.skincfg new file mode 100644 index 0000000..f0fe216 --- /dev/null +++ b/A01基础公司管理/Company.skincfg @@ -0,0 +1,62 @@ +[ExpressSkins] +Default=0 +ShowNotifications=1 +Enabled=1 +dxSkinBasic=0 +dxSkinBlack=0 +dxSkinBlue=0 +dxSkinBlueprint=0 +dxSkinCaramel=0 +dxSkinCoffee=0 +dxSkinDarkroom=0 +dxSkinDarkSide=0 +dxSkinDevExpressDarkStyle=0 +dxSkinDevExpressStyle=0 +dxSkinFoggy=0 +dxSkinGlassOceans=0 +dxSkinHighContrast=0 +dxSkiniMaginary=0 +dxSkinLilian=0 +dxSkinLiquidSky=0 +dxSkinLondonLiquidSky=0 +dxSkinMcSkin=0 +dxSkinMetropolis=0 +dxSkinMetropolisDark=0 +dxSkinMoneyTwins=0 +dxSkinOffice2007Black=0 +dxSkinOffice2007Blue=0 +dxSkinOffice2007Green=0 +dxSkinOffice2007Pink=0 +dxSkinOffice2007Silver=0 +dxSkinOffice2010Black=0 +dxSkinOffice2010Blue=0 +dxSkinOffice2010Silver=0 +dxSkinOffice2013DarkGray=0 +dxSkinOffice2013LightGray=0 +dxSkinOffice2013White=0 +dxSkinOffice2016Colorful=0 +dxSkinOffice2016Dark=0 +dxSkinOffice2019Black=0 +dxSkinOffice2019Colorful=0 +dxSkinOffice2019DarkGray=0 +dxSkinOffice2019White=0 +dxSkinPumpkin=0 +dxSkinSeven=0 +dxSkinSevenClassic=0 +dxSkinSharp=0 +dxSkinSharpPlus=0 +dxSkinSilver=0 +dxSkinSpringtime=0 +dxSkinStardust=0 +dxSkinSummer2008=0 +dxSkinTheAsphaltWorld=0 +dxSkinTheBezier=0 +dxSkinsDefaultPainters=1 +dxSkinValentine=0 +dxSkinVisualStudio2013Blue=0 +dxSkinVisualStudio2013Dark=0 +dxSkinVisualStudio2013Light=0 +dxSkinVS2010=0 +dxSkinWhiteprint=0 +dxSkinWXI=1 +dxSkinXmas2008Blue=0 diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index a024372..e0dc4fe 100644 Binary files a/A02基础产品管理/ClothInfo.identcache and b/A02基础产品管理/ClothInfo.identcache differ diff --git a/A02基础产品管理/testDll.identcache b/A02基础产品管理/testDll.identcache index 641931d..429d489 100644 Binary files a/A02基础产品管理/testDll.identcache and b/A02基础产品管理/testDll.identcache differ diff --git a/A09财务通用管理/Financial.dpr b/A09财务通用管理/Financial.dpr index d0cceee..5f506c8 100644 --- a/A09财务通用管理/Financial.dpr +++ b/A09财务通用管理/Financial.dpr @@ -30,7 +30,9 @@ uses U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_TradePlanSel in '..\T00óͨô\U_TradePlanSel.pas' {frmTradePlanSel}, U_CompanySel in 'U_CompanySel.pas' {frmCompanySel}, - U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}; + U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, + U_OtherPayableList in 'U_OtherPayableList.pas' {frmOtherPayableList}, + U_OtherPayableInput in 'U_OtherPayableInput.pas' {frmOtherPayableInput}; {$R *.res} diff --git a/A09财务通用管理/Financial.dproj b/A09财务通用管理/Financial.dproj index 57a5919..288e29d 100644 --- a/A09财务通用管理/Financial.dproj +++ b/A09财务通用管理/Financial.dproj @@ -206,6 +206,14 @@ dfm TDataModule + +
frmOtherPayableList
+ dfm + + +
frmOtherPayableInput
+ dfm + Cfg_2 Base diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index 22622bc..4d33077 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -2,19 +2,20 @@ 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas - 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.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm 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.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas - 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas @@ -26,21 +27,22 @@ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj - 1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas - 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas @@ -121,5 +123,9 @@ + + + + diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index 360254e..d9e13fa 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 0374a58..f1360a8 100644 --- a/A09财务通用管理/ProjectGroup1.groupproj.local +++ b/A09财务通用管理/ProjectGroup1.groupproj.local @@ -1,7 +1,7 @@  - - - - + + + + diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas index f0ae2c2..474db64 100644 --- a/A09财务通用管理/U_GetDllForm.pas +++ b/A09财务通用管理/U_GetDllForm.pas @@ -17,7 +17,8 @@ implementation uses U_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList, U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList, - U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList; + U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList, + U_OtherPayableList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -77,7 +78,7 @@ begin pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - Parameters1:='¼'; + Parameters1:=''; end else begin @@ -198,6 +199,18 @@ begin end; end; + 212: //ӦǼ + begin + with TfrmOtherPayableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 221: //Ǽ begin with TfrmPayList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/A09财务通用管理/U_InvoiceInInPut.dfm b/A09财务通用管理/U_InvoiceInInPut.dfm index 3e5b759..c72a0c6 100644 --- a/A09财务通用管理/U_InvoiceInInPut.dfm +++ b/A09财务通用管理/U_InvoiceInInPut.dfm @@ -107,6 +107,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut Column = v1Column4 end> DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False @@ -305,6 +306,10 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut HeaderAlignmentHorz = taCenter Width = 66 end + object Tv1Column9: TcxGridDBColumn + DataBinding.FieldName = 'IVID' + DataBinding.IsNullValueType = True + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 diff --git a/A09财务通用管理/U_InvoiceInInPut.pas b/A09财务通用管理/U_InvoiceInInPut.pas index af89aa6..45cd9f8 100644 --- a/A09财务通用管理/U_InvoiceInInPut.pas +++ b/A09财务通用管理/U_InvoiceInInPut.pas @@ -10,8 +10,8 @@ uses cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, - dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, - dxSkinWXI, dxScrollbarAnnotations; + dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinWXI, + dxScrollbarAnnotations; type TfrmInvoiceInInPut = class(TForm) @@ -46,6 +46,7 @@ type ToolButton3: TToolButton; Tv1Column6: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TSaveClick(Sender: TObject); @@ -67,7 +68,7 @@ type { Private declarations } public FIVID: string; - fInvoiceFlag: string; + fInvoiceFlag, PState: string; { Public declarations } end; @@ -77,7 +78,7 @@ var implementation uses - U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink,U_ClothInfoSel; + U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_ClothInfoSel; {$R *.dfm} procedure TfrmInvoiceInInPut.SaveDate(); @@ -146,8 +147,16 @@ begin begin close; sql.Clear; - sql.Add('select * from Finance_Invoice where IVID=''' + trim(FIVID) + ''''); + if PState = '复制' then + begin + sql.Add('select '''' IViD,* from Finance_Invoice where IVID=''' + trim(FIVID) + ''''); + end + else + begin + sql.Add('select * from Finance_Invoice where IVID=''' + trim(FIVID) + ''''); + end; sql.add(' and isnull(status,''0'')=''0'''); +// showmessage(sql.text); open; end; @@ -196,19 +205,21 @@ end; procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - frmClothInfoSel := TfrmClothInfoSel.Create(self); - with frmClothInfoSel do - begin - if showmodal = 1 then + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do begin - CDS_Invoice.Edit; - CDS_Invoice.fieldbyname('F_Code').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; - - CDS_Invoice.fieldbyname('F_Name').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring; - - CDS_Invoice.Post; + flag := 'MPRTCodeName'; + flagname := '产品名称'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('F_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; end; - free; + finally + frmZDYHelp.Free; end; tv1.Controller.EditingController.ShowEdit(); @@ -383,18 +394,47 @@ end; procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject); begin - CDS_Invoice.Append; - CDS_Invoice.FieldByName('IVDate').Value := now(); - CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg'; - CDS_Invoice.FieldByName('Amount').Value := 0; - CDS_Invoice.FieldByName('Qty').Value := 0; - CDS_Invoice.FieldByName('tax').Value := 0; - CDS_Invoice.FieldByName('TaxFee').Value := 0; - CDS_Invoice.FieldByName('taxAmount').Value := 0; - CDS_Invoice.FieldByName('Price').Value := 0; - CDS_Invoice.FieldByName('tax').Value := 13; - CDS_Invoice.FieldByName('Currency').Value := 'CNY'; - CDS_Invoice.Post; + if CDS_Invoice.IsEmpty = False then + begin + CopyAddRowCDS(CDS_Invoice); + with CDS_Invoice do + begin + Edit; + FieldByName('IVID').Value := null; + post; + end; + end + else + begin + with CDS_Invoice do + begin + Append; + FieldByName('IVDate').Value := now(); + FieldByName('QtyUnit').Value := 'Kg'; + FieldByName('Amount').Value := 0; + FieldByName('Qty').Value := 0; + FieldByName('tax').Value := 0; + FieldByName('TaxFee').Value := 0; + FieldByName('taxAmount').Value := 0; + FieldByName('Price').Value := 0; + FieldByName('tax').Value := 13; + FieldByName('Currency').Value := 'CNY'; + Post; + end; + end; + +// CDS_Invoice.append; +// CDS_Invoice.FieldByName('IVDate').Value := now(); +// CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg'; +// CDS_Invoice.FieldByName('Amount').Value := 0; +// CDS_Invoice.FieldByName('Qty').Value := 0; +// CDS_Invoice.FieldByName('tax').Value := 0; +// CDS_Invoice.FieldByName('TaxFee').Value := 0; +// CDS_Invoice.FieldByName('taxAmount').Value := 0; +// CDS_Invoice.FieldByName('Price').Value := 0; +// CDS_Invoice.FieldByName('tax').Value := 13; +// CDS_Invoice.FieldByName('Currency').Value := 'CNY'; +// CDS_Invoice.Post; end; diff --git a/A09财务通用管理/U_InvoiceInList.dfm b/A09财务通用管理/U_InvoiceInList.dfm index 8d7b2a0..7a1b59a 100644 --- a/A09财务通用管理/U_InvoiceInList.dfm +++ b/A09财务通用管理/U_InvoiceInList.dfm @@ -6,6 +6,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList ClientWidth = 1540 FormStyle = fsMDIChild Visible = True + ExplicitLeft = -23 ExplicitWidth = 1556 ExplicitHeight = 665 PixelsPerInch = 96 @@ -59,16 +60,24 @@ inherited frmInvoiceInList: TfrmInvoiceInList ImageIndex = 3 OnClick = TUPDATEClick end - object TBDEL: TToolButton + object ToolButton5: TToolButton Left = 284 Top = 0 AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object TBDEL: TToolButton + Left = 355 + Top = 0 + AutoSize = True Caption = #21024#38500 ImageIndex = 5 OnClick = TBDELClick end object TSel: TToolButton - Left = 355 + Left = 426 Top = 0 AutoSize = True Caption = #26597#30475 @@ -76,7 +85,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList OnClick = TSelClick end object TCHK: TToolButton - Left = 426 + Left = 497 Top = 0 AutoSize = True Caption = #23457#26680 @@ -84,7 +93,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList OnClick = TCHKClick end object TNOCHK: TToolButton - Left = 497 + Left = 568 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 @@ -92,7 +101,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList OnClick = TNOCHKClick end object ToolButton4: TToolButton - Left = 592 + Left = 663 Top = 0 AutoSize = True Caption = #25171#21360 @@ -101,7 +110,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList OnClick = ToolButton4Click end object ToolButton1: TToolButton - Left = 663 + Left = 734 Top = 0 AutoSize = True Caption = #23548#20986 @@ -109,7 +118,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList OnClick = ToolButton1Click end object ToolButton3: TToolButton - Left = 734 + Left = 805 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -117,7 +126,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList OnClick = ToolButton3Click end object TBClose: TToolButton - Left = 829 + Left = 900 Top = 0 AutoSize = True Caption = #20851#38381 @@ -315,6 +324,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 + ExplicitLeft = -8 + ExplicitTop = 44 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -439,7 +450,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList end object v1Column10: TcxGridDBColumn Caption = #20135#21697#21517#31216 - DataBinding.FieldName = 'P_Name' + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 72 diff --git a/A09财务通用管理/U_InvoiceInList.pas b/A09财务通用管理/U_InvoiceInList.pas index 80ccb31..6c40f3b 100644 --- a/A09财务通用管理/U_InvoiceInList.pas +++ b/A09财务通用管理/U_InvoiceInList.pas @@ -86,6 +86,7 @@ type v1Column19: TcxGridDBColumn; ToolButton3: TToolButton; N3: TMenuItem; + ToolButton5: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -108,6 +109,7 @@ type procedure v1Column14PropertiesEditValueChanged(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure N3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); private { Private declarations } @@ -496,6 +498,23 @@ begin end; end; +procedure TfrmInvoiceInList.ToolButton5Click(Sender: TObject); +begin + frmInvoiceInInPut := TfrmInvoiceInInPut.Create(self); + with frmInvoiceInInPut do + begin + IvNo.Enabled := False; + FIVID := trim(Self.CDS_Invoice.fieldbyname('IVID').asstring); + PState:=''; + if showmodal = 1 then + begin + Self.initGrid(); + end; + free; + end; + +end; + procedure TfrmInvoiceInList.v1Column14PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; diff --git a/A09财务通用管理/U_InvoiceOutList.dfm b/A09财务通用管理/U_InvoiceOutList.dfm index 81d2743..6767091 100644 --- a/A09财务通用管理/U_InvoiceOutList.dfm +++ b/A09财务通用管理/U_InvoiceOutList.dfm @@ -439,7 +439,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList end object v1Column10: TcxGridDBColumn Caption = #20135#21697#21517#31216 - DataBinding.FieldName = 'P_Name' + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 72 diff --git a/A09财务通用管理/U_OtherPayableInput.dfm b/A09财务通用管理/U_OtherPayableInput.dfm new file mode 100644 index 0000000..ac15e10 --- /dev/null +++ b/A09财务通用管理/U_OtherPayableInput.dfm @@ -0,0 +1,690 @@ +object frmOtherPayableInput: TfrmOtherPayableInput + Left = 261 + Top = 149 + Caption = #20854#20182#24212#20184#27454#30331#35760 + ClientHeight = 362 + ClientWidth = 919 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Tag = 1 + Left = 0 + Top = 0 + Width = 919 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 38 + Width = 919 + Height = 324 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Color = clWhite + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentColor = False + ParentCtl3D = False + ParentFont = False + TabOrder = 1 + OnClick = ScrollBox1Click + object Label2: TLabel + Left = 245 + Top = 20 + Width = 52 + Height = 15 + Caption = #23545#26041#21333#20301 + Font.Charset = ANSI_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 28 + Top = 79 + Width = 50 + Height = 15 + Caption = #32534' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 28 + Top = 204 + Width = 50 + Height = 15 + Caption = #22791' '#27880 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 245 + Top = 79 + Width = 50 + Height = 15 + Caption = #21697' '#21517 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 674 + Top = 49 + Width = 52 + Height = 15 + Caption = #20184#27454#26041#24335 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 28 + Top = 20 + Width = 52 + Height = 15 + Caption = #25105#26041#21333#20301 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 455 + Top = 20 + Width = 52 + Height = 15 + Caption = #19978#32423#21333#20301 + Font.Charset = ANSI_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 245 + Top = 172 + Width = 50 + Height = 15 + Caption = #37329' '#39069 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 28 + Top = 136 + Width = 50 + Height = 15 + Caption = #21305' '#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 245 + Top = 136 + Width = 50 + Height = 15 + Caption = #25968' '#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 455 + Top = 136 + Width = 50 + Height = 15 + Caption = #21333' '#20215 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 28 + Top = 105 + Width = 50 + Height = 15 + Caption = #38376' '#24133 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 245 + Top = 105 + Width = 50 + Height = 15 + Caption = #20811' '#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 455 + Top = 79 + Width = 50 + Height = 15 + Caption = #33457' '#22411 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 674 + Top = 79 + Width = 50 + Height = 15 + Caption = #39068' '#33394 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label17: TLabel + Left = 455 + Top = 105 + Width = 50 + Height = 15 + Caption = #33394' '#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 674 + Top = 136 + Width = 51 + Height = 15 + Caption = #20854' '#20182' '#36153 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 674 + Top = 20 + Width = 50 + Height = 15 + Caption = #26085' '#26399 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 28 + Top = 172 + Width = 50 + Height = 15 + Caption = #20943' '#20813 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 244 + Top = 49 + Width = 52 + Height = 15 + Caption = #35745#21010#21333#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 27 + Top = 49 + Width = 52 + Height = 15 + Caption = #23458#25143#21333#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 455 + Top = 49 + Width = 53 + Height = 15 + Caption = #25688' '#35201 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 458 + Top = 172 + Width = 52 + Height = 15 + Caption = #26159#21542#21547#31246 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object F_Code: TEdit + Left = 82 + Top = 77 + Width = 140 + Height = 18 + TabOrder = 0 + end + object Note: TMemo + Left = 82 + Top = 204 + Width = 797 + Height = 57 + ScrollBars = ssVertical + TabOrder = 2 + end + object F_Name: TEdit + Left = 299 + Top = 77 + Width = 140 + Height = 18 + TabOrder = 1 + end + object Currency: TComboBox + Left = 402 + Top = 169 + Width = 37 + Height = 20 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -10 + Font.Name = 'Times New Roman' + Font.Style = [] + ItemIndex = 0 + ParentFont = False + TabOrder = 3 + Text = 'CNY' + Items.Strings = ( + 'CNY' + 'USD') + end + object PayMent: TBtnEditC + Left = 728 + Top = 47 + Width = 140 + Height = 20 + Hint = 'PayMent/'#20184#27454#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnBtnUpClick = PayMentBtnUpClick + OnBtnDnClick = PayMentBtnDnClick + end + object OppCoName: TBtnEditC + Left = 297 + Top = 17 + Width = 140 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 5 + OnBtnUpClick = OppCoNameBtnUpClick + OnBtnDnClick = PayMentBtnDnClick + end + object OurCoName: TBtnEditC + Left = 82 + Top = 18 + Width = 140 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 6 + OnBtnUpClick = OurCoNameBtnUpClick + OnBtnDnClick = PayMentBtnDnClick + end + object OppParentCoName: TBtnEditC + Left = 512 + Top = 17 + Width = 140 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 7 + OnBtnUpClick = OppParentCoNameBtnUpClick + OnBtnDnClick = PayMentBtnDnClick + end + object Amount: TcxCurrencyEdit + Left = 299 + Top = 170 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 8 + OnExit = QtyExit + Width = 101 + end + object Price: TcxCurrencyEdit + Left = 513 + Top = 133 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 9 + OnExit = QtyExit + Width = 140 + end + object Qty: TcxCurrencyEdit + Left = 299 + Top = 133 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 10 + OnExit = QtyExit + Width = 101 + end + object Piece: TcxCurrencyEdit + Left = 84 + Top = 133 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 11 + Width = 140 + end + object QtyUnit: TComboBox + Left = 400 + Top = 133 + Width = 37 + Height = 20 + Style = csDropDownList + ItemIndex = 0 + TabOrder = 12 + Text = 'Kg' + Items.Strings = ( + 'Kg' + 'M' + 'Y' + #20010 + #20214) + end + object F_Width: TEdit + Left = 82 + Top = 103 + Width = 140 + Height = 18 + TabOrder = 13 + Visible = False + end + object F_GramWeight: TEdit + Left = 298 + Top = 103 + Width = 140 + Height = 18 + TabOrder = 14 + Visible = False + end + object F_Pattern: TEdit + Left = 512 + Top = 78 + Width = 140 + Height = 18 + TabOrder = 15 + Visible = False + end + object F_Color: TEdit + Left = 727 + Top = 77 + Width = 140 + Height = 18 + TabOrder = 16 + Visible = False + end + object F_ColorNo: TEdit + Left = 512 + Top = 103 + Width = 140 + Height = 18 + TabOrder = 17 + Visible = False + end + object OtherFee: TcxCurrencyEdit + Left = 727 + Top = 133 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 18 + OnExit = QtyExit + Width = 140 + end + object FFTime: TDateTimePicker + Left = 728 + Top = 17 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + TabOrder = 19 + end + object Deduction: TcxCurrencyEdit + Left = 82 + Top = 169 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 20 + OnExit = QtyExit + Width = 140 + end + object OrderNo: TBtnEditC + Left = 301 + Top = 47 + Width = 140 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 21 + OnBtnUpClick = OrderNoBtnUpClick + OnBtnDnClick = PayMentBtnDnClick + end + object BuyConNo: TBtnEditC + Left = 81 + Top = 47 + Width = 140 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 22 + OnBtnDnClick = PayMentBtnDnClick + end + object FFAbstract: TBtnEditC + Left = 513 + Top = 47 + Width = 140 + Height = 20 + Hint = 'FFAbstract/'#25688#35201 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 23 + OnBtnUpClick = PayMentBtnUpClick + OnBtnDnClick = PayMentBtnDnClick + end + object IsInvoice: TComboBox + Left = 513 + Top = 169 + Width = 137 + Height = 20 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 24 + Items.Strings = ( + #21547#31246 + #19981#21547#31246) + end + object FZFlag: TcxCurrencyEdit + Left = 690 + Top = 275 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 25 + Visible = False + OnExit = QtyExit + Width = 140 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 547 + Top = 336 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 438 + Top = 336 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 325 + Top = 345 + end +end diff --git a/A09财务通用管理/U_OtherPayableInput.pas b/A09财务通用管理/U_OtherPayableInput.pas new file mode 100644 index 0000000..4621496 --- /dev/null +++ b/A09财务通用管理/U_OtherPayableInput.pas @@ -0,0 +1,431 @@ +unit U_OtherPayableInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI; + +type + TfrmOtherPayableInput = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ToolButton3: TToolButton; + ScrollBox1: TScrollBox; + Label2: TLabel; + Label6: TLabel; + Label7: TLabel; + F_Code: TEdit; + Note: TMemo; + Label1: TLabel; + F_Name: TEdit; + Label8: TLabel; + Currency: TComboBox; + PayMent: TBtnEditC; + OppCoName: TBtnEditC; + Label5: TLabel; + OurCoName: TBtnEditC; + Label9: TLabel; + OppParentCoName: TBtnEditC; + Amount: TcxCurrencyEdit; + Label3: TLabel; + Price: TcxCurrencyEdit; + Qty: TcxCurrencyEdit; + Piece: TcxCurrencyEdit; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + QtyUnit: TComboBox; + Label13: TLabel; + Label14: TLabel; + F_Width: TEdit; + F_GramWeight: TEdit; + Label15: TLabel; + Label16: TLabel; + F_Pattern: TEdit; + F_Color: TEdit; + Label17: TLabel; + F_ColorNo: TEdit; + OtherFee: TcxCurrencyEdit; + Label4: TLabel; + Label20: TLabel; + FFTime: TDateTimePicker; + Deduction: TcxCurrencyEdit; + Label21: TLabel; + Label22: TLabel; + OrderNo: TBtnEditC; + Label23: TLabel; + BuyConNo: TBtnEditC; + Label24: TLabel; + FFAbstract: TBtnEditC; + Label18: TLabel; + IsInvoice: TComboBox; + FZFlag: TcxCurrencyEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure PayMentBtnDnClick(Sender: TObject); + procedure PayMentBtnUpClick(Sender: TObject); + procedure OppCoNameBtnUpClick(Sender: TObject); + procedure OppParentCoNameBtnUpClick(Sender: TObject); + procedure OurCoNameBtnUpClick(Sender: TObject); + procedure QtyExit(Sender: TObject); + procedure ScrollBox1Click(Sender: TObject); + procedure OrderNoBtnUpClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure HJJE(); + function SaveData(): Boolean; + public + { Public declarations } + FFFID,PState: string; + end; + +var + frmOtherPayableInput: TfrmOtherPayableInput; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel; + +{$R *.dfm} + +procedure TfrmOtherPayableInput.HJJE(); +var + MPrice, MQty, MOtherFee, MDeduction, MAmount: double; +begin + MPrice := Strtofloatdef(Price.Text, 0); + MQty := Strtofloatdef(Qty.Text, 0); + MOtherFee := Strtofloatdef(OtherFee.Text, 0); + MDeduction := Strtofloatdef(Deduction.Text, 0); + MAmount := Strtofloatdef(Amount.Text, 0); + +// if MQty * MPrice <> 0 then +// begin + + MAmount := RoundFloat((MQty * MPrice + MOtherFee - MDeduction), 2); +// end; +// Price.Text := FloatToStr(MPrice); +// Qty.Text := FloatToStr(MQty); +// OtherFee.Text := FloatToStr(MOtherFee); +// Deduction.Text := FloatToStr(MDeduction); + Amount.Text := FloatToStr(MAmount); +end; + +procedure TfrmOtherPayableInput.InitGrid(); +begin + try + + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select BuyConNo=(ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId))),A.* from Finance_Flow A where A.FFID=''' + Trim(FFFID) + ''''); +// showmessage(sql.text); + Open; + end; + if not ADOQueryMain.IsEmpty then + begin + SCSHData(ADOQueryMain, ScrollBox1, 0); + OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString); + OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString); + OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString); + end + else + begin + FFTime.DateTime := SGetServerDateTime(ADOQueryTemp); + end; + + if PState='' then + begin + FFFID:=''; + Piece.text:=''; + Qty.text:=''; + Price.text:=''; + OtherFee.text:=''; + Deduction.text:=''; + Amount.text:=''; + FZFlag.Text:=''; + end; + + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOtherPayableInput.OppCoNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmOtherPayableInput.OppParentCoNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmOtherPayableInput.OrderNoBtnUpClick(Sender: TObject); +begin + try + frmTradePlanSel := TfrmTradePlanSel.Create(Application); + with frmTradePlanSel do + begin +// FMainID := MainID.Text; + if ShowModal = 1 then + begin + Self.OrderNO.Text := CDS_1.fieldbyname('OrderNo').value; + Self.OurCoName.Text := Trim(CDS_1.fieldbyname('OurCoName').AsString); + Self.OurCoName.TxtCode := Trim(CDS_1.fieldbyname('OurCoNo').AsString); +// Self.OppCoName.Text := Trim(CDS_1.fieldbyname('CustName').AsString); +// Self.OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CustNo').AsString); + Self.F_Code.Text := Trim(CDS_1.fieldbyname('C_Code').AsString); + Self.F_Name.text := Trim(CDS_1.fieldbyname('C_Name').AsString); + Self.F_Pattern.Text := Trim(CDS_1.fieldbyname('C_Pattern').AsString); + Self.F_Color.text := Trim(CDS_1.fieldbyname('C_Color').AsString); + Self.F_ColorNo.Text := Trim(CDS_1.fieldbyname('C_ColorNo').AsString); + Self.F_Width.text := Trim(CDS_1.fieldbyname('C_Width').AsString); + Self.F_GramWeight.text := Trim(CDS_1.fieldbyname('C_GramWeight').AsString); + Self.BuyConNo.text := Trim(CDS_1.fieldbyname('BuyConNo').AsString); + end; + end; + finally + frmTradePlanSel.Free; + end; +end; + +procedure TfrmOtherPayableInput.OurCoNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '˾'; + if ShowModal = 1 then + begin + OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmOtherPayableInput.FormDestroy(Sender: TObject); +begin + frmOtherPayableInput := nil; +end; + +procedure TfrmOtherPayableInput.PayMentBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmOtherPayableInput.PayMentBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + MainType := 'Ӧ'; + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmOtherPayableInput.QtyExit(Sender: TObject); +begin + HJJE(); +end; + +procedure TfrmOtherPayableInput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + Action := caFree; +end; + +procedure TfrmOtherPayableInput.TBCloseClick(Sender: TObject); +begin + + close; +end; + +procedure TfrmOtherPayableInput.FormShow(Sender: TObject); +begin +// if Trim(FFFID) = '' then +// begin +// with ADOQueryTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add(' select top 1 * from BS_Company where CoType=''˾'' order by CoCode '); +// Open; +// end; +// OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString); +// OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString); +// end; + InitGrid(); +end; + +procedure TfrmOtherPayableInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmOtherPayableInput.SaveData(): Boolean; +var + MaxId, MaxSubId, FCoCode, FCCID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FFFID) = '' then + begin + if not GetLSNo(ADOQueryCmd, MaxId, 'YS', 'Finance_Flow', 4, 1) then + raise Exception.Create('ȡʧܣ'); + end + else + begin + MaxId := Trim(FFFID); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Finance_Flow where FFID=''' + Trim(FFFID) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFFID) = '' then + begin + Append; + FieldByName('FillId').Value := Trim(DCode); + FieldByName('Filler').Value := Trim(DName); + FieldByName('FFFlag').Value := 'Ӧ'; + FieldByName('FFType').Value := 'ӦǼ'; + FieldByName('status').Value := '0'; + FieldByName('FFQtyFlag').Value := 1; + end + else + begin + Edit; + FieldByName('EditId').Value := Trim(DCode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode); + FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); + FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode); + FieldByName('FFID').Value := Trim(MaxId); + RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0); + Post; + end; + + ADOQueryCmd.Connection.CommitTrans; + FCCID := Trim(MaxSubId); + Result := True; + except + Result := false; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmOtherPayableInput.ScrollBox1Click(Sender: TObject); +begin + HJJE(); +end; + +procedure TfrmOtherPayableInput.ToolButton3Click(Sender: TObject); +begin + ToolBar1.SetFocus; + if Trim(OppCoName.Text) = '' then + begin + Application.MessageBox('ԷλΪ!', 'ʾ', 0); + Exit; + end; + if Trim(OurCoName.Text) = '' then + begin + Application.MessageBox('ҷλΪ!', 'ʾ', 0); + Exit; + end; + if Trim(Currency.Text) = '' then + begin + Application.MessageBox('ֲΪ!', 'ʾ', 0); + Exit; + end; + if Trim(FFAbstract.Text) = '' then + begin + Application.MessageBox('ժҪΪ!', 'ʾ', 0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + ModalResult := 1; + end; +end; + +end. + diff --git a/A09财务通用管理/U_OtherPayableList.dfm b/A09财务通用管理/U_OtherPayableList.dfm new file mode 100644 index 0000000..78be277 --- /dev/null +++ b/A09财务通用管理/U_OtherPayableList.dfm @@ -0,0 +1,666 @@ +inherited frmOtherPayableList: TfrmOtherPayableList + Left = 315 + Top = 101 + Caption = #20854#20182#24212#20184#27454#31649#29702 + ClientHeight = 590 + ClientWidth = 1540 + FormStyle = fsMDIChild + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 629 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object btnAdd: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = btnAddClick + end + object btnEdit: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = btnEditClick + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 9 + OnClick = ToolButton1Click + end + object btnDel: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = btnDelClick + end + object btnChk: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + OnClick = btnChkClick + end + object btnReChk: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = btnReChkClick + end + object ToolButton4: TToolButton + Left = 521 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 592 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 687 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 65 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label3: TLabel + Left = 172 + Top = 13 + Width = 52 + Height = 12 + Caption = #23545#26041#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 333 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label6: TLabel + Left = 333 + Top = 39 + Width = 24 + Height = 12 + Caption = #32534#21495 + end + object Label10: TLabel + Left = 479 + Top = 39 + Width = 48 + Height = 12 + Caption = #21512' '#21516' '#21495 + end + object Label11: TLabel + Left = 479 + Top = 13 + Width = 48 + Height = 12 + Caption = #23458#25143#21333#21495 + end + object Label2: TLabel + Left = 174 + Top = 39 + Width = 48 + Height = 12 + Caption = #19978#32423#21333#20301 + end + object OppCoName: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnKeyPress = OppCoNameKeyPress + end + object begdate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 77 + Top = 35 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 2 + end + object F_Name: TEdit + Tag = 2 + Left = 359 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnKeyPress = OppCoNameKeyPress + end + object CheckBox1: TCheckBox + Left = 5 + Top = 11 + Width = 71 + Height = 17 + Caption = #26597#35810#26085#26399 + Checked = True + State = cbChecked + TabOrder = 4 + end + object P_Code: TEdit + Tag = 1 + Left = 359 + Top = 35 + Width = 89 + Height = 20 + TabOrder = 5 + OnKeyPress = OppCoNameKeyPress + end + object ConNo: TEdit + Tag = 2 + Left = 529 + Top = 35 + Width = 87 + Height = 20 + TabOrder = 6 + OnKeyPress = OppCoNameKeyPress + end + object BuyConNo: TEdit + Tag = 2 + Left = 529 + Top = 9 + Width = 87 + Height = 20 + TabOrder = 7 + OnKeyPress = OppCoNameKeyPress + end + object OppParentCoName: TEdit + Tag = 2 + Left = 226 + Top = 35 + Width = 91 + Height = 20 + TabOrder = 8 + OnKeyPress = OppCoNameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 136 + Width = 1540 + Height = 454 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv1Column12 + end + item + Kind = skSum + Column = Tv1Column15 + end + item + Kind = skSum + Column = Tv1Column16 + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column11 + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.IncSearch = DataLink_Financial.SHuangSe + Styles.Footer = DataLink_Financial.Default + Styles.Header = DataLink_Financial.Default + Styles.Inactive = DataLink_Financial.SHuangSe + Styles.Selection = DataLink_Financial.SHuangSe + object Tv1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v2CRTime: TcxGridDBColumn + Tag = 7 + Caption = #21457#29983#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 Tv1Column23: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'ReconciliationDate' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v2Column2: TcxGridDBColumn + Caption = #25105#26041#21333#20301 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v2FactoryName: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v2OrderNo: TcxGridDBColumn + Tag = 7 + Caption = #19978#32423#21333#20301 + DataBinding.FieldName = 'OppParentCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'PayMent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column19: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column24: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1Column20: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column21: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column4: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'F_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'F_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column7: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'F_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'F_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'F_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column10: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'F_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column11: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column12: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column13: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column14: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column15: TcxGridDBColumn + Caption = #20854#20182#36153 + DataBinding.FieldName = 'OtherFee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column16: TcxGridDBColumn + Caption = #20943#20813 + DataBinding.FieldName = 'Deduction' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column2: TcxGridDBColumn + Caption = #26159#21542#21547#31246 + DataBinding.FieldName = 'IsInvoice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object Tv1Column17: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column18: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column1: TcxGridDBColumn + Caption = #26469#28304 + DataBinding.FieldName = 'FromID1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column25: TcxGridDBColumn + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column26: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 103 + Width = 1540 + Height = 33 + Align = alTop + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 2 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 36 + ClientRectRight = 1540 + ClientRectTop = 36 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 233 + Top = 176 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 121 + Top = 177 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 197 + Top = 433 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 101 + Top = 433 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 293 + Top = 433 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 232 + Top = 288 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 168 + Top = 280 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 504 + Top = 312 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 595 + Top = 315 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + Top = 336 + end + object PopupMenu1: TPopupMenu + Left = 776 + Top = 304 + 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_OtherPayableList.pas b/A09财务通用管理/U_OtherPayableList.pas new file mode 100644 index 0000000..514a695 --- /dev/null +++ b/A09财务通用管理/U_OtherPayableList.pas @@ -0,0 +1,557 @@ +unit U_OtherPayableList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, + dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations; + +type + TfrmOtherPayableList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + btnDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + OppCoName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v2CRTime: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + GPM_1: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + btnAdd: TToolButton; + v2FactoryName: TcxGridDBColumn; + F_Name: TEdit; + Label4: TLabel; + CheckBox1: TCheckBox; + Label6: TLabel; + P_Code: TEdit; + v2OrderNo: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + Label10: TLabel; + ConNo: TEdit; + Label11: TLabel; + BuyConNo: TEdit; + v2Column2: TcxGridDBColumn; + btnChk: TToolButton; + btnReChk: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + ToolButton4: TToolButton; + Label2: TLabel; + OppParentCoName: TEdit; + ToolButton5: TToolButton; + N2: TMenuItem; + btnEdit: TToolButton; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + N3: TMenuItem; + Tv1Column24: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + ToolButton1: TToolButton; + Tv1Column25: TcxGridDBColumn; + Tv1Column26: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure btnDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure OppCoNameKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure btnChkClick(Sender: TObject); + procedure btnReChkClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure btnEditClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + procedure InitGrid(); + procedure SetStatus(); + public + FAuthority: string; + end; + +implementation + +uses + U_DataLink, U_RTFun, U_PayableInput, U_ZDYHelp, U_OtherPayableInput; + +{$R *.dfm} +procedure TfrmOtherPayableList.SetStatus(); +begin + + btnChk.Enabled := false; // + btnReChk.Enabled := false; // + + btnAdd.Enabled := false; // + btnEdit.Enabled := false; //޸ + btnDel.Enabled := false; //ɾ + +// 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; + end; + 2: + begin + + end; + end; + end; +end; + +procedure TfrmOtherPayableList.InitGrid(); +var + WSql: string; +begin + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql + else + CheckBox1.Checked := True; + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered := False; + sql.Add(' select BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId )),A.* '); + sql.Add('from Finance_Flow A where A.FFType=''ӦǼ'' '); + case cxTabControl1.TabIndex of + 0: + begin + sql.Add(' and isnull(status,''0'')=''0'' '); + end; + 1: + begin + sql.Add(' and isnull(status,''0'')=''9'' '); + end; + end; + if CheckBox1.Checked then + begin + sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + end; + sql.Add(WSql); + sql.Add('Order By FFTime,OppCoName,OrderNo'); +// ShowMessage(sql.text) ; + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; +end; + +procedure TfrmOtherPayableList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_1, true) +end; + +procedure TfrmOtherPayableList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmOtherPayableList.N3Click(Sender: TObject); +begin + SelOKNo(CDS_1, false) + +end; + +procedure TfrmOtherPayableList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmOtherPayableList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmOtherPayableList.btnDelClick(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 + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_Fin_Flow_Del '); + 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))); + application.MessageBox('ɾɹ', 'ʾ'); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; +end; + +procedure TfrmOtherPayableList.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(Self.Caption), Tv1, ''); + Enddate.DateTime := SGetServerDate(ADOQueryTemp); + begdate.DateTime := Enddate.DateTime - 30; + SetStatus(); + InitGrid(); +end; + +procedure TfrmOtherPayableList.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; +// with ADOQueryCmd do +// begin +// Close; +// Sql.Clear; +// Sql.Add('exec P_Fin_Generate_BQ '); +// Open; +// end; +// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then +// begin +// application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), 'ʾϢ'); +// Exit; +// end; + InitGrid(); + +end; + +procedure TfrmOtherPayableList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + FPS, FQty, FPrice, FQTFee, FMoney, FZKMoney: Double; +begin + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then + begin + mvalue := '0'; + end; + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + FPS := CDS_1.fieldbyname('PS').AsFloat; + FQty := CDS_1.fieldbyname('Qty').AsFloat; + FQTFee := CDS_1.fieldbyname('QTFee').AsFloat; + FPrice := CDS_1.fieldbyname('Price').AsFloat; + FMoney := CDS_1.fieldbyname('Money').AsFloat; + + FZKMoney := CDS_1.fieldbyname('ZKMoney').AsFloat; + end; + + if Trim(FFieldName) <> 'Money' then + begin + FMoney := FQty * FPrice + FQTFee - FZKMoney; + end; + with CDS_1 do + begin + Edit; + FieldByName('Money').Value := FMoney; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update Finance_Flow set ' + FFieldName + '=' + Trim(mvalue)); + if Trim(FFieldName) <> 'Money' then + sql.Add(' ,Money=' + FloatToStr(FMoney)); + sql.Add('where FFID=' + quotedstr(Trim(CDS_1.fieldbyname('FFID').AsString))); + ExecSQL; + end; + + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOtherPayableList.btnChkClick(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 + with ADOQueryCmd do + 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; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('˳ɹ', 'ʾ'); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmOtherPayableList.btnReChkClick(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 + with ADOQueryCmd do + 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; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('˳ɹ', 'ʾ'); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; +end; + +procedure TfrmOtherPayableList.btnAddClick(Sender: TObject); +begin + + try + frmOtherPayableInput := TfrmOtherPayableInput.Create(Application); + with frmOtherPayableInput do + begin + FFFID := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmOtherPayableInput.Free; + end; +end; + +procedure TfrmOtherPayableList.ToolButton1Click(Sender: TObject); +begin + try + frmOtherPayableInput := TfrmOtherPayableInput.Create(Application); + with frmOtherPayableInput do + begin + FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); + PState:=''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmOtherPayableInput.Free; + end; + +end; + +procedure TfrmOtherPayableList.ToolButton4Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid1); +end; + +procedure TfrmOtherPayableList.ToolButton5Click(Sender: TObject); +begin + WriteCxGrid(trim(Self.Caption), Tv1, ''); +end; + +procedure TfrmOtherPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> 'Զ' then + ACanvas.Font.Color := clBlue; + +// if 'Զ' <> AViewInfo.GridRecord.Values[Tv1Column25.Index] then ACanvas.Font.Color := clBlue; + +end; + +procedure TfrmOtherPayableList.btnEditClick(Sender: TObject); +begin + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_Fin_Flow_Judge '); + sql.Add(' @FFIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FFID').AsString))); + 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))); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + Exit; + end; + try + frmOtherPayableInput := TfrmOtherPayableInput.Create(Application); + with frmOtherPayableInput do + begin + FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmOtherPayableInput.Free; + end; +end; + +procedure TfrmOtherPayableList.OppCoNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmOtherPayableList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +end. + diff --git a/A09财务通用管理/U_PayInput.dfm b/A09财务通用管理/U_PayInput.dfm index 402c7f4..93496c8 100644 --- a/A09财务通用管理/U_PayInput.dfm +++ b/A09财务通用管理/U_PayInput.dfm @@ -71,7 +71,6 @@ object frmPayInput: TfrmPayInput ParentCtl3D = False ParentFont = False TabOrder = 1 - ExplicitTop = 44 object Label2: TLabel Left = 32 Top = 69 @@ -179,9 +178,9 @@ object frmPayInput: TfrmPayInput object Label20: TLabel Left = 486 Top = 20 - Width = 39 + Width = 65 Height = 15 - Caption = #26085#26399#65306 + Caption = #30003#35831#26085#26399#65306 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -369,9 +368,9 @@ object frmPayInput: TfrmPayInput OnBtnUpClick = OppBankNameBtnUpClick OnBtnDnClick = PayMentBtnDnClick end - object FFTime: TDateTimePicker - Left = 539 - Top = 17 + object SQDate: TDateTimePicker + Left = 544 + Top = 18 Width = 125 Height = 20 BevelInner = bvNone diff --git a/A09财务通用管理/U_PayInput.pas b/A09财务通用管理/U_PayInput.pas index a9a9ffb..96676dc 100644 --- a/A09财务通用管理/U_PayInput.pas +++ b/A09财务通用管理/U_PayInput.pas @@ -43,7 +43,7 @@ type Label19: TLabel; OppBankName: TBtnEditC; Label20: TLabel; - FFTime: TDateTimePicker; + SQDate: TDateTimePicker; Label22: TLabel; OrderNo: TBtnEditC; Label23: TLabel; @@ -73,7 +73,7 @@ type function SaveData(): Boolean; public { Public declarations } - FFFID: string; + FFFID,PState: string; end; var @@ -111,7 +111,13 @@ begin end else begin - FFTime.DateTime := SGetServerDateTime(ADOQueryTemp); + SQDate.DateTime := SGetServerDateTime(ADOQueryTemp); + end; + + if PState='' then + begin + FFFID:=''; + end; finally diff --git a/A09财务通用管理/U_PayList.dfm b/A09财务通用管理/U_PayList.dfm index 22ecbae..eaf897a 100644 --- a/A09财务通用管理/U_PayList.dfm +++ b/A09财务通用管理/U_PayList.dfm @@ -3,10 +3,10 @@ inherited frmPayList: TfrmPayList Top = 101 Caption = #20184#27454#31649#29702 ClientHeight = 590 - ClientWidth = 1540 + ClientWidth = 1284 FormStyle = fsMDIChild Visible = True - ExplicitWidth = 1556 + ExplicitWidth = 1300 ExplicitHeight = 629 PixelsPerInch = 96 TextHeight = 12 @@ -14,7 +14,7 @@ inherited frmPayList: TfrmPayList Tag = 1 Left = 0 Top = 0 - Width = 1540 + Width = 1284 Height = 38 AutoSize = True ButtonHeight = 38 @@ -51,16 +51,24 @@ inherited frmPayList: TfrmPayList ImageIndex = 3 OnClick = btnEditClick end - object btnDel: TToolButton + object ToolButton3: TToolButton Left = 213 Top = 0 AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object btnDel: TToolButton + Left = 284 + Top = 0 + AutoSize = True Caption = #21024#38500 ImageIndex = 5 OnClick = btnDelClick end object btnChk: TToolButton - Left = 284 + Left = 355 Top = 0 AutoSize = True Caption = #23457#26680 @@ -68,15 +76,31 @@ inherited frmPayList: TfrmPayList OnClick = btnChkClick end object btnReChk: TToolButton - Left = 355 + Left = 426 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 ImageIndex = 11 OnClick = btnReChkClick end + object ToolButton1: TToolButton + Left = 521 + Top = 0 + AutoSize = True + Caption = #20184#27454 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 592 + Top = 0 + AutoSize = True + Caption = #25764#38144#20184#27454 + ImageIndex = 11 + OnClick = ToolButton2Click + end object ToolButton9: TToolButton - Left = 450 + Left = 687 Top = 0 AutoSize = True Caption = #38468#20214#19978#20256 @@ -84,7 +108,7 @@ inherited frmPayList: TfrmPayList OnClick = ToolButton9Click end object ToolButton4: TToolButton - Left = 545 + Left = 782 Top = 0 AutoSize = True Caption = #23548#20986 @@ -92,7 +116,7 @@ inherited frmPayList: TfrmPayList OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 616 + Left = 853 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -100,7 +124,7 @@ inherited frmPayList: TfrmPayList OnClick = ToolButton5Click end object TBClose: TToolButton - Left = 711 + Left = 948 Top = 0 AutoSize = True Caption = #20851#38381 @@ -111,7 +135,7 @@ inherited frmPayList: TfrmPayList object Panel1: TPanel [1] Left = 0 Top = 38 - Width = 1540 + Width = 1284 Height = 65 Align = alTop BevelInner = bvRaised @@ -253,11 +277,13 @@ inherited frmPayList: TfrmPayList object cxGrid1: TcxGrid [2] Left = 0 Top = 136 - Width = 1540 + Width = 1284 Height = 454 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitLeft = -64 + ExplicitTop = 144 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -308,9 +334,16 @@ inherited frmPayList: TfrmPayList HeaderAlignmentHorz = taCenter Width = 44 end + object Tv1Column10: TcxGridDBColumn + Caption = #30003#35831#26085#26399 + DataBinding.FieldName = 'SQDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end object v2CRTime: TcxGridDBColumn Tag = 7 - Caption = #26085#26399 + Caption = #23454#20184#26085#26399 DataBinding.FieldName = 'FFTime' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' @@ -320,6 +353,13 @@ inherited frmPayList: TfrmPayList Options.Editing = False Width = 66 end + object Tv1Column11: TcxGridDBColumn + Caption = #25490#27454#26085#26399 + DataBinding.FieldName = 'PKDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end object v2Column2: TcxGridDBColumn Caption = #25105#26041#21333#20301 DataBinding.FieldName = 'OurCoName' @@ -457,7 +497,7 @@ inherited frmPayList: TfrmPayList object cxTabControl1: TcxTabControl [3] Left = 0 Top = 103 - Width = 1540 + Width = 1284 Height = 33 Align = alTop Font.Charset = ANSI_CHARSET @@ -473,12 +513,117 @@ inherited frmPayList: TfrmPayList Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 + #24050#20184#27454 #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 36 - ClientRectRight = 1540 + ClientRectRight = 1284 ClientRectTop = 36 end + object Panel2: TPanel [4] + Left = 983 + Top = 301 + Width = 237 + Height = 89 + TabOrder = 4 + Visible = False + object SetDate1: TDateTimePicker + Left = 29 + Top = 49 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + end + object Panel3: TPanel + Left = 1 + Top = 1 + Width = 235 + Height = 24 + Align = alTop + Caption = #25490#27454#26085#26399#36873#25321 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentBackground = False + ParentFont = False + TabOrder = 1 + object Button4: TButton + Left = 194 + Top = -1 + Width = 41 + Height = 26 + Caption = #20851#38381 + TabOrder = 0 + OnClick = Button4Click + end + end + object Button1: TButton + Left = 136 + Top = 47 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button1Click + end + end + object Panel4: TPanel [5] + Left = 727 + Top = 301 + Width = 237 + Height = 89 + TabOrder = 5 + Visible = False + object SetDate2: TDateTimePicker + Left = 29 + Top = 49 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + end + object Panel5: TPanel + Left = 1 + Top = 1 + Width = 235 + Height = 24 + Align = alTop + Caption = #23454#20184#26085#26399#36873#25321 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentBackground = False + ParentFont = False + TabOrder = 1 + object Button3: TButton + Left = 196 + Top = -1 + Width = 41 + Height = 26 + Caption = #20851#38381 + TabOrder = 0 + OnClick = Button3Click + end + end + object Button2: TButton + Left = 136 + Top = 47 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button2Click + end + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_Financial.ADOLink Left = 233 diff --git a/A09财务通用管理/U_PayList.pas b/A09财务通用管理/U_PayList.pas index f1501a2..bb2c1de 100644 --- a/A09财务通用管理/U_PayList.pas +++ b/A09财务通用管理/U_PayList.pas @@ -81,6 +81,21 @@ type Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + SetDate1: TDateTimePicker; + Panel2: TPanel; + Panel3: TPanel; + Button1: TButton; + Panel4: TPanel; + SetDate2: TDateTimePicker; + Panel5: TPanel; + Button2: TButton; + ToolButton3: TToolButton; + Button3: TButton; + Button4: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -99,6 +114,13 @@ type procedure ToolButton9Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure N3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); private procedure InitGrid(); procedure SetStatus(); @@ -117,11 +139,13 @@ begin btnChk.Enabled := false; // btnReChk.Enabled := false; // - // btnAdd.Enabled := false; // btnEdit.Enabled := false; //޸ btnDel.Enabled := false; //ɾ + ToolButton1.Enabled := false; // + ToolButton2.Enabled := false; // + if Trim(FAuthority) = '' then begin // btnAdd.Enabled := true; @@ -135,15 +159,17 @@ begin 1: begin btnReChk.Enabled := true; + ToolButton1.Enabled := true; end; 2: begin - + ToolButton2.Enabled := true; end; end; - end else if Trim(FAuthority) = '¼' then + end + else if Trim(FAuthority) = '¼' then begin - case cxTabControl1.TabIndex of + case cxTabControl1.TabIndex of 0: begin btnEdit.Enabled := true; @@ -159,6 +185,26 @@ begin end; end; + end + else if Trim(FAuthority) = 'Ǽ' then + begin + case cxTabControl1.TabIndex of + 0: + begin + btnEdit.Enabled := true; + btnDel.Enabled := true; +// btnChk.Enabled := true; + end; + 1: + begin +// btnReChk.Enabled := true; + ToolButton1.Enabled := true; + end; + 2: + begin + ToolButton2.Enabled := true; + end; + end; end; end; @@ -192,11 +238,15 @@ begin begin sql.Add(' and isnull(status,''0'')=''9'' '); end; + 2: + begin + sql.Add(' and isnull(status,''0'')=''10'' '); + end; end; if CheckBox1.Checked then begin - sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); - sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + sql.Add(' and A.SQDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and A.SQDate<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); end; sql.Add(WSql); Open; @@ -291,6 +341,8 @@ begin inherited; ReadCxGrid(trim(Self.Caption), Tv1, ''); Enddate.DateTime := SGetServerDate(ADOQueryTemp); + SetDate1.DateTime := SGetServerDate(ADOQueryTemp); + SetDate2.DateTime := SGetServerDate(ADOQueryTemp); begdate.DateTime := Enddate.DateTime - 30; FAuthority := self.fParameters1; SetStatus(); @@ -356,66 +408,70 @@ begin end; procedure TfrmPayList.btnChkClick(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='''' '); - 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('˳ɹ', 'ʾ'); - except - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - InitGrid(); - end; - + Panel2.Left := (self.width - Panel2.width) div 2; + Panel2.Visible := True; end; +//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='''' '); +// 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('˳ɹ', 'ʾ'); +// except +// ADOQueryCmd.Connection.RollbackTrans; +// application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); +// InitGrid(); +// end; +// +//end; procedure TfrmPayList.btnReChkClick(Sender: TObject); var @@ -457,6 +513,133 @@ begin 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(); + end; +end; + +procedure TfrmPayList.Button1Click(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_1 '); + sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); + sql.Add(',@Operation='''' '); + Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); + 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('˳ɹ', 'ʾ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + Panel2.Visible := False; + end; + +end; + +procedure TfrmPayList.Button2Click(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_1 '); + sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); + sql.Add(',@Operation='''' '); + Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate2.DateTime) + ''' '); + 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; @@ -470,13 +653,26 @@ begin if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; - - application.MessageBox('˳ɹ', 'ʾ'); + application.MessageBox('ɹ', 'ʾ'); except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); InitGrid(); + Panel2.Visible := False; end; + +end; + +procedure TfrmPayList.Button3Click(Sender: TObject); +begin +// inherited; + Panel4.Visible := False; +end; + +procedure TfrmPayList.Button4Click(Sender: TObject); +begin + Panel2.Visible := False; + end; procedure TfrmPayList.btnAddClick(Sender: TObject); @@ -497,6 +693,94 @@ begin end; end; +procedure TfrmPayList.ToolButton1Click(Sender: TObject); +begin + Panel4.Left := (self.width - Panel4.width) div 2; + Panel4.Visible := True; + +end; + +procedure TfrmPayList.ToolButton2Click(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='''' '); + 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('ɹ', 'ʾ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; +end; + +procedure TfrmPayList.ToolButton3Click(Sender: TObject); +begin + try + frmPayInput := TfrmPayInput.Create(Application); + with frmPayInput do + begin + FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); + PState := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmPayInput.Free; + end; + +end; + procedure TfrmPayList.ToolButton4Click(Sender: TObject); begin if ADOQueryMain.IsEmpty then diff --git a/A09财务通用管理/U_PayableInput.dfm b/A09财务通用管理/U_PayableInput.dfm index 4056911..3e49677 100644 --- a/A09财务通用管理/U_PayableInput.dfm +++ b/A09财务通用管理/U_PayableInput.dfm @@ -244,8 +244,8 @@ object frmPayableInput: TfrmPayableInput Visible = False end object Label15: TLabel - Left = 455 - Top = 79 + Left = 671 + Top = 80 Width = 50 Height = 15 Caption = #33457' '#22411 @@ -259,7 +259,7 @@ object frmPayableInput: TfrmPayableInput end object Label16: TLabel Left = 674 - Top = 79 + Top = 105 Width = 50 Height = 15 Caption = #39068' '#33394 @@ -376,6 +376,19 @@ object frmPayableInput: TfrmPayableInput Font.Style = [fsBold] ParentFont = False end + object Label19: TLabel + Left = 459 + Top = 79 + Width = 52 + Height = 15 + Caption = #25171#21253#26041#24335 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end object F_Code: TEdit Left = 82 Top = 77 @@ -545,8 +558,8 @@ object frmPayableInput: TfrmPayableInput Visible = False end object F_Pattern: TEdit - Left = 512 - Top = 78 + Left = 728 + Top = 79 Width = 140 Height = 18 TabOrder = 15 @@ -554,7 +567,7 @@ object frmPayableInput: TfrmPayableInput end object F_Color: TEdit Left = 727 - Top = 77 + Top = 103 Width = 140 Height = 18 TabOrder = 16 @@ -666,6 +679,22 @@ object frmPayableInput: TfrmPayableInput OnExit = QtyExit Width = 140 end + object DBFS: TBtnEditC + Left = 513 + Top = 77 + Width = 140 + Height = 20 + Hint = 'DBFS/'#25171#21253#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 26 + OnBtnUpClick = PayMentBtnUpClick + OnBtnDnClick = PayMentBtnDnClick + end end object ADOQueryTemp: TADOQuery Connection = DataLink_Financial.ADOLink diff --git a/A09财务通用管理/U_PayableInput.pas b/A09财务通用管理/U_PayableInput.pas index 9fc8f6e..d9b2510 100644 --- a/A09财务通用管理/U_PayableInput.pas +++ b/A09财务通用管理/U_PayableInput.pas @@ -74,6 +74,8 @@ type Label18: TLabel; IsInvoice: TComboBox; FZFlag: TcxCurrencyEdit; + Label19: TLabel; + DBFS: TBtnEditC; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -280,7 +282,7 @@ begin frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - MainType := 'Ӧ'; +// MainType := 'Ӧ'; flag := Copy(fsj, 1, FWZ - 1); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then diff --git a/A09财务通用管理/U_PayableList.dfm b/A09财务通用管理/U_PayableList.dfm index 4a8d0e0..52444e4 100644 --- a/A09财务通用管理/U_PayableList.dfm +++ b/A09财务通用管理/U_PayableList.dfm @@ -538,6 +538,19 @@ inherited frmPayableList: TfrmPayableList DataBinding.IsNullValueType = True Visible = False end + object Tv1Column26: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column27: TcxGridDBColumn + Caption = #25171#21253#26041#24335 + DataBinding.FieldName = 'DBFS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 diff --git a/A09财务通用管理/U_PayableList.pas b/A09财务通用管理/U_PayableList.pas index 3c41839..5e92ec6 100644 --- a/A09财务通用管理/U_PayableList.pas +++ b/A09财务通用管理/U_PayableList.pas @@ -91,6 +91,8 @@ type Tv1Column2: TcxGridDBColumn; ToolButton1: TToolButton; Tv1Column25: TcxGridDBColumn; + Tv1Column26: TcxGridDBColumn; + Tv1Column27: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -497,7 +499,8 @@ procedure TfrmPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin - if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> 'Զ' then + if (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> 'Զ') + and (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('FFAbstract').Index] <> 'S4-ִ') then ACanvas.Font.Color := clBlue; // if 'Զ' <> AViewInfo.GridRecord.Values[Tv1Column25.Index] then ACanvas.Font.Color := clBlue; diff --git a/A09财务通用管理/U_ReceivableList.dfm b/A09财务通用管理/U_ReceivableList.dfm index 8ed1add..b0abbca 100644 --- a/A09财务通用管理/U_ReceivableList.dfm +++ b/A09财务通用管理/U_ReceivableList.dfm @@ -6,7 +6,6 @@ inherited frmReceivableList: TfrmReceivableList ClientWidth = 1540 FormStyle = fsMDIChild Visible = True - ExplicitTop = -20 ExplicitWidth = 1556 ExplicitHeight = 629 PixelsPerInch = 96 @@ -120,8 +119,6 @@ inherited frmReceivableList: TfrmReceivableList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitLeft = 1 - ExplicitTop = 39 object Label3: TLabel Left = 172 Top = 13 @@ -277,10 +274,12 @@ inherited frmReceivableList: TfrmReceivableList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitTop = 142 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] @@ -325,6 +324,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -334,6 +334,7 @@ inherited frmReceivableList: TfrmReceivableList Tag = 7 Caption = #21457#29983#26085#26399 DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -344,12 +345,14 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column27: TcxGridDBColumn Caption = #24212#25910#26085#26399 DataBinding.FieldName = 'YSDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object Tv1Column23: TcxGridDBColumn Caption = #23545#36134#26085#26399 DataBinding.FieldName = 'ReconciliationDate' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -358,6 +361,7 @@ inherited frmReceivableList: TfrmReceivableList object v2Column2: TcxGridDBColumn Caption = #25105#26041#21333#20301 DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -365,6 +369,7 @@ inherited frmReceivableList: TfrmReceivableList object v2FactoryName: TcxGridDBColumn Caption = #23545#26041#21333#20301 DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -372,6 +377,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column2: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 57 end @@ -379,6 +385,7 @@ inherited frmReceivableList: TfrmReceivableList Tag = 7 Caption = #19978#32423#21333#20301 DataBinding.FieldName = 'OppParentCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -386,6 +393,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column3: TcxGridDBColumn Caption = #20215#26684#26415#35821 DataBinding.FieldName = 'PayMent' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -393,6 +401,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column19: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -400,6 +409,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column24: TcxGridDBColumn Caption = #25688#35201 DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -407,6 +417,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column20: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -414,12 +425,14 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column21: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 74 end object Tv1Column4: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'F_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -427,6 +440,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column5: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -434,6 +448,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column6: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'F_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -441,6 +456,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column7: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'F_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -448,6 +464,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column8: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'F_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -455,6 +472,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column9: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'F_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -462,6 +480,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column10: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'F_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -469,6 +488,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column11: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -476,6 +496,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column12: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -483,6 +504,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column13: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -490,6 +512,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column14: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -497,6 +520,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column15: TcxGridDBColumn Caption = #20854#20182#36153 DataBinding.FieldName = 'OtherFee' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -504,6 +528,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column16: TcxGridDBColumn Caption = #20943#20813 DataBinding.FieldName = 'Deduction' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -511,12 +536,14 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column26: TcxGridDBColumn Caption = #20323#37329 DataBinding.FieldName = 'YJ' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 58 end object Tv1Column17: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -524,6 +551,7 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column18: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -531,16 +559,25 @@ inherited frmReceivableList: TfrmReceivableList object Tv1Column25: TcxGridDBColumn Caption = #26680#38144#37329#39069 DataBinding.FieldName = 'FFWoAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column1: TcxGridDBColumn Caption = #26469#28304 DataBinding.FieldName = 'FromID1' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end + object Tv1Column28: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 diff --git a/A09财务通用管理/U_ReceivableList.pas b/A09财务通用管理/U_ReceivableList.pas index 00d20b5..06dda61 100644 --- a/A09财务通用管理/U_ReceivableList.pas +++ b/A09财务通用管理/U_ReceivableList.pas @@ -14,7 +14,8 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, - dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd; + dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations; type TfrmReceivableList = class(TfrmBaseList) @@ -94,6 +95,7 @@ type OrderNo: TEdit; Tv1Column26: TcxGridDBColumn; Tv1Column27: TcxGridDBColumn; + Tv1Column28: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -134,7 +136,6 @@ begin btnAdd.Enabled := false; // btnEdit.Enabled := false; //޸ btnDel.Enabled := false; //ɾ - // if Trim(FAuthority) = '' then begin btnAdd.Enabled := true; @@ -358,6 +359,12 @@ begin if CDS_1.IsEmpty then exit; +// if not VarIsNull(CDS_1.FieldByName('Price').Value) then +// begin +// application.MessageBox('۲Ϊ', 'ʾ'); +// Exit; +// end; + if not CDS_1.Locate('SSel', True, []) then begin application.MessageBox('ѡ', 'ʾ'); diff --git a/A09财务通用管理/testDll.identcache b/A09财务通用管理/testDll.identcache index 0128615..cb4b682 100644 Binary files a/A09财务通用管理/testDll.identcache and b/A09财务通用管理/testDll.identcache differ diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index ec03ef4..6e0d3a7 100644 Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ diff --git a/B01基础合同管理/ProjectGroup1.groupproj.local b/B01基础合同管理/ProjectGroup1.groupproj.local index dedb81b..2762da4 100644 --- a/B01基础合同管理/ProjectGroup1.groupproj.local +++ b/B01基础合同管理/ProjectGroup1.groupproj.local @@ -1,7 +1,7 @@  - - - - + + + + diff --git a/B01基础合同管理/testDll.identcache b/B01基础合同管理/testDll.identcache index 3c2608d..32d1d71 100644 Binary files a/B01基础合同管理/testDll.identcache and b/B01基础合同管理/testDll.identcache differ diff --git a/T01贸易生产计划/ProjectGroup1.groupproj.local b/T01贸易生产计划/ProjectGroup1.groupproj.local index 9b56cba..3381ea5 100644 --- a/T01贸易生产计划/ProjectGroup1.groupproj.local +++ b/T01贸易生产计划/ProjectGroup1.groupproj.local @@ -1,7 +1,7 @@  - - - - + + + + diff --git a/T01贸易生产计划/TradePlan.dpr b/T01贸易生产计划/TradePlan.dpr index 6649b59..27dba09 100644 --- a/T01贸易生产计划/TradePlan.dpr +++ b/T01贸易生产计划/TradePlan.dpr @@ -31,7 +31,8 @@ uses U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_TradePlanSchedule in 'U_TradePlanSchedule.pas' {frmTradePlanSchedule}, - U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail}; + U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail}, + U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}; {$R *.res} diff --git a/T01贸易生产计划/TradePlan.dproj b/T01贸易生产计划/TradePlan.dproj index 037953d..3fa1155 100644 --- a/T01贸易生产计划/TradePlan.dproj +++ b/T01贸易生产计划/TradePlan.dproj @@ -124,7 +124,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\testDll.exe + D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\testDll.exe @@ -209,6 +209,11 @@
frmTradePlanScheduleDetail
dfm + +
BaseDataLink
+ dfm + TDataModule + Cfg_2 Base diff --git a/T01贸易生产计划/TradePlan.dproj.local b/T01贸易生产计划/TradePlan.dproj.local index a3ca6a8..413a647 100644 --- a/T01贸易生产计划/TradePlan.dproj.local +++ b/T01贸易生产计划/TradePlan.dproj.local @@ -1,44 +1,47 @@  - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj - 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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas - 1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas= + 1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas + 1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj + 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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas 1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas - 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas + 1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas @@ -100,6 +103,8 @@ + + diff --git a/T01贸易生产计划/TradePlan.identcache b/T01贸易生产计划/TradePlan.identcache index c100174..a419d34 100644 Binary files a/T01贸易生产计划/TradePlan.identcache and b/T01贸易生产计划/TradePlan.identcache differ diff --git a/T01贸易生产计划/U_DataLink.dfm b/T01贸易生产计划/U_DataLink.dfm index a7a5e18..6d73578 100644 --- a/T01贸易生产计划/U_DataLink.dfm +++ b/T01贸易生产计划/U_DataLink.dfm @@ -1,9 +1,8 @@ -object DataLink_TradePlan: TDataLink_TradePlan - OldCreateOrder = False - OnCreate = DataModuleCreate +inherited DataLink_TradePlan: TDataLink_TradePlan OnDestroy = DataModuleDestroy - Height = 349 - Width = 482 + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + end object AdoDataLink: TADOQuery Connection = ADOLink Parameters = <> @@ -10426,6 +10425,8 @@ object DataLink_TradePlan: TDataLink_TradePlan object ThreeLookAndFeelCol: TcxLookAndFeelController Kind = lfStandard NativeStyle = False + ScrollbarMode = sbmHybrid + SkinName = 'WXI' Left = 253 Top = 12 end diff --git a/T01贸易生产计划/U_DataLink.pas b/T01贸易生产计划/U_DataLink.pas index 9273e7c..86f58f1 100644 --- a/T01贸易生产计划/U_DataLink.pas +++ b/T01贸易生产计划/U_DataLink.pas @@ -5,7 +5,8 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - dxSkinsCore, dxSkinsDefaultPainters, System.ImageList; + dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI, + U_BaseDataLink, dxCore, cxLocalization, cxImageList, cxGraphics, dxSkinsForm; type TMyThread = class(TThread) @@ -37,7 +38,7 @@ var UserDataFlag: string; type - TDataLink_TradePlan = class(TDataModule) + TDataLink_TradePlan = class(TBaseDataLink) AdoDataLink: TADOQuery; ADOLink: TADOConnection; ThreeImgList: TImageList; @@ -109,6 +110,7 @@ end; procedure TDataLink_TradePlan.DataModuleDestroy(Sender: TObject); begin + inherited; CriticalSection.Free; DataLink_TradePlan := nil; end; @@ -120,6 +122,7 @@ end; procedure TDataLink_TradePlan.DataModuleCreate(Sender: TObject); begin + inherited; CriticalSection := TCriticalSection.Create; end; diff --git a/T01贸易生产计划/U_TradePlanInPut.dfm b/T01贸易生产计划/U_TradePlanInPut.dfm index 6a63642..56b5b9f 100644 --- a/T01贸易生产计划/U_TradePlanInPut.dfm +++ b/T01贸易生产计划/U_TradePlanInPut.dfm @@ -112,6 +112,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut ParentCtl3D = False TabOrder = 1 OnClick = ScrollBox1Click + ExplicitTop = 32 object Label3: TLabel Left = 399 Top = 49 @@ -681,7 +682,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut ParentFont = False end object Label46: TLabel - Left = 40 + Left = 41 Top = 235 Width = 52 Height = 15 @@ -694,7 +695,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut ParentFont = False end object Label47: TLabel - Left = 40 + Left = 41 Top = 289 Width = 52 Height = 15 @@ -707,7 +708,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut ParentFont = False end object Label48: TLabel - Left = 40 + Left = 41 Top = 320 Width = 52 Height = 15 @@ -719,6 +720,19 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut Font.Style = [fsBold] ParentFont = False end + object Label28: TLabel + Left = 41 + Top = 354 + Width = 52 + Height = 15 + Caption = #25171#21253#26041#24335 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end object OrderNo: TEdit Tag = 2 Left = 1046 @@ -1220,6 +1234,17 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut OnBtnUpClick = ConNoBtnUpClick OnBtnDnClick = OurCoNameBtnDnClick end + object DBFS: TBtnEditC + Tag = 2 + Left = 103 + Top = 351 + Width = 490 + Height = 20 + Hint = 'DBFS/'#25171#21253#26041#24335 + TabOrder = 48 + OnBtnUpClick = TallyerBtnUpClick + OnBtnDnClick = TallyerBtnDnClick + end end object cxGrid1: TcxGrid [4] Left = 0 @@ -1237,6 +1262,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -1286,6 +1312,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut Tag = 99 Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -1296,6 +1323,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object v1Column4: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1309,6 +1337,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object v1PRTColor: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1324,6 +1353,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object v1Column5: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1337,12 +1367,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object VC_PRTPs: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 112 end object v1PRTOrderQty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Styles.Header = DataLink_TradePlan.Default @@ -1351,23 +1383,27 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object Tv1Column2: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 105 end object Tv1Column3: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv1Column1: TcxGridDBColumn Caption = #33457#33394#21495 DataBinding.FieldName = 'DSH' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column4: TcxGridDBColumn Caption = #36873#21495 DataBinding.FieldName = 'XH' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1380,11 +1416,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object Tv1Column5: TcxGridDBColumn Caption = #24320#21305 DataBinding.FieldName = 'KP' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column6: TcxGridDBColumn Caption = #24320#21305#21333#20301 DataBinding.FieldName = 'KPUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1396,10 +1434,12 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut end object Tv1Column7: TcxGridDBColumn DataBinding.FieldName = 'ConMid' + DataBinding.IsNullValueType = True Visible = False end object Tv1Column8: TcxGridDBColumn DataBinding.FieldName = 'ConSid' + DataBinding.IsNullValueType = True Visible = False end end @@ -1482,6 +1522,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut object TV2: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -1526,21 +1567,25 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut Styles.Selection = DataLink_TradePlan.SHuangSe object cxGridDBColumn13: TcxGridDBColumn DataBinding.FieldName = 'ConMid' + DataBinding.IsNullValueType = True Visible = False end object cxGridDBColumn14: TcxGridDBColumn DataBinding.FieldName = 'ConSid' + DataBinding.IsNullValueType = True Visible = False end object TV2Column1: TcxGridDBColumn Caption = #25991#20214#21517 DataBinding.FieldName = 'FileName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 152 end object TV2Column2: TcxGridDBColumn Caption = #19978#20256#26102#38388 DataBinding.FieldName = 'FillTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 76 end diff --git a/T01贸易生产计划/U_TradePlanInPut.pas b/T01贸易生产计划/U_TradePlanInPut.pas index bb3b33f..740e7ba 100644 --- a/T01贸易生产计划/U_TradePlanInPut.pas +++ b/T01贸易生产计划/U_TradePlanInPut.pas @@ -15,7 +15,7 @@ uses dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, - IdFTP, ShellAPI; + IdFTP, ShellAPI, dxSkinWXI, dxScrollbarAnnotations; type TfrmTradePlanInPut = class(TfrmBaseInput) @@ -163,6 +163,8 @@ type DBNote: TBtnEditC; ConNo: TBtnEditC; ADOQuery1: TADOQuery; + Label28: TLabel; + DBFS: TBtnEditC; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); diff --git a/T01贸易生产计划/U_TradePlanList.dfm b/T01贸易生产计划/U_TradePlanList.dfm index 522cd4e..524c2c9 100644 --- a/T01贸易生产计划/U_TradePlanList.dfm +++ b/T01贸易生产计划/U_TradePlanList.dfm @@ -380,6 +380,7 @@ inherited frmTradePlanList: TfrmTradePlanList TabOrder = 3 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = Tv1CellDblClick OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 @@ -409,6 +410,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1Column16: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -417,6 +419,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1OrdDate: TcxGridDBColumn Caption = #21046#21333#26085#26399 DataBinding.FieldName = 'OrdDate' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter @@ -427,6 +430,7 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column2: TcxGridDBColumn Caption = #32463#33829#21333#20301 DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradePlan.FontBlue @@ -435,12 +439,14 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column17: TcxGridDBColumn Caption = #38468#20214 DataBinding.FieldName = 'ISFJ' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 40 end object Tv1Column4: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradePlan.FoneClMaroon @@ -449,6 +455,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1OrderNo: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradePlan.Default @@ -457,6 +464,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1DeliveryDate: TcxGridDBColumn Caption = #20132#36135#26085#26399 DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False OnCustomDrawCell = v1DeliveryDateCustomDrawCell @@ -468,12 +476,14 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column3: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column22: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 89 @@ -481,6 +491,7 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column12: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -488,10 +499,12 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column18: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True end object Tv1Column13: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 68 @@ -499,12 +512,14 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column14: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column15: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -512,12 +527,14 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column16: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column11: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'HZPiQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 54 @@ -525,6 +542,7 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column10: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -533,6 +551,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1Column11: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -541,6 +560,7 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column6: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'FILLER' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -548,6 +568,7 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column1: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 99 @@ -555,22 +576,27 @@ inherited frmTradePlanList: TfrmTradePlanList object Tv1Column5: TcxGridDBColumn Caption = #24037#33402 DataBinding.FieldName = 'Technics' + DataBinding.IsNullValueType = True end object Tv1Column7: TcxGridDBColumn Caption = #24037#21378#32534#21495 DataBinding.FieldName = 'FtyNo' + DataBinding.IsNullValueType = True end object Tv1Column8: TcxGridDBColumn Caption = #24037#21378#21517#31216 DataBinding.FieldName = 'FtyName' + DataBinding.IsNullValueType = True end object Tv1Column9: TcxGridDBColumn Caption = #36319#21333#21592 DataBinding.FieldName = 'FollowMan' + DataBinding.IsNullValueType = True end object Tv1Column19: TcxGridDBColumn Caption = #20135#21697#22797#21333#21495 DataBinding.FieldName = 'FOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 87 end @@ -633,6 +659,7 @@ inherited frmTradePlanList: TfrmTradePlanList TabOrder = 0 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -682,6 +709,7 @@ inherited frmTradePlanList: TfrmTradePlanList Tag = 99 Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -694,6 +722,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1PRTColor: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -709,6 +738,7 @@ inherited frmTradePlanList: TfrmTradePlanList object cxGridDBColumn4: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -716,6 +746,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1Column5: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -729,6 +760,7 @@ inherited frmTradePlanList: TfrmTradePlanList object VC_PRTPs: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -736,6 +768,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1PRTOrderQty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -745,6 +778,7 @@ inherited frmTradePlanList: TfrmTradePlanList object v1OrderUnit: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( 'M' @@ -758,6 +792,7 @@ inherited frmTradePlanList: TfrmTradePlanList object cxGridDBColumn7: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -765,30 +800,35 @@ inherited frmTradePlanList: TfrmTradePlanList object TV2Column1: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object TV2Column2: TcxGridDBColumn Caption = #33457#33394#21495 DataBinding.FieldName = 'DSH' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 77 end object TV2Column3: TcxGridDBColumn Caption = #36873#21495 DataBinding.FieldName = 'XH' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object TV2Column4: TcxGridDBColumn Caption = #24320#21305 DataBinding.FieldName = 'KP' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object TV2Column5: TcxGridDBColumn Caption = #24320#21305#21333#20301 DataBinding.FieldName = 'KPUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end @@ -799,8 +839,8 @@ inherited frmTradePlanList: TfrmTradePlanList end end object Panel3: TPanel [6] - Left = 69 - Top = 157 + Left = 8 + Top = 22 Width = 1177 Height = 634 Color = clBtnHighlight @@ -848,7 +888,7 @@ inherited frmTradePlanList: TfrmTradePlanList end object Label36: TLabel Left = 383 - Top = 105 + Top = 124 Width = 13 Height = 75 Caption = #25346#13#10#38057#13#10#12289#13#10#23553#13#10#26465 @@ -862,7 +902,7 @@ inherited frmTradePlanList: TfrmTradePlanList object Label37: TLabel Tag = 2 Left = 383 - Top = 195 + Top = 214 Width = 13 Height = 60 Caption = #36148#13#10#12289#13#10#28907#13#10#37329 @@ -875,7 +915,7 @@ inherited frmTradePlanList: TfrmTradePlanList end object Label40: TLabel Left = 383 - Top = 340 + Top = 359 Width = 13 Height = 30 Caption = #33337#13#10#21787 @@ -889,7 +929,7 @@ inherited frmTradePlanList: TfrmTradePlanList object Label41: TLabel Tag = 2 Left = 383 - Top = 480 + Top = 499 Width = 13 Height = 30 Caption = #21367#13#10#21787 @@ -900,6 +940,19 @@ inherited frmTradePlanList: TfrmTradePlanList Font.Style = [fsBold] ParentFont = False end + object Label6: TLabel + Left = 344 + Top = 100 + Width = 52 + Height = 15 + Caption = #25171#21253#26041#24335 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end object MainId: TEdit Left = 679 Top = 599 @@ -944,7 +997,7 @@ inherited frmTradePlanList: TfrmTradePlanList object ggft: TMemo Tag = 2 Left = 408 - Top = 107 + Top = 126 Width = 440 Height = 80 Hint = 'ggft/'#25346#38057#23553#26465 @@ -955,7 +1008,7 @@ inherited frmTradePlanList: TfrmTradePlanList object tj: TMemo Tag = 2 Left = 407 - Top = 198 + Top = 217 Width = 440 Height = 130 ScrollBars = ssVertical @@ -964,7 +1017,7 @@ inherited frmTradePlanList: TfrmTradePlanList object cm: TMemo Tag = 2 Left = 406 - Top = 341 + Top = 360 Width = 440 Height = 130 ScrollBars = ssVertical @@ -973,7 +1026,7 @@ inherited frmTradePlanList: TfrmTradePlanList object jm: TMemo Tag = 2 Left = 407 - Top = 482 + Top = 501 Width = 440 Height = 80 ScrollBars = ssVertical @@ -1032,6 +1085,7 @@ inherited frmTradePlanList: TfrmTradePlanList TabOrder = 11 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource3 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -1081,6 +1135,7 @@ inherited frmTradePlanList: TfrmTradePlanList Tag = 99 Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -1093,6 +1148,7 @@ inherited frmTradePlanList: TfrmTradePlanList object cxGridDBColumn5: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1100,6 +1156,7 @@ inherited frmTradePlanList: TfrmTradePlanList object cxGridDBColumn6: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1113,6 +1170,7 @@ inherited frmTradePlanList: TfrmTradePlanList object cxGridDBColumn8: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -1121,6 +1179,7 @@ inherited frmTradePlanList: TfrmTradePlanList object cxGridDBColumn9: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -1132,6 +1191,17 @@ inherited frmTradePlanList: TfrmTradePlanList GridView = TV3 end end + object DBFS: TBtnEditC + Tag = 2 + Left = 408 + Top = 98 + Width = 440 + Height = 20 + Hint = 'DBFS/'#25171#21253#26041#24335 + TabOrder = 12 + OnBtnUpClick = PZNoteBtnUpClick + OnBtnDnClick = PZNoteBtnDnClick + end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradePlan.ADOLink diff --git a/T01贸易生产计划/U_TradePlanList.pas b/T01贸易生产计划/U_TradePlanList.pas index d22a600..cf3c0d6 100644 --- a/T01贸易生产计划/U_TradePlanList.pas +++ b/T01贸易生产计划/U_TradePlanList.pas @@ -15,7 +15,8 @@ uses IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, Vcl.DBCtrls; + IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, Vcl.DBCtrls, + dxSkinWXI, dxScrollbarAnnotations; type TfrmTradePlanList = class(TfrmBaseList) @@ -156,6 +157,8 @@ type Tv1Column19: TcxGridDBColumn; ToolButton5: TToolButton; ToolButton6: TToolButton; + Label6: TLabel; + DBFS: TBtnEditC; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -650,6 +653,22 @@ begin // Application.MessageBox('ܲ˵!', 'ʾ', 0); // Exit; // end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select Count(B.BCIOID) S from Trade_Plan_Main A'); + SQL.Add('left join Bs_Cloth_IO B on A.MainID=B.FromMainId '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + Sql.Add('and B.STKName=''ó״첼'' and B.IOFlag='''''); + // ShowMessage(sql.Text); + Open; + end; + if ADOQueryTemp.fieldbyname('S').Value > 0 then + begin + Application.MessageBox('첼ļƻ޸!', 'ʾ', 0); + Exit; + end; try frmTradePlanInPut := TfrmTradePlanInPut.Create(Application); @@ -957,6 +976,7 @@ begin sql.Add(' Set PZNote=''' + Trim(PZNote.Text) + ''''); sql.Add(',KJNote=''' + Trim(KJNote.Text) + ''''); sql.Add(',DBNote=''' + Trim(DBNote.Text) + ''''); + sql.Add(',DBFS=''' + Trim(DBFS.Text) + ''''); SQL.Add(',ggft=''' + Trim(ggft.Text) + ''''); sql.Add(',tj=''' + Trim(tj.Text) + ''''); sql.Add(',cm=''' + Trim(cm.Text) + ''''); @@ -1596,6 +1616,7 @@ begin ReadCxGrid('ָʾбFF1', Tv3, 'ָʾ'); MainId.text := trim(Order_Main.fieldbyname('mainID').AsString); Panel3.Left := (self.width - Panel3.width) div 2; + Panel3.Top := 37; Panel3.Visible := True; InitBl(); diff --git a/T01贸易生产计划/testDll.identcache b/T01贸易生产计划/testDll.identcache index a76f52c..4009f06 100644 Binary files a/T01贸易生产计划/testDll.identcache and b/T01贸易生产计划/testDll.identcache differ diff --git a/T02贸易汇总仓库/ProjectGroup1.groupproj.local b/T02贸易汇总仓库/ProjectGroup1.groupproj.local index 61440a3..63b62e7 100644 --- a/T02贸易汇总仓库/ProjectGroup1.groupproj.local +++ b/T02贸易汇总仓库/ProjectGroup1.groupproj.local @@ -1,7 +1,7 @@  - - - - + + + + diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dpr b/T02贸易汇总仓库/TradeTotalClothStk.dpr index f14cb51..2313da3 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dpr +++ b/T02贸易汇总仓库/TradeTotalClothStk.dpr @@ -26,7 +26,8 @@ uses U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_TradePlanSel in '..\T00óͨô\U_TradePlanSel.pas' {frmTradePlanSel}, - U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}; + U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, + U_TPUp in 'U_TPUp.pas' {frmTPUp}; {$R *.res} diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj b/T02贸易汇总仓库/TradeTotalClothStk.dproj index c933a1f..cd6af13 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj @@ -124,7 +124,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\骉骐\T02贸易汇总仓库\testDll.exe + D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\testDll.exe @@ -189,6 +189,10 @@
frmTradeSalesContractSel
dfm + +
frmTPUp
+ dfm + Cfg_2 Base diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local index f63a5fb..59e973e 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local @@ -1,14 +1,15 @@  + 1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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 @@ -17,7 +18,6 @@ 1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas @@ -26,14 +26,15 @@ 1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 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.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj 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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas @@ -64,7 +65,7 @@ - + @@ -106,5 +107,7 @@ + + diff --git a/T02贸易汇总仓库/TradeTotalClothStk.identcache b/T02贸易汇总仓库/TradeTotalClothStk.identcache index bc7ae50..b50c043 100644 Binary files a/T02贸易汇总仓库/TradeTotalClothStk.identcache and b/T02贸易汇总仓库/TradeTotalClothStk.identcache differ diff --git a/T02贸易汇总仓库/TradeTotalClothStk.skincfg b/T02贸易汇总仓库/TradeTotalClothStk.skincfg new file mode 100644 index 0000000..f0fe216 --- /dev/null +++ b/T02贸易汇总仓库/TradeTotalClothStk.skincfg @@ -0,0 +1,62 @@ +[ExpressSkins] +Default=0 +ShowNotifications=1 +Enabled=1 +dxSkinBasic=0 +dxSkinBlack=0 +dxSkinBlue=0 +dxSkinBlueprint=0 +dxSkinCaramel=0 +dxSkinCoffee=0 +dxSkinDarkroom=0 +dxSkinDarkSide=0 +dxSkinDevExpressDarkStyle=0 +dxSkinDevExpressStyle=0 +dxSkinFoggy=0 +dxSkinGlassOceans=0 +dxSkinHighContrast=0 +dxSkiniMaginary=0 +dxSkinLilian=0 +dxSkinLiquidSky=0 +dxSkinLondonLiquidSky=0 +dxSkinMcSkin=0 +dxSkinMetropolis=0 +dxSkinMetropolisDark=0 +dxSkinMoneyTwins=0 +dxSkinOffice2007Black=0 +dxSkinOffice2007Blue=0 +dxSkinOffice2007Green=0 +dxSkinOffice2007Pink=0 +dxSkinOffice2007Silver=0 +dxSkinOffice2010Black=0 +dxSkinOffice2010Blue=0 +dxSkinOffice2010Silver=0 +dxSkinOffice2013DarkGray=0 +dxSkinOffice2013LightGray=0 +dxSkinOffice2013White=0 +dxSkinOffice2016Colorful=0 +dxSkinOffice2016Dark=0 +dxSkinOffice2019Black=0 +dxSkinOffice2019Colorful=0 +dxSkinOffice2019DarkGray=0 +dxSkinOffice2019White=0 +dxSkinPumpkin=0 +dxSkinSeven=0 +dxSkinSevenClassic=0 +dxSkinSharp=0 +dxSkinSharpPlus=0 +dxSkinSilver=0 +dxSkinSpringtime=0 +dxSkinStardust=0 +dxSkinSummer2008=0 +dxSkinTheAsphaltWorld=0 +dxSkinTheBezier=0 +dxSkinsDefaultPainters=1 +dxSkinValentine=0 +dxSkinVisualStudio2013Blue=0 +dxSkinVisualStudio2013Dark=0 +dxSkinVisualStudio2013Light=0 +dxSkinVS2010=0 +dxSkinWhiteprint=0 +dxSkinWXI=1 +dxSkinXmas2008Blue=0 diff --git a/T02贸易汇总仓库/U_DataLink.pas b/T02贸易汇总仓库/U_DataLink.pas index 0ad9f58..c8d0256 100644 --- a/T02贸易汇总仓库/U_DataLink.pas +++ b/T02贸易汇总仓库/U_DataLink.pas @@ -5,7 +5,7 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - dxSkinsCore, dxSkinsDefaultPainters, System.ImageList; + dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI; type TMyThread = class(TThread) diff --git a/T02贸易汇总仓库/U_GetDllForm.pas b/T02贸易汇总仓库/U_GetDllForm.pas index b5ce122..8d498bd 100644 --- a/T02贸易汇总仓库/U_GetDllForm.pas +++ b/T02贸易汇总仓库/U_GetDllForm.pas @@ -273,7 +273,7 @@ begin end; end; - 422: //Ʒ + 422: //Ⱦ begin with TfrmTradePackClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // begin diff --git a/T02贸易汇总仓库/U_TPUp.dfm b/T02贸易汇总仓库/U_TPUp.dfm new file mode 100644 index 0000000..66a39bb --- /dev/null +++ b/T02贸易汇总仓库/U_TPUp.dfm @@ -0,0 +1,283 @@ +object frmTPUp: TfrmTPUp + Left = 612 + Top = 236 + Caption = #26174#31034#22270#29255 + ClientHeight = 595 + ClientWidth = 929 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid7: TcxGrid + Left = 0 + Top = 41 + Width = 858 + Height = 554 + Align = alClient + TabOrder = 0 + ExplicitTop = 42 + object TV7: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = TV7CellDblClick + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object FileName: TcxGridDBColumn + Tag = 1 + Caption = #22270#29255#21517#31216 + DataBinding.FieldName = 'FileName' + DataBinding.IsNullValueType = True + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 121 + end + object TV7Column1: TcxGridDBColumn + Caption = #33457#22411#21517#31216 + DataBinding.FieldName = 'HXName' + DataBinding.IsNullValueType = True + Visible = False + GroupSummaryAlignment = taCenter + HeaderAlignmentHorz = taCenter + Width = 91 + end + object FileDate: TcxGridDBColumn + Tag = 1 + Caption = #19978#20256#26085#26399 + DataBinding.FieldName = 'FillTime' + DataBinding.IsNullValueType = True + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 104 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TV7 + end + end + object Panel16: TPanel + Left = 190 + Top = 126 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19978#20256#12290#12290#12290 + Color = clSkyBlue + TabOrder = 1 + Visible = False + end + object ToolBar6: TToolBar + Left = 858 + Top = 41 + Width = 71 + Height = 554 + Align = alRight + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Images = DataLink_TradeTotalClothStk.ImageList_new32 + List = True + ShowCaptions = True + TabOrder = 2 + Visible = False + ExplicitLeft = 889 + object FileUp: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #19978#20256 + ImageIndex = 2 + Wrap = True + OnClick = FileUpClick + end + object FileDel: TToolButton + Left = 0 + Top = 38 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + Wrap = True + OnClick = FileDelClick + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 929 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + Visible = False + object Label1: TLabel + Left = 8 + Top = 15 + Width = 72 + Height = 17 + Caption = #23458#25143#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Image2: TImage + Left = 774 + Top = 7 + Width = 60 + Height = 28 + Visible = False + end + object Image1: TImage + Left = 861 + Top = 7 + Width = 60 + Height = 28 + Visible = False + end + object Label2: TLabel + Left = 336 + Top = 14 + Width = 36 + Height = 17 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Code: TEdit + Left = 78 + Top = 11 + Width = 211 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + object HXName: TBtnEditC + Tag = 2 + Left = 378 + Top = 9 + Width = 168 + Height = 29 + Hint = 'CYKZ/'#20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnBtnUpClick = HXNameBtnUpClick + OnBtnDnClick = HXNameBtnDnClick + end + end + object ODPat: TOpenDialog + Filter = + 'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' + + 'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' + + 'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' + + ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' + + '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' + + 'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' + + 'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' + + 'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' + + ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' + + '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' + + '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' + + 'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' + + 'if)|*.tif|TIFF Images (*.tiff)|*.tiff' + Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] + Left = 380 + Top = 333 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 261 + Top = 244 + end + object SaveDialog1: TSaveDialog + Filter = + 'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' + + 'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' + + 'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' + + ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' + + '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' + + 'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' + + 'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' + + 'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' + + ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' + + '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' + + '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' + + 'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' + + 'if)|*.tif|TIFF Images (*.tiff)|*.tiff' + Left = 305 + Top = 333 + end + object ADOQueryFile: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 144 + end + object DataSource1: TDataSource + DataSet = ADOQueryFile + Left = 376 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 584 + Top = 256 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 432 + Top = 224 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 304 + end +end diff --git a/T02贸易汇总仓库/U_TPUp.pas b/T02贸易汇总仓库/U_TPUp.pas new file mode 100644 index 0000000..f4bc244 --- /dev/null +++ b/T02贸易汇总仓库/U_TPUp.pas @@ -0,0 +1,423 @@ +unit U_TPUp; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles, + strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase, + Vcl.ExtDlgs, dxSkinWXI, dxScrollbarAnnotations,URLMon,ShellApI; + +type + TfrmTPUp = class(TForm) + cxGrid7: TcxGrid; + TV7: TcxGridDBTableView; + FileName: TcxGridDBColumn; + FileDate: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Panel16: TPanel; + ToolBar6: TToolBar; + FileUp: TToolButton; + FileDel: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Code: TEdit; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ADOQueryFile: TADOQuery; + DataSource1: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + Image2: TImage; + Image1: TImage; + TV7Column1: TcxGridDBColumn; + Label2: TLabel; + HXName: TBtnEditC; + ADOQuery1: TADOQuery; + procedure FileUpClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FileDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure HXNameBtnUpClick(Sender: TObject); + procedure HXNameBtnDnClick(Sender: TObject); + procedure TV7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure CreThumb(Image1, Image2: TImage; Width, Height: Integer); + procedure SaveImageOther(FTFID: string); + procedure ReadINIFile10(); + procedure InitTP(); + { Private declarations } + public + FBCIID: string; + FWidth, FHeight:Integer + { Public declarations } + end; + +var + frmTPUp: TfrmTPUp; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp; + +{$R *.dfm} procedure TfrmTPUp.InitTP(); +begin + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,HXName from TP_File where WBID=''' + Trim(FBCIID) + ''''); + SQL.Add(' and FileType=''KH'''); + Open; + end; +end; + +procedure TfrmTPUp.ReadINIFile10(); +var + programIni: Tinifile; //ļ + FileName: string; +begin + FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI'; + programIni := Tinifile.create(FileName); + server := programIni.ReadString('SERVER', 'ַ', '127.0.0.1'); + programIni.Free; +end; + +procedure TfrmTPUp.FileUpClick(Sender: TObject); +var + i, j, ii: Integer; + PatFile: string; + FTPPath, FConNo, MaxNo: string; + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + f: file of Byte; + size: Longint; + S: Double; +begin + if Trim(Code.Text) = '' then + begin + Application.MessageBox('ŲΪգ', 'ʾ', 0); + Exit; + end; +// if Trim(HXName.Text) = '' then +// begin +// if Application.MessageBox('ȷΪ', 'ʾ', 32 + 4) <> IDYES then +// Exit; +// end; + + lstPat.Clear; + if ODPat.Execute then + begin + lstPat.AddStrings(ODPat.Files); + end; + if lstPat.Count > 0 then + begin + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + end; + + Panel16.Visible := True; + Panel16.Refresh; + + try + AJpeg := TJpegImage.Create(); + ADOQueryCmd.Connection.BeginTrans; + ii := 0; + for i := 0 to lstPat.Count - 1 do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from TP_File'); + sql.Add('where FileType =''KH'' and WBID=''' + trim(FBCIID) + ''' '); + open; + end; + PatFile := trim(FBCIID) + '-' + inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger) + '.' + Copy(ExtractFileName(lstPat[i]), (Pos('.', ExtractFileName(lstPat[i])) + 1), (Length(ExtractFileName(lstPat[i])) - Pos('.', ExtractFileName(lstPat[i])))); + image1.Picture.LoadFromFile((lstPat[i])); + CreThumb(Image1, Image2, FWidth, FHeight); + + + + if IdFTP1.Connected then + begin + try + IdFTP1.Put(lstPat[i], Trim(UserDataFlag + 'YP' + '\' + Trim(PatFile))); + + if GetLSNo(ADOQueryCmd, MaxNo, 'YP', 'XD_File', 4, 1) = False then + raise Exception.Create('ȡͼƬʧܣ'); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File where TFID=''' + Trim(MaxNo) + ''''); + open; + end; + with ADOQueryCmd do + begin + if ADOQueryCmd.IsEmpty then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('TFDate').Value := SGetServerDateTime(ADOQueryTemp); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('TFID').Value := Trim(MaxNo); + FieldByName('WBID').Value := Trim(FBCIID); + FieldByName('TFType').Value := 'ͻ'; + FieldByName('FileType').Value := 'KH'; + FieldByName('HXName').Value := trim(HXName.Text); + FieldByName('filename').Value := Trim(PatFile); + myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; + except + raise Exception.Create('ϴͼƬʧܣ'); + end; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + AJpeg.Free; + except + AJpeg.Free; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͼƬϴʧܣ', 'ʾ', 0); + end; + if IdFTP1.Connected then + IdFTP1.Quit; + InitTP(); + Panel16.Visible := False; + + if ii > 0 then + Application.MessageBox(PChar(inttostr(ii) + 'ļ2MBϴʧܣ'), 'ʾ', 0); + if i > 0 then + Application.MessageBox(PChar(inttostr(i-ii) + 'ļϴɹ'), 'ʾ', 0); + + ModalResult := 1; +end; + +procedure TfrmTPUp.CreThumb(Image1, Image2: TImage; Width, Height: Integer); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + Bitmap := TBitmap.Create; + try + Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height; + if Ratio > 1.333 then + begin + AHeight := Round(Width / Ratio); + AHeightOffset := (Height - AHeight) div 2; + AWidth := Width; + AWidthOffset := 0; + end + else + begin + AWidth := Round(Height * Ratio); + AWidthOffset := (Width - AWidth) div 2; + AHeight := Height; + AHeightOffset := 0; + end; + Bitmap.Width := Width; + Bitmap.Height := Height; + Bitmap.Canvas.Brush.Color := clBtnFace; + Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); + ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset); + Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic); + Image2.Picture.Assign(Bitmap); + finally + Bitmap.Free; + end; +end; + +procedure TfrmTPUp.SaveImageOther(FTFID: string); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo: string; + i, j: Integer; + PatFile: string; + FConNo, MaxNo: string; +begin + if Image2.Picture = nil then + Exit; + AJpeg := TJpegImage.Create(); + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File where TFID=''' + Trim(FTFID) + ''''); + open; + end; + with ADOQueryCmd do + begin + if Trim(FTFID) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('TFID').Value := Trim(FTFID); + FieldByName('WBID').Value := Trim(FBCIID); + FieldByName('TFType').Value := 'Ʒ'; + AJpeg.Assign(Image2.Picture.Graphic); + myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmTPUp.TV7CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + IdFTP1: TIdFTP; + FPath, FFName, fPdfFilePath, fPdfFilePath1: string; + FInt: integer; +begin + + if not DirectoryExists(pchar('D:\Right1209')) then + CreateDirectory(pchar('D:\Right1209'), nil); + + fPdfFilePath := 'D:\Right1209\' + ADOQueryFile.FieldByName('FileName').ASString; + if not DirectoryExists(pchar(fPdfFilePath)) then + CreateDirectory(pchar(fPdfFilePath), nil); +// with ADOQuery1 do +// begin +// close; +// sql.Clear; +// sql.Add('select * from TP_File A'); +// sql.Add('where isnull(WBID,'''')<>'''' and WBID=' + quotedstr(Trim(ADOQueryFile.FieldByName('WB')))); +// open; +// end; +// ADOQueryFile.First; +// while not ADOQueryFile.Eof do +// begin +// if Trim(ADOQueryFile.FieldByName('URL').AsString) <> '' then +// begin + + fPdfFilePath1 := fPdfFilePath + '\' + trim(Trim(ADOQueryFile.FieldByName('FileName').AsString)); + UrlDownloadToFile(nil, PChar(Trim(ADOQueryFile.FieldByName('url').AsString)), PChar(fPdfFilePath1), 0, nil); + ShellExecute(Handle, 'open', PChar(fPdfFilePath + '\' + trim(ADOQueryFile.FieldByName('FileName').AsString)), '', '', SW_SHOWNORMAL); +// end; +// ADOQueryFile.Next; +// end; +// ShellExecute(Handle, 'open', PChar(fPdfFilePath + '\' + trim(FileName)), '', '', SW_SHOWNORMAL); +end; + +procedure TfrmTPUp.FormCreate(Sender: TObject); +begin + lstPat := TStringList.Create; + if FWidth = 0 then + FWidth := 160; + if FHeight = 0 then + FHeight := 120; +end; + +procedure TfrmTPUp.FileDelClick(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('TFID').AsString) + ''''); + ExecSQL; + end; + + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + ''''); + SQL.Add(' and FileType=''KH'''); + Open; + end; +// if ADOQueryFile.IsEmpty then +// begin +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update CP_YDang Set TPFlag=0 where FBCIID=''' + Trim(FBCIID) + ''''); +// ExecSQL; +// end; +// end; +end; + +procedure TfrmTPUp.FormShow(Sender: TObject); +begin + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,url from TP_File where WBID=''' + Trim(FBCIID) + ''''); +// SQL.Add(' and FileType=''KH'''); + Open; + end; +end; + +procedure TfrmTPUp.HXNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmTPUp.HXNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'HX' + Trim(Code.Text); + flagname := ''; + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. + diff --git a/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm b/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm index 9c2ba2f..feaf22a 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm @@ -5,6 +5,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList ClientHeight = 537 ClientWidth = 1540 Position = poScreenCenter + ExplicitLeft = -341 ExplicitWidth = 1556 ExplicitHeight = 576 PixelsPerInch = 96 @@ -108,6 +109,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList ImageIndex = 7 OnClick = TBCloseClick end + object ToolButton3: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #22270#29255#26174#31034 + ImageIndex = 8 + OnClick = ToolButton3Click + end end object Panel1: TPanel [1] Left = 0 @@ -300,6 +309,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -347,6 +357,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column5: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -355,6 +366,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column5: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 86 @@ -362,6 +374,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column6: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -370,6 +383,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -381,6 +395,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -395,6 +410,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #25152#23646#31867#22411 DataBinding.FieldName = 'SSType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -409,6 +425,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column1: TcxGridDBColumn Caption = #37319#36141#21333#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -419,6 +436,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #21152#24037#21378 DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -435,6 +453,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column17: TcxGridDBColumn Caption = #20379#24212#21830 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 72 @@ -442,6 +461,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column18: TcxGridDBColumn Caption = #20986#21040#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 77 @@ -449,6 +469,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column13: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -456,12 +477,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object v1Column17: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -472,6 +495,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -485,6 +509,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column20: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'SPCode' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -495,6 +520,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -503,6 +529,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -512,12 +539,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 73 end object v1Column7: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 68 @@ -525,12 +554,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column7: TcxGridDBColumn Caption = #26579#21378#32568#21495 DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end object v1Column18: TcxGridDBColumn Caption = #20986#21040#35745#21010#21333 DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -538,6 +569,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column1: TcxGridDBColumn Caption = #26469#33258#35745#21010#21333 DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 96 @@ -545,6 +577,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object v1Column19: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 51 @@ -553,6 +586,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -562,6 +596,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 58 @@ -569,12 +604,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column8: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 52 end object Tv1Column2: TcxGridDBColumn Caption = #21305#37325 DataBinding.FieldName = 'PieceWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -583,6 +620,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -590,6 +628,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -597,6 +636,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column3: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -604,6 +644,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column9: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -611,6 +652,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column10: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -618,6 +660,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column11: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -625,30 +668,42 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList object Tv1Column12: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column13: TcxGridDBColumn Caption = #22797#21333#21495 DataBinding.FieldName = 'FOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column14: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column15: TcxGridDBColumn Caption = #21152#24037#25968#37327 DataBinding.FieldName = 'ProcessQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end object Tv1Column16: TcxGridDBColumn Caption = #21152#24037#25968#37327#21333#20301 DataBinding.FieldName = 'ProcessUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 93 end + object Tv1Column19: TcxGridDBColumn + Caption = #22270#29255 + DataBinding.FieldName = 'IsImg' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 47 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/T02贸易汇总仓库/U_TradeFtyClothOutList.pas b/T02贸易汇总仓库/U_TradeFtyClothOutList.pas index 40615c6..a2c5fab 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothOutList.pas +++ b/T02贸易汇总仓库/U_TradeFtyClothOutList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, + dxScrollbarAnnotations; type TfrmTradeFtyClothOutList = class(TfrmBaseList) @@ -97,6 +98,8 @@ type Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; + ToolButton3: TToolButton; + Tv1Column19: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -116,6 +119,7 @@ type procedure cxTabControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); private canshu1, canshu2: string; procedure InitGrid(); @@ -131,7 +135,7 @@ type implementation uses - U_DataLink, U_RTFun, U_TradeFtyClothOutEdit, U_LabelPrint; + U_DataLink, U_RTFun, U_TradeFtyClothOutEdit, U_LabelPrint,U_TPUp; {$R *.dfm} @@ -161,6 +165,8 @@ begin sql.Clear; sql.Add(' select A.*,FOrdNo=(select FOrdNo from Trade_Plan_Main X where X.MainId=B.MainId) '); sql.Add(',BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainId=B.MainId) '); + sql.Add(',IsImg=cast((case when (select COUNT(TF.WBID) from TP_File TF'); + sql.Add('where TF.TFType = ''ӹ'' and TF.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) '); sql.Add(' from BS_Cloth_IO A left join Pur_ClothPlan_Main B on A.FromOrdNO=B.PurNo'); sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); @@ -231,6 +237,26 @@ begin end; end; +procedure TfrmTradeFtyClothOutList.ToolButton3Click(Sender: TObject); +begin + try + frmTPUp := TfrmTPUp.Create(Application); + with frmTPUp do + begin + + FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString); + if ShowModal = 1 then + begin + Self.InitGrid(); +// Self.CDS_1.Locate('BCIID', BCIID, []); + end; + end; + finally + frmTPUp.Free; + end; + +end; + procedure TfrmTradeFtyClothOutList.ConNoMChange(Sender: TObject); begin if ADOQueryMain.Active then diff --git a/T02贸易汇总仓库/U_TradeGreyClothInList.dfm b/T02贸易汇总仓库/U_TradeGreyClothInList.dfm index 08600fa..3b3d925 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothInList.dfm +++ b/T02贸易汇总仓库/U_TradeGreyClothInList.dfm @@ -4,6 +4,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Caption = #20837#24211#21015#34920 ClientHeight = 478 ClientWidth = 1284 + ExplicitLeft = -85 ExplicitWidth = 1300 ExplicitHeight = 517 PixelsPerInch = 96 @@ -107,6 +108,14 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList ImageIndex = 7 OnClick = TBCloseClick end + object ToolButton3: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #26174#31034#22270#29255 + ImageIndex = 8 + OnClick = ToolButton3Click + end end object Panel1: TPanel [1] Left = 0 @@ -264,8 +273,10 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Height = 382 Align = alClient TabOrder = 2 + ExplicitTop = 97 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -306,6 +317,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object Tv1Column2: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -314,24 +326,28 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object Tv1Column4: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 83 end object Tv1Column8: TcxGridDBColumn Caption = #22797#21333#21495 DataBinding.FieldName = 'FOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object Tv1Column10: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object v1Column6: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -340,6 +356,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -350,6 +367,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -363,6 +381,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -377,12 +396,14 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object Tv1Column6: TcxGridDBColumn Caption = #23384#25918#21333#20301 DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 92 end object Tv1Column11: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 73 end @@ -390,6 +411,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -403,6 +425,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 79 @@ -410,6 +433,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter VisibleForCustomization = False Width = 89 @@ -417,6 +441,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object v1Column9: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -424,6 +449,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object v1Column13: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 67 @@ -431,6 +457,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object v1Column11: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -438,6 +465,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object v1Column15: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -446,6 +474,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 85 @@ -454,6 +483,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -467,6 +497,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #24211#20301 DataBinding.FieldName = 'StkPosition' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -480,11 +511,13 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object Tv1Column7: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object v1Column19: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -493,12 +526,14 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object v1Column20: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 63 @@ -506,6 +541,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object Tv1Column3: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -513,6 +549,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object Tv1Column5: TcxGridDBColumn Caption = #30721#23610 DataBinding.FieldName = 'Yardstick' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -520,16 +557,25 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList object Tv1Column9: TcxGridDBColumn Caption = #21305#37325 DataBinding.FieldName = 'PieceWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv1Column1: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 end + object Tv1Column12: TcxGridDBColumn + Caption = #22270#29255 + DataBinding.FieldName = 'IsImg' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 40 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/T02贸易汇总仓库/U_TradeGreyClothInList.pas b/T02贸易汇总仓库/U_TradeGreyClothInList.pas index 0eb8d14..8e8f3e0 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothInList.pas +++ b/T02贸易汇总仓库/U_TradeGreyClothInList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, + dxScrollbarAnnotations, cxContainer, cxImage, cxDBEdit; type TfrmTradeGreyClothInList = class(TfrmBaseList) @@ -83,6 +84,8 @@ type Tv1Column8: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + ToolButton3: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -102,6 +105,7 @@ type procedure cxTabControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); private canshu1, canshu2, canshu3: string; procedure InitGrid(); @@ -115,7 +119,7 @@ type implementation uses - U_DataLink, U_RTFun, U_LabelPrint, U_TradeGreyClothInEdit; + U_DataLink, U_RTFun, U_LabelPrint, U_TradeGreyClothInEdit, U_TPUp; {$R *.dfm} procedure TfrmTradeGreyClothInList.setStatus(); @@ -149,6 +153,8 @@ begin Close; sql.Clear; sql.Add(' select A.*,B.FOrdNo,BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainId=B.MainId) '); + sql.Add(',IsImg=cast((case when (select COUNT(TF.WBID) from TP_File TF'); + sql.Add('where TF.TFType = ''ջ'' and TF.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) '); sql.Add(' from BS_Cloth_IO A left join Trade_Plan_Main B on A.FromOrdNO=B.OrderNo'); sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); @@ -221,6 +227,26 @@ begin end; end; +procedure TfrmTradeGreyClothInList.ToolButton3Click(Sender: TObject); +begin + try + frmTPUp := TfrmTPUp.Create(Application); + with frmTPUp do + begin + + FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString); + if ShowModal = 1 then + begin + Self.InitGrid(); +// Self.CDS_1.Locate('BCIID', BCIID, []); + end; + end; + finally + frmTPUp.Free; + end; + +end; + procedure TfrmTradeGreyClothInList.ConNoMChange(Sender: TObject); begin if ADOQueryMain.Active then diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutEdit.dfm b/T02贸易汇总仓库/U_TradeGreyClothOutEdit.dfm index f53776c..267563d 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutEdit.dfm +++ b/T02贸易汇总仓库/U_TradeGreyClothOutEdit.dfm @@ -87,6 +87,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource3 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -122,6 +123,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -135,6 +137,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit object v1Column6: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 91 @@ -143,6 +146,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -153,6 +157,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 20 @@ -169,6 +174,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #37319#36141#21152#24037#21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -185,6 +191,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit object Tv1Column2: TcxGridDBColumn Caption = #20986#21040#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -199,6 +206,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit object Tv1Column3: TcxGridDBColumn Caption = #23384#25918#21333#20301 DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -207,6 +215,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -215,6 +224,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -229,6 +239,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -238,6 +249,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 67 @@ -246,6 +258,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -254,6 +267,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -262,6 +276,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' HeaderAlignmentHorz = taCenter Width = 69 @@ -270,6 +285,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end @@ -277,6 +293,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 85 @@ -285,6 +302,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -293,18 +311,21 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True Width = 79 end object Tv1Column1: TcxGridDBColumn Tag = 2 Caption = #21305#37325 DataBinding.FieldName = 'PieceWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv1Column4: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -312,6 +333,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit object Tv1Column5: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutEdit.pas b/T02贸易汇总仓库/U_TradeGreyClothOutEdit.pas index 645be56..adcf4e7 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutEdit.pas +++ b/T02贸易汇总仓库/U_TradeGreyClothOutEdit.pas @@ -11,7 +11,7 @@ uses cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, - U_BaseInput, System.ImageList, Vcl.ImgList; + U_BaseInput, System.ImageList, Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations; type TfrmTradeGreyClothOutEdit = class(TfrmBaseInput) diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm b/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm index fbd1be7..ab65472 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm @@ -296,10 +296,9 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Height = 445 Align = alClient TabOrder = 2 - ExplicitLeft = -1 - ExplicitTop = 100 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -346,6 +345,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column5: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSEL' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -354,6 +354,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column6: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -362,6 +363,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -372,6 +374,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -385,6 +388,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #25152#23646#31867#22411 DataBinding.FieldName = 'SSType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -399,6 +403,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column1: TcxGridDBColumn Caption = #37319#36141#21333#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -409,6 +414,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #20379#24212#21830 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -424,12 +430,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column6: TcxGridDBColumn Caption = #26579#21378 DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 91 end object v1Column13: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -437,12 +445,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object v1Column17: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -452,6 +462,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column12: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 74 end @@ -459,6 +470,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -472,6 +484,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column20: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'SPCode' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -482,6 +495,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -490,6 +504,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -499,12 +514,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column1: TcxGridDBColumn Caption = #27969#31243#21495 DataBinding.FieldName = 'ToPCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object v1Column7: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 68 @@ -512,6 +529,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column18: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -519,6 +537,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column5: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -526,6 +545,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column19: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 51 @@ -534,6 +554,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 76 @@ -542,6 +563,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 58 @@ -549,12 +571,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column2: TcxGridDBColumn Caption = #21305#37325 DataBinding.FieldName = 'PieceWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -562,6 +586,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column3: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -569,35 +594,41 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column7: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True end object v1Column12: TcxGridDBColumn Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object Tv1Column8: TcxGridDBColumn Caption = #26469#33258#25351#31034#21333 DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 end object Tv1Column9: TcxGridDBColumn Caption = #20986#21040#25351#31034#21333 DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 93 end object Tv1Column10: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 end object Tv1Column11: TcxGridDBColumn Caption = #22797#21333#21495 DataBinding.FieldName = 'FOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end end diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutList.pas b/T02贸易汇总仓库/U_TradeGreyClothOutList.pas index fd32f3d..8afeb4c 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutList.pas +++ b/T02贸易汇总仓库/U_TradeGreyClothOutList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, + dxScrollbarAnnotations; type TfrmTradeGreyClothOutList = class(TfrmBaseList) diff --git a/T02贸易汇总仓库/U_TradePackClothOutList.dfm b/T02贸易汇总仓库/U_TradePackClothOutList.dfm index 3e0d733..67604c1 100644 --- a/T02贸易汇总仓库/U_TradePackClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradePackClothOutList.dfm @@ -5,7 +5,6 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList ClientHeight = 537 ClientWidth = 1540 Position = poScreenCenter - ExplicitLeft = -289 ExplicitWidth = 1556 ExplicitHeight = 576 PixelsPerInch = 96 @@ -109,6 +108,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList ImageIndex = 7 OnClick = TBCloseClick end + object ToolButton3: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #26174#31034#22270#29255 + ImageIndex = 8 + OnClick = ToolButton3Click + end end object Panel1: TPanel [1] Left = 0 @@ -299,10 +306,9 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = 1 - ExplicitTop = 100 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -350,6 +356,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column5: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -358,6 +365,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column5: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 86 @@ -365,6 +373,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column6: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -373,6 +382,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -384,6 +394,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -398,6 +409,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #25152#23646#31867#22411 DataBinding.FieldName = 'SSType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -412,6 +424,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column1: TcxGridDBColumn Caption = #37319#36141#21333#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -422,6 +435,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -437,6 +451,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column13: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -444,12 +459,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object v1Column17: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -460,6 +477,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -473,6 +491,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column20: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'SPCode' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -483,6 +502,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -491,6 +511,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -500,12 +521,21 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 73 end + object Tv1Column18: TcxGridDBColumn + Caption = #22270#29255 + DataBinding.FieldName = 'IsImg' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 49 + end object v1Column7: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 68 @@ -513,12 +543,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column7: TcxGridDBColumn Caption = #26579#21378#32568#21495 DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end object v1Column18: TcxGridDBColumn Caption = #20986#21040#35745#21010#21333 DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -526,6 +558,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column1: TcxGridDBColumn Caption = #26469#33258#35745#21010#21333 DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 96 @@ -533,6 +566,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object v1Column19: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 51 @@ -541,6 +575,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -550,6 +585,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 58 @@ -557,12 +593,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column8: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 52 end object Tv1Column2: TcxGridDBColumn Caption = #21305#37325 DataBinding.FieldName = 'PieceWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -571,12 +609,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True Options.Editing = False Width = 79 end object Tv1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -584,6 +624,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column3: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -591,6 +632,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column9: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -598,6 +640,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column10: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -605,6 +648,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column11: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -612,31 +656,37 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList object Tv1Column12: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column13: TcxGridDBColumn Caption = #22797#21333#21495 DataBinding.FieldName = 'FOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column14: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column15: TcxGridDBColumn Caption = #20986#21040#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column16: TcxGridDBColumn Caption = #27425#21697#25968 DataBinding.FieldName = 'DefQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column17: TcxGridDBColumn Caption = #25910#36135#20154 DataBinding.FieldName = 'consignee' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end end diff --git a/T02贸易汇总仓库/U_TradePackClothOutList.pas b/T02贸易汇总仓库/U_TradePackClothOutList.pas index 92442c5..3b24b45 100644 --- a/T02贸易汇总仓库/U_TradePackClothOutList.pas +++ b/T02贸易汇总仓库/U_TradePackClothOutList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, + dxScrollbarAnnotations; type TfrmTradePackClothOutList = class(TfrmBaseList) @@ -96,6 +97,8 @@ type Tv1Column15: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + ToolButton3: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -115,6 +118,7 @@ type procedure cxTabControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); private canshu1, canshu2: string; procedure InitGrid(); @@ -130,7 +134,7 @@ type implementation uses - U_DataLink, U_RTFun, U_TradePackClothOutEdit, U_LabelPrint; + U_DataLink, U_RTFun, U_TradePackClothOutEdit, U_LabelPrint,U_TPUp; {$R *.dfm} @@ -159,11 +163,14 @@ begin Close; sql.Clear; sql.Add(' select A.*,B.FOrdNo,BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainId=B.MainId) '); + sql.Add(',IsImg=cast((case when (select COUNT(TF.WBID) from TP_File TF'); + sql.Add('where TF.TFType = ''Ⱦ'' and TF.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) '); sql.Add(' from BS_Cloth_IO A left join Trade_Plan_Main B on A.FromOrdNO=B.OrderNo'); sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); SQL.Add(' and ioFlag='''' '); +// showmessage(SQL.text); Open; end; SCreateCDS(ADOQueryMain, CDS_Main); @@ -229,6 +236,26 @@ begin end; end; +procedure TfrmTradePackClothOutList.ToolButton3Click(Sender: TObject); +begin + try + frmTPUp := TfrmTPUp.Create(Application); + with frmTPUp do + begin + + FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString); + if ShowModal = 1 then + begin + Self.InitGrid(); +// Self.CDS_1.Locate('BCIID', BCIID, []); + end; + end; + finally + frmTPUp.Free; + end; + +end; + procedure TfrmTradePackClothOutList.ConNoMChange(Sender: TObject); begin if ADOQueryMain.Active then diff --git a/T02贸易汇总仓库/testDll.identcache b/T02贸易汇总仓库/testDll.identcache index c4e49d8..9052455 100644 Binary files a/T02贸易汇总仓库/testDll.identcache and b/T02贸易汇总仓库/testDll.identcache differ diff --git a/T04贸易明细仓库/ProjectGroup1.groupproj.local b/T04贸易明细仓库/ProjectGroup1.groupproj.local index 6150fc5..f459d2c 100644 --- a/T04贸易明细仓库/ProjectGroup1.groupproj.local +++ b/T04贸易明细仓库/ProjectGroup1.groupproj.local @@ -1,7 +1,7 @@  - - - - + + + + diff --git a/T04贸易明细仓库/TradeClothStk.dproj.local b/T04贸易明细仓库/TradeClothStk.dproj.local index a6f74c9..61f2d48 100644 --- a/T04贸易明细仓库/TradeClothStk.dproj.local +++ b/T04贸易明细仓库/TradeClothStk.dproj.local @@ -2,54 +2,54 @@ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj - 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.890,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothInListNew.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.355,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeKCListSel.pas - 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas 1899-12-30 00:00:00.000.527,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_DeliTradePlanSel.pas + 1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.890,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothInListNew.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.355,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeKCListSel.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.733,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeStockListSel.pas - 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.808,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.733,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeStockListSel.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas + 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm + 1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothStkListNew.pas + 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothOutListNew.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas 1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas= - 1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothStkListNew.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas 1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas= - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothOutListNew.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas= 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas= 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 2024-07-10 14:44:44.808,=D:\Dp10Repo\public10\design\U_BaseDataLink.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 diff --git a/T04贸易明细仓库/TradeClothStk.identcache b/T04贸易明细仓库/TradeClothStk.identcache index 88b4810..bf6b483 100644 Binary files a/T04贸易明细仓库/TradeClothStk.identcache and b/T04贸易明细仓库/TradeClothStk.identcache differ diff --git a/T04贸易明细仓库/testDll.identcache b/T04贸易明细仓库/testDll.identcache index e0601fd..3c2d024 100644 Binary files a/T04贸易明细仓库/testDll.identcache and b/T04贸易明细仓库/testDll.identcache differ