diff --git a/T02贸易汇总仓库/U_GetDllForm.pas b/T02贸易汇总仓库/U_GetDllForm.pas index 472083c..11eace9 100644 --- a/T02贸易汇总仓库/U_GetDllForm.pas +++ b/T02贸易汇总仓库/U_GetDllForm.pas @@ -22,7 +22,8 @@ uses U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList, U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList, U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList, - U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList; + U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList, + U_ItemizedListList; ///////////////////////////////////////////////////////////////// // ¹¦ÄÜ˵Ã÷:È¡DllÖеô°Ìå // @@ -154,6 +155,16 @@ begin end; end; + 920: //Âëµ¥µÇ¼Ç + begin + with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + WindowState := mstate; + mnewHandle := Handle; + end; + end; + 921: //óÒײ¼Æ¥Èë¿â begin with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/T02贸易汇总仓库/U_ItemizedListInPut.dfm b/T02贸易汇总仓库/U_ItemizedListInPut.dfm new file mode 100644 index 0000000..676e268 --- /dev/null +++ b/T02贸易汇总仓库/U_ItemizedListInPut.dfm @@ -0,0 +1,522 @@ +inherited frmItemizedListInPut: TfrmItemizedListInPut + Left = 143 + Top = 4 + Caption = #35746#21333#24405#20837 + ClientHeight = 593 + ClientWidth = 850 + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poMainFormCenter + ExplicitWidth = 866 + ExplicitHeight = 632 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 850 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Images = cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 0 + ExplicitWidth = 798 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ToolBar2: TToolBar [1] + Tag = 1 + Left = 0 + Top = 193 + Width = 850 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Images = cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 1 + ExplicitWidth = 798 + 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 ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20135#21697#36873#25321 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 223 + Width = 850 + Height = 370 + Align = alClient + Caption = 'Panel2' + TabOrder = 2 + ExplicitWidth = 798 + object Panel3: TPanel + Left = 1 + Top = 1 + Width = 848 + Height = 368 + Align = alClient + Caption = 'Panel2' + TabOrder = 0 + ExplicitWidth = 796 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 846 + Height = 366 + Align = alClient + PopupMenu = PopupMenu2 + TabOrder = 0 + ExplicitLeft = 11 + ExplicitTop = -1 + ExplicitWidth = 764 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = VC_PRTPs + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + 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 = 81 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Width = 85 + 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 + Width = 89 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 127 + 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 + Width = 73 + end + object VC_PRTPs: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'TISPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'TISQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column8: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'TISUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 55 + end + object Tv1Column4: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 93 + end + object Tv1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 55 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ScrollBox1: TScrollBox [3] + Left = 0 + Top = 30 + Width = 850 + Height = 163 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 3 + ExplicitWidth = 798 + object Label3: TLabel + Left = 377 + Top = 11 + Width = 64 + Height = 21 + Caption = #30721#21333#26085#26399 + end + object Label1: TLabel + Left = 21 + Top = 90 + Width = 32 + Height = 21 + Caption = #22791#27880 + end + object Label2: TLabel + Left = 21 + Top = 11 + Width = 64 + Height = 21 + Caption = #30721#21333#32534#21495 + end + object Label14: TLabel + Left = 21 + Top = 51 + Width = 48 + Height = 21 + Caption = #20379#24212#21830 + end + object Label4: TLabel + Left = 377 + Top = 51 + Width = 64 + Height = 21 + Caption = #30721#21333#31867#22411 + end + object TIMNo: TcxTextEdit + Left = 114 + Top = 5 + Enabled = False + TabOrder = 0 + Width = 200 + end + object TIMNote: TMemo + Left = 114 + Top = 90 + Width = 562 + Height = 58 + ScrollBars = ssVertical + TabOrder = 1 + end + object OopCoName: TcxButtonEdit + Left = 114 + Top = 45 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = CustNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 2 + OnDblClick = OurCoNameDblClick + Width = 200 + end + object TIMDate: TcxDateEdit + Left = 461 + Top = 5 + Enabled = False + Properties.ShowTime = False + TabOrder = 3 + Width = 200 + end + object TIMType: TcxComboBox + Left = 461 + Top = 45 + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104) + TabOrder = 4 + Text = #21152#24037#23436#25104 + Width = 200 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 209 + Top = 504 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 321 + Top = 513 + end + inherited ImageList_new32: TImageList + Left = 128 + Top = 346 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 1480 + Top = 32 + DesignInfo = 2098632 + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 388 + Top = 368 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 492 + Top = 385 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 584 + Top = 512 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 491 + Top = 508 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 412 + Top = 517 + end + object ADOQueryLabel: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 932 + Top = 421 + end + object ADO_I1: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 1288 + Top = 361 + end + object DS_I1: TDataSource + DataSet = ADO_I1 + Left = 1220 + Top = 365 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 1066 + Top = 366 + end + object ADO_I2: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 1109 + Top = 351 + end + object DS_I2: TDataSource + DataSet = ADO_I2 + Left = 1171 + Top = 355 + end + object PopupMenu2: TPopupMenu + Left = 676 + Top = 356 + object N3: TMenuItem + Caption = #20840#36873 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #20840#24323 + OnClick = N4Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 592 + Top = 379 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 727 + Top = 408 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 832 + Top = 288 + end + object ADO_2: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 572 + Top = 312 + end + object ADO_YQ: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 254 + Top = 366 + end + object ADO_1: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 340 + Top = 438 + end +end diff --git a/T02贸易汇总仓库/U_ItemizedListInPut.pas b/T02贸易汇总仓库/U_ItemizedListInPut.pas new file mode 100644 index 0000000..208c916 --- /dev/null +++ b/T02贸易汇总仓库/U_ItemizedListInPut.pas @@ -0,0 +1,1012 @@ +unit U_ItemizedListInPut; + +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, + dxCore, cxDateUtils, Clipbrd; + +type + TfrmItemizedListInPut = 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; + ToolButton4: TToolButton; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + Panel2: TPanel; + Panel3: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column11: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + VC_PRTPs: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + ScrollBox1: TScrollBox; + Label3: TLabel; + Label1: TLabel; + Label2: TLabel; + Label14: TLabel; + TIMNo: TcxTextEdit; + TIMNote: TMemo; + OopCoName: TcxButtonEdit; + TIMDate: TcxDateEdit; + PopupMenu2: TPopupMenu; + N3: TMenuItem; + N4: TMenuItem; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + ADO_2: TADOQuery; + ADO_YQ: TADOQuery; + ADO_1: TADOQuery; + Label4: TLabel; + TIMType: TcxComboBox; + 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 v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure HYTTBtnUpClick(Sender: TObject); + procedure KYTTBtnUpClick(Sender: TObject); + procedure v1OrderUnitPropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TechnicsBtnUpClick(Sender: TObject); + procedure TechnicsBtnDnClick(Sender: TObject); + procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure OurCoNameDblClick(Sender: TObject); + procedure ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + FSCXDH: string; + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + function getTMMNo(fconNo: string): string; + + procedure SetXH(); + procedure initGrid1(MTIMID: string); + { Private declarations } + public + PState, CopyInt, PriceFlag: Integer; + FTIMID, FFTMMID, FTMMNo, MTMSId: string; + FXS: Integer; + canshu1: string; + fFlileFlag: string; + fordtype: string; + { Public declarations } + end; + +var + frmItemizedListInPut: TfrmItemizedListInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_CustomFun, U_RTFun, U_CompanySel, U_ClothInfoSel, + U_ItemizedListQtyInPut; + + +{$R *.dfm} +procedure TfrmItemizedListInPut.initGrid1(MTIMID: string); +var + SqlStr: string; +begin + SqlStr := ' select * from Trade_ItemizedList_Sub where TIMID = ' + QUOTEDSTR(Trim(MTIMID)); + InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, '', 'TISID'); +end; + +procedure TfrmItemizedListInPut.SetXH(); +var + i: Integer; +begin + with CDS_1 do + begin + First; + i := 1; + while not Eof do + begin + with CDS_1 do + begin + Edit; + FieldByName('XHNoTemp').Value := i; + Post; + end; + i := i + 1; + Next; + end; + end; + + with CDS_1 do + begin + CDS_1.IndexFieldNames := ''; + First; + i := 1; + while not Eof do + begin + with CDS_1 do + begin + Edit; + FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger; + Post; + end; + i := i + 1; + Next; + end; + CDS_1.IndexFieldNames := 'SerialNo'; + end; + +end; + +function TfrmItemizedListInPut.getTMMNo(fconNo: string): string; +var + str1: string; + i: integer; +begin + str1 := trim(fconNo) + '01'; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select TIMID from Trade_Plan_Main where TIMNo=' + 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 TIMID from Trade_Plan_Main where TIMNo=' + quotedstr(trim(str1))); + open; + end; + if ADOCmd.IsEmpty then + break; + end; + end; + result := str1; +end; + +procedure TfrmItemizedListInPut.TBCloseClick(Sender: TObject); +begin + + ModalResult := 1; + +end; + +procedure TfrmItemizedListInPut.InitData(); +var + FDate: TDateTime; +begin + FDate := SGetServerDateTime(ADOTemp); + TIMDate.Date := FDate; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_ItemizedList_Main where TIMID=''' + Trim(FTIMID) + ''''); + Open; + end; + SCSHData(ADOTemp, ScrollBox1, 0); + OopCoName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('CustNo').AsString); + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_ItemizedList_Sub where 1=1 '); + if PState = 1 then + begin + sql.Add(' and TIMID=''' + Trim(FTIMID) + ''''); + end; + if PState = 0 then + begin + sql.Add(' and 1<>1'); + end; + Open; + end; + SCreateCDS(ADOTemp, CDS_1); + SInitCDSData(ADOTemp, CDS_1); + + if PState = 0 then + begin + TIMDate.Date := SGetServerDate(ADOTemp); + TIMNo.Text := ''; +// TIMNo.Enabled := True; + end; + if CopyInt = 99 then + begin + PState := 0; + FTIMID := ''; + TIMNo.Text := ''; +// TIMNo.Enabled := True; + TIMDate.Date := FDate; + with CDS_1 do + begin + First; + while not Eof do + begin + Edit; + FieldByName('TIMID').Value := ''; + FieldByName('TMSId').Value := ''; + Post; + Next; + end; + end; + + end; +end; + +procedure TfrmItemizedListInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +end; + +procedure TfrmItemizedListInPut.FormShow(Sender: TObject); +var + i: Integer; +begin + inherited; + readCxGrid(TRIM(SELF.Caption) + 'Tv1', Tv1, 'Éú²úָʾµ¥¹ÜÀí'); + readCxGrid(TRIM(SELF.Caption) + 'Tv2', Tv1, 'Éú²úָʾµ¥¹ÜÀí'); + TIMNo.Text := ''; + fFlileFlag := UserDataFlag + 'HX'; + InitData(); + +end; + +function TfrmItemizedListInPut.SaveData(): Boolean; +var + maxno, Smaxno, maxTMMNo, MaxFNo: string; +begin + try + ADOCmd.Connection.BeginTrans; + ///±£´æÖ÷±í + if Trim(FTIMID) = '' then + begin + if GetLSNo(ADOCmd, maxno, 'DD', 'Trade_ItemizedList_Main', 3, 1) = False then + raise Exception.Create('È¡×î´óºÅʧ°Ü!'); + end + else + begin + maxno := Trim(FTIMID); + end; + + if TIMNo.Text = '' then + TIMNo.Text := maxno; + + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Trade_ItemizedList_Main where TIMID=''' + Trim(FTIMID) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(FTIMID) = '' then + begin + Append; + FieldByName('FillId').Value := Trim(DCode); + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('EditId').Value := Trim(DCode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + RTSetsavedata(ADOCmd, 'Trade_ItemizedList_Main', ScrollBox1, 0); + FieldByName('TIMID').Value := Trim(maxno); + FieldByName('OopCoNo').Value := Trim(OopCoName.Properties.LookupItems.Text); + + Post; + end; + +///////////////////// ±£´æ×Ó±í /////////////////////////// + with CDS_1 do + begin + First; + while not Eof do + begin + if Trim(CDS_1.fieldbyname('TISId').AsString) = '' then + begin + if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_ItemizedList_Sub', 4, 1) = False then + raise Exception.Create('È¡×ÓÁ÷Ë®ºÅʧ°Ü!'); + end + else + begin + Smaxno := Trim(CDS_1.fieldbyname('TISId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Trade_ItemizedList_Sub where TIMID=''' + Trim(maxno) + ''''); + sql.Add(' and TISId=''' + Trim(Smaxno) + ''''); + Open; + end; + + with ADOCmd do + begin + if ADOCmd.IsEmpty then + Append + else + Edit; + + RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_ItemizedList_Sub', 0); + + FieldByName('TIMID').Value := Trim(maxno); + FieldByName('TISId').Value := Trim(Smaxno); + Post; + end; + Next; + end; + end; +///////////////////// ±£´æ×Ó±í /////////////////////////// + + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_ItemizedList_Main where TIMNo=''' + Trim(TIMNo.Text) + ''''); + Open; + end; + if ADOCmd.RecordCount > 1 then + raise Exception.Create('¶©µ¥ºÅÖظ´!'); + + with ADOCmd do + begin + Close; + Sql.Clear; + + Sql.Add('exec P_BS_Cloth_UpdateByItemizedList '); + Sql.Add(' @TIMId=' + quotedstr(Trim(maxno))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOCmd.FieldByName('ShowMsg').AsString))); + + ADOCmd.Connection.CommitTrans; + FTIMID := Trim(maxno); + initGrid1(FTIMID); + + Result := True; + except + Result := False; + ADOCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); + + if pos('KEY Ô¼Êø', Exception(ExceptObject).Message) > 0 then + begin + if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_ItemizedList_Sub', 4, 1) = False then + begin + Application.MessageBox('ÖØÐÂÈ¡×ÓÁ÷Ë®ºÅʧ°Ü£¡', 'Ìáʾ', 0); + Exit; + end; + end; + end; +end; + +procedure TfrmItemizedListInPut.TBSaveClick(Sender: TObject); +var + MAXNO1: string; +begin + ToolBar1.SetFocus; + + if CDS_1.IsEmpty then + begin + Application.MessageBox('Ã÷ϸ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); + Exit; + end; + + if CDS_1.Locate('TISUnit', null, []) then + begin + Application.MessageBox('µ¥Î»²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); + Exit; + end; + + if CDS_1.Locate('TISQty', null, []) then + begin + Application.MessageBox('ÊýÁ¿²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); + Exit; + end; + + if CDS_1.Locate('Price', null, []) then + begin + Application.MessageBox('µ¥¼Û²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('±£´æ³É¹¦£¡', 'Ìáʾ', 0); + +// CDS_1.EmptyDataSet; +// PState := 0; +// FTIMID := ''; +// OopCoName.Text := ''; +// TIMNo.Text := ''; +// OrdNote.Text := ''; + + end; +end; + +procedure TfrmItemizedListInPut.ToolButton1Click(Sender: TObject); +var + Smaxno: string; +begin + + CopyAddRow(Tv1, cds_1); + + if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_ItemizedList_Sub', 4, 1) = False then + begin + Application.MessageBox('È¡×ÓÁ÷Ë®ºÅʧ°Ü!', 'Ìáʾ', 0); + Exit; + end; + + with cds_1 do + begin + Edit; + FieldByName('SerialNo').Value := FieldByName('SerialNo').AsFloat + 0.1; + FieldByName('TISId').Value := Smaxno; + FieldByName('TISUnit').Value := 'M'; + Post; + end; + + SetXH(); + +end; + +procedure TfrmItemizedListInPut.ToolButton2Click(Sender: TObject); +begin + 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; + try + CDS_1.DisableControls; + ADOCmd.Connection.BeginTrans; + while CDS_1.Locate('SSel', true, []) do + begin + if Trim(CDS_1.fieldbyname('TMSId').AsString) <> '' then + begin + with ADOCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_Trade_ItemizedList_Sub_Del '); + Sql.Add(' @TISId=' + quotedstr(trim(CDS_1.FieldByName('TISId').AsString))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + + if ADOCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOCmd.FieldByName('ShowMsg').AsString))); + end; + end; + CDS_1.Delete; + end; + ADOCmd.Connection.CommitTrans; + CDS_1.EnableControls; + except + ADOCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); + CDS_1.EnableControls; + end; + end; + +end; + +procedure TfrmItemizedListInPut.ToolButton3Click(Sender: TObject); +begin + WriteCxGrid(TRIM(SELF.Caption) + 'Tv1', Tv1, 'Éú²úָʾµ¥¹ÜÀí'); +end; + +procedure TfrmItemizedListInPut.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_ItemizedList_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('TISId').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); + + 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('TISId').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 TfrmItemizedListInPut.TechnicsBtnDnClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Text := ''; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; +end; + +procedure TfrmItemizedListInPut.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 TfrmItemizedListInPut.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '¹©Ó¦ÉÌ'; + if ShowModal = 1 then + begin + self.OopCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.OopCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString); + end; + end; + + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmItemizedListInPut.N3Click(Sender: TObject); +begin + SelOKNo(CDS_1, True); //È«Ñ¡ +end; + +procedure TfrmItemizedListInPut.N4Click(Sender: TObject); +begin + inherited; + SelOKNo(CDS_1, False); //È«Ñ¡ +end; + +procedure TfrmItemizedListInPut.OurCoNameDblClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Text := ''; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; +end; + +procedure TfrmItemizedListInPut.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 TfrmItemizedListInPut.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 TfrmItemizedListInPut.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 TfrmItemizedListInPut.ShippingAddressPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmItemizedListInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmClothInfoSel := TfrmClothInfoSel.Create(Application); + with frmClothInfoSel do + begin + + 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 TfrmItemizedListInPut.Tv1DblClick(Sender: TObject); +begin + if Trim(CDS_1.FieldByName('TISUnit').AsString) = '' then + begin + Application.MessageBox('µ¥Î»²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); + Exit; + end; + if SaveData() then + begin + + try + frmItemizedListQtyInPut := TfrmItemizedListQtyInPut.Create(Application); + with frmItemizedListQtyInPut do + begin + FTIMId := Self.FTIMId; + FTISId := Trim(CDS_1.FieldByName('TISId').AsString); + if ShowModal = 1 then + begin + Self.initGrid1(Self.FTIMID); + end; + end; + finally + frmItemizedListQtyInPut.Free; + end; + end; +end; + +procedure TfrmItemizedListInPut.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 TfrmItemizedListInPut.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 TfrmItemizedListInPut.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/T02贸易汇总仓库/U_ItemizedListList.dfm b/T02贸易汇总仓库/U_ItemizedListList.dfm new file mode 100644 index 0000000..5c17753 --- /dev/null +++ b/T02贸易汇总仓库/U_ItemizedListList.dfm @@ -0,0 +1,641 @@ +inherited frmItemizedListList: TfrmItemizedListList + Left = 165 + Top = 13 + Caption = #29983#20135#35745#21010#21333#31649#29702 + ClientHeight = 736 + ClientWidth = 1411 + Color = clBtnFace + Font.Height = -16 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1427 + ExplicitHeight = 775 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1411 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + Images = DataLink_TradeTotalClothStk.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 = 71 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = TnochkClick + end + object TBPrint: TToolButton + Left = 458 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object TBCK: TToolButton + Left = 529 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 8 + OnClick = TBCKClick + end + object ToolButton4: TToolButton + Left = 600 + Top = 0 + AutoSize = True + Caption = #38468#20214 + ImageIndex = 22 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 671 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 774 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1411 + Height = 91 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + ParentBackground = False + TabOrder = 6 + object Label3: TLabel + Left = 24 + Top = 51 + Width = 48 + Height = 21 + Caption = #30721#21333#21495 + end + object Label1: TLabel + Left = 200 + Top = 51 + Width = 64 + Height = 21 + Caption = #23545#26041#21333#20301 + end + object TIMNo: TcxTextEdit + Tag = 2 + Left = 76 + Top = 45 + TabOrder = 0 + OnKeyPress = TIMNoKeyPress + Width = 120 + end + object OOPCoName: TcxTextEdit + Tag = 2 + Left = 268 + Top = 45 + TabOrder = 1 + OnKeyPress = TIMNoKeyPress + Width = 120 + end + inline frmFrameDateSel1: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1407 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 2 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1407 + 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 = 1411 + Height = 380 + Align = alClient + PopupMenu = PM_1 + TabOrder = 3 + ExplicitTop = 154 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv1Column11 + end + item + Kind = skSum + Column = Tv1Column10 + 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 = 50 + end + object Tv1Column3: TcxGridDBColumn + Caption = #30721#21333#21495 + DataBinding.FieldName = 'TIMNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 111 + end + object Tv1Column5: TcxGridDBColumn + Caption = #30721#21333#31867#22411 + DataBinding.FieldName = 'TIMType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1OrdDate: TcxGridDBColumn + Caption = #30721#21333#26085#26399 + DataBinding.FieldName = 'TIMDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 122 + end + object Tv1Column2: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'OOPCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object Tv1Column11: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'HZPiQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column10: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'FILLER' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxSplitter1: TcxSplitter [3] + Left = 0 + Top = 532 + Width = 1411 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + end + object cxTabControl1: TcxTabControl [4] + Left = 0 + Top = 121 + Width = 1411 + Height = 31 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + ' '#24453#23457#26680' ' + ' '#24050#23457#26680' ' + ' '#20840#37096' ') + OnChange = cxTabControl1Change + ClientRectBottom = 31 + ClientRectRight = 1411 + ClientRectTop = 28 + end + object Panel2: TPanel [5] + Left = 0 + Top = 540 + Width = 1411 + Height = 196 + Align = alBottom + BevelOuter = bvNone + Caption = 'Panel2' + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1411 + Height = 196 + Align = alClient + TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = 6 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = VC_PRTPs + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn2: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 104 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 106 + 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 + Width = 92 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object VC_PRTPs: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'TISPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'TISQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column8: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'TMSUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'M' + 'Y' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 77 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 159 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + inherited loadProcess: TPanel + Left = 584 + Top = 286 + ExplicitLeft = 584 + ExplicitTop = 286 + end + inherited cxProgressBar2: TcxProgressBar + Left = 584 + Top = 350 + ExplicitLeft = 584 + ExplicitTop = 350 + ExplicitWidth = 169 + ExplicitHeight = 29 + Width = 169 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 255 + Top = 314 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 157 + Top = 256 + end + object cxgrdpmn1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 660 + Top = 454 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 568 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 420 + Top = 216 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.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_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 296 + Top = 404 + end + object DataSource2: TDataSource + DataSet = ORDER_SUB + Left = 488 + Top = 448 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_TradeTotalClothStk.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 = 208 + Top = 412 + end + object PopupMenu2: TPopupMenu + Left = 600 + Top = 454 + object N3: TMenuItem + Caption = #20840#36873 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #20840#24323 + OnClick = N4Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + end + object cxgrdpmn2: TcxGridPopupMenu + Grid = cxGrid2 + 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 + end + object GPM_3: TcxGridPopupMenu + PopupMenus = <> + Left = 860 + Top = 228 + end +end diff --git a/T02贸易汇总仓库/U_ItemizedListList.pas b/T02贸易汇总仓库/U_ItemizedListList.pas new file mode 100644 index 0000000..d5705f1 --- /dev/null +++ b/T02贸易汇总仓库/U_ItemizedListList.pas @@ -0,0 +1,766 @@ +unit U_ItemizedListList; + +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 + TfrmItemizedListList = 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; + TIMNo: TcxTextEdit; + v1OrdDate: TcxGridDBColumn; + Order_Main: TClientDataSet; + TBCK: TToolButton; + cxSplitter1: TcxSplitter; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + ToolButton4: TToolButton; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + Tnochk: TToolButton; + Panel2: TPanel; + ADOQueryImage: TADOQuery; + DSImage: TDataSource; + IdFTP1: TIdFTP; + v1Column11: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + ORDER_SUB: TClientDataSet; + PopupMenu2: TPopupMenu; + N3: TMenuItem; + N4: TMenuItem; + Label1: TLabel; + OOPCoName: TcxTextEdit; + Tv1Column6: TcxGridDBColumn; + cxgrdpmn2: TcxGridPopupMenu; + Tv1Column2: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + CDS_WXTS: TClientDataSet; + ToolButton2: TToolButton; + PM_1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + GPM_3: TcxGridPopupMenu; + Tv1Column3: TcxGridDBColumn; + frmFrameDateSel1: TfrmFrameDateSel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + VC_PRTPs: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Tv1Column5: 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 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 TIMNoKeyPress(Sender: TObject; var Key: Char); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(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 N2Click(Sender: TObject); + private + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + procedure InitSub(); + procedure SetStatus(); + procedure InitImage(fwbid: string); + procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); + { Private declarations } + public + FFInt, FCloth: Integer; + canshu1, canshu2: string; + fFlileFlag: string; + FNOTE: string; + FOrdType: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_RPFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload, + U_ItemizedListInPut; + +{$R *.dfm} + +procedure TfrmItemizedListList.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 TfrmItemizedListList.SetStatus(); +begin + tbadd.Enabled := false; + TBEdit.Enabled := False; + TBDel.Enabled := False; + tchk.Enabled := false; + tnochk.Enabled := false; + TBDel.Enabled := False; + + case cxTabControl1.TabIndex of + 0: + begin + tbadd.Enabled := True; + TBEdit.Enabled := True; + TBDel.Enabled := True; + TBDel.Enabled := True; + end; + 1: + begin + TBDel.Enabled := True; + tchk.Enabled := True; + + end; + + end; + +end; + +procedure TfrmItemizedListList.InitSub(); +begin + ADOQuerySub.Close; + if Order_Main.IsEmpty then + exit; + ADOQuerySub.DisableControls; + with ADOQuerySub do + begin + close; + sql.Clear; + sql.Add('select * '); + sql.Add(' from Trade_ItemizedList_Sub A'); + sql.Add('where TIMId =' + quotedstr((Order_Main.fieldbyname('TIMId').AsString))); + open; + end; + SCreateCDS(ADOQuerySub, ORDER_SUB); + SInitCDSData(ADOQuerySub, ORDER_SUB); + + ADOQuerySub.EnableControls; + TV2.DataController.Filter.Clear; +end; + +procedure TfrmItemizedListList.JGTypeChange(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmItemizedListList.FormDestroy(Sender: TObject); +begin + inherited; +// frmProductOrderList:=nil; +end; + +procedure TfrmItemizedListList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmItemizedListList.FormCreate(Sender: TObject); +begin + inherited; + cxgrid1.Align := alClient; + DQdate := SGetServerDate(ADOQueryTemp); + +end; + +procedure TfrmItemizedListList.TBCloseClick(Sender: TObject); +begin + + Close; + +end; + +procedure TfrmItemizedListList.InitGrid(); +var + STRwhere, Pwhere: string; +begin + STRwhere := ''; + Pwhere := SGetFilters(Panel1, 1, 2); + + begin + if trim(Pwhere) <> '' then + STRwhere := STRwhere + ' and ' + trim(Pwhere); + end; + + case cxTabControl1.TabIndex of + 0: + begin + STRwhere := STRwhere + ' and isnull(status,''0'')=''0'' '; + end; + 1: + begin + STRwhere := STRwhere + ' and isnull(status,''0'')=''9'' '; + end; + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.add(' select * '); + sql.Add(' ,HZPiQty=(select sum(TISPiece) from Trade_ItemizedList_Sub X where X.TIMId=A.TIMId)'); + sql.Add(' ,OrdQty=(select sum(TISQty) from Trade_ItemizedList_Sub X where X.TIMId=A.TIMId)'); + sql.Add(' ,OrdUnit=(select top 1 TISUnit from Trade_ItemizedList_Sub X where X.TIMId=A.TIMId)'); + + sql.add(' from Trade_ItemizedList_Main A '); + + sql.add(' where A.TIMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)))); + sql.add(' and A.TIMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)))); + + if canshu1 = '¼Èë' then + begin + sql.add(' and A.Filler= ' + QuotedStr(Trim(DName))); + end; + sql.add(' ' + STRwhere); + + sql.add(' order by filltime desc'); +// ShowMessage(SQL.Text); + Open; + end; + + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + + end; +end; + +procedure TfrmItemizedListList.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 TfrmItemizedListList.InitForm(); +begin + ReadCxGrid('ָʾµ¥ÁбíFF1', Tv1, 'Éú²úָʾµ¥¹ÜÀí'); + ReadCxGrid('ָʾµ¥ÁбíFFTv21', Tv2, 'Éú²úָʾµ¥¹ÜÀí'); + frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180; + frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); + + SetStatus(); + InitGrid(); +end; + +procedure TfrmItemizedListList.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 + frmItemizedListInPut := TfrmItemizedListInPut.Create(Application); + with frmItemizedListInPut do + begin + + PState := 1; + FTIMID := Trim(Self.Order_Main.fieldbyname('TIMId').AsString); + FTMMNo := Trim(Self.Order_Main.fieldbyname('TIMNo').AsString); + canshu1 := self.canshu1; + frmItemizedListInPut.fordtype := self.fordtype; + if ShowModal = 1 then + begin + + end; + end; + finally + frmItemizedListInPut.Free; + end; + +end; + +procedure TfrmItemizedListList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûÓÐÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0); + Exit; + end; + if Application.MessageBox('È·¶¨ÒªÉ¾³ýÊý¾ÝÂð£¿', 'Ìáʾ', 32 + 4) <> IDYES then + Exit; + try + ADOQueryCmd.Connection.BeginTrans; + while Order_Main.Locate('SSel', true, []) do + begin + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_Trade_Market_Sub_Del '); + Sql.Add(' @TMSId=' + quotedstr(trim(Order_Main.FieldByName('TMSId').AsString))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + end; + Order_Main.Delete; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); + InitGrid(); + end; +end; + +procedure TfrmItemizedListList.TBPrintClick(Sender: TObject); +var + MFiltration: string; + MPrintJson: string; +begin + MFiltration := Trim(Self.Order_Main.fieldbyname('TIMNo').AsString); + MPrintJson := ' {"LMType": "TradeFinishClothOutPrt1" '; + MPrintJson := MPrintJson + ' ,"PreviewPrint": true '; + MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } '; + FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson)); +end; + +procedure TfrmItemizedListList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmItemizedListList.TBAddClick(Sender: TObject); +begin + + try + frmItemizedListInPut := TfrmItemizedListInPut.Create(Application); + with frmItemizedListInPut do + begin + PState := 0; + FTIMID := ''; + canshu1 := self.canshu1; + frmItemizedListInPut.fordtype := self.fordtype; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmItemizedListInPut.Free; + end; +end; + +procedure TfrmItemizedListList.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 TfrmItemizedListList.FormShow(Sender: TObject); +begin + inherited; + canshu1 := self.fParameters1; + fFlileFlag := UserDataFlag + 'HX'; + cxTabControl1.TabIndex := 0; + InitForm(); +end; + +procedure TfrmItemizedListList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmItemizedListList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmItemizedListList.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 TfrmItemizedListList.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 TfrmItemizedListList.TBCKClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmItemizedListInPut := TfrmItemizedListInPut.Create(Application); + with frmItemizedListInPut do + begin + PState := 1; + FTIMID := Trim(Self.Order_Main.fieldbyname('TIMId').AsString); + FTMMNo := Trim(Self.Order_Main.fieldbyname('TIMNo').AsString); + ToolBar2.Visible := False; + TBSave.Visible := False; + ScrollBox1.Enabled := True; + N2.Visible := False; + frmItemizedListInPut.fordtype := self.fordtype; + if ShowModal = 1 then + begin + + end; + end; + finally + frmItemizedListInPut.Free; + end; + +end; + +procedure TfrmItemizedListList.TIMNoKeyPress(Sender: TObject; var Key: Char); +begin + + if Key = #13 then + begin + initgrid(); + end; +end; + +procedure TfrmItemizedListList.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 TfrmItemizedListList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); + +end; + +procedure TfrmItemizedListList.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('TIMId').AsString); + fType := 'ָʾµ¥'; + if ShowModal = 1 then + begin + + end; + end; + finally + frmAttachmentUpload.Free; + end; +end; + +procedure TfrmItemizedListList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +procedure TfrmItemizedListList.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_ItemizedList_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); + sql.Add('where TIMId=' + quotedstr(trim(Order_Main.fieldbyname('TIMId').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('TIMNo').AsString)))); + sql.Add(',' + quotedstr(trim('³É¹¦'))); + sql.Add(')'); + execsql; + end; + + except + application.MessageBox('¼Æ»®µ¥ÉóºËʧ°Ü£¡', 'ÌáʾÐÅÏ¢', 0); + end; + TBRafresh.Click; +end; + +procedure TfrmItemizedListList.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_ItemizedList_Main SET status=''1'',chker=null,Chktime=null '); + sql.Add('where TIMId=' + quotedstr(trim(Order_Main.fieldbyname('TIMId').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('TIMNo').AsString)))); + sql.Add(',' + quotedstr(trim('³É¹¦'))); + sql.Add(')'); + execsql; + end; + TBRafresh.Click; + except + application.MessageBox('¼Æ»®µ¥³·ÏúÉóºËʧ°Ü£¡', 'ÌáʾÐÅÏ¢', 0); + end; +end; + +procedure TfrmItemizedListList.N1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmItemizedListList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(ORDER_SUB.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmItemizedListList.N3Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, True); //È«Ñ¡ +end; + +procedure TfrmItemizedListList.N4Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, False); //È«Æú +end; + +procedure TfrmItemizedListList.ComboBox1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmItemizedListList.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmItemizedListList.ToolButton10Click(Sender: TObject); +begin + WriteCxGrid('ָʾµ¥ÁбíFF1', Tv1, 'Éú²úָʾµ¥¹ÜÀí'); + WriteCxGrid('ָʾµ¥ÁбíFFTv21', Tv2, 'Éú²úָʾµ¥¹ÜÀí6'); + application.MessageBox('±£´æ³É¹¦£¡', 'ÌáʾÐÅÏ¢', 0); +end; + +procedure TfrmItemizedListList.ToolButton2Click(Sender: TObject); +begin + WriteCxGrid('ָʾµ¥ÁбíFF1', Tv1, 'Éú²úָʾµ¥¹ÜÀí'); + WriteCxGrid('ָʾµ¥ÁбíFFTv21', Tv2, 'Éú²úָʾµ¥¹ÜÀí'); +end; + +end. + diff --git a/T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm b/T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm new file mode 100644 index 0000000..ed9d8b2 --- /dev/null +++ b/T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm @@ -0,0 +1,308 @@ +inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut + Left = 67 + Top = 126 + Caption = #26126#32454#20837#24211#30331#35760 + ClientHeight = 499 + ClientWidth = 629 + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poScreenCenter + OnClose = FormClose + ExplicitWidth = 645 + ExplicitHeight = 538 + PixelsPerInch = 96 + TextHeight = 21 + object pnl1: TPanel [0] + Left = 0 + Top = 0 + Width = 629 + Height = 499 + Align = alClient + Caption = 'pnl1' + TabOrder = 0 + ExplicitWidth = 595 + ExplicitHeight = 525 + object cxGrid1: TcxGrid + Tag = 2 + Left = 1 + Top = 72 + Width = 627 + Height = 426 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = 73 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end + item + Kind = skSum + Column = Tv1Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object Tv1Column2: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 143 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object Tv1Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 105 + end + object Tv1Column5: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 107 + end + object Tv1Column1: TcxGridDBColumn + Tag = 7 + Caption = #26465#30721 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object tlb1: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 627 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeTotalClothStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object btnAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 2 + OnClick = btnAddClick + end + object btndaoru: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20837 + ImageIndex = 28 + OnClick = btndaoruClick + end + object btn3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 6 + OnClick = TBDelClick + end + object btn4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + end + object ToolButton2: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360#26412#21333 + ImageIndex = 21 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = ToolButton5Click + end + object btn2: TToolButton + Left = 489 + Top = 0 + Caption = 'btn2' + ImageIndex = 17 + Visible = False + OnClick = btn2Click + end + end + object pnl2: TPanel + Left = 1 + Top = 31 + Width = 627 + Height = 41 + Align = alTop + TabOrder = 2 + ExplicitWidth = 593 + object Label9: TLabel + Left = 33 + Top = 7 + Width = 32 + Height = 21 + Caption = #21305#25968 + end + object Label13: TLabel + Left = 193 + Top = 7 + Width = 32 + Height = 21 + Caption = #25968#37327 + end + object inPiece: TcxCurrencyEdit + Left = 71 + Top = 3 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 0 + Width = 98 + end + object inQty: TcxCurrencyEdit + Left = 231 + Top = 3 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 1 + OnKeyPress = inQtyKeyPress + Width = 98 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 407 + Top = 402 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 201 + Top = 297 + end + inherited ImageList_new32: TImageList + Left = 80 + Top = 208 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 570 + Top = 89 + DesignInfo = 5833274 + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 749 + Top = 250 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 224 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 68 + Top = 378 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 211 + Top = 379 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 472 + Top = 294 + end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 370 + end + object OpenDialog1: TOpenDialog + Left = 522 + Top = 338 + end + object PopupMenu1: TPopupMenu + Left = 734 + Top = 330 + object N1: TMenuItem + Caption = #40655#36148 + OnClick = N1Click + end + end +end diff --git a/T02贸易汇总仓库/U_ItemizedListQtyInPut.pas b/T02贸易汇总仓库/U_ItemizedListQtyInPut.pas new file mode 100644 index 0000000..7d2c62a --- /dev/null +++ b/T02贸易汇总仓库/U_ItemizedListQtyInPut.pas @@ -0,0 +1,707 @@ +unit U_ItemizedListQtyInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + System.Types, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, + ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, + Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, + cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd; + +type + TfrmItemizedListQtyInPut = class(TfrmBaseInput) + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + GPM_1: TcxGridPopupMenu; + CDS_LM: TClientDataSet; + OpenDialog1: TOpenDialog; + pnl1: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + tlb1: TToolBar; + btnAdd: TToolButton; + btn3: TToolButton; + btn4: TToolButton; + pnl2: TPanel; + inPiece: TcxCurrencyEdit; + Label9: TLabel; + inQty: TcxCurrencyEdit; + Label13: TLabel; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + btndaoru: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + btn2: TToolButton; + ToolButton2: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + Tv1Column1: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FromCoNameDblClick(Sender: TObject); + procedure inQtyKeyPress(Sender: TObject; var Key: Char); + procedure btndaoruClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure btn2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure btnAddClick(Sender: TObject); + private + { Private declarations } + function SaveData(): Boolean; + + procedure NianTie(); + function Split(const s: string; Separator: char): TStringDynArray; + public + { Public declarations } + FTIMId, FTISId, FQtyUnit: string; + end; + +var + frmItemizedListQtyInPut: TfrmItemizedListQtyInPut; + +implementation + +uses + U_DataLink, U_RTFun, U_RPFun; + +{$R *.dfm} + +function TfrmItemizedListQtyInPut.Split(const s: string; Separator: char): TStringDynArray; +var + i, ItemIndex: Integer; + len: Integer; + SeparatorCount: Integer; + Start: Integer; +begin + len := Length(s); + if len = 0 then + begin + Result := nil; + exit; + end; + SeparatorCount := 0; + for i := 1 to len do + begin + if s[i] = Separator then + begin + inc(SeparatorCount); + end; + end; + SetLength(Result, SeparatorCount + 1); + ItemIndex := 0; + Start := 1; + for i := 1 to len do + begin + if s[i] = Separator then + begin + Result[ItemIndex] := Copy(s, Start, i - Start); + inc(ItemIndex); + Start := i + 1; + end; + end; + Result[ItemIndex] := Copy(s, Start, len - Start + 1); +end; + +procedure TfrmItemizedListQtyInPut.N1Click(Sender: TObject); +var + hmem: THandle; + ClipboardText: PChar; + Lines: TStringDynArray; + Cells: TStringDynArray; + i: Integer; +begin + // ¼ÙÉèÒѾ­´Ó¼ôÌù°å»ñÈ¡µ½ÁËÎı¾£¬´æ·ÅÔÚClipboardText±äÁ¿ÖÐ + + OpenClipboard(0); + hmem := GetClipboardData(CF_TEXT); + + ClipboardText := GlobalLock(hmem); + + // Ê×ÏÈ°´»»Ðзû²ð·Ö³ÉÐÐ + Lines := Split(ClipboardText, #13); // WindowsϵͳÖл»Ðзûͨ³£ÊÇ#13#10 + + // ±éÀúÿһÐÐ + for i := 0 to Length(Lines) - 1 do + begin + // °´¶ººÅ²ð·Ö³Éµ¥Ôª¸ñÊý¾Ý + Cells := Split(Lines[i], ','); + + // ´ËʱCellsÊý×éÖоʹ洢ÁËÿһÐеĵ¥Ôª¸ñÊý¾Ý + // ÀýÈçµÚÒ»Ðвð·Öºó£¬Cells[0]='ÐÕÃû'£¬Cells[1]='ÄêÁä'£¬Cells[2]='ÐÔ±ð' + // ¿ÉÒÔ¸ù¾ÝÐèÒª½«ÕâЩÊý¾Ýµ¼Èëµ½cxGridÖÐ + end; +end; + +procedure TfrmItemizedListQtyInPut.NianTie(); +var + hmem: THandle; + pstr: PChar; + ArrStr: TStringList; + i, x, h, Row, Z: Integer; + FColumn: string; +begin + //¼ì²é¼ôÌù°åÀàÈÝÀàÐÍ + if IsClipboardFormatAvailable(CF_TEXT) then + begin + OpenClipboard(0); + hmem := GetClipboardData(CF_TEXT); + pstr := GlobalLock(hmem); +// Memo1.Text := pstr; + pstr := PChar(StringReplace(pstr, #$A, #$A#$3F, [rfReplaceAll])); +// pstr := PAnsiChar(StringReplace(pstr, #$D#$A#$D, #$D#$A#$20#$D, [rfReplaceAll])); + ArrStr := TStringList.Create; + ArrStr.Clear; + ExtractStrings([#13], [], PChar(pstr), ArrStr); + GlobalUnlock(hmem); + CloseClipboard; + end; + ArrStr.Delete(ArrStr.Count - 1); + + Row := Tv1.Controller.FocusedRowIndex; + + CDS_Sub.Locate('xhno', Row + 1, []); + + x := (Tv1.DataController.RowCount - (Row + 1)); + +// showmessage(ArrStr.Text); + //×Ô¶¯ÔöÐÐ + if x < ArrStr.count then + begin + for i := x to ArrStr.count - 2 do + begin + if VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]) = True then + begin + h := 0; + end + else + h := Tv1.DataController.Summary.FooterSummaryValues[0]; + h := h + 1; + with CDS_Sub do + begin + Append; + FieldByName('XHNO').Value := IntToStr(h); + Post; + end; + end; + end; + + CDS_Sub.Locate('xhno', Row + 1, []); + i := 0; + Z := 0; + + FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + + with CDS_Sub do + begin + DisableControls; + while not Eof do + begin + edit; + if ArrStr.Count > i then + begin + CDS_Sub.FieldByName(FColumn).Value := StringReplace(ArrStr[i], '?', '', [rfReplaceAll]); + end + else + Break; + i := i + 1; + Post; + Next; + end; + EnableControls; + end; +end; + +procedure TfrmItemizedListQtyInPut.btnAddClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty = False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('BCIOID').Value := null; + FieldByName('StkCoNo').Value := '±¾³§²Ö¿â'; + FieldByName('StkCoName').Value := '±¾³§²Ö¿â'; + post; + end; + end + else + begin + with CDS_Sub do + begin + Append; + FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('StkCoNo').Value := '±¾³§²Ö¿â'; + FieldByName('StkCoName').Value := '±¾³§²Ö¿â'; + FieldByName('QtyUnit').Value := 'M'; + Post; + end; + end; +end; + +procedure TfrmItemizedListQtyInPut.btn2Click(Sender: TObject); +var + RowData: TArray; + rowColData: TArray; + RowIndex, ColIndex, i: Integer; + clipboardText, rowStr: string; + lRect: TRect; +begin + if Clipboard.HasFormat(CF_TEXT) then + begin + clipboardText := Clipboard.AsText; + RowData := clipboardText.Split([#13#10]); // ¸ù¾Ý»»Ðзû²ð·ÖÐÐÊý¾Ý + // ±éÀúÐÐÊý¾Ý + for RowIndex := Low(RowData) to High(RowData) do + begin + rowStr := RowData[RowIndex]; + if trim(rowStr) = '' then + continue; + rowColData := rowStr.Split([#9]); + ShowMessage(rowStr); +// lRect := FGrid.Selection; +// ColIndex := 0; +// for i := lRect.Left to lRect.Right do +// begin +// if lRect.Top + RowIndex < FGrid.RowCount then +// begin +// FGrid.Cells[i, lRect.Top + RowIndex].Text := trim(rowColData[ColIndex]); +// ColIndex := ColIndex + 1; +// end; +// end; + end; + end; +end; + +procedure TfrmItemizedListQtyInPut.btndaoruClick(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, LX, ExcelRowCount: integer; + maxId, FCPID, FCPName, t1, t2, t3, FFID: string; +begin + + try + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('¼ÓÔØEXCEL´íÎó£¡', '´íÎóÐÅÏ¢', MB_ICONERROR); + exit; + end; + + CDS_LM.EmptyDataSet; + + for j := 0 to Tv1.ColumnCount - 1 do + begin + with CDS_LM do + begin + Append; + FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName); + FieldByName('LName').Value := trim(Tv1.Columns[j].Caption); + Post; + end; + end; + + try + for i := 1 to 50 do + begin + if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then + continue; + if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then + begin + with CDS_LM do + begin + Edit; + FieldByName('LXH').Value := i; + Post; + end; + end; + end; + except + application.MessageBox('¼ÓÔØÊý×é´íÎó£¡', '´íÎóÐÅÏ¢', MB_ICONERROR); + exit; + end; + + try + for i := 2 to ExcelRowCount do + begin + with CDS_Sub do + begin + Append; + CDS_LM.First; + while not CDS_LM.Eof do + begin + if CDS_LM.FieldByName('LXH').AsInteger > 0 then + CDS_Sub.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; + end; + Post; + end; + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + exit; + end; + +end; + +procedure TfrmItemizedListQtyInPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +function TfrmItemizedListQtyInPut.SaveData(): Boolean; +var + Maxno, MBCIOID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + ''''); + open; + end; + MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString); + if Trim(MBCIOID) = '' then + begin + if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then + raise Exception.Create('ȡȾɫÅ÷²¼Èë¿â±àºÅʧ°Ü£¡'); + end + else + begin + Maxno := Trim(MBCIOID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MBCIOID) = '' then + begin + Append; + FieldByName('Fillid').Value := Trim(Dcode); + FieldByName('Filler').Value := Trim(DName); + FieldByName('BCIOID').Value := Trim(Maxno); + FieldByName('STKID').Value := Trim(Maxno); + FieldByName('CIID').Value := Trim(Maxno); + end + else + begin + Edit; + FieldByName('Editid').Value := Trim(Dcode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0); + FieldByName('STKName').Value := '²¼Æ¥²Ö¿â'; + FieldByName('IOFlag').Value := 'Èë¿â'; + FieldByName('IOQtyFlag').Value := 1; + FieldByName('Piece').Value := 1; + FieldByName('Qty').Value := CDS_Sub.FieldByName('Qty').Value; + FieldByName('TIMId').Value := FTIMId; + FieldByName('TISId').Value := FTISId; + FieldByName('QtyUnit').Value := FQtyUnit; + Post; + end; + + Next; + end; + end; + + CDS_Sub.EnableControls; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + + Sql.Add('exec P_BS_Cloth_UpdateByItemizedList '); + Sql.Add(' @TIMId=' + quotedstr(Trim(FTIMId))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + + ADOQueryCmd.Connection.CommitTrans; + + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); + end; + +end; + +procedure TfrmItemizedListQtyInPut.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid('Âëµ¥µÇ¼Ç', Tv1, 'óÒ×»ã×ֿܲâ'); + + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from BS_Cloth_IO A'); + sql.Add(' where ioflag=''Èë¿â'' and TISId=''' + Trim(FTISId) + ''''); + Open; + end; + + SCreateCDS(ADOQueryTemp, CDS_Sub); + SInitCDSData(ADOQueryTemp, CDS_Sub); +end; + +procedure TfrmItemizedListQtyInPut.FromCoNameDblClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Text := ''; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; +end; + +procedure TfrmItemizedListQtyInPut.inQtyKeyPress(Sender: TObject; var Key: Char); +var + i: Integer; +begin +// if Key = #13 then +// begin +// with CDS_Sub do +// begin +// DisableControls; +// for i := 1 to StrToIntDef(inPiece.Text, 1) do +// begin +// Append; +// FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0); +// +// if QtyUnit.Text = 'M' then +// begin +// FieldByName('Meter').Value := StrTofloatDef(inQty.Text, 0); +// end +// else if QtyUnit.Text = 'Y' then +// begin +// FieldByName('Yardage').Value := StrTofloatDef(inQty.Text, 0); +// end +// else +// begin +// FieldByName('NetWeight').Value := StrTofloatDef(inQty.Text, 0); +// end; +// +// Post; +// end; +// EnableControls; +// end; +// inPiece.Text := '1'; +// inQty.Text := ''; +// end; +end; + +procedure TfrmItemizedListQtyInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then + begin + if Application.MessageBox('È·¶¨ÒªÉ¾³ýÊý¾ÝÂð£¿', 'Ìáʾ', 32 + 4) <> IDYES then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_Fin_Flow_Judge '); + Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then + begin + Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'Ìáʾ', 0); + exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''óÒ×Ñù²¼Èë¿â'' '); + sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + sql.Add(',''ɾ³ý'' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + sql.Add(') '); + + Sql.Add('exec P_BS_Cloth_In_Del '); + Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); + end; + end + else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmItemizedListQtyInPut.TBSaveClick(Sender: TObject); +var + Maxno: string; +begin + if CDS_Sub.IsEmpty then + Exit; + with CDS_Sub do + begin + DisableControls; + First; + while not Eof do + begin + + Edit; + if FQtyUnit = 'M' then + begin + FieldByName('Qty').Value := FieldByName('Meter').Value; + end + else if FQtyUnit = 'Y' then + begin + FieldByName('Qty').Value := FieldByName('Yardage').Value; + end + else + begin + FieldByName('Qty').Value := FieldByName('NetWeight').Value; + end; + + Post; + Next; + end; + EnableControls; + end; + if CDS_Sub.Locate('Qty', null, []) = True then + begin + Application.MessageBox('ÊýÁ¿²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); + Exit; + end; + if CDS_Sub.Locate('Qty', 0, []) = True then + begin + Application.MessageBox('ÊýÁ¿²»ÄÜΪ0!', 'Ìáʾ', 0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('±£´æ³É¹¦!', 'Ìáʾ', 0); + ModalResult := 1; + + end; +end; + +procedure TfrmItemizedListQtyInPut.ToolButton2Click(Sender: TObject); +var + MFiltration: string; + MPrintJson: string; +begin + if CDS_sub.IsEmpty then + Exit; + + if CDS_Sub.Locate('BCIOID', '', []) = True then + begin + Application.MessageBox('ÓÐÊý¾Ýδ±£´æÇëÏȱ£´æ!', 'Ìáʾ', 0); + Exit; + end; + if CDS_Sub.Locate('BCIOID', null, []) = True then + begin + Application.MessageBox('ÓÐÊý¾Ýδ±£´æÇëÏȱ£´æ!', 'Ìáʾ', 0); + Exit; + end; + MFiltration := ''; + with CDS_sub do + begin + First; + while not eof do + begin + MFiltration := MFiltration + ',' + CDS_sub.FieldByName('BCIOID').AsString; + next; + end; + end; + + MPrintJson := ' {"LMType": "TradeFinishClothInPrt1" '; + MPrintJson := MPrintJson + ' ,"PreviewPrint": true '; + MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } '; + FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson)); +end; + +procedure TfrmItemizedListQtyInPut.ToolButton5Click(Sender: TObject); +begin + inherited; + Close; +end; + +end. +