回仓调整
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
5383037be5
commit
5cc9996a3c
|
|
@ -78,10 +78,9 @@ object frmYGInPut: TfrmYGInPut
|
|||
Height = 502
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
ExplicitTop = 38
|
||||
ExplicitHeight = 494
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
|
|
@ -93,24 +92,28 @@ object frmYGInPut: TfrmYGInPut
|
|||
object v1RuZhiDate: TcxGridDBColumn
|
||||
Caption = #20837#32844#26085#26399
|
||||
DataBinding.FieldName = 'EntryDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 97
|
||||
end
|
||||
object v1YGNo: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'EECode'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
end
|
||||
object v1YGName: TcxGridDBColumn
|
||||
Caption = #22995#21517
|
||||
DataBinding.FieldName = 'EEName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 88
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #37096#38376
|
||||
DataBinding.FieldName = 'Dept'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
|
|
@ -118,18 +121,21 @@ object frmYGInPut: TfrmYGInPut
|
|||
object v1GangWei: TcxGridDBColumn
|
||||
Caption = #23703#20301
|
||||
DataBinding.FieldName = 'Post'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 82
|
||||
end
|
||||
object v1SFZNo: TcxGridDBColumn
|
||||
Caption = #29983#26085
|
||||
DataBinding.FieldName = 'Birthday'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1YGSex: TcxGridDBColumn
|
||||
Caption = #24615#21035
|
||||
DataBinding.FieldName = 'Sex'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.Items.Strings = (
|
||||
|
|
@ -141,36 +147,42 @@ object frmYGInPut: TfrmYGInPut
|
|||
object v1Phone: TcxGridDBColumn
|
||||
Caption = #25163#26426
|
||||
DataBinding.FieldName = 'Phone'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #36523#20221#35777
|
||||
DataBinding.FieldName = 'IdCard'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 73
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #36523#20221#35777#21040#26399#26085#26399
|
||||
DataBinding.FieldName = 'IDCardEndData'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 115
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #23478#24237#20303#22336
|
||||
DataBinding.FieldName = 'HomeAddress'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 104
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #25143#21475#25152#22312#22320
|
||||
DataBinding.FieldName = 'Domicile'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #31038#20445
|
||||
DataBinding.FieldName = 'SocialSecurity'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.Items.Strings = (
|
||||
''
|
||||
|
|
@ -181,6 +193,7 @@ object frmYGInPut: TfrmYGInPut
|
|||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #21830#19994#20445#38505
|
||||
DataBinding.FieldName = 'CommercialInsurance'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.Items.Strings = (
|
||||
''
|
||||
|
|
|
|||
|
|
@ -12,7 +12,8 @@ uses
|
|||
cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, Menus,
|
||||
ExtDlgs, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu;
|
||||
dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmYGInPut = class(TForm)
|
||||
|
|
@ -172,20 +173,20 @@ begin
|
|||
Edit;
|
||||
FieldByName('EEID').Value := Trim(maxno);
|
||||
end;
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('exec P_EE_in_Account @DataID=''' + Trim(maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox(PChar(ADOCmd.fieldbyname('ShowMsg').AsString), 'Ìáʾ', 0);
|
||||
exit;
|
||||
end;
|
||||
//
|
||||
// with ADOCmd do
|
||||
// begin
|
||||
// Close;
|
||||
// SQL.Clear;
|
||||
// sql.Add('exec P_EE_in_Account @DataID=''' + Trim(maxno) + '''');
|
||||
// Open;
|
||||
// end;
|
||||
// if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
// begin
|
||||
// ADOCmd.Connection.RollbackTrans;
|
||||
// Application.MessageBox(PChar(ADOCmd.fieldbyname('ShowMsg').AsString), 'Ìáʾ', 0);
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
next;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ uses
|
|||
cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu,
|
||||
cxNavigator, U_BaseList, dxDateRanges, cxContainer, cxTextEdit,
|
||||
dxScrollbarAnnotations, cxProgressBar;
|
||||
dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
|
||||
|
||||
type
|
||||
TfrmEmployeeList = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -48,7 +48,7 @@ uses
|
|||
U_TradeClothProcessNoteInput in 'U_TradeClothProcessNoteInput.pas' {frmTradeClothProcessNoteInput},
|
||||
U_TradeFtyClothInEdit in 'U_TradeFtyClothInEdit.pas' {frmTradeFtyClothInEdit},
|
||||
U_TradeClothTotalInList in 'U_TradeClothTotalInList.pas' {frmTradeClothTotalInList},
|
||||
U_TradeClothTotalOutList in 'U_TradeClothTotalOutList.pas' {frmTradeClothTotalOutList},
|
||||
U_TradeClothTotalPHList in '..\T05贸易门市管理\U_TradeClothTotalPHList.pas' {frmTradeClothTotalOutList},
|
||||
U_TradeClothCardCompleteList in '..\T01óÒ×Éú²ú¼Æ»®\U_TradeClothCardCompleteList.pas' {frmTradeClothCompleteInput},
|
||||
FrameDateSel in '..\A00ͨÓÃ×é¼þ\FrameDateSel.pas' {frmFrameDateSel: TFrame},
|
||||
U_TradePlanClothEnterInput in 'U_TradePlanClothEnterInput.pas' {frmTradePlanClothEnterInput},
|
||||
|
|
|
|||
|
|
@ -277,7 +277,7 @@
|
|||
<Form>frmTradeClothTotalInList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TradeClothTotalOutList.pas">
|
||||
<DCCReference Include="..\T05贸易门市管理\U_TradeClothTotalPHList.pas">
|
||||
<Form>frmTradeClothTotalOutList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
|
|
|
|||
|
|
@ -2,24 +2,25 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Left = 246
|
||||
Top = 116
|
||||
Caption = #24067#21305#37319#36141#35745#21010
|
||||
ClientHeight = 644
|
||||
ClientWidth = 1735
|
||||
ClientHeight = 565
|
||||
ClientWidth = 1416
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
ExplicitWidth = 1751
|
||||
ExplicitHeight = 683
|
||||
Visible = True
|
||||
ExplicitWidth = 1432
|
||||
ExplicitHeight = 604
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1735
|
||||
Width = 1416
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||
|
|
@ -37,23 +38,15 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 71
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 0
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 142
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 213
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -61,7 +54,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
OnClick = ToolButton7Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 316
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -72,14 +65,16 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
object Panel1: TPanel [1]
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1735
|
||||
Width = 1416
|
||||
Height = 83
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
ParentBackground = False
|
||||
ParentColor = True
|
||||
TabOrder = 7
|
||||
TabOrder = 5
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 1735
|
||||
object Label4: TLabel
|
||||
Left = 452
|
||||
Top = 50
|
||||
|
|
@ -104,16 +99,9 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
object Label1: TLabel
|
||||
Left = 674
|
||||
Top = 50
|
||||
Width = 32
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #24067#31181
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 864
|
||||
Top = 50
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #21152#24037#21035
|
||||
Caption = #33394#24067#21517#31216
|
||||
end
|
||||
object BuyName: TcxTextEdit
|
||||
Tag = 2
|
||||
|
|
@ -145,7 +133,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
inline frmFrameDateSel1: TfrmFrameDateSel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1731
|
||||
Width = 1412
|
||||
Height = 37
|
||||
Align = alTop
|
||||
Color = clWhite
|
||||
|
|
@ -182,29 +170,20 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
OnClick = cxButton5Click
|
||||
end
|
||||
end
|
||||
object GC_Name: TcxTextEdit
|
||||
object C_Name: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 710
|
||||
Left = 742
|
||||
Top = 46
|
||||
Properties.OnChange = PurNoPropertiesChange
|
||||
TabOrder = 4
|
||||
OnKeyPress = PurNoKeyPress
|
||||
Width = 150
|
||||
end
|
||||
object CraftCode: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 916
|
||||
Top = 46
|
||||
Properties.OnChange = PurNoPropertiesChange
|
||||
TabOrder = 5
|
||||
OnKeyPress = PurNoKeyPress
|
||||
Width = 150
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl [2]
|
||||
Left = 0
|
||||
Top = 113
|
||||
Width = 1735
|
||||
Width = 1416
|
||||
Height = 30
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
|
|
@ -216,29 +195,25 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
#13' '#24050#23436#25104' '
|
||||
#13' '#20840#37096' '#13)
|
||||
OnChange = cxTabControl1Change
|
||||
ExplicitWidth = 1735
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
object cxSplitter1: TcxSplitter [3]
|
||||
Left = 0
|
||||
Top = 367
|
||||
Width = 1735
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
end
|
||||
object cxGrid1: TcxGrid [4]
|
||||
object cxGrid1: TcxGrid [3]
|
||||
Left = 0
|
||||
Top = 143
|
||||
Width = 1735
|
||||
Height = 224
|
||||
Width = 1041
|
||||
Height = 422
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
TabOrder = 4
|
||||
ExplicitLeft = 2
|
||||
ExplicitTop = 149
|
||||
ExplicitWidth = 920
|
||||
object TV1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
OnFocusedRecordChanged = TV1FocusedRecordChanged
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -348,34 +323,11 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Options.Editing = False
|
||||
Width = 93
|
||||
end
|
||||
object TV1Column12: TcxGridDBColumn
|
||||
Caption = #24067#31181
|
||||
DataBinding.FieldName = 'GC_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 68
|
||||
end
|
||||
object TV1Column14: TcxGridDBColumn
|
||||
Caption = #21518#25972#29702#20013#25991
|
||||
DataBinding.FieldName = 'CraftName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object TV1Column13: TcxGridDBColumn
|
||||
Caption = #21152#24037#21035
|
||||
DataBinding.FieldName = 'CraftCode'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 87
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
|
|
@ -384,6 +336,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -392,6 +345,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -400,6 +354,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -408,12 +363,13 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
Caption = #19979#21333#25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
|
|
@ -483,122 +439,59 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
GridView = TV1
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar [5]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 375
|
||||
Width = 1735
|
||||
Height = 30
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 115
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 5
|
||||
object ToolButton2: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton2Click
|
||||
inherited loadProcess: TPanel
|
||||
Left = 361
|
||||
Top = 328
|
||||
ExplicitLeft = 361
|
||||
ExplicitTop = 328
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25220#30721
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton8Click
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 361
|
||||
Top = 275
|
||||
ExplicitLeft = 361
|
||||
ExplicitTop = 275
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 142
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 3
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
ImageIndex = 5
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 284
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #37319#36141#21333#23436#25104
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 403
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23436#25104
|
||||
ImageIndex = 11
|
||||
OnClick = ToolButton6Click
|
||||
end
|
||||
end
|
||||
object cxPageControl1: TcxPageControl [6]
|
||||
Left = 0
|
||||
Top = 405
|
||||
Width = 1735
|
||||
Height = 239
|
||||
Align = alBottom
|
||||
object Panel2: TPanel [6]
|
||||
Left = 1049
|
||||
Top = 143
|
||||
Width = 367
|
||||
Height = 422
|
||||
Align = alRight
|
||||
TabOrder = 6
|
||||
Properties.ActivePage = cxTabSheet2
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 5
|
||||
OnChange = cxPageControl1Change
|
||||
ClientRectBottom = 239
|
||||
ClientRectRight = 1735
|
||||
ClientRectTop = 32
|
||||
object cxTabSheet2: TcxTabSheet
|
||||
Caption = ' '#37319#36141#25968#25454' '
|
||||
ImageIndex = 1
|
||||
ExplicitLeft = 1112
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1735
|
||||
Height = 207
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 365
|
||||
Height = 390
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
TabOrder = 0
|
||||
ExplicitLeft = -2
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
end
|
||||
item
|
||||
Format = #21305#25968#65306'#'
|
||||
Kind = skCount
|
||||
Column = v1Column15
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
end
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skCount
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
|
|
@ -613,153 +506,21 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column15
|
||||
Column = TV2Column4
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = TV2Column2
|
||||
Kind = skSum
|
||||
Column = TV2Column3
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object TV2Column1: TcxGridDBColumn
|
||||
Caption = #26085#26399
|
||||
DataBinding.FieldName = 'IOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 115
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 124
|
||||
end
|
||||
object TV2Column2: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 76
|
||||
end
|
||||
object v1Column15: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Pieceint'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 102
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 118
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'Kg'
|
||||
'M'
|
||||
'Y')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 87
|
||||
end
|
||||
object cxGridDBColumn7: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'StkPosition'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object cxGridDBColumn13: TcxGridDBColumn
|
||||
Caption = #25805#20316#20154
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 97
|
||||
end
|
||||
object cxGridDBColumn14: TcxGridDBColumn
|
||||
Caption = #25805#20316#26102#38388
|
||||
DataBinding.FieldName = 'Filltime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 89
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'FtyPCId'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 95
|
||||
end
|
||||
object TV2Column3: TcxGridDBColumn
|
||||
Caption = #31561#32423
|
||||
DataBinding.FieldName = 'Grade'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object TV2Column4: TcxGridDBColumn
|
||||
Caption = #38477#32423#21407#22240
|
||||
DataBinding.FieldName = 'Downgrade'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 112
|
||||
end
|
||||
object TV2Column5: TcxGridDBColumn
|
||||
Caption = #32467#26696#31867#22411
|
||||
DataBinding.FieldName = 'SettlementType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 115
|
||||
end
|
||||
object TV2Column6: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'C_StyleNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
end
|
||||
object TV2Column7: TcxGridDBColumn
|
||||
Caption = #20837#24211#21333#21495
|
||||
DataBinding.FieldName = 'BCIONO'
|
||||
DataBinding.IsNullValueType = True
|
||||
|
|
@ -767,232 +528,81 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Options.Editing = False
|
||||
Width = 94
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = TV2
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxTabSheet3: TcxTabSheet
|
||||
Caption = ' '#20986#24211#25968#25454' '
|
||||
ImageIndex = 3
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1735
|
||||
Height = 207
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object TV3: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_3
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skCount
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn31
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn30
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object cxGridDBColumn15: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'ssel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
end
|
||||
object TV3Column1: TcxGridDBColumn
|
||||
Caption = #20986#24211#26102#38388
|
||||
object TV2Column2: TcxGridDBColumn
|
||||
Caption = #20837#24211#26102#38388
|
||||
DataBinding.FieldName = 'IOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 104
|
||||
end
|
||||
object TV3Column3: TcxGridDBColumn
|
||||
Caption = #20986#24211#31867#22411
|
||||
DataBinding.FieldName = 'IOType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 115
|
||||
Width = 85
|
||||
end
|
||||
object TV3Column2: TcxGridDBColumn
|
||||
Caption = #20986#21040#21333#20301
|
||||
DataBinding.FieldName = 'ToCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 112
|
||||
end
|
||||
object cxGridDBColumn16: TcxGridDBColumn
|
||||
Caption = #20986#24211#26085#26399
|
||||
DataBinding.FieldName = 'IOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 115
|
||||
end
|
||||
object cxGridDBColumn27: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'FtyPCId'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 124
|
||||
end
|
||||
object cxGridDBColumn28: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 88
|
||||
end
|
||||
object cxGridDBColumn29: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 83
|
||||
end
|
||||
object cxGridDBColumn30: TcxGridDBColumn
|
||||
object TV2Column4: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Pieceint'
|
||||
DataBinding.FieldName = 'Piece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 102
|
||||
Width = 73
|
||||
end
|
||||
object cxGridDBColumn31: TcxGridDBColumn
|
||||
Tag = 2
|
||||
object TV2Column3: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 118
|
||||
end
|
||||
object cxGridDBColumn32: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'Kg'
|
||||
'M'
|
||||
'Y')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 87
|
||||
end
|
||||
object cxGridDBColumn33: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'StkPosition'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 74
|
||||
end
|
||||
object cxGridDBColumn34: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object cxGridDBColumn35: TcxGridDBColumn
|
||||
Caption = #30331#35760#20154
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 97
|
||||
end
|
||||
object cxGridDBColumn36: TcxGridDBColumn
|
||||
Caption = #30331#35760#26102#38388
|
||||
DataBinding.FieldName = 'Filltime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 89
|
||||
end
|
||||
object TV3Column4: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'C_StyleNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 72
|
||||
end
|
||||
object TV3Column5: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 75
|
||||
Width = 81
|
||||
end
|
||||
end
|
||||
object cxGridLevel4: TcxGridLevel
|
||||
GridView = TV3
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
GridView = TV2
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 365
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton5: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #37319#36141#30721#21333
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 87
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 3
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 759
|
||||
Top = 387
|
||||
ExplicitLeft = 759
|
||||
ExplicitTop = 387
|
||||
ExplicitHeight = 29
|
||||
object cxSplitter1: TcxSplitter [7]
|
||||
Left = 1041
|
||||
Top = 143
|
||||
Width = 8
|
||||
Height = 422
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salRight
|
||||
Control = Panel2
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 557
|
||||
ExplicitHeight = 1479
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
|
|
@ -1013,15 +623,15 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
Parameters = <>
|
||||
Left = 304
|
||||
Top = 264
|
||||
Left = 232
|
||||
Top = 288
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 192
|
||||
Top = 272
|
||||
Left = 640
|
||||
Top = 200
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
|
|
@ -1042,8 +652,8 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Top = 288
|
||||
end
|
||||
object pm1: TPopupMenu
|
||||
Left = 384
|
||||
Top = 272
|
||||
Left = 304
|
||||
Top = 192
|
||||
object N5: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N5Click
|
||||
|
|
@ -1063,52 +673,22 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
|
|||
Left = 136
|
||||
Top = 491
|
||||
end
|
||||
object DS_2: TDataSource
|
||||
DataSet = CDS_2
|
||||
Left = 744
|
||||
Top = 352
|
||||
end
|
||||
object CDS_2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 704
|
||||
Top = 352
|
||||
end
|
||||
object GPM_2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 664
|
||||
Top = 352
|
||||
end
|
||||
object ADO_2: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 592
|
||||
Left = 560
|
||||
Top = 344
|
||||
end
|
||||
object ADO_3: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 598
|
||||
Top = 414
|
||||
end
|
||||
object GPM_3: TcxGridPopupMenu
|
||||
Grid = cxGrid3
|
||||
object GPM_2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 626
|
||||
Top = 444
|
||||
Left = 584
|
||||
Top = 432
|
||||
end
|
||||
object CDS_3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 694
|
||||
Top = 428
|
||||
end
|
||||
object DS_3: TDataSource
|
||||
DataSet = CDS_3
|
||||
Left = 764
|
||||
Top = 418
|
||||
object DS_2: TDataSource
|
||||
DataSet = ADO_2
|
||||
Left = 664
|
||||
Top = 432
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -32,7 +32,6 @@ type
|
|||
BuyName: TcxTextEdit;
|
||||
PurNo: TcxTextEdit;
|
||||
cxTabControl1: TcxTabControl;
|
||||
cxSplitter1: TcxSplitter;
|
||||
CDS_1: TClientDataSet;
|
||||
Label3: TLabel;
|
||||
SellName: TcxTextEdit;
|
||||
|
|
@ -62,74 +61,26 @@ type
|
|||
TV1Column4: TcxGridDBColumn;
|
||||
TV1Column7: TcxGridDBColumn;
|
||||
TV1Column8: TcxGridDBColumn;
|
||||
ToolButton1: TToolButton;
|
||||
DS_2: TDataSource;
|
||||
CDS_2: TClientDataSet;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
ADO_2: TADOQuery;
|
||||
TV1Column5: TcxGridDBColumn;
|
||||
TV1Column6: TcxGridDBColumn;
|
||||
TV1Column9: TcxGridDBColumn;
|
||||
TV1Column12: TcxGridDBColumn;
|
||||
TV1Column13: TcxGridDBColumn;
|
||||
TV1Column14: TcxGridDBColumn;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton2: TToolButton;
|
||||
ToolButton3: TToolButton;
|
||||
ToolButton4: TToolButton;
|
||||
ToolButton5: TToolButton;
|
||||
ToolButton6: TToolButton;
|
||||
cxPageControl1: TcxPageControl;
|
||||
cxTabSheet2: TcxTabSheet;
|
||||
cxTabSheet3: TcxTabSheet;
|
||||
Label1: TLabel;
|
||||
C_Name: TcxTextEdit;
|
||||
Panel2: TPanel;
|
||||
cxSplitter1: TcxSplitter;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
TV2Column1: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column15: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
cxGridDBColumn7: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
cxGridDBColumn13: TcxGridDBColumn;
|
||||
cxGridDBColumn14: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
cxGrid3: TcxGrid;
|
||||
TV3: TcxGridDBTableView;
|
||||
cxGridDBColumn15: TcxGridDBColumn;
|
||||
TV3Column1: TcxGridDBColumn;
|
||||
TV3Column3: TcxGridDBColumn;
|
||||
TV3Column2: TcxGridDBColumn;
|
||||
cxGridDBColumn16: TcxGridDBColumn;
|
||||
cxGridDBColumn27: TcxGridDBColumn;
|
||||
cxGridDBColumn28: TcxGridDBColumn;
|
||||
cxGridDBColumn29: TcxGridDBColumn;
|
||||
cxGridDBColumn30: TcxGridDBColumn;
|
||||
cxGridDBColumn31: TcxGridDBColumn;
|
||||
cxGridDBColumn32: TcxGridDBColumn;
|
||||
cxGridDBColumn33: TcxGridDBColumn;
|
||||
cxGridDBColumn34: TcxGridDBColumn;
|
||||
cxGridDBColumn35: TcxGridDBColumn;
|
||||
cxGridDBColumn36: TcxGridDBColumn;
|
||||
cxGridLevel4: TcxGridLevel;
|
||||
ADO_3: TADOQuery;
|
||||
GPM_3: TcxGridPopupMenu;
|
||||
CDS_3: TClientDataSet;
|
||||
DS_3: TDataSource;
|
||||
ToolButton8: TToolButton;
|
||||
TV2Column2: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
GC_Name: TcxTextEdit;
|
||||
CraftCode: TcxTextEdit;
|
||||
TV2Column3: TcxGridDBColumn;
|
||||
TV2Column4: TcxGridDBColumn;
|
||||
TV2Column5: TcxGridDBColumn;
|
||||
TV2Column6: TcxGridDBColumn;
|
||||
TV3Column4: TcxGridDBColumn;
|
||||
TV3Column5: TcxGridDBColumn;
|
||||
TV2Column7: TcxGridDBColumn;
|
||||
ADO_2: TADOQuery;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
DS_2: TDataSource;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton5: TToolButton;
|
||||
ToolButton1: TToolButton;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBFindClick(Sender: TObject);
|
||||
|
|
@ -146,30 +97,22 @@ type
|
|||
procedure FormCreate(Sender: TObject);
|
||||
procedure N5Click(Sender: TObject);
|
||||
procedure N6Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure PurNoPropertiesChange(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure ToolButton6Click(Sender: TObject);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||
procedure ToolButton8Click(Sender: TObject);
|
||||
procedure cxButton4Click(Sender: TObject);
|
||||
procedure cxButton1Click(Sender: TObject);
|
||||
procedure cxButton5Click(Sender: TObject);
|
||||
procedure cxButton2Click(Sender: TObject);
|
||||
procedure cxButton3Click(Sender: TObject);
|
||||
procedure PurNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
private
|
||||
fFlileFlag: string;
|
||||
procedure InitGrid();
|
||||
procedure InitGridIO();
|
||||
procedure SetStatus();
|
||||
procedure InitImage();
|
||||
procedure DelGrid2IO();
|
||||
procedure DelGrid3IO();
|
||||
procedure InitGrid2();
|
||||
{ Private declarations }
|
||||
public
|
||||
|
||||
|
|
@ -179,53 +122,24 @@ type
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_LabelPrint, U_PurClothEnterInput, U_TradeCardInPut;
|
||||
U_DataLink, U_RTFun, U_LabelPrint, U_PurClothEnterInput,
|
||||
U_ClothPurchaseQtyInPut;
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmClothPurchaseEnterList.InitGridIO();
|
||||
procedure TfrmClothPurchaseEnterList.InitGrid2();
|
||||
var
|
||||
SqlStr: string;
|
||||
begin
|
||||
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
0:
|
||||
begin
|
||||
SqlStr := ' select A.*,Pieceint=CEILING(A.Piece)';
|
||||
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
|
||||
SqlStr := SqlStr + 'where A.FromPurSId = ' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString));
|
||||
SqlStr := SqlStr + 'and A.IOType =''采购入库'' and STKName=''贸易布匹'' ';
|
||||
|
||||
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', '');
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
SqlStr := ' select A.*,Pieceint=CEILING(A.Piece)';
|
||||
SqlStr := SqlStr + 'from BS_Cloth_IO A ';
|
||||
SqlStr := SqlStr + 'where EXISTS( select X.Stkid from BS_Cloth_IO X ';
|
||||
SqlStr := SqlStr + ' where X.IOType =''采购入库'' and X.Stkid=A.Stkid and X.FromPurSId =' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString)) + ')';
|
||||
SqlStr := SqlStr + 'and A.IOFlag =''出库'' and STKName=''贸易布匹'' ';
|
||||
// ShowMessage(SqlStr);
|
||||
InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', '');
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.InitImage();
|
||||
begin
|
||||
|
||||
ADOQueryImage.Close;
|
||||
if CDS_1.IsEmpty then
|
||||
exit;
|
||||
with ADOQueryImage do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from TP_File A');
|
||||
sql.Add('where WBID=' + quotedstr(trim(CDS_1.fieldbyname('SubId').AsString)));
|
||||
sql.Add('and TFType=' + quotedstr(trim('HX')));
|
||||
open;
|
||||
end;
|
||||
EXIT;
|
||||
SqlStr := 'select A.BCIONO,IOTime=convert(varchar(10),A.IOTime,120) ,Qty=sum(A.Qty) ,Piece=sum(A.Piece) ';
|
||||
SqlStr := SqlStr + 'from BS_Cloth_IO A ';
|
||||
SqlStr := SqlStr + 'where A.IOType=''²É¹ºÈë¿â'' and A.FromPurSId=' + quotedstr(trim(CDS_1.fieldbyname('PurSId').asstring));
|
||||
SqlStr := SqlStr + 'group by A.BCIONO,convert(varchar(10),A.IOTime,120) ';
|
||||
|
||||
InitAdoData(ADO_2, Tv2, SqlStr, '', '');
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.N1Click(Sender: TObject);
|
||||
|
|
@ -338,7 +252,6 @@ begin
|
|||
fFlileFlag := UserDataFlag + 'HX';
|
||||
readCxGrid(trim(Self.Caption) + 'tv1', Tv1, '成品仓库管理');
|
||||
readCxGrid(trim(Self.Caption) + 'tv2', Tv2, '成品仓库管理');
|
||||
readCxGrid(trim(Self.Caption) + 'tv3', Tv3, '成品仓库管理');
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
|
@ -397,11 +310,6 @@ begin
|
|||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.cxPageControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGridIO();
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
SetStatus();
|
||||
|
|
@ -409,79 +317,17 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.ToolButton1Click(Sender: TObject);
|
||||
var
|
||||
Maxno: string;
|
||||
begin
|
||||
|
||||
PurNo.SetFocus;
|
||||
if CDS_1.IsEmpty then
|
||||
if ADO_2.IsEmpty then
|
||||
Exit;
|
||||
if Application.MessageBox('确定要保存回仓数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
CDS_1.DisableControls;
|
||||
with CDS_1 do
|
||||
frmClothPurchaseQtyInPut := TfrmClothPurchaseQtyInPut.Create(Application);
|
||||
with frmClothPurchaseQtyInPut do
|
||||
begin
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
if CDS_1.fieldbyname('BCHCQty').AsFloat > 0 then
|
||||
begin
|
||||
|
||||
if not GetLSNo(ADOQueryCmd, Maxno, 'YR', 'BS_Yarn_IO', 3, 1) then
|
||||
raise Exception.Create('取入库编号失败！');
|
||||
|
||||
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_1.fieldbyname('BYIOID').AsString)));
|
||||
sql.Add(',''删除'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(Trim(CDS_1.fieldbyname('BYIOID').AsString)));
|
||||
sql.Add(') ');
|
||||
|
||||
Sql.Add('exec P_BS_Yarn_OutReturn ');
|
||||
|
||||
Sql.Add(' @BYIOID=' + quotedstr(CDS_1.fieldbyname('BYIOID').AsString));
|
||||
Sql.Add(',@Piece=' + CDS_1.fieldbyname('BCHCPiece').AsString);
|
||||
Sql.Add(',@Qty=' + CDS_1.fieldbyname('BCHCQty').AsString);
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
Sql.Add(',@Maxno=' + quotedstr(Trim(Maxno)));
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
CDS_1.EnableControls;
|
||||
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
InitGrid();
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmPurClothEnterInput := TfrmPurClothEnterInput.Create(Application);
|
||||
with frmPurClothEnterInput do
|
||||
begin
|
||||
FBCIOID := '';
|
||||
FBCIONO := Trim(ADO_2.fieldbyname('BCIONO').AsString);
|
||||
FQtyUnit := Trim(CDS_1.fieldbyname('QtyUnit').AsString);
|
||||
FPurMId := Trim(CDS_1.fieldbyname('PurMId').AsString);
|
||||
FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
|
@ -489,220 +335,29 @@ begin
|
|||
end;
|
||||
end;
|
||||
finally
|
||||
frmPurClothEnterInput.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
if cxPageControl1.ActivePageIndex <> 0 then
|
||||
Exit;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_BS_Cloth_In_Edit ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_2.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
|
||||
frmPurClothEnterInput := TfrmPurClothEnterInput.Create(Application);
|
||||
with frmPurClothEnterInput do
|
||||
begin
|
||||
FBCIOID := Trim(CDS_2.fieldbyname('BCIOID').AsString);
|
||||
FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmPurClothEnterInput.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
|
||||
0:
|
||||
begin
|
||||
DelGrid2IO()
|
||||
end;
|
||||
|
||||
1:
|
||||
begin
|
||||
DelGrid3IO()
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.DelGrid2IO();
|
||||
var
|
||||
MBCIOID, MBCIONO: string;
|
||||
begin
|
||||
if CDS_2.IsEmpty then
|
||||
Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
MBCIOID := Trim(CDS_2.fieldbyname('BCIOID').AsString);
|
||||
MBCIONO := Trim(CDS_2.fieldbyname('BCIONO').AsString);
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec P_Fin_Flow_Judge ');
|
||||
Sql.Add(' @FFIDS=' + quotedstr(MBCIONO));
|
||||
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(MBCIONO));
|
||||
sql.Add(',''删除'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(MBCIOID));
|
||||
sql.Add(') ');
|
||||
|
||||
Sql.Add('exec P_BS_Cloth_In_Del ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
|
||||
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;
|
||||
InitGrid();
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.DelGrid3IO();
|
||||
var
|
||||
MBCIOID: string;
|
||||
begin
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
|
||||
MBCIOID := SelCDSKey(CDS_3, ['BCIOID'])[0];
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec P_Fin_Flow_Judge ');
|
||||
Sql.Add(' @FFIDS=' + quotedstr(MBCIOID));
|
||||
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(MBCIOID));
|
||||
sql.Add(',''删除'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(MBCIOID));
|
||||
sql.Add(') ');
|
||||
|
||||
Sql.Add('exec P_BS_Cloth_Out_Del ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
// ShowMessage(sql.Text);
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
InitGridIO();
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
InitGridIO();
|
||||
frmClothPurchaseQtyInPut.Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.ToolButton5Click(Sender: TObject);
|
||||
var
|
||||
MPurMIdS: string;
|
||||
begin
|
||||
if CDS_1.IsEmpty then
|
||||
exit;
|
||||
MPurMIdS := trim(CDS_1.fieldbyname('PurMId').AsString);
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
frmClothPurchaseQtyInPut := TfrmClothPurchaseQtyInPut.Create(Application);
|
||||
with frmClothPurchaseQtyInPut do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
|
||||
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
|
||||
sql.Add(',@Operation=''完成'' ');
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
|
||||
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('采购计划ID：' + trim(MPurMIdS))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
open;
|
||||
FBCIONO := '';
|
||||
FQtyUnit := Trim(CDS_1.fieldbyname('QtyUnit').AsString);
|
||||
FPurMId := Trim(CDS_1.fieldbyname('PurMId').AsString);
|
||||
FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
application.MessageBox('完成成功', '提示');
|
||||
InitGrid();
|
||||
except
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
finally
|
||||
frmClothPurchaseQtyInPut.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.ToolButton6Click(Sender: TObject);
|
||||
|
|
@ -750,31 +405,11 @@ procedure TfrmClothPurchaseEnterList.ToolButton7Click(Sender: TObject);
|
|||
begin
|
||||
writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, '成品仓库管理');
|
||||
writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, '成品仓库管理');
|
||||
writeCxGrid(trim(Self.Caption) + 'tv3', Tv3, '成品仓库管理');
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.ToolButton8Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmTradeCardInPut := TfrmTradeCardInPut.Create(Application);
|
||||
with frmTradeCardInPut do
|
||||
begin
|
||||
FPursId := Trim(Self.CDS_1.fieldbyname('PursId').AsString);
|
||||
FMainId := '';
|
||||
FSubId := '';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGridIO();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmTradeCardInPut.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseEnterList.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||
begin
|
||||
InitGridIO();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
314
T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm
Normal file
314
T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm
Normal file
|
|
@ -0,0 +1,314 @@
|
|||
inherited frmClothPurchaseQtyInPut: TfrmClothPurchaseQtyInPut
|
||||
Left = 67
|
||||
Top = 126
|
||||
Caption = #26126#32454#20837#24211#30331#35760
|
||||
ClientHeight = 499
|
||||
ClientWidth = 917
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -16
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
ExplicitWidth = 933
|
||||
ExplicitHeight = 538
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object pnl1: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 917
|
||||
Height = 499
|
||||
Align = alClient
|
||||
Caption = 'pnl1'
|
||||
TabOrder = 0
|
||||
object cxGrid1: TcxGrid
|
||||
Tag = 2
|
||||
Left = 1
|
||||
Top = 72
|
||||
Width = 915
|
||||
Height = 426
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 69
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnKeyDown = Tv1KeyDown
|
||||
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
|
||||
OptionsCustomize.ColumnSorting = False
|
||||
OptionsSelection.MultiSelect = True
|
||||
OptionsSelection.CellMultiSelect = True
|
||||
OptionsSelection.InvertSelect = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.Indicator = True
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Piece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
end
|
||||
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 = 915
|
||||
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
|
||||
end
|
||||
object pnl2: TPanel
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 915
|
||||
Height = 41
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
object Label9: TLabel
|
||||
Left = 33
|
||||
Top = 7
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #21305#25968
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 171
|
||||
Top = 7
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #25968#37327
|
||||
end
|
||||
object lbl5: TLabel
|
||||
Left = 309
|
||||
Top = 7
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #26085#26399
|
||||
end
|
||||
object inPiece: TcxCurrencyEdit
|
||||
Left = 69
|
||||
Top = 3
|
||||
Properties.AssignedValues.DisplayFormat = True
|
||||
TabOrder = 0
|
||||
Width = 98
|
||||
end
|
||||
object inQty: TcxCurrencyEdit
|
||||
Left = 207
|
||||
Top = 3
|
||||
Properties.AssignedValues.DisplayFormat = True
|
||||
TabOrder = 1
|
||||
OnKeyPress = inQtyKeyPress
|
||||
Width = 98
|
||||
end
|
||||
object IOTime: TcxDateEdit
|
||||
Left = 345
|
||||
Top = 3
|
||||
Properties.ShowTime = False
|
||||
TabOrder = 2
|
||||
Width = 200
|
||||
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 = 586
|
||||
Top = 129
|
||||
DesignInfo = 8454730
|
||||
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
|
||||
end
|
||||
673
T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas
Normal file
673
T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas
Normal file
|
|
@ -0,0 +1,673 @@
|
|||
unit U_ClothPurchaseQtyInPut;
|
||||
|
||||
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
|
||||
TfrmClothPurchaseQtyInPut = 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;
|
||||
ToolButton2: TToolButton;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
lbl5: TLabel;
|
||||
IOTime: TcxDateEdit;
|
||||
Tv1Column6: 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 ToolButton2Click(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure btnAddClick(Sender: TObject);
|
||||
procedure Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
function SaveData(): Boolean;
|
||||
procedure NianTie();
|
||||
function Split(const s: string; Separator: char): TStringDynArray;
|
||||
public
|
||||
{ Public declarations }
|
||||
FBCIONO, FPurMId, FPurSId, FQtyUnit: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmClothPurchaseQtyInPut: TfrmClothPurchaseQtyInPut;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_RPFun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
// 分割字符串函数
|
||||
function TfrmClothPurchaseQtyInPut.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
|
||||
if s[i] = Separator then
|
||||
Inc(SeparatorCount);
|
||||
|
||||
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 TfrmClothPurchaseQtyInPut.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 TfrmClothPurchaseQtyInPut.btnAddClick(Sender: TObject);
|
||||
begin
|
||||
// if CDS_Sub.IsEmpty = False then
|
||||
// begin
|
||||
// CopyAddRowCDS(CDS_Sub);
|
||||
// with CDS_Sub do
|
||||
// begin
|
||||
// Edit;
|
||||
// FieldByName('Piece').Value := 1;
|
||||
// FieldByName('BCIOID').Value := null;
|
||||
// FieldByName('StkCoNo').Value := '本厂仓库';
|
||||
// FieldByName('StkCoName').Value := '本厂仓库';
|
||||
// post;
|
||||
// end;
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
with CDS_Sub do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('Piece').Value := 1;
|
||||
// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
|
||||
FieldByName('StkCoNo').Value := '本厂仓库';
|
||||
FieldByName('StkCoName').Value := '本厂仓库';
|
||||
|
||||
Post;
|
||||
end;
|
||||
// end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseQtyInPut.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;
|
||||
FieldByName('Piece').Value := 1;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
WorkBook.Close;
|
||||
excelApp.Quit;
|
||||
excelApp := Unassigned;
|
||||
WorkBook := Unassigned;
|
||||
except
|
||||
WorkBook.Close;
|
||||
excelApp.Quit;
|
||||
excelApp := Unassigned;
|
||||
WorkBook := Unassigned;
|
||||
exit;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseQtyInPut.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseQtyInPut.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
IOTime.Date := SGetServerDate(ADOQueryTemp);
|
||||
end;
|
||||
|
||||
function TfrmClothPurchaseQtyInPut.SaveData(): Boolean;
|
||||
var
|
||||
Maxno, MBCIOID: string;
|
||||
begin
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
if FBCIONo = '' then
|
||||
if not GetLSNo(ADOQueryCmd, FBCIONo, 'RK', 'BS_Cloth_IO', 4, 1) then
|
||||
raise Exception.Create('取染色坯布入库编号失败！');
|
||||
|
||||
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;
|
||||
FieldByName('IOTime').Value := IOTime.Date;
|
||||
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('FromPurMId').Value := FPurMId;
|
||||
FieldByName('FromPurSId').Value := FPurSId;
|
||||
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_UpdateByPurchase ');
|
||||
Sql.Add(' @PurSId=' + quotedstr(Trim(FPurSId)));
|
||||
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 TfrmClothPurchaseQtyInPut.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 BCIONo=''' + Trim(FBCIONo) + '''');
|
||||
sql.Add(' order by qty desc ');
|
||||
Open;
|
||||
end;
|
||||
if not ADOQueryTemp.IsEmpty then
|
||||
IOTime.Date := ADOQueryTemp.FieldByName('IOTime').AsDateTime;
|
||||
|
||||
SCreateCDS(ADOQueryTemp, CDS_Sub);
|
||||
SInitCDSData(ADOQueryTemp, CDS_Sub);
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseQtyInPut.FromCoNameDblClick(Sender: TObject);
|
||||
begin
|
||||
TcxButtonEdit(Sender).Text := '';
|
||||
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseQtyInPut.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;
|
||||
|
||||
if FQtyUnit = 'M' then
|
||||
begin
|
||||
FieldByName('Meter').Value := StrTofloatDef(inQty.Text, 0);
|
||||
end
|
||||
else if FQtyUnit = '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 TfrmClothPurchaseQtyInPut.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 TfrmClothPurchaseQtyInPut.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 TfrmClothPurchaseQtyInPut.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 TfrmClothPurchaseQtyInPut.ToolButton5Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmClothPurchaseQtyInPut.Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
begin
|
||||
|
||||
// 检测是否按下 Ctrl+V
|
||||
if (Key = Ord('V')) and (Shift = [ssCtrl]) then
|
||||
begin
|
||||
pasteDatatTocxGrid(Tv1);
|
||||
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -2,13 +2,15 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
Left = 246
|
||||
Top = 116
|
||||
Caption = #24067#21305#21152#24037#35745#21010
|
||||
ClientHeight = 725
|
||||
ClientHeight = 617
|
||||
ClientWidth = 1520
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Visible = True
|
||||
ExplicitTop = -10
|
||||
ExplicitWidth = 1536
|
||||
ExplicitHeight = 764
|
||||
ExplicitHeight = 656
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -193,10 +195,11 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
Left = 0
|
||||
Top = 143
|
||||
Width = 1520
|
||||
Height = 313
|
||||
Height = 205
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
TabOrder = 2
|
||||
ExplicitHeight = 313
|
||||
object TV1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -448,7 +451,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
object ToolBar2: TToolBar [3]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 456
|
||||
Top = 348
|
||||
Width = 1520
|
||||
Height = 30
|
||||
Align = alBottom
|
||||
|
|
@ -463,6 +466,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
ExplicitTop = 456
|
||||
object ToolButton5: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -515,7 +519,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
end
|
||||
object cxPageControl1: TcxPageControl [4]
|
||||
Left = 0
|
||||
Top = 486
|
||||
Top = 378
|
||||
Width = 1520
|
||||
Height = 239
|
||||
Align = alBottom
|
||||
|
|
@ -524,15 +528,13 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 5
|
||||
OnChange = cxPageControl1Change
|
||||
ExplicitTop = 486
|
||||
ClientRectBottom = 239
|
||||
ClientRectRight = 1520
|
||||
ClientRectTop = 32
|
||||
object cxTabSheet2: TcxTabSheet
|
||||
Caption = ' '#37197#24067#25968#25454' '
|
||||
ImageIndex = 1
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -893,9 +895,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
object cxTabSheet1: TcxTabSheet
|
||||
Caption = ' '#23436#24037#21450#25220#30721#25968#25454' '
|
||||
ImageIndex = 2
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object cxGrid4: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -1111,9 +1110,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
object cxTabSheet4: TcxTabSheet
|
||||
Caption = #38754#26009#20986#24211
|
||||
ImageIndex = 3
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object cxGrid5: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -1308,9 +1304,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList
|
|||
object cxTabSheet5: TcxTabSheet
|
||||
Caption = #29983#20135#22791#27880
|
||||
ImageIndex = 4
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object cxGrid6: TcxGrid
|
||||
Tag = 2
|
||||
Left = 0
|
||||
|
|
|
|||
|
|
@ -3,11 +3,11 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Top = 4
|
||||
Caption = #35746#21333#24405#20837
|
||||
ClientHeight = 593
|
||||
ClientWidth = 1040
|
||||
ClientWidth = 1153
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -16
|
||||
Position = poMainFormCenter
|
||||
ExplicitWidth = 1056
|
||||
ExplicitWidth = 1169
|
||||
ExplicitHeight = 632
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
|
|
@ -15,7 +15,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1040
|
||||
Width = 1153
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
|
|
@ -27,6 +27,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1040
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -72,7 +73,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Tag = 1
|
||||
Left = 0
|
||||
Top = 193
|
||||
Width = 1040
|
||||
Width = 1153
|
||||
Height = 30
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
|
|
@ -83,6 +84,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
ExplicitWidth = 1040
|
||||
object btnAdd: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -112,27 +114,30 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
object Panel2: TPanel [2]
|
||||
Left = 0
|
||||
Top = 223
|
||||
Width = 1040
|
||||
Width = 1153
|
||||
Height = 370
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 1040
|
||||
object Panel3: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1038
|
||||
Width = 1151
|
||||
Height = 368
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1038
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1036
|
||||
Width = 1149
|
||||
Height = 366
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu2
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1036
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = Tv1DblClick
|
||||
OnMouseDown = Tv1MouseDown
|
||||
|
|
@ -336,7 +341,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
object ScrollBox1: TScrollBox [3]
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1040
|
||||
Width = 1153
|
||||
Height = 163
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
|
|
@ -345,6 +350,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
|
|||
Ctl3D = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 3
|
||||
ExplicitWidth = 1040
|
||||
object Label3: TLabel
|
||||
Left = 377
|
||||
Top = 11
|
||||
|
|
|
|||
|
|
@ -1,13 +1,16 @@
|
|||
inherited frmItemizedListList: TfrmItemizedListList
|
||||
Left = 165
|
||||
Top = 13
|
||||
Caption = #29983#20135#35745#21010#21333#31649#29702
|
||||
Caption = #30721#21333#30331#35760
|
||||
ClientHeight = 736
|
||||
ClientWidth = 1773
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitLeft = -320
|
||||
ExplicitTop = -129
|
||||
ExplicitWidth = 1789
|
||||
ExplicitHeight = 775
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -226,6 +229,9 @@ inherited frmItemizedListList: TfrmItemizedListList
|
|||
Height = 584
|
||||
Align = alClient
|
||||
TabOrder = 5
|
||||
ExplicitLeft = -152
|
||||
ExplicitTop = 158
|
||||
ExplicitHeight = 576
|
||||
object TV1: TcxGridDBTableView
|
||||
OnDblClick = TV1DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Left = 261
|
||||
Top = 149
|
||||
Caption = #37319#36141#22238#20179
|
||||
ClientHeight = 359
|
||||
ClientHeight = 319
|
||||
ClientWidth = 878
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -11,7 +11,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
ExplicitWidth = 894
|
||||
ExplicitHeight = 398
|
||||
ExplicitHeight = 358
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -22,7 +22,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 115
|
||||
ButtonWidth = 99
|
||||
Caption = 'ToolBar1'
|
||||
Color = clWhite
|
||||
DisabledImages = DataLink_TradeTotalClothStk.ImageList_new32
|
||||
|
|
@ -39,24 +39,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
ImageIndex = 16
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#24182#25220#30721
|
||||
ImageIndex = 16
|
||||
Visible = False
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 190
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 293
|
||||
Left = 174
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -68,7 +59,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Left = 0
|
||||
Top = 30
|
||||
Width = 878
|
||||
Height = 329
|
||||
Height = 289
|
||||
Align = alClient
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
|
|
@ -78,58 +69,59 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
ParentColor = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
ExplicitHeight = 329
|
||||
object Label2: TLabel
|
||||
Left = 317
|
||||
Left = 306
|
||||
Top = 48
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #32534#21495
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 29
|
||||
Top = 238
|
||||
Left = 16
|
||||
Top = 195
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #22791#27880
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 29
|
||||
Left = 16
|
||||
Top = 124
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #25209#21495
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 621
|
||||
Left = 589
|
||||
Top = 85
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #24211#20301
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 301
|
||||
Left = 306
|
||||
Top = 10
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #20379#24212#21830
|
||||
end
|
||||
object lbl5: TLabel
|
||||
Left = 29
|
||||
Left = 16
|
||||
Top = 10
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #26085#26399
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 317
|
||||
Top = 124
|
||||
Left = 306
|
||||
Top = 162
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #21305#25968
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 317
|
||||
Top = 163
|
||||
Left = 589
|
||||
Top = 162
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #25968#37327
|
||||
|
|
@ -142,28 +134,28 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Caption = #23384#25918#21333#20301
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 621
|
||||
Left = 589
|
||||
Top = 48
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #21697#21517
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 29
|
||||
Left = 16
|
||||
Top = 85
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #39068#33394
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 13
|
||||
Left = 16
|
||||
Top = 48
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #37319#36141#21333
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 317
|
||||
Left = 306
|
||||
Top = 85
|
||||
Width = 32
|
||||
Height = 21
|
||||
|
|
@ -178,29 +170,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Visible = False
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 29
|
||||
Top = 166
|
||||
Left = 16
|
||||
Top = 162
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #32568#21495
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 589
|
||||
Top = 205
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #32467#26696#31867#22411
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 285
|
||||
Top = 205
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #38477#32423#21407#22240
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 29
|
||||
Top = 205
|
||||
Left = 306
|
||||
Top = 124
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #31561#32423
|
||||
|
|
@ -251,7 +229,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
end
|
||||
object Note: TcxMemo
|
||||
Left = 71
|
||||
Top = 238
|
||||
Top = 195
|
||||
TabOrder = 4
|
||||
Height = 77
|
||||
Width = 788
|
||||
|
|
@ -264,15 +242,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Width = 200
|
||||
end
|
||||
object Qty: TcxCurrencyEdit
|
||||
Left = 359
|
||||
Top = 159
|
||||
Left = 659
|
||||
Top = 158
|
||||
Properties.AssignedValues.DisplayFormat = True
|
||||
TabOrder = 6
|
||||
Width = 133
|
||||
end
|
||||
object Piece: TcxCurrencyEdit
|
||||
Left = 359
|
||||
Top = 120
|
||||
Top = 158
|
||||
Properties.AssignedValues.DisplayFormat = True
|
||||
TabOrder = 7
|
||||
Width = 200
|
||||
|
|
@ -300,8 +278,8 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Width = 200
|
||||
end
|
||||
object QtyUnit: TcxTextEdit
|
||||
Left = 498
|
||||
Top = 159
|
||||
Left = 798
|
||||
Top = 158
|
||||
Enabled = False
|
||||
TabOrder = 10
|
||||
Width = 61
|
||||
|
|
@ -314,8 +292,8 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
Width = 200
|
||||
end
|
||||
object FromPurNo: TcxTextEdit
|
||||
Left = 71
|
||||
Top = 44
|
||||
Left = 70
|
||||
Top = 41
|
||||
Enabled = False
|
||||
TabOrder = 12
|
||||
Width = 200
|
||||
|
|
@ -340,7 +318,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
end
|
||||
object C_Composition: TcxTextEdit
|
||||
Left = 359
|
||||
Top = 81
|
||||
Top = 79
|
||||
Enabled = False
|
||||
TabOrder = 15
|
||||
Width = 200
|
||||
|
|
@ -428,60 +406,22 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
|
|||
end
|
||||
object FtyPCId: TcxTextEdit
|
||||
Left = 71
|
||||
Top = 160
|
||||
Top = 158
|
||||
TabOrder = 25
|
||||
Width = 200
|
||||
end
|
||||
object SettlementType: TcxButtonEdit
|
||||
Tag = 4
|
||||
Left = 659
|
||||
Top = 199
|
||||
Hint = 'SettlementType/'#32467#26696#31867#22411
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = BuyNamePropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 26
|
||||
OnDblClick = CoBusinessTypeDblClick
|
||||
Width = 200
|
||||
end
|
||||
object Downgrade: TcxButtonEdit
|
||||
Tag = 4
|
||||
object Grade: TComboBox
|
||||
Left = 359
|
||||
Top = 199
|
||||
Hint = 'Downgrade/'#38477#32423#21407#22240
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = BuyNamePropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 27
|
||||
OnDblClick = CoBusinessTypeDblClick
|
||||
Width = 200
|
||||
end
|
||||
object Grade: TcxButtonEdit
|
||||
Tag = 4
|
||||
Left = 71
|
||||
Top = 199
|
||||
Hint = 'Grade/'#31561#32423
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
Properties.OnButtonClick = BuyNamePropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 28
|
||||
OnDblClick = CoBusinessTypeDblClick
|
||||
Top = 120
|
||||
Width = 200
|
||||
Height = 29
|
||||
Style = csDropDownList
|
||||
ItemIndex = 0
|
||||
TabOrder = 26
|
||||
Text = #27491#21697
|
||||
Items.Strings = (
|
||||
#27491#21697
|
||||
#27425#21697)
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
|
|
|
|||
|
|
@ -68,13 +68,8 @@ type
|
|||
FromConNo: TcxTextEdit;
|
||||
Label14: TLabel;
|
||||
FtyPCId: TcxTextEdit;
|
||||
Grade: TComboBox;
|
||||
Label15: TLabel;
|
||||
Label16: TLabel;
|
||||
Label17: TLabel;
|
||||
SettlementType: TcxButtonEdit;
|
||||
Downgrade: TcxButtonEdit;
|
||||
Grade: TcxButtonEdit;
|
||||
ToolButton2: TToolButton;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -85,14 +80,13 @@ type
|
|||
procedure CoBusinessTypeDblClick(Sender: TObject);
|
||||
procedure StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
function SaveData(MSaveType: string): Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
FBCIOID, FPurSId: string;
|
||||
FBCIOID, FPurMId, FPurSId, FQtyUnit: string;
|
||||
end;
|
||||
|
||||
var
|
||||
|
|
@ -232,56 +226,84 @@ end;
|
|||
|
||||
function TfrmPurClothEnterInput.SaveData(MSaveType: string): Boolean;
|
||||
var
|
||||
Maxno: string;
|
||||
Maxno, MBCIOID, MBCIONo: string;
|
||||
begin
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(FBCIOID) + '''');
|
||||
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('取染色坯布入库编号失败！');
|
||||
|
||||
if not GetLSNo(ADOQueryCmd, MBCIONo, 'RZ', '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('BCIONo').Value := Trim(MBCIONo);
|
||||
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;
|
||||
|
||||
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_IO', ScrollBox1, 0);
|
||||
FieldByName('STKName').Value := '贸易布匹';
|
||||
FieldByName('IOFlag').Value := '入库';
|
||||
FieldByName('IOType').Value := '采购入库';
|
||||
FieldByName('IOQtyFlag').Value := 1;
|
||||
FieldByName('Piece').Value := 1;
|
||||
FieldByName('FromPurMId').Value := FPurMId;
|
||||
FieldByName('FromPurSId').Value := FPurSId;
|
||||
FieldByName('QtyUnit').Value := FQtyUnit;
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
|
||||
Sql.Add('exec P_BS_Cloth_In_Del ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(FBCIOID));
|
||||
Sql.Add('exec P_BS_Cloth_UpdateByPurchase ');
|
||||
Sql.Add(' @PurSId=' + quotedstr(Trim(FPurSId)));
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
|
||||
|
||||
// ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
|
||||
Sql.Add('exec P_BS_Cloth_IOALL ');
|
||||
Sql.Add(' @Operation=' + quotedstr(Trim(MSaveType)));
|
||||
Sql.Add(' ,@PurSId=' + quotedstr(Trim(FPurSId)));
|
||||
Sql.Add(' ,@IOTime=' + quotedstr(Trim(Trim(FormatDateTime('yyyy-MM-dd', IOTime.Date)))));
|
||||
Sql.Add(' ,@StkPosition=' + quotedstr(Trim(StkPosition.Text)));
|
||||
Sql.Add(' ,@FtyPCId=' + quotedstr(Trim(FtyPCId.Text)));
|
||||
Sql.Add(' ,@BatchNo=' + quotedstr(Trim(BatchNo.Text)));
|
||||
Sql.Add(' ,@SettlementType=' + quotedstr(Trim(SettlementType.Text)));
|
||||
Sql.Add(' ,@Downgrade=' + quotedstr(Trim(Downgrade.Text)));
|
||||
Sql.Add(' ,@Grade=' + quotedstr(Trim(Grade.Text)));
|
||||
Sql.Add(' ,@StkCoNo=' + quotedstr(Trim(StkCoName.Properties.LookupItems.Text)));
|
||||
Sql.Add(' ,@StkCoName=' + quotedstr(Trim(StkCoName.Text)));
|
||||
Sql.Add(' ,@Piece=' + Trim(Piece.Text));
|
||||
Sql.Add(' ,@Qty=' + Trim(Qty.Text));
|
||||
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
||||
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
||||
|
||||
// ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
||||
FBCIOID := Maxno;
|
||||
Result := True;
|
||||
except
|
||||
Result := false;
|
||||
|
|
@ -308,15 +330,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmPurClothEnterInput.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if SaveData('采购入库并抄码') then
|
||||
begin
|
||||
Application.MessageBox('保存成功!', '提示', 0);
|
||||
ModalResult := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmPurClothEnterInput.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
|
|
|
|||
|
|
@ -8,6 +8,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
|
|||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Position = poDefault
|
||||
Visible = True
|
||||
ExplicitWidth = 1420
|
||||
ExplicitHeight = 554
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -769,13 +770,13 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
|
|||
end
|
||||
object Tv1Column39: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'IOPosition'
|
||||
DataBinding.FieldName = 'stkPistion'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 55
|
||||
end
|
||||
object Tv1Column40: TcxGridDBColumn
|
||||
Caption = #20179#20301
|
||||
Caption = #23384#25918#21333#20301
|
||||
DataBinding.FieldName = 'StkCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
|
|||
|
|
@ -66,6 +66,8 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
|
|||
Height = 390
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 288
|
||||
ExplicitTop = 97
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -325,22 +327,6 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
|
|||
DataBinding.IsNullValueType = True
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #21518#21152#24037#33521#25991
|
||||
DataBinding.FieldName = 'CraftEName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #21518#21152#24037#20013#25991
|
||||
DataBinding.FieldName = 'CraftEName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
|
|||
|
|
@ -53,8 +53,6 @@ type
|
|||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Panel1: TPanel;
|
||||
|
|
|
|||
|
|
@ -759,13 +759,13 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel
|
|||
end
|
||||
object Tv1Column39: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'IOPosition'
|
||||
DataBinding.FieldName = 'stkPistion'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 55
|
||||
end
|
||||
object Tv1Column40: TcxGridDBColumn
|
||||
Caption = #20179#20301
|
||||
Caption = #23384#25918#21333#20301
|
||||
DataBinding.FieldName = 'StkCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
|
|||
714
T05贸易门市管理/U_TradeClothTotalPHList.dfm
Normal file
714
T05贸易门市管理/U_TradeClothTotalPHList.dfm
Normal file
|
|
@ -0,0 +1,714 @@
|
|||
inherited frmTradeClothTotalPHList: TfrmTradeClothTotalPHList
|
||||
Left = 65
|
||||
Top = 98
|
||||
Caption = #36152#26131#24067#21305#20986#24211#21015#34920
|
||||
ClientHeight = 564
|
||||
ClientWidth = 1597
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitWidth = 1613
|
||||
ExplicitHeight = 603
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1597
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 1
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
Left = 142
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
ImageIndex = 5
|
||||
OnClick = TBDelClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26631#31614#25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 316
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 387
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 20
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 458
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 561
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [1]
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1597
|
||||
Height = 534
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 145
|
||||
ExplicitHeight = 419
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
Column = v1Column19
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column19
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skCount
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v2Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column19
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = Tv1Column35
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 40
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #36710#38388
|
||||
DataBinding.FieldName = 'Workshop'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #20986#24211#21333#21495
|
||||
DataBinding.FieldName = 'BCIONO'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #20986#24211#26102#38388
|
||||
DataBinding.FieldName = 'IOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.SaveTime = False
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #20986#24211#31867#22411
|
||||
DataBinding.FieldName = 'IOType'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
#21152#24037#20986#24211
|
||||
#24179#31227#20986#24211
|
||||
#36864#36135)
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column15: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25152#23646#31867#22411
|
||||
DataBinding.FieldName = 'SSType'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
#33258#24049
|
||||
#23458#25143)
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #37319#36141#21333#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #26469#33258#21333#20301
|
||||
DataBinding.FieldName = 'FromCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Alignment.Horz = taLeftJustify
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column16: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column17: TcxGridDBColumn
|
||||
Caption = #21697#29260
|
||||
DataBinding.FieldName = 'SXPinPai'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 44
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column20: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'SPCode'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'FtyPCId'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object v1Column18: TcxGridDBColumn
|
||||
Caption = #20986#21040#35745#21010#21333
|
||||
DataBinding.FieldName = 'ToOrdNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #35745#21010#21333#21495
|
||||
DataBinding.FieldName = 'FromOrdNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column28: TcxGridDBColumn
|
||||
Caption = #21512#24182#21333#21495
|
||||
DataBinding.FieldName = 'fromMasterOrdNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column29: TcxGridDBColumn
|
||||
Caption = #20986#21040#21512#24182#21333#21495
|
||||
DataBinding.FieldName = 'ToMasterOrdNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column18: TcxGridDBColumn
|
||||
Caption = #20986#21040#21333#20301
|
||||
DataBinding.FieldName = 'ToCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column19: TcxGridDBColumn
|
||||
Caption = #20179#20301
|
||||
DataBinding.FieldName = 'StkCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column19: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Pieceint'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column35: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #21305#37325
|
||||
DataBinding.FieldName = 'PieceWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #33394#21035
|
||||
DataBinding.FieldName = 'C_ColorDepth'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column30: TcxGridDBColumn
|
||||
Caption = #21512#21516#21495
|
||||
DataBinding.FieldName = 'fromConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column31: TcxGridDBColumn
|
||||
Caption = #20986#21040#21512#21516#21495
|
||||
DataBinding.FieldName = 'ToConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'C_StyleNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column21: TcxGridDBColumn
|
||||
Caption = #33521#25991#39068#33394
|
||||
DataBinding.FieldName = 'C_EColor'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column22: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'C_Degree'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'BatchNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #38468#20214
|
||||
DataBinding.FieldName = 'FJFlag'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object v1Column12: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
DataBinding.IsNullValueType = True
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #30331#35760#20154
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #30331#35760#26102#38388
|
||||
DataBinding.FieldName = 'Filltime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column20: TcxGridDBColumn
|
||||
Caption = #33521#25991#21697#21517
|
||||
DataBinding.FieldName = 'C_EName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #20462#25913#20154
|
||||
DataBinding.FieldName = 'Editer'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #20462#25913#26102#38388
|
||||
DataBinding.FieldName = 'Edittime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column23: TcxGridDBColumn
|
||||
Caption = #22383#24067#20379#24212#21830
|
||||
DataBinding.FieldName = 'GCFtyName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column32: TcxGridDBColumn
|
||||
Caption = #35760#24405#21495
|
||||
DataBinding.FieldName = 'BCIOID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column24: TcxGridDBColumn
|
||||
Caption = #21152#24037#21035
|
||||
DataBinding.FieldName = 'CraftCode'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column25: TcxGridDBColumn
|
||||
Caption = #24067#31181
|
||||
DataBinding.FieldName = 'GC_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column26: TcxGridDBColumn
|
||||
Caption = #21518#21152#24037#33521#25991
|
||||
DataBinding.FieldName = 'CraftEName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column27: TcxGridDBColumn
|
||||
Caption = #21518#21152#24037#20013#25991
|
||||
DataBinding.FieldName = 'CraftName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column33: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'QtyKgGross'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
object Tv1Column34: TcxGridDBColumn
|
||||
Caption = #20928#37325
|
||||
DataBinding.FieldName = 'QtyKgNet'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 44
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited loadProcess: TPanel
|
||||
Left = 888
|
||||
Top = 296
|
||||
ExplicitLeft = 888
|
||||
ExplicitTop = 296
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 721
|
||||
Top = 398
|
||||
ExplicitLeft = 721
|
||||
ExplicitTop = 398
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 260
|
||||
Top = 246
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 92
|
||||
Top = 230
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Parameters = <>
|
||||
Left = 560
|
||||
Top = 300
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 821
|
||||
Top = 329
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 707
|
||||
Top = 306
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 792
|
||||
Top = 234
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 425
|
||||
Top = 254
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 626
|
||||
Top = 237
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 524
|
||||
Top = 412
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = N2Click
|
||||
end
|
||||
object N3: TMenuItem
|
||||
Caption = #22797#21046
|
||||
OnClick = N3Click
|
||||
end
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Parameters = <>
|
||||
Left = 655
|
||||
Top = 444
|
||||
end
|
||||
end
|
||||
393
T05贸易门市管理/U_TradeClothTotalPHList.pas
Normal file
393
T05贸易门市管理/U_TradeClothTotalPHList.pas
Normal file
|
|
@ -0,0 +1,393 @@
|
|||
unit U_TradeClothTotalPHList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Vcl.Printers, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
|
||||
dxBarBuiltInMenu, U_BaseList, Clipbrd, dxScrollbarAnnotations, FrameDateSel,
|
||||
cxContainer, cxMaskEdit, cxProgressBar, cxButtons, dxSkinsCore, U_BaseHelp,
|
||||
dxSkinsDefaultPainters;
|
||||
|
||||
type
|
||||
TfrmTradeClothTotalPHList = class(TfrmBaseHelp)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
CDS_Main: TClientDataSet;
|
||||
TBDel: TToolButton;
|
||||
PopupMenu1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column15: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v2Column6: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1Column20: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column17: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column16: TcxGridDBColumn;
|
||||
v1Column18: TcxGridDBColumn;
|
||||
v1Column19: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
ToolButton1: TToolButton;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
ToolButton2: TToolButton;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
N3: TMenuItem;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
Tv1Column24: TcxGridDBColumn;
|
||||
Tv1Column25: TcxGridDBColumn;
|
||||
Tv1Column26: TcxGridDBColumn;
|
||||
Tv1Column27: TcxGridDBColumn;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
Tv1Column28: TcxGridDBColumn;
|
||||
Tv1Column29: TcxGridDBColumn;
|
||||
Tv1Column30: TcxGridDBColumn;
|
||||
Tv1Column31: TcxGridDBColumn;
|
||||
Tv1Column32: TcxGridDBColumn;
|
||||
Tv1Column33: TcxGridDBColumn;
|
||||
Tv1Column34: TcxGridDBColumn;
|
||||
ADOQueryPrint: TADOQuery;
|
||||
Tv1Column35: TcxGridDBColumn;
|
||||
ToolButton4: TToolButton;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure SPNameChange(Sender: TObject);
|
||||
procedure BCIOIDChange(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure TBDelClick(Sender: TObject);
|
||||
procedure C_specChange(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure N3Click(Sender: TObject);
|
||||
procedure BCIOIDPropertiesChange(Sender: TObject);
|
||||
procedure BCIONOKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure IOTypePropertiesChange(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
private
|
||||
canshu1, canshu2, canshu4: string;
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
FBCIONO: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmTradeClothTotalPHList: TfrmTradeClothTotalPHList;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_AttachmentUpload, U_LabelPrint, U_printPdf;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
canshu1 := Trim(DParameters1);
|
||||
canshu2 := Trim(DParameters2);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.InitGrid();
|
||||
var
|
||||
SqlStr: string;
|
||||
begin
|
||||
|
||||
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
|
||||
SqlStr := SqlStr + ' from BS_Cloth_IO A';
|
||||
SqlStr := SqlStr + ' where A.BCIONO =''' + Trim(FBCIONO) + '''';
|
||||
|
||||
InitCDSData(ADOQueryMain, CDS_Main, Tv1, SqlStr, '', 'BCIOID');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.IOTypePropertiesChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
ToolBar1.SetFocus;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(Self.Caption), Tv1, '贸易汇总仓库');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.ToolButton2Click(Sender: TObject);
|
||||
var
|
||||
MBCIOID: string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
MBCIOID := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]);
|
||||
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'TradeFinishClothOutPrt1';
|
||||
FFiltration1 := MBCIOID;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('update BS_Cloth_IO ');
|
||||
sql.Add(' set PRTer=' + quotedstr(DName));
|
||||
sql.Add(', PRTCount=isnull(PRTCount,0)+1');
|
||||
sql.Add(', PRTDate=getdate()');
|
||||
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(MBCIOID) + ','','') SP where SP.RTValue=BS_Cloth_IO.BCIOID )');
|
||||
ExecSQL;
|
||||
end;
|
||||
Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'TradeLabVolume1';
|
||||
FFiltration1 := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.BCIOIDPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
|
||||
Exit;
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.BCIONOKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ReadCxGrid(trim(Self.Caption), Tv1, '贸易汇总仓库');
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel('出库列表', cxGrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.SPNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.BCIOIDChange(Sender: TObject);
|
||||
begin
|
||||
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.N1Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main, True);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.N2Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_Main, False);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.N3Click(Sender: TObject);
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.TBDelClick(Sender: TObject);
|
||||
var
|
||||
MBCIOID, MBCIONO: string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
MBCIOID := SelCDSKey(CDS_Main, ['BCIOID'])[0];
|
||||
MBCIONO := SelCDSKey(CDS_Main, ['BCIONO'])[0];
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec P_Fin_Flow_Judge ');
|
||||
Sql.Add(' @FFIDS=' + quotedstr(MBCIONO));
|
||||
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('exec P_Trade_BSCloth_Judge ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
|
||||
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)));
|
||||
|
||||
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(MBCIONO));
|
||||
sql.Add(',''删除'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(MBCIOID));
|
||||
sql.Add(') ');
|
||||
|
||||
Sql.Add('exec P_BS_Cloth_Out_Del ');
|
||||
Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
|
||||
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;
|
||||
InitGrid();
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.C_specChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalPHList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -2,14 +2,13 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
Left = 165
|
||||
Top = 13
|
||||
Caption = #37197#36135#31649#29702
|
||||
ClientHeight = 935
|
||||
ClientHeight = 602
|
||||
ClientWidth = 1540
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 974
|
||||
ExplicitHeight = 641
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -20,12 +19,12 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 115
|
||||
ButtonWidth = 95
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 5
|
||||
TabOrder = 4
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -34,17 +33,16 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
ImageIndex = 1
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 71
|
||||
object ToolButton7: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25195#25551#37197#36135
|
||||
ImageIndex = 8
|
||||
Visible = False
|
||||
OnClick = ToolButton1Click
|
||||
Caption = #37197#36135#23436#25104
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 174
|
||||
Left = 150
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
|
|
@ -52,7 +50,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
OnClick = TBPrintClick
|
||||
end
|
||||
object TBPrint1: TToolButton
|
||||
Left = 245
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#20986#24211#21333
|
||||
|
|
@ -60,7 +58,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
OnClick = TBPrint1Click
|
||||
end
|
||||
object TBCK: TToolButton
|
||||
Left = 364
|
||||
Left = 312
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475
|
||||
|
|
@ -68,7 +66,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
OnClick = TBCKClick
|
||||
end
|
||||
object TBFJ: TToolButton
|
||||
Left = 435
|
||||
Left = 375
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #38468#20214
|
||||
|
|
@ -76,7 +74,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
OnClick = TBFJClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 506
|
||||
Left = 438
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -84,13 +82,22 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
OnClick = ToolButton2Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 609
|
||||
Left = 525
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 588
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25195#25551#37197#36135
|
||||
ImageIndex = 8
|
||||
Visible = False
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel [1]
|
||||
Left = 0
|
||||
|
|
@ -101,7 +108,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
ParentBackground = False
|
||||
TabOrder = 6
|
||||
TabOrder = 5
|
||||
object Label3: TLabel
|
||||
Left = 25
|
||||
Top = 48
|
||||
|
|
@ -172,11 +179,13 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 141
|
||||
Width = 1540
|
||||
Height = 465
|
||||
Align = alTop
|
||||
Width = 992
|
||||
Height = 461
|
||||
Align = alClient
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 1329
|
||||
ExplicitHeight = 794
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -206,32 +215,24 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 50
|
||||
Width = 62
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #22823#36135#21333#21495
|
||||
DataBinding.FieldName = 'TMMNO'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 122
|
||||
Width = 106
|
||||
end
|
||||
object v1OrdDate: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'OrdDate'
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 122
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #32463#33829#21333#20301
|
||||
DataBinding.FieldName = 'OurCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
Width = 137
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
|
|
@ -249,13 +250,14 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
Width = 89
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 81
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
|
|
@ -264,10 +266,11 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20013#25991#39068#33394
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 87
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
|
|
@ -297,11 +300,15 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
Caption = #37197#36135#21305#25968
|
||||
DataBinding.FieldName = 'PHRollNum'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 95
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #37197#36135#25968#37327
|
||||
DataBinding.FieldName = 'PHQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 94
|
||||
end
|
||||
object v1Column11: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
|
|
@ -347,22 +354,90 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [3]
|
||||
object cxTabControl1: TcxTabControl [3]
|
||||
Left = 0
|
||||
Top = 606
|
||||
Top = 113
|
||||
Width = 1540
|
||||
Height = 329
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Caption = 'Panel2'
|
||||
Height = 28
|
||||
Align = alTop
|
||||
TabOrder = 3
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1540
|
||||
Height = 299
|
||||
Align = alClient
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#37197#36135
|
||||
#24050#37197#36135
|
||||
#24050#21457#36135
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
inherited loadProcess: TPanel
|
||||
Left = 1082
|
||||
Top = 384
|
||||
ExplicitLeft = 1082
|
||||
ExplicitTop = 384
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 1082
|
||||
Top = 336
|
||||
ExplicitLeft = 1082
|
||||
ExplicitTop = 336
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
object Panel3: TPanel [6]
|
||||
Left = 1000
|
||||
Top = 141
|
||||
Width = 540
|
||||
Height = 461
|
||||
Align = alRight
|
||||
Caption = 'Panel3'
|
||||
TabOrder = 6
|
||||
object ToolBar2: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 538
|
||||
Height = 30
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
ExplicitWidth = 826
|
||||
object ToolButton9: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475#35814#24773
|
||||
ImageIndex = 22
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 538
|
||||
Height = 429
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 105
|
||||
ExplicitTop = 37
|
||||
ExplicitWidth = 826
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -372,7 +447,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
item
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
Column = V2Column5
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
|
|
@ -388,7 +462,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = V2Column5
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
|
|
@ -409,16 +482,11 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = TV2Column4
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = V2Column5
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = TV2Column3
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
@ -427,324 +495,119 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.Indicator = True
|
||||
object V2Column13: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'ssel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 99
|
||||
end
|
||||
object V2Column10: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'stkid'
|
||||
object TV2Column1: TcxGridDBColumn
|
||||
Caption = #37197#36135#21333#21495
|
||||
DataBinding.FieldName = 'BCIONO'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Column2: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
Width = 84
|
||||
end
|
||||
object TV2Column2: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
Caption = #37197#36135#26085#26399
|
||||
DataBinding.FieldName = 'IOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 99
|
||||
Width = 79
|
||||
end
|
||||
object V2Column3: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
object TV2Column3: TcxGridDBColumn
|
||||
Caption = #37197#36135#21305#25968
|
||||
DataBinding.FieldName = 'Piece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
Width = 80
|
||||
end
|
||||
object V2C_Color: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
object TV2Column4: TcxGridDBColumn
|
||||
Caption = #37197#36135#25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object TV2Column1: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 99
|
||||
end
|
||||
object V2Column5: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'stkqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Column6: TcxGridDBColumn
|
||||
Caption = #25209#21495
|
||||
DataBinding.FieldName = 'batchno'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Column11: TcxGridDBColumn
|
||||
Caption = #26579#21378#32568#21495
|
||||
DataBinding.FieldName = 'ftypcid'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Filler: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154#21592
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Column12: TcxGridDBColumn
|
||||
Caption = #37197#36135#26102#38388
|
||||
DataBinding.FieldName = 'FillTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Column14: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Column15: TcxGridDBColumn
|
||||
Caption = #20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
end
|
||||
object V2Column16: TcxGridDBColumn
|
||||
Caption = #21152#24037#21378
|
||||
DataBinding.FieldName = 'factoryName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 99
|
||||
Width = 93
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = TV2
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1540
|
||||
Height = 30
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
Caption = 'ToolBar1'
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
object ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36873#25321#24211#23384
|
||||
ImageIndex = 9
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object phwc: TToolButton
|
||||
Left = 103
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #37197#36135#23436#25104
|
||||
ImageIndex = 12
|
||||
OnClick = phwcClick
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 206
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913#37197#36135
|
||||
ImageIndex = 3
|
||||
OnClick = ToolButton6Click
|
||||
end
|
||||
object phok: TToolButton
|
||||
Left = 309
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #37197#36135#30830#35748
|
||||
ImageIndex = 12
|
||||
OnClick = phokClick
|
||||
end
|
||||
object fh: TToolButton
|
||||
Left = 412
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25104#21697#21457#36135
|
||||
ImageIndex = 12
|
||||
OnClick = fhClick
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 515
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360#26631#31614
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
object del: TToolButton
|
||||
Left = 618
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
ImageIndex = 5
|
||||
OnClick = delClick
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 689
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25972#21333#25764#38144
|
||||
ImageIndex = 11
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object Tdbchexiao: TToolButton
|
||||
Left = 792
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25972#31508#25764#38144
|
||||
ImageIndex = 11
|
||||
OnClick = TdbchexiaoClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 895
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#21457#36135
|
||||
ImageIndex = 11
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl [4]
|
||||
Left = 0
|
||||
Top = 113
|
||||
Width = 1540
|
||||
Height = 28
|
||||
Align = alTop
|
||||
TabOrder = 4
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#37197#36135
|
||||
#24050#37197#36135
|
||||
#24050#21457#36135
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 626
|
||||
Top = 344
|
||||
ExplicitLeft = 626
|
||||
ExplicitTop = 344
|
||||
ExplicitHeight = 29
|
||||
object cxSplitter1: TcxSplitter [7]
|
||||
Left = 992
|
||||
Top = 141
|
||||
Width = 8
|
||||
Height = 461
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
Control = Panel3
|
||||
ExplicitLeft = 896
|
||||
ExplicitTop = 133
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 187
|
||||
Top = 378
|
||||
Left = 634
|
||||
Top = 301
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 163
|
||||
Top = 229
|
||||
Left = 695
|
||||
Top = 301
|
||||
end
|
||||
object cxgrdpmn1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 700
|
||||
Top = 236
|
||||
Left = 817
|
||||
Top = 423
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Parameters = <>
|
||||
Left = 568
|
||||
Top = 240
|
||||
Left = 756
|
||||
Top = 301
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 446
|
||||
Top = 230
|
||||
Left = 878
|
||||
Top = 301
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 274
|
||||
Top = 390
|
||||
Left = 756
|
||||
Top = 362
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = Order_Main
|
||||
Left = 812
|
||||
Top = 440
|
||||
Left = 695
|
||||
Top = 484
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 724
|
||||
Top = 432
|
||||
Left = 695
|
||||
Top = 423
|
||||
end
|
||||
object ADOQuerySub: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Parameters = <>
|
||||
Left = 348
|
||||
Top = 296
|
||||
Left = 695
|
||||
Top = 362
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = ORDER_SUB
|
||||
Left = 616
|
||||
Top = 420
|
||||
Left = 756
|
||||
Top = 484
|
||||
end
|
||||
object ADOQueryImage: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
EnableBCD = False
|
||||
Parameters = <>
|
||||
Left = 332
|
||||
Top = 227
|
||||
Left = 817
|
||||
Top = 301
|
||||
end
|
||||
object DSImage: TDataSource
|
||||
DataSet = ADOQueryImage
|
||||
Left = 440
|
||||
Top = 294
|
||||
Left = 817
|
||||
Top = 484
|
||||
end
|
||||
object IdFTP1: TIdFTP
|
||||
ConnectTimeout = 0
|
||||
|
|
@ -754,18 +617,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
ProxySettings.ProxyType = fpcmNone
|
||||
ProxySettings.Port = 0
|
||||
ReadTimeout = 0
|
||||
Left = 92
|
||||
Top = 258
|
||||
Left = 634
|
||||
Top = 545
|
||||
end
|
||||
object ORDER_SUB: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 248
|
||||
Top = 276
|
||||
Left = 756
|
||||
Top = 423
|
||||
end
|
||||
object PopupMenu2: TPopupMenu
|
||||
Left = 812
|
||||
Top = 388
|
||||
Left = 756
|
||||
Top = 545
|
||||
object N3: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N3Click
|
||||
|
|
@ -781,18 +644,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
end
|
||||
object cxgrdpmn2: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 932
|
||||
Top = 260
|
||||
Left = 878
|
||||
Top = 423
|
||||
end
|
||||
object CDS_WXTS: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 516
|
||||
Top = 416
|
||||
Left = 634
|
||||
Top = 423
|
||||
end
|
||||
object PM_1: TPopupMenu
|
||||
Left = 940
|
||||
Top = 388
|
||||
Left = 695
|
||||
Top = 545
|
||||
object N1: TMenuItem
|
||||
Caption = #22797#21046
|
||||
OnClick = N1Click
|
||||
|
|
@ -800,38 +663,38 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
end
|
||||
object GPM_3: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 860
|
||||
Top = 228
|
||||
Left = 634
|
||||
Top = 484
|
||||
end
|
||||
object ADO_PH: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Parameters = <>
|
||||
Left = 296
|
||||
Top = 476
|
||||
Left = 817
|
||||
Top = 362
|
||||
end
|
||||
object DS_PH: TDataSource
|
||||
DataSet = CDS_PH
|
||||
Left = 360
|
||||
Top = 444
|
||||
Left = 878
|
||||
Top = 484
|
||||
end
|
||||
object CDS_PH: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 396
|
||||
Top = 486
|
||||
Left = 878
|
||||
Top = 362
|
||||
end
|
||||
object ADOQueryPrint: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 1128
|
||||
Top = 432
|
||||
Left = 634
|
||||
Top = 362
|
||||
end
|
||||
object RMDB_1: TRMDBDataSet
|
||||
Visible = True
|
||||
DataSet = ADOQueryPrint
|
||||
Left = 1180
|
||||
Top = 432
|
||||
Left = 817
|
||||
Top = 545
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
|
|
@ -850,8 +713,8 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
|
|||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 1228
|
||||
Top = 432
|
||||
Left = 878
|
||||
Top = 545
|
||||
ReportData = {}
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -42,7 +42,6 @@ type
|
|||
ADOQuerySub: TADOQuery;
|
||||
DataSource2: TDataSource;
|
||||
TBFJ: TToolButton;
|
||||
Panel2: TPanel;
|
||||
ADOQueryImage: TADOQuery;
|
||||
DSImage: TDataSource;
|
||||
IdFTP1: TIdFTP;
|
||||
|
|
@ -56,7 +55,6 @@ type
|
|||
CustName: TcxTextEdit;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
cxgrdpmn2: TcxGridPopupMenu;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
|
|
@ -80,43 +78,27 @@ type
|
|||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
V2Column13: TcxGridDBColumn;
|
||||
V2Column10: TcxGridDBColumn;
|
||||
V2Column2: TcxGridDBColumn;
|
||||
V2Column3: TcxGridDBColumn;
|
||||
V2C_Color: TcxGridDBColumn;
|
||||
V2Column5: TcxGridDBColumn;
|
||||
V2Column6: TcxGridDBColumn;
|
||||
V2Column11: TcxGridDBColumn;
|
||||
V2Filler: TcxGridDBColumn;
|
||||
V2Column12: TcxGridDBColumn;
|
||||
V2Column14: TcxGridDBColumn;
|
||||
V2Column15: TcxGridDBColumn;
|
||||
V2Column16: TcxGridDBColumn;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
TV2Column1: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
TV2Column2: TcxGridDBColumn;
|
||||
TBPrint1: TToolButton;
|
||||
ADOQueryPrint: TADOQuery;
|
||||
RMDB_1: TRMDBDataSet;
|
||||
RM1: TRMGridReport;
|
||||
ToolButton1: TToolButton;
|
||||
frmFrameDateSel1: TfrmFrameDateSel;
|
||||
ToolButton7: TToolButton;
|
||||
Panel3: TPanel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton4: TToolButton;
|
||||
phwc: TToolButton;
|
||||
ToolButton6: TToolButton;
|
||||
phok: TToolButton;
|
||||
fh: TToolButton;
|
||||
ToolButton9: TToolButton;
|
||||
del: TToolButton;
|
||||
ToolButton5: TToolButton;
|
||||
Tdbchexiao: TToolButton;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
cxGrid2Level1: TcxGridLevel;
|
||||
TV2Column1: TcxGridDBColumn;
|
||||
TV2Column2: TcxGridDBColumn;
|
||||
TV2Column3: TcxGridDBColumn;
|
||||
TV2Column4: TcxGridDBColumn;
|
||||
ToolButton3: TToolButton;
|
||||
cxSplitter1: TcxSplitter;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -136,21 +118,14 @@ type
|
|||
procedure N4Click(Sender: TObject);
|
||||
procedure ComboBox1Change(Sender: TObject);
|
||||
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure JGTypeChange(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure phwcClick(Sender: TObject);
|
||||
procedure ToolButton6Click(Sender: TObject);
|
||||
procedure phokClick(Sender: TObject);
|
||||
procedure fhClick(Sender: TObject);
|
||||
procedure TBPrint1Click(Sender: TObject);
|
||||
procedure ToolButton9Click(Sender: TObject);
|
||||
procedure delClick(Sender: TObject);
|
||||
procedure TdbchexiaoClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton7Click(Sender: TObject);
|
||||
procedure ToolButton9Click(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
|
|
@ -164,7 +139,6 @@ type
|
|||
procedure SetStatus();
|
||||
procedure InitImage(fwbid: string);
|
||||
function SaveData(): Boolean;
|
||||
|
||||
procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
|
||||
{ Private declarations }
|
||||
public
|
||||
|
|
@ -179,7 +153,8 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
|
||||
U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan;
|
||||
U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan,
|
||||
U_TradeClothTotalPHList;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
|
@ -201,38 +176,31 @@ end;
|
|||
procedure TfrmTradeDispatchedList.SetStatus();
|
||||
begin
|
||||
|
||||
del.Visible := false;
|
||||
phwc.Visible := false;
|
||||
phok.Visible := false;
|
||||
fh.Visible := false;
|
||||
ToolButton4.Visible := false;
|
||||
ToolButton5.Visible := false;
|
||||
TBPrint1.Visible := false;
|
||||
ToolButton6.Visible := false;
|
||||
Tdbchexiao.Visible := false;
|
||||
ToolButton3.Visible := false;
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
del.Visible := true;
|
||||
phwc.Visible := true;
|
||||
Panel2.Visible := true;
|
||||
ToolButton4.Visible := true;
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
fh.Visible := true;
|
||||
ToolButton5.Visible := true;
|
||||
//
|
||||
// ToolButton3.Visible := false;
|
||||
// case cxTabControl1.TabIndex of
|
||||
// 0:
|
||||
// begin
|
||||
// del.Visible := true;
|
||||
// phwc.Visible := true;
|
||||
// Panel2.Visible := true;
|
||||
// ToolButton4.Visible := true;
|
||||
// end;
|
||||
// 1:
|
||||
// begin
|
||||
// fh.Visible := true;
|
||||
// ToolButton5.Visible := true;
|
||||
//
|
||||
// Tdbchexiao.Visible := true;
|
||||
// end;
|
||||
// 2:
|
||||
// begin
|
||||
// TBPrint1.Visible := true;
|
||||
// ToolButton3.Visible := True;
|
||||
// end;
|
||||
// end;
|
||||
// application.ProcessMessages;
|
||||
|
||||
Tdbchexiao.Visible := true;
|
||||
end;
|
||||
2:
|
||||
begin
|
||||
TBPrint1.Visible := true;
|
||||
ToolButton3.Visible := True;
|
||||
end;
|
||||
end;
|
||||
application.ProcessMessages;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.InitSub();
|
||||
|
|
@ -264,12 +232,10 @@ begin
|
|||
|
||||
if Order_Main.IsEmpty then
|
||||
EXIT;
|
||||
SqlStr := 'select A.*,B.* ';
|
||||
SqlStr := SqlStr + 'from Trade_Market_Distribution A ';
|
||||
SqlStr := SqlStr + 'INNER join BS_Cloth_IO B on B.STKID=A.STKID and B.IOFlag=''入库''';
|
||||
SqlStr := SqlStr + 'where A.TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').asstring));
|
||||
SqlStr := SqlStr + 'and A.TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').asstring));
|
||||
SqlStr := SqlStr + 'order by A.TMDID ';
|
||||
SqlStr := 'select A.BCIONO,IOTime=convert(varchar(10),A.IOTime,120) ,Qty=sum(A.Qty) ,Piece=sum(A.Piece) ';
|
||||
SqlStr := SqlStr + 'from BS_Cloth_IO A ';
|
||||
SqlStr := SqlStr + 'where A.IOFlag=''出库'' and A.TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').asstring));
|
||||
SqlStr := SqlStr + 'group by A.BCIONO,convert(varchar(10),A.IOTime,120) ';
|
||||
|
||||
InitCDSData(ADO_PH, CDS_PH, Tv2, SqlStr, '', '');
|
||||
|
||||
|
|
@ -599,270 +565,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.ToolButton6Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self);
|
||||
with frmTradeMarketDisSel do
|
||||
begin
|
||||
|
||||
fmainID := trim(self.Order_Main.FieldByName('mainID').AsString);
|
||||
if showmodal = 1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
free;
|
||||
end;
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.phokClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if cds_ph.IsEmpty then
|
||||
exit;
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Trade_Market_Sub ');
|
||||
sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
|
||||
sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
|
||||
open;
|
||||
edit;
|
||||
fieldbyname('substatus').Value := '2';
|
||||
post;
|
||||
end;
|
||||
application.MessageBox('配货确认成功！', '提示信息');
|
||||
TBRafresh.Click;
|
||||
except
|
||||
application.MessageBox('配货确认失败！', '提示信息', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.fhClick(Sender: TObject);
|
||||
var
|
||||
MStkIds, maxno: string;
|
||||
i, fRoll: integer;
|
||||
fNum: double;
|
||||
begin
|
||||
if cds_ph.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;
|
||||
|
||||
if GetLSNo(ADOQueryCmd, maxno, 'CK', 'Trade_Cloth_IO', 3, 1) = False then
|
||||
begin
|
||||
Application.MessageBox('取出库单号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
try
|
||||
Order_Main.First;
|
||||
Order_Main.DisableControls;
|
||||
CDS_ph.DisableControls;
|
||||
MSubIds := '';
|
||||
MStkIds := '';
|
||||
while not Order_Main.eof do
|
||||
begin
|
||||
|
||||
if Order_Main.FieldByName('ssel').AsBoolean then
|
||||
begin
|
||||
InitPH();
|
||||
|
||||
MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ',';
|
||||
with cds_ph do
|
||||
begin
|
||||
while not eof do
|
||||
begin
|
||||
MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ',';
|
||||
next;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
Order_Main.Next;
|
||||
end;
|
||||
MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1);
|
||||
MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1);
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||||
sql.Add('values(''配货出库'' ');
|
||||
sql.Add(',' + quotedstr(MSubIds));
|
||||
sql.Add(',''出库'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(MStkIds));
|
||||
sql.Add(') ');
|
||||
execsql;
|
||||
end;
|
||||
|
||||
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(maxno));
|
||||
sql.Add(',''出库'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(MStkIds));
|
||||
sql.Add(') ');
|
||||
execsql;
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_BS_Cloth_Out_Multiple ');
|
||||
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
|
||||
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', Now())));
|
||||
Sql.Add(',@IOType=' + Quotedstr('配货出库'));
|
||||
Sql.Add(',@BCIONO=' + Quotedstr(maxno));
|
||||
Sql.Add(',@ToCoNo=' + Quotedstr(Trim(Order_Main.FieldByName('CustNo').AsString)));
|
||||
Sql.Add(',@ToCoName=' + Quotedstr(Trim(Order_Main.FieldByName('CustName').AsString)));
|
||||
Sql.Add(',@Dcode=' + Quotedstr(DCode));
|
||||
Sql.Add(',@DName=' + Quotedstr(DName));
|
||||
ShowMessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
begin
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update Trade_Market_Sub set substatus =3 ');
|
||||
sql.add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','') X where X.RTValue=Trade_Market_Sub.TMSID ) ');
|
||||
// ShowMessage(sql.text);
|
||||
execsql;
|
||||
end;
|
||||
|
||||
CDS_ph.EnableControls;
|
||||
Order_Main.EnableControls;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
if Application.MessageBox('确定要打印出库单吗？', '提示', 32 + 4) = IDYES then
|
||||
begin
|
||||
TBPrint1.Click;
|
||||
end;
|
||||
TBRafresh.Click;
|
||||
|
||||
except
|
||||
CDS_ph.EnableControls;
|
||||
Order_Main.EnableControls;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox('发货失败！', '提示信息');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.ToolButton9Click(Sender: TObject);
|
||||
var
|
||||
fPrintFile, FLabVolume: string;
|
||||
begin
|
||||
if CDS_PH.IsEmpty then
|
||||
Exit;
|
||||
if CDS_PH.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
CDS_PH.DisableControls;
|
||||
with CDS_PH do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if CDS_PH.FieldByName('SSel').AsBoolean = True then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + '''');
|
||||
sql.Add(' where BCIOID=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' EXEC P_BS_Cloth_Prt13 ');
|
||||
SQL.Add(' @Filtration=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryPrint.IsEmpty then
|
||||
begin
|
||||
application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
|
||||
CDS_PH.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = '正品' then
|
||||
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
|
||||
else
|
||||
FLabVolume := '次品标签';
|
||||
|
||||
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
|
||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
|
||||
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '次品标签' then
|
||||
Rm1.DefaultCopies := 1
|
||||
else
|
||||
Rm1.DefaultCopies := 1;
|
||||
RM1.PrintReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||
end;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
CDS_PH.EnableControls;
|
||||
|
||||
initPH();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.delClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if cds_ph.IsEmpty then
|
||||
exit;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('delete from Trade_Market_Distribution ');
|
||||
sql.Add('where TMD=' + quotedstr(trim(cds_ph.fieldbyname('TMD').AsString)));
|
||||
execsql;
|
||||
end;
|
||||
cds_ph.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.TBPrint1Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -942,18 +644,12 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.ToolButton5Click(Sender: TObject);
|
||||
procedure TfrmTradeDispatchedList.ToolButton7Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if cds_ph.IsEmpty then
|
||||
exit;
|
||||
if cxTabControl1.TabIndex = 1 then
|
||||
begin
|
||||
if Application.MessageBox('确定要执行操作吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
|
||||
try
|
||||
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
|
|
@ -963,159 +659,37 @@ begin
|
|||
sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
|
||||
open;
|
||||
edit;
|
||||
fieldbyname('substatus').Value := '0';
|
||||
fieldbyname('substatus').Value := '2';
|
||||
post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update BS_Cloth_IO SET disstatus=null ');
|
||||
sql.Add('from Trade_Market_Distribution B where B.stkid=A.stkid ');
|
||||
sql.Add('and TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
|
||||
sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
|
||||
execsql;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('delete from Trade_Market_Distribution ');
|
||||
sql.Add('where TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
|
||||
execsql;
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('撤销配货')));
|
||||
sql.Add(',' + quotedstr(trim('订单号:' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' 编号:' + trim(Order_Main.FieldByName('C_Code').AsString) + ' 颜色:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' 花型:' + trim(Order_Main.FieldByName('C_Pattern').AsString))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
||||
application.MessageBox('撤销配货成功！', '提示信息');
|
||||
application.MessageBox('配货确认成功！', '提示信息');
|
||||
TBRafresh.Click;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox('撤销配货失败！', '提示信息', 0);
|
||||
end;
|
||||
application.MessageBox('配货确认失败！', '提示信息', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.TdbchexiaoClick(Sender: TObject);
|
||||
procedure TfrmTradeDispatchedList.ToolButton9Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if CDS_PH.IsEmpty then
|
||||
exit;
|
||||
CDS_PH.first;
|
||||
try
|
||||
if Application.MessageBox('确定要执行操作吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
while not CDS_PH.eof do
|
||||
begin
|
||||
if CDS_PH.FieldByName('ssel').AsBoolean then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update BS_Cloth_IO SET disstatus=null ');
|
||||
sql.Add('where stkid=' + quotedstr(trim(CDS_PH.fieldbyname('stkid').AsString)));
|
||||
execsql;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('delete from Trade_Market_Distribution ');
|
||||
sql.Add('where TMDID=' + quotedstr(trim(CDS_PH.fieldbyname('TMDID').AsString)));
|
||||
execsql;
|
||||
end;
|
||||
end;
|
||||
CDS_PH.next;
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Trade_Market_Distribution ');
|
||||
sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
|
||||
sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
|
||||
open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Trade_Market_Sub ');
|
||||
sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
|
||||
sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
|
||||
open;
|
||||
edit;
|
||||
fieldbyname('substatus').Value := '0';
|
||||
post;
|
||||
end;
|
||||
end;
|
||||
CDS_PH.first;
|
||||
MSubIds := Trim(Self.CDS_PH.fieldbyname('BCIONO').AsString);
|
||||
|
||||
with ADOQueryCmd do
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('撤销配货')));
|
||||
sql.Add(',' + quotedstr(trim('订单号:' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' 编号:' + trim(Order_Main.FieldByName('C_Code').AsString) + ' 颜色:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' 花型:' + trim(Order_Main.FieldByName('C_Pattern').AsString))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
ExecSQL;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
||||
Application.MessageBox('操作成功!', '提示', 0);
|
||||
initph();
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('操作异常!', '提示', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.ToolButton4Click(Sender: TObject);
|
||||
var
|
||||
fsubid: string;
|
||||
FLMType := 'DistributionPrint11';
|
||||
FFiltration1 := Trim(MSubIds);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
inherited;
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
fsubid := order_main.FieldByName('TMSID').AsString;
|
||||
|
||||
frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self);
|
||||
with frmTradeMarketDisSel do
|
||||
begin
|
||||
fmainID := trim(self.Order_Main.FieldByName('TMMID').AsString);
|
||||
if showmodal = 1 then
|
||||
begin
|
||||
|
||||
// Self.InitGrid();
|
||||
end;
|
||||
free;
|
||||
end;
|
||||
|
||||
TBRafresh.Click;
|
||||
Order_Main.Locate('Tmsid', fsubid, []);
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.ToolButton1Click(Sender: TObject);
|
||||
|
|
@ -1138,165 +712,19 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.ToolButton3Click(Sender: TObject);
|
||||
var
|
||||
MStkIds: string;
|
||||
begin
|
||||
if Order_Main.Locate('ssel', true, []) = false then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
MSubIds := '';
|
||||
MStkIds := '';
|
||||
Order_Main.First;
|
||||
while not Order_Main.eof do
|
||||
frmTradeClothTotalPHList := TfrmTradeClothTotalPHList.Create(Application);
|
||||
with frmTradeClothTotalPHList do
|
||||
begin
|
||||
FBCIONO := Trim(Self.CDS_PH.fieldbyname('BCIONO').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
if Order_Main.FieldByName('ssel').AsBoolean then
|
||||
begin
|
||||
InitPH();
|
||||
|
||||
MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ',';
|
||||
with cds_ph do
|
||||
begin
|
||||
while not eof do
|
||||
begin
|
||||
MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ',';
|
||||
next;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
Order_Main.Next;
|
||||
end;
|
||||
MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1);
|
||||
MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1);
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||||
sql.Add('values(''贸易成品出库'' ');
|
||||
sql.Add(',' + quotedstr(MSubIDS));
|
||||
sql.Add(',''撤销出库'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(MStkIds));
|
||||
sql.Add(') ');
|
||||
execsql;
|
||||
end;
|
||||
|
||||
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(''));
|
||||
sql.Add(',''撤销出库'' ');
|
||||
sql.Add(',' + quotedstr(DName));
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(MStkIds));
|
||||
sql.Add(') ');
|
||||
execsql;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_BS_Cloth_Out_TMMDel ');
|
||||
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
|
||||
Sql.Add(',@DCode=' + Quotedstr(DCode));
|
||||
Sql.Add(',@DName=' + Quotedstr(DName));
|
||||
// ShowMessage(sql.Text);
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
begin
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update Trade_Market_Sub set substatus =2 ');
|
||||
sql.add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','') X where X.RTValue=Trade_Market_Sub.TMSID ) ');
|
||||
// ShowMessage(sql.text);
|
||||
execsql;
|
||||
end;
|
||||
|
||||
// PlayWav('正确');
|
||||
|
||||
Application.MessageBox('撤销成功!', '提示', 0);
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
||||
TBRafresh.Click;
|
||||
except
|
||||
Application.MessageBox('撤销失败!', '提示', 0);
|
||||
order_main.EnableControls;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDispatchedList.phwcClick(Sender: TObject);
|
||||
var
|
||||
phRollNum, phQty: double;
|
||||
begin
|
||||
if cds_ph.IsEmpty then
|
||||
exit;
|
||||
|
||||
with CDS_PH do
|
||||
begin
|
||||
DisableControls;
|
||||
first;
|
||||
while not eof do
|
||||
begin
|
||||
if (trim(fieldbyname('C_Code').AsString) <> trim(Order_Main.FieldByName('C_Code').AsString)) or (trim(fieldbyname('C_Color').AsString) <> trim(Order_Main.FieldByName('C_Color').AsString)) or (trim(fieldbyname('C_Pattern').AsString) <> trim(Order_Main.FieldByName('C_Pattern').AsString)) then
|
||||
begin
|
||||
application.MessageBox('产品编号，花型或者颜色不一致，不能配货！', '提示信息', 0);
|
||||
EnableControls;
|
||||
exit;
|
||||
end;
|
||||
next;
|
||||
end;
|
||||
first;
|
||||
EnableControls;
|
||||
end;
|
||||
phRollNum := 0;
|
||||
phQty := 0;
|
||||
with CDS_PH do
|
||||
begin
|
||||
DisableControls;
|
||||
first;
|
||||
while not eof do
|
||||
begin
|
||||
phRollNum := phRollNum + 1;
|
||||
phQty := phQty + CDS_PH.fieldbyname('stkmeter').AsFloat;
|
||||
next;
|
||||
end;
|
||||
first;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
if (phRollNum <> Order_Main.FieldByName('TMSPiece').AsFloat) or (phQty <> Order_Main.FieldByName('TMSQty').AsFloat) then
|
||||
begin
|
||||
if Application.MessageBox('你的配货未达到配货要求，你确认这样配货吗？', '提示信息', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if SaveData() then
|
||||
begin
|
||||
application.MessageBox('配货成功!', '提示信息');
|
||||
TBRafresh.Click;
|
||||
end
|
||||
else
|
||||
begin
|
||||
application.MessageBox('配货失败!', '提示信息', 0);
|
||||
finally
|
||||
frmTradeClothTotalPHList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@ uses
|
|||
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
|
||||
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
|
||||
IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, dxScrollbarAnnotations,
|
||||
cxImageList;
|
||||
cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
|
||||
|
||||
type
|
||||
TfrmTradeMarketDisScan = class(TfrmBaseInput)
|
||||
|
|
|
|||
|
|
@ -2,14 +2,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
Left = 143
|
||||
Top = 4
|
||||
Caption = #35746#21333#24405#20837
|
||||
ClientHeight = 823
|
||||
ClientHeight = 652
|
||||
ClientWidth = 1360
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -16
|
||||
Position = poMainFormCenter
|
||||
WindowState = wsMaximized
|
||||
ExplicitWidth = 1376
|
||||
ExplicitHeight = 862
|
||||
ExplicitHeight = 691
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -103,25 +103,28 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
Left = 0
|
||||
Top = 254
|
||||
Width = 1360
|
||||
Height = 569
|
||||
Height = 398
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 2
|
||||
ExplicitHeight = 569
|
||||
object Panel3: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1072
|
||||
Height = 567
|
||||
Height = 396
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 567
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1070
|
||||
Height = 565
|
||||
Height = 394
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 565
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -320,10 +323,11 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
Left = 1073
|
||||
Top = 1
|
||||
Width = 286
|
||||
Height = 567
|
||||
Height = 396
|
||||
Align = alRight
|
||||
Caption = 'Panel4'
|
||||
TabOrder = 1
|
||||
ExplicitHeight = 567
|
||||
object Panel5: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -357,17 +361,19 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
Left = 1
|
||||
Top = 42
|
||||
Width = 284
|
||||
Height = 524
|
||||
Height = 353
|
||||
Align = alClient
|
||||
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
|
||||
TabOrder = 1
|
||||
ExplicitHeight = 524
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 2
|
||||
Top = 23
|
||||
Width = 280
|
||||
Height = 499
|
||||
Height = 328
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 499
|
||||
object TvMX: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
|
|
@ -440,7 +446,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
ParentCtl3D = False
|
||||
TabOrder = 3
|
||||
OnClick = ScrollBox1Click
|
||||
ExplicitTop = 24
|
||||
object Label3: TLabel
|
||||
Left = 722
|
||||
Top = 13
|
||||
|
|
|
|||
|
|
@ -1,8 +1,8 @@
|
|||
inherited frmTradeMarketList: TfrmTradeMarketList
|
||||
Left = 165
|
||||
Top = 13
|
||||
Caption = #29983#20135#35745#21010#21333#31649#29702
|
||||
ClientHeight = 760
|
||||
Caption = #22823#36135#21333
|
||||
ClientHeight = 594
|
||||
ClientWidth = 1540
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
|
|
@ -10,7 +10,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 799
|
||||
ExplicitHeight = 633
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -252,10 +252,11 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
Left = 0
|
||||
Top = 152
|
||||
Width = 1540
|
||||
Height = 404
|
||||
Height = 238
|
||||
Align = alClient
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 3
|
||||
ExplicitHeight = 404
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -297,7 +298,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
Width = 118
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #32463#33829#21333#20301
|
||||
|
|
@ -305,7 +306,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
Width = 103
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
|
|
@ -313,7 +314,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
Width = 91
|
||||
end
|
||||
object v1DeliveryDate: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
|
|
@ -324,7 +325,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnCustomDrawCell = v1DeliveryDateCustomDrawCell
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
Width = 174
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
|
|
@ -389,11 +390,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
end
|
||||
object cxSplitter1: TcxSplitter [3]
|
||||
Left = 0
|
||||
Top = 556
|
||||
Top = 390
|
||||
Width = 1540
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
ExplicitTop = 556
|
||||
end
|
||||
object cxTabControl1: TcxTabControl [4]
|
||||
Left = 0
|
||||
|
|
@ -418,13 +420,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
end
|
||||
object Panel2: TPanel [5]
|
||||
Left = 0
|
||||
Top = 564
|
||||
Top = 398
|
||||
Width = 1540
|
||||
Height = 196
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 5
|
||||
ExplicitTop = 564
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -495,14 +498,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
Width = 92
|
||||
end
|
||||
object TV2Column2: TcxGridDBColumn
|
||||
Caption = #33394#24067#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
Width = 106
|
||||
end
|
||||
object v1PRTColor: TcxGridDBColumn
|
||||
Caption = #20013#25991#39068#33394
|
||||
|
|
@ -517,7 +520,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
Properties.ReadOnly = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 79
|
||||
Width = 103
|
||||
end
|
||||
object VC_PRTPs: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user