diff --git a/T05贸易门市管理/TradeMarket.dpr b/T05贸易门市管理/TradeMarket.dpr index b573105..60a6842 100644 --- a/T05贸易门市管理/TradeMarket.dpr +++ b/T05贸易门市管理/TradeMarket.dpr @@ -37,7 +37,7 @@ uses U_FormDesign in '..\..\..\public10\design\U_FormDesign.pas', U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas', - U_TradeMarketList in 'U_TradeMarketList.pas' {frmTradeMarketList}, + U_TradeMarketList_XY in 'U_TradeMarketList_XY.pas' {frmTradeMarketList_XY}, U_TradeDispatchedList in 'U_TradeDispatchedList.pas' {frmTradeDispatchedList}, U_TradeMarketDisSel in 'U_TradeMarketDisSel.pas' {frmTradeMarketDisSel}, U_ComContactSel in '..\A00ͨô\U_ComContactSel.pas' {frmComContactSel}, diff --git a/T05贸易门市管理/TradeMarket.dproj b/T05贸易门市管理/TradeMarket.dproj index 7b4bd95..9c431c5 100644 --- a/T05贸易门市管理/TradeMarket.dproj +++ b/T05贸易门市管理/TradeMarket.dproj @@ -216,8 +216,8 @@ - -
frmTradeMarketList
+ +
frmTradeMarketList_XY
dfm diff --git a/T05贸易门市管理/U_GetDllForm.pas b/T05贸易门市管理/U_GetDllForm.pas index 1c16d6f..a2b86cb 100644 --- a/T05贸易门市管理/U_GetDllForm.pas +++ b/T05贸易门市管理/U_GetDllForm.pas @@ -16,7 +16,7 @@ implementation uses U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList, - U_TradeMarketList_JD; + U_TradeMarketList_JD, U_TradeMarketList_XY; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -142,6 +142,18 @@ begin mnewHandle := Handle; end; end; + 211: // + begin + with TfrmTradeMarketList_XY.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do // + begin + fFormID := FormID; + FOrdType := ''; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; 112: // begin with TfrmTradeMarketList_JD.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do // diff --git a/T05贸易门市管理/U_TradeMarketInPut.dfm b/T05贸易门市管理/U_TradeMarketInPut.dfm index e977b43..f086f3a 100644 --- a/T05贸易门市管理/U_TradeMarketInPut.dfm +++ b/T05贸易门市管理/U_TradeMarketInPut.dfm @@ -9,8 +9,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut Position = poMainFormCenter WindowState = wsMaximized OnClose = FormClose - ExplicitLeft = -391 - ExplicitTop = -123 + ExplicitLeft = -451 ExplicitWidth = 1937 ExplicitHeight = 775 PixelsPerInch = 96 diff --git a/T05贸易门市管理/U_TradeMarketInPut.pas b/T05贸易门市管理/U_TradeMarketInPut.pas index 78b447e..9b578ba 100644 --- a/T05贸易门市管理/U_TradeMarketInPut.pas +++ b/T05贸易门市管理/U_TradeMarketInPut.pas @@ -1490,7 +1490,7 @@ begin begin MTMSId := Self.MTMSId; FTMMID := Self.FTMMID; - + canshu4 := self.canshu4; if ShowModal = 1 then begin Self.InitMXGrid(Self.MTMSID); diff --git a/T05贸易门市管理/U_TradeMarketInPut_XY.dfm b/T05贸易门市管理/U_TradeMarketInPut_XY.dfm new file mode 100644 index 0000000..929d642 --- /dev/null +++ b/T05贸易门市管理/U_TradeMarketInPut_XY.dfm @@ -0,0 +1,961 @@ +inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY + Left = 143 + Top = 4 + Caption = #26032#20313#35746#21333#24405#20837 + ClientHeight = 736 + ClientWidth = 1921 + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poMainFormCenter + WindowState = wsMaximized + OnClose = FormClose + ExplicitLeft = -422 + ExplicitWidth = 1937 + ExplicitHeight = 775 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1921 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 105 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Images = cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + DropdownMenu = PopupMenu1 + ImageIndex = 16 + Style = tbsDropDown + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 94 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 197 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + object TBAdd: TToolButton + Left = 268 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 2 + OnClick = TBAddClick + end + object ToolButton6: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 6 + end + object TBEdit: TToolButton + Left = 410 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + end + object ToolBar2: TToolBar [1] + Tag = 1 + Left = 0 + Top = 193 + Width = 1921 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 99 + EdgeInner = esNone + EdgeOuter = esNone + Images = cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton2Click + end + object ToolButton5: TToolButton + Left = 142 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 30 + OnClick = ToolButton5Click + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 223 + Width = 1921 + Height = 513 + Align = alClient + Caption = 'Panel2' + TabOrder = 2 + object Panel3: TPanel + Left = 1 + Top = 1 + Width = 1633 + Height = 511 + Align = alClient + Caption = 'Panel2' + TabOrder = 0 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1631 + Height = 509 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column3: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column11: TcxGridDBColumn + Tag = 99 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 77 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column7: TcxGridDBColumn + Caption = #33394#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxLookupComboBoxProperties' + Properties.KeyFieldNames = 'C_Name' + Properties.ListColumns = < + item + Caption = #21697#21517 + HeaderAlignment = taCenter + Width = 64 + FieldName = 'C_Name' + end> + Properties.ListSource = DS_PM + Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 149 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column12: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxLookupComboBoxProperties' + Properties.KeyFieldNames = 'C_ColorNo' + Properties.ListColumns = < + item + Caption = #33394#21495 + HeaderAlignment = taCenter + FieldName = 'C_ColorNo' + end + item + Caption = #39068#33394 + HeaderAlignment = taCenter + FieldName = 'C_Color' + end> + Properties.ListSource = DS_YS + Properties.OnEditValueChanged = Tv1Column12PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 168 + end + object Tv1Column9: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column11: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column15: TcxGridDBColumn + Caption = #25253#21333#25968#37327 + DataBinding.FieldName = 'OrderQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column16: TcxGridDBColumn + Caption = #25253#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxLookupComboBoxProperties' + Properties.KeyFieldNames = 'CICUnit' + Properties.ListColumns = < + item + Caption = #21333#20301 + FieldName = 'CICUnit' + end> + Properties.ListSource = DS_DanWei + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column21: TcxGridDBColumn + Caption = #21442#32771#20215#26684 + DataBinding.FieldName = 'referencePrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 98 + end + object Tv1Column22: TcxGridDBColumn + Caption = #21382#21490#20215#26684 + DataBinding.FieldName = 'Lastprice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 83 + end + object Tv1Column8: TcxGridDBColumn + Caption = #22791#36135#21333#20301 + DataBinding.FieldName = 'TMSUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column20: TcxGridDBColumn + Tag = 22 + Caption = #24403#21069#24211#23384 + DataBinding.FieldName = 'StkQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 98 + end + object Tv1Column6: TcxGridDBColumn + Caption = #21253#32568#36153 + DataBinding.FieldName = 'GangFee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column13: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'Transfee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20854#23427#36153 + DataBinding.FieldName = 'Otherfee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column17: TcxGridDBColumn + Caption = #32039#24613#31243#24230 + DataBinding.FieldName = 'Urgent' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + #27491#24120 + #32039#24613) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column18: TcxGridDBColumn + Caption = #22791#36135#29366#24577 + DataBinding.FieldName = 'StkStatus' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + #26377 + #23436#25104 + #27809#36135 + #27424#21333 + #21462#28040#21333) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column19: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'OutQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel4: TPanel + Left = 1634 + Top = 1 + Width = 286 + Height = 511 + Align = alRight + Caption = 'Panel4' + TabOrder = 1 + Visible = False + object Panel5: TPanel + Left = 1 + Top = 1 + Width = 284 + Height = 41 + Align = alTop + TabOrder = 0 + object Label33: TLabel + Left = 113 + Top = 10 + Width = 32 + Height = 21 + Caption = #25968#37327 + end + object Label38: TLabel + Left = 20 + Top = 10 + Width = 32 + Height = 21 + Caption = #24207#21495 + end + object QtyMX: TcxTextEdit + Left = 163 + Top = 2 + TabOrder = 0 + OnKeyPress = QtyMXKeyPress + Width = 89 + end + end + object GroupBox2: TGroupBox + Left = 1 + Top = 42 + Width = 284 + Height = 468 + Align = alClient + Caption = #21452#20987#21024#38500#26126#32454#20449#24687 + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 23 + Width = 280 + Height = 443 + Align = alClient + TabOrder = 0 + object TvMX: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = TvMXCellDblClick + DataController.DataSource = DS_MX + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Kind = skCount + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skCount + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 33 + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 66 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TvMX + end + end + end + end + end + object ScrollBox1: TScrollBox [3] + Left = 0 + Top = 38 + Width = 1921 + Height = 155 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 3 + OnClick = ScrollBox1Click + object Label3: TLabel + Left = 730 + Top = 70 + Width = 64 + Height = 21 + Caption = #21046#21333#26085#26399 + end + object Label25: TLabel + Left = 1112 + Top = 164 + Width = 64 + Height = 21 + Caption = #20132#36135#26085#26399 + Visible = False + end + object Label1: TLabel + Left = 29 + Top = 68 + Width = 77 + Height = 21 + Caption = #22791' '#27880 + end + object Label2: TLabel + Left = 730 + Top = 21 + Width = 64 + Height = 21 + Caption = #21333#25454#32534#21495 + end + object Label14: TLabel + Left = 29 + Top = 21 + Width = 72 + Height = 21 + Caption = #23458' '#25143 + end + object Label20: TLabel + Left = 789 + Top = 164 + Width = 64 + Height = 21 + Caption = #32463#33829#21333#20301 + Visible = False + end + object Label37: TLabel + Left = 1077 + Top = 21 + Width = 64 + Height = 21 + Caption = #35746#21333#31867#22411 + end + object Label18: TLabel + Left = 730 + Top = 119 + Width = 64 + Height = 21 + Caption = #21457#36135#22320#22336 + end + object Label4: TLabel + Left = 352 + Top = 21 + Width = 48 + Height = 21 + Caption = #35746#21333#21495 + end + object Label19: TLabel + Left = 1077 + Top = 68 + Width = 80 + Height = 21 + Caption = #32852#31995#26041#24335#65306 + end + object TMMNo: TcxTextEdit + Tag = 2 + Left = 814 + Top = 15 + Enabled = False + TabOrder = 0 + Width = 200 + end + object TMMDate: TDateTimePicker + Tag = 2 + Left = 814 + Top = 66 + Width = 200 + Height = 29 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + TabOrder = 1 + end + object DLYDate: TDateTimePicker + Tag = 2 + Left = 1196 + Top = 160 + Width = 200 + Height = 29 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + ShowCheckbox = True + TabOrder = 2 + Visible = False + end + object OrdNote: TMemo + Tag = 2 + Left = 122 + Top = 68 + Width = 511 + Height = 81 + Hint = 'OrdNote/'#22791#27880 + ScrollBars = ssVertical + TabOrder = 3 + OnDblClick = PackNoteDblClick + end + object OrdType: TComboBox + Tag = 2 + Left = 1164 + Top = 17 + Width = 200 + Height = 29 + Style = csDropDownList + Ctl3D = False + Enabled = False + ItemIndex = 0 + ParentCtl3D = False + TabOrder = 4 + Text = #27491#24120#21333 + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object OurCoName: TcxButtonEdit + Tag = 2 + Left = 882 + Top = 160 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = OurCoNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 5 + Visible = False + OnDblClick = OurCoNameDblClick + Width = 200 + end + object ShippingAddress: TcxButtonEdit + Tag = 2 + Left = 814 + Top = 115 + Hint = 'ShippingAddress/'#21457#36135#22320#22336 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ShippingAddressPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 6 + OnDblClick = OurCoNameDblClick + Width = 200 + end + object BuyOrdNo: TcxTextEdit + Tag = 2 + Left = 416 + Top = 15 + TabOrder = 7 + Width = 200 + end + object CustName: TcxMRUEdit + Tag = 2 + Left = 122 + Top = 15 + Properties.ImmediatePost = True + Properties.ReadOnly = False + Properties.OnButtonClick = StkPositionPropertiesButtonClick + Properties.OnChange = CustNamePropertiesChange + Properties.OnCloseUp = CustNamePropertiesCloseUp + TabOrder = 8 + OnMouseDown = CustNameMouseDown + Width = 200 + end + object CONTACT: TcxButtonEdit + Tag = 2 + Left = 1164 + Top = 63 + Hint = 'CONTACT/'#32852#31995#26041#24335 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ShippingAddressPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 9 + OnDblClick = OurCoNameDblClick + Width = 200 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 860 + Top = 157 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 942 + Top = 157 + end + inherited ImageList_new32: TImageList + Left = 1024 + Top = 467 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 1024 + Top = 343 + DesignInfo = 22479872 + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1106 + Top = 157 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 778 + Top = 157 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 1106 + Top = 343 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 1024 + Top = 281 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 860 + Top = 343 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 1024 + Top = 157 + end + object ADO_I1: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 942 + Top = 219 + end + object DS_I1: TDataSource + DataSet = ADO_I1 + Left = 860 + Top = 405 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 942 + Top = 467 + end + object ADO_I2: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 1024 + Top = 219 + end + object DS_I2: TDataSource + DataSet = ADO_I2 + Left = 942 + Top = 405 + end + object DS_MX: TDataSource + DataSet = CDS_MX + Left = 1024 + Top = 405 + end + object CDS_MX: TClientDataSet + Aggregates = <> + Params = <> + Left = 778 + Top = 343 + end + object ADO_YS: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 942 + Top = 281 + end + object DS_YS: TDataSource + DataSet = ADO_YS + Left = 860 + Top = 467 + end + object DS_RCPM: TDataSource + DataSet = ADO_RCPM + Left = 778 + Top = 467 + end + object ADO_PM: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 778 + Top = 281 + end + object ADO_RCPM: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 860 + Top = 281 + end + object DS_PM: TDataSource + DataSet = ADO_PM + Left = 1106 + Top = 405 + end + object ADO_1: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 778 + Top = 219 + end + object CDS_KH: TClientDataSet + Aggregates = <> + Params = <> + Left = 1106 + Top = 281 + end + object ADO_KH: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1106 + Top = 219 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 942 + Top = 343 + end + object DS_DanWei: TDataSource + DataSet = ADO_DanWei + Left = 778 + Top = 405 + end + object ADO_DanWei: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 860 + Top = 219 + end + object PopupMenu1: TPopupMenu + Left = 49 + Top = 74 + object N5: TMenuItem + Caption = #20445#23384#21518#31435#21363#25552#20132 + OnClick = N5Click + end + object N1: TMenuItem + Caption = #20445#23384#21518#31435#21363#23436#25104#13#10 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20445#23384#21518#31435#21363#25171#21360 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #20445#23384#21518#31435#21363#26032#22686 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #20445#23384#21518#25171#21360#24182#36864#20986 + OnClick = N4Click + end + end +end diff --git a/T05贸易门市管理/U_TradeMarketInPut_XY.pas b/T05贸易门市管理/U_TradeMarketInPut_XY.pas new file mode 100644 index 0000000..a21d83e --- /dev/null +++ b/T05贸易门市管理/U_TradeMarketInPut_XY.pas @@ -0,0 +1,1888 @@ +unit U_TradeMarketInPut_XY; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, + RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus, + cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox, + dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList, Vcl.ImgList, + U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, + dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, + cxDBLookupComboBox, cxMRUEdit, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue; + +type + TfrmTradeMarketInPut_XY = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DS_1: TDataSource; + CDS_1: TClientDataSet; + GPM_1: TcxGridPopupMenu; + ADOQueryLabel: TADOQuery; + ADO_I1: TADOQuery; + DS_I1: TDataSource; + ToolButton3: TToolButton; + IdFTP1: TIdFTP; + ADO_I2: TADOQuery; + DS_I2: TDataSource; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Panel2: TPanel; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column11: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Panel4: TPanel; + Panel5: TPanel; + Label33: TLabel; + Label38: TLabel; + QtyMX: TcxTextEdit; + GroupBox2: TGroupBox; + cxGrid2: TcxGrid; + TvMX: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DS_MX: TDataSource; + CDS_MX: TClientDataSet; + Tv1Column3: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + ScrollBox1: TScrollBox; + Label3: TLabel; + Label25: TLabel; + Label1: TLabel; + Label2: TLabel; + Label14: TLabel; + Label20: TLabel; + Label37: TLabel; + Label18: TLabel; + TMMNo: TcxTextEdit; + TMMDate: TDateTimePicker; + DLYDate: TDateTimePicker; + OrdNote: TMemo; + OrdType: TComboBox; + OurCoName: TcxButtonEdit; + ShippingAddress: TcxButtonEdit; + ADO_YS: TADOQuery; + DS_YS: TDataSource; + DS_RCPM: TDataSource; + ADO_PM: TADOQuery; + ADO_RCPM: TADOQuery; + DS_PM: TDataSource; + Tv1Column12: TcxGridDBColumn; + ADO_1: TADOQuery; + Label4: TLabel; + BuyOrdNo: TcxTextEdit; + CustName: TcxMRUEdit; + CDS_KH: TClientDataSet; + ADO_KH: TADOQuery; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + GPM_2: TcxGridPopupMenu; + DS_DanWei: TDataSource; + ADO_DanWei: TADOQuery; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + N4: TMenuItem; + N5: TMenuItem; + Label19: TLabel; + CONTACT: TcxButtonEdit; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + ToolButton5: TToolButton; + Tv1Column21: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + TBAdd: TToolButton; + ToolButton6: TToolButton; + TBEdit: TToolButton; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ScrollBox1Click(Sender: TObject); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure HYTTBtnUpClick(Sender: TObject); + procedure KYTTBtnUpClick(Sender: TObject); + procedure edtGYBtnUpClick(Sender: TObject); + procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure cxDBImage1DblClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TechnicsBtnUpClick(Sender: TObject); + procedure TechnicsBtnDnClick(Sender: TObject); + procedure PackNoteDblClick(Sender: TObject); + procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure QtyMXKeyPress(Sender: TObject; var Key: Char); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure OurCoNameDblClick(Sender: TObject); + procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject); + procedure Tv1Column12PropertiesEditValueChanged(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure FormCreate(Sender: TObject); + procedure StkPositionPropertiesButtonClick(Sender: TObject); + procedure CustNamePropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure CustNameMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure CustNamePropertiesCloseUp(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + private + FSCXDH: string; + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + function getTMMNo(fconNo: string): string; + procedure InitImage1(); + procedure InitImage2(); + procedure LookImage(FileName: string); + procedure InitMXGrid(MTMSId: string); + procedure AddLine(); + { Private declarations } + public + PState, CopyInt, PriceFlag: Integer; + FTMMID, FTMMNo, MTMSId: string; + FXS: Integer; + btnFlag: Integer; + canshu1, canshu4: string; + fFlileFlag: string; + fordtype: string; + FName, FColor, FColorNo: string; + FTIMID: string; + FIncludeTax: Double; + { Public declarations } + end; + +var + frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload, + U_ProgressUpdate, U_ClothInfoSel, U_ComContactSel, U_TradeMarketList, + U_LabelPrint, U_TradeMarketQtyInPut; + + +{$R *.dfm} + +procedure TfrmTradeMarketInPut_XY.AddLine(); +var + i: Integer; + maxno: string; +begin + + i := cds_1.RecordCount; + i := i + 1; + + if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + with cds_1 do + begin + Append; + FieldByName('SerialNo').Value := IntToStr(i); + FieldByName('TMSId').Value := Trim(maxno); + FieldByName('TMSPiece').Value := 0; + FieldByName('TMSQty').Value := 0; + Post; + end; +end; + +procedure TfrmTradeMarketInPut_XY.InitImage1(); +begin + +end; + +procedure TfrmTradeMarketInPut_XY.InitImage2(); +begin + +end; + +function TfrmTradeMarketInPut_XY.getTMMNo(fconNo: string): string; +var + str1: string; + i: integer; +begin + str1 := trim(fconNo) + '01'; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select TMMID from Trade_Plan_Main where TMMNo=' + quotedstr(trim(str1))); + open; + end; + if not ADOTemp.IsEmpty then + begin + for i := 1 to 99 do + begin + str1 := trim(fconNo) + rightstr(inttostr(100 + i), 2); + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select TMMID from Trade_Plan_Main where TMMNo=' + quotedstr(trim(str1))); + open; + end; + if ADOCmd.IsEmpty then + break; + end; + end; + result := str1; +end; + +procedure TfrmTradeMarketInPut_XY.TBAddClick(Sender: TObject); +begin + { CDS_1.Close; + InitData(); + SClearData(ScrollBox1, 2); //пؼ + CustName.Text := ''; + if CDS_1.IsEmpty then + begin + AddLine(); + end; } + PState := 0; + FTMMId := ''; + FormShow(Self); +end; + +procedure TfrmTradeMarketInPut_XY.TBCloseClick(Sender: TObject); +begin + + Close; + +end; + +procedure TfrmTradeMarketInPut_XY.TBEditClick(Sender: TObject); +begin +// if TBSave.Visible = False then +// begin + PState := 1; + FTMMId := self.FTMMId; + + TBSave.Enabled := true; + ScrollBox1.Enabled := True; + ToolBar2.Enabled := true; + ToolButton2.Enabled := True; + ToolButton1.Enabled := True; + N2.Visible := true; +// FormShow(Self); +// end; + +end; + +procedure TfrmTradeMarketInPut_XY.InitData(); +var + FDate: TDateTime; +begin + FDate := SGetServerDateTime(ADOTemp); + TMMDate.DateTime := FDate; + DlyDate.DateTime := FDate; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_Market_Main where TMMID=''' + Trim(FTMMID) + ''''); + Open; + end; + SCSHData(ADOTemp, ScrollBox1, 2); + SCSHData(ADOTemp, ScrollBox1, 5); + SCSHData(ADOTemp, ScrollBox1, 9); + SCSHData(ADOTemp, ScrollBox1, 7); + OurCoName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('OurCoNo').AsString); + CustName.Hint := Trim(ADOTemp.FieldByName('CustNo').AsString); + CustName.Text := Trim(ADOTemp.FieldByName('CustName').AsString); + + with ADO_1 do + begin + Close; + SQL.Clear; + sql.Add('select A.*,StkQty =(select sum(isnull(X.StkQty,0)) from Bs_Cloth_IO X where X.C_Code=A.C_Code and X.C_Color=A.C_Color) '); + sql.Add('from Trade_Market_Sub A '); + SQL.adD('where 1=1 '); + if PState = 1 then + begin + sql.Add(' and A.TMMID=''' + Trim(FTMMID) + ''''); + end; + if PState = 0 then + begin + sql.Add(' and 1<>1'); + end; +// ShowMessage(SQL.TEXT); + Open; + + end; + SCreateCDS(ADO_1, CDS_1); + SInitCDSData(ADO_1, CDS_1); + + if PState = 0 then + begin + TMMDate.DateTime := SGetServerDateTime(ADOTemp); + DlyDate.DateTime := TMMDate.DateTime; + TMMNo.Text := ''; + TMMNo.Enabled := True; + end + else + begin + end; + if CopyInt = 99 then + begin + PState := 0; + FTMMID := ''; + TMMNo.Text := ''; + TMMNo.Enabled := True; + + TMMDate.DateTime := FDate; + + with CDS_1 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('TMMID').Value := ''; + FieldByName('TMSId').Value := ''; + FieldByName('TMSPiece').Value := 0; + FieldByName('TMSQty').Value := 0; +// FieldByName('GangFee').Value := 0; +// FieldByName('Transfee').Value := 0; +// FieldByName('Otherfee').Value := 0; + Post; + Next; + end; + end; + + end; +end; + +procedure TfrmTradeMarketInPut_XY.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +end; + +procedure TfrmTradeMarketInPut_XY.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := CAFREE; +end; + +procedure TfrmTradeMarketInPut_XY.FormCreate(Sender: TObject); +begin + inherited; + OurCoName.Properties.LookupItems.Text := 'W0001'; + OurCoName.Text := ''; +end; + +procedure TfrmTradeMarketInPut_XY.FormShow(Sender: TObject); +var + i: Integer; +begin + inherited; + + with ADO_KH do + begin + close; + sql.Clear; + sql.Add(' select CoCode,CoAbbrName from BS_Company where CoType=''ͻ'' '); + + if Trim(canshu4) = '' then + sql.Add(' and Stores='''' '); + + Open; + + CustName.Properties.LookupItems.Clear; + while not Eof do + begin + CustName.Properties.LookupItems.Add(Trim(ADO_KH.fieldByName('CoAbbrName').AsString)); + Next; + end; + CustName.ItemIndex := -1; + + SCreateCDS(ADO_KH, CDS_KH); + SInitCDSData(ADO_KH, CDS_KH); + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_CloInfo_Hot '); + ExecSQL; + end; + readCxGrid(TRIM(SELF.Caption), Tv1, 'ָʾ'); + TMMNo.Text := ''; + fFlileFlag := UserDataFlag + 'HX'; + InitData(); + + if CDS_1.IsEmpty then + begin + AddLine(); +// AddLine(); +// AddLine(); +// AddLine(); +// AddLine(); + end; + + with ADO_PM do + begin + Close; + sql.Clear; + sql.Add(' SELECT distinct A.C_Code,A.C_Name,A.qtyunit,A.HotQty,StkQty = SUM(B.StkQty) '); + SQL.ADD(' FROM Bs_Cloth_Info A LEFT JOIN Bs_Cloth_Io B on A.C_Code=B.C_Code'); + sql.add(' where B.ioflag='''' '); + if Trim(canshu4) = '' then + sql.Add(' and isnull(STKNAME,'''')='''' '); + SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty'); + SQL.ADD('order by A.C_Code '); +// showmessage(SQL.text); + Open; + end; + with ADO_YS do + begin + Close; + sql.Clear; + sql.Add(' SELECT distinct A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID '); + sql.Add(' where 1=2 '); + Open; + end; + + with ADO_RCPM do + begin + Close; + sql.Clear; + sql.Add(' SELECT distinct C_GYSNAME FROM BS_Cloth_Info_GYSCP '); + Open; + end; + with ADO_DanWei do + begin + Close; + sql.Clear; + sql.Add(' SELECT distinct A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID '); + sql.Add(' where 2=1 '); + Open; + end; +// frmTradeMarketlist := TfrmTradeMarketlist.Create(Application); +end; + +function TfrmTradeMarketInPut_XY.SaveData(): Boolean; +var + maxno, Smaxno, maxTMMNo, MaxFNo, MQZ, MTMMNo: string; +begin + try + ADOCmd.Connection.BeginTrans; + +///////////////////// /////////////////////////// + + if Trim(FTMMID) = '' then + begin + if GetLSNo(ADOCmd, maxno, 'JM', 'Trade_Market_Main', 3, 1) = False then + raise Exception.Create('ȡʧ!'); + +// G50313001<-- G50313 001 +//(G+ 25ġ5(ÿһǰ 0-9ѭ)+0313()+001(,ᳬ999)) + + MQZ := 'G' + RightStr(Trim(FormatDateTime('yyMMdd', SGetServerDate(ADOTemp))), 5); + if GetLSNo(ADOCmd, MTMMNo, MQZ, 'Trade_Market_Main', 3, 0) = False then + raise Exception.Create('ȡʧ!'); + TMMNo.Text := MTMMNo; + + end + else + begin + maxno := Trim(FTMMID); + end; + + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Trade_Market_Main where TMMID=''' + Trim(FTMMID) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(FTMMID) = '' then + begin + Append; + FieldByName('FillId').Value := Trim(DCode); + FieldByName('Filler').Value := Trim(DName); + if btnFlag = 1 then // + FieldByName('status').Value := Trim('10'); + if btnFlag = 5 then //ύ + FieldByName('status').Value := Trim('1'); + end + else + begin + Edit; + FieldByName('EditId').Value := Trim(DCode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + + end; + RTSetsavedata(ADOCmd, 'Trade_Market_Main', ScrollBox1, 2); + FieldByName('TMMID').Value := Trim(maxno); + FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text); + FieldByName('CustNo').Value := Trim(CustName.Hint); + FieldByName('CustName').Value := Trim(CustName.Text); + FieldByName('Store').Value := Trim(canshu4); + Post; + end; + +///////////////////// /////////////////////////// +///////////////////// ӱ /////////////////////////// + with CDS_1 do + begin + First; + while not Eof do + begin + if Trim(CDS_1.fieldbyname('TMSId').AsString) = '' then + begin + if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then + raise Exception.Create('ȡˮʧ!'); + end + else + begin + Smaxno := Trim(CDS_1.fieldbyname('TMSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Trade_Market_Sub where TMMID=''' + Trim(maxno) + ''''); + sql.Add(' and TMSId=''' + Trim(Smaxno) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(CDS_1.fieldbyname('TMSId').AsString) = '' then + Append + else + Edit; + RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub', 0); + //RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_Market_Sub_Qty', 2); + //RTSetsavedata(ADOCmd, 'Trade_Market_Sub', ScrollBox1, 7); + FieldByName('TMMID').Value := Trim(maxno); + FieldByName('TMSId').Value := Trim(Smaxno); + Post; + end; + Next; + end; + end; +///////////////////// ӱ /////////////////////////// + + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_Market_Main where TMMNo=''' + Trim(TMMNo.Text) + ''''); + Open; + end; + if ADOCmd.RecordCount > 1 then + raise Exception.Create('ظ!'); + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select C_Code,C_Color,C_ColorNo,CF=count(TMSID) from Trade_Market_sub where TMMID=''' + Trim(maxno) + ''''); + sql.Add('group by C_Code,C_Color,C_ColorNo HAVING count(TMSID)>1 '); + Open; + end; + if not ADOCmd.IsEmpty then + raise Exception.Create('ɫظ!'); + + FTMMID := Trim(maxno); + ADOCmd.Connection.CommitTrans; + + TradeMarketProgressUpdateByTMMID(ADOCmd, FTMMID); + + with ADO_1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Market_Sub where TMMID=''' + Trim(FTMMID) + ''''); + Open; + end; + SCreateCDS(ADO_1, CDS_1); + SInitCDSData(ADO_1, CDS_1); + Result := True; //ӡ + if (btnFlag = 2) or (btnFlag = 4) then + begin + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + if canshu4 = '' then + FLMType := 'TradePlanPrintxy' + else + FLMType := 'TradePlanPrint'; + FFiltration1 := Trim(maxno); + if ShowModal = 1 then + begin + // Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + end; + if btnFlag = 3 then // + begin + PState := 0; + FTMMId := ''; + FormShow(Self); +// CDS_1.Close; +// InitData(); +// SClearData(ScrollBox1, 2); //пؼ +// CustName.Text := ''; +// if CDS_1.IsEmpty then +// begin +// AddLine(); +// end; + end; + except + Result := False; + ADOCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeMarketInPut_XY.TBSaveClick(Sender: TObject); +var + MAXNO1: string; +begin + + ToolBar1.SetFocus; + with cds_1 do + begin + while cds_1.Locate('C_Code', null, []) do + begin + cds_1.Delete + end; + end; + + if trim(CustName.Text) = '' then + begin + Application.MessageBox('ͻΪ!', 'ʾ', 0); + Exit; + end; + + if CDS_1.IsEmpty then + begin + Application.MessageBox('ϸΪ!', 'ʾ', 0); + Exit; + end; + + if CDS_1.Locate('TMSUnit', null, []) then + begin + Application.MessageBox('λΪ!', 'ʾ', 0); + Exit; + end; + + if CDS_1.Locate('TMSQty', null, []) then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + + if CDS_1.Locate('C_Color', null, []) then + begin + Application.MessageBox('ɫΪ!', 'ʾ', 0); + Exit; + end; + if CDS_1.Locate('OrderQty', null, []) then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + if CDS_1.Locate('OrderUnit', null, []) then + begin + Application.MessageBox('λΪ!', 'ʾ', 0); + Exit; + end; + if CDS_1.Locate('Price', null, []) then + begin + Application.MessageBox('۲Ϊ!', 'ʾ', 0); + Exit; + end; + if not CDS_KH.Locate('CoAbbrName', self.CustName.Text, []) then + begin + Application.MessageBox('ͻ!', 'ʾ', 0); + Exit; + end + else + begin + self.CustName.Properties.LookupItems.Text := Trim(CDS_KH.fieldbyname('CoCode').AsString); + end; + + if SaveData() then + begin + + Application.MessageBox('ɹ', 'ʾ', 0); + if btnFlag = 4 then //ӡ˳ + ModalResult := 1; + end; +end; + +procedure TfrmTradeMarketInPut_XY.ToolButton1Click(Sender: TObject); +begin + + AddLine(); +end; + +procedure TfrmTradeMarketInPut_XY.ToolButton2Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + if CDS_1.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾѡ', 'ʾ', 32 + 4) <> IDYES then + exit; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while Locate('SSel', True, []) do + begin + if Trim(CDS_1.fieldbyname('TMSId').AsString) <> '' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Trade_Market_Sub where TMSId=''' + Trim(CDS_1.fieldbyname('TMSId').AsString) + ''''); + sql.Add('delete Trade_Market_Sub_Qty where TMSId=''' + Trim(CDS_1.fieldbyname('TMSId').AsString) + ''''); + ExecSQL; + end; + end; + Delete; + end; + end; + CDS_1.EnableControls; + +end; + +procedure TfrmTradeMarketInPut_XY.ToolButton3Click(Sender: TObject); +begin + WriteCxGrid(TRIM(SELF.Caption), Tv1, 'ָʾ'); + +end; + +procedure TfrmTradeMarketInPut_XY.ToolButton4Click(Sender: TObject); +var + i: Integer; + maxno: string; +begin + inherited; + try + frmClothInfoSel := TfrmClothInfoSel.Create(Application); + with frmClothInfoSel do + begin + + if ShowModal = 1 then + begin + + + +// while CDS_1.locate('SSel', true, []) do + begin + + if self.CDS_1.locate('C_Code', trim(CDS_1.Fieldbyname('C_Code').AsString), []) then + begin + CDS_1.Edit; + CDS_1.fieldbyname('SSel').value := false; +// continue; + end; + + i := cds_1.RecordCount; + + with CDS_3 do + begin + + DisableControls; + First; + + while not eof do + begin + + if FieldByName('SSEL').AsBoolean then + begin + i := i + 1; + if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + with self.CDS_1 do + begin + append; + FieldByName('SSel').Value := false; + FieldByName('SerialNo').Value := IntToStr(i); + FieldByName('TMSId').Value := Trim(maxno); + FieldByName('TMSUnit').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('qtyunit').AsString); + Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString); + Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString); + Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString); + Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString); + Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString); + Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString); + +// Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString); +// Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString); +// Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString); + + Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_ColorNo').AsString); + Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Color').AsString); + Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Pattern').AsString); +// Fieldbyname('C_StyleNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_StyleNo').AsString); +// Fieldbyname('SerialNo').value := 999; + end; + end; + Next; + end; + EnableControls; + end; + +// with self.CDS_1 do +// begin +// append; +// FieldByName('SSel').Value := false; +// FieldByName('SerialNo').Value := IntToStr(i); +// FieldByName('TMSId').Value := Trim(maxno); +// FieldByName('TMSUnit').Value := 'M'; +// Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString); +// Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString); +// Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString); +// Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString); +// Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString); +// Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString); +// +// Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString); +// Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString); +// Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString); +// +// end; +// CDS_1.Edit; +// CDS_1.fieldbyname('SSel').value := false; + end; + end; + end; + finally + frmClothInfoSel.Free; + end; + +end; + +procedure TfrmTradeMarketInPut_XY.ToolButton5Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + OneKeyPost(Tv1, CDS_1); +end; + +procedure TfrmTradeMarketInPut_XY.edtGYBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; + i: integer; +begin +// fsj := Trim(TBtnEditC(Sender).Hint); +// FWZ := Pos('/', fsj); +// i := 0; +// try +// frmZDYHelpSel := TfrmZDYHelpSel.Create(Application); +// with frmZDYHelpSel do +// begin +// flag := Copy(fsj, 1, FWZ - 1); +// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); +// if ShowModal = 1 then +// begin +// TBtnEditC(Sender).text := ''; +// with ClientDataSet1 do +// begin +// First; +// while not Eof do +// begin +// if FieldByName('SSel').AsBoolean = True then +// begin +// i := i + 1; +// if TBtnEditC(Sender).text = '' then +// TBtnEditC(Sender).text := FieldByName('ZDYName').AsString +// else +// TBtnEditC(Sender).text := TBtnEditC(Sender).text + ',' + FieldByName('ZDYName').AsString; //inttostr(i)+'.'+ +// end; +// Next; +// end; +// end; +// end; +// end; +// finally +// frmZDYHelpSel.Free; +// end; +end; + +procedure TfrmTradeMarketInPut_XY.TechnicsBtnDnClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Text := ''; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; +end; + +procedure TfrmTradeMarketInPut_XY.TechnicsBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxTextEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmTradeMarketInPut_XY.CustNameMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if not ADO_YS.IsEmpty then + begin + if ADO_YS.FieldByName('C_Code').AsString <> CDS_1.FieldByName('C_Code').AsString then + begin + with ADO_YS do + begin + Close; + sql.Clear; + sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID '); + sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString)); + SQL.ADD(' order by B.C_ColorNo'); + //ShowMessage(sql.text); + Open; + end; + end; + end + else + begin + with ADO_YS do + begin + Close; + sql.Clear; + sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID '); + sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString)); + SQL.ADD(' order by B.C_ColorNo'); + Open; + end; + end; +end; + +procedure TfrmTradeMarketInPut_XY.CustNamePropertiesChange(Sender: TObject); +begin + inherited; + if CDS_KH.Locate('CoAbbrName', Trim(self.CustName.Text), []) then + begin + self.CustName.Hint := Trim(CDS_KH.fieldbyname('CoCode').AsString); + end; +end; + +procedure TfrmTradeMarketInPut_XY.CustNamePropertiesCloseUp(Sender: TObject); +begin + inherited; + with ADOtemp do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add(',BankName=(select top 1 BankName from Bs_Company_Bank X where X.CoID=A.CoID ) '); + sql.Add(',ContactsId=(select top 1 UserID from SY_User X where X.UserName=B.Contacts ) '); + sql.Add('from BS_Company A '); + sql.Add('left join BS_Company_contact B ON A.COID=B.COID and B.IsDefault=1 '); + sql.Add('where 1=1 '); + sql.Add(' and A.CoType=''' + Trim('ͻ') + ''''); +// if Trim(FAuthority) = 'ҵ' then +// begin +// sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))'); +// end; + if canshu4 = '' then + sql.Add(' and A.Stores=''' + Trim('') + ''''); + sql.Add(' and A.CoAbbrName=''' + Trim(CustName.Text) + ''''); + Open; + end; + self.ShippingAddress.Text := Trim(adotemp.fieldbyname('mxaddress').AsString); + self.CONTACT.Text := Trim(adotemp.fieldbyname('Telephone').AsString); + +end; + +procedure TfrmTradeMarketInPut_XY.cxDBImage1DblClick(Sender: TObject); +begin + if TcxDBImage(Sender).Picture.Height = 0 then + exit; + LookImage(ADO_I1.fieldbyname(TcxDBImage(Sender).Hint).asstring); +end; + +procedure TfrmTradeMarketInPut_XY.LookImage(FileName: string); +var + sFieldName: string; +begin + + sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴'; + + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName), nil); + + sFieldName := sFieldName + '\' + trim(FileName); + + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + try + IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false); + except + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + if IdFTP1.Connected then + IdFTP1.Quit; + ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); +end; + +procedure TfrmTradeMarketInPut_XY.N1Click(Sender: TObject); +begin + btnFlag := 1; + TBSaveClick(Sender); +end; + +procedure TfrmTradeMarketInPut_XY.N2Click(Sender: TObject); +begin + btnFlag := 2; + TBSaveClick(Sender); +end; + +procedure TfrmTradeMarketInPut_XY.N3Click(Sender: TObject); +begin + btnFlag := 3; + TBSaveClick(Sender); +end; + +procedure TfrmTradeMarketInPut_XY.N4Click(Sender: TObject); +begin + btnFlag := 4; + TBSaveClick(Sender); +end; + +procedure TfrmTradeMarketInPut_XY.N5Click(Sender: TObject); +begin + btnFlag := 5; + TBSaveClick(Sender); +end; + +procedure TfrmTradeMarketInPut_XY.OurCoNameDblClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Text := ''; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; +end; + +procedure TfrmTradeMarketInPut_XY.OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '˾'; + if ShowModal = 1 then + begin + self.OurCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTradeMarketInPut_XY.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + mvalues: string; +begin + mvalues := tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName; + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'OrderUnit'; + flagname := 'λ'; + if ShowModal = 1 then + begin + Self.CDS_1.Edit; + Self.CDS_1.FieldByName(mvalues).Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTradeMarketInPut_XY.v1OrderUnitPropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName, YValue: string; + FDDQty, FCPCDXS, FQty, FDKCQty: Double; +begin + mvalue := TcxComboBox(Sender).EditingText; //仯λ + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_1 do + begin + + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + YValue := FieldByName('DDQtyUnit').AsString; //ԭλ=λ + FDDQty := FieldByName('DDQty').AsFloat; // + FCPCDXS := FieldByName('CPCDXS').AsFloat; + FDKCQty := FieldByName('DKCQty').AsFloat; + FQty := FieldByName('PRTOrderQty').AsFloat; + end; + if mvalue = 'Kg' then + begin + if YValue = 'Y' then + begin + FQty := FDDQty * 0.9144 / FCPCDXS; + end; + if YValue = 'M' then + begin + FQty := FDDQty / FCPCDXS; + end; + if YValue = 'Kg' then + begin + FQty := FDDQty; + end; + end; + + if mvalue = 'M' then + begin + if YValue = 'Y' then + begin + FQty := FDDQty * 0.9144; + end; + if YValue = 'Kg' then + begin + FQty := FDDQty * FCPCDXS; + end; + if YValue = 'M' then + begin + FQty := FDDQty; + end; + end; + if mvalue = 'Y' then + begin + if YValue = 'M' then + begin + FQty := FDDQty / 0.9144; + end; + if YValue = 'Kg' then + begin + FQty := FDDQty * FCPCDXS / 0.9144; + end; + if YValue = 'Y' then + begin + FQty := FDDQty; + end; + end; + + with CDS_1 do + begin + Edit; + FieldByName('PRTOrderQty').Value := FQty - FDKCQty; + Post; + end; + + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmTradeMarketInPut_XY.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PriceUnit'; + flagname := '۸λ'; + if Trim(DParameters1) <> 'Ȩ' then + begin + TBAdd.Visible := False; + TBEdit.Visible := False; + TBDel.Visible := False; + end; + + if ShowModal = 1 then + begin + Self.CDS_1.Edit; + Self.CDS_1.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTradeMarketInPut_XY.ScrollBox1Click(Sender: TObject); +begin + TMMDate.SetFocus; +end; + +procedure TfrmTradeMarketInPut_XY.ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + try + frmComContactSel := TfrmComContactSel.Create(Application); + with frmComContactSel do + begin + FCoCode := Trim(self.CustName.Hint); + if ShowModal = 1 then + begin + self.ShippingAddress.Text := Trim(frmComContactSel.CDS_1.fieldbyname('mxaddress').AsString); + self.CONTACT.Text := Trim(frmComContactSel.CDS_1.fieldbyname('PhoneNumber').AsString); + end; + end; + finally + frmComContactSel.Free; + end; +end; + +procedure TfrmTradeMarketInPut_XY.StkPositionPropertiesButtonClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + FStores := Trim(canshu4); + if ShowModal = 1 then + begin + self.CustName.Hint := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + self.ShippingAddress.Text := Trim(frmCompanySel.CDS_1.fieldbyname('mxaddress').AsString); + self.CONTACT.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Telephone').AsString); + + end; + end; + + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTradeMarketInPut_XY.PackNoteDblClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; + i: integer; +begin + fsj := Trim(TMemo(Sender).Hint); + FWZ := Pos('/', fsj); + i := 0; + try + frmZDYHelpSel := TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TMemo(Sender).Lines.Clear; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean = True then + begin + i := i + 1; + TMemo(Sender).Lines.Add(FieldByName('ZDYName').AsString) //inttostr(i)+'.'+ + end; + Next; + end; + end; + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmTradeMarketInPut_XY.QtyMXKeyPress(Sender: TObject; var Key: Char); +var + MaxNo: string; +begin + if Key = #13 then + begin + if Label38.Caption = '' then + begin + Application.MessageBox('ѡ', 'ʾ', 0); + Exit; + end; + if StrTofloatDef(QtyMX.Text, 0) = 0 then + Exit; + if GetLSNo(ADOTemp, MaxNo, 'MX', 'Trade_Market_Sub_Qty', 4, 1) = False then + begin + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + try + ADOCmd.Connection.BeginTrans; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('insert into Trade_Market_Sub_Qty (TMSQID,TMSId,TMMID,Qty)'); + sql.Add('values(' + quotedstr(Trim(MaxNo))); + sql.Add(',' + quotedstr(Trim(MTMSId))); + sql.Add(',' + quotedstr(Trim(FTMMID))); + sql.Add(',' + QtyMX.Text); + sql.Add(')'); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + + with CDS_MX do + begin + Append; + FieldByName('TMSQID').Value := MaxNo; + FieldByName('TMSId').Value := MTMSId; + FieldByName('TMMId').Value := FTMMId; + FieldByName('Qty').Value := QtyMX.Text; + post; + end; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!', 'ʾ', 0); + end; + QtyMX.Text := ''; + TvMX.Controller.EditingController.ShowEdit(); + end; + with cds_1 do + begin + edit; + if CDS_MX.IsEmpty then + begin + Fieldbyname('TMSPiece').Value := 0; + Fieldbyname('TMSQty').Value := 0; + end + else + begin + Fieldbyname('TMSPiece').Value := TvMX.DataController.Summary.FooterSummaryValues[1]; + Fieldbyname('TMSQty').Value := TvMX.DataController.Summary.FooterSummaryValues[0]; + end; + + post; + end; +end; + +procedure TfrmTradeMarketInPut_XY.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +var + AColumn: TcxGridColumn; +begin + // ȡ˫ + AColumn := ACellViewInfo.Item as TcxGridColumn; + + // Ƿ˫ Qty Уͨжϣ + if AColumn.Name = 'Tv1Column19' then + begin + if not CDS_1.IsEmpty then + begin + // ȡǰеID + Self.MTMSId := CDS_1.FieldByName('TMSId').AsString; + Self.FTMMID := CDS_1.FieldByName('TMMId').AsString; + + try + frmTradeMarketQtyInPut := TfrmTradeMarketQtyInPut.Create(Application); + with frmTradeMarketQtyInPut do + begin + PMTMSId := Self.MTMSId; + PFTMMID := Self.FTMMID; + canshu4 := self.canshu4; + if ShowModal = 1 then + begin + Self.InitMXGrid(Self.MTMSID); + + end; + end; + finally + FreeAndNil(frmTradeMarketQtyInPut); + end; + + AHandled := True; + end; + end; +end; + +procedure TfrmTradeMarketInPut_XY.Tv1Column12PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + with ADOTemp do + begin + close; + sql.Clear; + sql.Add(' select isnull(IncludeTax,0)IncludeTax from Bs_Company a '); + sql.Add('where CoCode=' + QuotedStr(CustName.hint)); + open; + end; + + FIncludeTax := ADOTemp.Fieldbyname('IncludeTax').asfloat; + + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + ADO_YS.Locate('C_ColorNo', mvalue, []); + Edit; + FieldByName('C_Color').Value := ADO_YS.FieldByName('C_Color').Value; + FieldByName('price').Value := ADO_YS.FieldByName('price').Value * (1 + (FIncludeTax / 100)); + FieldByName('referencePrice').Value := ADO_YS.FieldByName('Price').Value; + Post; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add(' SELECT top 1 isnull(Price,0) as Lastprice FROM Trade_Market_Main A inner join Trade_Market_Sub B on A.TMMId=B.TMMId '); + sql.Add('where A.CustName=' + QuotedStr(CustName.Text)); + sql.Add('and B.C_ColorNo=' + QuotedStr(CDS_1.FieldByName('C_ColorNo').AsString)); + sql.add('order by A.filltime desc'); + open; + end; + if ADOTemp.IsEmpty = false then + begin + with Self.CDS_1 do + begin + edit; + Fieldbyname('Lastprice').AsString := trim(ADOTemp.Fieldbyname('Lastprice').AsString); + Post; + end; + end; +end; + +procedure TfrmTradeMarketInPut_XY.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmClothInfoSel := TfrmClothInfoSel.Create(Application); + with frmClothInfoSel do + begin +// xzflag := 0; +// kcflag := 1; + if ShowModal = 1 then + begin + with Self.CDS_1 do + begin + edit; + Fieldbyname('C_Code').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString); + Fieldbyname('C_Name').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString); + Fieldbyname('C_Spec').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString); + Fieldbyname('C_Composition').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString); + Fieldbyname('C_Width').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString); + Fieldbyname('C_GramWeight').AsString := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString); + + Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString); + Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString); + Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString); + post; + end; + + end; + end; + finally + frmClothInfoSel.Free; + end; + +end; + +procedure TfrmTradeMarketInPut_XY.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + try + frmPictureUpload := TfrmPictureUpload.create(self); + with frmPictureUpload do + begin + fFlileFlag := self.fFlileFlag; + FDataId := Trim(self.CDS_1.fieldbyname('AttName').AsString); + FPictureName := Trim(self.CDS_1.fieldbyname('AttName').AsString); + FWidth := 450; + FHeight := 600; + FTFType := 'HX'; + if showmodal = 1 then + begin + with self.CDS_1 do + begin + Edit; + Fieldbyname('AttName').Value := frmPictureUpload.FPictureName; + Post; + end; + end; + end; + finally + frmPictureUpload.free; + end; + +end; + +procedure TfrmTradeMarketInPut_XY.Tv1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + + with CDS_1 do + begin + + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + ADO_PM.Locate('C_Name', mvalue, []); + Edit; + FieldByName('C_Code').Value := ADO_PM.FieldByName('C_Code').Value; + FieldByName('TMSUnit').Value := ADO_PM.FieldByName('qtyunit').Value; + + FieldByName('StkQty').Value := ADO_PM.FieldByName('StkQty').Value; + + Post; + end; + +// with ADOTemp do +// begin +// close; +// sql.Clear; +// sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid '); +// sql.Add('where c_name=' + QuotedStr(CDS_1.FieldByName('C_name').AsString)); +// sql.Add('and factoryname=' + QuotedStr(CustName.Text)); +// +// open; +// end; +// if ADOTemp.IsEmpty = false then +// begin +// with Self.CDS_1 do +// begin +// edit; +// Fieldbyname('C_GYSNAME').AsString := trim(ADOTemp.Fieldbyname('C_GYSNAME').AsString); +// Post; +// end; +// +// end; + +end; + +procedure TfrmTradeMarketInPut_XY.Tv1DblClick(Sender: TObject); +var + MTMSQID: string; +begin + +// try +// frmTradeMarketQtyInPut := TfrmTradeMarketQtyInPut.Create(Application); +// with frmTradeMarketQtyInPut do +// begin +// MTMSId := self.MTMSId; +// FTMMID := Self.FTMMID; +// if ShowModal = 1 then +// begin +//// Self.InitMXGrid(Self.MTMSQID); +// end; +// end; +// finally +// frmTradeMarketQtyInPut.Free; +// end; + +end; + +procedure TfrmTradeMarketInPut_XY.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + inherited; + Label38.Caption := 'ţ' + Trim(cds_1.fieldbyname('SerialNo').AsString); + MTMSId := Trim(cds_1.fieldbyname('TMSId').AsString); + InitMXGrid(MTMSId); +end; + +procedure TfrmTradeMarketInPut_XY.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + + if not ADO_YS.IsEmpty then + begin + if ADO_YS.FieldByName('C_Code').AsString <> CDS_1.FieldByName('C_Code').AsString then + begin + with ADO_YS do + begin + Close; + sql.Clear; + sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID '); + + sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString)); + SQL.ADD(' order by B.C_ColorNo'); + Open; + end; + end; + end + else + begin + with ADO_YS do + begin + Close; + sql.Clear; + sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID '); + + sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString)); + SQL.ADD(' order by B.C_ColorNo'); + Open; + end; + end; + + if not ADO_DanWei.IsEmpty then + begin + if ADO_DanWei.FieldByName('C_Code').AsString <> CDS_1.FieldByName('C_Code').AsString then + begin + with ADO_DanWei do + begin + Close; + sql.Clear; + sql.Add(' EXEC P_Cloth_GetCICUnit @C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString)); + Open; + end; + end; + end + else + begin + with ADO_DanWei do + begin + Close; + sql.Clear; + sql.Add(' EXEC P_Cloth_GetCICUnit @C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString)); + Open; + end; + end; + + +// Bs_Cloth_Info_Coefficient +end; + +procedure TfrmTradeMarketInPut_XY.TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + inherited; + if ToolBar2.Enabled = False then + Exit; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('delete Trade_Market_Sub_Qty where TMSQID=' + quotedstr(Trim(CDS_MX.FieldByName('TMSQID').AsString))); + ExecSQL; + end; + +// with ADOCmd do +// begin +// close; +// sql.Clear; +// sql.Add(' exec P_KCSD_AllNew '); +// sql.Add(' @Operation=''ϸɾ'' '); +// sql.Add(' ,@TMMNo=' + quotedstr(trim(TMMNo.Text))); +// ExecSQL; +// end; + CDS_MX.Delete; + with cds_1 do + begin + edit; + if CDS_MX.IsEmpty then + begin + Fieldbyname('TMSPiece').Value := 0; + Fieldbyname('TMSQty').Value := 0; + end + else + begin + Fieldbyname('TMSPiece').Value := TvMX.DataController.Summary.FooterSummaryValues[1]; + Fieldbyname('TMSQty').Value := TvMX.DataController.Summary.FooterSummaryValues[0]; + end; + + post; + end; +end; + +procedure TfrmTradeMarketInPut_XY.InitMXGrid(MTMSId: string); +begin + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from Trade_Market_Sub_Qty A '); + sql.Add('where TMSId=''' + Trim(MTMSId) + ''''); + Open; + end; + SCreateCDS(ADOTemp, CDS_MX); + SInitCDSData(ADOTemp, CDS_MX); +end; + +procedure TfrmTradeMarketInPut_XY.v1Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + FieldByName('MGTMMID').Value := ''; + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmTradeMarketInPut_XY.HYTTBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxTextEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTradeMarketInPut_XY.KYTTBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxTextEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if Trim(flag) = 'OrdDefStr2' then + begin + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + fnote := True; + end; + if ShowModal = 1 then + begin + TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. + diff --git a/T05贸易门市管理/U_TradeMarketList.dfm b/T05贸易门市管理/U_TradeMarketList.dfm index dea0569..8f60edd 100644 --- a/T05贸易门市管理/U_TradeMarketList.dfm +++ b/T05贸易门市管理/U_TradeMarketList.dfm @@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 131 + ButtonWidth = 107 Caption = 'ToolBar1' Images = DataLink_TradeMarket.cxImageList_bar List = True @@ -36,7 +36,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBRafreshClick end object TBAdd: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #26032#22686 @@ -44,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBAddClick end object btnCopy: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #22797#21046 @@ -52,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = btnCopyClick end object TBEdit: TToolButton - Left = 213 + Left = 189 Top = 0 AutoSize = True Caption = #20462#25913 @@ -60,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBEditClick end object TBDel: TToolButton - Left = 284 + Left = 252 Top = 0 AutoSize = True Caption = #21024#38500 @@ -68,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBDelClick end object TBPrint: TToolButton - Left = 355 + Left = 315 Top = 0 AutoSize = True Caption = #25171#21360 @@ -76,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBPrintClick end object TBCK: TToolButton - Left = 426 + Left = 378 Top = 0 AutoSize = True Caption = #26597#30475 @@ -84,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBCKClick end object ToolButton4: TToolButton - Left = 497 + Left = 441 Top = 0 AutoSize = True Caption = #38468#20214 @@ -92,7 +92,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = ToolButton4Click end object TBTJ: TToolButton - Left = 568 + Left = 504 Top = 0 AutoSize = True Caption = #37197#36135#23436#25104 @@ -100,7 +100,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBTJClick end object TBTJCX: TToolButton - Left = 671 + Left = 591 Top = 0 AutoSize = True Caption = #25764#38144#37197#36135#23436#25104 @@ -108,7 +108,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBTJCXClick end object TWC: TToolButton - Left = 806 + Left = 702 Top = 0 AutoSize = True Caption = #24050#35013#36710 @@ -116,7 +116,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TWCClick end object TNowc: TToolButton - Left = 893 + Left = 777 Top = 0 AutoSize = True Caption = #25764#38144#35013#36710 @@ -124,7 +124,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TNowcClick end object ToolButton2: TToolButton - Left = 996 + Left = 864 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 1099 + Left = 951 Top = 0 AutoSize = True Caption = #23548#20986 @@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 1170 + Left = 1014 Top = 0 AutoSize = True Caption = #20851#38381 @@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBCloseClick end object TBZF: TToolButton - Left = 1241 + Left = 1077 Top = 0 AutoSize = True Caption = #20316#24223 @@ -156,7 +156,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnClick = TBZFClick end object TBNOZF: TToolButton - Left = 1312 + Left = 1140 Top = 0 AutoSize = True Caption = #25764#38144#20316#24223 @@ -264,8 +264,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList Align = alClient PopupMenu = PM_1 TabOrder = 3 - ExplicitLeft = 8 - ExplicitTop = 158 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/T05贸易门市管理/U_TradeMarketList_XY.dfm b/T05贸易门市管理/U_TradeMarketList_XY.dfm new file mode 100644 index 0000000..59240ef --- /dev/null +++ b/T05贸易门市管理/U_TradeMarketList_XY.dfm @@ -0,0 +1,683 @@ +inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY + Left = 165 + Top = 13 + Caption = #26032#20313#22823#36135#21333 + ClientHeight = 594 + ClientWidth = 1924 + Color = clBtnFace + Font.Height = -16 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1940 + ExplicitHeight = 633 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1924 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Images = DataLink_TradeMarket.cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 4 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object btnCopy: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = btnCopyClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object TBPrint: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object TBCK: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 8 + OnClick = TBCKClick + end + object ToolButton4: TToolButton + Left = 441 + Top = 0 + AutoSize = True + Caption = #38468#20214 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object TBTJ: TToolButton + Left = 504 + Top = 0 + AutoSize = True + Caption = #37197#36135#23436#25104 + ImageIndex = 12 + Visible = False + OnClick = TBTJClick + end + object TBTJCX: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25764#38144#37197#36135#23436#25104 + ImageIndex = 11 + Visible = False + OnClick = TBTJCXClick + end + object TWC: TToolButton + Left = 702 + Top = 0 + AutoSize = True + Caption = #24050#23436#25104 + ImageIndex = 12 + OnClick = TWCClick + end + object TNowc: TToolButton + Left = 777 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 11 + OnClick = TNowcClick + end + object ToolButton2: TToolButton + Left = 864 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 951 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 28 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 1014 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + object TBZF: TToolButton + Left = 1077 + Top = 0 + AutoSize = True + Caption = #20316#24223 + ImageIndex = 31 + OnClick = TBZFClick + end + object TBNOZF: TToolButton + Left = 1140 + Top = 0 + AutoSize = True + Caption = #25764#38144#20316#24223 + ImageIndex = 11 + OnClick = TBNOZFClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1924 + Height = 91 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + ParentBackground = False + TabOrder = 5 + object Label3: TLabel + Left = 24 + Top = 51 + Width = 64 + Height = 21 + Caption = #21333#25454#32534#21495 + end + object Label1: TLabel + Left = 408 + Top = 51 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object Label2: TLabel + Left = 216 + Top = 51 + Width = 64 + Height = 21 + Caption = #33394#24067#21517#31216 + end + object Label4: TLabel + Left = 568 + Top = 51 + Width = 48 + Height = 21 + Caption = #21512#21516#21495 + end + object TMMNo: TcxTextEdit + Tag = 2 + Left = 92 + Top = 47 + TabOrder = 0 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + object CustName: TcxTextEdit + Tag = 2 + Left = 444 + Top = 47 + TabOrder = 1 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 284 + Top = 47 + TabOrder = 2 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 620 + Top = 47 + TabOrder = 3 + OnKeyPress = TMMNoKeyPress + Width = 120 + end + inline frmFrameDateSel1: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1920 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 4 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1920 + ExplicitHeight = 37 + inherited lbl2: TLabel + Width = 16 + Height = 21 + ExplicitWidth = 16 + ExplicitHeight = 21 + end + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 152 + Width = 1924 + Height = 442 + Align = alClient + PopupMenu = PM_1 + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.CellHints = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object v1Column16: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column7: TcxGridDBColumn + Caption = #21333#25454#32534#21495 + DataBinding.FieldName = 'TMMNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'TMMDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column2: TcxGridDBColumn + Caption = #32463#33829#21333#20301 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column6: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'FILLER' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'ShippingAddress' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column5: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'CONTACT' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column9: TcxGridDBColumn + Caption = #33394#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column12: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object Tv1Column11: TcxGridDBColumn + Caption = #25253#21333#25968#37327 + DataBinding.FieldName = 'OrderQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 104 + end + object Tv1Column22: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'OutQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv1Column23: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column24: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column13: TcxGridDBColumn + Caption = #25253#21333#21333#20301 + DataBinding.FieldName = 'OrderUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + object Tv1Column19: TcxGridDBColumn + Caption = #27424#21333#25968 + DataBinding.FieldName = 'OrderOweQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv1Column14: TcxGridDBColumn + Caption = #24211#23384#38656#27714 + DataBinding.FieldName = 'TMSQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object Tv1Column18: TcxGridDBColumn + Caption = #22791#36135#25968#37327 + DataBinding.FieldName = 'StkQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 111 + end + object Tv1Column15: TcxGridDBColumn + Caption = #22791#36135#21333#20301 + DataBinding.FieldName = 'TMSUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object Tv1Column21: TcxGridDBColumn + Caption = #22791#36135#29366#24577 + DataBinding.FieldName = 'StkStatus' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object Tv1Column10: TcxGridDBColumn + Caption = #27004#23618 + DataBinding.FieldName = 'StkPosition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object Tv1Column16: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv1Column20: TcxGridDBColumn + Caption = #32039#24613#31243#24230 + DataBinding.FieldName = 'Urgent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv1Column25: TcxGridDBColumn + Caption = #35746#21333#31867#22411 + DataBinding.FieldName = 'OrdType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 121 + Width = 1924 + Height = 31 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + ' '#26410#23436#25104' ' + ' '#24050#23436#25104' ' + ' '#20840#37096' ') + OnChange = cxTabControl1Change + ExplicitTop = 115 + ClientRectBottom = 31 + ClientRectRight = 1924 + ClientRectTop = 28 + end + inherited loadProcess: TPanel + Left = 720 + Top = 354 + ExplicitLeft = 720 + ExplicitTop = 354 + end + inherited cxProgressBar2: TcxProgressBar + Left = 720 + Top = 296 + ExplicitLeft = 720 + ExplicitTop = 296 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 255 + Top = 314 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 157 + Top = 256 + end + object cxgrdpmn1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 660 + Top = 428 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 568 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 420 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 320 + Top = 224 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 812 + Top = 440 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 724 + Top = 432 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 312 + Top = 600 + end + object DataSource2: TDataSource + DataSet = ORDER_SUB + Left = 408 + Top = 604 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + EnableBCD = False + Parameters = <> + Left = 316 + Top = 283 + end + object DSImage: TDataSource + DataSet = ADOQueryImage + Left = 416 + Top = 288 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 92 + Top = 258 + end + object ORDER_SUB: TClientDataSet + Aggregates = <> + Params = <> + Left = 212 + Top = 608 + end + object PopupMenu2: TPopupMenu + Left = 532 + Top = 636 + object N3: TMenuItem + Caption = #20840#36873 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #20840#24323 + OnClick = N4Click + end + object N2: TMenuItem + Caption = #22797#21046 + end + end + object cxgrdpmn2: TcxGridPopupMenu + PopupMenus = <> + Left = 660 + Top = 636 + end + object CDS_WXTS: TClientDataSet + Aggregates = <> + Params = <> + Left = 412 + Top = 424 + end + object PM_1: TPopupMenu + Left = 988 + Top = 356 + object N1: TMenuItem + Caption = #22797#21046 + OnClick = N1Click + end + object N5: TMenuItem + Caption = #20840#36873 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20840#24323 + OnClick = N6Click + end + end + object GPM_3: TcxGridPopupMenu + PopupMenus = <> + Left = 860 + Top = 228 + end +end diff --git a/T05贸易门市管理/U_TradeMarketList_XY.pas b/T05贸易门市管理/U_TradeMarketList_XY.pas new file mode 100644 index 0000000..51d17eb --- /dev/null +++ b/T05贸易门市管理/U_TradeMarketList_XY.pas @@ -0,0 +1,1158 @@ +unit U_TradeMarketList_XY; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, + RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, + cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, + IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, + dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, + dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, + dxSkinsDefaultPainters; + +type + TfrmTradeMarketList_XY = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxgrdpmn1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + TMMNo: TcxTextEdit; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + Order_Main: TClientDataSet; + TBCK: TToolButton; + btnCopy: TToolButton; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + TWC: TToolButton; + TNowc: TToolButton; + ADOQueryImage: TADOQuery; + DSImage: TDataSource; + IdFTP1: TIdFTP; + TBTJ: TToolButton; + TBTJCX: TToolButton; + v1Column16: TcxGridDBColumn; + ORDER_SUB: TClientDataSet; + PopupMenu2: TPopupMenu; + N3: TMenuItem; + N4: TMenuItem; + Label1: TLabel; + CustName: TcxTextEdit; + Tv1Column6: TcxGridDBColumn; + cxgrdpmn2: TcxGridPopupMenu; + Tv1Column2: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Label2: TLabel; + C_Name: TcxTextEdit; + CDS_WXTS: TClientDataSet; + Label4: TLabel; + ConNo: TcxTextEdit; + ToolButton2: TToolButton; + PM_1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + GPM_3: TcxGridPopupMenu; + Tv1Column4: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + frmFrameDateSel1: TfrmFrameDateSel; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + ToolButton1: TToolButton; + Tv1Column11: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + N5: TMenuItem; + N6: TMenuItem; + Tv1Column22: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + Tv1Column24: TcxGridDBColumn; + TBZF: TToolButton; + TBNOZF: TToolButton; + Tv1Column25: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure OrderNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBTPClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure TBCKClick(Sender: TObject); + procedure btnCopyClick(Sender: TObject); + procedure TMMNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); +// procedure TchkClick(Sender: TObject); +// procedure TnochkClick(Sender: TObject); + procedure TWCClick(Sender: TObject); + procedure TNowcClick(Sender: TObject); + procedure TBTJClick(Sender: TObject); + procedure TBTJCXClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure ComboBox1Change(Sender: TObject); + procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton10Click(Sender: TObject); + procedure JGTypeChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure TBZFClick(Sender: TObject); + procedure TBNOZFClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure SetStatus(); + procedure InitImage(fwbid: string); + procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); + { Private declarations } + public + FFInt, FCloth: Integer; + canshu1, canshu2, canshu4: string; + fFlileFlag: string; + FNOTE: string; + FOrdType: string; + { Public declarations } + end; + +var + frmTradeMarketList_XY: TfrmTradeMarketList_XY; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload, + U_TradeMarketInPut_XY; + +{$R *.dfm} + +procedure TfrmTradeMarketList_XY.InitImage(fwbid: string); +begin + ADOQueryImage.close; + if fwbid = '' then + exit; + with ADOQueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where WBID=' + quotedstr(trim(fwbid))); + open; + end; +end; + +procedure TfrmTradeMarketList_XY.SetStatus(); +begin + btnCopy.Enabled := false; + tbadd.Enabled := false; + TBEdit.Enabled := False; + TBDel.Enabled := False; + TBTJ.Enabled := False; + TBTJCX.Enabled := False; +// tchk.Enabled := false; +// tnochk.Enabled := false; + TWC.Enabled := False; + TNowc.Enabled := False; + TBDel.Enabled := False; + + case cxTabControl1.TabIndex of + 0: + begin + tbadd.Enabled := True; + TBEdit.Enabled := True; + TBDel.Enabled := True; +// TBTJ.Enabled := True; + btnCopy.Enabled := True; + TWC.Enabled := True; + end; + 1: + begin + TNowc.Enabled := True; + end; + +// 2: +// begin +// TNowc.Enabled := True; +// btnCopy.Enabled := True; +// end; + end; + +end; + +procedure TfrmTradeMarketList_XY.JGTypeChange(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeMarketList_XY.FormDestroy(Sender: TObject); +begin + inherited; +// frmProductOrderList:=nil; +end; + +procedure TfrmTradeMarketList_XY.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTradeMarketList_XY.FormCreate(Sender: TObject); +begin + inherited; + cxgrid1.Align := alClient; + DQdate := SGetServerDate(ADOQueryTemp); + +end; + +procedure TfrmTradeMarketList_XY.TBCloseClick(Sender: TObject); +begin + + Close; + +end; + +procedure TfrmTradeMarketList_XY.InitGrid(); +var + SqlStr, FilterStr: string; +begin + FilterStr := SGetFilters(Panel1, 1, 2); + + SqlStr := ' exec P_Trade_Market_View '; + SqlStr := SqlStr + ' @BegDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))); + SqlStr := SqlStr + ' ,@EndDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))); + SqlStr := SqlStr + ' ,@StkPosition= ' + QuotedStr(Trim(canshu2)); + if canshu1 = '¼' then + SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName)); + + SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4)); + case cxTabControl1.TabIndex of // 1 δ 10 + 0: + begin + SqlStr := SqlStr + ' , @Status=''1'' '; //δ + end; + 1: + begin + SqlStr := SqlStr + ' , @Status=''10'' '; // + end; + + end; +// ShowMessage(SqlStr); + InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId'); +end; + +procedure TfrmTradeMarketList_XY.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); +begin +// with ADOQueryTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add('select distinct A.* from SY_User A inner join SY_Purview B on A.UserID=B.UserID where A.Valid=''Y'' '); +// SQL.Add('and isnull(A.wxid,'''')<>'''''); +// SQL.Add(' and exists(select 1 from SY_ModuleSub X where X.ModuleID=B.ModuleID and X.ModuleSubID=B.ModuleSubID and X.FormName=''ƻ'' )'); +//// showmessage(sql.text); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_WXTS); +// SInitCDSData(ADOQueryTemp, CDS_WXTS); +// +// if CDS_WXTS.IsEmpty then +// begin +// Application.MessageBox('ûδ΢,ύʧܣ', 'ʾϢ', 0); +// Exit; +// end; +// CDS_WXTS.First; +// while not CDS_WXTS.eof do +// begin +// with ADOQueryCmd do +// begin +// Close; +// SQL.Clear; +// SQL.Add('select * from WeixinMessage where 1<>1'); +// Open; +// Append; +// FieldByName('MessageType').Value := 'OrderToAudit'; +// FieldByName('MessageName').Value := 'ƻ'; +// FieldByName('Title').Value := 'µƻ'; +// FieldByName('URL').Value := 'subpages/plan/view?id=' + Trim(MDateId); +// FieldByName('OpenId').Value := Trim(CDS_WXTS.FieldByName('wxid').AsString); +// FieldByName('Status').Value := '0'; +// FieldByName('CreateDate').Value := FormatDateTime('yyyymmdd', SGetServerDateTime(ADOQueryTemp)); +// FieldByName('CreateTime').Value := FormatDateTime('HH:mm:ss', SGetServerDateTime(ADOQueryTemp)); +// FieldByName('BusinessId').Value := Trim(MDateId); +// FieldByName('KeyWord1').Value := Trim(KeyWord1); +// FieldByName('KeyWord2').Value := Trim(KeyWord2); +// FieldByName('KeyWord3').Value := Trim(KeyWord3); +// FieldByName('Remark').Value := 'ɲѯ飡'; +// Post; +// end; +// CDS_WXTS.Next; +// end; +// +// GetHTTP('http://aotang.rightsoft.top/api/message/send/OrderToAudit'); +end; + +procedure TfrmTradeMarketList_XY.InitForm(); +begin + ReadCxGrid('ָʾбFF1', Tv1, 'ָʾ'); + frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180; + frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); + + SetStatus(); + InitGrid(); +end; + +procedure TfrmTradeMarketList_XY.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + + try + frmTradeMarketInPut_XY := TfrmTradeMarketInPut_XY.Create(Application); + with frmTradeMarketInPut_XY do + begin + + PState := 1; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + FTMMNo := Trim(Self.Order_Main.fieldbyname('TMMNo').AsString); + canshu1 := self.canshu1; + canshu4 := self.canshu4; + frmTradeMarketInPut_XY.fordtype := self.fordtype; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut_XY.Free; + end; + +end; + +procedure TfrmTradeMarketList_XY.TBNOZFClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''1'' '); + sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ƻϳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeMarketList_XY.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + while Order_Main.Locate('SSel', true, []) do + begin + if Trim(Order_Main.fieldbyname('TMMId').AsString) <> '' then + begin + DelData() + end; + Order_Main.Delete; + end; +end; + +function TfrmTradeMarketList_XY.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + ''''); + sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + ''''); + + sql.Add('delete Trade_Market_Sub_Qty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + ''''); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ɾ'))); + sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.FieldByName('TMMNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmTradeMarketList_XY.TBPrintClick(Sender: TObject); +var + WSql: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + WSql := ''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + Trim(Order_Main.fieldbyname('TMSId').AsString); + end + else + begin + WSql := Trim(Order_Main.fieldbyname('TMSId').AsString); + end; + end; + Next; + end; + end; + Order_Main.Locate('SSel', True, []); + Order_Main.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + if canshu4 = '' then + FLMType := 'TradePlanPrintxy' + else + FLMType := 'TradePlanPrint'; + FFiltration1 := Trim(WSql); + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTradeMarketList_XY.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeMarketList_XY.TBAddClick(Sender: TObject); +begin + try + frmTradeMarketInPut_XY := TfrmTradeMarketInPut_XY.Create(Application); + with frmTradeMarketInPut_XY do + begin + PState := 0; + FTMMId := ''; + canshu1 := self.canshu1; + canshu4 := self.canshu4; + frmTradeMarketInPut_XY.fordtype := self.fordtype; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTradeMarketInPut_XY.Free; + end; +end; + +procedure TfrmTradeMarketList_XY.OrderNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); +end; + +procedure TfrmTradeMarketList_XY.FormShow(Sender: TObject); +begin + inherited; + canshu1 := trim(self.fParameters1); + canshu2 := trim(self.fParameters2); + canshu4 := trim(self.fParameters4); + fFlileFlag := UserDataFlag + 'HX'; + cxTabControl1.TabIndex := 0; + InitForm(); +end; + +procedure TfrmTradeMarketList_XY.TBTPClick(Sender: TObject); +var + FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string; +begin +end; + +procedure TfrmTradeMarketList_XY.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeMarketList_XY.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmTradeMarketList_XY.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id, id10: Integer; +begin + {try + if Tv1.GroupedItemCount=0 then + begin + Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; + Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; + if Trim(VarToStr(ARecord.Values[id]))='' then Exit; + if Id<0 then Exit; + if ARecord.Values[id10]='' then exit; + if (ARecord.Values[id]-DQdate)>=4 then Exit; + if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then + AStyle:=DataLink_.QHuangSe + else + if ARecord.Values[id]-DQdate<0 then + begin + AStyle:=DataLink_OrderManage.FenHongS; + end; + end else + begin + + end; + except + end; } +end; + +procedure TfrmTradeMarketList_XY.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; + Id10:=TV1.GetColumnByFieldName('SubStatus').Index; + if Id<0 then Exit; + if AViewInfo.GridRecord.Values[Id10]='' then Exit; + if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; + if ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then + ACanvas.Brush.Color:=clYellow + else + if (AViewInfo.GridRecord.Values[id])-(SGetServerDate(ADOQueryTemp)<0) then + begin + ACanvas.Brush.Color:=clRed; + end; + begin + ACanvas.Brush.Color:=clRed; + end else + if AViewInfo.GridRecord.Values[Id]='Purple' then + begin + ACanvas.Brush.Color:=clPurple; + end else + if AViewInfo.GridRecord.Values[Id]='Olive' then + begin + ACanvas.Brush.Color:=clOlive; + end else + if AViewInfo.GridRecord.Values[Id]='Teal' then + begin + ACanvas.Brush.Color:=clTeal; + end else + if AViewInfo.GridRecord.Values[Id]='Background' then + begin + ACanvas.Brush.Color:=clBackground; + end; } +end; + +procedure TfrmTradeMarketList_XY.TBCKClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmTradeMarketInPut_XY := TfrmTradeMarketInPut_XY.Create(Application); + with frmTradeMarketInPut_XY do + begin + PState := 1; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + ToolBar2.Visible := False; + TBSave.Visible := False; + ScrollBox1.Enabled := True; + N2.Visible := False; + frmTradeMarketInPut_XY.fordtype := self.fordtype; + TvMX.OnCellDblClick := nil; + Panel5.Visible := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut_XY.Free; + end; + +end; + +procedure TfrmTradeMarketList_XY.btnCopyClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmTradeMarketInPut_XY := TfrmTradeMarketInPut_XY.Create(Application); + with frmTradeMarketInPut_XY do + begin + PState := 1; + CopyInt := 99; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + canshu1 := self.canshu1; + canshu4 := self.canshu4; + frmTradeMarketInPut_XY.fordtype := self.fordtype; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut_XY.Free; + end; + +end; + +procedure TfrmTradeMarketList_XY.TMMNoKeyPress(Sender: TObject; var Key: Char); +begin + + if Key = #13 then + begin + initgrid(); + end; +end; + +procedure TfrmTradeMarketList_XY.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeMarketList_XY.Tv1DblClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmTradeMarketInPut_XY := TfrmTradeMarketInPut_XY.Create(Application); + with frmTradeMarketInPut_XY do + begin + PState := 1; + FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + ToolBar2.Enabled := False; + TBSave.Enabled := False; + ScrollBox1.Enabled := False; + N2.Visible := False; + frmTradeMarketInPut_XY.fordtype := self.fordtype; + TvMX.OnCellDblClick := nil; + Panel5.Enabled := False; + canshu4 := self.canshu4; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeMarketInPut_XY.Free; + end; + +end; + +procedure TfrmTradeMarketList_XY.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); + with frmAttachmentUpload do + begin + if Trim(canshu1) <> 'ѯ' then + FEditAuthority := True; + fkeyNO := Trim(Self.Order_Main.fieldbyname('TMMId').AsString); + fType := 'ָʾ'; + if ShowModal = 1 then + begin + + end; + end; + finally + frmAttachmentUpload.Free; + end; +end; + +procedure TfrmTradeMarketList_XY.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +//procedure TfrmTradeMarketList.TchkClick(Sender: TObject); +//begin +// if Order_Main.IsEmpty then +// exit; +// if cxTabControl1.TabIndex <> 1 then +// begin +// Application.MessageBox('ֻڴ״̬½˲!', 'ʾ', 0); +// Exit; +// end; +// if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then +// Exit; +// try +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Trade_Market_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); +// sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); +// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); +// sql.Add(' ' + quotedstr(trim(DName))); +// sql.Add(',getdate() '); +// sql.Add(',' + quotedstr(trim(self.Caption))); +// sql.Add(',' + quotedstr(trim('ƻ'))); +// sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); +// sql.Add(',' + quotedstr(trim('ɹ'))); +// sql.Add(')'); +// execsql; +// end; +// +// except +// application.MessageBox('ƻʧܣ', 'ʾϢ', 0); +// end; +// TBRafresh.Click; +//end; + +//procedure TfrmTradeMarketList.TnochkClick(Sender: TObject); +//begin +// if Order_Main.IsEmpty then +// exit; +// if cxTabControl1.TabIndex <> 2 then +// begin +// Application.MessageBox('ֻ״̬½˲!', 'ʾ', 0); +// Exit; +// end; +// try +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Trade_Market_Main SET status=''1'',chker=null,Chktime=null '); +// sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); +// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); +// sql.Add(' ' + quotedstr(trim(DName))); +// sql.Add(',getdate() '); +// sql.Add(',' + quotedstr(trim(self.Caption))); +// sql.Add(',' + quotedstr(trim('ƻ'))); +// sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); +// sql.Add(',' + quotedstr(trim('ɹ'))); +// sql.Add(')'); +// execsql; +// end; +// TBRafresh.Click; +// except +// application.MessageBox('ƻʧܣ', 'ʾϢ', 0); +// end; +//end; + +procedure TfrmTradeMarketList_XY.TWCClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''9'' '); + sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + application.MessageBox('ƻɳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeMarketList_XY.TNowcClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''2'' '); + sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ƻɳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeMarketList_XY.TBTJClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + if canshu1 <> 'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + if cxTabControl1.TabIndex <> 0 then + begin + Application.MessageBox('ֻڴύ״̬½ύ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪύ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''2'' '); + sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻύ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + SendMessageQR(trim(Order_Main.FieldByName('TMMId').AsString), trim(Order_Main.FieldByName('Filler').AsString), trim(Order_Main.FieldByName('TMMNO').AsString), Trim(FormatDateTime('yyyy-MM-dd', Order_Main.FieldByName('TMMDate').asdatetime))); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('exec P_MSG_in '); + sql.Add(' @MSG=' + QuotedStr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' Ҫ'))); + sql.Add(',@FillUserid=' + QuotedStr(trim(DCode))); + sql.Add(',@FillUserName=' + QuotedStr(trim(DName))); + sql.Add(',@FillType=' + QuotedStr(trim('Ҫȷ'))); + sql.Add(',@MegType=' + QuotedStr(trim('ƻύ'))); + execsql; + end; + application.MessageBox('ƻύɹ', 'ʾϢ'); + + except + application.MessageBox('ƻύʧܣ', 'ʾϢ', 0); + end; + TBRafresh.Click; +end; + +procedure TfrmTradeMarketList_XY.TBTJCXClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if canshu1 <> 'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + if cxTabControl1.TabIndex <> 1 then + begin + Application.MessageBox('ֻڴ״̬½ύ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪύ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''1'' '); + sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(' and isnull(status,''0'')=''2'' '); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻύ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ƻύɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻύʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeMarketList_XY.N1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeMarketList_XY.N3Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, True); //ȫѡ +end; + +procedure TfrmTradeMarketList_XY.N4Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, False); //ȫ +end; + +procedure TfrmTradeMarketList_XY.N5Click(Sender: TObject); +begin + SelOKNo(Order_Main, True); + +end; + +procedure TfrmTradeMarketList_XY.N6Click(Sender: TObject); +begin + SelOKNo(Order_Main, False); + +end; + +procedure TfrmTradeMarketList_XY.ComboBox1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTradeMarketList_XY.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTradeMarketList_XY.ToolButton10Click(Sender: TObject); +begin + WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ'); + application.MessageBox('ɹ', 'ʾϢ', 0); +end; + +procedure TfrmTradeMarketList_XY.ToolButton1Click(Sender: TObject); +begin + TcxGridToExcel(Trim(Self.Caption), cxGrid1); +end; + +procedure TfrmTradeMarketList_XY.ToolButton2Click(Sender: TObject); +begin + WriteCxGrid('ָʾбFF1', Tv1, 'ָʾ'); +end; + +procedure TfrmTradeMarketList_XY.TBZFClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Trade_Market_Main SET status=''11'' '); + sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''óײ'' '); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(','''' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); + sql.Add(') '); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ƻ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(Order_Main.FieldByName('TMMNO').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + + application.MessageBox('ƻϳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ƻʧܣ', 'ʾϢ', 0); + end; +end; + +end. + diff --git a/T05贸易门市管理/U_TradeMarketQtyInPut.dfm b/T05贸易门市管理/U_TradeMarketQtyInPut.dfm index 319588c..ea3f433 100644 --- a/T05贸易门市管理/U_TradeMarketQtyInPut.dfm +++ b/T05贸易门市管理/U_TradeMarketQtyInPut.dfm @@ -112,7 +112,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut end object inPiece: TcxCurrencyEdit Left = 71 - Top = 3 + Top = 6 Properties.AssignedValues.DisplayFormat = True TabOrder = 0 Width = 98 @@ -141,8 +141,6 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut Height = 578 Align = alClient TabOrder = 0 - ExplicitLeft = 4 - ExplicitTop = 22 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/T05贸易门市管理/U_TradeMarketQtyInPut.pas b/T05贸易门市管理/U_TradeMarketQtyInPut.pas index 376ddc6..d267d16 100644 --- a/T05贸易门市管理/U_TradeMarketQtyInPut.pas +++ b/T05贸易门市管理/U_TradeMarketQtyInPut.pas @@ -58,6 +58,7 @@ type public { Public declarations } PMTMSId, PFTMMID: string; + canshu4: string; FName, FColor, FColorNo: string; MTMSId, FTMMID: string; end; @@ -204,9 +205,9 @@ begin FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); end; RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Market_Sub_Qty', 0); - FieldByName('TMSQID').AsString := FieldByName('TMSQID').AsString; - FieldByName('TMSId').AsString := FieldByName('TMSId').AsString; - FieldByName('TMMId').AsString := FieldByName('TMMId').AsString; + FieldByName('TMSQID').AsString := Trim(Maxno); + FieldByName('TMSId').AsString := CDS_1.FieldByName('TMSId').AsString; + FieldByName('TMMId').AsString := CDS_1.FieldByName('TMMId').AsString; // FieldByName('Qty').value := StrTofloatDef(inQty.Text, 0); Post; end; @@ -255,6 +256,27 @@ begin end; SCreateCDS(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1); + + if canshu4 = '' then + begin + pnl2.Visible := true; + btnAdd.Visible := true; + TBSave.Visible := true; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from Trade_Market_Sub_Qty A'); + sql.Add('where A.TMSId=''' + Trim(PMTMSId) + ''''); +// sql.Add(' select * from Bs_Cloth_IO A inner join Trade_Market_Sub B on A.TMMID=B.TMMId and A.TMSId=B.TMSId'); +// sql.Add('where A.TMSId=''' + Trim(MTMSId) + ''''); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + end; + end; procedure TfrmTradeMarketQtyInPut.FromCoNameDblClick(Sender: TObject); @@ -278,9 +300,9 @@ begin begin Append; FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0); -// FieldByName('TMSQID').Value := MaxNo; -// FieldByName('TMSId').Value := PMTMSId; -// FieldByName('TMMId').Value := PFTMMId; + FieldByName('TMSQID').Value := MaxNo; + FieldByName('TMSId').Value := PMTMSId; + FieldByName('TMMId').Value := PFTMMId; Post; end;