码单登记
This commit is contained in:
“ddf”
parent
2409611d30
commit
1832e9870c
|
|
@ -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 //
|
||||
|
|
|
|||
522
T02贸易汇总仓库/U_ItemizedListInPut.dfm
Normal file
522
T02贸易汇总仓库/U_ItemizedListInPut.dfm
Normal file
|
|
@ -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
|
||||
1012
T02贸易汇总仓库/U_ItemizedListInPut.pas
Normal file
1012
T02贸易汇总仓库/U_ItemizedListInPut.pas
Normal file
File diff suppressed because it is too large
Load Diff
641
T02贸易汇总仓库/U_ItemizedListList.dfm
Normal file
641
T02贸易汇总仓库/U_ItemizedListList.dfm
Normal file
|
|
@ -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
|
||||
766
T02贸易汇总仓库/U_ItemizedListList.pas
Normal file
766
T02贸易汇总仓库/U_ItemizedListList.pas
Normal file
|
|
@ -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.
|
||||
|
||||
308
T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm
Normal file
308
T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm
Normal file
|
|
@ -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
|
||||
707
T02贸易汇总仓库/U_ItemizedListQtyInPut.pas
Normal file
707
T02贸易汇总仓库/U_ItemizedListQtyInPut.pas
Normal file
|
|
@ -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<string>;
|
||||
rowColData: TArray<string>;
|
||||
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.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user