From 47c211dfc01b894f034283147863e1494daf48a7 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 12 Feb 2026 10:40:01 +0800 Subject: [PATCH] 1234 --- 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof | 2 +- 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm | 3 +- 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas | 16 +- 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm | 3 +- 坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas | 16 +- 应收应付/U_CKProductXSMHZList.dfm | 372 ++++++++++++++++++ 应收应付/U_CKProductXSMHZList.pas | 279 +++++++++++++ 应收应付/U_FPWSLIST.dfm | 24 +- 应收应付/U_FPWSLIST.pas | 5 + 应收应付/U_GetDllForm.pas | 2 +- 应收应付/U_SDManage.dfm | 257 +++++++++++- 应收应付/U_SDManage.pas | 102 ++++- 应收应付/YSYF.dof | 2 +- 应收应付/YSYF.dpr | 1 + .../FinishedClothWarehouse.dof | 2 +- .../U_CKProductBCPInList.pas | 2 +- .../U_CKProductBCPOutList.pas | 2 +- .../U_CKProductBCPOutListHZ.pas | 2 +- .../U_CKProductBCPinListHZ.pas | 6 +- 报关管理(BaoGuan.dll)/BaoGuan.dof | 2 +- 报关管理(BaoGuan.dll)/BaoGuan.dpr | 22 +- 报关管理(BaoGuan.dll)/U_BaoGuanInPut.dfm | 10 +- 报关管理(BaoGuan.dll)/U_BaoGuanInPut.pas | 15 +- 报关管理(BaoGuan.dll)/U_CHList.dfm | 14 +- 报关管理(BaoGuan.dll)/U_CHList.pas | 1 + 报关管理(BaoGuan.dll)/U_JHDInPut.dfm | 24 +- 报关管理(BaoGuan.dll)/U_JHDInPut.pas | 19 +- 报关管理(BaoGuan.dll)/U_JHDMAKELIST.dfm | 8 +- 报关管理(BaoGuan.dll)/U_JHDMAKELIST.pas | 15 +- 报关管理(BaoGuan.dll)/U_YFGLList.dfm | 10 +- 报关管理(BaoGuan.dll)/U_YFGLList.pas | 1 + .../DyeingFinishingPlan.dof | 2 +- 染整计划(DyeingFinishingPlan.dll)/U_JYG.dfm | 96 ++++- 染整计划(DyeingFinishingPlan.dll)/U_JYG.pas | 8 +- .../U_MarkingInspection.dfm | 24 +- .../U_ProductOrderList.dfm | 54 ++- .../U_ProductOrderList.pas | 2 + 样布仓库(染色)/SampleWarehouse.dof | 2 +- 样布仓库(染色)/U_SMPBCK.dfm | 4 +- 样布仓库(染色)/U_SMPBCK.pas | 83 ++-- 样布仓库(染色)/U_SMPBCKlist.pas | 15 +- 41 files changed, 1359 insertions(+), 170 deletions(-) create mode 100644 应收应付/U_CKProductXSMHZList.dfm create mode 100644 应收应付/U_CKProductXSMHZList.pas diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof index 46d01a9..f046364 100644 --- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\\뵥(PBMDDJ.dll)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myzhenyong\뵥(PBMDDJ.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm index bbcaaa7..1de3e69 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.dfm @@ -261,7 +261,8 @@ object frmWJGCKOutList: TfrmWJGCKOutList #24179#31227#20986#24211 #22238#20462#20986#24211 #35797#26679#20986#24211 - #27425#21697#20986#24211) + #27425#21697#20986#24211 + #20854#20182#20986#24211) end object SPCF: TEdit Tag = 2 diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas index 05cac33..422c071 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutList.pas @@ -11,7 +11,21 @@ uses ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmWJGCKOutList = class(TForm) diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm index b66230e..34497d6 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.dfm @@ -144,7 +144,8 @@ object frmWJGCKOutPut: TfrmWJGCKOutPut #24179#31227#20986#24211 #22238#20462#20986#24211 #35797#26679#20986#24211 - #27425#21697#20986#24211) + #27425#21697#20986#24211 + #20854#20182#20986#24211) HeaderAlignmentHorz = taCenter Width = 81 end diff --git a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas index 2741baa..10204fd 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKOutPut.pas @@ -9,7 +9,21 @@ uses cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit, - StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmWJGCKOutPut = class(TForm) diff --git a/应收应付/U_CKProductXSMHZList.dfm b/应收应付/U_CKProductXSMHZList.dfm new file mode 100644 index 0000000..937ecaa --- /dev/null +++ b/应收应付/U_CKProductXSMHZList.dfm @@ -0,0 +1,372 @@ +object frmCKProducTXSHZList: TfrmCKProducTXSHZList + Left = 384 + Top = 164 + Width = 1027 + Height = 511 + Caption = #27599#26085#38144#21806#36134#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1011 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_FinishedClothWarehouse.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1011 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 158 + Top = 34 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 182 + Top = 10 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 20 + Top = 10 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 52 + Top = 34 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label6: TLabel + Left = 36 + Top = 72 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label11: TLabel + Left = 321 + Top = 8 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object MPRTCodeName2: TEdit + Tag = 2 + Left = 211 + Top = 29 + Width = 100 + Height = 20 + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + OnChange = MPRTCodeName2Change + end + object BegDate: TDateTimePicker + Left = 65 + Top = 7 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 65 + Top = 31 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 2 + end + object MJID: TEdit + Tag = 2 + Left = 82 + Top = 68 + Width = 109 + Height = 20 + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = MPRTCodeName2Change + end + object tt: TEdit + Tag = 2 + Left = 347 + Top = 4 + Width = 80 + Height = 20 + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = MPRTCodeName2Change + end + object prtcolor2: TEdit + Tag = 2 + Left = 212 + Top = 4 + Width = 100 + Height = 20 + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 5 + OnChange = MPRTCodeName2Change + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 89 + Width = 1011 + Height = 383 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_FinishedClothWarehouse.SHuangSe + Styles.IncSearch = DataLink_FinishedClothWarehouse.SHuangSe + Styles.Selection = DataLink_FinishedClothWarehouse.SHuangSe + Styles.Header = DataLink_FinishedClothWarehouse.Default + object v1Column4: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object Tv1Column5: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'gongyi' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#25968 + DataBinding.FieldName = 'JQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v2Column6: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object v1Column13: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRICE' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v2Column5: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'MONEY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21152#24037#31859#25968 + DataBinding.FieldName = 'qty1' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv1Column6: TcxGridDBColumn + Caption = #24213#24067#39068#33394 + DataBinding.FieldName = 'dbcolor' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24213#24067#31859#25968 + HeaderAlignmentHorz = taCenter + Width = 83 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24213#24067#20844#26020 + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'cknote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object MovePanel2: TMovePanel + Left = 408 + Top = 192 + Width = 289 + Height = 49 + BevelInner = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_FinishedClothWarehouse.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_FinishedClothWarehouse.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 984 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_FinishedClothWarehouse.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 32 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end +end diff --git a/应收应付/U_CKProductXSMHZList.pas b/应收应付/U_CKProductXSMHZList.pas new file mode 100644 index 0000000..072217f --- /dev/null +++ b/应收应付/U_CKProductXSMHZList.pas @@ -0,0 +1,279 @@ +unit U_CKProductXSMHZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, MovePanel, cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter, cxTextEdit; + +type + TfrmCKProducTXSHZList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + MPRTCodeName2: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Label6: TLabel; + MJID: TEdit; + v1Column6: TcxGridDBColumn; + MovePanel2: TMovePanel; + v1Column13: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Label11: TLabel; + tt: TEdit; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + prtcolor2: TEdit; + Tv1Column6: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeName2Change(Sender: TObject); + procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure PRTColorChange(Sender: TObject); + procedure Tv1Column4PropertiesEditValueChanged(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProducTXSHZList: TfrmCKProducTXSHZList; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCKProducTXSHZList.FormDestroy(Sender: TObject); +begin + frmCKProductXSHZList := nil; + +end; + +procedure TfrmCKProducTXSHZList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmCKProducTXSHZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime := SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProducTXSHZList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + +// sql.Add('select b.CustomerNoName,SUM(round((a.qty-a.kongjia)*machi,2)) Qty,SUM(A.NetKGQty) NetKGQty,count(A.MJID) JQty '); +// sql.Add(' ,B.MPRTCodeName, PRTColor=isnull(jycolor,PRTColor),B.PRICE,MONEY=SUM(B.PRICE*(a.qty-a.kongjia)*machi),A.cknote '); +// +// sql.Add('from CK_BanCP_CR A inner join JYOrder_Main B on A.MainId=B.MainId '); +// sql.Add('inner join JYOrder_Sub C on A.SubId=C.SubId '); +//// sql.Add('inner join JYOrder_Car D on D.CarNo=A.APID '); +// sql.Add(' where A.CRFlag='''' '); +// +// sql.Add(' and A.CRTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))); +// sql.Add(' and A.CRTime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))); +// +// sql.Add(' group by CustomerNoName,MPRTCodeName,isnull(jycolor,PRTColor),B.PRICE,A.cknote '); + + sql.Add('EXEC P_EVERYDAY_XS '); + sql.Add('@begdate=''' + formatdateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(',@enddate=''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' '); + + + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmCKProducTXSHZList.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible := True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible := False; +end; + +procedure TfrmCKProducTXSHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmCKProducTXSHZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv1, 'ˮƷֿ'); + Close; +end; + +procedure TfrmCKProducTXSHZList.FormShow(Sender: TObject); +begin + ReadCxGrid(trim(self.Caption), Tv1, 'ˮƷֿ'); +end; + +procedure TfrmCKProducTXSHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid2); +end; + +procedure TfrmCKProducTXSHZList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmCKProducTXSHZList.MPRTCodeName2Change(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProducTXSHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'SOrdDefStr10'; + flagname := 'ŵص'; + if ShowModal = 1 then + begin + with CDS_Main do + begin + Edit; + FieldByName('SOrdDefStr10').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Sub Set SOrdDefStr10=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + ''''); + sql.Add(' where SubId=''' + Trim(Self.CDS_Main.fieldbyname('SubId').AsString) + ''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCKProducTXSHZList.PRTColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProducTXSHZList.Tv1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_Main do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('UPDATE CK_BanCP_CR SET cknote=' + QuotedStr(mvalue)); + SQL.ADD(' where MJID IN (SELECT MJID FROM '); + SQL.Add(' CK_BanCP_CR A inner join JYOrder_Main B on A.MainId=B.MainId '); + SQL.Add('inner join JYOrder_Sub C on A.SubId=C.SubId '); + sql.Add(' where A.CRFlag='''' '); + + sql.Add(' and A.CRTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))); + sql.Add(' and A.CRTime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))); + SQL.Add(' AND b.CustomerNoName=' + QuotedStr(CDS_Main.FIELDBYNAME('CustomerNoName').AsString)); + SQL.Add(' AND B.MPRTCodeName=' + QuotedStr(CDS_Main.FIELDBYNAME('MPRTCodeName').AsString)); + SQL.Add(' AND isnull(jycolor,PRTColor)=' + QuotedStr(CDS_Main.FIELDBYNAME('PRTColor').AsString)); + SQL.Add(' AND ISNULL(B.PRICE,0)=' + (CDS_Main.FIELDBYNAME('PRICE').AsString)); + SQL.Add(' AND ISNULL(a.cknote,'''')=' + QuotedStr(CDS_Main.FIELDBYNAME('cknote').AsString)); + + sql.Add(')'); +// ShowMessage(SQL.Text); + ExecSQL; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +end. + diff --git a/应收应付/U_FPWSLIST.dfm b/应收应付/U_FPWSLIST.dfm index 1ca2ef1..71bc5f6 100644 --- a/应收应付/U_FPWSLIST.dfm +++ b/应收应付/U_FPWSLIST.dfm @@ -21,7 +21,7 @@ object frmFPWSCX: TfrmFPWSCX object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1374 + Width = 1366 Height = 31 ButtonHeight = 30 ButtonWidth = 95 @@ -78,7 +78,7 @@ object frmFPWSCX: TfrmFPWSCX object Panel1: TPanel Left = 0 Top = 31 - Width = 1374 + Width = 1366 Height = 70 Align = alTop BevelInner = bvRaised @@ -328,8 +328,8 @@ object frmFPWSCX: TfrmFPWSCX object cxGrid1: TcxGrid Left = 0 Top = 101 - Width = 1374 - Height = 331 + Width = 1366 + Height = 323 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -526,8 +526,8 @@ object frmFPWSCX: TfrmFPWSCX end object cxGrid2: TcxGrid Left = 0 - Top = 432 - Width = 1374 + Top = 424 + Width = 1366 Height = 291 Align = alBottom TabOrder = 3 @@ -676,6 +676,18 @@ object frmFPWSCX: TfrmFPWSCX HeaderAlignmentHorz = taCenter Width = 126 end + object TV2Column3: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object TV2Column4: TcxGridDBColumn + Caption = #25910#27719#26085#26399 + DataBinding.FieldName = 'CRTIME' + HeaderAlignmentHorz = taCenter + Width = 74 + end end object cxGridLevel1: TcxGridLevel GridView = TV2 diff --git a/应收应付/U_FPWSLIST.pas b/应收应付/U_FPWSLIST.pas index 963a4d7..9ae97d8 100644 --- a/应收应付/U_FPWSLIST.pas +++ b/应收应付/U_FPWSLIST.pas @@ -101,6 +101,8 @@ type Tv1Column12: TcxGridDBColumn; Tv1MXOrderNoSummary: TcxGridDBColumn; CheckBox2: TCheckBox; + TV2Column3: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -566,7 +568,10 @@ begin Close; SQL.Clear; sql.Add(' select A.*,B.SDNO'); + SQL.Add(',CRTIME '); + SQL.Add(',GSDYSJE=(SELECT sum(HXNUM) from YF_Money_CR_SUB e INNER JOIN YF_Money_CR f ON e.YFID=f.YFID where f.sdno=b.sdno)'); + SQL.Add(',OrdDate=(select OrdDate from jyorder_main c where a.mxorderno=c.orderno)'); sql.Add(' from YF_Money_CR_SUB A INNER JOIN YF_Money_CR B ON A.YFID=B.YFID where SUBWXFPNO=' + Quotedstr(Trim(CDS_HZ.fieldbyname('SUBWXFPNO').AsString))); SQL.Add('ORDER BY SDNO'); Open; diff --git a/应收应付/U_GetDllForm.pas b/应收应付/U_GetDllForm.pas index 57c9bb0..5f9b000 100644 --- a/应收应付/U_GetDllForm.pas +++ b/应收应付/U_GetDllForm.pas @@ -72,7 +72,7 @@ begin pswd := 'rightsoft@9101'; // pswd := 'rightsoft'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - // DConString := DataBaseStr; + DConString := DataBaseStr; if not ConnData() then begin diff --git a/应收应付/U_SDManage.dfm b/应收应付/U_SDManage.dfm index d9f73b7..5db6fb1 100644 --- a/应收应付/U_SDManage.dfm +++ b/应收应付/U_SDManage.dfm @@ -1,6 +1,6 @@ object frmSDmanage: TfrmSDmanage - Left = 173 - Top = 54 + Left = 271 + Top = 230 Width = 1382 Height = 754 Caption = #27700#21333#31649#29702 @@ -20,7 +20,7 @@ object frmSDmanage: TfrmSDmanage object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1374 + Width = 1366 Height = 31 ButtonHeight = 30 ButtonWidth = 83 @@ -97,17 +97,25 @@ object frmSDmanage: TfrmSDmanage ImageIndex = 53 OnClick = TBexcelClick end - object ToolButton1: TToolButton + object ToolButton2: TToolButton Left = 528 Top = 0 AutoSize = True + Caption = #26126#32454#23548#20986 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 615 + Top = 0 + AutoSize = True Caption = #38468#20214#19978#20256 ImageIndex = 49 Visible = False OnClick = ToolButton1Click end object TBPrint: TToolButton - Left = 615 + Left = 702 Top = 0 AutoSize = True Caption = #25171#21360 @@ -116,7 +124,7 @@ object frmSDmanage: TfrmSDmanage OnClick = TBPrintClick end object TBClose: TToolButton - Left = 678 + Left = 765 Top = 0 AutoSize = True Caption = #20851#38381 @@ -127,7 +135,7 @@ object frmSDmanage: TfrmSDmanage object Panel1: TPanel Left = 0 Top = 31 - Width = 1374 + Width = 1366 Height = 74 Align = alTop BevelInner = bvRaised @@ -281,8 +289,8 @@ object frmSDmanage: TfrmSDmanage object cxGrid2: TcxGrid Left = 0 Top = 127 - Width = 1374 - Height = 305 + Width = 1366 + Height = 297 Align = alClient TabOrder = 2 object Tv2: TcxGridDBTableView @@ -407,7 +415,7 @@ object frmSDmanage: TfrmSDmanage object cxTabControl1: TcxTabControl Left = 0 Top = 105 - Width = 1374 + Width = 1366 Height = 22 Align = alTop TabOrder = 3 @@ -420,13 +428,13 @@ object frmSDmanage: TfrmSDmanage #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 22 - ClientRectRight = 1374 + ClientRectRight = 1366 ClientRectTop = 19 end object cxGrid1: TcxGrid Left = 0 - Top = 432 - Width = 1374 + Top = 424 + Width = 1366 Height = 291 Align = alBottom TabOrder = 4 @@ -567,6 +575,214 @@ object frmSDmanage: TfrmSDmanage GridView = Tv1 end end + object Panel2: TPanel + Left = 403 + Top = 81 + Width = 363 + Height = 313 + Caption = 'Panel2' + TabOrder = 5 + Visible = False + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 361 + Height = 311 + Align = alClient + TabOrder = 0 + Visible = False + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + OnFocusedRecordChanged = Tv2FocusedRecordChanged + DataController.DataSource = DS_DC + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = TV3Column4 + end + item + Kind = skSum + Column = TV3Column5 + end + item + Kind = skSum + Column = TV3Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #27700#21333#32534#21495 + DataBinding.FieldName = 'SDNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'FILLTime' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #22806#38144#21457#31080#21495 + DataBinding.FieldName = 'WXFPNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25910#27719#26085#26399 + DataBinding.FieldName = 'CRTIME' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25910#27719#37329#39069 + DataBinding.FieldName = 'MONEY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 80 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #22806#24065#36153#29992 + DataBinding.FieldName = 'ZWBFY' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #22269#20869#25187#36153 + DataBinding.FieldName = 'ZGNKF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 80 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #32034#36180#27454 + DataBinding.FieldName = 'ZSKP' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'ZYJ' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20854#20182 + DataBinding.FieldName = 'ZQITA' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZTYPE' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21040#36134#20928#39069 + DataBinding.FieldName = 'DZMONEY' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #26410#26680#38144#37329#39069 + DataBinding.FieldName = 'WHXJE' + OnCustomDrawCell = Tv2Column2CustomDrawCell + HeaderAlignmentHorz = taCenter + Width = 96 + end + object TV3Column1: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'kxtype' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column2: TcxGridDBColumn + Caption = #22806#38144#21457#31080#21495 + DataBinding.FieldName = 'SUBWXFPNO' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column3: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'MXORDERNO' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column4: TcxGridDBColumn + Caption = #21457#31080#37329#39069 + DataBinding.FieldName = 'MXMONEY' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column5: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'HXNUM' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column6: TcxGridDBColumn + Caption = #32034#36180#37329#39069 + DataBinding.FieldName = 'SPK' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column7: TcxGridDBColumn + Caption = #32034#36180#35828#26126 + DataBinding.FieldName = 'SPNOTE' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'MXNOTE' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column9: TcxGridDBColumn + Caption = #23454#38469#20986#24211#31859#25968 + DataBinding.FieldName = 'CKQTY' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object TV3Column10: TcxGridDBColumn + Caption = #23454#38469#20986#24211#20928#37325 + DataBinding.FieldName = 'CKkgqty' + HeaderAlignmentHorz = taCenter + Width = 90 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + end object ADOQueryTemp: TADOQuery Connection = DataLink_YSYF.ADOLink LockType = ltReadOnly @@ -639,12 +855,23 @@ object frmSDmanage: TfrmSDmanage object CDS_SUB: TClientDataSet Aggregates = <> Params = <> - Left = 444 - Top = 489 + Left = 443 + Top = 488 end object DS_SUB: TDataSource DataSet = CDS_SUB Left = 492 Top = 477 end + object CDS_DC: TClientDataSet + Aggregates = <> + Params = <> + Left = 730 + Top = 487 + end + object DS_DC: TDataSource + DataSet = CDS_DC + Left = 779 + Top = 477 + end end diff --git a/应收应付/U_SDManage.pas b/应收应付/U_SDManage.pas index d838854..f70ab4f 100644 --- a/应收应付/U_SDManage.pas +++ b/应收应付/U_SDManage.pas @@ -14,7 +14,18 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, - dxSkinscxPCPainter; + dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmSDmanage = class(TForm) @@ -88,6 +99,37 @@ type CheckBox2: TCheckBox; Label5: TLabel; BZTYPE: TEdit; + Panel2: TPanel; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + TV3Column1: TcxGridDBColumn; + TV3Column2: TcxGridDBColumn; + TV3Column3: TcxGridDBColumn; + TV3Column4: TcxGridDBColumn; + TV3Column5: TcxGridDBColumn; + TV3Column6: TcxGridDBColumn; + TV3Column7: TcxGridDBColumn; + TV3Column8: TcxGridDBColumn; + TV3Column9: TcxGridDBColumn; + TV3Column10: TcxGridDBColumn; + CDS_DC: TClientDataSet; + DS_DC: TDataSource; + ToolButton2: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -108,6 +150,7 @@ type procedure Tv2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); private { Private declarations } procedure InitGrid(); @@ -322,6 +365,7 @@ begin end; SCreateCDS20(ADOQueryMain, CDS_HZ); SInitCDSData20(ADOQueryMain, CDS_HZ); + finally ADOQueryMain.EnableControls; TBfind.Click; @@ -628,5 +672,61 @@ begin InitGrid(); end; +procedure TfrmSDmanage.ToolButton2Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + Filtered := False; + SQL.Clear; + SQL.Add('SELECT * FROM ('); + sql.Add(' select A.*,B.kxtype AS KXTYPE2,SUBWXFPNO,MXORDERNO,MXMONEY,HXNUM,SPNOTE,MXNOTE '); + SQL.Add(',WHXJE=MONEY-isnull((SELECT SUM(HXNUM) FROM yf_money_cr_SUB C WHERE C.YFID=A.YFID),0)'); + sql.Add(',CKQTY=(SELECT SUM(QTY) FROM CK_BanCP_CR F INNER JOIN JYOrder_Main E ON F.MAINID=E.MAINID WHERE E.ORDERNO=B.MXORDERNO AND f.CRFlag='''')'); + sql.Add(',CKkgqty=(SELECT sum(kgqty) FROM CK_BanCP_CR F INNER JOIN JYOrder_Main E ON F.MAINID=E.MAINID WHERE E.ORDERNO=B.MXORDERNO AND f.CRFlag='''')'); + + sql.Add(',STUFF(( SELECT '', '' +convert(VARCHAR, kxtype) FROM YF_Money_CR_SUB C where C.yfid=a.yfid FOR XML PATH('''')), 1, 1, '''') AS kxtype'); + sql.Add(' from yf_money_cr A INNER JOIN yf_money_cr_SUB B ON A.YFID=B.YFID where '); + + sql.Add(' A.CRtype=''տǼ'' AND A.SKTYPE=''ˮ'''); + if cxTabControl1.TabIndex < 2 then + begin + sql.Add('and A.status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); + end; + if CheckBox1.Checked = True then + begin + sql.Add('and ZSKP>0'); + end; + + SQL.Add(')AA '); + +// sql.Add('or WHXJE>10'); + if CheckBox2.Checked = True then + begin + sql.Add('where WHXJE>10'); + end + else + begin + sql.Add(' where CRTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' '); + sql.Add('and CRTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' '); + sql.Add('or WHXJE>10'); + end; + + sql.Add('ORDER BY FILLTIME DESC'); + + Open; + end; + SCreateCDS20(ADOQueryCmd, CDS_DC); + SInitCDSData20(ADOQueryCmd, CDS_DC); + + if ADOQueryCmd.Active = False then + Exit; + SDofilter(ADOQueryCmd, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryCmd, CDS_DC); + SInitCDSData20(ADOQueryCmd, CDS_DC); + + TcxGridToExcel(self.Caption + 'ϸ', cxgrid3); +end; + end. diff --git a/应收应付/YSYF.dof b/应收应付/YSYF.dof index 1acc0e9..48605d3 100644 --- a/应收应付/YSYF.dof +++ b/应收应付/YSYF.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Project\D7myzhenyong\ӦӦ\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myzhenyong\ӦӦ\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/应收应付/YSYF.dpr b/应收应付/YSYF.dpr index 74eb6a6..08a0657 100644 --- a/应收应付/YSYF.dpr +++ b/应收应付/YSYF.dpr @@ -6,6 +6,7 @@ uses forms, WinTypes, WinProcs, + MidasLib, U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule}, U_GetDllForm in 'U_GetDllForm.pas', U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof index a4f34e8..ac7db9e 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof +++ b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\\Ʒֿ(FinishedClothWarehouse.dll)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myzhenyong\Ʒֿ(FinishedClothWarehouse.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas index 2b0e49f..a3c4a11 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas @@ -507,7 +507,7 @@ begin end; SCreateCDS20(ADOQueryPrint, CDS_PRT); SInitCDSData20(ADOQueryPrint, CDS_PRT); - if ComboBox1.Text = 'ӡ뵥()' then + if (ComboBox1.Text = 'ӡ뵥()') or (ComboBox1.Text = 'AZ') then begin with ADOQueryPrint do begin diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas index 274703d..37486e6 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas @@ -249,7 +249,7 @@ begin SCreateCDS20(ADOQueryPrint, CDS_PRT); SInitCDSData20(ADOQueryPrint, CDS_PRT); - if ComboBox1.Text = 'ӡ뵥()' then + if (ComboBox1.Text = 'ӡ뵥()') or (ComboBox1.Text = 'AZ') then begin with ADOQueryPrint do begin diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutListHZ.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutListHZ.pas index 08fbab4..ff56fe2 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutListHZ.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutListHZ.pas @@ -213,7 +213,7 @@ begin end; SCreateCDS20(ADOQueryPrint, CDS_PRT); SInitCDSData20(ADOQueryPrint, CDS_PRT); - if ComboBox1.Text = 'ӡ뵥()' then + if (ComboBox1.Text = 'ӡ뵥()') or (ComboBox1.Text = 'AZ') then begin with ADOQueryPrint do begin diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPinListHZ.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPinListHZ.pas index 4198bb1..656b1a0 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPinListHZ.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPinListHZ.pas @@ -193,13 +193,13 @@ begin end; SCreateCDS20(ADOQueryPrint, CDS_PRT); SInitCDSData20(ADOQueryPrint, CDS_PRT); - if ComboBox1.Text = 'ӡ뵥()' then + if (ComboBox1.Text = 'ӡ뵥()') or (ComboBox1.Text = 'AZ') then begin with ADOQueryPrint do begin Close; sql.Clear; - sql.add('exec P_Print_CKMD_DXHZ3 @code=' + quotedstr(Trim(DCode))); + sql.add('exec P_Print_CKMD_DXHZ3_R @code=' + quotedstr(Trim(DCode))); Open; end; SCreateCDS20(ADOQueryPrint, CDS_HZ); @@ -211,7 +211,7 @@ begin begin Close; sql.Clear; - sql.add('exec P_Print_CKMD_DXHZ @code=' + quotedstr(Trim(DCode))); + sql.add('exec P_Print_rKMD_DXHZ_R @code=' + quotedstr(Trim(DCode))); Open; end; SCreateCDS20(ADOQueryPrint, CDS_HZ); diff --git a/报关管理(BaoGuan.dll)/BaoGuan.dof b/报关管理(BaoGuan.dll)/BaoGuan.dof index aa8cd1b..827e9ce 100644 --- a/报关管理(BaoGuan.dll)/BaoGuan.dof +++ b/报关管理(BaoGuan.dll)/BaoGuan.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Project\D7myzhenyong\ع(BaoGuan.dll)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myzhenyong\ع(BaoGuan.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/报关管理(BaoGuan.dll)/BaoGuan.dpr b/报关管理(BaoGuan.dll)/BaoGuan.dpr index 928341b..22aceea 100644 --- a/报关管理(BaoGuan.dll)/BaoGuan.dpr +++ b/报关管理(BaoGuan.dll)/BaoGuan.dpr @@ -1,11 +1,13 @@ library BaoGuan; //Ѹ + uses SysUtils, classes, forms, WinTypes, WinProcs, + MidasLib, U_GetDllForm in 'U_GetDllForm.pas', U_DataLink in 'U_DataLink.pas' {DataLink_DDMD: TDataModule}, U_FjList in 'U_FjList.pas' {frmFjList}, @@ -38,7 +40,7 @@ uses {$R *.res} -procedure DllEnterPoint(dwReason: DWORD);far;stdcall; +procedure DllEnterPoint(dwReason: DWORD); far; stdcall; begin DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH); @@ -49,14 +51,16 @@ begin // if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then // Application:=NewDllApp; end; -exports - GetDllForm; -begin - try - NewDllApp:=Application; - DLLProc := @DLLUnloadProc; - except - end; +exports + GetDllForm; + +begin + try + NewDllApp := Application; + DLLProc := @DLLUnloadProc; + except + + end; end. diff --git a/报关管理(BaoGuan.dll)/U_BaoGuanInPut.dfm b/报关管理(BaoGuan.dll)/U_BaoGuanInPut.dfm index ee63964..8bc59d7 100644 --- a/报关管理(BaoGuan.dll)/U_BaoGuanInPut.dfm +++ b/报关管理(BaoGuan.dll)/U_BaoGuanInPut.dfm @@ -20,7 +20,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1318 + Width = 1310 Height = 33 ButtonHeight = 30 ButtonWidth = 59 @@ -67,8 +67,8 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut object cxGrid1: TcxGrid Left = 0 Top = 370 - Width = 1318 - Height = 307 + Width = 1310 + Height = 299 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView @@ -468,7 +468,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut object Panel1: TPanel Left = 0 Top = 33 - Width = 1318 + Width = 1310 Height = 304 Align = alTop BevelInner = bvRaised @@ -1007,7 +1007,7 @@ object frmBaoGuanInPut: TfrmBaoGuanInPut object ToolBar2: TToolBar Left = 0 Top = 337 - Width = 1318 + Width = 1310 Height = 33 ButtonHeight = 30 ButtonWidth = 83 diff --git a/报关管理(BaoGuan.dll)/U_BaoGuanInPut.pas b/报关管理(BaoGuan.dll)/U_BaoGuanInPut.pas index efba9b7..b3abf96 100644 --- a/报关管理(BaoGuan.dll)/U_BaoGuanInPut.pas +++ b/报关管理(BaoGuan.dll)/U_BaoGuanInPut.pas @@ -10,7 +10,20 @@ uses cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinsDefaultPainters, dxSkinscxPCPainter; + dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmBaoGuanInPut = class(TForm) diff --git a/报关管理(BaoGuan.dll)/U_CHList.dfm b/报关管理(BaoGuan.dll)/U_CHList.dfm index 41ffcfb..0c46cf0 100644 --- a/报关管理(BaoGuan.dll)/U_CHList.dfm +++ b/报关管理(BaoGuan.dll)/U_CHList.dfm @@ -21,7 +21,7 @@ object frmCHList: TfrmCHList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1376 + Width = 1368 AutoSize = True ButtonHeight = 30 ButtonWidth = 83 @@ -100,7 +100,7 @@ object frmCHList: TfrmCHList object Panel1: TPanel Left = 0 Top = 32 - Width = 1376 + Width = 1368 Height = 59 Align = alTop BevelInner = bvRaised @@ -259,8 +259,8 @@ object frmCHList: TfrmCHList object cxGrid2: TcxGrid Left = 0 Top = 91 - Width = 1376 - Height = 548 + Width = 1368 + Height = 540 Align = alClient TabOrder = 2 object TV1: TcxGridDBTableView @@ -440,6 +440,12 @@ object frmCHList: TfrmCHList HeaderAlignmentHorz = taCenter Width = 66 end + object TV1Column16: TcxGridDBColumn + Caption = #25253#20851#22791#27880 + DataBinding.FieldName = 'MXNOTE' + HeaderAlignmentHorz = taCenter + Width = 73 + end object TV1Column8: TcxGridDBColumn Caption = #37096#38376 DataBinding.FieldName = 'ywzb' diff --git a/报关管理(BaoGuan.dll)/U_CHList.pas b/报关管理(BaoGuan.dll)/U_CHList.pas index 62dfb88..bf71195 100644 --- a/报关管理(BaoGuan.dll)/U_CHList.pas +++ b/报关管理(BaoGuan.dll)/U_CHList.pas @@ -105,6 +105,7 @@ type ywzb: TEdit; TV1E4JingZ: TcxGridDBColumn; TV1JS: TcxGridDBColumn; + TV1Column16: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); diff --git a/报关管理(BaoGuan.dll)/U_JHDInPut.dfm b/报关管理(BaoGuan.dll)/U_JHDInPut.dfm index 931d581..0b0f657 100644 --- a/报关管理(BaoGuan.dll)/U_JHDInPut.dfm +++ b/报关管理(BaoGuan.dll)/U_JHDInPut.dfm @@ -20,7 +20,7 @@ object frmJHDInPut: TfrmJHDInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1256 + Width = 1248 Height = 33 ButtonHeight = 30 ButtonWidth = 59 @@ -58,7 +58,7 @@ object frmJHDInPut: TfrmJHDInPut object Panel1: TPanel Left = 0 Top = 33 - Width = 1256 + Width = 1248 Height = 360 Align = alTop BevelInner = bvRaised @@ -836,7 +836,7 @@ object frmJHDInPut: TfrmJHDInPut object FKR: TMemo Tag = 2 Left = 799 - Top = 126 + Top = 127 Width = 397 Height = 64 Hint = 'WZhiLiangNote/'#36136#37327#35201#27714 @@ -997,15 +997,15 @@ object frmJHDInPut: TfrmJHDInPut object Panel2: TPanel Left = 0 Top = 393 - Width = 796 - Height = 351 + Width = 788 + Height = 343 Align = alClient Caption = 'Panel2' TabOrder = 2 object ToolBar2: TToolBar Left = 1 Top = 1 - Width = 794 + Width = 786 Height = 33 ButtonHeight = 30 ButtonWidth = 107 @@ -1101,8 +1101,8 @@ object frmJHDInPut: TfrmJHDInPut object cxGrid1: TcxGrid Left = 1 Top = 34 - Width = 794 - Height = 316 + Width = 786 + Height = 308 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView @@ -1425,10 +1425,10 @@ object frmJHDInPut: TfrmJHDInPut end end object Panel3: TPanel - Left = 796 + Left = 788 Top = 393 Width = 460 - Height = 351 + Height = 343 Align = alRight Caption = 'Panel2' TabOrder = 3 @@ -1483,7 +1483,7 @@ object frmJHDInPut: TfrmJHDInPut Left = 1 Top = 34 Width = 458 - Height = 181 + Height = 173 Align = alClient TabOrder = 1 object TV2: TcxGridDBTableView @@ -1596,7 +1596,7 @@ object frmJHDInPut: TfrmJHDInPut end object Panel4: TPanel Left = 1 - Top = 215 + Top = 207 Width = 458 Height = 135 Align = alBottom diff --git a/报关管理(BaoGuan.dll)/U_JHDInPut.pas b/报关管理(BaoGuan.dll)/U_JHDInPut.pas index a62dbe6..ba22481 100644 --- a/报关管理(BaoGuan.dll)/U_JHDInPut.pas +++ b/报关管理(BaoGuan.dll)/U_JHDInPut.pas @@ -9,8 +9,20 @@ uses cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, BtnEdit, - ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; + ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, + dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, + dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmJHDInPut = class(TForm) @@ -400,6 +412,9 @@ begin RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 1); RTSetsavedata(ADOQueryCmd, 'JHD_Main', Panel1, 2); + + FieldByName('FKR').Value := UpperCase(FKR.Text); + if chuandate.Checked = true then begin FieldByName('chuandate').Value := chuandate.DateTime; diff --git a/报关管理(BaoGuan.dll)/U_JHDMAKELIST.dfm b/报关管理(BaoGuan.dll)/U_JHDMAKELIST.dfm index 87e669f..2ce1a87 100644 --- a/报关管理(BaoGuan.dll)/U_JHDMAKELIST.dfm +++ b/报关管理(BaoGuan.dll)/U_JHDMAKELIST.dfm @@ -21,7 +21,7 @@ object frmJHDMAKEList: TfrmJHDMAKEList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1358 + Width = 1350 AutoSize = True ButtonHeight = 30 ButtonWidth = 107 @@ -172,7 +172,7 @@ object frmJHDMAKEList: TfrmJHDMAKEList object Panel1: TPanel Left = 0 Top = 32 - Width = 1358 + Width = 1350 Height = 59 Align = alTop BevelInner = bvRaised @@ -279,8 +279,8 @@ object frmJHDMAKEList: TfrmJHDMAKEList object cxGrid2: TcxGrid Left = 0 Top = 91 - Width = 1358 - Height = 548 + Width = 1350 + Height = 540 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 diff --git a/报关管理(BaoGuan.dll)/U_JHDMAKELIST.pas b/报关管理(BaoGuan.dll)/U_JHDMAKELIST.pas index ce0c1e4..8f26c81 100644 --- a/报关管理(BaoGuan.dll)/U_JHDMAKELIST.pas +++ b/报关管理(BaoGuan.dll)/U_JHDMAKELIST.pas @@ -14,7 +14,20 @@ uses BtnEdit, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, MovePanel, Registry, frxExportRTF, frxExportImage, frxExportPDF, frxExportXLSX, frxExportDOCX, frxClass, frxExportBIFF, frxDBSet, - dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; + dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type TfrmJHDMAKEList = class(TForm) diff --git a/报关管理(BaoGuan.dll)/U_YFGLList.dfm b/报关管理(BaoGuan.dll)/U_YFGLList.dfm index 6562791..5d7a13a 100644 --- a/报关管理(BaoGuan.dll)/U_YFGLList.dfm +++ b/报关管理(BaoGuan.dll)/U_YFGLList.dfm @@ -21,7 +21,7 @@ object frmYFGLList: TfrmYFGLList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1376 + Width = 1368 AutoSize = True ButtonHeight = 30 ButtonWidth = 107 @@ -137,7 +137,7 @@ object frmYFGLList: TfrmYFGLList object Panel1: TPanel Left = 0 Top = 32 - Width = 1376 + Width = 1368 Height = 59 Align = alTop BevelInner = bvRaised @@ -260,8 +260,8 @@ object frmYFGLList: TfrmYFGLList object cxGrid2: TcxGrid Left = 0 Top = 91 - Width = 1376 - Height = 548 + Width = 1368 + Height = 540 Align = alClient TabOrder = 2 object TV1: TcxGridDBTableView @@ -389,7 +389,7 @@ object frmYFGLList: TfrmYFGLList end object TV1Column12: TcxGridDBColumn Caption = #24320#33337#26085#26399 - DataBinding.FieldName = 'chuandate' + DataBinding.FieldName = 'chuandate2' HeaderAlignmentHorz = taCenter Width = 66 end diff --git a/报关管理(BaoGuan.dll)/U_YFGLList.pas b/报关管理(BaoGuan.dll)/U_YFGLList.pas index a6420c1..8335b8b 100644 --- a/报关管理(BaoGuan.dll)/U_YFGLList.pas +++ b/报关管理(BaoGuan.dll)/U_YFGLList.pas @@ -222,6 +222,7 @@ begin Close; sql.Clear; sql.Add('select A.* '); + SQL.Add(',CHUANDATE2=(SELECT CHUANDATE FROM JHD_MAIN E WHERE E.VALID=''Y'' and E.A4FPNO=A.A4FPNO )'); SQL.Add(',ZUSD=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ=''Ԫ'')'); sql.Add(',ZRMB=(SELECT SUM(FYMONEY)FROM FP_SUB B WHERE B.FPID=A.FPID AND B.FYBZ='''')'); SQL.Add('FROM FP_MAIN A where 1=1 '); diff --git a/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof b/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof index 334efb6..39b9979 100644 --- a/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof +++ b/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Project\D7myzhenyong\Ⱦƻ(DyeingFinishingPlan.dll)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myzhenyong\Ⱦƻ(DyeingFinishingPlan.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYG.dfm b/染整计划(DyeingFinishingPlan.dll)/U_JYG.dfm index 3f9da41..4e55ca4 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYG.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_JYG.dfm @@ -1,7 +1,7 @@ object frmJYG: TfrmJYG Left = 442 Top = 228 - Width = 1033 + Width = 1090 Height = 512 Caption = #25968#25454#36873#25321 Color = clBtnFace @@ -20,7 +20,7 @@ object frmJYG: TfrmJYG object ScrollBox1: TScrollBox Left = 0 Top = 0 - Width = 1017 + Width = 1074 Height = 473 Align = alClient TabOrder = 0 @@ -53,7 +53,7 @@ object frmJYG: TfrmJYG end object btn3: TSpeedButton Left = 577 - Top = 19 + Top = 17 Width = 208 Height = 70 Font.Charset = GB2312_CHARSET @@ -66,8 +66,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object btn4: TSpeedButton - Left = 23 - Top = 131 + Left = 843 + Top = 19 Width = 208 Height = 70 Font.Charset = GB2312_CHARSET @@ -80,8 +80,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object btn5: TSpeedButton - Left = 300 - Top = 131 + Left = 23 + Top = 126 Width = 208 Height = 70 Font.Charset = GB2312_CHARSET @@ -94,8 +94,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object SpeedButton1: TSpeedButton - Left = 577 - Top = 131 + Left = 300 + Top = 126 Width = 208 Height = 70 Font.Charset = GB2312_CHARSET @@ -108,8 +108,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object SpeedButton2: TSpeedButton - Left = 23 - Top = 243 + Left = 577 + Top = 125 Width = 208 Height = 69 Font.Charset = GB2312_CHARSET @@ -122,8 +122,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object SpeedButton4: TSpeedButton - Left = 302 - Top = 243 + Left = 843 + Top = 126 Width = 208 Height = 69 Font.Charset = GB2312_CHARSET @@ -136,8 +136,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object SpeedButton5: TSpeedButton - Left = 577 - Top = 243 + Left = 23 + Top = 233 Width = 208 Height = 69 Font.Charset = GB2312_CHARSET @@ -150,8 +150,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object SpeedButton3: TSpeedButton - Left = 23 - Top = 354 + Left = 300 + Top = 234 Width = 208 Height = 69 Font.Charset = GB2312_CHARSET @@ -164,8 +164,8 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object SpeedButton6: TSpeedButton - Left = 302 - Top = 354 + Left = 577 + Top = 231 Width = 208 Height = 69 Font.Charset = GB2312_CHARSET @@ -178,8 +178,64 @@ object frmJYG: TfrmJYG OnClick = btn1Click end object SpeedButton7: TSpeedButton + Left = 843 + Top = 231 + Width = 208 + Height = 69 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = btn1Click + end + object SpeedButton8: TSpeedButton + Left = 23 + Top = 339 + Width = 208 + Height = 69 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = btn1Click + end + object SpeedButton9: TSpeedButton + Left = 300 + Top = 340 + Width = 208 + Height = 69 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = btn1Click + end + object SpeedButton10: TSpeedButton Left = 577 - Top = 354 + Top = 338 + Width = 208 + Height = 69 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = btn1Click + end + object SpeedButton11: TSpeedButton + Left = 843 + Top = 337 Width = 208 Height = 69 Font.Charset = GB2312_CHARSET diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYG.pas b/染整计划(DyeingFinishingPlan.dll)/U_JYG.pas index 46d2a96..44c0b1a 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYG.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_JYG.pas @@ -22,6 +22,10 @@ type SpeedButton3: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); procedure btn1Click(Sender: TObject); @@ -89,9 +93,9 @@ begin end; end; i := i - 1; - if i > 11 then + if i > 15 then begin - i := 11; + i := 15; end; for j := 0 to i do begin diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm index 1fc2c60..a328bd5 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm @@ -1,6 +1,6 @@ object frmMarkingInspection: TfrmMarkingInspection - Left = 556 - Top = 370 + Left = 214 + Top = 185 Width = 1539 Height = 825 Align = alLeft @@ -23,7 +23,7 @@ object frmMarkingInspection: TfrmMarkingInspection Left = 236 Top = 113 Width = 621 - Height = 681 + Height = 673 Align = alLeft TabOrder = 6 Visible = False @@ -1572,8 +1572,8 @@ object frmMarkingInspection: TfrmMarkingInspection object cxGrid3: TcxGrid Left = 1151 Top = 113 - Width = 380 - Height = 681 + Width = 372 + Height = 673 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -1699,7 +1699,7 @@ object frmMarkingInspection: TfrmMarkingInspection Left = 0 Top = 113 Width = 236 - Height = 681 + Height = 673 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2155,7 +2155,7 @@ object frmMarkingInspection: TfrmMarkingInspection end object Button3: TButton Left = 191 - Top = 362 + Top = 363 Width = 39 Height = 41 Caption = #36873#25321 @@ -2256,7 +2256,7 @@ object frmMarkingInspection: TfrmMarkingInspection Left = 857 Top = 113 Width = 294 - Height = 681 + Height = 673 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2281,7 +2281,7 @@ object frmMarkingInspection: TfrmMarkingInspection Left = 2 Top = 404 Width = 290 - Height = 275 + Height = 267 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2397,14 +2397,14 @@ object frmMarkingInspection: TfrmMarkingInspection object Panel5: TPanel Left = 0 Top = 0 - Width = 1531 + Width = 1523 Height = 113 Align = alTop TabOrder = 0 object Panel6: TPanel Left = 1 Top = 31 - Width = 1529 + Width = 1521 Height = 81 Align = alClient BevelInner = bvRaised @@ -2654,7 +2654,7 @@ object frmMarkingInspection: TfrmMarkingInspection object ToolBar1: TToolBar Left = 1 Top = 1 - Width = 1529 + Width = 1521 Height = 30 ButtonHeight = 30 ButtonWidth = 119 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm index 650ddd4..276c270 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm @@ -1,7 +1,7 @@ object frmProductOrderList: TfrmProductOrderList - Left = 495 - Top = 367 - Width = 1363 + Left = 315 + Top = 201 + Width = 1439 Height = 801 Caption = #29983#20135#25351#31034#21333 Color = clBtnFace @@ -21,7 +21,7 @@ object frmProductOrderList: TfrmProductOrderList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1355 + Width = 1423 Height = 62 AutoSize = True ButtonHeight = 30 @@ -295,7 +295,7 @@ object frmProductOrderList: TfrmProductOrderList object Panel1: TPanel Left = 0 Top = 62 - Width = 1355 + Width = 1423 Height = 64 Align = alTop BevelInner = bvRaised @@ -497,6 +497,19 @@ object frmProductOrderList: TfrmProductOrderList Font.Style = [fsBold] ParentFont = False end + object Label41: TLabel + Left = 1278 + Top = 14 + Width = 54 + Height = 12 + Caption = #38376' '#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 109 Top = 11 @@ -698,12 +711,21 @@ object frmProductOrderList: TfrmProductOrderList #26797#32455 '') end + object MPRTMF: TEdit + Tag = 2 + Left = 1332 + Top = 10 + Width = 80 + Height = 20 + TabOrder = 21 + OnKeyPress = CustomerNoNameKeyPress + end end object cxGrid1: TcxGrid Left = 0 Top = 157 - Width = 1355 - Height = 372 + Width = 1423 + Height = 364 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -1011,8 +1033,8 @@ object frmProductOrderList: TfrmProductOrderList end object cxSplitter1: TcxSplitter Left = 0 - Top = 566 - Width = 1355 + Top = 558 + Width = 1423 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -1020,8 +1042,8 @@ object frmProductOrderList: TfrmProductOrderList end object Panel2: TPanel Left = 0 - Top = 574 - Width = 1355 + Top = 566 + Width = 1423 Height = 196 Align = alBottom BevelOuter = bvNone @@ -1030,7 +1052,7 @@ object frmProductOrderList: TfrmProductOrderList object cxGrid2: TcxGrid Left = 0 Top = 0 - Width = 1355 + Width = 1423 Height = 196 Align = alClient PopupMenu = PopupMenu2 @@ -1869,8 +1891,8 @@ object frmProductOrderList: TfrmProductOrderList end object Panel11: TPanel Left = 0 - Top = 529 - Width = 1355 + Top = 521 + Width = 1423 Height = 37 Align = alBottom TabOrder = 8 @@ -1930,7 +1952,7 @@ object frmProductOrderList: TfrmProductOrderList object Panel12: TPanel Left = 0 Top = 126 - Width = 1355 + Width = 1423 Height = 31 Align = alTop AutoSize = True @@ -1938,7 +1960,7 @@ object frmProductOrderList: TfrmProductOrderList BorderStyle = bsSingle TabOrder = 9 DesignSize = ( - 1351 + 1419 27) object Label30: TLabel Left = 506 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas index a2bca4c..4d2157b 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas @@ -299,6 +299,8 @@ type Tv1Column12: TcxGridDBColumn; ToolButton12: TToolButton; YSBQ: TcxButtonEdit; + Label41: TLabel; + MPRTMF: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); diff --git a/样布仓库(染色)/SampleWarehouse.dof b/样布仓库(染色)/SampleWarehouse.dof index 7e5ee53..b80a10c 100644 --- a/样布仓库(染色)/SampleWarehouse.dof +++ b/样布仓库(染色)/SampleWarehouse.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\\ֿ(Ⱦɫ)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myzhenyong\ֿ(Ⱦɫ)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/样布仓库(染色)/U_SMPBCK.dfm b/样布仓库(染色)/U_SMPBCK.dfm index 35fab56..8833292 100644 --- a/样布仓库(染色)/U_SMPBCK.dfm +++ b/样布仓库(染色)/U_SMPBCK.dfm @@ -1,6 +1,6 @@ object frmSMPBCK: TfrmSMPBCK - Left = 143 - Top = 152 + Left = 381 + Top = 265 Width = 1230 Height = 638 BorderIcons = [biSystemMenu] diff --git a/样布仓库(染色)/U_SMPBCK.pas b/样布仓库(染色)/U_SMPBCK.pas index 699995d..412d09a 100644 --- a/样布仓库(染色)/U_SMPBCK.pas +++ b/样布仓库(染色)/U_SMPBCK.pas @@ -11,7 +11,20 @@ uses DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, BtnEdit, cxContainer, cxTextEdit, cxCurrencyEdit, cxCheckBox, Menus, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator; + cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmSMPBCK = class(TForm) @@ -626,46 +639,46 @@ begin begin cds_main.DisableControls; -// cds_main.First; + cds_main.First; -// while not cds_main.Eof do -// begin - if (not self.cds_main.Locate('MJID', trim(cds_main.fieldbyname('MJID').AsString), [])) then + while not cds_main.Eof do begin - self.cds_main.Append; + if (not self.cds_main.Locate('MJID', trim(cds_main.fieldbyname('MJID').AsString), [])) and (cds_main.FieldByName('SSel').AsBoolean = True) then + begin + self.cds_main.Append; // self.cds_main.FieldByName('JYSQD').Value := fjysq; - self.cds_main.FieldByName('OrderNo').Value := trim(cds_main.fieldbyname('OrderNo').AsString); - self.cds_main.FieldByName('mainID').Value := trim(cds_main.fieldbyname('mainID').AsString); - self.cds_main.FieldByName('subID').Value := trim(cds_main.fieldbyname('subID').AsString); - self.cds_main.fieldbyname('fromFactoryName').Value := trim(cds_main.fieldbyname('fromFactoryName').AsString); - self.cds_main.fieldbyname('FactoryName').Value := trim(cds_main.fieldbyname('FactoryName').AsString); - self.cds_main.fieldbyname('JGId').Value := trim(cds_main.fieldbyname('JGId').AsString); - self.cds_main.FieldByName('MJID').Value := trim(cds_main.fieldbyname('MJID').AsString); - self.cds_main.FieldByName('MJXH').Value := trim(cds_main.fieldbyname('MJXH').AsString); - self.cds_main.FieldByName('CPTYPE').Value := trim(cds_main.fieldbyname('CPTYPE').AsString); - self.cds_main.FieldByName('P_Code').Value := trim(cds_main.fieldbyname('P_Code').AsString); - self.cds_main.FieldByName('P_CodeName').Value := trim(cds_main.fieldbyname('P_CodeName').AsString); - self.cds_main.FieldByName('kuwei').Value := trim(cds_main.fieldbyname('kuwei').AsString); - self.cds_main.FieldByName('P_spec').Value := trim(cds_main.fieldbyname('P_spec').AsString); - self.cds_main.FieldByName('P_Color').Value := trim(cds_main.fieldbyname('P_Color').AsString); - self.cds_main.FieldByName('P_HX').Value := trim(cds_main.fieldbyname('P_HX').AsString); - self.cds_main.FieldByName('P_CF').Value := trim(cds_main.fieldbyname('P_CF').AsString); - self.cds_main.FieldByName('P_MF').Value := trim(cds_main.fieldbyname('P_MF').AsString); + self.cds_main.FieldByName('OrderNo').Value := trim(cds_main.fieldbyname('OrderNo').AsString); + self.cds_main.FieldByName('mainID').Value := trim(cds_main.fieldbyname('mainID').AsString); + self.cds_main.FieldByName('subID').Value := trim(cds_main.fieldbyname('subID').AsString); + self.cds_main.fieldbyname('fromFactoryName').Value := trim(cds_main.fieldbyname('fromFactoryName').AsString); + self.cds_main.fieldbyname('FactoryName').Value := trim(cds_main.fieldbyname('FactoryName').AsString); + self.cds_main.fieldbyname('JGId').Value := trim(cds_main.fieldbyname('JGId').AsString); + self.cds_main.FieldByName('MJID').Value := trim(cds_main.fieldbyname('MJID').AsString); + self.cds_main.FieldByName('MJXH').Value := trim(cds_main.fieldbyname('MJXH').AsString); + self.cds_main.FieldByName('CPTYPE').Value := trim(cds_main.fieldbyname('CPTYPE').AsString); + self.cds_main.FieldByName('P_Code').Value := trim(cds_main.fieldbyname('P_Code').AsString); + self.cds_main.FieldByName('P_CodeName').Value := trim(cds_main.fieldbyname('P_CodeName').AsString); + self.cds_main.FieldByName('kuwei').Value := trim(cds_main.fieldbyname('kuwei').AsString); + self.cds_main.FieldByName('P_spec').Value := trim(cds_main.fieldbyname('P_spec').AsString); + self.cds_main.FieldByName('P_Color').Value := trim(cds_main.fieldbyname('P_Color').AsString); + self.cds_main.FieldByName('P_HX').Value := trim(cds_main.fieldbyname('P_HX').AsString); + self.cds_main.FieldByName('P_CF').Value := trim(cds_main.fieldbyname('P_CF').AsString); + self.cds_main.FieldByName('P_MF').Value := trim(cds_main.fieldbyname('P_MF').AsString); - self.cds_main.FieldByName('SJBDH').Value := trim(cds_main.fieldbyname('SJBDH').AsString); - self.cds_main.FieldByName('CGPZ').Value := trim(cds_main.fieldbyname('CGPZ').AsString); - self.cds_main.FieldByName('P_KZ').Value := trim(cds_main.fieldbyname('P_KZ').AsString); - self.cds_main.FieldByName('RollNum').Value := cds_main.fieldbyname('RollNum').AsFloat; - self.cds_main.FieldByName('Qty').Value := 0; // cds_main.fieldbyname('kcQty').AsFloat; + self.cds_main.FieldByName('SJBDH').Value := trim(cds_main.fieldbyname('SJBDH').AsString); + self.cds_main.FieldByName('CGPZ').Value := trim(cds_main.fieldbyname('CGPZ').AsString); + self.cds_main.FieldByName('P_KZ').Value := trim(cds_main.fieldbyname('P_KZ').AsString); + self.cds_main.FieldByName('RollNum').Value := cds_main.fieldbyname('RollNum').AsFloat; + self.cds_main.FieldByName('Qty').Value := 0; // cds_main.fieldbyname('kcQty').AsFloat; // self.cds_main.FieldByName('yptype').Value := trim(cds_main.fieldbyname('yptype').AsString); - self.cds_main.FieldByName('SJKC').Value := cds_main.fieldbyname('kcQty').AsFloat; - self.cds_main.FieldByName('QtyUnit').Value := trim(cds_main.fieldbyname('QtyUnit').AsString); - self.cds_main.FieldByName('Price').Value := 0; - self.cds_main.FieldByName('Money').Value := 0; - self.cds_main.Post; -// end; -// cds_main.Next; + self.cds_main.FieldByName('SJKC').Value := cds_main.fieldbyname('kcQty').AsFloat; + self.cds_main.FieldByName('QtyUnit').Value := trim(cds_main.fieldbyname('QtyUnit').AsString); + self.cds_main.FieldByName('Price').Value := 0; + self.cds_main.FieldByName('Money').Value := 0; + self.cds_main.Post; + end; + cds_main.Next; end; cds_main.EnableControls; end; diff --git a/样布仓库(染色)/U_SMPBCKlist.pas b/样布仓库(染色)/U_SMPBCKlist.pas index 69154e9..655678f 100644 --- a/样布仓库(染色)/U_SMPBCKlist.pas +++ b/样布仓库(染色)/U_SMPBCKlist.pas @@ -11,7 +11,20 @@ uses cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common, RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC, cxCheckBox, Menus, U_SLT, jpeg, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator; + cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmsmpbCKlist = class(TForm)