Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

码单登记

Browse Source
This commit is contained in:
“ddf” 2025-02-19 14:05:29 +08:00
parent 2409611d30
commit 1832e9870c
7 changed files with 3968 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
T02贸易汇总仓库/U_GetDllForm.pas
View File

@ -22,7 +22,8 @@ uses
U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList, U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList, U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList, U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList; U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList,
U_ItemizedListList;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -154,6 +155,16 @@ begin
end; end;
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: //贸易布匹入库 921: //贸易布匹入库
begin begin
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // 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
View 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
View File

File diff suppressed because it is too large Load Diff

641
T02贸易汇总仓库/U_ItemizedListList.dfm Normal file
View 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
View 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
View 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
View 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.