Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20260206

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2026-02-06 16:53:43 +08:00
parent f6d6acd3be
commit 6d805bf071
107 changed files with 27136 additions and 4043 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
A00通用窗体/U_CompanySel.dfm
View File

@ -144,12 +144,12 @@ inherited frmCompanySel: TfrmCompanySel
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 297 Left = 297
Top = 128 Top = 127
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 193 Left = 193
Top = 129 Top = 128
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 344 Left = 344

9
A00通用窗体/U_SalesContract_SXSel.dfm
View File

@ -122,7 +122,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 79
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -357,14 +356,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 71
end end
object v1Column5: TcxGridDBColumn
Caption = #32433#32447#35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #32433#32447#25104#20998 Caption = #32433#32447#25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'

7
A00通用窗体/U_SalesContract_SXSel.pas
View File

@ -38,7 +38,6 @@ type
VC_SCSCode: TcxGridDBColumn; VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn;
@ -158,8 +157,10 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
SQL.add('select ConNo,BuyConNo,max(ConDate) as ConDate,max(DlyDate) as DlyDate,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty ') ; SQL.add('select ConNo,ConMId,ConSId,FROMCPMID,BuyConNo,Z_Number,max(ConDate) as ConDate,max(DlyDate) as DlyDate ');
SQL.Add('from V_HT_SX GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND'); SQL.add(',C_Code,C_Name,Y_Code,Y_Name, Y_Composition');
sql.add(',Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty ') ;
SQL.Add('from V_HT_SX GROUP BY ConNo,ConMId,ConSId,FROMCPMID,BuyConNo,Z_Number,C_Code,C_Name,Y_Code,Y_Name,Y_Composition,Y_Color,TestDenier,Z_Number,FF,ND');
// showmessage(sql.Text); // showmessage(sql.Text);
Open; Open;
end; end;

334
A00通用窗体/U_YarnPurchasePlanSel.dfm
View File

@ -81,27 +81,27 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
object Label1: TLabel object Label1: TLabel
Left = 736 Left = 736
Top = 13 Top = 13
Width = 32 Width = 64
Height = 21 Height = 21
Caption = #35268#26684 Caption = #32433#32447#21517#31216
end end
object Label2: TLabel object Label2: TLabel
Left = 736 Left = 768
Top = 45 Top = 44
Width = 71 Width = 32
Height = 21 Height = 21
Caption = #32463#32433'/'#32428#32433 Caption = #25104#20998
end end
object Label3: TLabel object Label3: TLabel
Left = 282 Left = 528
Top = 45 Top = 44
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #20379#24212#21830 Caption = #20379#24212#21830
end end
object Label4: TLabel object Label4: TLabel
Left = 266 Left = 512
Top = 13 Top = 12
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
@ -116,32 +116,32 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
object Label6: TLabel object Label6: TLabel
Left = 986 Left = 986
Top = 13 Top = 13
Width = 48 Width = 32
Height = 21 Height = 21
Caption = #21046#21333#20154 Caption = #25903#25968
end end
object Label7: TLabel object Label7: TLabel
Left = 514 Left = 267
Top = 45 Top = 44
Width = 32 Width = 80
Height = 21 Height = 21
Caption = #21697#21517 Caption = #38754#26009#21512#21516#21495
end end
object Label8: TLabel object Label8: TLabel
Left = 514 Left = 267
Top = 13 Top = 17
Width = 32 Width = 80
Height = 21 Height = 21
Caption = #32534#21495 Caption = #22383#24067#21512#21516#21495
end end
object Y_Spec: TEdit object Y_Composition: TEdit
Tag = 2 Tag = 2
Left = 814 Left = 814
Top = 41 Top = 41
Width = 150 Width = 150
Height = 29 Height = 29
TabOrder = 0 TabOrder = 0
OnChange = Y_SpecChange OnKeyPress = PurNoKeyPress
end end
object Y_Name: TEdit object Y_Name: TEdit
Tag = 2 Tag = 2
@ -150,25 +150,25 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Width = 150 Width = 150
Height = 29 Height = 29
TabOrder = 1 TabOrder = 1
OnChange = Y_SpecChange OnKeyPress = PurNoKeyPress
end end
object SellName: TEdit object SellName: TEdit
Tag = 2 Tag = 2
Left = 334 Left = 580
Top = 41 Top = 40
Width = 150 Width = 150
Height = 29 Height = 29
TabOrder = 2 TabOrder = 2
OnChange = Y_SpecChange OnKeyPress = PurNoKeyPress
end end
object PurNo: TEdit object PurNo: TEdit
Tag = 2 Tag = 2
Left = 334 Left = 580
Top = 9 Top = 6
Width = 150 Width = 150
Height = 29 Height = 29
TabOrder = 3 TabOrder = 3
OnChange = Y_SpecChange OnKeyPress = PurNoKeyPress
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 112 Left = 112
@ -202,32 +202,32 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
State = cbChecked State = cbChecked
TabOrder = 6 TabOrder = 6
end end
object Filler: TEdit object ZS: TEdit
Tag = 2 Tag = 2
Left = 1040 Left = 1023
Top = 9 Top = 9
Width = 150 Width = 150
Height = 29 Height = 29
TabOrder = 7 TabOrder = 7
OnChange = Y_SpecChange OnKeyPress = PurNoKeyPress
end end
object Yarn_Name: TEdit object CPConNo: TEdit
Tag = 2 Tag = 2
Left = 566 Left = 352
Top = 41 Top = 39
Width = 150 Width = 150
Height = 29 Height = 29
TabOrder = 8 TabOrder = 8
OnChange = Y_SpecChange OnKeyPress = PurNoKeyPress
end end
object Y_Code: TEdit object ConNo: TEdit
Tag = 2 Tag = 2
Left = 566 Left = 352
Top = 9 Top = 7
Width = 150 Width = 150
Height = 29 Height = 29
TabOrder = 9 TabOrder = 9
OnChange = Y_SpecChange OnKeyPress = PurNoKeyPress
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
@ -268,11 +268,9 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column25
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column28
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -302,6 +300,20 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Options.Editing = False Options.Editing = False
Width = 120 Width = 120
end end
object Tv1CPConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'CPConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 133
end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo' DataBinding.FieldName = 'PurNo'
@ -318,21 +330,12 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Options.Editing = False Options.Editing = False
Width = 94 Width = 94
end end
object Tv1Column8: TcxGridDBColumn object Tv1C_Degree: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #31867#22411
DataBinding.FieldName = 'BuyName' DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 87
end
object Tv1Column17: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkName2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
@ -340,62 +343,40 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 81 Width = 80
end end
object Tv1Column19: TcxGridDBColumn object Tv1Column19: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Yarn_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1SPName: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 80
end end
object v1SPSpec: TcxGridDBColumn object Tv1Y_Composition: TcxGridDBColumn
Tag = 2 Caption = #25104#20998
Caption = #32463#32433'/'#32428#32433 DataBinding.FieldName = 'Y_Composition'
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter Width = 80
Options.Editing = False
Width = 105
end end
object Tv1Column20: TcxGridDBColumn object Tv1Y_Color: TcxGridDBColumn
Caption = 'D'#25968 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 126
Width = 80
end end
object Tv1Column21: TcxGridDBColumn object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968 Caption = #25903#25968
DataBinding.FieldName = 'Z_Number' DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column22: TcxGridDBColumn
Caption = 'F'#25968
DataBinding.FieldName = 'F_Number'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #32433#32447#31561#32423
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -412,71 +393,6 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
VisibleForCustomization = False VisibleForCustomization = False
Width = 66 Width = 66
end end
object v1QtyUnit: TcxGridDBColumn
Tag = 2
Caption = #26412#21378#25209#21495
DataBinding.FieldName = 'BCPH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1Column2: TcxGridDBColumn
Caption = #20379#24212#21830#25209#21495
DataBinding.FieldName = 'GYSPH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 111
end
object Tv1Column9: TcxGridDBColumn
Caption = #21152#24037#25209#21495
DataBinding.FieldName = 'JGPH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column15: TcxGridDBColumn
Caption = #31665#25968'/'#21253#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object Tv1Column16: TcxGridDBColumn
Caption = #21333#31665#37325#37327
DataBinding.FieldName = 'PieceKG'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column29: TcxGridDBColumn
Caption = #27599#21253#39063#25968
DataBinding.FieldName = 'KeShu'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column30: TcxGridDBColumn
Caption = #27599#39063#37325#37327
DataBinding.FieldName = 'KeKG'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #24635#37325#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #36816#36153 Caption = #36816#36153
@ -488,8 +404,29 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
VisibleForCustomization = False VisibleForCustomization = False
Width = 66 Width = 66
end end
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Piece: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Qty: TcxGridDBColumn
Caption = #37319#36141#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -505,77 +442,19 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column12: TcxGridDBColumn object Tv1YRKPiece: TcxGridDBColumn
Caption = #21040#36135#25968#37327 Caption = #24050#20837#24211#21305#25968
DataBinding.FieldName = 'YDHQty' DataBinding.FieldName = 'YRKPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 118
Width = 84
end end
object Tv1Column13: TcxGridDBColumn object Tv1CYRKQty: TcxGridDBColumn
Caption = #26410#21040#36135#25968#37327 Caption = #24050#20837#24211#25968#37327
DataBinding.FieldName = 'WDHQty' DataBinding.FieldName = 'YRKQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 103
Width = 95
end
object Tv1Column14: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column23: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'isTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column24: TcxGridDBColumn
Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'Price2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column25: TcxGridDBColumn
Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'Amount2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column26: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'ShuiLv'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column27: TcxGridDBColumn
Caption = #21547#31246#21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column28: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
@ -1185,6 +1064,7 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Top = 248 Top = 248
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 352 Left = 352
Top = 336 Top = 336

137
A00通用窗体/U_YarnPurchasePlanSel.pas
View File

@ -9,10 +9,9 @@ uses
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus, cxCalendar,
cxCheckBox, Vcl.Menus, cxCalendar, cxPC, dxScrollbarAnnotations, dxSkinsCore, cxPC, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters;
dxSkinsDefaultPainters;
type type
TfrmYarnPurchasePlanSel = class(TfrmBaseHelp) TfrmYarnPurchasePlanSel = class(TfrmBaseHelp)
@ -28,15 +27,12 @@ type
ADOConnection1: TADOConnection; ADOConnection1: TADOConnection;
Panel1: TPanel; Panel1: TPanel;
Label1: TLabel; Label1: TLabel;
Y_Spec: TEdit; Y_Composition: TEdit;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
ImageList1: TImageList; ImageList1: TImageList;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1SPName: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
@ -56,17 +52,12 @@ type
cxBlue: TcxStyle; cxBlue: TcxStyle;
SHuangSeCu: TcxStyle; SHuangSeCu: TcxStyle;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
Y_Name: TEdit; Y_Name: TEdit;
Label3: TLabel; Label3: TLabel;
@ -81,31 +72,26 @@ type
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Label6: TLabel; Label6: TLabel;
Filler: TEdit; ZS: TEdit;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn; Tv1ZS: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Label7: TLabel; Label7: TLabel;
Label8: TLabel; Label8: TLabel;
Yarn_Name: TEdit; CPConNo: TEdit;
Y_Code: TEdit; ConNo: TEdit;
Tv1Column23: TcxGridDBColumn; Tv1CPConNo: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn; Tv1ConNo: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn; Tv1C_Degree: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn; Tv1Y_Color: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn; Tv1Y_Composition: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn; Tv1Denier: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn; Tv1FF: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn; Tv1Qty: TcxGridDBColumn;
Tv1CYRKQty: TcxGridDBColumn;
Tv1YRKPiece: TcxGridDBColumn;
Tv1Piece: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -114,11 +100,11 @@ type
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject); procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure Y_SpecChange(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure PurNoKeyPress(Sender: TObject; var Key: Char);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -156,16 +142,7 @@ begin
BegDate.DateTime := EndDate.DateTime - 90; BegDate.DateTime := EndDate.DateTime - 90;
end; end;
procedure TfrmYarnPurchasePlanSel.Y_SpecChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmYarnPurchasePlanSel.cxTabControl1Change(Sender: TObject); procedure TfrmYarnPurchasePlanSel.cxTabControl1Change(Sender: TObject);
begin begin
@ -189,8 +166,12 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.*,B.* '); sql.Add(' select A.*,B.* ');
sql.Add(' ,WDHQty=B.Qty-(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) '); // sql.Add(' ,WDHQty=B.Qty-(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) '); sql.Add(' ,YRKQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' ,YRKPiece=(select sum(Piece) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=B.PurSId) ');
sql.Add(' ,FromOrdNo=(select OrderNo from Tat_Plan_Main X inner join Tat_Plan_Sub Y on X.MainID=Y.MainID where Y.ConNo=B.ConNo) ');
sql.Add(' ,FromMainId=(select MainID from Tat_Plan_Sub X where X.ConNo=B.ConNo) ');
sql.Add(' ,FromSubId=(select OrderNo from Tat_Plan_Sub X where X.ConNo=B.ConNo) ');
sql.Add(' from Pur_YarnPlan_Main A'); sql.Add(' from Pur_YarnPlan_Main A');
sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId'); sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId');
sql.Add(' where isnull(LX,'''') <> ''Ö¯Ôìµ¥'' and isnull(A.status,''0'')=''9'''); sql.Add(' where isnull(LX,'''') <> ''Ö¯Ôìµ¥'' and isnull(A.status,''0'')=''9''');
@ -230,6 +211,20 @@ begin
end; end;
procedure TfrmYarnPurchasePlanSel.PurNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
end;
procedure TfrmYarnPurchasePlanSel.FormShow(Sender: TObject); procedure TfrmYarnPurchasePlanSel.FormShow(Sender: TObject);
begin begin
inherited; inherited;
@ -240,35 +235,35 @@ begin
if canshu1 = '¹ÜÀí' then if canshu1 = '¹ÜÀí' then
begin begin
Tv1Column23.Visible := true; // Tv1Column23.Visible := true;
Tv1Column24.Visible := true; // Tv1Column24.Visible := true;
Tv1Column25.Visible := true; // Tv1Column25.Visible := true;
Tv1Column26.Visible := true; // Tv1Column26.Visible := true;
Tv1Column27.Visible := true; // Tv1Column27.Visible := true;
Tv1Column28.Visible := true; // Tv1Column28.Visible := true;
//
Tv1Column23.Hidden := False; // Tv1Column23.Hidden := False;
Tv1Column24.Hidden := False; // Tv1Column24.Hidden := False;
Tv1Column25.Hidden := False; // Tv1Column25.Hidden := False;
Tv1Column26.Hidden := False; // Tv1Column26.Hidden := False;
Tv1Column27.Hidden := False; // Tv1Column27.Hidden := False;
Tv1Column28.Hidden := False; // Tv1Column28.Hidden := False;
end end
else else
begin begin
Tv1Column23.Visible := False; // Tv1Column23.Visible := False;
Tv1Column24.Visible := False; // Tv1Column24.Visible := False;
Tv1Column25.Visible := False; // Tv1Column25.Visible := False;
Tv1Column26.Visible := False; // Tv1Column26.Visible := False;
Tv1Column27.Visible := False; // Tv1Column27.Visible := False;
Tv1Column28.Visible := False; // Tv1Column28.Visible := False;
//
Tv1Column23.Hidden := true; // Tv1Column23.Hidden := true;
Tv1Column24.Hidden := true; // Tv1Column24.Hidden := true;
Tv1Column25.Hidden := true; // Tv1Column25.Hidden := true;
Tv1Column26.Hidden := true; // Tv1Column26.Hidden := true;
Tv1Column27.Hidden := true; // Tv1Column27.Hidden := true;
Tv1Column28.Hidden := true; // Tv1Column28.Hidden := true;
end; end;
end; end;

106
A02基础产品管理/ClothInfo.dproj.local
View File

@ -1,79 +1,79 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2025/08/28 09:29:23.000.693,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction> <Transaction>2025/08/28 09:29:23.000.693,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>2025/09/24 11:07:38.000.652,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_log.pas</Transaction> <Transaction>2025/09/24 11:07:38.000.652,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_log.pas</Transaction>
<Transaction>2025/09/24 12:20:14.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_LogInput.pas</Transaction> <Transaction>2025/09/24 12:20:14.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_LogInput.pas</Transaction>

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

12
A02基础产品管理/U_LogInput.pas
View File

@ -65,6 +65,8 @@ type
{ Private declarations } { Private declarations }
public public
fC_Code: string; fC_Code: string;
fmaxId : string;
fflag : string;
{ Public declarations } { Public declarations }
end; end;
@ -103,9 +105,13 @@ begin
sql.Clear; sql.Clear;
sql.Add(' select * from sy_sysLog '); sql.Add(' select * from sy_sysLog ');
sql.Add(' where Model = ' + QuotedStr(Trim('梭织产品信息录入'))); sql.Add(' where Model = ' + QuotedStr(Trim('梭织产品信息录入')));
if fC_Code <> '' then if fflag = '查看' then
begin begin
SQL.Add(' and 1=2') SQL.Add(' and Result =' + quotedStr(Trim(fmaxId)) );
end
else if fflag = '修改' then
begin
SQL.Add('and 1=2' );
end; end;
Open; Open;
end; end;
@ -177,7 +183,7 @@ begin
Edit; Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'SY_sysLog', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'SY_sysLog', 0);
FieldByName('Model').Value := '梭织产品信息录入'; FieldByName('Model').Value := '梭织产品信息录入';
FieldByName('Result').Value := '成功'; FieldByName('Result').Value := fmaxId;
Post; Post;
end; end;
Next; Next;

73
A02基础产品管理/U_TatClothInfo.dfm
View File

@ -363,10 +363,11 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 2 Left = 2
Top = 42 Top = 42
Width = 1259 Width = 1259
Height = 231 Height = 326
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitHeight = 231
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -681,35 +682,37 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
object cxPageControl3: TcxPageControl object cxPageControl3: TcxPageControl
Left = 2 Left = 2
Top = 273 Top = 368
Width = 1259 Width = 1259
Height = 367 Height = 272
Align = alBottom Align = alBottom
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
LookAndFeel.ScrollbarMode = sbmHybrid LookAndFeel.ScrollbarMode = sbmHybrid
LookAndFeel.SkinName = '' LookAndFeel.SkinName = ''
ClientRectBottom = 367 ClientRectBottom = 272
ClientRectRight = 1259 ClientRectRight = 1259
ClientRectTop = 28 ClientRectTop = 28
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
ImageIndex = 0 ImageIndex = 0
ExplicitHeight = 339
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1259 Width = 1259
Height = 339 Height = 244
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitHeight = 339
object cxPageControl2: TcxPageControl object cxPageControl2: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1257 Width = 1257
Height = 337 Height = 242
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -724,7 +727,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 337 ExplicitHeight = 337
ClientRectBottom = 242
ClientRectRight = 1257 ClientRectRight = 1257
ClientRectTop = 0 ClientRectTop = 0
end end
@ -732,9 +736,11 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1257 Width = 1257
Height = 337 Height = 242
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 4
ExplicitHeight = 337
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -783,9 +789,9 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Sorting = False Options.Sorting = False
Width = 138 Width = 138
end end
object TV2Y_Spec: TcxGridDBColumn object TV2Y_Composition: TcxGridDBColumn
Caption = #35268#26684 Caption = #25104#20998
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
@ -866,13 +872,16 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512 Caption = #32428#19997#32452#21512
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 339
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1259 Width = 1259
Height = 339 Height = 244
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
ExplicitHeight = 339
object Tv4: TcxGridDBTableView object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -923,9 +932,9 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Sorting = False Options.Sorting = False
Width = 88 Width = 88
end end
object v2Column2: TcxGridDBColumn object Tv4Y_Composition: TcxGridDBColumn
Caption = #35268#26684 Caption = #25104#20998
DataBinding.FieldName = 'Y_Spec' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -1013,29 +1022,33 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #26679#21697#22270#29255 Caption = #26679#21697#22270#29255
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 339
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1259 Width = 1259
Height = 339 Height = 244
Align = alClient Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0 TabOrder = 0
ExplicitHeight = 339
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 23 Top = 23
Width = 1255 Width = 1255
Height = 314 Height = 219
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0
ExplicitHeight = 314
end end
end end
end end
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = #36215#32508#27861 Caption = #36215#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 339
object cxDBImage2: TcxDBImage object cxDBImage2: TcxDBImage
Left = 0 Left = 0
Top = 0 Top = 0
@ -1049,19 +1062,21 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 0 TabOrder = 0
Height = 339 ExplicitHeight = 339
Height = 244
Width = 1259 Width = 1259
end end
end end
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #31359#32508#27861 Caption = #31359#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 339
object CZF: TMemo object CZF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1259 Width = 1259
Height = 339 Height = 244
Align = alClient Align = alClient
Enabled = False Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1072,6 +1087,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 339
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 0 Left = 0
@ -1086,19 +1102,21 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 1 TabOrder = 1
Height = 339 ExplicitHeight = 339
Height = 244
Width = 1259 Width = 1259
end end
end end
object cxTabSheet6: TcxTabSheet object cxTabSheet6: TcxTabSheet
Caption = #31359#31576#27861 Caption = #31359#31576#27861
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 339
object CKF: TMemo object CKF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1259 Width = 1259
Height = 339 Height = 244
Align = alClient Align = alClient
Enabled = False Enabled = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1109,6 +1127,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 339
end end
end end
end end
@ -1165,8 +1184,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 810 Left = 802
Top = 414 Top = 454
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
@ -1231,7 +1250,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object DSCYNO: TDataSource object DSCYNO: TDataSource
DataSet = CDS_CYNO DataSet = CDS_CYNO
Left = 742 Left = 742
Top = 414 Top = 454
end end
object CDS_CYNO: TClientDataSet object CDS_CYNO: TClientDataSet
Aggregates = <> Aggregates = <>
@ -1271,8 +1290,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
object DataSource3: TDataSource object DataSource3: TDataSource
DataSet = CDS_Sub DataSet = CDS_Sub
Left = 674 Left = 690
Top = 414 Top = 462
end end
object CDS_Sub: TClientDataSet object CDS_Sub: TClientDataSet
Aggregates = <> Aggregates = <>

8
A02基础产品管理/U_TatClothInfo.pas
View File

@ -136,7 +136,7 @@ type
Tv4: TcxGridDBTableView; Tv4: TcxGridDBTableView;
v2Column10: TcxGridDBColumn; v2Column10: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn; cxGridDBColumn22: TcxGridDBColumn;
v2Column2: TcxGridDBColumn; Tv4Y_Composition: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
@ -185,7 +185,7 @@ type
Qry_ImgHX: TADOQuery; Qry_ImgHX: TADOQuery;
DS_ImgHX: TDataSource; DS_ImgHX: TDataSource;
TbEditLog: TToolButton; TbEditLog: TToolButton;
TV2Y_Spec: TcxGridDBColumn; TV2Y_Composition: TcxGridDBColumn;
TV2QFYARNQTY: TcxGridDBColumn; TV2QFYARNQTY: TcxGridDBColumn;
TV2YarnFactor: TcxGridDBColumn; TV2YarnFactor: TcxGridDBColumn;
TV2MeterQty: TcxGridDBColumn; TV2MeterQty: TcxGridDBColumn;
@ -430,6 +430,7 @@ begin
Sql.Add(' @BCIIDS=' + quotedstr(RTValues[0])); Sql.Add(' @BCIIDS=' + quotedstr(RTValues[0]));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open; Open;
end; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
@ -679,7 +680,8 @@ begin
frmLogInput := TfrmLogInput.Create(Application); frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do with frmLogInput do
begin begin
fC_Code := ''; fflag := '查看';
fmaxId := Trim(self.CDS_1.FieldByName('BCIID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin

17
A02基础产品管理/U_TatClothInfoInput.dfm
View File

@ -9,6 +9,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16 Font.Height = -16
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
ExplicitTop = -151
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 776 ExplicitHeight = 776
PixelsPerInch = 96 PixelsPerInch = 96
@ -892,7 +893,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 312 Height = 312
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
ClientRectBottom = 312 ClientRectBottom = 312
@ -901,9 +902,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
ImageIndex = 0 ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 931 Left = 931
Top = 0 Top = 0
@ -966,6 +964,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 1 TabOrder = 1
ExplicitLeft = -2
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1188,6 +1187,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 1 TabOrder = 1
ExplicitLeft = -2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1346,9 +1346,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861 Caption = #36215#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -1406,9 +1403,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861 Caption = #31359#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -1474,9 +1468,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861 Caption = #31359#31576#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CKF: TMemo object CKF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0

50
A02基础产品管理/U_TatClothInfoInput.pas
View File

@ -634,6 +634,11 @@ begin
FieldByName('Y_Composition').Value := null; FieldByName('Y_Composition').Value := null;
FieldByName('MeterQty').Value := null; FieldByName('MeterQty').Value := null;
FieldByName('PTNo').Value := null; FieldByName('PTNo').Value := null;
FieldByName('Z_Number').Value := null;
FieldByName('YarnFactor').Value := null;
FieldByName('Y_Loss').Value := null;
FieldByName('NOTE').Value := null;
Post; Post;
end; end;
end; end;
@ -665,6 +670,11 @@ begin
FieldByName('Y_Composition').Value := null; FieldByName('Y_Composition').Value := null;
FieldByName('MeterQty').Value := null; FieldByName('MeterQty').Value := null;
FieldByName('PTNo').Value := null; FieldByName('PTNo').Value := null;
FieldByName('Z_Number').Value := null;
FieldByName('QFYARNQTY').Value := null;
FieldByName('YarnFactor').Value := null;
FieldByName('NOTE').Value := null;
Post; Post;
end; end;
end; end;
@ -877,24 +887,6 @@ begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
try
if FBCIID <> '' then
begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fC_Code := Self.C_Code.Text;
if ShowModal = 1 then
begin
end;
end;
end;
finally
frmLogInput.Free;
end;
if Trim(FBCIID) = '' then if Trim(FBCIID) = '' then
begin begin
@ -912,6 +904,28 @@ begin
begin begin
maxId := Trim(FBCIID); maxId := Trim(FBCIID);
end; end;
try
if FBCIID <> '' then
begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fC_Code := Self.C_Code.Text;
fmaxId := maxId;
fflag := 'ÐÞ¸Ä';
if ShowModal = 1 then
begin
end;
end;
end;
finally
frmLogInput.Free;
end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;

4
A09财务通用管理/Financial.dpr
View File

@ -46,7 +46,9 @@ uses
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.pas', U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_PayableBatchInput in 'U_PayableBatchInput.pas' {frmPayableBatchInput},
U_FinPurchasePlanSel in 'U_FinPurchasePlanSel.pas' {frmFinPurchasePlanSel};
{$R *.res} {$R *.res}

58
A09财务通用管理/Financial.dproj
View File

@ -4,7 +4,7 @@
<MainSource>Financial.dpr</MainSource> <MainSource>Financial.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,15 +78,6 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\testDll.exe</Debugger_HostApplication>
@ -261,6 +217,14 @@
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/> <DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/> <DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_PayableBatchInput.pas">
<Form>frmPayableBatchInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_FinPurchasePlanSel.pas">
<Form>frmFinPurchasePlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -283,10 +247,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform> <Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

100
A09财务通用管理/Financial.dproj.local
View File

@ -1,60 +1,62 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>2026/02/04 15:48:47.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>2026/02/05 12:06:10.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -135,5 +137,9 @@
<File Path="U_PayInput.dfm"/> <File Path="U_PayInput.dfm"/>
<File Path="U_PayableInput.pas"/> <File Path="U_PayableInput.pas"/>
<File Path="U_PayableInput.dfm"/> <File Path="U_PayableInput.dfm"/>
<File Path="U_PayableBatchInput.pas"/>
<File Path="U_PayableBatchInput.dfm"/>
<File Path="U_FinPurchasePlanSel.pas"/>
<File Path="U_FinPurchasePlanSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

BIN
A09财务通用管理/Financial.res
View File

Binary file not shown.

462
A09财务通用管理/U_ExpenseInput.dfm
View File

@ -2,13 +2,13 @@ object frmExpenseInput: TfrmExpenseInput
Left = 261 Left = 261
Top = 149 Top = 149
Caption = #36153#29992#30331#35760 Caption = #36153#29992#30331#35760
ClientHeight = 343 ClientHeight = 524
ClientWidth = 919 ClientWidth = 1014
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
@ -16,12 +16,12 @@ object frmExpenseInput: TfrmExpenseInput
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 21
object ToolBar1: TToolBar object ToolBar1: TToolBar
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 919 Width = 1014
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -34,6 +34,7 @@ object frmExpenseInput: TfrmExpenseInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -43,7 +44,7 @@ object frmExpenseInput: TfrmExpenseInput
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 71 Left = 79
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -54,353 +55,228 @@ object frmExpenseInput: TfrmExpenseInput
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 38 Top = 38
Width = 919 Width = 1014
Height = 305 Height = 486
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
BorderStyle = bsNone BorderStyle = bsNone
Color = clWhite Color = clWhite
Ctl3D = False Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
ParentFont = False
TabOrder = 1 TabOrder = 1
object Label2: TLabel ExplicitTop = 44
Left = 245
Top = 20
Width = 52
Height = 15
Caption = #23545#26041#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel object Label7: TLabel
Left = 28 Left = 78
Top = 186 Top = 323
Width = 41 Width = 64
Height = 15 Height = 21
Caption = #22791' '#27880 Caption = #20132#26131#38468#35328
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label8: TLabel object Label1: TLabel
Left = 28 Left = 84
Top = 133 Top = 86
Width = 52 Width = 64
Height = 15 Height = 21
Caption = #20184#27454#26041#24335 Caption = #25253#38144#31867#22411
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label5: TLabel object Label2: TLabel
Left = 28 Left = 440
Top = 20 Top = 140
Width = 52 Width = 32
Height = 15 Height = 21
Caption = #25105#26041#21333#20301 Caption = #31246#21495
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 250 Left = 84
Top = 133 Top = 195
Width = 47 Width = 96
Height = 15 Height = 21
Caption = #37329' '#39069 Caption = #25910#27454#38134#34892#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label18: TLabel object Label5: TLabel
Left = 28 Left = 84
Top = 47 Top = 249
Width = 52 Width = 96
Height = 15 Height = 21
Caption = #25105#26041#36134#21495 Caption = #25910#27454#38134#34892#36134#25143
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label19: TLabel object Label6: TLabel
Left = 245 Left = 440
Top = 47 Top = 86
Width = 52 Width = 32
Height = 15 Height = 21
Caption = #23545#26041#36134#21495 Caption = #37329#39069
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label20: TLabel object Label8: TLabel
Left = 495 Left = 84
Top = 20 Top = 140
Width = 39 Width = 64
Height = 15 Height = 21
Caption = #26085#26399#65306 Caption = #21333#20301#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label22: TLabel object Label10: TLabel
Left = 245 Left = 440
Top = 75 Top = 195
Width = 52 Width = 64
Height = 15 Height = 21
Caption = #35745#21010#21333#21495 Caption = #20184#27454#38134#34892
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label23: TLabel object Label12: TLabel
Left = 28 Left = 440
Top = 75 Top = 249
Width = 51 Width = 64
Height = 15 Height = 21
Caption = #21512' '#21516' '#21495 Caption = #20184#27454#36134#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Label24: TLabel object Label4: TLabel
Left = 495 Left = 84
Top = 75 Top = 36
Width = 39 Width = 64
Height = 15 Height = 21
Caption = #25688#35201#65306 Caption = #30003#35831#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end end
object Note: TMemo object Label9: TLabel
Left = 88 Left = 440
Top = 186 Top = 36
Width = 797 Width = 32
Height = 21
Caption = #29992#36884
end
object FinanceNote: TMemo
Tag = 2
Left = 168
Top = 303
Width = 681
Height = 57 Height = 57
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
end end
object Currency: TComboBox object ReimburseType: TcxButtonEdit
Left = 396 Tag = 2
Top = 130 Left = 200
Width = 45 Top = 83
Height = 20 Hint = 'ReimburseType/'#25253#38144#31867#22411
Style = csDropDownList Properties.Buttons = <
Font.Charset = ANSI_CHARSET item
Font.Color = clWindowText Default = True
Font.Height = -10 Kind = bkEllipsis
Font.Name = 'Times New Roman' end>
Font.Style = [] Properties.OnButtonClick = ReimburseTypePropertiesButtonClick
ItemIndex = 0
ParentFont = False
TabOrder = 1 TabOrder = 1
Text = 'CNY' Width = 200
Items.Strings = ( end
object Currency: TcxComboBox
Tag = 2
Left = 718
Top = 83
Properties.Items.Strings = (
'CNY' 'CNY'
'USD' 'USD'
'EUR') 'VND')
end
object PayMent: TBtnEditC
Left = 88
Top = 130
Width = 140
Height = 20
Hint = 'PayMent/'#20184#27454#26041#24335
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2 TabOrder = 2
OnBtnUpClick = PayMentBtnUpClick Text = 'CNY'
OnBtnDnClick = PayMentBtnDnClick Width = 66
end end
object OppCoName: TBtnEditC object TaxNumber: TcxTextEdit
Left = 301 Tag = 2
Top = 17 Left = 512
Width = 140 Top = 137
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3 TabOrder = 3
OnBtnUpClick = OppCoNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object OurCoName: TBtnEditC object OppBankCardNo: TcxTextEdit
Left = 88 Tag = 2
Top = 17 Left = 200
Width = 140 Top = 246
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4 TabOrder = 4
OnBtnUpClick = OurCoNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object Amount: TcxCurrencyEdit object Amount: TcxTextEdit
Left = 301 Tag = 2
Top = 130 Left = 512
Properties.AssignedValues.DisplayFormat = True Top = 83
TabOrder = 5 TabOrder = 5
Width = 93 Width = 200
end end
object OurBankName: TBtnEditC object OppCoName: TcxTextEdit
Left = 86 Tag = 2
Top = 44 Left = 200
Width = 140 Top = 137
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6 TabOrder = 6
OnBtnUpClick = OurBankNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object OppBankName: TBtnEditC object OurBankCardNo: TcxTextEdit
Left = 301 Tag = 2
Top = 44 Left = 512
Width = 140 Top = 246
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7 TabOrder = 7
OnBtnUpClick = OppBankNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object FFTime: TDateTimePicker object OurBankName: TcxButtonEdit
Left = 536 Tag = 2
Top = 17 Left = 512
Width = 125 Top = 192
Height = 20 Hint = 'OurBankName/'#20184#27454#38134#34892
BevelInner = bvNone Properties.Buttons = <
Date = 40916.000000000000000000 item
Format = 'yyyy-MM-dd' Default = True
Time = 0.670856296288548000 Kind = bkEllipsis
end>
Properties.OnButtonClick = OurBankNamePropertiesButtonClick
TabOrder = 8 TabOrder = 8
Width = 200
end end
object OrderNo: TBtnEditC object OppBankName: TcxButtonEdit
Left = 301 Tag = 2
Top = 72 Left = 200
Width = 140 Top = 192
Height = 20 Hint = 'OppBankName/'#25910#27454#38134#34892#21517#31216
Font.Charset = GB2312_CHARSET Properties.Buttons = <
Font.Color = clWindowText item
Font.Height = -12 Default = True
Font.Name = #23435#20307 Kind = bkEllipsis
Font.Style = [] end>
ParentFont = False Properties.OnButtonClick = OppBankNamePropertiesButtonClick
TabOrder = 9 TabOrder = 9
OnBtnUpClick = OrderNoBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object ConNo: TBtnEditC object FFID: TcxTextEdit
Left = 88 Tag = 2
Top = 72 Left = 200
Width = 140 Top = 33
Height = 20 Properties.ReadOnly = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10 TabOrder = 10
OnBtnUpClick = ConNoBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object FFAbstract: TBtnEditC object Use: TcxTextEdit
Left = 536 Tag = 2
Top = 72 Left = 512
Width = 125 Top = 33
Height = 20 Properties.ReadOnly = False
Hint = 'FFAbstract/'#25688#35201
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 11 TabOrder = 11
OnBtnUpClick = PayMentBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 835 Left = 867
Top = 136 Top = 160
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 782 Left = 926
Top = 128 Top = 80
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 709 Left = 853
Top = 129 Top = 49
end end
end end

201
A09财务通用管理/U_ExpenseInput.pas
View File

@ -14,7 +14,8 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit; dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmExpenseInput = class(TForm) TfrmExpenseInput = class(TForm)
@ -25,29 +26,29 @@ type
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ToolButton3: TToolButton; ToolButton3: TToolButton;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
Label2: TLabel;
Label7: TLabel; Label7: TLabel;
Note: TMemo; FinanceNote: TMemo;
Label8: TLabel; ReimburseType: TcxButtonEdit;
Currency: TComboBox; Label1: TLabel;
PayMent: TBtnEditC; Currency: TcxComboBox;
OppCoName: TBtnEditC; TaxNumber: TcxTextEdit;
Label5: TLabel; Label2: TLabel;
OurCoName: TBtnEditC;
Amount: TcxCurrencyEdit;
Label3: TLabel; Label3: TLabel;
Label18: TLabel; OppBankCardNo: TcxTextEdit;
OurBankName: TBtnEditC; Label5: TLabel;
Label19: TLabel; Amount: TcxTextEdit;
OppBankName: TBtnEditC; Label6: TLabel;
Label20: TLabel; OppCoName: TcxTextEdit;
FFTime: TDateTimePicker; Label8: TLabel;
Label22: TLabel; Label10: TLabel;
OrderNo: TBtnEditC; OurBankCardNo: TcxTextEdit;
Label23: TLabel; Label12: TLabel;
ConNo: TBtnEditC; OurBankName: TcxButtonEdit;
Label24: TLabel; OppBankName: TcxButtonEdit;
FFAbstract: TBtnEditC; Label4: TLabel;
FFID: TcxTextEdit;
Label9: TLabel;
Use: TcxTextEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -57,11 +58,12 @@ type
procedure PayMentBtnDnClick(Sender: TObject); procedure PayMentBtnDnClick(Sender: TObject);
procedure PayMentBtnUpClick(Sender: TObject); procedure PayMentBtnUpClick(Sender: TObject);
procedure OppCoNameBtnUpClick(Sender: TObject); procedure OppCoNameBtnUpClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject); procedure ReimburseTypePropertiesButtonClick(Sender: TObject;
procedure OurBankNameBtnUpClick(Sender: TObject); AButtonIndex: Integer);
procedure OppBankNameBtnUpClick(Sender: TObject); procedure OurBankNamePropertiesButtonClick(Sender: TObject;
procedure ConNoBtnUpClick(Sender: TObject); AButtonIndex: Integer);
procedure OrderNoBtnUpClick(Sender: TObject); procedure OppBankNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -79,7 +81,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel, U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel,
U_FinTradeSalesContractSel; U_FinTradeSalesContractSel,U_ZDYBankSel;
{$R *.dfm} {$R *.dfm}
@ -98,15 +100,12 @@ begin
end; end;
if not ADOQueryMain.IsEmpty then if not ADOQueryMain.IsEmpty then
begin begin
SCSHData(ADOQueryMain, ScrollBox1, 0); SCSHData(ADOQueryMain, ScrollBox1, 2);
OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString);
OurBankName.TxtCode := Trim(ADOQueryMain.FieldByName('OurBankID').AsString);
end end
else else
begin begin
FFTime.DateTime := SGetServerDateTime(ADOQueryTemp); // FFTime.DateTime := SGetServerDateTime(ADOQueryTemp);
end; end;
finally finally
@ -114,22 +113,31 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.OppBankNameBtnUpClick(Sender: TObject);
begin
procedure TfrmExpenseInput.OppBankNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYBankSel := TfrmZDYBankSel.Create(Application);
with frmZDYHelp do with frmZDYBankSel do
begin begin
flag := self.OppCoName.TxtCode; MainType := '财务银行';
flagname := '对方账户'; flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); OppBankName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
OppBankCardNo.Text := Trim(ClientDataSet1.fieldbyname('note').AsString);
end; end;
end; end;
finally finally
frmZDYHelp.Free; frmZDYBankSel.Free;
end; end;
end; end;
@ -152,59 +160,29 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.OrderNoBtnUpClick(Sender: TObject); procedure TfrmExpenseInput.OurBankNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
try try
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application); frmZDYBankSel := TfrmZDYBankSel.Create(Application);
with frmFinTradePlanSel do with frmZDYBankSel do
begin begin
MainType := '财务银行';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with frmFinTradePlanSel.CDS_1 do OurBankName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
begin OurBankCardNo.Text := Trim(ClientDataSet1.fieldbyname('note').AsString);
self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
end;
end; end;
end; end;
finally finally
frmFinTradePlanSel.Free; frmZDYBankSel.Free;
end;
end;
procedure TfrmExpenseInput.OurBankNameBtnUpClick(Sender: TObject);
begin
try
frmBankSel := TfrmBankSel.Create(Application);
with frmBankSel do
begin
if ShowModal = 1 then
begin
OurBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
OurBankName.TxtCode := Trim(CDS_1.fieldbyname('BkID').AsString);
end;
end;
finally
frmBankSel.Free;
end;
end;
procedure TfrmExpenseInput.OurCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
finally
frmCompanySel.Free;
end; end;
end; end;
@ -243,24 +221,33 @@ begin
end; end;
end; end;
procedure TfrmExpenseInput.ConNoBtnUpClick(Sender: TObject); procedure TfrmExpenseInput.ReimburseTypePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
try try
frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmFinTradeSalesContractSel do with frmZDYHelp do
begin begin
MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
self.ConNo.Text := Trim(frmFinTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
end; end;
end; end;
finally finally
frmFinTradeSalesContractSel.Free; frmZDYHelp.Free;
end; end;
end; end;
procedure TfrmExpenseInput.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmExpenseInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -291,7 +278,7 @@ begin
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
if Trim(FFFID) = '' then if Trim(FFFID) = '' then
begin begin
if not GetLSNo(ADOQueryCmd, MaxId, 'YS', 'Finance_Flow', 4, 1) then if not GetLSNo(ADOQueryCmd, MaxId, 'FS', 'Finance_Flow', 4, 1) then
raise Exception.Create('取最大号失败！'); raise Exception.Create('取最大号失败！');
end end
else else
@ -299,6 +286,8 @@ begin
MaxId := Trim(FFFID); MaxId := Trim(FFFID);
end; end;
FFID.Text := MaxId;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -313,10 +302,14 @@ begin
Append; Append;
FieldByName('FillId').Value := Trim(DCode); FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTemp);
FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryTemp);
FieldByName('FFFlag').Value := '费用'; FieldByName('FFFlag').Value := '费用';
FieldByName('FFType').Value := '费用登记'; FieldByName('FFType').Value := '费用登记';
FieldByName('status').Value := '0'; FieldByName('Checkstatus').Value := '未审核';
FieldByName('FFQtyFlag').Value := 1; FieldByName('PayStatus').Value := '未付款';
FieldByName('PrintStatus').Value := '未打印';
FieldByName('FFQtyFlag').Value := 1; //出入库标记
end end
else else
begin begin
@ -325,11 +318,11 @@ begin
FieldByName('Editer').Value := Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode); // FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode);
FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); // FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode); // FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode);
FieldByName('FFID').Value := Trim(MaxId); // FieldByName('FFID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2);
Post; Post;
end; end;
@ -351,11 +344,7 @@ begin
Application.MessageBox('对方单位不能为空!', '提示', 0); Application.MessageBox('对方单位不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(OurCoName.Text) = '' then
begin
Application.MessageBox('我方单位不能为空!', '提示', 0);
Exit;
end;
if Trim(Currency.Text) = '' then if Trim(Currency.Text) = '' then
begin begin
Application.MessageBox('币种不能为空!', '提示', 0); Application.MessageBox('币种不能为空!', '提示', 0);

253
A09财务通用管理/U_ExpenseList.dfm
View File

@ -3,11 +3,11 @@ inherited frmExpenseList: TfrmExpenseList
Top = 101 Top = 101
Caption = #36153#29992#31649#29702 Caption = #36153#29992#31649#29702
ClientHeight = 590 ClientHeight = 590
ClientWidth = 1625 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1641 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -15,7 +15,7 @@ inherited frmExpenseList: TfrmExpenseList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1625 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -76,24 +76,48 @@ inherited frmExpenseList: TfrmExpenseList
ImageIndex = 11 ImageIndex = 11
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton9: TToolButton object TbnPay: TToolButton
Left = 458 Left = 458
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20184#27454
ImageIndex = 12
OnClick = TbnPayClick
end
object TbnRePay: TToolButton
Left = 529
Top = 0
AutoSize = True
Caption = #25764#38144#20184#27454
ImageIndex = 11
OnClick = TbnRePayClick
end
object ToolButton9: TToolButton
Left = 632
Top = 0
AutoSize = True
Caption = #38468#20214#19978#20256 Caption = #38468#20214#19978#20256
ImageIndex = 22 ImageIndex = 22
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 561 Left = 735
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 20 ImageIndex = 20
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TbPrint: TToolButton
Left = 806
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TbPrintClick
end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 632 Left = 877
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -101,7 +125,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 735 Left = 980
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -112,7 +136,7 @@ inherited frmExpenseList: TfrmExpenseList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1625 Width = 1540
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -242,10 +266,10 @@ inherited frmExpenseList: TfrmExpenseList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 124 Top = 124
Width = 1625 Width = 1540
Height = 466 Height = 466
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -268,7 +292,7 @@ inherited frmExpenseList: TfrmExpenseList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column17 Column = Tv1Amount
end end
item item
Kind = skSum Kind = skSum
@ -290,9 +314,9 @@ inherited frmExpenseList: TfrmExpenseList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 44
end end
object v2CRTime: TcxGridDBColumn object Tv1FFTime: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #26085#26399 Caption = #30003#35831#26085#26399
DataBinding.FieldName = 'FFTime' DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
@ -300,107 +324,137 @@ inherited frmExpenseList: TfrmExpenseList
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 101
end end
object v2Column2: TcxGridDBColumn object Tv1ReimburseType: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25253#38144#31867#22411
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'ReimburseType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1ReimburseTypePropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 91
end end
object v2FactoryName: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #24065#31181
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'VND')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 88
end end
object v2OrderNo: TcxGridDBColumn object Tv1Amount: TcxGridDBColumn
Tag = 7
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143
DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #23545#26041#36134#25143
DataBinding.FieldName = 'OppBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column4: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 90
end end
object Tv1Column18: TcxGridDBColumn object Tv1TaxNumber: TcxGridDBColumn
Caption = #24065#31181 Caption = #31246#21495
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'TaxNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2FactoryName: TcxGridDBColumn
Caption = #21333#20301#21517#31216
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 95
end
object Tv1OppBankName: TcxGridDBColumn
Tag = 7
Caption = #25910#27454#38134#34892#21517#31216
DataBinding.FieldName = 'OppBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 118
end
object Tv1OppBankCardNo: TcxGridDBColumn
Caption = #25910#27454#38134#34892#36134#25143
DataBinding.FieldName = 'OppBankCardNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 128
end
object Tv1OurBankName: TcxGridDBColumn
Caption = #20184#27454#38134#34892
DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object Tv1OurBankCardNo: TcxGridDBColumn
Caption = #20184#27454#36134#21495
DataBinding.FieldName = 'OurBankCardNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object Tv1Column20: TcxGridDBColumn
Caption = #20132#26131#38468#35328
DataBinding.FieldName = 'FinanceNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object Tv1Status: TcxGridDBColumn
Caption = #23457#26680#29366#24577
DataBinding.FieldName = 'CheckStatus'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#26410#23457#26680
#24050#23457#26680)
HeaderAlignmentHorz = taCenter
Width = 98
end
object Tv1PrintStatus: TcxGridDBColumn
Caption = #25171#21360#29366#24577
DataBinding.FieldName = 'PrintStatus'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#26410#25171#21360
#24050#25171#21360)
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1PayStatus: TcxGridDBColumn
Caption = #20184#27454#29366#24577
DataBinding.FieldName = 'PayStatus'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#26410#20184#27454
#24050#20184#27454)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #22791#27880 Caption = #20184#27454#26085#26399
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'PayTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
@ -413,7 +467,7 @@ inherited frmExpenseList: TfrmExpenseList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1625 Width = 1540
Height = 29 Height = 29
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -423,13 +477,20 @@ inherited frmExpenseList: TfrmExpenseList
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23457#26680 #26410#23457#26680
#24050#23457#26680 #24050#23457#26680
#24050#20184#27454
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
inherited loadProcess: TPanel
Top = 176
ExplicitTop = 176
end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Top = 89
ExplicitTop = 89
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
@ -504,7 +565,7 @@ inherited frmExpenseList: TfrmExpenseList
Left = 544 Left = 544
Top = 360 Top = 360
end end
object PopupMenu1: TPopupMenu object PM_1: TPopupMenu
Left = 544 Left = 544
Top = 288 Top = 288
object N1: TMenuItem object N1: TMenuItem

348
A09财务通用管理/U_ExpenseList.pas
View File

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, cxContainer, dxCore, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar;
cxProgressBar;
type type
TfrmExpenseList = class(TfrmBaseList) TfrmExpenseList = class(TfrmBaseList)
@ -34,7 +33,7 @@ type
OppCoName: TcxTextEdit; OppCoName: TcxTextEdit;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn; Tv1FFTime: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
DS_1: TDataSource; DS_1: TDataSource;
@ -45,16 +44,15 @@ type
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
P_Code: TcxTextEdit; P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn; Tv1OppBankName: TcxGridDBColumn;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Label10: TLabel; Label10: TLabel;
ConNo: TcxTextEdit; ConNo: TcxTextEdit;
Label11: TLabel; Label11: TLabel;
BuyConNo: TcxTextEdit; BuyConNo: TcxTextEdit;
v2Column2: TcxGridDBColumn;
btnChk: TToolButton; btnChk: TToolButton;
btnReChk: TToolButton; btnReChk: TToolButton;
PopupMenu1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Label2: TLabel; Label2: TLabel;
@ -62,16 +60,16 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
N2: TMenuItem; N2: TMenuItem;
btnEdit: TToolButton; btnEdit: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1OppBankCardNo: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1OurBankName: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1OurBankCardNo: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn; Tv1Amount: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Currency: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn; Tv1ReimburseType: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn; Tv1Status: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1PayStatus: TcxGridDBColumn;
ToolButton9: TToolButton; ToolButton9: TToolButton;
N3: TMenuItem; N3: TMenuItem;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
@ -79,6 +77,11 @@ type
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
CheckBox1: TcxCheckBox; CheckBox1: TcxCheckBox;
Tv1TaxNumber: TcxGridDBColumn;
Tv1PrintStatus: TcxGridDBColumn;
TbnPay: TToolButton;
TbnRePay: TToolButton;
TbPrint: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -97,6 +100,10 @@ type
procedure ToolButton9Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure Tv1ReimburseTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TbnPayClick(Sender: TObject);
procedure TbnRePayClick(Sender: TObject);
procedure TbPrintClick(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -107,7 +114,8 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ExpenseInput, U_ZDYHelp, U_AttachmentUpload; U_DataLink, U_RTFun, U_ExpenseInput, U_ZDYHelp, U_AttachmentUpload,
U_LabelPrint;
{$R *.dfm} {$R *.dfm}
procedure TfrmExpenseList.SetStatus(); procedure TfrmExpenseList.SetStatus();
@ -115,12 +123,14 @@ begin
btnChk.Enabled := false; //审核 btnChk.Enabled := false; //审核
btnReChk.Enabled := false; //撤销 btnReChk.Enabled := false; //撤销
TbnPay.Enabled := false; //付款
TbnRePay.Enabled := false; //撤销
btnAdd.Enabled := false; //新增 btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除 btnDel.Enabled := false; //删除
// if Trim(FAuthority) = '管理' then if Trim(FAuthority) = '审核' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
@ -133,6 +143,26 @@ begin
1: 1:
begin begin
btnReChk.Enabled := true; btnReChk.Enabled := true;
TbnPay.Enabled := true;
end;
2:
begin
TbnRePay.Enabled := true;
end;
end;
end;
if Trim(FAuthority) = '申请' then
begin
btnAdd.Enabled := true;
case cxTabControl1.TabIndex of
0:
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
end;
1:
begin
end; end;
2: 2:
begin begin
@ -164,17 +194,21 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.Add(' and isnull(status,''0'')=''0'' '); sql.Add(' and Checkstatus=''未审核'' ');
end; end;
1: 1:
begin begin
sql.Add(' and isnull(status,''9'')=''9'' '); sql.Add(' and Checkstatus=''已审核'' and PayStatus=''未付款'' ');
end;
2:
begin
sql.Add(' and PayStatus=''已付款'' ');
end; end;
end; end;
if CheckBox1.Checked then if CheckBox1.Checked then
begin begin
sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' '); sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' '); sql.Add(' and A.FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
end; end;
sql.Add(WSql); sql.Add(WSql);
Open; Open;
@ -216,6 +250,203 @@ begin
Close; Close;
end; end;
procedure TfrmExpenseList.TbnPayClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''付款'' ');
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(' exec P_Fin_In_Bank_Flow ');
// sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
// 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;
application.MessageBox('付款成功', '提示');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmExpenseList.TbnRePayClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销付款'' ');
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(' exec P_Fin_In_Bank_Flow ');
// sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
// 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;
application.MessageBox('撤销付款核成功', '提示');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmExpenseList.TbPrintClick(Sender: TObject);
var
WSql,Wsql1: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
WSql1 := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + Trim(CDS_1.fieldbyname('FFID').AsString);
end
else
begin
WSql := Trim(CDS_1.fieldbyname('FFID').AsString);
end;
if WSql1 <> '' then
begin
WSql1 := WSql1 + ',' + QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString));
end
else
begin
WSql1 := QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ExpenseList';
// FFiltration1 := WSql1;
FFiltration1 := WSql;
// ShowMessage(FFiltration1);
if ShowModal = 1 then
begin
WSQl := ''''+WSql + '''';
// ShowMessage('1111');
with Self.ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' UPDATE F SET PrintStatus = ''已打印'' FROM Finance_Flow F ');
SQL.Add(' WHERE EXISTS ( SELECT 1 FROM [dbo].[F_Tool_SplitString]('+WSQl+', '','') X WHERE X.RTValue = F.FFID )');
// showMessage(sql.Text);
execsql;
end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmExpenseList.btnDelClick(Sender: TObject); procedure TfrmExpenseList.btnDelClick(Sender: TObject);
var var
FFFIDS: string; FFFIDS: string;
@ -264,9 +495,10 @@ end;
procedure TfrmExpenseList.FormShow(Sender: TObject); procedure TfrmExpenseList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '财务管理'); ReadCxGrid(trim(Self.Caption), Tv1, '费用管理');
Enddate.Date := SGetServerDate(ADOQueryTemp); Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date - 30; begdate.Date := Enddate.Date - 30;
FAuthority := self.fParameters1;
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;
@ -369,18 +601,19 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do // with ADOQueryCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add(' exec P_Fin_In_Bank_Flow '); // sql.Add(' exec P_Fin_In_Bank_Flow ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); // sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); // Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); // Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; // open;
end; // end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then // if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('审核成功', '提示'); application.MessageBox('审核成功', '提示');
except except
@ -430,18 +663,18 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do // with ADOQueryCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add(' exec P_Fin_In_Bank_Flow '); // sql.Add(' exec P_Fin_In_Bank_Flow ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); // sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); // Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); // Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; // open;
end; // end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then // if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('撤销审核成功', '提示'); application.MessageBox('撤销审核成功', '提示');
@ -479,7 +712,7 @@ end;
procedure TfrmExpenseList.ToolButton5Click(Sender: TObject); procedure TfrmExpenseList.ToolButton5Click(Sender: TObject);
begin begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理'); WriteCxGrid(trim(Self.Caption), Tv1, '费用管理');
end; end;
procedure TfrmExpenseList.btnEditClick(Sender: TObject); procedure TfrmExpenseList.btnEditClick(Sender: TObject);
@ -537,7 +770,26 @@ begin
finally finally
frmAttachmentUpload.Free; frmAttachmentUpload.Free;
end; end;
end;
procedure TfrmExpenseList.Tv1ReimburseTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'ReimburseType';
flagname := '报销类型';
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('ReimburseType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.CDS_1.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
end; end;
procedure TfrmExpenseList.OppCoNameKeyPress(Sender: TObject; var Key: Char); procedure TfrmExpenseList.OppCoNameKeyPress(Sender: TObject; var Key: Char);

4717
A09财务通用管理/U_FinPurchasePlanSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

193
A09财务通用管理/U_FinPurchasePlanSel.pas Normal file
View File

@ -0,0 +1,193 @@
unit U_FinPurchasePlanSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
type
TfrmFinPurchasePlanSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column7: TcxGridDBColumn;
Tv1CPConNo: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv1PurNo: TcxGridDBColumn;
Tv1Y_Code: TcxGridDBColumn;
Tv1Y_Name: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
v1MPRTKZ: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
Tv1FF: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn;
Tv1Piece: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1SNote: TcxGridDBColumn;
Tv1C_Degree: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label3: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
OrderNo: TEdit;
C_Name: TEdit;
C_Color: TEdit;
C_ColorNo: TEdit;
C_Pattern: TEdit;
C_Code: TEdit;
ConNo: TEdit;
Tv1Price: TcxGridDBColumn;
Tv1Amount: TcxGridDBColumn;
Tv1TaxRate: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn;
Tv1currency: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority: string;
{ Public declarations }
end;
var
frmFinPurchasePlanSel: TfrmFinPurchasePlanSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmFinPurchasePlanSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmFinPurchasePlanSel.FormDestroy(Sender: TObject);
begin
inherited;
frmFinPurchasePlanSel := nil;
end;
procedure TfrmFinPurchasePlanSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cahide;
end;
procedure TfrmFinPurchasePlanSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.PurNo,C.FROMCPSID,C.FROMCPMID from Pur_YarnPlan_Sub A ');
SQL.Add(' left join Pur_YarnPlan_Main B on A.PurMId=B.PurMId ');
sql.Add(' left join BS_Contract_Sub C on A.fromConSId=C.ConMId ');
// ShowMessage(sql.Text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmFinPurchasePlanSel.OrderNoChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmFinPurchasePlanSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(Self.Caption), TV1, '采购单选择');
InitGrid();
end;
procedure TfrmFinPurchasePlanSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmFinPurchasePlanSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption), Tv1, '采购单选择');
end;
procedure TfrmFinPurchasePlanSel.ToolButton1Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmFinPurchasePlanSel.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
end.

46
A09财务通用管理/U_FinTradePlanSel.dfm
View File

@ -3,14 +3,14 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
Top = 106 Top = 106
Caption = #35745#21010#21333#36873#25321 Caption = #35745#21010#21333#36873#25321
ClientHeight = 643 ClientHeight = 643
ClientWidth = 1585 ClientWidth = 1540
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1601 ExplicitWidth = 1556
ExplicitHeight = 682 ExplicitHeight = 682
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -18,7 +18,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1585 Width = 1540
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -64,12 +64,13 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1585 Width = 1540
Height = 59 Height = 59
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
object Label3: TLabel object Label3: TLabel
Left = 39 Left = 39
Top = 10 Top = 10
@ -228,13 +229,15 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1585 Width = 1540
Height = 546 Height = 546
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = -8
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -250,6 +253,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'Ssel' DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -258,6 +262,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -265,14 +270,16 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1OrderNo: TcxGridDBColumn object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
Width = 72 Width = 72
end end
object v1ConNo: TcxGridDBColumn object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -281,6 +288,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1DeliveryDate: TcxGridDBColumn object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -291,24 +299,15 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column5: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'Technics'
HeaderAlignmentHorz = taCenter
end
object Tv1Column2: TcxGridDBColumn
Caption = #21152#24037#21378
DataBinding.FieldName = 'FtyName'
HeaderAlignmentHorz = taCenter
Width = 138
end
object v1OrdDefStr1: TcxGridDBColumn object v1OrdDefStr1: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -317,6 +316,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTCodeName: TcxGridDBColumn object v1MPRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -325,6 +325,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTSpec: TcxGridDBColumn object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -333,6 +334,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -340,6 +342,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTMF: TcxGridDBColumn object v1MPRTMF: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -348,6 +351,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTKZ: TcxGridDBColumn object v1MPRTKZ: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -356,6 +360,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1PRTColor: TcxGridDBColumn object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -364,6 +369,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -372,6 +378,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -380,12 +387,14 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'OrdPiece' DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -394,6 +403,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrdUnit' DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -402,6 +412,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #20844#26020#25968 Caption = #20844#26020#25968
DataBinding.FieldName = 'PRTOrderKgQty' DataBinding.FieldName = 'PRTOrderKgQty'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -410,6 +421,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote' DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

10
A09财务通用管理/U_FinTradePlanSel.pas
View File

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
cxCalendar; cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
type type
TfrmFinTradePlanSel = class(TfrmBaseHelp) TfrmFinTradePlanSel = class(TfrmBaseHelp)
@ -52,9 +52,7 @@ type
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
@ -133,8 +131,10 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from V_Trade_Plan_Fty A '); sql.Add('select A.*,B.BuyConNo,C.FROMCPSID,C.FROMCPMID from V_Tat_Plan_Fty A ');
sql.add('where Status=''9'' '); sql.Add(' left join BS_Contract_Main B on (A.ConNo=B.ConNo and A.ConMId=B.ConMId) ');
sql.Add(' left join BS_Contract_Sub C on B.ConMId=C.ConMId ');
// sql.add('where Status=''9'' ');
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
Open; Open;
end; end;

9
A09财务通用管理/U_GetDllForm.pas
View File

@ -72,12 +72,13 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata'; dtbase := 'KaiXiYadata';
user := 'rtsa'; user := 'kaixiyasa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='管理'; Parameters1:='管理';
// Parameters1 := '审核';
end end
else else
begin begin

339
A09财务通用管理/U_PayInput.dfm
View File

@ -2,8 +2,8 @@ object frmPayInput: TfrmPayInput
Left = 261 Left = 261
Top = 149 Top = 149
Caption = #20184#27454#30331#35760 Caption = #20184#27454#30331#35760
ClientHeight = 343 ClientHeight = 476
ClientWidth = 784 ClientWidth = 949
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmPayInput: TfrmPayInput
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 784 Width = 949
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -34,6 +34,7 @@ object frmPayInput: TfrmPayInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 784
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -54,8 +55,8 @@ object frmPayInput: TfrmPayInput
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 30 Top = 30
Width = 784 Width = 949
Height = 313 Height = 446
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -65,235 +66,225 @@ object frmPayInput: TfrmPayInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
object Label2: TLabel ExplicitTop = 36
Left = 283 ExplicitWidth = 1180
Top = 21 ExplicitHeight = 553
Width = 64
Height = 21
Caption = #23545#26041#21333#20301
end
object Label7: TLabel object Label7: TLabel
Left = 46 Left = 62
Top = 164 Top = 238
Width = 57 Width = 57
Height = 21 Height = 21
Caption = #22791' '#27880 Caption = #22791' '#27880
end end
object Label8: TLabel object Label6: TLabel
Left = 42 Left = 84
Top = 121 Top = 35
Width = 64
Height = 21
Caption = #20184#27454#26041#24335
end
object Label5: TLabel
Left = 42
Top = 21
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
end end
object Label9: TLabel object Label13: TLabel
Left = 523 Left = 448
Top = 21 Top = 106
Width = 32
Height = 21
Caption = #37329#39069
end
object Label15: TLabel
Left = 84
Top = 177
Width = 32
Height = 21
Caption = #25688#35201
end
object Label17: TLabel
Left = 84
Top = 70
Width = 96
Height = 21
Caption = #25105#26041#20184#27454#38134#34892
end
object Label11: TLabel
Left = 448
Top = 35
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #19978#32423#21333#20301 Caption = #23545#26041#21333#20301
end end
object Label3: TLabel object Label12: TLabel
Left = 282 Left = 448
Top = 121 Top = 71
Width = 67 Width = 96
Height = 21 Height = 21
Caption = #37329' '#39069 Caption = #23545#26041#20184#27454#38134#34892
end end
object Label18: TLabel object Label14: TLabel
Left = 42 Left = 84
Top = 54 Top = 106
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #25105#26041#36134#21495 Caption = #20184#27454#26041#24335
end end
object Label19: TLabel object Label1: TLabel
Left = 283 Left = 84
Top = 54 Top = 142
Width = 48
Height = 21
Caption = #21512#21516#21495
end
object Label2: TLabel
Left = 448
Top = 142
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #23545#26041#36134#21495 Caption = #32455#36896#21333#21495
end
object Label20: TLabel
Left = 522
Top = 54
Width = 67
Height = 21
Caption = #26085' '#26399
end
object Label22: TLabel
Left = 283
Top = 87
Width = 64
Height = 21
Caption = #35745#21010#21333#21495
end
object Label23: TLabel
Left = 40
Top = 87
Width = 68
Height = 21
Caption = #21512' '#21516' '#21495
end
object Label24: TLabel
Left = 522
Top = 87
Width = 67
Height = 21
Caption = #25688' '#35201
end end
object Note: TMemo object Note: TMemo
Left = 110 Tag = 2
Top = 164 Left = 126
Top = 238
Width = 634 Width = 634
Height = 111 Height = 111
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
end end
object Currency: TComboBox object OurCoName: TcxButtonEdit
Left = 442 Tag = 2
Top = 117 Left = 200
Width = 59 Top = 32
Height = 29 Properties.Buttons = <
Style = csDropDownList item
ItemIndex = 0 Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = OurCoNamePropertiesButtonClick
TabOrder = 1 TabOrder = 1
Text = 'CNY' Width = 200
Items.Strings = ( end
object Currency: TcxComboBox
Tag = 2
Left = 774
Top = 103
Properties.Items.Strings = (
'CNY' 'CNY'
'USD' 'USD'
'EUR') 'VND')
end
object PayMent: TBtnEditC
Left = 112
Top = 117
Width = 150
Height = 30
Hint = 'PayMent/'#20184#27454#26041#24335
TabOrder = 2 TabOrder = 2
OnBtnUpClick = PayMentBtnUpClick Text = 'CNY'
OnBtnDnClick = PayMentBtnDnClick Width = 66
end end
object OppCoName: TBtnEditC object Amount: TcxTextEdit
Left = 351 Tag = 2
Top = 17 Left = 560
Width = 150 Top = 103
Height = 30
ReadOnly = True
TabOrder = 3 TabOrder = 3
OnBtnUpClick = OppCoNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object OurCoName: TBtnEditC object FFAbstract: TcxTextEdit
Left = 112 Tag = 2
Top = 17 Left = 200
Width = 150 Top = 174
Height = 30
ReadOnly = True
TabOrder = 4 TabOrder = 4
OnBtnUpClick = OurCoNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object OppParentCoName: TBtnEditC object OurBankName: TcxButtonEdit
Left = 594 Tag = 2
Top = 17 Left = 200
Width = 150 Top = 68
Height = 30 Properties.Buttons = <
ReadOnly = True item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = OurBankNamePropertiesButtonClick
TabOrder = 5 TabOrder = 5
OnBtnUpClick = OppParentCoNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object Amount: TcxCurrencyEdit object OppCoName: TcxButtonEdit
Left = 351 Tag = 2
Top = 117 Left = 560
Properties.AssignedValues.DisplayFormat = True Top = 32
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = OppCoNamePropertiesButtonClick
TabOrder = 6 TabOrder = 6
Width = 88 Width = 200
end end
object OurBankName: TBtnEditC object OppBankName: TcxButtonEdit
Left = 112 Tag = 2
Top = 50 Left = 560
Width = 150 Top = 67
Height = 30 Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = OppBankNamePropertiesButtonClick
TabOrder = 7 TabOrder = 7
OnBtnUpClick = OurBankNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object OppBankName: TBtnEditC object PayMent: TcxButtonEdit
Left = 351 Tag = 2
Top = 50 Left = 200
Width = 150 Top = 103
Height = 30 Hint = 'PayMent/'#20184#27454#26041#24335
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = PayMentPropertiesButtonClick
TabOrder = 8 TabOrder = 8
OnBtnUpClick = OppBankNameBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end end
object FFTime: TDateTimePicker object Conno: TcxButtonEdit
Left = 594 Tag = 2
Top = 50 Left = 200
Width = 150 Top = 138
Height = 29 Properties.Buttons = <
BevelInner = bvNone item
Date = 40916.000000000000000000 Default = True
Format = 'yyyy-MM-dd' Kind = bkEllipsis
Time = 0.670856296288548000 end>
Properties.OnButtonClick = ConnoPropertiesButtonClick
TabOrder = 9 TabOrder = 9
Width = 200
end end
object OrderNo: TBtnEditC object OrderNo: TcxButtonEdit
Left = 351 Tag = 2
Top = 83 Left = 560
Width = 150 Top = 138
Height = 30 Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = OrderNoPropertiesButtonClick
TabOrder = 10 TabOrder = 10
OnBtnUpClick = OrderNoBtnUpClick Width = 200
OnBtnDnClick = PayMentBtnDnClick
end
object ConNo: TBtnEditC
Left = 112
Top = 83
Width = 150
Height = 30
TabOrder = 11
OnBtnUpClick = ConNoBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object FFAbstract: TBtnEditC
Left = 594
Top = 83
Width = 150
Height = 30
Hint = 'FFAbstract/'#25688#35201
TabOrder = 12
OnBtnUpClick = PayMentBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end end
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 835 Left = 947
Top = 136 Top = 40
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
Parameters = <> Parameters = <>
Left = 782 Left = 870
Top = 128 Top = 40
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 709 Left = 805
Top = 129 Top = 41
end end
end end

194
A09财务通用管理/U_PayInput.pas
View File

@ -13,9 +13,8 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinsCore, cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters;
dxSkinsDefaultPainters;
type type
TfrmPayInput = class(TForm) TfrmPayInput = class(TForm)
@ -26,46 +25,44 @@ type
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ToolButton3: TToolButton; ToolButton3: TToolButton;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
Label2: TLabel;
Label7: TLabel; Label7: TLabel;
Note: TMemo; Note: TMemo;
Label8: TLabel; Label6: TLabel;
Currency: TComboBox; Label13: TLabel;
PayMent: TBtnEditC; Label15: TLabel;
OppCoName: TBtnEditC; OurCoName: TcxButtonEdit;
Label5: TLabel; Currency: TcxComboBox;
OurCoName: TBtnEditC; Amount: TcxTextEdit;
Label9: TLabel; FFAbstract: TcxTextEdit;
OppParentCoName: TBtnEditC; Label17: TLabel;
Amount: TcxCurrencyEdit; OurBankName: TcxButtonEdit;
Label3: TLabel; Label11: TLabel;
Label18: TLabel; OppCoName: TcxButtonEdit;
OurBankName: TBtnEditC; Label12: TLabel;
Label19: TLabel; OppBankName: TcxButtonEdit;
OppBankName: TBtnEditC; Label14: TLabel;
Label20: TLabel; PayMent: TcxButtonEdit;
FFTime: TDateTimePicker; Label1: TLabel;
Label22: TLabel; Conno: TcxButtonEdit;
OrderNo: TBtnEditC; Label2: TLabel;
Label23: TLabel; OrderNo: TcxButtonEdit;
ConNo: TBtnEditC;
Label24: TLabel;
FFAbstract: TBtnEditC;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure PayMentBtnDnClick(Sender: TObject);
procedure PayMentBtnUpClick(Sender: TObject);
procedure OppCoNameBtnUpClick(Sender: TObject);
procedure OppParentCoNameBtnUpClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject);
procedure OurBankNameBtnUpClick(Sender: TObject); procedure OurBankNameBtnUpClick(Sender: TObject);
procedure OppBankNameBtnUpClick(Sender: TObject);
procedure ConNoBtnUpClick(Sender: TObject); procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OrderNoBtnUpClick(Sender: TObject); procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OppBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ConnoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure PayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -102,15 +99,14 @@ begin
end; end;
if not ADOQueryMain.IsEmpty then if not ADOQueryMain.IsEmpty then
begin begin
SCSHData(ADOQueryMain, ScrollBox1, 0); SCSHData(ADOQueryMain, ScrollBox1, 2);
OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString); // OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString); // OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString);
OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString); // OurBankName.TxtCode := Trim(ADOQueryMain.FieldByName('OurBankID').AsString);
OurBankName.TxtCode := Trim(ADOQueryMain.FieldByName('OurBankID').AsString);
end end
else else
begin begin
FFTime.DateTime := SGetServerDateTime(ADOQueryTemp); // FFTime.DateTime := SGetServerDateTime(ADOQueryTemp);
end; end;
finally finally
@ -118,18 +114,23 @@ begin
end; end;
end; end;
procedure TfrmPayInput.OppBankNameBtnUpClick(Sender: TObject); procedure TfrmPayInput.OppBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//ÏÈÓ¢ÎÄÔÙÖÐÎÄ
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag := self.OppCoName.TxtCode; MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
flagname := '¶Ô·½ÕË»§'; flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end; end;
end; end;
finally finally
@ -137,7 +138,7 @@ begin
end; end;
end; end;
procedure TfrmPayInput.OppCoNameBtnUpClick(Sender: TObject); procedure TfrmPayInput.OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmCompanySel := TfrmCompanySel.Create(Application); frmCompanySel := TfrmCompanySel.Create(Application);
@ -147,9 +148,8 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); // OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end; end;
end; end;
finally finally
@ -157,25 +157,7 @@ begin
end; end;
end; end;
procedure TfrmPayInput.OppParentCoNameBtnUpClick(Sender: TObject); procedure TfrmPayInput.OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmPayInput.OrderNoBtnUpClick(Sender: TObject);
begin begin
try try
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application); frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
@ -205,7 +187,7 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OurBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString); OurBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
OurBankName.TxtCode := Trim(CDS_1.fieldbyname('BkID').AsString); // OurBankName.TxtCode := Trim(CDS_1.fieldbyname('BkID').AsString);
end; end;
end; end;
finally finally
@ -213,7 +195,24 @@ begin
end; end;
end; end;
procedure TfrmPayInput.OurCoNameBtnUpClick(Sender: TObject); procedure TfrmPayInput.OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmBankSel := TfrmBankSel.Create(Application);
with frmBankSel do
begin
if ShowModal = 1 then
begin
OurBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
// OurBankName.TxtCode := Trim(CDS_1.fieldbyname('BkID').AsString);
end;
end;
finally
frmBankSel.Free;
end;
end;
procedure TfrmPayInput.OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmCompanySel := TfrmCompanySel.Create(Application); frmCompanySel := TfrmCompanySel.Create(Application);
@ -222,8 +221,8 @@ begin
FCoType := 'ÎÒ˾'; FCoType := 'ÎÒ˾';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); OurCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); // OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end; end;
end; end;
finally finally
@ -231,18 +230,7 @@ begin
end; end;
end; end;
procedure TfrmPayInput.FormDestroy(Sender: TObject); procedure TfrmPayInput.PayMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
frmPayInput := nil;
end;
procedure TfrmPayInput.PayMentBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmPayInput.PayMentBtnUpClick(Sender: TObject);
var var
fsj: string; fsj: string;
FWZ: Integer; FWZ: Integer;
@ -266,7 +254,12 @@ begin
end; end;
end; end;
procedure TfrmPayInput.ConNoBtnUpClick(Sender: TObject); procedure TfrmPayInput.FormDestroy(Sender: TObject);
begin
frmPayInput := nil;
end;
procedure TfrmPayInput.ConnoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application); frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application);
@ -284,6 +277,23 @@ begin
end; end;
end; end;
procedure TfrmPayInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmBankSel := TfrmBankSel.Create(Application);
with frmBankSel do
begin
if ShowModal = 1 then
begin
OurBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
// OurBankName.TxtCode := Trim(CDS_1.fieldbyname('BkID').AsString);
end;
end;
finally
frmBankSel.Free;
end;
end;
procedure TfrmPayInput.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmPayInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -308,7 +318,7 @@ begin
Open; Open;
end; end;
OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString); OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString);
OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString); // OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString);
end; end;
InitGrid(); InitGrid();
end; end;
@ -348,9 +358,10 @@ begin
Append; Append;
FieldByName('FillId').Value := Trim(DCode); FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').Value := Trim(DName);
FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryTemp);
FieldByName('FFFlag').Value := 'Ó¦¸¶¸¶'; FieldByName('FFFlag').Value := 'Ó¦¸¶¸¶';
FieldByName('FFType').Value := '¸¶¿îµÇ¼Ç'; FieldByName('FFType').Value := '¸¶¿îµÇ¼Ç';
FieldByName('status').Value := '0'; FieldByName('Checkstatus').Value := 'δÉóºË';
FieldByName('FFQtyFlag').Value := -1; FieldByName('FFQtyFlag').Value := -1;
end end
else else
@ -360,13 +371,12 @@ begin
FieldByName('Editer').Value := Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode); // FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode);
FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); // FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode); // FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode);
FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode);
FieldByName('FFID').Value := Trim(MaxId); FieldByName('FFID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2);
Post; Post;
end; end;

196
A09财务通用管理/U_PayList.dfm
View File

@ -3,11 +3,11 @@ inherited frmPayList: TfrmPayList
Top = 101 Top = 101
Caption = #20184#27454#31649#29702 Caption = #20184#27454#31649#29702
ClientHeight = 590 ClientHeight = 590
ClientWidth = 1625 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1641 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -15,7 +15,7 @@ inherited frmPayList: TfrmPayList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1625 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -76,16 +76,40 @@ inherited frmPayList: TfrmPayList
ImageIndex = 11 ImageIndex = 11
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton9: TToolButton object TbFinPay: TToolButton
Left = 458 Left = 458
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23545#36134
ImageIndex = 12
OnClick = TbFinPayClick
end
object TbReFinPay: TToolButton
Left = 529
Top = 0
AutoSize = True
Caption = #25764#38144#23545#36134
ImageIndex = 11
OnClick = TbReFinPayClick
end
object TbPrint: TToolButton
Left = 632
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TbPrintClick
end
object ToolButton9: TToolButton
Left = 703
Top = 0
AutoSize = True
Caption = #38468#20214#19978#20256 Caption = #38468#20214#19978#20256
ImageIndex = 22 ImageIndex = 22
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 561 Left = 806
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -93,7 +117,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 632 Left = 877
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -101,7 +125,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 703 Left = 948
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -109,7 +133,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 774 Left = 1019
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -117,7 +141,7 @@ inherited frmPayList: TfrmPayList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 877 Left = 1122
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -128,7 +152,7 @@ inherited frmPayList: TfrmPayList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1625 Width = 1540
Height = 67 Height = 67
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -136,6 +160,7 @@ inherited frmPayList: TfrmPayList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 252 Left = 252
Top = 8 Top = 8
@ -258,7 +283,7 @@ inherited frmPayList: TfrmPayList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 129 Top = 129
Width = 1625 Width = 1540
Height = 461 Height = 461
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -284,7 +309,7 @@ inherited frmPayList: TfrmPayList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column17 Column = Tv1Amount
end end
item item
Kind = skSum Kind = skSum
@ -308,7 +333,7 @@ inherited frmPayList: TfrmPayList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 44
end end
object v2CRTime: TcxGridDBColumn object Tv1FFTime: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #26085#26399 Caption = #26085#26399
DataBinding.FieldName = 'FFTime' DataBinding.FieldName = 'FFTime'
@ -320,79 +345,72 @@ inherited frmPayList: TfrmPayList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v2Column2: TcxGridDBColumn object Tv1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#20184#27454#36134#25143
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 111
end end
object v2FactoryName: TcxGridDBColumn object Tv1OurBankName: TcxGridDBColumn
Caption = #25105#26041#20184#27454#38134#34892
DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 141
end
object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 89
end end
object v2OrderNo: TcxGridDBColumn object Tv1OppBankName: TcxGridDBColumn
Tag = 7 Caption = #23545#26041#25910#27454#38134#34892
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143
DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #23545#26041#36134#25143
DataBinding.FieldName = 'OppBankName' DataBinding.FieldName = 'OppBankName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 123
end end
object Tv1Column3: TcxGridDBColumn object Tv1PayMent: TcxGridDBColumn
Caption = #20184#27454#26041#24335 Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent' DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 89
end end
object Tv1Column19: TcxGridDBColumn object Tv1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 108
end end
object Tv1Column20: TcxGridDBColumn object Tv1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 75 Width = 90
end end
object Tv1Column21: TcxGridDBColumn object Tv1BuyConNo: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Tag = 7
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Options.Editing = False
Width = 120
end end
object Tv1Column4: TcxGridDBColumn object Tv1FFAbstract: TcxGridDBColumn
Caption = #25688#35201 Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract' DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -400,7 +418,7 @@ inherited frmPayList: TfrmPayList
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
end end
object Tv1Column17: TcxGridDBColumn object Tv1Amount: TcxGridDBColumn
Caption = #37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -408,7 +426,7 @@ inherited frmPayList: TfrmPayList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column18: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -416,7 +434,7 @@ inherited frmPayList: TfrmPayList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column5: TcxGridDBColumn object Tv1Note: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -424,7 +442,7 @@ inherited frmPayList: TfrmPayList
Options.Editing = False Options.Editing = False
Width = 84 Width = 84
end end
object Tv1Column6: TcxGridDBColumn object Tv1FJFlag: TcxGridDBColumn
Caption = #38468#20214 Caption = #38468#20214
DataBinding.FieldName = 'FJFlag' DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -432,6 +450,62 @@ inherited frmPayList: TfrmPayList
Options.Editing = False Options.Editing = False
Width = 57 Width = 57
end end
object Tv1Filler: TcxGridDBColumn
Caption = #30331#35760#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Filltime: TcxGridDBColumn
Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1CheckStatus: TcxGridDBColumn
Caption = #23457#26680#29366#24577
DataBinding.FieldName = 'CheckStatus'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 103
end
object Tv1Chker: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Chktime: TcxGridDBColumn
Caption = #23457#26680#26085#26399
DataBinding.FieldName = 'Chktime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1PrintStatus: TcxGridDBColumn
Caption = #25171#21360#29366#24577
DataBinding.FieldName = 'PrintStatus'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1PayStatus: TcxGridDBColumn
Caption = #20184#27454#29366#24577
DataBinding.FieldName = 'PayStatus'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1PayTime: TcxGridDBColumn
Caption = #20184#27454#26085#26399
DataBinding.FieldName = 'PayTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -440,7 +514,7 @@ inherited frmPayList: TfrmPayList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1625 Width = 1540
Height = 32 Height = 32
Align = alTop Align = alTop
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -456,13 +530,25 @@ inherited frmPayList: TfrmPayList
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23457#26680 #26410#23457#26680
#24050#23457#26680 #24050#23457#26680
#24050#23545#36134
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 95
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
inherited loadProcess: TPanel
Left = 330
Top = 208
ExplicitLeft = 330
ExplicitTop = 208
end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 322
Top = 94
ExplicitLeft = 322
ExplicitTop = 94
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

318
A09财务通用管理/U_PayList.pas
View File

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, cxContainer, dxCore, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar;
cxProgressBar;
type type
TfrmPayList = class(TfrmBaseList) TfrmPayList = class(TfrmBaseList)
@ -34,24 +33,24 @@ type
OppCoName: TcxTextEdit; OppCoName: TcxTextEdit;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn; Tv1FFTime: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
DS_1: TDataSource; DS_1: TDataSource;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
btnAdd: TToolButton; btnAdd: TToolButton;
v2FactoryName: TcxGridDBColumn; Tv1OppCoName: TcxGridDBColumn;
F_Name: TcxTextEdit; F_Name: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
P_Code: TcxTextEdit; P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn; Tv1BuyConNo: TcxGridDBColumn;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Label10: TLabel; Label10: TLabel;
ConNo: TcxTextEdit; ConNo: TcxTextEdit;
Label11: TLabel; Label11: TLabel;
BuyConNo: TcxTextEdit; BuyConNo: TcxTextEdit;
v2Column2: TcxGridDBColumn; Tv1OurCoName: TcxGridDBColumn;
btnChk: TToolButton; btnChk: TToolButton;
btnReChk: TToolButton; btnReChk: TToolButton;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
@ -62,26 +61,36 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
N2: TMenuItem; N2: TMenuItem;
btnEdit: TToolButton; btnEdit: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1OurBankName: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1OppBankName: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1PayMent: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn; Tv1Amount: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Currency: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn; Tv1ConNo: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1FFAbstract: TcxGridDBColumn;
ToolButton9: TToolButton; ToolButton9: TToolButton;
N3: TMenuItem; N3: TMenuItem;
Tv1Column5: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column6: TcxGridDBColumn; Tv1FJFlag: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
CheckBox1: TcxCheckBox; CheckBox1: TcxCheckBox;
Tv1Filler: TcxGridDBColumn;
Tv1Filltime: TcxGridDBColumn;
Tv1Chker: TcxGridDBColumn;
Tv1Chktime: TcxGridDBColumn;
Tv1CheckStatus: TcxGridDBColumn;
Tv1PrintStatus: TcxGridDBColumn;
Tv1PayStatus: TcxGridDBColumn;
Tv1PayTime: TcxGridDBColumn;
TbPrint: TToolButton;
TbFinPay: TToolButton;
TbReFinPay: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -102,6 +111,9 @@ type
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure TbFinPayClick(Sender: TObject);
procedure TbReFinPayClick(Sender: TObject);
procedure TbPrintClick(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -112,7 +124,7 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_PayInput, U_ZDYHelp, U_AttachmentUpload, U_PayImport; U_DataLink, U_RTFun, U_PayInput, U_ZDYHelp, U_AttachmentUpload, U_PayImport,U_LabelPrint;
{$R *.dfm} {$R *.dfm}
procedure TfrmPayList.SetStatus(); procedure TfrmPayList.SetStatus();
@ -121,11 +133,14 @@ begin
btnChk.Enabled := false; //审核 btnChk.Enabled := false; //审核
btnReChk.Enabled := false; //撤销 btnReChk.Enabled := false; //撤销
btnAdd.Enabled := false; //ÐÂÔö btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除 btnDel.Enabled := false; //删除
// if Trim(FAuthority) = '¹ÜÀí' then TbFinPay.Enabled := False;
TbReFinPay.Enabled := False;
// ShowMessage(FAuthority);
if Trim(FAuthority) = '管理' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
@ -138,6 +153,26 @@ begin
1: 1:
begin begin
btnReChk.Enabled := true; btnReChk.Enabled := true;
TbFinPay.Enabled := true;
end;
2:
begin
TbReFinPay.Enabled := true;
end;
end;
end;
if Trim(FAuthority) = '申请' then
begin
btnAdd.Enabled := true;
case cxTabControl1.TabIndex of
0:
begin
btnEdit.Enabled := true;
end;
1:
begin
end; end;
2: 2:
begin begin
@ -172,11 +207,15 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.Add(' and isnull(status,''0'')=''0'' '); sql.Add(' and isnull(Checkstatus,''0'')=''未审核'' ');
end; end;
1: 1:
begin begin
sql.Add(' and isnull(status,''0'')=''9'' '); sql.Add(' and isnull(Checkstatus,''0'')=''已审核'' ');
end;
2:
begin
sql.Add(' and isnull(Checkstatus,''0'')=''已对账'' ');
end; end;
end; end;
if CheckBox1.Checked then if CheckBox1.Checked then
@ -224,6 +263,55 @@ begin
Close; Close;
end; end;
procedure TfrmPayList.TbFinPayClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''对账'' ');
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;
application.MessageBox('对账成功', '提示');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmPayList.btnDelClick(Sender: TObject); procedure TfrmPayList.btnDelClick(Sender: TObject);
var var
FFFIDS: string; FFFIDS: string;
@ -237,6 +325,9 @@ begin
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除所选数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with CDS_1 do with CDS_1 do
begin begin
DisableControls; DisableControls;
@ -278,18 +369,68 @@ begin
ReadCxGrid(trim(Self.Caption), Tv1, '财务管理'); ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
Enddate.Date := SGetServerDate(ADOQueryTemp); Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date - 30; begdate.Date := Enddate.Date - 30;
FAuthority := self.fParameters1;
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;
procedure TfrmPayList.TBRafreshClick(Sender: TObject); procedure TfrmPayList.TBRafreshClick(Sender: TObject);
begin begin
begdate.SetFocus;
begdate.SetFocus;
InitGrid(); InitGrid();
end; end;
procedure TfrmPayList.TbReFinPayClick(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销对账'' ');
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;
application.MessageBox('撤销对账成功', '提示');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmPayList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); procedure TfrmPayList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -380,18 +521,18 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do // with ADOQueryCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add(' exec P_Fin_In_Bank_Flow '); // sql.Add(' exec P_Fin_In_Bank_Flow ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); // sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); // Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); // Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; // open;
end; // end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then // if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('审核成功', '提示'); application.MessageBox('审核成功', '提示');
except except
@ -442,18 +583,18 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do // with ADOQueryCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add(' exec P_Fin_In_Bank_Flow '); // sql.Add(' exec P_Fin_In_Bank_Flow ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); // sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); // Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); // Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; // open;
end; // end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then // if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('撤销审核成功', '提示'); application.MessageBox('撤销审核成功', '提示');
@ -520,6 +661,77 @@ begin
end; end;
end; end;
procedure TfrmPayList.TbPrintClick(Sender: TObject);
var
WSql,Wsql1: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
WSql1 := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + Trim(CDS_1.fieldbyname('FFID').AsString);
end
else
begin
WSql := Trim(CDS_1.fieldbyname('FFID').AsString);
end;
if WSql1 <> '' then
begin
WSql1 := WSql1 + ',' + QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString));
end
else
begin
WSql1 := QuotedStr(Trim(CDS_1.fieldbyname('FFID').AsString));
end;
end;
Next;
end;
end;
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ExpenseList';
FFiltration1 := WSql1;
if ShowModal = 1 then
begin
WSQl := ''''+WSql + '''';
// ShowMessage('1111');
with Self.ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' UPDATE F SET PrintStatus = ''已打印'' FROM Finance_Flow F ');
SQL.Add(' WHERE EXISTS ( SELECT 1 FROM [dbo].[F_Tool_SplitString]('+WSQl+', '','') X WHERE X.RTValue = F.FFID )');
// showMessage(sql.Text);
execsql;
end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmPayList.ToolButton4Click(Sender: TObject); procedure TfrmPayList.ToolButton4Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
@ -534,6 +746,14 @@ end;
procedure TfrmPayList.btnEditClick(Sender: TObject); procedure TfrmPayList.btnEditClick(Sender: TObject);
begin begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin

414
A09财务通用管理/U_PayableBatchInput.dfm Normal file
View File

@ -0,0 +1,414 @@
inherited frmPayableBatchInput: TfrmPayableBatchInput
Left = 65
Top = 113
Caption = #24212#20184#27454#25209#37327#30331#35760
ClientHeight = 572
ClientWidth = 1406
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1422
ExplicitHeight = 611
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1406
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clSkyBlue
Images = cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object TBAdd: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = TBAddClick
end
object TbOrdAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #32455#36896#21333#22686#34892
ImageIndex = 2
Visible = False
OnClick = TbOrdAddClick
end
object TbPurSel: TToolButton
Left = 261
Top = 0
AutoSize = True
Caption = #37319#36141#21333#22686#34892
ImageIndex = 2
OnClick = TbPurSelClick
end
object TBDel: TToolButton
Left = 380
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = TBDelClick
end
object ToolButton1: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 554
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 30
Width = 1406
Height = 542
Align = alClient
TabOrder = 1
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Qty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1TaxInclude
end
item
Kind = skSum
Column = Tv1Piece
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 43
end
object Tv1FFTime: TcxGridDBColumn
Tag = 7
Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1ReconciliationDate: TcxGridDBColumn
Caption = #23545#36134#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 89
end
object Tv1FFAbstract: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1PurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object Tv1BuyConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 127
end
object Tv1FinType: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'FinType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#32433#32447
#38050#31576
#22383#24067
#26426#29289#26009)
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1F_Name: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1F_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv1F_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'F_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1F_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Piece: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 64
end
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1NoTaxPrice: TcxGridDBColumn
Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'NoTaxPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object Tv1NoTaxInclude: TcxGridDBColumn
Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'NoTaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108
end
object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1TaxInclude: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1FromID1: TcxGridDBColumn
Caption = #26469#28304
DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 57
Top = 72
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 177
Top = 73
end
inherited ImageList_new32: TImageList
Left = 160
Top = 288
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 248
Top = 249
DesignInfo = 16318712
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 592
Top = 184
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 496
Top = 184
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 176
Top = 176
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 360
Top = 200
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 392
Top = 272
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 456
Top = 88
end
end

468
A09财务通用管理/U_PayableBatchInput.pas Normal file
View File

@ -0,0 +1,468 @@
unit U_PayableBatchInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox;
type
TfrmPayableBatchInput = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBAdd: TToolButton;
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
DS_1: TDataSource;
CDS_1: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
GPM_1: TcxGridPopupMenu;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column22: TcxGridDBColumn;
Tv1FFTime: TcxGridDBColumn;
Tv1ReconciliationDate: TcxGridDBColumn;
TV1OurCoName: TcxGridDBColumn;
Tv1OppCoName: TcxGridDBColumn;
Tv1FFAbstract: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1BuyConNo: TcxGridDBColumn;
Tv1F_Code: TcxGridDBColumn;
Tv1F_Name: TcxGridDBColumn;
Tv1F_Width: TcxGridDBColumn;
Tv1F_GramWeight: TcxGridDBColumn;
Tv1F_Color: TcxGridDBColumn;
Tv1Piece: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1Currency: TcxGridDBColumn;
Tv1NoTaxPrice: TcxGridDBColumn;
Tv1NoTaxInclude: TcxGridDBColumn;
Tv1TaxRate: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
Tv1FromID1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TbOrdAdd: TToolButton;
Tv1PurNo: TcxGridDBColumn;
Tv1FinType: TcxGridDBColumn;
TbPurSel: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TBAddClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TbOrdAddClick(Sender: TObject);
procedure TbPurSelClick(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
procedure InitGrid();
public
{ Public declarations }
FBCId, FKHName: string;
end;
var
frmPayableBatchInput: TfrmPayableBatchInput;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_FinTradePlanSel,
U_FinPurchasePlanSel;
{$R *.dfm}
procedure TfrmPayableBatchInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmPayableBatchInput.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' select A.* ');
sql.Add(' from Finance_Flow A ');
sql.Add(' where 1=2 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
function TfrmPayableBatchInput.SaveData(): Boolean;
var
Maxno, MFFID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Finance_Flow where FFID=''' + Trim(CDS_1.fieldbyname('FFID').AsString) + '''');
open;
end;
MFFID := Trim(ADOQueryTemp.fieldbyname('FFID').AsString);
if Trim(MFFID) = '' then
begin
if not GetLSNo(ADOQueryCmd, Maxno, 'YFK', 'Finance_Flow', 3, 1) then
raise Exception.Create('取应收款编号失败！');
end
else
begin
Maxno := Trim(MFFID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Finance_Flow where FFID=''' + Trim(Maxno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(MFFID) = '' then
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editid').Value := Trim(Dcode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Finance_Flow', 0);
FieldByName('FFID').Value := Maxno;
FieldByName('FFFlag').Value := '应付付';
FieldByName('FFType').Value := '应付款登记';
//织造单号
FieldByName('OrdMainId').Value := CDS_1.fieldbyname('OrdMainId').Value;
FieldByName('OrdSubId').Value := CDS_1.fieldbyname('OrdSubId').Value;
//坯布合同
FieldByName('ConMId').Value := CDS_1.fieldbyname('ConMId').value;
FieldByName('ConSId').Value := CDS_1.fieldbyname('ConSId').value;
//面料合同
FieldByName('BuyConMID').Value := CDS_1.fieldbyname('BuyConMID').value;
FieldByName('BuyConSID').Value := CDS_1.fieldbyname('BuyConSID').Value;
//对方单位
FieldByName('OppCoNo').Value := CDS_1.fieldbyname('OppCoNo').Value;
//我方单位
FieldByName('OurCoNo').Value := CDS_1.fieldbyname('OurCoNo').Value;
Post;
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(Maxno));
sql.Add(') ');
ExecSQL;
end;
Next;
end;
end;
CDS_1.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
CDS_1.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmPayableBatchInput.TBAddClick(Sender: TObject);
begin
CDS_1.Append;
CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
CDS_1.FieldByName('SSel').Value := False;
CDS_1.Post;
end;
procedure TfrmPayableBatchInput.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmPayableBatchInput.TBDelClick(Sender: TObject);
begin
CDS_1.Delete;
end;
procedure TfrmPayableBatchInput.TbOrdAddClick(Sender: TObject);
begin
try
frmFinTradePlanSel := TfrmFinTradePlanSel.Create(Application);
with frmFinTradePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinTradePlanSel.CDS_1 do
begin
//织造单
self.CDS_1.FieldByName('OrderNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('OrdMainId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
self.CDS_1.FieldByName('OrdSubId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConMId').AsString);
self.CDS_1.FieldByName('ConSId').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('BuyConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
end;
end;
end;
finally
frmFinTradePlanSel.Free;
end;
end;
procedure TfrmPayableBatchInput.FormShow(Sender: TObject);
var
fsj: string;
begin
inherited;
ReadCxGrid('应付款批量登记', Tv1, '应付款批量登记');
InitGrid();
end;
procedure TfrmPayableBatchInput.TBSaveClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('FFTime', null, []) = True then
begin
Application.MessageBox('登记日期不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('ReconciliationDate', null, []) = True then
begin
Application.MessageBox('对账日期不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('FinType', null, []) = True then
begin
Application.MessageBox('请选择类型!', '提示', 0);
Exit;
end;
if CDS_1.Locate('Qty', null, []) = True then
begin
Application.MessageBox('数量不能为空!', '提示', 0);
Exit;
end;
// CDS_1.First;
// while not CDS_1.Eof do
// begin
// // 同时判断两个条件
// if (CDS_1.FieldByName('IOType').AsString = '车间领用') and (CDS_1.FieldByName('ToOrdNo').IsNull or (Trim(CDS_1.FieldByName('ToOrdNo').AsString) = '')) then
// begin
// Application.MessageBox('请选择车间领用 出到织造单!', '提示', 0);
// Exit;
// end;
// CDS_1.Next;
// end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
//ModalResult:=1;
Exit;
end;
end;
procedure TfrmPayableBatchInput.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid('应付款批量登记', Tv1, '应付款批量登记');
end;
procedure TfrmPayableBatchInput.TbPurSelClick(Sender: TObject);
begin
try
frmFinPurchasePlanSel := TfrmFinPurchasePlanSel.Create(Application);
with frmFinPurchasePlanSel do
begin
if ShowModal = 1 then
begin
with frmFinPurchasePlanSel.CDS_1 do
begin
first;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
with Self.CDS_1 do
begin
append;
//我方单位
self.CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
self.CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
self.CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
self.CDS_1.FieldByName('FinType').Value := '纱线';
self.CDS_1.FieldByName('SSel').Value := False;
//织造单
self.CDS_1.FieldByName('PurNo').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurNo').AsString);
self.CDS_1.FieldByName('PurMID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurMId').AsString);
self.CDS_1.FieldByName('PurSID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('PurSId').AsString);
//坯布合同
self.CDS_1.FieldByName('ConNo').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.CDS_1.FieldByName('ConMId').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConMId').AsString);
self.CDS_1.FieldByName('ConSId').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('fromConSId').AsString);
//面料合同
self.CDS_1.FieldByName('BuyConNo').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('CPConNo').AsString);
self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString);
self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString);
// self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('SubId').AsString);
// self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString);
self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
self.CDS_1.FieldByName('QtyUnit').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
self.CDS_1.FieldByName('currency').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('currency').AsString);
self.CDS_1.FieldByName('NoTaxPrice').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
self.CDS_1.FieldByName('NoTaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Amount').AsString);
self.CDS_1.FieldByName('TaxRate').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxRate').AsString);
self.CDS_1.FieldByName('Tax').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Tax').AsString);
self.CDS_1.FieldByName('TaxInclude').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('TaxInclude').AsString);
Post;
end;
end;
frmFinPurchasePlanSel.CDS_1.Next;
end;
end;
end;
end;
finally
frmFinPurchasePlanSel.Free;
end;
end;
procedure TfrmPayableBatchInput.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
with Self.CDS_1 do
begin
Edit;
FieldByName('ToCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('ToCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
post;
end;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmPayableBatchInput.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
FFSPID: string;
begin
// if CDS_Sub.IsEmpty then
// Exit;
// if Trim(CDS_Sub.fieldbyname('BYIOID').AsString) <> '' then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('BYIOID').AsString) + '''');
// Open;
// end;
// FFSPID := Trim(ADOQueryTemp.fieldbyname('BYIOID').AsString);
// if Trim(FFSPID) <> '' then
// begin
// v1CRType.Options.Editing := False;
// end
// else
// begin
// v1CRType.Options.Editing := True;
// end;
// end
// else
// begin
// v1CRType.Options.Editing := True;
// end;
end;
end.

8
A09财务通用管理/U_PayableInput.pas
View File

@ -172,9 +172,9 @@ begin
FCoType := '¹©Ó¦ÉÌ'; FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end; end;
end; end;
@ -192,7 +192,7 @@ begin
FCoType := '¹©Ó¦ÉÌ'; FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end; end;
end; end;
@ -231,7 +231,7 @@ begin
FCoType := 'ÎÒ˾'; FCoType := 'ÎÒ˾';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); OurCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end; end;
end; end;

274
A09财务通用管理/U_PayableList.dfm
View File

@ -3,11 +3,11 @@ inherited frmPayableList: TfrmPayableList
Top = 101 Top = 101
Caption = #24212#20184#27454#31649#29702 Caption = #24212#20184#27454#31649#29702
ClientHeight = 590 ClientHeight = 590
ClientWidth = 1625 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1641 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -15,7 +15,7 @@ inherited frmPayableList: TfrmPayableList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1625 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -41,19 +41,27 @@ inherited frmPayableList: TfrmPayableList
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
ImageIndex = 9 ImageIndex = 2
OnClick = btnAddClick OnClick = btnAddClick
end end
object btnEdit: TToolButton object TbnBatchAdd: TToolButton
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#26032#22686
ImageIndex = 2
OnClick = TbnBatchAddClick
end
object btnEdit: TToolButton
Left = 245
Top = 0
AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
ImageIndex = 3 ImageIndex = 3
OnClick = btnEditClick OnClick = btnEditClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 213 Left = 316
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#21333#20215 Caption = #20462#25913#21333#20215
@ -61,7 +69,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object btnDel: TToolButton object btnDel: TToolButton
Left = 316 Left = 419
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -69,7 +77,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = btnDelClick OnClick = btnDelClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 387 Left = 490
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -77,7 +85,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 458 Left = 561
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -85,7 +93,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 561 Left = 664
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -93,7 +101,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 632 Left = 735
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -101,7 +109,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 703 Left = 806
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -109,7 +117,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 774 Left = 877
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -117,7 +125,7 @@ inherited frmPayableList: TfrmPayableList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 877 Left = 980
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -128,7 +136,7 @@ inherited frmPayableList: TfrmPayableList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1625 Width = 1540
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -136,6 +144,7 @@ inherited frmPayableList: TfrmPayableList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 36
object Label3: TLabel object Label3: TLabel
Left = 227 Left = 227
Top = 8 Top = 8
@ -258,11 +267,12 @@ inherited frmPayableList: TfrmPayableList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 127 Top = 127
Width = 1625 Width = 1540
Height = 463 Height = 463
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 133
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -275,23 +285,21 @@ inherited frmPayableList: TfrmPayableList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = Tv1Column12 Column = Tv1Qty
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column15
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column16
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column17 Column = Tv1TaxInclude
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column11 Column = Tv1Piece
end end
item item
Kind = skSum Kind = skSum
@ -312,9 +320,9 @@ inherited frmPayableList: TfrmPayableList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 44
end end
object v2CRTime: TcxGridDBColumn object Tv1FFTime: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #21457#29983#26085#26399 Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'FFTime' DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
@ -324,56 +332,38 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
end end
object Tv1Column23: TcxGridDBColumn object Tv1ReconciliationDate: TcxGridDBColumn
Caption = #23545#36134#26085#26399 Caption = #23545#36134#26085#26399
DataBinding.FieldName = 'ReconciliationDate' DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 86
end end
object v2Column2: TcxGridDBColumn object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 91
end end
object v2FactoryName: TcxGridDBColumn object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 89
end end
object v2OrderNo: TcxGridDBColumn object Tv1FinType: TcxGridDBColumn
Tag = 7 Caption = #31867#22411
Caption = #19978#32423#21333#20301 DataBinding.FieldName = 'FinType'
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 66
end end
object Tv1Column3: TcxGridDBColumn object Tv1FFAbstract: TcxGridDBColumn
Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column24: TcxGridDBColumn
Caption = #25688#35201 Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract' DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -381,62 +371,61 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object Tv1Column20: TcxGridDBColumn object Tv1ConNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 101
end
object Tv1PurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 91
end end
object Tv1Column21: TcxGridDBColumn object Tv1BuyConNo: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Width = 127
end end
object Tv1Column4: TcxGridDBColumn object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'F_Code' DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 79
end end
object Tv1Column5: TcxGridDBColumn object Tv1F_Name: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'F_Name' DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 85
end end
object Tv1Column6: TcxGridDBColumn object Tv1F_Width: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'F_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'F_Width' DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 88
end end
object Tv1Column9: TcxGridDBColumn object Tv1F_GramWeight: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'F_GramWeight' DataBinding.FieldName = 'F_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -444,15 +433,15 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column10: TcxGridDBColumn object Tv1F_Color: TcxGridDBColumn
Caption = #33394#21495 Caption = #39068#33394
DataBinding.FieldName = 'F_ColorNo' DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column11: TcxGridDBColumn object Tv1Piece: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -460,7 +449,7 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column12: TcxGridDBColumn object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -468,7 +457,7 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column13: TcxGridDBColumn object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -476,63 +465,7 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column14: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column26: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
end
object Tv1Column15: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column16: TcxGridDBColumn
Caption = #20943#20813
DataBinding.FieldName = 'Deduction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsInvoice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column25: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -540,7 +473,51 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column1: TcxGridDBColumn object Tv1NoTaxPrice: TcxGridDBColumn
Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'NoTaxPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object Tv1NoTaxInclude: TcxGridDBColumn
Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'NoTaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108
end
object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1TaxInclude: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1FromID1: TcxGridDBColumn
Caption = #26469#28304 Caption = #26469#28304
DataBinding.FieldName = 'FromID1' DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -556,7 +533,7 @@ inherited frmPayableList: TfrmPayableList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 98 Top = 98
Width = 1625 Width = 1540
Height = 29 Height = 29
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -569,10 +546,15 @@ inherited frmPayableList: TfrmPayableList
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 280
Top = 104
ExplicitLeft = 280
ExplicitTop = 104
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

102
A09财务通用管理/U_PayableList.pas
View File

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, cxContainer, dxCore, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar;
cxProgressBar;
type type
TfrmPayableList = class(TfrmBaseList) TfrmPayableList = class(TfrmBaseList)
@ -34,24 +33,23 @@ type
OppCoName: TcxTextEdit; OppCoName: TcxTextEdit;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn; Tv1FFTime: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
DS_1: TDataSource; DS_1: TDataSource;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
btnAdd: TToolButton; btnAdd: TToolButton;
v2FactoryName: TcxGridDBColumn; Tv1OppCoName: TcxGridDBColumn;
F_Name: TcxTextEdit; F_Name: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
P_Code: TcxTextEdit; P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Label10: TLabel; Label10: TLabel;
ConNo: TcxTextEdit; ConNo: TcxTextEdit;
Label11: TLabel; Label11: TLabel;
BuyConNo: TcxTextEdit; BuyConNo: TcxTextEdit;
v2Column2: TcxGridDBColumn; TV1OurCoName: TcxGridDBColumn;
btnChk: TToolButton; btnChk: TToolButton;
btnReChk: TToolButton; btnReChk: TToolButton;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
@ -62,40 +60,39 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
N2: TMenuItem; N2: TMenuItem;
btnEdit: TToolButton; btnEdit: TToolButton;
Tv1Column3: TcxGridDBColumn; Tv1F_Code: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1F_Name: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1F_Color: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1F_Width: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1F_GramWeight: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Piece: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Qty: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1TaxInclude: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Currency: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1ConNo: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1BuyConNo: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn; Tv1ReconciliationDate: TcxGridDBColumn;
N3: TMenuItem; N3: TMenuItem;
Tv1Column24: TcxGridDBColumn; Tv1FFAbstract: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1FromID1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column26: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
CheckBox1: TcxCheckBox; CheckBox1: TcxCheckBox;
Tv1NoTaxPrice: TcxGridDBColumn;
Tv1NoTaxInclude: TcxGridDBColumn;
Tv1TaxRate: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn;
TbnBatchAdd: TToolButton;
Tv1FinType: TcxGridDBColumn;
Tv1PurNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -116,6 +113,7 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure TbnBatchAddClick(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -127,7 +125,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_PayableInput, U_ZDYHelp, U_PayableEdit, U_PayableImport, U_DataLink, U_RTFun, U_PayableInput, U_ZDYHelp, U_PayableEdit, U_PayableImport,
U_AttachmentUpload; U_AttachmentUpload, U_PayableBatchInput;
{$R *.dfm} {$R *.dfm}
procedure TfrmPayableList.SetStatus(); procedure TfrmPayableList.SetStatus();
@ -140,7 +138,7 @@ begin
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除 btnDel.Enabled := false; //删除
// if Trim(FAuthority) = '¹ÜÀí' then if Trim(FAuthority) = '管理' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
@ -186,11 +184,11 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.Add(' and isnull(status,''0'')=''0'' '); sql.Add(' and isnull(Checkstatus,''未审核'')=''未审核'' ');
end; end;
1: 1:
begin begin
sql.Add(' and isnull(status,''0'')=''9'' '); sql.Add(' and isnull(Checkstatus,''未审核'')=''已审核'' ');
end; end;
end; end;
if CheckBox1.Checked then if CheckBox1.Checked then
@ -199,6 +197,7 @@ begin
sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' '); sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
end; end;
sql.Add(WSql); sql.Add(WSql);
// ShowMessage(sql.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);
@ -249,6 +248,7 @@ begin
application.MessageBox('请选择数据', '提示'); application.MessageBox('请选择数据', '提示');
Exit; Exit;
end; end;
with CDS_1 do with CDS_1 do
begin begin
DisableControls; DisableControls;
@ -285,6 +285,7 @@ begin
ReadCxGrid(trim(Self.Caption), Tv1, '财务管理'); ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
Enddate.Date := SGetServerDate(ADOQueryTemp); Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date - 30; begdate.Date := Enddate.Date - 30;
FAuthority := self.fParameters1;
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;
@ -451,7 +452,6 @@ end;
procedure TfrmPayableList.btnAddClick(Sender: TObject); procedure TfrmPayableList.btnAddClick(Sender: TObject);
begin begin
try try
frmPayableInput := TfrmPayableInput.Create(Application); frmPayableInput := TfrmPayableInput.Create(Application);
with frmPayableInput do with frmPayableInput do
@ -575,8 +575,33 @@ begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理'); WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
end; end;
procedure TfrmPayableList.TbnBatchAddClick(Sender: TObject);
begin
try
frmPayableBatchInput := TfrmPayableBatchInput.Create(Application);
with frmPayableBatchInput do
begin
// FFFID := '';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmPayableBatchInput.Free;
end;
end;
procedure TfrmPayableList.btnEditClick(Sender: TObject); procedure TfrmPayableList.btnEditClick(Sender: TObject);
begin begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -594,6 +619,7 @@ begin
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
Exit; Exit;
end; end;
try try
frmPayableInput := TfrmPayableInput.Create(Application); frmPayableInput := TfrmPayableInput.Create(Application);
with frmPayableInput do with frmPayableInput do

14
A09财务通用管理/U_ReceivableList.dfm
View File

@ -3,11 +3,11 @@ inherited frmReceivableList: TfrmReceivableList
Top = 101 Top = 101
Caption = #24212#25910#27454#31649#29702 Caption = #24212#25910#27454#31649#29702
ClientHeight = 590 ClientHeight = 590
ClientWidth = 1625 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1641 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -15,7 +15,7 @@ inherited frmReceivableList: TfrmReceivableList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1625 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -128,7 +128,7 @@ inherited frmReceivableList: TfrmReceivableList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1625 Width = 1540
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -136,6 +136,8 @@ inherited frmReceivableList: TfrmReceivableList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitLeft = 8
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 250 Left = 250
Top = 8 Top = 8
@ -258,7 +260,7 @@ inherited frmReceivableList: TfrmReceivableList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 130 Top = 130
Width = 1625 Width = 1540
Height = 460 Height = 460
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
@ -570,7 +572,7 @@ inherited frmReceivableList: TfrmReceivableList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 98 Top = 98
Width = 1625 Width = 1540
Height = 32 Height = 32
Align = alTop Align = alTop
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET

4
A09财务通用管理/U_ReceivableList.pas
View File

@ -188,11 +188,11 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
sql.Add(' and isnull(status,''0'')=''0'' '); sql.Add(' and isnull(Checkstatus,''δÉóºË'')=''δÉóºË'' ');
end; end;
1: 1:
begin begin
sql.Add(' and isnull(status,''0'')=''9'' '); sql.Add(' and isnull(Checkstatus,''δÉóºË'')=''ÒÑÉóºË'' ');
end; end;
end; end;
if CheckBox1.Checked then if CheckBox1.Checked then

14408
A09财务通用管理/U_ZDYBankSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

678
A09财务通用管理/U_ZDYBankSel.pas Normal file
View File

@ -0,0 +1,678 @@
unit U_ZDYBankSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseInput, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxScrollbarAnnotations,
cxContainer, dxBarBuiltInMenu, cxImageList, System.ImageList,
dxSkinsDefaultPainters, dxSkinsCore;
type
TfrmZDYBankSel = class(TfrmBaseInput)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Code: TcxGridDBColumn;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBSave: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
V1Note: TcxGridDBColumn;
V1OrderNo: TcxGridDBColumn;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ZDYName: TcxTextEdit;
ThreeImgList: TImageList;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
V1ZdyFlag: TcxGridDBColumn;
V1HelpType: TcxGridDBColumn;
Tv1note1: TcxGridDBColumn;
ImageList1: TImageList;
ToolButton2: TToolButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ZDYNamePropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag, flagname, snote, MainType: string;
fnote, forderno, fZdyFlag, ViewFlag, fnote1, FHelpType: Boolean;
PPSTE: integer;
{ Public declarations }
end;
var
frmZDYBankSel: TfrmZDYBankSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmZDYBankSel.FormCreate(Sender: TObject);
begin
inherited;
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
end;
procedure TfrmZDYBankSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ZDYName.SetFocus;
Action := cahide;
end;
procedure TfrmZDYBankSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.MainType=''' + MainType + '''');
Open;
end;
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZDYBankSel.TBAddClick(Sender: TObject);
var
i: Integer;
begin
ZDYName.SetFocus;
TV1.OptionsData.Editing := True;
TV1.OptionsSelection.CellSelect := True;
for i := 0 to 5 do
begin
with ClientDataSet1 do
begin
Append;
Post;
end;
end;
end;
procedure TfrmZDYBankSel.TBSaveClick(Sender: TObject);
var
maxno: string;
begin
if ClientDataSet1.IsEmpty then
Exit;
ZDYName.SetFocus;
if ClientDataSet1.Locate('ZDYName', null, []) then
begin
Application.MessageBox('名称不能为空！', '提示', 0);
Exit;
end;
if ClientDataSet1.Locate('ZDYName', '', []) then
begin
Application.MessageBox('名称不能为空！', '提示', 0);
Exit;
end;
// if ClientDataSet1.Locate('Note', null, []) then
// begin
// Application.MessageBox('账号不能为空！', '提示', 0);
// Exit;
// end;
// if ClientDataSet1.Locate('Note', '', []) then
// begin
// Application.MessageBox('账号不能为空！', '提示', 0);
// Exit;
// end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
open;
end;
// if ADOQueryTemp.IsEmpty then
// begin
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.Add('select * from KH_ZDY where 1=2');
// open;
// ADOQueryCmd.Append;
// ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
// ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
//// ADOQueryCmd.FieldByName('Type').Value := 'Main';
// ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
// ADOQueryCmd.Post;
// { sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
// Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
// Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
// Parameters.ParamByName('Type').Value:='Main';
// Parameters.ParamByName('MainType').Value:=Trim(MainType);
// ExecSQL; }
// end;
// end;
with ADOQueryCmd do
begin
ClientDataSet1.DisableControls;
with ClientDataSet1 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxno, 'FY', 'KH_ZDY', 3, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy where MainType=''' + Trim(MainType) + '''');
// if Trim(MainType) <> '' then
// SQL.Add(' and MainType=''' + Trim(MainType) + '''');
sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' and Note=''' + Trim(ClientDataSet1.fieldbyname('Note').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
if ADOQueryTemp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('数据重复！', '提示', 0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('数据重复！', '提示', 0);
Exit;
end
else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('数据重复！', '提示', 0);
Exit;
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').Value;
ADOQueryCmd.FieldByName('note').Value := ClientDataSet1.fieldbyname('note').Value;
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value := flag;
ADOQueryCmd.FieldByName('valid').Value := 'Y';
if Trim(MainType) <> '' then
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
ClientDataSet1.Post;
Next;
end;
end;
ClientDataSet1.EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！', '提示', 0);
TV1.OptionsData.Editing := False;
TV1.OptionsSelection.CellSelect := False;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end;
end;
procedure TfrmZDYBankSel.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then
Exit;
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString) <> '') or (Trim(ClientDataSet1.FieldByName('ZDYname').AsString) <> '') then
begin
if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete KH_ZDY where ZDYNo=''' + Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString) + '''');
SQL.Add(' and MainType=''' + Trim(MainType) + '''');
ExecSQL;
end;
end;
ClientDataSet1.Delete;
end;
procedure TfrmZDYBankSel.TBCloseClick(Sender: TObject);
begin
ModalResult := 2;
ZDYName.SetFocus;
Close;
end;
procedure TfrmZDYBankSel.FormShow(Sender: TObject);
var
fsj, fsj1: string;
begin
// inherited;
InitGrid();
fsj := Trim(flag) + '01';
fsj1 := Trim(flagname) + '01';
readCxGrid(trim(Self.Caption), Tv1, '财务银行选择');
frmZDYBankSel.Caption := Trim(flagname);
// V1Note.Visible := fnote;
V1ZdyFlag.Visible := fZdyFlag;
V1OrderNo.Visible := forderno;
Tv1note1.Visible := fnote1;
V1HelpType.Visible := fhelpType;
if ViewFlag = True then
begin
TBAdd.Visible := False;
TBSave.Visible := False;
TBDel.Visible := False;
TBEdit.Visible := False;
Label2.Visible := False;
end;
end;
procedure TfrmZDYBankSel.ToolButton1Click(Sender: TObject);
begin
ZDYName.SetFocus;
// WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
ModalResult := 1;
end;
procedure TfrmZDYBankSel.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务银行选择');
end;
procedure TfrmZDYBankSel.TBEditClick(Sender: TObject);
begin
TV1.OptionsData.Editing := True;
TV1.OptionsSelection.CellSelect := True;
end;
procedure TfrmZDYBankSel.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if TV1.OptionsData.Editing = False then
begin
ModalResult := 1;
end;
end;
procedure TfrmZDYBankSel.ZDYNamePropertiesChange(Sender: TObject);
var
fsj: string;
begin
if Trim(ZDYName.Text) <> '' then
begin
fsj := ' zdyname like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or Note like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or ZJM like ''' + '%' + Trim(ZDYName.Text) + '%' + '''';
end;
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, fsj);
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
end;
end;
procedure TfrmZDYBankSel.V1NamePropertiesEditValueChanged(Sender: TObject);
var
maxno, mvalue: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
//Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('ZdyName').Value := Trim(mvalue);
//Post;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1=2');
open;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
ADOQueryCmd.FieldByName('Type').Value := 'Main';
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
ADOQueryCmd.Post;
end;
end;
with ADOQueryCmd do
begin
//ClientDataSet1.DisableControls;
//with ClientDataSet1 do
//begin
//First;
//while not eof do
//begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
if Trim(MainType) <> '' then
SQL.Add(' and MainType=''' + Trim(MainType) + '''');
sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' and note=''' + Trim(ClientDataSet1.fieldbyname('note').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
if ADOQueryTemp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end
else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value := Trim(snote);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value := flag;
ADOQueryCmd.FieldByName('valid').Value := 'Y';
if Trim(MainType) <> '' then
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
//ClientDataSet1.Post;
// Next;
//end;
//end;
// ClientDataSet1.EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
//Application.MessageBox('保存成功！','提示',0);
//TV1.OptionsData.Editing:=False;
//TV1.OptionsSelection.CellSelect:=False;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end;
end;
procedure TfrmZDYBankSel.V1OrderNoPropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('OrderNo').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set OrderNo=' + mvalue);
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYBankSel.V1NotePropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('Note').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set Note=''' + Trim(mvalue) + '''');
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYBankSel.V1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
fieldname: string;
begin
fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
with ClientDataSet1 do
begin
Edit;
FieldByName(fieldname).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set ' + fieldname + '=''' + Trim(mvalue) + ''' ');
sql.Add('where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYBankSel.V1HelpTypePropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('HelpType').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set HelpType=''' + Trim(mvalue) + '''');
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYBankSel.FormDestroy(Sender: TObject);
begin
inherited;
WriteCxGrid(trim(Self.Caption), Tv1, '财务银行选择');
frmZDYBankSel := nil;
end;
end.

BIN
A09财务通用管理/testDll.res
View File

Binary file not shown.

112
B01基础合同管理/Contract.dproj.local
View File

@ -1,87 +1,87 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

4
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -31,7 +31,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 1
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -71,7 +70,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label3: TLabel object Label3: TLabel
Left = 330 Left = 330
Top = 118 Top = 118
@ -801,7 +799,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitTop = 407
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -844,7 +841,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = pm_sub PopupMenu = pm_sub
TabOrder = 3 TabOrder = 3
ExplicitTop = 437
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

3
B01基础合同管理/U_SalesConInPut.pas
View File

@ -1214,6 +1214,7 @@ begin
// Order_Sub.fieldbyname('ConSNote').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConSNote').asstring; // Order_Sub.fieldbyname('ConSNote').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConSNote').asstring;
Order_Sub.fieldbyname('CP_Code').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring; Order_Sub.fieldbyname('CP_Code').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring;
Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring; Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring;
// Order_Sub.fieldbyname('FromCPConNo').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConNo').asstring;
Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring; Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring;
Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring; Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring;
// Order_Sub.FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CP_QTY').ASFLOAT; // Order_Sub.FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CP_QTY').ASFLOAT;
@ -1242,7 +1243,7 @@ begin
SQL.Add(' from BS_Contract_Sub A'); SQL.Add(' from BS_Contract_Sub A');
SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID '); SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID ');
SQL.Add(' where CP_Code = ' + QuotedStr(Trim(frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring))); SQL.Add(' where CP_Code = ' + QuotedStr(Trim(frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring)));
ShowMessage(sql.Text); ShowMessage(sql.Text);
Open; Open;
end; end;

5
B01基础合同管理/U_finishSalesContractList.dfm
View File

@ -7,7 +7,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -689
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 810 ExplicitHeight = 810
PixelsPerInch = 96 PixelsPerInch = 96
@ -203,6 +202,8 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alClient Align = alClient
PopupMenu = pm1 PopupMenu = pm1
TabOrder = 3 TabOrder = 3
ExplicitLeft = 1
ExplicitTop = 152
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -749,8 +750,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 268 Height = 268
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 906
ExplicitTop = -4
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

28
B02基础纱线仓库/U_YarnCFInfoSel.dfm
View File

@ -3,14 +3,14 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
Top = 106 Top = 106
Caption = #32433#32447#25104#20998#36873#25321 Caption = #32433#32447#25104#20998#36873#25321
ClientHeight = 558 ClientHeight = 558
ClientWidth = 893 ClientWidth = 944
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 909 ExplicitWidth = 960
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -18,7 +18,7 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 893 Width = 944
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -36,6 +36,7 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 893
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -88,12 +89,13 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 893 Width = 944
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitWidth = 893
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 17 Top = 17
@ -114,11 +116,13 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 82 Top = 82
Width = 893 Width = 944
Height = 476 Height = 476
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = 8
ExplicitTop = 76 ExplicitTop = 76
ExplicitWidth = 893
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -198,6 +202,20 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 111
end end
object Tv1CHNName: TcxGridDBColumn
Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'CHNName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1VieName: TcxGridDBColumn
Caption = #36234#21335#21517#31216
DataBinding.FieldName = 'VieName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

22
B02基础纱线仓库/U_YarnCFInfoSel.pas
View File

@ -55,6 +55,8 @@ type
ToolButton3: TToolButton; ToolButton3: TToolButton;
TbSave: TToolButton; TbSave: TToolButton;
Tv1SSel: TcxGridDBColumn; Tv1SSel: TcxGridDBColumn;
Tv1CHNName: TcxGridDBColumn;
Tv1VieName: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -204,6 +206,26 @@ begin
Post; Post;
end; end;
end
else
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Yarn_Info_CF where CFID = ' + QuotedStr(Trim(CDS_1.fieldbyname('CFID').AsString)));
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_1.fieldbyname('CFID').AsString) <> '' then
begin
edit;
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Yarn_Info_CF', 0);
Post;
end;
end; end;
Next; Next;
end; end;

259
B02基础纱线仓库/U_YarnInEdit.dfm
View File

@ -35,7 +35,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
end end
item item
Kind = skSum Kind = skSum
Column = v2Column6 Column = Tv2Qty
end end
item item
Kind = skSum Kind = skSum
@ -48,7 +48,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object v1Column6: TcxGridDBColumn object Tv1BYIOID: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID' DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -56,7 +56,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
end end
object v1Column2: TcxGridDBColumn object Tv1IOTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -66,7 +66,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object v1Column4: TcxGridDBColumn object Tv1IOType: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -84,25 +84,9 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end
object v1FactoryName: TcxGridDBColumn object Tv1FromCoName: TcxGridDBColumn
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
Properties.OnButtonClick = v1Column14PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv1Column10: TcxGridDBColumn
Caption = #20379#24212#21830 Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
@ -115,22 +99,21 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 130 Width = 130
end end
object Tv1Column1: TcxGridDBColumn object Tv1FromPurNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 87
end end
object Tv1Column8: TcxGridDBColumn object Tv1FromConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv1Y_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -138,7 +121,14 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
end end
object v1SPName: TcxGridDBColumn object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Y_Name: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -153,97 +143,56 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 101 Width = 101
end end
object Tv1Column12: TcxGridDBColumn object Tv1SXCPM: TcxGridDBColumn
Caption = #31867#22411 Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 90
Width = 85
end end
object Tv1Column2: TcxGridDBColumn object Tv1Y_Composition: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
end end
object Tv1Column5: TcxGridDBColumn object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
end end
object Tv1Column6: TcxGridDBColumn object Tv1Denier: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column11: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108 Width = 108
end end
object Tv1Column13: TcxGridDBColumn object Tv1ZS: TcxGridDBColumn
Caption = #28504#36890#21495 Caption = #25903#25968
DataBinding.FieldName = 'Y_ColorNo' DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column16: TcxGridDBColumn object Tv1FF: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column17: TcxGridDBColumn object Tv1BatchNo: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column1: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 92 Width = 92
end end
object v2Column6: TcxGridDBColumn object Tv1Piece: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00'
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column3: TcxGridDBColumn
Caption = #31665'/'#20214 Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -253,6 +202,27 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 59 Width = 59
end end
object Tv2Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00'
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M')
HeaderAlignmentHorz = taCenter
Width = 54
end
object Tv1dbWeight: TcxGridDBColumn object Tv1dbWeight: TcxGridDBColumn
Caption = #21333#21253#37325#37327 Caption = #21333#21253#37325#37327
DataBinding.FieldName = 'dbWeight' DataBinding.FieldName = 'dbWeight'
@ -279,39 +249,92 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object v1QtyUnit: TcxGridDBColumn object Tv1Note: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M')
HeaderAlignmentHorz = taCenter
Width = 55
end
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1StkCoName: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromConMId: TcxGridDBColumn
Caption = #22383#24067#21512#21516#20027
DataBinding.FieldName = 'FromConMId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromConSId: TcxGridDBColumn
Caption = #22383#24067#21512#21516#23376
DataBinding.FieldName = 'FromConSId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromOrdNo: TcxGridDBColumn
Caption = #32455#36896#21333
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromMainId: TcxGridDBColumn
Caption = #32455#36896#21333#20027
DataBinding.FieldName = 'FromMainId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromSubId: TcxGridDBColumn
Caption = #32455#36896#21333#23376
DataBinding.FieldName = 'FromSubId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromPurMId: TcxGridDBColumn
Caption = #37319#36141#21333#20027
DataBinding.FieldName = 'FromPurMId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromPurSId: TcxGridDBColumn
Caption = #37319#36141#21333#23376
DataBinding.FieldName = 'FromPurSId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromCoNo: TcxGridDBColumn
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1StkCoNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

130
B02基础纱线仓库/U_YarnInEdit.pas
View File

@ -18,53 +18,58 @@ type
TfrmYarnInEdit = class(TfrmBaseInput) TfrmYarnInEdit = class(TfrmBaseInput)
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn; Tv1IOTime: TcxGridDBColumn;
v1SPName: TcxGridDBColumn; Tv1Y_Name: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; Tv2Qty: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBAdd: TToolButton; TBAdd: TToolButton;
TBDel: TToolButton; TBDel: TToolButton;
TBSave: TToolButton; TBSave: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
v1Column4: TcxGridDBColumn; Tv1IOType: TcxGridDBColumn;
DS_1: TDataSource; DS_1: TDataSource;
CDS_Sub: TClientDataSet; CDS_Sub: TClientDataSet;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
v1FactoryName: TcxGridDBColumn; Tv1BYIOID: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn; Tv1BatchNo: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column3: TcxGridDBColumn; Tv1Piece: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn; Tv1Y_Composition: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Y_Color: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Y_Code: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
ToolButton3: TToolButton; ToolButton3: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
CDS_LM: TClientDataSet; CDS_LM: TClientDataSet;
Tv1Column10: TcxGridDBColumn; Tv1FromCoName: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
Tv1Column13: TcxGridDBColumn; Tv1FF: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1dbWeight: TcxGridDBColumn; Tv1dbWeight: TcxGridDBColumn;
Tv1dbNumber: TcxGridDBColumn; Tv1dbNumber: TcxGridDBColumn;
Tv1singleWeight: TcxGridDBColumn; Tv1singleWeight: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn; Tv1SXCPM: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn; Tv1SXCBH: TcxGridDBColumn;
Tv1FromPurNo: TcxGridDBColumn;
Tv1StkCoName: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
Tv1FromConNo: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
Tv1FromConMId: TcxGridDBColumn;
Tv1FromConSId: TcxGridDBColumn;
Tv1FromOrdNo: TcxGridDBColumn;
Tv1FromMainId: TcxGridDBColumn;
Tv1FromSubId: TcxGridDBColumn;
Tv1FromPurMId: TcxGridDBColumn;
Tv1FromPurSId: TcxGridDBColumn;
Tv1FromCoNo: TcxGridDBColumn;
Tv1StkCoNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -197,14 +202,14 @@ begin
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end; end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Yarn_IO', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Yarn_IO', 0);
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value; // FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value; // FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
FieldByName('FromOrdNo').Value := CDS_Sub.fieldbyname('FromOrdNo').value; // FieldByName('FromOrdNo').Value := CDS_Sub.fieldbyname('FromOrdNo').value;
FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').value; // FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').value;
FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').value; // FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').value;
FieldByName('FromPurMId').Value := CDS_Sub.fieldbyname('FromPurMId').Value; // FieldByName('FromPurMId').Value := CDS_Sub.fieldbyname('FromPurMId').Value;
FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').Value; // FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').Value;
FieldByName('FromPurNo').Value := CDS_Sub.fieldbyname('FromPurNo').Value; // FieldByName('FromPurNo').Value := CDS_Sub.fieldbyname('FromPurNo').Value;
FieldByName('BYIOID').Value := Trim(Maxno); FieldByName('BYIOID').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno); FieldByName('STKID').Value := Trim(Maxno);
@ -431,38 +436,64 @@ begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Append; Append;
FieldByName('IOType').Value := '²É¹ºÈë¿â'; FieldByName('IOType').Value := '²É¹ºÈë¿â';
FieldByName('FromCoName').Value := CDS_1.fieldbyname('SellName').value;//윱菱데貫 묩壇<EFBFBD>
FieldByName('FromCoNo').Value := CDS_1.fieldbyname('SellNo').value; FieldByName('FromCoNo').Value := CDS_1.fieldbyname('SellNo').value;
FieldByName('FromCoName').Value := CDS_1.fieldbyname('SellName').value; //흙욋廉芚데
FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('FromOrdNo').value;
FieldByName('FromMainId').Value := CDS_1.fieldbyname('FromMainId').value;
FieldByName('FromSubId').Value := CDS_1.fieldbyname('FromSubId').value;
// 놔욋廉芚데
// FieldByName('ToOrdNo').Value := CDS_1.fieldbyname('PurNo').value;
// FieldByName('ToMainId').Value := CDS_1.fieldbyname('PurNo').value;
// FieldByName('ToSubId').Value := CDS_1.fieldbyname('PurNo').value;
//흙욋툰꼈북谿뵀
FieldByName('FromConNo').Value := CDS_1.fieldbyname('ConNo').value;
FieldByName('fromConMId').Value := CDS_1.fieldbyname('fromConMId').value;
FieldByName('fromConSId').Value := CDS_1.fieldbyname('fromConSId').value;
//놔욋툰꼈북谿뵀
// FieldByName('ToOrdNo').Value := CDS_1.fieldbyname('PurNo').value;
// FieldByName('ToMainId').Value := CDS_1.fieldbyname('PurNo').value;
// FieldByName('ToSubId').Value := CDS_1.fieldbyname('PurNo').value;
//흙욋꽃뭔셕뺍데뵀
FieldByName('FromPurNo').Value := CDS_1.fieldbyname('PurNo').value;
FieldByName('FromPurMId').Value := CDS_1.fieldbyname('PurMId').value;
FieldByName('FromPurSId').Value := CDS_1.fieldbyname('PurSId').value;
FieldByName('Supplier').Value := CDS_1.fieldbyname('SellName').value;
FieldByName('StkCoNo').Value := Trim(CDS_1.fieldbyname('BuyNo').AsString);
FieldByName('StkCoName').Value := CDS_1.fieldbyname('BuyName').value;
FieldByName('Brand').Value := CDS_1.fieldbyname('Brand').value;
FieldByName('Y_Type').Value := CDS_1.fieldbyname('Y_Type').value;
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value; FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value; FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value; FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value;
FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value; FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value;
FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').value; FieldByName('FF').Value := CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := CDS_1.fieldbyname('ND').value;
FieldByName('Qty').Value := CDS_1.fieldbyname('Qty').value; FieldByName('Qty').Value := CDS_1.fieldbyname('Qty').value;
FieldByName('Price').Value := CDS_1.fieldbyname('Price').value; FieldByName('Price').Value := CDS_1.fieldbyname('Price').value;
FieldByName('Amount').Value := CDS_1.fieldbyname('Amount').value;
FieldByName('QtyUnit').Value := CDS_1.fieldbyname('QtyUnit').value; FieldByName('QtyUnit').Value := CDS_1.fieldbyname('QtyUnit').value;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
// FieldByName('StkCoNo').Value := Trim(CDS_1.fieldbyname('BuyNo').AsString); //닸렴데貫
// FieldByName('StkCoName').Value := CDS_1.fieldbyname('BuyName').value;
FieldByName('StkCoNo').Value := '굶낍꾑욋'; //닸렴데貫
FieldByName('StkCoName').Value := '굶낍꾑욋';
// FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('PurNo').value; // FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('PurNo').value;
// FieldByName('FromMainId').Value := CDS_1.fieldbyname('PurMId').value; // FieldByName('FromMainId').Value := CDS_1.fieldbyname('PurMId').value;
// FieldByName('FromSubId').Value := CDS_1.fieldbyname('PurSId').value; // FieldByName('FromSubId').Value := CDS_1.fieldbyname('PurSId').value;
FieldByName('batchno').Value := CDS_1.fieldbyname('PurNo').value;
FieldByName('FromPurNo').Value := CDS_1.fieldbyname('PurNo').value; // FieldByName('FromPurMId').Value := CDS_1.fieldbyname('PurMId').value;
FieldByName('FromPurMId').Value := CDS_1.fieldbyname('PurMId').value; // FieldByName('FromPurSId').Value := CDS_1.fieldbyname('PurSId').value;
FieldByName('FromPurSId').Value := CDS_1.fieldbyname('PurSId').value;
end; end;
end; end;
@ -667,8 +698,9 @@ begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
// FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('Supplier').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); FieldByName('FromCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Post;
end; end;
end; end;
end; end;

467
B02基础纱线仓库/U_YarnInList.dfm
View File

@ -159,7 +159,7 @@ inherited frmYarnInList: TfrmYarnInList
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
object Label3: TLabel object Label3: TLabel
Left = 248 Left = 717
Top = 46 Top = 46
Width = 40 Width = 40
Height = 21 Height = 21
@ -167,20 +167,20 @@ inherited frmYarnInList: TfrmYarnInList
Caption = #21697#21517 Caption = #21697#21517
end end
object Label4: TLabel object Label4: TLabel
Left = 450 Left = 257
Top = 46 Top = 84
Width = 70 Width = 70
Height = 21 Height = 21
AutoSize = False AutoSize = False
Caption = #26469#33258#21333#20301 Caption = #20379#24212#21830
end end
object Label8: TLabel object Label8: TLabel
Left = 252 Left = 721
Top = 84 Top = 84
Width = 40 Width = 40
Height = 21 Height = 21
AutoSize = False AutoSize = False
Caption = #35268#26684 Caption = #25104#20998
end end
object Label12: TLabel object Label12: TLabel
Left = 24 Left = 24
@ -191,11 +191,10 @@ inherited frmYarnInList: TfrmYarnInList
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
end end
object Label10: TLabel object Label10: TLabel
Left = 450 Left = 918
Top = 84 Top = 84
Width = 70 Width = 32
Height = 21 Height = 21
AutoSize = False
Caption = #25209#21495 Caption = #25209#21495
end end
object Label6: TLabel object Label6: TLabel
@ -207,67 +206,81 @@ inherited frmYarnInList: TfrmYarnInList
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
end end
object Label5: TLabel object Label5: TLabel
Left = 678 Left = 918
Top = 46 Top = 46
Width = 60 Width = 60
Height = 21 Height = 21
AutoSize = False AutoSize = False
Caption = #20379#24212#21830 Caption = #39068#33394
end end
object Label1: TLabel object Label1: TLabel
Left = 678 Left = 479
Top = 84 Top = 84
Width = 60 Width = 60
Height = 21 Height = 21
AutoSize = False AutoSize = False
Caption = #32534#21495 Caption = #32534#21495
end end
object Label2: TLabel
Left = 257
Top = 46
Width = 64
Height = 21
Caption = #37319#36141#21333#21495
end
object Label7: TLabel
Left = 477
Top = 46
Width = 80
Height = 21
Caption = #22383#24067#21512#21516#21495
end
object Y_Name: TcxTextEdit object Y_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 288 Left = 757
Top = 42 Top = 42
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 0 TabOrder = 0
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object FromCoName: TcxTextEdit object FromCoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 524 Left = 324
Top = 42 Top = 77
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 1 TabOrder = 1
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object Y_spec: TcxTextEdit object Y_Composition: TcxTextEdit
Tag = 2 Tag = 2
Left = 296 Left = 757
Top = 78 Top = 77
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 2 TabOrder = 2
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object BatchNo: TcxTextEdit object BatchNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 524 Left = 957
Top = 78 Top = 77
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 3 TabOrder = 3
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object BYIOID: TcxTextEdit object BYIOID: TcxTextEdit
Tag = 2 Tag = 2
Left = 98 Left = 98
Top = 42 Top = 42
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 4 TabOrder = 4
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object Supplier: TcxTextEdit object Y_Color: TcxTextEdit
Tag = 2 Tag = 2
Left = 742 Left = 957
Top = 42 Top = 42
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 5 TabOrder = 5
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
inline Frame11: TfrmFrameDateSel inline Frame11: TfrmFrameDateSel
@ -306,16 +319,31 @@ inherited frmYarnInList: TfrmYarnInList
#37319#36141#20837#24211 #37319#36141#20837#24211
#20179#24211#36864#22238 #20179#24211#36864#22238
#26399#21021#20837#24211) #26399#21021#20837#24211)
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 7 TabOrder = 7
Width = 150 Width = 150
end end
object Y_Code: TcxTextEdit object Y_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 742 Left = 561
Top = 78 Top = 77
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 8 TabOrder = 8
OnKeyPress = BYIOIDKeyPress
Width = 150
end
object FromPurNo: TcxTextEdit
Tag = 2
Left = 324
Top = 42
TabOrder = 9
OnKeyPress = BYIOIDKeyPress
Width = 150
end
object FromConNo: TcxTextEdit
Tag = 2
Left = 561
Top = 42
TabOrder = 10
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
end end
@ -340,7 +368,6 @@ inherited frmYarnInList: TfrmYarnInList
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
ExplicitTop = 154
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = #27491#24120#25968#25454 Caption = #27491#24120#25968#25454
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
@ -369,7 +396,7 @@ inherited frmYarnInList: TfrmYarnInList
end end
item item
Kind = skSum Kind = skSum
Column = v2Column6 Column = Tv1Qty
end end
item item
Kind = skSum Kind = skSum
@ -396,7 +423,7 @@ inherited frmYarnInList: TfrmYarnInList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 46 Width = 46
end end
object v1Column6: TcxGridDBColumn object v1BYIOID: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID' DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -404,7 +431,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
end end
object v1Column2: TcxGridDBColumn object Tv1ioTime: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime' DataBinding.FieldName = 'ioTime'
@ -416,7 +443,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 93 Width = 93
end end
object v1Column4: TcxGridDBColumn object Tv1IOType: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
@ -431,40 +458,29 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object v1Column14: TcxGridDBColumn object Tv1FromCoName: 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 = 116
end
object Tv1Column10: TcxGridDBColumn
Caption = #20379#24212#21830 Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 86 Width = 86
end end
object Tv1Column4: TcxGridDBColumn object Tv1FromPurNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 91
end end
object Tv1Column12: TcxGridDBColumn object Tv1FromConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
object Tv1Y_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -472,7 +488,14 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
end end
object v2Column1: TcxGridDBColumn object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Y_Name: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
@ -487,33 +510,14 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
end end
object Tv1Column8: TcxGridDBColumn object Tv1SXCPM: TcxGridDBColumn
Caption = #31867#22411 Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 90
Width = 80
end end
object v1Column20: TcxGridDBColumn object Tv1Y_Composition: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column1: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -521,7 +525,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column2: TcxGridDBColumn object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -529,31 +533,21 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column3: TcxGridDBColumn object Tv1Denier: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 103
end
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column11: TcxGridDBColumn object Tv1FF: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column13: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object Tv1Column17: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -561,15 +555,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column16: TcxGridDBColumn object T1BatchNo: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -578,7 +564,7 @@ inherited frmYarnInList: TfrmYarnInList
VisibleForCustomization = False VisibleForCustomization = False
Width = 89 Width = 89
end end
object Tv1Column5: TcxGridDBColumn object Tv1Piece: TcxGridDBColumn
Caption = #31665'/'#20214 Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -586,21 +572,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
end end
object Tv1SXCBH: TcxGridDBColumn object Tv1Qty: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
@ -610,7 +582,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
end end
object v1Column3: TcxGridDBColumn object Tv1QtyUnit: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
@ -624,7 +596,28 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column12: TcxGridDBColumn object Tv1dbWeight: TcxGridDBColumn
Caption = #21333#21253#37325#37327
DataBinding.FieldName = 'dbWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1dbNumber: TcxGridDBColumn
Caption = #21333#21253#20010#25968
DataBinding.FieldName = 'dbNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108
end
object Tv1singleWeight: TcxGridDBColumn
Caption = #21333#20010#31570#37325
DataBinding.FieldName = 'singleWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Note: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -633,23 +626,13 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object Tv1Column6: TcxGridDBColumn object Tv1StkCoName: TcxGridDBColumn
Caption = #38468#20214 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'FJFlag' DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 50 Width = 92
end
object Tv1Column7: TcxGridDBColumn
Caption = #26159#21542#25277#26816
DataBinding.FieldName = 'ISCJ'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
@ -686,7 +669,7 @@ inherited frmYarnInList: TfrmYarnInList
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn24 Column = Tv2Qty
end end
item item
Kind = skSum Kind = skSum
@ -713,7 +696,7 @@ inherited frmYarnInList: TfrmYarnInList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 46 Width = 46
end end
object cxGridDBColumn2: TcxGridDBColumn object Tv2BYIOID: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID' DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -721,7 +704,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
end end
object cxGridDBColumn3: TcxGridDBColumn object Tv2ioTime: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime' DataBinding.FieldName = 'ioTime'
@ -733,7 +716,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 93 Width = 93
end end
object cxGridDBColumn4: TcxGridDBColumn object Tv2IOType: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
@ -748,40 +731,29 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object cxGridDBColumn5: TcxGridDBColumn object Tv2FromCoName: 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 = 116
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #20379#24212#21830 Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 86 Width = 86
end end
object cxGridDBColumn7: TcxGridDBColumn object Tv2CFromPurNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 86
Width = 91
end end
object cxGridDBColumn8: TcxGridDBColumn object Tv2FromConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 95
end
object Tv2Y_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -789,7 +761,14 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
end end
object cxGridDBColumn9: TcxGridDBColumn object Tv2SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv2Y_Name: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
@ -804,33 +783,14 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
end end
object cxGridDBColumn10: TcxGridDBColumn object Tv2SXCPM: TcxGridDBColumn
Caption = #31867#22411 Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 90
Width = 80
end end
object cxGridDBColumn11: TcxGridDBColumn object Tv2Y_Composition: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object cxGridDBColumn12: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -838,7 +798,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn14: TcxGridDBColumn object Tv2Y_Color: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -846,31 +806,21 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn15: TcxGridDBColumn object Tv2Denier: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 105
end
object Tv2ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object cxGridDBColumn16: TcxGridDBColumn object Tv2FF: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -878,15 +828,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn19: TcxGridDBColumn object Tv2BatchNo: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -895,7 +837,7 @@ inherited frmYarnInList: TfrmYarnInList
VisibleForCustomization = False VisibleForCustomization = False
Width = 89 Width = 89
end end
object cxGridDBColumn21: TcxGridDBColumn object Tv2Piece: TcxGridDBColumn
Caption = #31665'/'#20214 Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -903,21 +845,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
end end
object cxGridDBColumn22: TcxGridDBColumn object Tv2Qty: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGridDBColumn23: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGridDBColumn24: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
@ -927,7 +855,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
end end
object cxGridDBColumn25: TcxGridDBColumn object Tv2QtyUnit: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
@ -941,7 +869,7 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn26: TcxGridDBColumn object Tv2Note: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -950,23 +878,34 @@ inherited frmYarnInList: TfrmYarnInList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object cxGridDBColumn27: TcxGridDBColumn object Tv2dbWeight: TcxGridDBColumn
Caption = #38468#20214 Caption = #21333#21253#37325#37327
DataBinding.FieldName = 'FJFlag' DataBinding.FieldName = 'dbWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 50
end end
object cxGridDBColumn28: TcxGridDBColumn object Tv2dbNumber: TcxGridDBColumn
Caption = #26159#21542#25277#26816 Caption = #21333#21253#20010#25968
DataBinding.FieldName = 'ISCJ' DataBinding.FieldName = 'dbNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object Tv2singleWeight: TcxGridDBColumn
Caption = #21333#20010#31570#37325
DataBinding.FieldName = 'singleWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2StkCoName: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 91
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -1032,6 +971,10 @@ inherited frmYarnInList: TfrmYarnInList
Caption = #20840#24323 Caption = #20840#24323
OnClick = N2Click OnClick = N2Click
end end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end end
object GPM_2: TcxGridPopupMenu object GPM_2: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2

127
B02基础纱线仓库/U_YarnInList.pas
View File

@ -11,7 +11,7 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,Clipbrd,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxCore, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, FrameDateSel, U_InputBoxSingleNumber, dxSkinsCore, cxDateUtils, cxMaskEdit, FrameDateSel, U_InputBoxSingleNumber, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
@ -43,7 +43,7 @@ type
Label12: TLabel; Label12: TLabel;
Y_Name: TcxTextEdit; Y_Name: TcxTextEdit;
FromCoName: TcxTextEdit; FromCoName: TcxTextEdit;
Y_spec: TcxTextEdit; Y_Composition: TcxTextEdit;
Label10: TLabel; Label10: TLabel;
BatchNo: TcxTextEdit; BatchNo: TcxTextEdit;
ToolButton1: TToolButton; ToolButton1: TToolButton;
@ -51,7 +51,7 @@ type
BYIOID: TcxTextEdit; BYIOID: TcxTextEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Label5: TLabel; Label5: TLabel;
Supplier: TcxTextEdit; Y_Color: TcxTextEdit;
Frame11: TfrmFrameDateSel; Frame11: TfrmFrameDateSel;
IOType: TcxComboBox; IOType: TcxComboBox;
ToolButton3: TToolButton; ToolButton3: TToolButton;
@ -67,69 +67,68 @@ type
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1BYIOID: TcxGridDBColumn;
v1Column2: TcxGridDBColumn; Tv1ioTime: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; Tv1IOType: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; Tv1FromCoName: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1StkCoName: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Y_Code: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Y_Name: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; Tv1Y_Composition: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Y_Color: TcxGridDBColumn;
v1Column20: TcxGridDBColumn; Tv1FF: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; T1BatchNo: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Piece: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn; Tv1SXCBH: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn; Tv1SXCPM: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; Tv1Qty: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; Tv2BYIOID: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn; Tv2ioTime: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn; Tv2IOType: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; Tv2FromCoName: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn; Tv2StkCoName: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn; Tv2Y_Code: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn; Tv2Y_Name: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn; Tv2Y_Composition: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn; Tv2Y_Color: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn; Tv2FF: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn; Tv2BatchNo: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn; Tv2Piece: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn; Tv2SXCBH: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn; Tv2SXCPM: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn; Tv2Qty: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn; Tv2QtyUnit: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn; Tv2Note: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
CDS_Main_Del: TClientDataSet; CDS_Main_Del: TClientDataSet;
DS_2: TDataSource; DS_2: TDataSource;
ADOQueryMain_Del: TADOQuery; ADOQueryMain_Del: TADOQuery;
Tv1FromPurNo: TcxGridDBColumn;
Tv1FromConNo: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
Tv1dbWeight: TcxGridDBColumn;
Tv1dbNumber: TcxGridDBColumn;
Tv1singleWeight: TcxGridDBColumn;
Tv2CFromPurNo: TcxGridDBColumn;
Tv2FromConNo: TcxGridDBColumn;
Tv2Denier: TcxGridDBColumn;
Tv2ZS: TcxGridDBColumn;
Tv2dbWeight: TcxGridDBColumn;
Tv2dbNumber: TcxGridDBColumn;
Tv2singleWeight: TcxGridDBColumn;
Label2: TLabel;
Label7: TLabel;
FromPurNo: TcxTextEdit;
FromConNo: TcxTextEdit;
N3: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -151,10 +150,11 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure BYIOIDPropertiesChange(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure BYIOIDKeyPress(Sender: TObject; var Key: Char);
procedure N3Click(Sender: TObject);
private private
canshu1, FStkName, canshu3: string; canshu1, FStkName, canshu3: string;
procedure InitGrid(); procedure InitGrid();
@ -454,11 +454,17 @@ begin
end; end;
procedure TfrmYarnInList.BYIOIDPropertiesChange(Sender: TObject); procedure TfrmYarnInList.BYIOIDKeyPress(Sender: TObject; var Key: Char);
begin begin
TBFind.Click; if key = #13 then
begin
TBFind.Click;
end;
end; end;
procedure TfrmYarnInList.ConNoMChange(Sender: TObject); procedure TfrmYarnInList.ConNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
@ -519,6 +525,11 @@ begin
SelOKNo(CDS_Main, False); SelOKNo(CDS_Main, False);
end; end;
procedure TfrmYarnInList.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmYarnInList.TBDelClick(Sender: TObject); procedure TfrmYarnInList.TBDelClick(Sender: TObject);
var var
MBYIOID: string; MBYIOID: string;

57
B02基础纱线仓库/U_YarnInfoInPut.dfm
View File

@ -77,6 +77,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 24
object Label7: TLabel object Label7: TLabel
Left = 10 Left = 10
Top = 204 Top = 204
@ -184,9 +185,22 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object Label16: TLabel object Label16: TLabel
Left = 796 Left = 796
Top = 34 Top = 34
Width = 240 Width = 284
Height = 21 Height = 21
Caption = #27880#65306#21697#21517'='#25104#20998'+'#25903#25968'+'#39068#33394'+'#32442#27861 Caption = #27880#65306#21697#21517'='#27604#20363'+'#20195#21495'+'#25903#25968'+'#39068#33394'+'#32442#27861
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 796
Top = 72
Width = 216
Height = 21
Caption = #27880#65306#25104#20998'='#21407#26009#20195#21495'+'#21407#26009#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -16 Font.Height = -16
@ -334,7 +348,6 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnChange = Y_CompositionPropertiesChange
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -16 Style.Font.Height = -16
@ -441,6 +454,20 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column1: TcxGridDBColumn
Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'CHNName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
end
object Tv1VieName: TcxGridDBColumn
Caption = #36234#21335#21517#31216
DataBinding.FieldName = 'VieName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 97
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -448,13 +475,13 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 910 Left = 926
Top = 90 Top = 146
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 861 Left = 869
Top = 91 Top = 163
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 1192 Left = 1192
@ -469,27 +496,27 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Parameters = <> Parameters = <>
Left = 816 Left = 808
Top = 88 Top = 136
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 1040 Left = 1056
Top = 72 Top = 144
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 1096 Left = 1112
Top = 72 Top = 120
end end
object ADOConnection1: TADOConnection object ADOConnection1: TADOConnection
LoginPrompt = False LoginPrompt = False
Left = 968 Left = 992
Top = 80 Top = 128
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>

65
B02基础纱线仓库/U_YarnInfoInPut.pas
View File

@ -57,6 +57,9 @@ type
Tv1serialno: TcxGridDBColumn; Tv1serialno: TcxGridDBColumn;
Tv1CFID: TcxGridDBColumn; Tv1CFID: TcxGridDBColumn;
Tv1BYIID: TcxGridDBColumn; Tv1BYIID: TcxGridDBColumn;
Tv1VieName: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -74,14 +77,14 @@ type
procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Y_ColorDblClick(Sender: TObject); procedure Y_ColorDblClick(Sender: TObject);
procedure CJPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure CJPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Y_CompositionPropertiesChange(Sender: TObject);
procedure ZSPropertiesChange(Sender: TObject);
procedure Y_ColorPropertiesChange(Sender: TObject);
procedure FFPropertiesChange(Sender: TObject);
procedure CJPropertiesChange(Sender: TObject); procedure CJPropertiesChange(Sender: TObject);
procedure TbAddClick(Sender: TObject); procedure TbAddClick(Sender: TObject);
procedure TbDelClick(Sender: TObject); procedure TbDelClick(Sender: TObject);
procedure TextEdit(Sender: TObject); procedure TextEdit(Sender: TObject);
procedure FFPropertiesChange(Sender: TObject);
procedure Y_ColorPropertiesChange(Sender: TObject);
procedure ZSPropertiesChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
@ -142,8 +145,9 @@ begin
ZS.text := floattostr(roundfloat(5315.5 / strtofloatdef(Denier.text, 0), 0)); ZS.text := floattostr(roundfloat(5315.5 / strtofloatdef(Denier.text, 0), 0));
end; end;
procedure TfrmYarnInfoInPut.FFPropertiesChange(Sender: TObject); //·Ä·¨ procedure TfrmYarnInfoInPut.FFPropertiesChange(Sender: TObject);
begin begin
UpdateYarnName; UpdateYarnName;
end; end;
@ -316,6 +320,8 @@ begin
Append; Append;
FieldByName('DH').Value := frmYarnCFInfoSel.CDS_1.fieldbyname('DH').value; FieldByName('DH').Value := frmYarnCFInfoSel.CDS_1.fieldbyname('DH').value;
FieldByName('CF').Value := frmYarnCFInfoSel.CDS_1.fieldbyname('CF').value; FieldByName('CF').Value := frmYarnCFInfoSel.CDS_1.fieldbyname('CF').value;
FieldByName('CHNName').Value := frmYarnCFInfoSel.CDS_1.fieldbyname('CHNName').value;
FieldByName('VieName').Value := frmYarnCFInfoSel.CDS_1.fieldbyname('VieName').value;
FieldByName('serialno').Value := Self.CDS_1.RecordCount + 1; FieldByName('serialno').Value := Self.CDS_1.RecordCount + 1;
Post; Post;
end; end;
@ -411,6 +417,7 @@ begin
// //
// fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''Y_Color'' and MainType=''É´Ïßµµ°¸'' '; // fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''Y_Color'' and MainType=''É´Ïßµµ°¸'' ';
// SInitTcxComBoxBySql(ADOQueryTemp, Y_Color, false, fsj); // SInitTcxComBoxBySql(ADOQueryTemp, Y_Color, false, fsj);
initCFGrid();
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -422,7 +429,7 @@ begin
end; end;
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
initCFGrid(); // initCFGrid();
if FBYIID = '' then if FBYIID = '' then
begin begin
@ -437,16 +444,10 @@ begin
TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end; end;
procedure TfrmYarnInfoInPut.Y_ColorPropertiesChange(Sender: TObject); //ÑÕÉ« procedure TfrmYarnInfoInPut.Y_ColorPropertiesChange(Sender: TObject);
begin begin
UpdateYarnName; UpdateYarnName;
end;
procedure TfrmYarnInfoInPut.Y_CompositionPropertiesChange(Sender: TObject); //³É·Ö
begin
UpdateYarnName;
end; end;
procedure TfrmYarnInfoInPut.ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmYarnInfoInPut.ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -497,6 +498,11 @@ begin
Exit; Exit;
end; end;
end; end;
if CDS_1.IsEmpty then
begin
Application.MessageBox('ÇëÊäÈëÉ´ÏßÔ­ÁÏ!', 'Ìáʾ', 0);
Exit;
end;
if not CheckBL() then if not CheckBL() then
begin begin
@ -534,6 +540,7 @@ begin
// Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%'; // Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
Tv1.Controller.FocusedColumn.EditValue := s + '%'; Tv1.Controller.FocusedColumn.EditValue := s + '%';
Y_Composition.Text := ''; Y_Composition.Text := '';
Y_Name.Text := '';
CDS_1.First; CDS_1.First;
while not CDS_1.Eof do while not CDS_1.Eof do
begin begin
@ -546,9 +553,17 @@ begin
Y_Composition.Text := Y_Composition.Text + ' ' + CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('CF').AsString; Y_Composition.Text := Y_Composition.Text + ' ' + CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('CF').AsString;
end; end;
if Y_Name.Text = '' then
begin
Y_Name.Text := CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('DH').AsString;
end
else
begin
Y_Name.Text := Y_Name.Text + ' ' + CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('DH').AsString;
end;
CDS_1.Next; CDS_1.Next;
end; end;
Y_Name.Text := Trim(Y_Name.Text) + Trim(ZS.Text) + 'S' + Trim(Y_Color.Text) + Trim(FF.Text);
except except
on E: EConvertError do on E: EConvertError do
begin begin
@ -633,17 +648,35 @@ end;
procedure TfrmYarnInfoInPut.ZSPropertiesChange(Sender: TObject); procedure TfrmYarnInfoInPut.ZSPropertiesChange(Sender: TObject);
begin begin
UpdateYarnName; UpdateYarnName;
end; end;
procedure TfrmYarnInfoInPut.ZSPropertiesEditValueChanged(Sender: TObject); procedure TfrmYarnInfoInPut.ZSPropertiesEditValueChanged(Sender: TObject);
begin begin
Denier.text := floattostr(roundfloat(5315.5 / strtofloatdef(ZS.text, 0), 0)); Denier.text := floattostr(roundfloat(5315.5 / strtofloatdef(ZS.text, 0), 0));
end; end;
procedure TfrmYarnInfoInPut.UpdateYarnName; procedure TfrmYarnInfoInPut.UpdateYarnName;
begin begin
Y_Name.Text := Trim(Y_Composition.Text) + Trim(ZS.Text) + 'S' + Trim(Y_Color.Text) + Trim(FF.Text); // + Trim(CJ.Text)
Y_Name.Text := '';
CDS_1.First;
while not CDS_1.Eof do
begin
if Y_Name.Text = '' then
begin
Y_Name.Text := CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('DH').AsString;
end
else
begin
Y_Name.Text := Y_Name.Text + ' ' + CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('DH').AsString;
end;
CDS_1.Next;
end;
Y_Name.Text := Trim(Y_Name.Text) + Trim(ZS.Text) + 'S' + Trim(Y_Color.Text) + Trim(FF.Text);
end; end;
end. end.

1
B02基础纱线仓库/U_YarnInfoList.dfm
View File

@ -214,7 +214,6 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Height = 483 Height = 483
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 71
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

240
B02基础纱线仓库/U_YarnOutEdit.dfm
View File

@ -2,15 +2,16 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Left = 65 Left = 65
Top = 113 Top = 113
Caption = #20986#24211#30331#35760 Caption = #20986#24211#30331#35760
ClientHeight = 447 ClientHeight = 572
ClientWidth = 1406 ClientWidth = 1406
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -247
ExplicitWidth = 1422 ExplicitWidth = 1422
ExplicitHeight = 486 ExplicitHeight = 611
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -74,10 +75,10 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1406 Width = 1406
Height = 417 Height = 542
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 8 ExplicitLeft = -8
ExplicitTop = 22 ExplicitTop = 22
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
@ -94,7 +95,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
end end
item item
Kind = skSum Kind = skSum
Column = v2Column6 Column = Tv1Qty
end end
item item
Kind = skSum Kind = skSum
@ -109,7 +110,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object v1Column6: TcxGridDBColumn object Tv1BYIOID: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BYIOID' DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -117,7 +118,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False Options.Editing = False
Width = 91 Width = 91
end end
object v1Column2: TcxGridDBColumn object Tv1IOTime: TcxGridDBColumn
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -127,7 +128,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 104 Width = 104
end end
object v1CRType: TcxGridDBColumn object Tv1IOType: TcxGridDBColumn
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -164,7 +165,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
VisibleForCustomization = False VisibleForCustomization = False
Width = 99 Width = 99
end end
object Tv1Column2: TcxGridDBColumn object Tv1ToCoName: TcxGridDBColumn
Caption = #20986#21040#21333#20301 Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -177,119 +178,9 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 92 Width = 94
end end
object Tv1Column3: TcxGridDBColumn object Tv1ToOrdNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column9: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column5: TcxGridDBColumn
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column8: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object v2Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column13: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column10: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v1Column8: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Column6: TcxGridDBColumn
Caption = #29702#35770'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Column14: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1Column10: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 105
end
object Tv1Column7: TcxGridDBColumn
Caption = #20986#21040#32455#36896#21333 Caption = #20986#21040#32455#36896#21333
DataBinding.FieldName = 'ToOrdNo' DataBinding.FieldName = 'ToOrdNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -304,7 +195,79 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 120 Width = 120
end end
object Tv1Column11: TcxGridDBColumn object Tv1ToConNo: TcxGridDBColumn
Caption = #20986#21040#21512#21516#21495
DataBinding.FieldName = 'ToConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 111
end
object Tv1Y_Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 102
end
object Tv1Y_name: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 115
end
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -312,15 +275,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column12: TcxGridDBColumn object Tv1BatchNo: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column7: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -328,14 +283,14 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
end end
object Tv1Column1: TcxGridDBColumn object Tv1Piece: TcxGridDBColumn
Caption = #31665'/'#20214 Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 62 Width = 62
end end
object v2Column6: TcxGridDBColumn object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -343,7 +298,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
end end
object v1Column3: TcxGridDBColumn object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -351,13 +306,28 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column12: TcxGridDBColumn object Tv1Note: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 101 Width = 101
end end
object Tv1FromPurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1FromCoName: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

220
B02基础纱线仓库/U_YarnOutEdit.pas
View File

@ -29,34 +29,31 @@ type
cxGridPopupMenu2: TcxGridPopupMenu; cxGridPopupMenu2: TcxGridPopupMenu;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn; Tv1BYIOID: TcxGridDBColumn;
v1Column2: TcxGridDBColumn; Tv1IOTime: TcxGridDBColumn;
v1CRType: TcxGridDBColumn; Tv1IOType: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; Tv1Y_name: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; Tv1Qty: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; Tv1BatchNo: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column2: TcxGridDBColumn; Tv1ToCoName: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Piece: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Y_Composition: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Y_Color: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Y_Code: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1FromCoName: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1FF: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1ToOrdNo: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1ToConNo: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1SXCBH: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1SXCPM: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Denier: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1ZS: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1FromPurNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -110,44 +107,46 @@ begin
begin begin
Append; Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('STKID').Value := frmYarnStkSel.CDS_Main.fieldbyname('BYIOID').Value;
FieldByName('IOType').Value := '车间领用'; FieldByName('IOType').Value := '车间领用';
FieldByName('FromCoNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromCoNo').Value; //来自单位
FieldByName('FromCoName').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('StkCoNo').Value; //存放单位
FieldByName('StkCoName').Value := frmYarnStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('ToCoNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('StkCoNo').Value; //出到单位
FieldByName('ToCoName').Value := frmYarnStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
FieldByName('Y_Code').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Code').Value; FieldByName('Y_Code').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Code').Value;
FieldByName('SXCBH').Value := frmYarnStkSel.CDS_Main.fieldbyname('SXCBH').Value;
FieldByName('Y_Name').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Name').Value; FieldByName('Y_Name').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Name').Value;
FieldByName('SXCPM').Value := frmYarnStkSel.CDS_Main.fieldbyname('SXCPM').Value;
FieldByName('Y_Type').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Type').Value;
FieldByName('Brand').Value := frmYarnStkSel.CDS_Main.fieldbyname('Brand').Value;
FieldByName('Y_Spec').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Spec').Value;
FieldByName('Y_Composition').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Composition').Value; FieldByName('Y_Composition').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Composition').Value;
FieldByName('Denier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Denier').Value;
FieldByName('TestDenier').Value := frmYarnStkSel.CDS_Main.fieldbyname('TestDenier').Value;
FieldByName('Y_Color').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Color').Value; FieldByName('Y_Color').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Color').Value;
FieldByName('Y_ColorNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_ColorNo').Value; FieldByName('Denier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Denier').Value;
FieldByName('ZS').Value := frmYarnStkSel.CDS_Main.fieldbyname('ZS').Value;
FieldByName('FF').Value := frmYarnStkSel.CDS_Main.fieldbyname('FF').Value; FieldByName('ff').Value := frmYarnStkSel.CDS_Main.fieldbyname('ff').Value;
FieldByName('ND').Value := frmYarnStkSel.CDS_Main.fieldbyname('ND').Value;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value; FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('Piece').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKPiece').Value; FieldByName('Piece').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKPiece').Value;
FieldByName('Qty').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKQTY').Value; FieldByName('Qty').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKQTY').Value;
FieldByName('QtyUnit').Value := frmYarnStkSel.CDS_Main.fieldbyname('QtyUnit').Value; FieldByName('QtyUnit').Value := frmYarnStkSel.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('note').Value := frmYarnStkSel.CDS_Main.fieldbyname('note').Value;
FieldByName('FromPurNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromPurNo').Value; //采购单号
FieldByName('FromCoName').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromCoName').Value; //来自单位 ，供应商
FieldByName('ToCoNo').Value := '本厂仓库'; //出到单位
FieldByName('ToCoName').Value := '本厂仓库'; //出到单位
//存放单位
FieldByName('StkCoNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
FieldByName('StkCoName').Value := frmYarnStkSel.CDS_Main.fieldbyname('StkCoName').Value;
//来自单位 ，供应商
FieldByName('FromCoNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromCoNo').Value;
//入库织造单
FieldByName('FromOrdNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromOrdNo').value;
FieldByName('FromMainId').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromMainId').value;
FieldByName('FromSubId').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromSubId').value;
//入库坯布合同号
FieldByName('FromConNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromConNo').value;
FieldByName('fromConMId').Value := frmYarnStkSel.CDS_Main.fieldbyname('fromConMId').value;
FieldByName('fromConSId').Value := frmYarnStkSel.CDS_Main.fieldbyname('fromConSId').value;
//入库采购计划单号
// FieldByName('FromPurNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('PurNo').value;
FieldByName('FromPurMId').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromPurMId').value;
FieldByName('FromPurSId').Value := frmYarnStkSel.CDS_Main.fieldbyname('FromPurSId').value;
FieldByName('STKID').Value := frmYarnStkSel.CDS_Main.fieldbyname('BYIOID').Value;
end; end;
frmYarnStkSel.CDS_Main.Delete; frmYarnStkSel.CDS_Main.Delete;
@ -203,7 +202,8 @@ begin
if Trim(MBYIOID) = '' then if Trim(MBYIOID) = '' then
begin begin
Append; Append;
FieldByName('Filler').Value := Trim(DName) FieldByName('Filler').Value := Trim(DName);
FieldByName('FillId').Value := Trim(DName);
end end
else else
begin begin
@ -212,16 +212,39 @@ begin
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end; end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Yarn_IO', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Yarn_IO', 0);
//供应商
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
//入库织造单
FieldByName('FromOrdNo').Value := CDS_Sub.fieldbyname('FromOrdNo').value;
FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').value;
FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').value;
//入库坯布合同号
FieldByName('FromConNo').Value := CDS_Sub.fieldbyname('FromConNo').value;
FieldByName('fromConMId').Value := CDS_Sub.fieldbyname('fromConMId').value;
FieldByName('fromConSId').Value := CDS_Sub.fieldbyname('fromConSId').value;
//入库采购计划单号
// FieldByName('FromPurNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('PurNo').value;
FieldByName('FromPurMId').Value := CDS_Sub.fieldbyname('FromPurMId').value;
FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').value;
// 出库织造单号
FieldByName('ToMainId').Value := CDS_Sub.fieldbyname('ToMainId').value;
FieldByName('ToSubId').Value := CDS_Sub.fieldbyname('ToSubId').value;
// 出库坯布合同号
FieldByName('ToConMId').Value := CDS_Sub.fieldbyname('ToConMId').value;
FieldByName('ToConSId').Value := CDS_Sub.fieldbyname('ToConSId').value;
//出到单位
FieldByName('ToCoNo').Value := CDS_Sub.fieldbyname('ToCoNo').Value;
//存放单位
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
FieldByName('StkCoName').Value := CDS_Sub.fieldbyname('StkCoName').Value;
FieldByName('STKName').Value := FSTKName; FieldByName('STKName').Value := FSTKName;
FieldByName('BYIOID').Value := Trim(Maxno); FieldByName('BYIOID').Value := Trim(Maxno);
FieldByName('IOFlag').Value := '出库'; FieldByName('IOFlag').Value := '出库';
FieldByName('IOQtyFlag').Value := -1; FieldByName('IOQtyFlag').Value := -1;
FieldByName('STKID').Value := CDS_Sub.fieldbyname('STKID').Value; FieldByName('STKID').Value := CDS_Sub.fieldbyname('STKID').Value;
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
FieldByName('FromCoName').Value := CDS_Sub.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
FieldByName('ToCoNo').Value := CDS_Sub.fieldbyname('ToCoNo').Value;
FieldByName('Supplier').Value := CDS_Sub.fieldbyname('Supplier').Value;
Post; Post;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
@ -392,6 +415,19 @@ begin
Application.MessageBox('数量不能为空!', '提示', 0); Application.MessageBox('数量不能为空!', '提示', 0);
Exit; Exit;
end; end;
CDS_Sub.First;
while not CDS_Sub.Eof do
begin
// 同时判断两个条件
if (CDS_Sub.FieldByName('IOType').AsString = '车间领用') and (CDS_Sub.FieldByName('ToOrdNo').IsNull or (Trim(CDS_Sub.FieldByName('ToOrdNo').AsString) = '')) then
begin
Application.MessageBox('请选择车间领用 出到织造单!', '提示', 0);
Exit;
end;
CDS_Sub.Next;
end;
if SaveCKData() then if SaveCKData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
@ -420,6 +456,7 @@ begin
Edit; Edit;
FieldByName('ToCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); FieldByName('ToCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('ToCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); FieldByName('ToCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
post;
end; end;
end; end;
end; end;
@ -441,8 +478,17 @@ begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
FieldByName('ToOrdNo').Value := Trim(CDS_1.fieldbyname('OrderNo').AsString);
// FieldByName('ToCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); // 出库织造单
FieldByName('ToOrdNo').Value := CDS_1.fieldbyname('OrderNo').value;
FieldByName('ToMainId').Value := CDS_1.fieldbyname('MainId').value;
FieldByName('ToSubId').Value := CDS_1.fieldbyname('SubId').value;
// 出库坯布合同号
FieldByName('ToConNo').Value := CDS_1.fieldbyname('ConNo').value;
FieldByName('ToConMId').Value := CDS_1.fieldbyname('ConMId').value;
FieldByName('ToConSId').Value := CDS_1.fieldbyname('ConSId').value;
end; end;
end; end;
end; end;
@ -456,31 +502,31 @@ procedure TfrmYarnOutEdit.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Sh
var var
FFSPID: string; FFSPID: string;
begin begin
if CDS_Sub.IsEmpty then // if CDS_Sub.IsEmpty then
Exit; // Exit;
if Trim(CDS_Sub.fieldbyname('BYIOID').AsString) <> '' then // if Trim(CDS_Sub.fieldbyname('BYIOID').AsString) <> '' then
begin // begin
with ADOQueryTemp do // with ADOQueryTemp do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('BYIOID').AsString) + ''''); // sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('BYIOID').AsString) + '''');
Open; // Open;
end; // end;
FFSPID := Trim(ADOQueryTemp.fieldbyname('BYIOID').AsString); // FFSPID := Trim(ADOQueryTemp.fieldbyname('BYIOID').AsString);
if Trim(FFSPID) <> '' then // if Trim(FFSPID) <> '' then
begin // begin
v1CRType.Options.Editing := False; // v1CRType.Options.Editing := False;
end // end
else // else
begin // begin
v1CRType.Options.Editing := True; // v1CRType.Options.Editing := True;
end; // end;
end // end
else // else
begin // begin
v1CRType.Options.Editing := True; // v1CRType.Options.Editing := True;
end; // end;
end; end;
end. end.

330
B02基础纱线仓库/U_YarnOutList.dfm
View File

@ -26,7 +26,8 @@ inherited frmYarnOutList: TfrmYarnOutList
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
ExplicitTop = 3 ExplicitLeft = 8
ExplicitTop = -3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -112,7 +113,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitWidth = 304 ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 251 Left = 251
Top = 86 Top = 86
@ -203,9 +204,9 @@ inherited frmYarnOutList: TfrmYarnOutList
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = False
TabOrder = 3 TabOrder = 3
ExplicitLeft = 2 ExplicitLeft = 4
ExplicitTop = 2 ExplicitTop = 4
ExplicitWidth = 300 ExplicitWidth = 1487
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -271,7 +272,6 @@ inherited frmYarnOutList: TfrmYarnOutList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 149
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -293,7 +293,7 @@ inherited frmYarnOutList: TfrmYarnOutList
end end
item item
Kind = skSum Kind = skSum
Column = v2Column6 Column = Tv1Qty
end end
item item
Kind = skSum Kind = skSum
@ -320,7 +320,7 @@ inherited frmYarnOutList: TfrmYarnOutList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 88 Width = 88
end end
object v1Column6: TcxGridDBColumn object Tv1BYIOID: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BYIOID' DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -328,7 +328,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object v1Column2: TcxGridDBColumn object Tv1IOTime: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
@ -340,7 +340,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object v1Column4: TcxGridDBColumn object Tv1IOType: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
@ -381,48 +381,29 @@ inherited frmYarnOutList: TfrmYarnOutList
VisibleForCustomization = False VisibleForCustomization = False
Width = 88 Width = 88
end end
object Tv1Column1: TcxGridDBColumn object Tv1ToCoName: TcxGridDBColumn
Caption = #20986#21040#21333#20301 Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 89
end end
object v1Column14: TcxGridDBColumn object Tv1ToOrdNo: TcxGridDBColumn
Tag = 2 Caption = #20986#21040#32455#36896#21333#21495
Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'ToOrdNo'
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 = 88
end
object Tv1Column10: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 113
Width = 88
end end
object Tv1Column2: TcxGridDBColumn object Tv1ToConNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #20986#21040#22383#24067#21512#21516#21495
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'ToConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 143
Width = 88
end end
object Tv1Column8: TcxGridDBColumn object Tv1Y_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -430,7 +411,14 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object v2Column1: TcxGridDBColumn object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108
end
object Tv1Y_Name: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
@ -445,22 +433,147 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object Tv1Column11: TcxGridDBColumn object Tv1SXCPM: TcxGridDBColumn
Caption = #31867#22411 Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object v1Column16: TcxGridDBColumn object Tv1Y_Color: TcxGridDBColumn
Caption = #21697#29260 Caption = #39068#33394
DataBinding.FieldName = 'Brand' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 111
end
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1BatchNo: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Piece: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Qty: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1QtyUnit: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Note: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Filler: TcxGridDBColumn
Caption = #30331#35760#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Filltime: TcxGridDBColumn
Caption = #30331#35760#26102#38388
DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Editer: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'Editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Edittime: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'Edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FromPurNo: TcxGridDBColumn
Caption = #26469#33258#37319#36141#21333#21495
DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 106
end
object Tv1FromCoName: TcxGridDBColumn
Tag = 2
Caption = #20379#24212#21830
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 = 88
end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai' DataBinding.FieldName = 'SXPinPai'
@ -471,16 +584,6 @@ inherited frmYarnOutList: TfrmYarnOutList
VisibleForCustomization = False VisibleForCustomization = False
Width = 88 Width = 88
end end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
@ -491,117 +594,14 @@ inherited frmYarnOutList: TfrmYarnOutList
VisibleForCustomization = False VisibleForCustomization = False
Width = 88 Width = 88
end end
object Tv1Column3: TcxGridDBColumn object Tv1FromConNo: TcxGridDBColumn
Caption = #25104#20998 Caption = #26469#33258#22383#24067#21512#21516#21495
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 132
Width = 88
end end
object Tv1Column4: TcxGridDBColumn object Tv1StkID: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column5: TcxGridDBColumn
Caption = #29702#35770'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column15: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column7: TcxGridDBColumn
Caption = #20986#21040#30003#35831#21333#21495
DataBinding.IsNullValueType = True
Width = 115
end
object Tv1Column12: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column16: TcxGridDBColumn
Caption = #20986#21040#32455#36896#21333#21495
DataBinding.IsNullValueType = True
Width = 113
end
object Tv1Column13: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column6: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column17: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'StkID' DataBinding.FieldName = 'StkID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True

55
B02基础纱线仓库/U_YarnOutList.pas
View File

@ -38,16 +38,15 @@ type
TBEdit: TToolButton; TBEdit: TToolButton;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn; Tv1BYIOID: TcxGridDBColumn;
v1Column2: TcxGridDBColumn; Tv1IOTime: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; Tv1IOType: TcxGridDBColumn;
v1Column15: TcxGridDBColumn; v1Column15: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; Tv1FromCoName: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; Tv1Y_Name: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; Tv1Qty: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Label3: TLabel; Label3: TLabel;
Label5: TLabel; Label5: TLabel;
@ -59,37 +58,39 @@ type
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column7: TcxGridDBColumn; Tv1BatchNo: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1ToCoName: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Y_Composition: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Y_Color: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Piece: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Y_Code: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
IOType: TcxComboBox; IOType: TcxComboBox;
Tv1Column11: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
Y_Code: TcxTextEdit; Y_Code: TcxTextEdit;
Tv1Column12: TcxGridDBColumn; Tv1FF: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
WBCID: TcxTextEdit; WBCID: TcxTextEdit;
Tv1Column17: TcxGridDBColumn; Tv1StkID: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
StkID: TcxTextEdit; StkID: TcxTextEdit;
Label6: TLabel; Label6: TLabel;
Y_ColorNo: TcxTextEdit; Y_ColorNo: TcxTextEdit;
Tv1Column7: TcxGridDBColumn; Tv1ToOrdNo: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1ToConNo: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
Tv1Filler: TcxGridDBColumn;
Tv1Filltime: TcxGridDBColumn;
Tv1Editer: TcxGridDBColumn;
Tv1Edittime: TcxGridDBColumn;
Tv1FromPurNo: TcxGridDBColumn;
Tv1FromConNo: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

393
B02基础纱线仓库/U_YarnStkList.dfm
View File

@ -2,19 +2,19 @@ inherited frmYarnStkList: TfrmYarnStkList
Left = 105 Left = 105
Top = 131 Top = 131
Caption = #24211#23384#36873#25321#21015#34920 Caption = #24211#23384#36873#25321#21015#34920
ClientHeight = 472 ClientHeight = 554
ClientWidth = 1517 ClientWidth = 1529
Font.Height = -16 Font.Height = -16
Position = poDefault Position = poDefault
ExplicitWidth = 1533 ExplicitWidth = 1545
ExplicitHeight = 511 ExplicitHeight = 593
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1517 Width = 1529
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -32,6 +32,7 @@ inherited frmYarnStkList: TfrmYarnStkList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
ExplicitTop = -1
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -86,8 +87,8 @@ inherited frmYarnStkList: TfrmYarnStkList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1517 Width = 1529
Height = 44 Height = 111
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -95,103 +96,178 @@ inherited frmYarnStkList: TfrmYarnStkList
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
object Label3: TLabel object Label3: TLabel
Left = 236 Left = 717
Top = 11 Top = 24
Width = 32 Width = 40
Height = 21 Height = 21
AutoSize = False
Caption = #21697#21517 Caption = #21697#21517
end end
object Label4: TLabel object Label4: TLabel
Left = 14 Left = 257
Top = 11 Top = 62
Width = 64 Width = 70
Height = 21 Height = 21
Caption = #26469#33258#21333#20301 AutoSize = False
Caption = #20379#24212#21830
end end
object Label8: TLabel object Label8: TLabel
Left = 426 Left = 721
Top = 11 Top = 62
Width = 32 Width = 40
Height = 21 Height = 21
Caption = #35268#26684 AutoSize = False
Caption = #25104#20998
end end
object Label2: TLabel object Label12: TLabel
Left = 616 Left = 24
Top = 11 Top = 62
Width = 70
Height = 21
AutoSize = False
Caption = #20837#24211#31867#22411
end
object Label10: TLabel
Left = 918
Top = 62
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #25209#21495 Caption = #25209#21495
end end
object Label1: TLabel object Label6: TLabel
Left = 806 Left = 24
Top = 11 Top = 24
Width = 32 Width = 70
Height = 21 Height = 21
Caption = #32534#21495 AutoSize = False
Caption = #20837#24211#21333#21495
end end
object Label5: TLabel object Label5: TLabel
Left = 996 Left = 918
Top = 11 Top = 24
Width = 48 Width = 60
Height = 21 Height = 21
Caption = #28504#36890#21495 AutoSize = False
Caption = #39068#33394
end end
object Y_name: TcxTextEdit object Label1: TLabel
Left = 479
Top = 62
Width = 60
Height = 21
AutoSize = False
Caption = #32534#21495
end
object Label2: TLabel
Left = 257
Top = 24
Width = 64
Height = 21
Caption = #37319#36141#21333#21495
end
object Label7: TLabel
Left = 477
Top = 24
Width = 80
Height = 21
Caption = #22383#24067#21512#21516#21495
end
object Y_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 272 Left = 757
Top = 5 Top = 20
Properties.OnChange = FromCoNamePropertiesChange
TabOrder = 0 TabOrder = 0
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object FromCoName: TcxTextEdit object FromCoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 82 Left = 324
Top = 5 Top = 55
Properties.OnChange = FromCoNamePropertiesChange
TabOrder = 1 TabOrder = 1
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object Y_spec: TcxTextEdit object Y_Composition: TcxTextEdit
Tag = 2 Tag = 2
Left = 462 Left = 757
Top = 5 Top = 55
Properties.OnChange = FromCoNamePropertiesChange
TabOrder = 2 TabOrder = 2
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object BatchNo: TcxTextEdit object BatchNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 652 Left = 957
Top = 5 Top = 55
Properties.OnChange = FromCoNamePropertiesChange
TabOrder = 3 TabOrder = 3
OnKeyPress = BYIOIDKeyPress
Width = 150
end
object BYIOID: TcxTextEdit
Tag = 2
Left = 98
Top = 20
TabOrder = 4
OnKeyPress = BYIOIDKeyPress
Width = 150
end
object Y_Color: TcxTextEdit
Tag = 2
Left = 957
Top = 20
TabOrder = 5
OnKeyPress = BYIOIDKeyPress
Width = 150
end
object IOType: TcxComboBox
Tag = 2
Left = 96
Top = 55
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
''
#37319#36141#20837#24211
#20179#24211#36864#22238
#26399#21021#20837#24211)
Properties.OnChange = IOTypePropertiesChange
TabOrder = 6
Width = 150 Width = 150
end end
object Y_Code: TcxTextEdit object Y_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 842 Left = 561
Top = 5 Top = 55
Properties.OnChange = FromCoNamePropertiesChange TabOrder = 7
TabOrder = 4 OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
object Y_ColorNo: TcxTextEdit object FromPurNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 1048 Left = 324
Top = 5 Top = 20
Properties.OnChange = FromCoNamePropertiesChange TabOrder = 8
TabOrder = 5 OnKeyPress = BYIOIDKeyPress
Width = 150
end
object FromConNo: TcxTextEdit
Tag = 2
Left = 561
Top = 20
TabOrder = 9
OnKeyPress = BYIOIDKeyPress
Width = 150 Width = 150
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 74 Top = 141
Width = 1517 Width = 1529
Height = 398 Height = 413
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 80
ExplicitHeight = 480
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -210,7 +286,7 @@ inherited frmYarnStkList: TfrmYarnStkList
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn12 Column = Tv1stkqty
end end
item item
Kind = skSum Kind = skSum
@ -237,7 +313,7 @@ inherited frmYarnStkList: TfrmYarnStkList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 53 Width = 53
end end
object cxGridDBColumn2: TcxGridDBColumn object Tv1BYIOID: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID' DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -245,7 +321,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
end end
object v1Column2: TcxGridDBColumn object Tv1ioTime: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime' DataBinding.FieldName = 'ioTime'
@ -257,7 +333,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 93 Width = 93
end end
object v1Column4: TcxGridDBColumn object Tv1IOType: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
@ -272,9 +348,9 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
end end
object cxGridDBColumn3: TcxGridDBColumn object Tv1FromCoName: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #20379#24212#21830
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
@ -289,23 +365,23 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 116 Width = 116
end end
object Tv1Column10: TcxGridDBColumn object TV1FromPurNo: TcxGridDBColumn
Caption = #20379#24212#21830 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'Supplier' DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 80
end end
object cxGridDBColumn4: TcxGridDBColumn object TV1FromConNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 91 Width = 110
end end
object TV1Column2: TcxGridDBColumn object TV1Y_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -313,7 +389,15 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 88 Width = 88
end end
object cxGridDBColumn5: TcxGridDBColumn object TV1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object Tv1Y_Name: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
@ -328,32 +412,15 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
end end
object TV1Column1: TcxGridDBColumn object TV1SXCPM: TcxGridDBColumn
Caption = #31867#22411 Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 104
end end
object v1Column20: TcxGridDBColumn object Tv1Y_Composition: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object cxGridDBColumn6: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -361,7 +428,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn8: TcxGridDBColumn object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -369,31 +436,23 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn9: TcxGridDBColumn object TV1Denier: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 138
end
object TV1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column11: TcxGridDBColumn object TV1FF: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object TV1Column3: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object TV1Column4: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -401,15 +460,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object TV1Column5: TcxGridDBColumn object Tv1BatchNo: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -418,7 +469,7 @@ inherited frmYarnStkList: TfrmYarnStkList
VisibleForCustomization = False VisibleForCustomization = False
Width = 89 Width = 89
end end
object cxGridDBColumn11: TcxGridDBColumn object Tv1StkPiece: TcxGridDBColumn
Caption = #31665'/'#20214 Caption = #31665'/'#20214
DataBinding.FieldName = 'StkPiece' DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -426,7 +477,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
end end
object cxGridDBColumn12: TcxGridDBColumn object Tv1stkqty: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'stkqty' DataBinding.FieldName = 'stkqty'
@ -436,7 +487,7 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
end end
object cxGridDBColumn13: TcxGridDBColumn object Tv1QtyUnit: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
@ -450,7 +501,31 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column12: TcxGridDBColumn object TV1dbWeight: TcxGridDBColumn
Caption = #21333#21253#37325#37327
DataBinding.FieldName = 'dbWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV1dbNumber: TcxGridDBColumn
Caption = #21333#21253#20010#25968
DataBinding.FieldName = 'dbNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV1singleWeight: TcxGridDBColumn
Caption = #21333#20010#31570#37325
DataBinding.FieldName = 'singleWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Note: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -459,6 +534,54 @@ inherited frmYarnStkList: TfrmYarnStkList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object TV1FJFlag: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV1ISCJ: TcxGridDBColumn
Caption = #26159#21542#25277#26816
DataBinding.FieldName = 'ISCJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object TV1Filler: TcxGridDBColumn
Caption = #30331#35760#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV1FillTime: TcxGridDBColumn
Caption = #30331#35760#26102#38388
DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object TV1Editer: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'Editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object TV1EditTime: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'EditTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = TV1 GridView = TV1
@ -474,28 +597,28 @@ inherited frmYarnStkList: TfrmYarnStkList
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
Left = 209 Left = 201
Top = 129 Top = 177
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
ConnectionString = 'BS_Cloth_IO' ConnectionString = 'BS_Cloth_IO'
Parameters = <> Parameters = <>
Left = 640 Left = 648
Top = 136 Top = 192
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 728 Left = 760
Top = 136 Top = 192
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
ConnectionString = 'BS_Cloth_IO' ConnectionString = 'BS_Cloth_IO'
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 512 Left = 488
Top = 136 Top = 184
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = CDS_Main DataSet = CDS_Main

108
B02基础纱线仓库/U_YarnStkList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar; dxSkinsDefaultPainters, cxProgressBar, cxMaskEdit;
type type
TfrmYarnStkList = class(TfrmBaseList) TfrmYarnStkList = class(TfrmBaseList)
@ -31,47 +31,61 @@ type
CDS_HZ: TClientDataSet; CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label2: TLabel;
Y_name: TcxTextEdit;
FromCoName: TcxTextEdit;
Y_spec: TcxTextEdit;
BatchNo: TcxTextEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
TV1: TcxGridDBTableView; TV1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; Tv1BYIOID: TcxGridDBColumn;
v1Column2: TcxGridDBColumn; Tv1ioTime: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; Tv1IOType: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn; Tv1FromCoName: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn; Tv1Y_Name: TcxGridDBColumn;
v1Column20: TcxGridDBColumn; Tv1Y_Composition: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; Tv1Y_Color: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn; Tv1BatchNo: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn; Tv1StkPiece: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn; Tv1stkqty: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
TV1Column1: TcxGridDBColumn; TV1Y_Code: TcxGridDBColumn;
Y_Code: TcxTextEdit; TV1FF: TcxGridDBColumn;
Label1: TLabel;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
Label5: TLabel;
Y_ColorNo: TcxTextEdit;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
ToolButton3: TToolButton; ToolButton3: TToolButton;
TV1FromPurNo: TcxGridDBColumn;
TV1FromConNo: TcxGridDBColumn;
TV1SXCBH: TcxGridDBColumn;
TV1SXCPM: TcxGridDBColumn;
TV1Denier: TcxGridDBColumn;
TV1ZS: TcxGridDBColumn;
TV1dbWeight: TcxGridDBColumn;
TV1dbNumber: TcxGridDBColumn;
TV1singleWeight: TcxGridDBColumn;
TV1ISCJ: TcxGridDBColumn;
TV1FJFlag: TcxGridDBColumn;
TV1Filler: TcxGridDBColumn;
TV1FillTime: TcxGridDBColumn;
TV1Editer: TcxGridDBColumn;
TV1EditTime: TcxGridDBColumn;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label12: TLabel;
Label10: TLabel;
Label6: TLabel;
Label5: TLabel;
Label1: TLabel;
Label2: TLabel;
Label7: TLabel;
Y_Name: TcxTextEdit;
FromCoName: TcxTextEdit;
Y_Composition: TcxTextEdit;
BatchNo: TcxTextEdit;
BYIOID: TcxTextEdit;
Y_Color: TcxTextEdit;
IOType: TcxComboBox;
Y_Code: TcxTextEdit;
FromPurNo: TcxTextEdit;
FromConNo: TcxTextEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -88,6 +102,8 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure FromCoNamePropertiesChange(Sender: TObject); procedure FromCoNamePropertiesChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure BYIOIDKeyPress(Sender: TObject; var Key: Char);
procedure IOTypePropertiesChange(Sender: TObject);
private private
canshu1, FStkName, canshu3: string; canshu1, FStkName, canshu3: string;
procedure InitGrid(); procedure InitGrid();
@ -138,11 +154,16 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(',Case when ISnull(CJDate,'''') <> '''' ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as ISCJ');
sql.Add(',Case when isnull((select count(*) from FJ_File where WBID=A.BYIOID and TFType=''É´Ïß'' ),0)>0 ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as FJFlag');
sql.Add(' from BS_Yarn_IO A '); sql.Add(' from BS_Yarn_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and isnull(StkQty,0)>0 '); SQL.Add(' where A.IOFlag=''Èë¿â'' and isnull(StkQty,0)>0 ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main); SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main); SInitCDSData(ADOQueryMain, CDS_Main);
finally finally
@ -150,11 +171,26 @@ begin
end; end;
end; end;
procedure TfrmYarnStkList.IOTypePropertiesChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkList.TBRafreshClick(Sender: TObject); procedure TfrmYarnStkList.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
end; end;
procedure TfrmYarnStkList.BYIOIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmYarnStkList.ConNoMChange(Sender: TObject); procedure TfrmYarnStkList.ConNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then

391
B02基础纱线仓库/U_YarnStkSel.dfm
View File

@ -2,23 +2,24 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Left = 105 Left = 105
Top = 131 Top = 131
Caption = #32433#32447#24211#23384#36873#25321#21015#34920 Caption = #32433#32447#24211#23384#36873#25321#21015#34920
ClientHeight = 488 ClientHeight = 554
ClientWidth = 1562 ClientWidth = 1540
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1578 ExplicitLeft = -381
ExplicitHeight = 527 ExplicitWidth = 1556
ExplicitHeight = 593
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1562 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -75,120 +76,181 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1562 Width = 1540
Height = 44 Height = 101
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label3: TLabel object Label3: TLabel
Left = 257 Left = 717
Top = 10 Top = 24
Width = 32 Width = 40
Height = 21 Height = 21
AutoSize = False
Caption = #21697#21517 Caption = #21697#21517
end end
object Label4: TLabel object Label4: TLabel
Left = 35 Left = 257
Top = 10 Top = 62
Width = 64 Width = 70
Height = 21 Height = 21
Caption = #26469#33258#21333#20301 AutoSize = False
Caption = #20379#24212#21830
end end
object Label8: TLabel object Label8: TLabel
Left = 447 Left = 721
Top = 10 Top = 62
Width = 40
Height = 21
AutoSize = False
Caption = #25104#20998
end
object Label12: TLabel
Left = 24
Top = 62
Width = 70
Height = 21
AutoSize = False
Caption = #20837#24211#31867#22411
end
object Label10: TLabel
Left = 918
Top = 62
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #35268#26684 Caption = #25209#21495
end end
object Label2: TLabel object Label6: TLabel
Left = 637 Left = 24
Top = 10 Top = 24
Width = 42 Width = 70
Height = 21 Height = 21
Caption = #25209' '#21495 AutoSize = False
end Caption = #20837#24211#21333#21495
object Label1: TLabel
Left = 837
Top = 10
Width = 32
Height = 21
Caption = #32534#21495
end end
object Label5: TLabel object Label5: TLabel
Left = 1027 Left = 918
Top = 10 Top = 24
Width = 48 Width = 60
Height = 21 Height = 21
Caption = #28504#36890#21495 AutoSize = False
Caption = #39068#33394
end end
object Y_Name: TEdit object Label1: TLabel
Left = 480
Top = 62
Width = 60
Height = 21
AutoSize = False
Caption = #32534#21495
end
object Label2: TLabel
Left = 257
Top = 24
Width = 64
Height = 21
Caption = #37319#36141#21333#21495
end
object Label7: TLabel
Left = 477
Top = 24
Width = 80
Height = 21
Caption = #22383#24067#21512#21516#21495
end
object Y_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 293 Left = 757
Top = 6 Top = 20
Width = 150
Height = 29
TabOrder = 0 TabOrder = 0
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 103
Top = 6
Width = 150 Width = 150
Height = 29 end
object FromCoName: TcxTextEdit
Tag = 2
Left = 324
Top = 55
TabOrder = 1 TabOrder = 1
OnChange = FromCoNameChange
end
object Y_Spec: TEdit
Tag = 2
Left = 483
Top = 6
Width = 150 Width = 150
Height = 29 end
object Y_Composition: TcxTextEdit
Tag = 2
Left = 757
Top = 55
TabOrder = 2 TabOrder = 2
OnChange = TBFindClick
end
object BatchNo: TEdit
Tag = 2
Left = 683
Top = 6
Width = 150 Width = 150
Height = 29 end
object BatchNo: TcxTextEdit
Tag = 2
Left = 957
Top = 55
TabOrder = 3 TabOrder = 3
OnChange = FromCoNameChange
end
object Y_Code: TEdit
Tag = 2
Left = 873
Top = 6
Width = 150 Width = 150
Height = 29 end
object BYIOID: TcxTextEdit
Tag = 2
Left = 98
Top = 20
TabOrder = 4 TabOrder = 4
OnChange = FromCoNameChange OnKeyPress = BYIOIDKeyPress
end
object Y_ColorNo: TEdit
Tag = 2
Left = 1081
Top = 4
Width = 150 Width = 150
Height = 29 end
object Y_Color: TcxTextEdit
Tag = 2
Left = 957
Top = 20
TabOrder = 5 TabOrder = 5
OnChange = FromCoNameChange Width = 150
end
object IOType: TcxComboBox
Tag = 2
Left = 96
Top = 55
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
''
#37319#36141#20837#24211
#20179#24211#36864#22238
#26399#21021#20837#24211)
Properties.OnChange = IOTypePropertiesChange
TabOrder = 6
Width = 150
end
object Y_Code: TcxTextEdit
Tag = 2
Left = 561
Top = 55
TabOrder = 7
Width = 150
end
object FromPurNo: TcxTextEdit
Tag = 2
Left = 324
Top = 20
TabOrder = 8
Width = 150
end
object FromConNo: TcxTextEdit
Tag = 2
Left = 561
Top = 20
TabOrder = 9
Width = 150
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 74 Top = 131
Width = 1562 Width = 1540
Height = 414 Height = 423
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 71 ExplicitTop = 137
ExplicitHeight = 357
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -224,7 +286,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
end end
item item
Kind = skSum Kind = skSum
Column = v2Column6 Column = Tv1stkqty
end end
item item
Kind = skSum Kind = skSum
@ -255,7 +317,14 @@ inherited frmYarnStkSel: TfrmYarnStkSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 42 Width = 42
end end
object v1Column6: TcxGridDBColumn object Tv1BYIOID: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv1IOTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -263,40 +332,36 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 87 Width = 87
end end
object v1Column14: TcxGridDBColumn object Tv1IOType: TcxGridDBColumn
Tag = 2 Caption = #20837#24211#31867#22411
Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'IOType'
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 92
Width = 108
end end
object Tv1Column12: TcxGridDBColumn object Tv1FromCoName: TcxGridDBColumn
Caption = #20379#24212#21830 Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column3: TcxGridDBColumn object Tv1FromPurNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 100
Width = 88
end end
object Tv1Column2: TcxGridDBColumn object Tv1FromConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Y_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -304,7 +369,14 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 75 Width = 75
end end
object v2Column1: TcxGridDBColumn object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 115
end
object Tv1Y_Name: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'Y_Name' DataBinding.FieldName = 'Y_Name'
@ -319,41 +391,22 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
end end
object Tv1Column13: TcxGridDBColumn object Tv1SXCPM: TcxGridDBColumn
Caption = #31867#22411 Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'Y_Type' DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 107
Width = 80
end end
object v1Column4: TcxGridDBColumn object Tv1Y_Composition: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 87
end end
object Tv1Column5: TcxGridDBColumn object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -361,30 +414,21 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 86 Width = 86
end end
object Tv1Column6: TcxGridDBColumn object Tv1Denier: TcxGridDBColumn
Caption = #29702#35770'D'#25968 Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 110
Width = 92
end end
object Tv1Column14: TcxGridDBColumn object Tv1ZS: TcxGridDBColumn
Caption = #23454#27979'D'#25968 Caption = #25903#25968
DataBinding.FieldName = 'TestDenier' DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 78
Width = 80
end end
object Tv1Column9: TcxGridDBColumn object Tv1FF: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column10: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -392,29 +436,22 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column11: TcxGridDBColumn object Tv1BatchNo: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 124 Width = 92
end end
object Tv1Column1: TcxGridDBColumn object Tv1StkPiece: TcxGridDBColumn
Caption = #31665'/'#20214 Caption = #31665'/'#20214
DataBinding.FieldName = 'StkPiece' DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 84
end end
object v2Column6: TcxGridDBColumn object Tv1stkqty: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty' DataBinding.FieldName = 'stkqty'
@ -424,7 +461,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 87 Width = 87
end end
object v1Column3: TcxGridDBColumn object Tv1QtyUnit: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
@ -439,13 +476,45 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
end end
object Tv1Column8: TcxGridDBColumn object Tv1dbWeight: TcxGridDBColumn
Caption = #21333#21253#37325#37327
DataBinding.FieldName = 'dbWeight'
DataBinding.IsNullValueType = True
Width = 81
end
object Tv1dbNumber: TcxGridDBColumn
Caption = #21333#21253#20010#25968
DataBinding.FieldName = 'dbNumber'
DataBinding.IsNullValueType = True
Width = 88
end
object Tv1singleWeight: TcxGridDBColumn
Caption = #21333#20010#31570#37325
DataBinding.FieldName = 'singleWeight'
DataBinding.IsNullValueType = True
Width = 80
end
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 80
end
object Tv1FJFlag: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1ISCJ: TcxGridDBColumn
Caption = #26159#21542#25277#26816
DataBinding.FieldName = 'ISCJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel

96
B02基础纱线仓库/U_YarnStkSel.pas
View File

@ -13,7 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList, dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters; dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters,
cxMaskEdit;
type type
TfrmYarnStkSel = class(TfrmBaseHelp) TfrmYarnStkSel = class(TfrmBaseHelp)
@ -36,41 +37,53 @@ type
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; Tv1Y_Name: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; Tv1BatchNo: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; Tv1stkqty: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Tv1IOTime: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1StkPiece: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
Tv1Y_Code: TcxGridDBColumn;
Tv1FF: TcxGridDBColumn;
Tv1FromCoName: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
Label8: TLabel; Label8: TLabel;
Label2: TLabel; Label12: TLabel;
Y_Name: TEdit; Label10: TLabel;
FromCoName: TEdit; Label6: TLabel;
Y_Spec: TEdit;
BatchNo: TEdit;
v1Column6: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Y_Code: TEdit;
Label1: TLabel;
Tv1Column9: TcxGridDBColumn;
Label5: TLabel; Label5: TLabel;
Y_ColorNo: TEdit; Label1: TLabel;
Tv1Column10: TcxGridDBColumn; Label2: TLabel;
Tv1Column11: TcxGridDBColumn; Label7: TLabel;
Tv1Column12: TcxGridDBColumn; Y_Name: TcxTextEdit;
Tv1Column13: TcxGridDBColumn; FromCoName: TcxTextEdit;
Tv1Column14: TcxGridDBColumn; Y_Composition: TcxTextEdit;
BatchNo: TcxTextEdit;
BYIOID: TcxTextEdit;
Y_Color: TcxTextEdit;
IOType: TcxComboBox;
Y_Code: TcxTextEdit;
FromPurNo: TcxTextEdit;
FromConNo: TcxTextEdit;
Tv1BYIOID: TcxGridDBColumn;
Tv1IOType: TcxGridDBColumn;
Tv1FromPurNo: TcxGridDBColumn;
Tv1FromConNo: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
Tv1dbWeight: TcxGridDBColumn;
Tv1dbNumber: TcxGridDBColumn;
Tv1singleWeight: TcxGridDBColumn;
Tv1FJFlag: TcxGridDBColumn;
Tv1ISCJ: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -86,6 +99,8 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure BYIOIDKeyPress(Sender: TObject; var Key: Char);
procedure IOTypePropertiesChange(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -126,12 +141,17 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(',Case when ISnull(CJDate,'''') <> '''' ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as ISCJ');
sql.Add(',Case when isnull((select count(*) from FJ_File where WBID=A.BYIOID and TFType=''É´Ïß'' ),0)>0 ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as FJFlag');
sql.Add(' from BS_Yarn_IO A where A.IOFlag=''Èë¿â'' and isnull(STkQty,0)>0 '); sql.Add(' from BS_Yarn_IO A where A.IOFlag=''Èë¿â'' and isnull(STkQty,0)>0 ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
if trim(FFY_Code) <> '' then if trim(FFY_Code) <> '' then
sql.Add(' and isnull(Y_Code,'''')=''' + Trim(FFY_Code) + ''''); sql.Add(' and isnull(Y_Code,'''')=''' + Trim(FFY_Code) + '''');
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main); SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main); SInitCDSData(ADOQueryMain, CDS_Main);
finally finally
@ -139,11 +159,25 @@ begin
end; end;
end; end;
procedure TfrmYarnStkSel.IOTypePropertiesChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkSel.TBRafreshClick(Sender: TObject); procedure TfrmYarnStkSel.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
end; end;
procedure TfrmYarnStkSel.BYIOIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmYarnStkSel.ConNoMChange(Sender: TObject); procedure TfrmYarnStkSel.ConNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then

148
B02基础纱线仓库/YarnStk.dproj.local
View File

@ -1,98 +1,98 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>2025/09/02 12:38:38.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas</Transaction> <Transaction>2025/09/02 12:38:38.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas</Transaction>
<Transaction>2025/09/02 12:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>2025/09/02 12:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction>
</Transactions> </Transactions>

BIN
B02基础纱线仓库/YarnStk.identcache
View File

Binary file not shown.

299
B04采购计划管理/U_YarnPurchasePlanList.dfm
View File

@ -209,15 +209,15 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column3 Column = Tv1YDHQty
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column4 Column = Tv1CGQty
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column6 Column = Tv1RKQty
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -245,6 +245,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Focusing = False Options.Focusing = False
Width = 86 Width = 86
end end
object Tv1SDlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1ConNo: TcxGridDBColumn object v1ConNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo' DataBinding.FieldName = 'PurNo'
@ -263,120 +270,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Focusing = False Options.Focusing = False
Width = 94 Width = 94
end end
object v1CustomerNoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 99
end
object v1Column9: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Mnote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object v1Column12: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'ISSC'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object v1Column13: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column1: TcxGridDBColumn
Caption = #37319#36141#31867#22411
DataBinding.FieldName = 'PurType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object Tv1Column4: TcxGridDBColumn
Caption = #19979#21333#25968#37327
DataBinding.FieldName = 'CGQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1Column3: TcxGridDBColumn
Caption = #24635#25910#36135#25968#37327
DataBinding.FieldName = 'YDHQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object Tv1Column6: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'RKQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'RKDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column9: TcxGridDBColumn
Caption = #24037#24207
DataBinding.FieldName = 'GXHZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column5: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'ShuiLv'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkName2HZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column8: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDateHZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1C_Degree: TcxGridDBColumn object Tv1C_Degree: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
DataBinding.FieldName = 'C_Degree' DataBinding.FieldName = 'C_Degree'
@ -398,13 +291,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Y_Spec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Composition: TcxGridDBColumn object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
@ -412,12 +298,12 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1SXCBH: TcxGridDBColumn object Tv1Y_Color: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495 Caption = #39068#33394
DataBinding.FieldName = 'SXCBH' DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 110 Width = 80
end end
object Tv1Denier: TcxGridDBColumn object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Dtex)' Caption = #20998#29305'(Dtex)'
@ -426,13 +312,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 110 Width = 110
end end
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1ZS: TcxGridDBColumn object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968 Caption = #25903#25968
DataBinding.FieldName = 'ZS' DataBinding.FieldName = 'ZS'
@ -447,20 +326,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1ND: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Qty: TcxGridDBColumn object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
@ -503,13 +368,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1SDlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SNote: TcxGridDBColumn object Tv1SNote: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'SNote' DataBinding.FieldName = 'SNote'
@ -517,6 +375,88 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1RKDate: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'RKDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1RKQty: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'RKQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 99
end
object Tv1Mnote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Mnote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object Tv1ISSC: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'ISSC'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object v1Column13: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1PurType: TcxGridDBColumn
Caption = #37319#36141#31867#22411
DataBinding.FieldName = 'PurType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object Tv1CGQty: TcxGridDBColumn
Caption = #19979#21333#25968#37327
DataBinding.FieldName = 'CGQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1YDHQty: TcxGridDBColumn
Caption = #24635#25910#36135#25968#37327
DataBinding.FieldName = 'YDHQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -624,7 +564,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 4 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#25552#20132 #26410#25552#20132
#24050#25552#20132 #24050#25552#20132
@ -633,7 +573,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
#24050#21462#28040 #24050#21462#28040
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 134
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
@ -721,6 +660,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
SortOrder = soAscending SortOrder = soAscending
Width = 70 Width = 70
end end
object Tv2Conno: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'Conno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 117
end
object Tv21Column18: TcxGridDBColumn object Tv21Column18: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
DataBinding.FieldName = 'C_Degree' DataBinding.FieldName = 'C_Degree'
@ -752,14 +698,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
@ -768,13 +706,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
Width = 122 Width = 122
end end
object Tv2Column1: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object Tv21Column11: TcxGridDBColumn object Tv21Column11: TcxGridDBColumn
Caption = #20998#29305'(Dtex)' Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
@ -783,13 +714,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
Width = 117 Width = 117
end end
object Tv2Column2: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 113
end
object Tv21Column14: TcxGridDBColumn object Tv21Column14: TcxGridDBColumn
Caption = #25903#25968 Caption = #25903#25968
DataBinding.FieldName = 'ZS' DataBinding.FieldName = 'ZS'
@ -806,19 +730,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
@ -876,7 +787,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False Options.Editing = False
Width = 90 Width = 90
end end
object d: TcxGridDBColumn object Tv2currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'currency' DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True

117
B04采购计划管理/U_YarnPurchasePlanList.pas
View File

@ -56,8 +56,8 @@ type
Tnoqx: TToolButton; Tnoqx: TToolButton;
ToolButton5: TToolButton; ToolButton5: TToolButton;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; Tv1ISSC: TcxGridDBColumn;
v1Column9: TcxGridDBColumn; Tv1Mnote: TcxGridDBColumn;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
btnTijiao: TToolButton; btnTijiao: TToolButton;
@ -77,34 +77,28 @@ type
N5: TMenuItem; N5: TMenuItem;
N6: TMenuItem; N6: TMenuItem;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
Tv1Column1: TcxGridDBColumn; Tv1PurType: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1YDHQty: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
Y_Name: TcxTextEdit; Y_Name: TcxTextEdit;
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
cxStyleRepository2: TcxStyleRepository; cxStyleRepository2: TcxStyleRepository;
cxStyle2: TcxStyle; cxStyle2: TcxStyle;
Tv1Column4: TcxGridDBColumn; Tv1CGQty: TcxGridDBColumn;
ADO_1: TADOQuery; ADO_1: TADOQuery;
Tv1Column6: TcxGridDBColumn; Tv1RKQty: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1RKDate: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn; v1XHNo: TcxGridDBColumn;
Tv21Column18: TcxGridDBColumn; Tv21Column18: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn;
Tv21Column16: TcxGridDBColumn; Tv21Column16: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
Tv21Column11: TcxGridDBColumn; Tv21Column11: TcxGridDBColumn;
Tv21Column14: TcxGridDBColumn; Tv21Column14: TcxGridDBColumn;
Tv21Column15: TcxGridDBColumn; Tv21Column15: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn; v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn; v1OrderUnit: TcxGridDBColumn;
@ -113,21 +107,15 @@ type
cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn;
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
d: TcxGridDBColumn; Tv2currency: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2TaxRate: TcxGridDBColumn; Tv2TaxRate: TcxGridDBColumn;
Tv1C_Degree: TcxGridDBColumn; Tv1C_Degree: TcxGridDBColumn;
Tv1Y_Code: TcxGridDBColumn; Tv1Y_Code: TcxGridDBColumn;
Tv1Y_Name: TcxGridDBColumn; Tv1Y_Name: TcxGridDBColumn;
Tv1Y_Spec: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn; Tv1Y_Composition: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn; Tv1Denier: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn; Tv1ZS: TcxGridDBColumn;
Tv1FF: TcxGridDBColumn; Tv1FF: TcxGridDBColumn;
Tv1ND: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn; Tv1Y_Color: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn; Tv1Qty: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
@ -138,6 +126,7 @@ type
Tv1SDlyDate: TcxGridDBColumn; Tv1SDlyDate: TcxGridDBColumn;
Tv1SNote: TcxGridDBColumn; Tv1SNote: TcxGridDBColumn;
Tbdelete: TToolButton; Tbdelete: TToolButton;
Tv2Conno: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -289,6 +278,26 @@ begin
ToolButton2.Enabled := true; ToolButton2.Enabled := true;
TBAdd.Enabled := true; TBAdd.Enabled := true;
TBPrint.Enabled := True; TBPrint.Enabled := True;
Tv1SDlyDate.Visible := False;
Tv1C_Degree.Visible := False;
Tv1Y_Code.Visible := False;
Tv1Y_Name.Visible := False;
Tv1Y_Composition.Visible := False;
Tv1Y_Color.Visible := False;
Tv1Denier.Visible := False;
Tv1ZS.Visible := False;
Tv1FF.Visible := False;
Tv1Qty.Visible := False;
Tv1QtyUnit.Visible := False;
Tv1Price.Visible := False;
Tv1TaxRate.Visible := False;
Tv1Amount.Visible := False;
Tv1currency.Visible := False;
Tv1SNote.Visible := False;
Tv1RKDate.Visible := False;
Tv1RKQty.Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -322,6 +331,26 @@ begin
ToolButton2.Enabled := true; ToolButton2.Enabled := true;
TBAdd.Enabled := true; TBAdd.Enabled := true;
TBPrint.Enabled := True; TBPrint.Enabled := True;
Tv1SDlyDate.Visible := False;
Tv1C_Degree.Visible := False;
Tv1Y_Code.Visible := False;
Tv1Y_Name.Visible := False;
Tv1Y_Composition.Visible := False;
Tv1Y_Color.Visible := False;
Tv1Denier.Visible := False;
Tv1ZS.Visible := False;
Tv1FF.Visible := False;
Tv1Qty.Visible := False;
Tv1QtyUnit.Visible := False;
Tv1Price.Visible := False;
Tv1TaxRate.Visible := False;
Tv1Amount.Visible := False;
Tv1currency.Visible := False;
Tv1SNote.Visible := False;
Tv1RKDate.Visible := False;
Tv1RKQty.Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -429,6 +458,13 @@ begin
begin begin
TBPrint.Enabled := True; TBPrint.Enabled := True;
cxGrid2.Visible := False; cxGrid2.Visible := False;
Tv1Mnote.visible := False;
Tv1ISSC.Visible := False;
Tv1PurType.Visible := False;
Tv1CGQty.Visible := False;
Tv1YDHQty.Visible := False;
end; end;
end; end;
@ -465,6 +501,12 @@ begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
// 收集选中的ID // 收集选中的ID
mPurMIds := TStringList.Create; mPurMIds := TStringList.Create;
try try
@ -495,22 +537,16 @@ begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
// 更新删除人 // 更新删除人
SQL.Text := 'update Pur_YarnPlan_Main set Deler = ' + QuotedStr(Trim(DName)) + ' ,Deltime = ' SQL.Text := 'update Pur_YarnPlan_Main set Deler = ' + QuotedStr(Trim(DName)) + ' ,Deltime = ' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp))) + ' where PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')';
+ QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp)))
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL; ExecSQL;
SQL.Text := 'update Pur_YarnPlan_Sub set Deler = ' + QuotedStr(Trim(DName)) SQL.Text := 'update Pur_YarnPlan_Sub set Deler = ' + QuotedStr(Trim(DName)) + ' ,Deltime = ' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp))) + ' where PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')';
+ ' ,Deltime = ' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp)))
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL; ExecSQL;
//插入备份表 //插入备份表
SQL.Text := 'insert into Pur_YarnPlan_Main_Del select * from Pur_YarnPlan_Main ' SQL.Text := 'insert into Pur_YarnPlan_Main_Del select * from Pur_YarnPlan_Main ' + ' where PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')';
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
// showMessage(SQL.Text); // showMessage(SQL.Text);
ExecSQL; ExecSQL;
SQL.Text := 'insert into Pur_YarnPlan_Sub_Del select * from Pur_YarnPlan_Sub ' SQL.Text := 'insert into Pur_YarnPlan_Sub_Del select * from Pur_YarnPlan_Sub ' + ' where PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')';
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL; ExecSQL;
// 删除主子表 // 删除主子表
SQL.Text := 'DELETE FROM Pur_YarnPlan_Main WHERE PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')'; SQL.Text := 'DELETE FROM Pur_YarnPlan_Main WHERE PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')';
@ -712,7 +748,16 @@ begin
inherited; inherited;
fFlileFlag := UserDataFlag + 'HX'; fFlileFlag := UserDataFlag + 'HX';
FAuthority := self.fParameters1; FAuthority := self.fParameters1;
readCxGrid(trim(Self.Caption) + 'tv1', Tv1, '销售合同管理'); if (Trim(FAuthority) = '录入') or (Trim(FAuthority) = '管理') then
begin
readCxGrid(trim(Self.Caption) + 'tv1录入管理', Tv1, '销售合同录入管理');
end
else
begin
readCxGrid(trim(Self.Caption) + 'tv1查询', Tv1, '销售合同查询');
end;
// readCxGrid(trim(Self.Caption) + 'tv1', Tv1, '销售合同管理');
readCxGrid(trim(Self.Caption) + 'tv2', Tv2, '销售合同管理'); readCxGrid(trim(Self.Caption) + 'tv2', Tv2, '销售合同管理');
SetStatus(); SetStatus();
@ -1172,7 +1217,15 @@ end;
procedure TfrmYarnPurchasePlanList.ToolButton7Click(Sender: TObject); procedure TfrmYarnPurchasePlanList.ToolButton7Click(Sender: TObject);
begin begin
writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, '销售合同管理'); if (Trim(FAuthority) = '录入') or (Trim(FAuthority) = '管理') then
begin
writeCxGrid(trim(Self.Caption) + 'tv1录入管理', Tv1, '销售合同录入管理');
end
else
begin
writeCxGrid(trim(Self.Caption) + 'tv1查询', Tv1, '销售合同查询');
end;
// writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, '销售合同管理');
writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, '销售合同管理'); writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, '销售合同管理');
end; end;

67
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -10,6 +10,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -673
ExplicitWidth = 1540 ExplicitWidth = 1540
ExplicitHeight = 757 ExplicitHeight = 757
PixelsPerInch = 96 PixelsPerInch = 96
@ -102,12 +103,13 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 325 Left = 325
Top = 0 Top = 0
AutoSize = True
Caption = #38144#21806#21512#21516 Caption = #38144#21806#21512#21516
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 440 Left = 428
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
@ -123,8 +125,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 192
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -191,6 +191,27 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
SortOrder = soAscending SortOrder = soAscending
Width = 70 Width = 70
end end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'Conno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object Tv1Column1: TcxGridDBColumn
DataBinding.FieldName = 'fromConMId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 131
end
object Tv1fromConSMId: TcxGridDBColumn
DataBinding.FieldName = 'fromConSId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 126
end
object Tv1Column18: TcxGridDBColumn object Tv1Column18: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
DataBinding.FieldName = 'C_Degree' DataBinding.FieldName = 'C_Degree'
@ -207,13 +228,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
end end
object Tv1Column6: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'
@ -230,14 +244,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object v1Column4: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition' DataBinding.FieldName = 'Y_Composition'
@ -262,14 +268,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
end end
object Tv1Column15: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
@ -278,6 +276,14 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False Options.Editing = False
Width = 108 Width = 108
end end
object Tv1Column15: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
AlternateCaption = 'DataLink_PurchasePlan.grid_head_red' AlternateCaption = 'DataLink_PurchasePlan.grid_head_red'
Caption = #31665'/'#20214 Caption = #31665'/'#20214
@ -394,6 +400,14 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 122 Width = 122
end end
object Tv1CPConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'CPConNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -413,7 +427,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
ExplicitTop = 24
object lbl5: TLabel object lbl5: TLabel
Left = 32 Left = 32
Top = 50 Top = 50

31
B04采购计划管理/U_YarnPurchasePlanPut.pas
View File

@ -39,7 +39,6 @@ type
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
v1XHNo: TcxGridDBColumn; v1XHNo: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn; v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn; v1OrderUnit: TcxGridDBColumn;
@ -90,11 +89,14 @@ type
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
Label4: TLabel; Label4: TLabel;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
ToolButton6: TToolButton; ToolButton6: TToolButton;
Tv1TaxRate: TcxGridDBColumn; Tv1TaxRate: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn; Tv1TaxInclude: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn; Tv1Tax: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1fromConSMId: TcxGridDBColumn;
Tv1CPConNo: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -1009,7 +1011,7 @@ begin
begin begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with CDS_1 do with frmSalesContract_SXSel.CDS_1 do
begin begin
First; First;
while not Eof do while not Eof do
@ -1024,21 +1026,26 @@ begin
FieldByName('PurSId').Value := maxno + INTTOSTR(i); FieldByName('PurSId').Value := maxno + INTTOSTR(i);
FieldByName('C_Degree').Value := 'É´Ïß'; FieldByName('C_Degree').Value := 'É´Ïß';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value; FieldByName('Y_Code').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value; FieldByName('Y_Name').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Y_Name').value;
// FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value; // FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value; FieldByName('Y_Composition').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value; FieldByName('Y_Color').Value := frmSalesContract_SXSel.Cds_1.FieldByName('Y_Color').Value;
FieldByName('Denier').Value := CDS_1.fieldbyname('TestDenier').value; FieldByName('Denier').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('TestDenier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('Z_Number').value; FieldByName('ZS').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Z_Number').value;
FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value; FieldByName('Y_Color').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Y_Color').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').value; FieldByName('FF').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('FF').value;
// FieldByName('ND').Value := Cds_1.FieldByName('ND').Value; // FieldByName('ND').Value := Cds_1.FieldByName('ND').Value;
FieldByName('Qty').Value := Cds_1.FieldByName('SXQty').Value; FieldByName('Qty').Value := frmSalesContract_SXSel.Cds_1.FieldByName('SXQty').Value;
FieldByName('Price').Value := 0; FieldByName('Price').Value := 0;
FieldByName('QtyUnit').Value := 'Kg'; FieldByName('QtyUnit').Value := 'Kg';
FieldByName('ConNo').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('ConNo').value;
FieldByName('fromConMId').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('ConMId').value;
FieldByName('fromConSId').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('ConSId').value;
FieldByName('CPConNo').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('FROMCPMID').value;
post;
end; end;
end; end;
i := i + 1; i := i + 1;

7
E00梭织通用窗体/U_TatPlanSel.dfm
View File

@ -311,6 +311,7 @@ inherited frmTatPlanSel: TfrmTatPlanSel
Height = 524 Height = 524
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -604,12 +605,12 @@ inherited frmTatPlanSel: TfrmTatPlanSel
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 297 Left = 297
Top = 128 Top = 160
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1
Left = 193 Left = 169
Top = 129 Top = 161
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 344 Left = 344

6
E00梭织通用窗体/U_TatPlanSel.pas
View File

@ -166,9 +166,9 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)'); sql.Add(' select A.*,B.*,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo) ');
sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) '); sql.Add(' ,ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) ');
sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId'); sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId ');
//SQL.Add(' where isnull(A.status,''0'')=''9'' '); //SQL.Add(' where isnull(A.status,''0'')=''9'' ');
sql.add('where 1=1'); sql.add('where 1=1');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of

116
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,82 +1,82 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2025/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction> <Transaction>2025/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>2025/11/26 15:57:54.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction> <Transaction>2025/11/26 15:57:54.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

2
E01梭织生产计划/U_TatPlanInPut.dfm
View File

@ -9,6 +9,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Height = -13 Font.Height = -13
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitTop = -259
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 884 ExplicitHeight = 884
PixelsPerInch = 96 PixelsPerInch = 96
@ -72,7 +73,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 922 Left = 922
Top = 5 Top = 5

1
E01梭织生产计划/U_TatPlanList.dfm
View File

@ -620,7 +620,6 @@ inherited frmTatPlanList: TfrmTatPlanList
#24050#32467#26463 #24050#32467#26463
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 109
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

7
E01梭织生产计划/U_TatPlanMachList.dfm
View File

@ -424,6 +424,13 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object Tv1ClothMeter: TcxGridDBColumn
Caption = #39564#24067#31859#25968
DataBinding.FieldName = 'ClothMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

3
E01梭织生产计划/U_TatPlanMachList.pas
View File

@ -97,6 +97,7 @@ type
ToolButton7: TToolButton; ToolButton7: TToolButton;
Tv1WbNo: TcxGridDBColumn; Tv1WbNo: TcxGridDBColumn;
Tv1KKGroup: TcxGridDBColumn; Tv1KKGroup: TcxGridDBColumn;
Tv1ClothMeter: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure P_CodeNameChange(Sender: TObject); procedure P_CodeNameChange(Sender: TObject);
@ -240,7 +241,7 @@ begin
end; end;
end; end;
// ShowMessage(SQL.Text);
open; open;
end; end;
SCreateCDS(adoqueryMain, CDS_1); SCreateCDS(adoqueryMain, CDS_1);

14
E02梭织经轴仓库/U_TatWBCardInPut2.dfm
View File

@ -155,6 +155,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Width = 114 Width = 114
end end
object TV2XZZJ: TcxGridDBColumn object TV2XZZJ: TcxGridDBColumn
Tag = 12
Caption = #25972#32463 Caption = #25972#32463
DataBinding.FieldName = 'XZZJ' DataBinding.FieldName = 'XZZJ'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -164,6 +165,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Width = 70 Width = 70
end end
object TV2XZSJ: TcxGridDBColumn object TV2XZSJ: TcxGridDBColumn
Tag = 12
Caption = #19978#27974 Caption = #19978#27974
DataBinding.FieldName = 'XZSJ' DataBinding.FieldName = 'XZSJ'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -181,12 +183,14 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Width = 118 Width = 118
end end
object TV2JZSJ: TcxGridDBColumn object TV2JZSJ: TcxGridDBColumn
Tag = 12
Caption = #19978#27974 Caption = #19978#27974
DataBinding.FieldName = 'JZSJ' DataBinding.FieldName = 'JZSJ'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object TV2JZSZ: TcxGridDBColumn object TV2JZSZ: TcxGridDBColumn
Tag = 12
Caption = #19978#36724 Caption = #19978#36724
DataBinding.FieldName = 'JZSZ' DataBinding.FieldName = 'JZSZ'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -264,7 +268,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 131
Caption = 'ToolBar1' Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
EdgeInner = esNone EdgeInner = esNone
@ -293,12 +297,12 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#20462#25913 Caption = #20445#23384#21246#36873#20462#25913
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 245 Left = 277
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -306,7 +310,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 316 Left = 348
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -314,7 +318,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 419 Left = 451
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

36
E02梭织经轴仓库/U_TatWBCardInPut2.pas
View File

@ -327,6 +327,9 @@ begin
if (Trim(edtCardQty1.Text) = '') or (Trim(edtCardQty1.Text) = '0') then if (Trim(edtCardQty1.Text) = '') or (Trim(edtCardQty1.Text) = '0') then
raise Exception.Create('轴数不能为空或0！'); raise Exception.Create('轴数不能为空或0！');
if trim(WBType1.Text) = '' then
raise Exception.Create('ÅÌÍ·ÀàÐͲ»ÄÜΪ¿Õ£¡');
Result := True; Result := True;
except except
Result := false; Result := false;
@ -573,7 +576,6 @@ begin
TV2JZSJ.Visible := False; TV2JZSJ.Visible := False;
end; end;
end; end;
procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -689,14 +691,14 @@ begin
begin begin
if FWB_Type = '稀轴' then if FWB_Type = '稀轴' then
begin begin
if GetLSNo(ADOQueryTemp, MWBCID, 'XZK' + fDate, 'Tat_WB_Card', 2, 0) = False then if GetLSNo(ADOQueryTemp, MWBCID, 'XZK' + fDate, 'Tat_WB_Card',4, 0) = False then
begin begin
raise Exception.Create('取布票流水号失败!'); raise Exception.Create('取布票流水号失败!');
end; end;
end end
else else
begin begin
if GetLSNo(ADOQueryTemp, MWBCID, 'JZK' + fDate, 'Tat_WB_Card', 2, 0) = False then if GetLSNo(ADOQueryTemp, MWBCID, 'JZK' + fDate, 'Tat_WB_Card', 4, 0) = False then
begin begin
raise Exception.Create('取布票流水号失败!'); raise Exception.Create('取布票流水号失败!');
end; end;
@ -714,7 +716,7 @@ begin
if FWB_Type = '稀轴' then if FWB_Type = '稀轴' then
begin begin
// if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then // if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then
if (i > StrToInt(Z_ZHOUSHU1.Text) ) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then if (i > StrToInt(Z_ZHOUSHU1.Text)) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then
begin begin
sql.Add(',' + (Trim(Z_FJGENSHU.Text))); sql.Add(',' + (Trim(Z_FJGENSHU.Text)));
sql.Add(',' + (Trim(Z_SJKESHU2.Text))); sql.Add(',' + (Trim(Z_SJKESHU2.Text)));
@ -967,21 +969,23 @@ begin
begin begin
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
try try
with ADOQueryCmd do if CDS_Card.FieldByName('SSel').AsBoolean then
begin begin
close; with ADOQueryCmd do
sql.Clear; begin
sql.Add('select * from Tat_WB_Card A'); close;
sql.Add('where WBCID=''' + trim(CDS_Card.fieldbyname('WBCID').AsString) + ''''); sql.Clear;
open; sql.Add('select * from Tat_WB_Card A');
edit; sql.Add('where WBCID=''' + trim(CDS_Card.fieldbyname('WBCID').AsString) + '''');
FieldByName('Editer').Value := Trim(DName); open;
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
// RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1); // RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_Card, 'Tat_WB_Card', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_Card, 'Tat_WB_Card', 0);
post; post;
end;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;

2
E02梭织经轴仓库/U_TatWBNeedList.dfm
View File

@ -162,7 +162,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 115 ExplicitTop = 103
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

65
E02梭织经轴仓库/U_TatWBPlan.dfm
View File

@ -166,8 +166,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 6 TabOrder = 6
ExplicitLeft = -1 ExplicitLeft = 8
ExplicitTop = 44 ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 14 Top = 14
@ -196,6 +196,20 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 21 Height = 21
Caption = #32463#35268#26684 Caption = #32463#35268#26684
end end
object Label4: TLabel
Left = 653
Top = 16
Width = 80
Height = 21
Caption = #22383#24067#21512#21516#21495
end
object Label5: TLabel
Left = 849
Top = 16
Width = 96
Height = 21
Caption = #32455#36896#35745#21010#21333#21495
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 86 Left = 86
Top = 10 Top = 10
@ -236,6 +250,26 @@ inherited frmTatWBPlan: TfrmTatWBPlan
OnChange = ConNoChange OnChange = ConNoChange
OnKeyPress = CustNameKeyPress OnKeyPress = CustNameKeyPress
end end
object ConNo: TEdit
Tag = 2
Left = 735
Top = 10
Width = 110
Height = 29
TabOrder = 4
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress
end
object GYNo: TEdit
Tag = 2
Left = 949
Top = 10
Width = 110
Height = 29
TabOrder = 5
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress
end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
@ -244,6 +278,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 541 Height = 541
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
ExplicitLeft = -5
ExplicitTop = 117
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -328,6 +364,20 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 121
end
object Tv1GYNo: TcxGridDBColumn
Caption = #32455#36896#35745#21010#21333#21495
DataBinding.FieldName = 'GYNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 120
end
object v1Column31: TcxGridDBColumn object v1Column31: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
@ -450,6 +500,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#24050#32467#26463 #24050#32467#26463
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitLeft = -1
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 30 ClientRectTop = 30
@ -470,7 +521,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = -7 ExplicitLeft = 6
ExplicitTop = 61 ExplicitTop = 61
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -571,7 +622,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
DataBinding.FieldName = 'XZSJ' DataBinding.FieldName = 'XZSJ'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 93
end end
object TV1Column3: TcxGridDBColumn object TV1Column3: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
@ -624,6 +675,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 6
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -653,7 +706,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 0 ImageIndex = 5
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
end end
@ -678,7 +731,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#27974#36724) #27974#36724)
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ExplicitLeft = 6 ExplicitLeft = 6
ExplicitTop = 33 ExplicitTop = 45
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 709 ClientRectRight = 709
ClientRectTop = 30 ClientRectTop = 30

7
E02梭织经轴仓库/U_TatWBPlan.pas
View File

@ -116,6 +116,12 @@ type
TV2JZSJ: TcxGridDBColumn; TV2JZSJ: TcxGridDBColumn;
TV2JZSZ: TcxGridDBColumn; TV2JZSZ: TcxGridDBColumn;
TbLogLook: TToolButton; TbLogLook: TToolButton;
Tv1GYNo: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Label4: TLabel;
Label5: TLabel;
ConNo: TEdit;
GYNo: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
@ -304,6 +310,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* '); sql.Add('select A.* ');
sql.Add(' ,ConNo = (select ConNo from Tat_Plan_Sub X where X.MainId = A.gyno) ');
sql.Add(' from Tat_WB_Plan A '); sql.Add(' from Tat_WB_Plan A ');
sql.Add('where 1=1 '); sql.Add('where 1=1 ');
sql.Add(' and EXISTS (SELECT * FROM Tat_WB_Spec X where X.WB_Code = A.WB_Code and X.WB_TYPE = ''Õû½¬²¢'' )'); sql.Add(' and EXISTS (SELECT * FROM Tat_WB_Spec X where X.WB_Code = A.WB_Code and X.WB_TYPE = ''Õû½¬²¢'' )');

1
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
View File

@ -392,6 +392,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
OnDblClick = gynoDblClick OnDblClick = gynoDblClick
ExplicitTop = 41
object Label3: TLabel object Label3: TLabel
Left = 708 Left = 708
Top = 8 Top = 8

2
E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.dfm
View File

@ -34,6 +34,8 @@ inherited frmTatWBPlanZJZKKaiKa: TfrmTatWBPlanZJZKKaiKa
Height = 518 Height = 518
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 240
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

8
E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.pas
View File

@ -296,6 +296,13 @@ begin
// raise Exception.Create('迁经机不能为空！'); // raise Exception.Create('迁经机不能为空！');
end; end;
if trim(WBType1.Text) = '' then
raise Exception.Create('盘头类型1不能为空！');
if trim(WBType2.Text) = '' then
raise Exception.Create('盘头类型2不能为空！');
if trim(WBType3.Text) = '' then
raise Exception.Create('盘头类型3不能为空！');
// if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then // if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then
// WB_ClothPiece.Text := '0'; // WB_ClothPiece.Text := '0';
if Trim(WB_Type.Text) = '' then if Trim(WB_Type.Text) = '' then
@ -675,7 +682,6 @@ begin
sql.Add(',0'); sql.Add(',0');
end; end;
sql.Add(',' + FloatToStr(MWB_YarnLen)); sql.Add(',' + FloatToStr(MWB_YarnLen));
sql.Add(',' + Quotedstr(Trim(WB_Macher.Text))); sql.Add(',' + Quotedstr(Trim(WB_Macher.Text)));
sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text))); sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text)));

25
E02梭织经轴仓库/U_WBNeedHTList.dfm
View File

@ -6,6 +6,7 @@ inherited frmWBNeedHTList: TfrmWBNeedHTList
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
ExplicitLeft = -398
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 706 ExplicitHeight = 706
PixelsPerInch = 96 PixelsPerInch = 96
@ -26,7 +27,7 @@ inherited frmWBNeedHTList: TfrmWBNeedHTList
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1 ExplicitLeft = -1
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -80,8 +81,7 @@ inherited frmWBNeedHTList: TfrmWBNeedHTList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
ExplicitLeft = 8 ExplicitTop = 36
ExplicitTop = 25
object Label3: TLabel object Label3: TLabel
Left = 268 Left = 268
Top = 10 Top = 10
@ -184,20 +184,28 @@ inherited frmWBNeedHTList: TfrmWBNeedHTList
Width = 96 Width = 96
end end
object TV1C_Width: TcxGridDBColumn object TV1C_Width: TcxGridDBColumn
Caption = #22383#24067#38376#24133 Caption = #22383#24067#38376#24133'(")'
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
Width = 112 Width = 112
end end
object TV1OrdQty: TcxGridDBColumn object TV1OrdQty: TcxGridDBColumn
Caption = #21512#21516#25968#37327 Caption = #21512#21516#25968#37327
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 80 Width = 80
end end
object TV1ConUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1WB_Code: TcxGridDBColumn object TV1WB_Code: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495 Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code' DataBinding.FieldName = 'WB_Code'
@ -227,16 +235,19 @@ inherited frmWBNeedHTList: TfrmWBNeedHTList
Width = 57 Width = 57
end end
object TV1WB_Width: TcxGridDBColumn object TV1WB_Width: TcxGridDBColumn
Caption = #32463#36724#38376#24133 Caption = #32463#36724#38376#24133'(")'
DataBinding.FieldName = 'WB_Width' DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
Width = 82 Width = 82
end end
object TV1ArrangeQTY: TcxGridDBColumn object TV1ArrangeQTY: TcxGridDBColumn
Caption = #24050#23433#25490#25968#37327 Caption = #24050#23433#25490#25968#37327
DataBinding.FieldName = 'ArrangeQTY' DataBinding.FieldName = 'ArrangeQTY'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1 Styles.Header = cxStyle1
Width = 148 Width = 148
@ -245,6 +256,8 @@ inherited frmWBNeedHTList: TfrmWBNeedHTList
Caption = #23454#38469#23436#25104#25968#37327 Caption = #23454#38469#23436#25104#25968#37327
DataBinding.FieldName = 'KCQTY' DataBinding.FieldName = 'KCQTY'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WarpBeamStk.grid_head_blue Styles.Header = DataLink_WarpBeamStk.grid_head_blue
Width = 135 Width = 135

5
E02梭织经轴仓库/U_WBNeedHTList.pas
View File

@ -58,6 +58,7 @@ type
TV1WB_Width: TcxGridDBColumn; TV1WB_Width: TcxGridDBColumn;
TV1KCQTY: TcxGridDBColumn; TV1KCQTY: TcxGridDBColumn;
TV1ArrangeQTY: TcxGridDBColumn; TV1ArrangeQTY: TcxGridDBColumn;
TV1ConUnit: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -126,7 +127,7 @@ begin
sql.Add(' ,C_Width'); sql.Add(' ,C_Width');
sql.Add(',C_Composition, Density '); sql.Add(',C_Composition, Density ');
sql.Add(', YarnZS'); sql.Add(', YarnZS');
sql.Add(',sum(A.OrdQty) as OrdQty, WB_Code'); sql.Add(',sum(A.OrdQty) as OrdQty,sum(A.ConQty) as ConQty,ConUnit,WB_Code');
sql.Add(', WB_Name, WB_YarnQty'); sql.Add(', WB_Name, WB_YarnQty');
sql.Add(', WB_ReedNo, WB_Width'); sql.Add(', WB_ReedNo, WB_Width');
sql.Add(',sum(A.KCQTY) as KCQTY'); sql.Add(',sum(A.KCQTY) as KCQTY');
@ -134,7 +135,7 @@ begin
SQL.ADD('from V_WBNeedHTLook A '); SQL.ADD('from V_WBNeedHTLook A ');
// SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code)); // SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code));
SQL.Add('group BY ConNo,C_Name,C_Code,C_Width,C_Composition,Density'); SQL.Add('group BY ConNo,C_Name,C_Code,C_Width,C_Composition,Density');
SQL.Add(',YarnZS,WB_Code,WB_Name,WB_YarnQty,WB_ReedNo,WB_Width'); SQL.Add(',YarnZS,WB_Code,WB_Name,WB_YarnQty,WB_ReedNo,WB_Width,ConUnit');
// sql.Add(' where A.STKName =''¾­Öá'' and A.IOFlag =''³ö¿â'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); // sql.Add(' where A.STKName =''¾­Öá'' and A.IOFlag =''³ö¿â'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''¿ÕÖá'' and X.IOFlag =''Èë¿â'' and A.WBNO =X.WBNO) '); // sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''¿ÕÖá'' and X.IOFlag =''Èë¿â'' and A.WBNO =X.WBNO) ');
// ShowMessage(Sql.text); // ShowMessage(Sql.text);

BIN
E02梭织经轴仓库/WarpBeamStk.identcache
View File

Binary file not shown.

4
E04梭织坯布仓库/TatClothStk.dpr
View File

@ -34,7 +34,6 @@ uses
U_ClothInfoTechnicsinput in '..\A02基础产品管理\U_ClothInfoTechnicsinput.pas' {frmClothInfoTechnicsinput}, U_ClothInfoTechnicsinput in '..\A02基础产品管理\U_ClothInfoTechnicsinput.pas' {frmClothInfoTechnicsinput},
U_ClothInfoTechnicsSel in '..\A02基础产品管理\U_ClothInfoTechnicsSel.pas' {frmClothInfoTechnicsSel}, U_ClothInfoTechnicsSel in '..\A02基础产品管理\U_ClothInfoTechnicsSel.pas' {frmClothInfoTechnicsSel},
U_ClothInfoProcessInput in '..\A02基础产品管理\U_ClothInfoProcessInput.pas' {frmClothInfoProcessInput}, U_ClothInfoProcessInput in '..\A02基础产品管理\U_ClothInfoProcessInput.pas' {frmClothInfoProcessInput},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas', U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
@ -46,7 +45,8 @@ uses
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList}, U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList},
U_TatClothStkSel in 'U_TatClothStkSel.pas' {frmTatClothStkSel}; U_TatClothStkSel in 'U_TatClothStkSel.pas' {frmTatClothStkSel},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
{$R *.res} {$R *.res}

9
E04梭织坯布仓库/TatClothStk.dproj
View File

@ -160,10 +160,6 @@
<DCCReference Include="..\A02基础产品管理\U_ClothInfoProcessInput.pas"> <DCCReference Include="..\A02基础产品管理\U_ClothInfoProcessInput.pas">
<Form>frmClothInfoProcessInput</Form> <Form>frmClothInfoProcessInput</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/> <DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/> <DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
@ -191,6 +187,11 @@
<DCCReference Include="U_TatClothStkSel.pas"> <DCCReference Include="U_TatClothStkSel.pas">
<Form>frmTatClothStkSel</Form> <Form>frmTatClothStkSel</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

27
E04梭织坯布仓库/TatClothStk.dproj.local
View File

@ -68,6 +68,7 @@
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
@ -79,17 +80,17 @@
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>2026/01/21 11:43:07.000.268,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList_Sel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -108,22 +109,22 @@
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.pas"/> <File Path="..\A00通用窗体\U_ProductInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/> <File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_WBSpecSel.pas"/> <File Path="..\A00通用窗体\U_WBSpecSel.pas"/>
<File Path="..\A00通用窗体\U_WBSpecSel.dfm"/> <File Path="..\A00通用窗体\U_WBSpecSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用组件"/> <File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/> <File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/> <File Path="..\A00通用组件\FrameDateSel.dfm"/>
<File Path="..\A02基础产品管理"/> <File Path="..\A02基础产品管理"/>
<File Path="..\A02基础产品管理\U_ClothInfoInput.pas"/> <File Path="..\A02基础产品管理\U_ClothInfoInput.pas"/>
<File Path="..\A02基础产品管理\U_ClothInfoInput.dfm"/> <File Path="..\A02基础产品管理\U_ClothInfoInput.dfm"/>
<File Path="..\A02基础产品管理\U_ClothInfoProcessInput.pas"/>
<File Path="..\A02基础产品管理\U_ClothInfoProcessInput.dfm"/>
<File Path="..\A02基础产品管理\U_ClothInfoTechnicsinput.pas"/> <File Path="..\A02基础产品管理\U_ClothInfoTechnicsinput.pas"/>
<File Path="..\A02基础产品管理\U_ClothInfoTechnicsinput.dfm"/> <File Path="..\A02基础产品管理\U_ClothInfoTechnicsinput.dfm"/>
<File Path="..\A02基础产品管理\U_ClothInfoTechnicsSel.pas"/> <File Path="..\A02基础产品管理\U_ClothInfoTechnicsSel.pas"/>
<File Path="..\A02基础产品管理\U_ClothInfoTechnicsSel.dfm"/> <File Path="..\A02基础产品管理\U_ClothInfoTechnicsSel.dfm"/>
<File Path="..\A02基础产品管理\U_ClothInfoProcessInput.pas"/>
<File Path="..\A02基础产品管理\U_ClothInfoProcessInput.dfm"/>
<File Path="..\B02基础纱线仓库"/> <File Path="..\B02基础纱线仓库"/>
<File Path="..\B02基础纱线仓库\U_SXCKList.pas"/> <File Path="..\B02基础纱线仓库\U_SXCKList.pas"/>
<File Path="..\B02基础纱线仓库\U_SXCKList.dfm"/> <File Path="..\B02基础纱线仓库\U_SXCKList.dfm"/>
@ -145,10 +146,10 @@
<File Path="..\..\..\public10\design\U_BaseList.pas"/> <File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/> <File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/> <File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/> <File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
@ -165,10 +166,10 @@
<File Path="U_TatClothInEdit.dfm"/> <File Path="U_TatClothInEdit.dfm"/>
<File Path="U_TatClothInList_ZDDY.pas"/> <File Path="U_TatClothInList_ZDDY.pas"/>
<File Path="U_TatClothInList_ZDDY.dfm"/> <File Path="U_TatClothInList_ZDDY.dfm"/>
<File Path="U_TatClothOutEdit.pas"/>
<File Path="U_TatClothOutEdit.dfm"/>
<File Path="U_TatClothOutList.pas"/> <File Path="U_TatClothOutList.pas"/>
<File Path="U_TatClothOutList.dfm"/> <File Path="U_TatClothOutList.dfm"/>
<File Path="U_TatClothOutEdit.pas"/>
<File Path="U_TatClothOutEdit.dfm"/>
<File Path="U_TatDRSel.pas"/> <File Path="U_TatDRSel.pas"/>
<File Path="U_TatDRSel.dfm"/> <File Path="U_TatDRSel.dfm"/>
<File Path="U_TatClothStkList.pas"/> <File Path="U_TatClothStkList.pas"/>

38
E04梭织坯布仓库/U_DataLink.pas
View File

@ -5,40 +5,9 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics,
cxLocalization, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, cxEdit, cxContainer, dxSkinsForm, dxCore, dxLayoutLookAndFeels, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI ;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
@ -139,6 +108,7 @@ end;
procedure TDataLink_TatClothStk.DataModuleCreate(Sender: TObject); procedure TDataLink_TatClothStk.DataModuleCreate(Sender: TObject);
begin begin
inherited;
CriticalSection := TCriticalSection.Create; CriticalSection := TCriticalSection.Create;
end; end;

16
E04梭织坯布仓库/U_TatClothDROutEdit.dfm
View File

@ -21,6 +21,7 @@ inherited frmTatClothDROutEdit: TfrmTatClothDROutEdit
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1
object Label5: TLabel object Label5: TLabel
Left = 6 Left = 6
Top = 34 Top = 34
@ -207,7 +208,6 @@ inherited frmTatClothDROutEdit: TfrmTatClothDROutEdit
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 7
Visible = False
OnClick = btn1Click OnClick = btn1Click
end end
object OutNo: TEdit object OutNo: TEdit
@ -240,7 +240,8 @@ inherited frmTatClothDROutEdit: TfrmTatClothDROutEdit
Height = 293 Height = 293
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 213 ExplicitLeft = 2
ExplicitTop = 220
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -279,9 +280,6 @@ inherited frmTatClothDROutEdit: TfrmTatClothDROutEdit
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Content = cxStyle1 Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object Tv3Column2: TcxGridDBColumn object Tv3Column2: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
@ -349,6 +347,8 @@ inherited frmTatClothDROutEdit: TfrmTatClothDROutEdit
Height = 213 Height = 213
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2
ExplicitTop = -5
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView
OnMouseDown = TV4MouseDown OnMouseDown = TV4MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -372,10 +372,6 @@ inherited frmTatClothDROutEdit: TfrmTatClothDROutEdit
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object cCXCONNO: TcxGridDBColumn object cCXCONNO: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNO' DataBinding.FieldName = 'ConNO'
@ -503,7 +499,7 @@ inherited frmTatClothDROutEdit: TfrmTatClothDROutEdit
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -21 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
end end

74
E04梭织坯布仓库/U_TatClothDROutEdit.pas
View File

@ -96,7 +96,7 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, MMSystem, U_TatDRSel; U_DataLink, U_RTFun, MMSystem, U_TatDRSel, U_TatClothStkScanSel;
procedure TfrmTatClothDROutEdit.PlayWav(MWav: string); procedure TfrmTatClothDROutEdit.PlayWav(MWav: string);
begin begin
@ -329,7 +329,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select StkIdS=CAST((select distinct lTRIM(RTRIM(X.StkId)) + '','' '); sql.Add(' select StkIdS=CAST((select distinct lTRIM(RTRIM(X.StkId)) + '','' ');
sql.Add(' from Tat_Cloth_Stock X where X.PacketId=' + quotedstr(FSMStr) + ' for xml path('''') ) AS NVARCHAR(MAX)) '); sql.Add(' from Tat_Cloth_Stock X where X.PacketId=' + quotedstr(FSMStr) + ' for xml path('''') ) AS NVARCHAR(MAX)) ');
Open; Open;
end; end;
if SaveCKJTM(ADOQueryTemp.FieldByName('StkIdS').AsString) then if SaveCKJTM(ADOQueryTemp.FieldByName('StkIdS').AsString) then
@ -407,37 +407,49 @@ begin
MKey := #13; MKey := #13;
CZZT := 'Ñ¡Ôñ¿â´æ'; CZZT := 'Ñ¡Ôñ¿â´æ';
fcuowu := '1'; fcuowu := '1';
// try try
// frmCKProductCPKCListSel := TfrmCKProductCPKCListSel.Create(Application); frmTatClothStkScanSel := TfrmTatClothStkScanSel.Create(Application);
// with frmCKProductCPKCListSel do with frmTatClothStkScanSel do
// begin begin
//// CustomerNoName.text := trim(Self.KHName.text); fConSId :=DS1.FieldByName('ConSId').AsString;
// if ShowModal = 1 then fOrderNo :=DS1.FieldByName('OrderNo').AsString;
// with ADOQueryTemp do
// begin // begin
// with frmCKProductCPKCListSel.CDS_Main do // Close;
// begin // sql.Clear;
// First; // Sql.Add('exec P_Tat_FH_KCList_CP ');
// while not Eof do // Sql.Add(' @DRMID=' + quotedstr(trim(OutNo.text)));
// begin // Sql.Add(',@DName=' + Quotedstr(DName));
// if Fieldbyname('ssel').AsBoolean then // execsql;
// begin
//
// Self.edtScan.Text := Trim(Fieldbyname('JYID').AsString);
// edtScanKeyPress(Self.edtScan, MKey);
// if fcuowu = '´íÎó' then
// begin
// Break;
// end;
// Sleep(200);
// end;
// Next;
// end;
// end;
// end; // end;
// end;
// finally if ShowModal = 1 then
// frmCKProductCPKCListSel.Free; begin
// end; with frmTatClothStkScanSel.CDS_1 do
begin
First;
while not Eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
// ISXZ := 0;
Self.edtScan.Text := Trim(Fieldbyname('StkID').AsString);
edtScanKeyPress(Self.edtScan, MKey);
if fcuowu = '´íÎó' then
begin
Break;
end;
Sleep(100);
end;
Next;
end;
end;
end;
end;
finally
frmTatClothStkScanSel.Free;
end;
InitCKGrid(); InitCKGrid();
end; end;

167
E04梭织坯布仓库/U_TatClothInList.dfm
View File

@ -3,13 +3,12 @@ inherited frmTatClothInList: TfrmTatClothInList
Top = 138 Top = 138
Caption = #25104#21697#20837#24211#21015#34920 Caption = #25104#21697#20837#24211#21015#34920
ClientHeight = 522 ClientHeight = 522
ClientWidth = 1544 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -76 ExplicitWidth = 1556
ExplicitWidth = 1560
ExplicitHeight = 561 ExplicitHeight = 561
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +16,7 @@ inherited frmTatClothInList: TfrmTatClothInList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1544 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -96,7 +95,7 @@ inherited frmTatClothInList: TfrmTatClothInList
object cxPageControl1: TcxPageControl [1] object cxPageControl1: TcxPageControl [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1544 Width = 1540
Height = 492 Height = 492
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
@ -105,7 +104,7 @@ inherited frmTatClothInList: TfrmTatClothInList
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 492 ClientRectBottom = 492
ClientRectRight = 1544 ClientRectRight = 1540
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' ' Caption = ' '#20135#21697#27719#24635#20449#24687' '
@ -113,7 +112,7 @@ inherited frmTatClothInList: TfrmTatClothInList
object Pnl_F2: TPanel object Pnl_F2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1544 Width = 1540
Height = 78 Height = 78
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -272,7 +271,7 @@ inherited frmTatClothInList: TfrmTatClothInList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 78 Top = 78
Width = 1544 Width = 1540
Height = 382 Height = 382
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
@ -290,7 +289,6 @@ inherited frmTatClothInList: TfrmTatClothInList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn8
end end
item item
Kind = skSum Kind = skSum
@ -310,11 +308,9 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn9
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn10
end end
item item
Kind = skSum Kind = skSum
@ -361,13 +357,12 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end end
object cxGridDBColumn5: TcxGridDBColumn object TV2ConNo: TcxGridDBColumn
Caption = #23458#25143 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 131
Width = 66
end end
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Tag = 11 Tag = 11
@ -378,6 +373,14 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 128 Width = 128
end end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
@ -386,6 +389,13 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 103 Width = 103
end end
object TV2C_Code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object cxGridDBColumn15: TcxGridDBColumn object cxGridDBColumn15: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
@ -410,30 +420,12 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object TV2Column1: TcxGridDBColumn object TV2PacketNo: TcxGridDBColumn
Tag = 11 Caption = #21253#25968
Caption = #25209#21495 DataBinding.FieldName = 'PacketNoNum'
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 73
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #21367#25968 Caption = #21367#25968
@ -443,30 +435,6 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn11: TcxGridDBColumn object cxGridDBColumn11: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'SumMeter' DataBinding.FieldName = 'SumMeter'
@ -475,9 +443,9 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn12: TcxGridDBColumn object cxGridDBColumn14: TcxGridDBColumn
Caption = #30721#25968 Caption = #31561#32423
DataBinding.FieldName = 'SumYardage' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -505,13 +473,13 @@ inherited frmTatClothInList: TfrmTatClothInList
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 104 Top = 104
Width = 1544 Width = 1540
Height = 28 Height = 28
Align = alTop Align = alTop
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 0 TabOrder = 0
DesignSize = ( DesignSize = (
1540 1536
24) 24)
object Label31: TLabel object Label31: TLabel
Left = 35 Left = 35
@ -606,7 +574,7 @@ inherited frmTatClothInList: TfrmTatClothInList
object Pnl_F1: TPanel object Pnl_F1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1544 Width = 1540
Height = 104 Height = 104
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -614,7 +582,6 @@ inherited frmTatClothInList: TfrmTatClothInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = -2
object Label2: TLabel object Label2: TLabel
Left = 77 Left = 77
Top = 41 Top = 41
@ -814,7 +781,7 @@ inherited frmTatClothInList: TfrmTatClothInList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 132 Top = 132
Width = 1544 Width = 1540
Height = 328 Height = 328
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
@ -830,7 +797,6 @@ inherited frmTatClothInList: TfrmTatClothInList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1Column8
end end
item item
Kind = skSum Kind = skSum
@ -851,11 +817,9 @@ inherited frmTatClothInList: TfrmTatClothInList
end end
item item
Kind = skSum Kind = skSum
Column = v1Column27
end end
item item
Kind = skSum Kind = skSum
Column = v1Column28
end end
item item
Kind = skSum Kind = skSum
@ -977,14 +941,6 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column6: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxgrdbclmnTv1Column13: TcxGridDBColumn object cxgrdbclmnTv1Column13: TcxGridDBColumn
Caption = #24067#31080#26465#30721 Caption = #24067#31080#26465#30721
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'
@ -1002,13 +958,20 @@ inherited frmTatClothInList: TfrmTatClothInList
Width = 66 Width = 66
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21697#36136 Caption = #31561#32423
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1PacketNo: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
@ -1017,30 +980,6 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
@ -1049,22 +988,6 @@ inherited frmTatClothInList: TfrmTatClothInList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

22
E04梭织坯布仓库/U_TatClothInList.pas
View File

@ -83,16 +83,11 @@ type
cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn; cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn; cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn; cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
Label18: TLabel; Label18: TLabel;
@ -103,7 +98,6 @@ type
Edit11: TcxTextEdit; Edit11: TcxTextEdit;
PM_2: TPopupMenu; PM_2: TPopupMenu;
MenuItem3: TMenuItem; MenuItem3: TMenuItem;
TV2Column1: TcxGridDBColumn;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn; v1Column22: TcxGridDBColumn;
@ -116,17 +110,11 @@ type
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn; v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
TV2Column5: TcxGridDBColumn; TV2Column5: TcxGridDBColumn;
BegDate2: TcxDateEdit; BegDate2: TcxDateEdit;
@ -138,6 +126,10 @@ type
lbl1: TLabel; lbl1: TLabel;
PCID: TcxTextEdit; PCID: TcxTextEdit;
cxgrdbclmnTv1Column13: TcxGridDBColumn; cxgrdbclmnTv1Column13: TcxGridDBColumn;
TV2PacketNo: TcxGridDBColumn;
Tv1PacketNo: TcxGridDBColumn;
TV2ConNo: TcxGridDBColumn;
TV2C_Code: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -251,16 +243,18 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,Subid,C_Name ,IOType,Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,C_Color'); sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),ConNo,OrderNo,Subid,C_Name,C_Code,IOType,Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,C_Color');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' ,(SELECT COUNT(DISTINCT PacketNo) FROM Tat_Cloth_Stock X inner join Tat_Cloth_io Y on X.stkID=Y.stkID where X.OrderNo = A.OrderNo and Y.IOFlag=''Èë¿â'' and CONVERT(VARCHAR(10),Y.iotime,120)=CONVERT(VARCHAR(10),A.IOTime,120) ' + WSql+ ' ) as PacketNoNum');
// SQL.Add(' ,');
sql.Add(' from V_Tat_Cloth_IO A where IOFlag=''Èë¿â'' '); sql.Add(' from V_Tat_Cloth_IO A where IOFlag=''Èë¿â'' ');
// if trim(FWorkshop) <> '' then // if trim(FWorkshop) <> '' then
// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); // sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
sql.Add(WSql); sql.Add(WSql);
sql.Add(' GROUP BY CONVERT(VARCHAR(10),IOTime,120),OrderNo,Subid,C_Name ,IOType ,Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,C_Color'); sql.Add(' GROUP BY CONVERT(VARCHAR(10),IOTime,120),ConNo,OrderNo,Subid,C_Name,C_Code,IOType ,Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,C_Color');
// ShowMessage(SQL.Text); // ShowMessage(SQL.Text);
Open; Open;
end; end;

155
E04梭织坯布仓库/U_TatClothOutList.dfm
View File

@ -325,6 +325,8 @@ inherited frmTatClothOutList: TfrmTatClothOutList
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 1 TabOrder = 1
ExplicitLeft = 3
ExplicitTop = 101
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -336,7 +338,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn8
end end
item item
Kind = skSum Kind = skSum
@ -356,11 +357,9 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn9
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn10
end end
item item
Kind = skSum Kind = skSum
@ -397,7 +396,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 96
end end
object TV2Column5: TcxGridDBColumn object TV2Column5: TcxGridDBColumn
Tag = 11 Tag = 11
@ -406,7 +405,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 90
end end
object cxGridDBColumn13: TcxGridDBColumn object cxGridDBColumn13: TcxGridDBColumn
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
@ -414,10 +413,10 @@ inherited frmTatClothOutList: TfrmTatClothOutList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 75 Width = 86
end end
object TV2Column3: TcxGridDBColumn object TV2Column3: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNO' DataBinding.FieldName = 'ConNO'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -440,6 +439,14 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object TV2Column4: TcxGridDBColumn object TV2Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
@ -448,14 +455,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object cxGridDBColumn15: TcxGridDBColumn object cxGridDBColumn15: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
@ -470,7 +469,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 67
end end
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
@ -480,14 +479,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object TV2Column2: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #21367#25968 Caption = #21367#25968
DataBinding.FieldName = 'SumPieceNo' DataBinding.FieldName = 'SumPieceNo'
@ -496,30 +487,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn11: TcxGridDBColumn object cxGridDBColumn11: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'SumMeter' DataBinding.FieldName = 'SumMeter'
@ -528,16 +495,15 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn12: TcxGridDBColumn object TV2PacketNoNum: TcxGridDBColumn
Caption = #30721#25968 Caption = #21253#25968
DataBinding.FieldName = 'SumYardage' DataBinding.FieldName = 'PacketNoNum'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 66
end end
object cxGridDBColumn14: TcxGridDBColumn object cxGridDBColumn14: TcxGridDBColumn
Caption = #21697#36136 Caption = #31561#32423
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -872,6 +838,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 131
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -883,7 +850,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1Column8
end end
item item
Kind = skSum Kind = skSum
@ -904,11 +870,9 @@ inherited frmTatClothOutList: TfrmTatClothOutList
end end
item item
Kind = skSum Kind = skSum
Column = v1Column27
end end
item item
Kind = skSum Kind = skSum
Column = v1Column28
end end
item item
Kind = skSum Kind = skSum
@ -1027,13 +991,36 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column6: TcxGridDBColumn object Tv1PCID: TcxGridDBColumn
Caption = #25209#21495 Caption = #24067#31080#26465#30721
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 88
end
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66 Width = 66
end end
object v1Column12: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1PacketNo: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
@ -1042,30 +1029,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
@ -1074,22 +1037,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
@ -1098,14 +1045,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

14
E04梭织坯布仓库/U_TatClothOutList.pas
View File

@ -95,18 +95,13 @@ type
cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn; cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn; cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn; cxGridDBColumn16: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn; TV2Column5: TcxGridDBColumn;
PM_2: TPopupMenu; PM_2: TPopupMenu;
MenuItem3: TMenuItem; MenuItem3: TMenuItem;
@ -122,17 +117,12 @@ type
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn; v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn; v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Label2: TLabel; Label2: TLabel;
chk_F1: TcxCheckBox; chk_F1: TcxCheckBox;
@ -144,6 +134,9 @@ type
chk_F2: TcxCheckBox; chk_F2: TcxCheckBox;
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn; TV2Column4: TcxGridDBColumn;
TV2PacketNoNum: TcxGridDBColumn;
Tv1PacketNo: TcxGridDBColumn;
Tv1PCID: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -259,6 +252,7 @@ begin
sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),ConNo,OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color,IONO'); sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),ConNo,OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color,IONO');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' ,(SELECT COUNT(DISTINCT PacketNo) FROM Tat_Cloth_Stock X inner join Tat_Cloth_io Y on X.stkID=Y.stkID where X.OrderNo = A.OrderNo and Y.IOFlag=''³ö¿â'' and CONVERT(VARCHAR(10),Y.iotime,120)=CONVERT(VARCHAR(10),A.IOTime,120) ' + WSql+ ' ) as PacketNoNum');
sql.Add(' from V_Tat_Cloth_IO A '); sql.Add(' from V_Tat_Cloth_IO A ');
sql.Add(' where IOFlag=''³ö¿â'' and 1=1' + WSql); sql.Add(' where IOFlag=''³ö¿â'' and 1=1' + WSql);
// if trim(FWorkshop) <> '' then // if trim(FWorkshop) <> '' then

194
E04梭织坯布仓库/U_TatClothStkList.dfm
View File

@ -86,15 +86,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ExplicitTop = 36
ClientRectBottom = 570 ClientRectBottom = 570
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' ' Caption = ' '#20135#21697#27719#24635#20449#24687' '
ImageIndex = 0 ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Pnl_F2: TPanel object Pnl_F2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -283,6 +281,8 @@ inherited frmTatClothStkList: TfrmTatClothStkList
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 1 TabOrder = 1
ExplicitLeft = -3
ExplicitTop = 81
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -295,7 +295,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn8
end end
item item
Kind = skSum Kind = skSum
@ -315,11 +314,9 @@ inherited frmTatClothStkList: TfrmTatClothStkList
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn9
end end
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn10
end end
item item
Kind = skSum Kind = skSum
@ -350,29 +347,12 @@ inherited frmTatClothStkList: TfrmTatClothStkList
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30 OptionsView.IndicatorWidth = 30
object cxGridDBColumn2: TcxGridDBColumn object TV2ConNo: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 111
Width = 70
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end end
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Tag = 11 Tag = 11
@ -383,9 +363,9 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
end end
object TV2Column1: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #23458#25143
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -397,7 +377,15 @@ inherited frmTatClothStkList: TfrmTatClothStkList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 89 Width = 105
end
object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end end
object cxGridDBColumn15: TcxGridDBColumn object cxGridDBColumn15: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
@ -423,21 +411,12 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object cxGridDBColumn18: TcxGridDBColumn object TV2PacketNoNum: TcxGridDBColumn
Caption = #25209#21495 Caption = #21253#25968
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'PacketNoNum'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 66
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #21367#25968 Caption = #21367#25968
@ -447,30 +426,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn11: TcxGridDBColumn object cxGridDBColumn11: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'SumMeter' DataBinding.FieldName = 'SumMeter'
@ -479,22 +434,14 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object cxGridDBColumn12: TcxGridDBColumn object cxGridDBColumn14: TcxGridDBColumn
Caption = #30721#25968 Caption = #31561#32423
DataBinding.FieldName = 'SumYardage' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object TV2Column2: TcxGridDBColumn
Caption = #24211#40836
DataBinding.FieldName = 'kl'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2
@ -504,9 +451,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#26126#32454#20449#24687' ' Caption = ' '#20135#21697#26126#32454#20449#24687' '
ImageIndex = 1 ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 102 Top = 102
@ -849,6 +793,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 133
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -860,15 +805,12 @@ inherited frmTatClothStkList: TfrmTatClothStkList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1Column8
end end
item item
Kind = skSum Kind = skSum
Column = v1Column27
end end
item item
Kind = skSum Kind = skSum
Column = v1Column28
end end
item item
Kind = skSum Kind = skSum
@ -876,7 +818,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column10
end end
item item
Kind = skCount Kind = skCount
@ -909,14 +850,14 @@ inherited frmTatClothStkList: TfrmTatClothStkList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 96
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
Width = 66 Width = 85
end end
object v1Column32: TcxGridDBColumn object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
@ -974,13 +915,36 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column6: TcxGridDBColumn object Tv1PCID: TcxGridDBColumn
Caption = #25209#21495 Caption = #24067#31080#26465#30721
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66 Width = 66
end end
object v1Column12: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1PacketNo: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
@ -989,30 +953,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
@ -1021,22 +961,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
@ -1045,14 +969,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
end end
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

45
E04梭织坯布仓库/U_TatClothStkList.pas
View File

@ -14,23 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore, dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI
;
type type
TfrmTatClothStkList = class(TfrmBaseList) TfrmTatClothStkList = class(TfrmBaseList)
@ -93,21 +77,14 @@ type
DS_2: TDataSource; DS_2: TDataSource;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
TV2: TcxGridDBTableView; TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn; cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn; cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
Label18: TLabel; Label18: TLabel;
@ -121,7 +98,6 @@ type
PM_2: TPopupMenu; PM_2: TPopupMenu;
MenuItem1: TMenuItem; MenuItem1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
TV2Column2: TcxGridDBColumn;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn; v1Column22: TcxGridDBColumn;
@ -132,18 +108,13 @@ type
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn; v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn; v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Label1: TLabel; Label1: TLabel;
BegDate2: TcxDateEdit; BegDate2: TcxDateEdit;
@ -154,6 +125,10 @@ type
BegDate: TcxDateEdit; BegDate: TcxDateEdit;
EndDate: TcxDateEdit; EndDate: TcxDateEdit;
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
TV2PacketNoNum: TcxGridDBColumn;
Tv1PacketNo: TcxGridDBColumn;
TV2ConNo: TcxGridDBColumn;
Tv1PCID: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -254,13 +229,14 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); sql.Add(' select ConNo,OrderNo,C_Code,C_Name,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' ,(SELECT COUNT(DISTINCT PacketNo) FROM Tat_Cloth_Stock X inner join Tat_Cloth_io Y on X.stkID=Y.stkID and X.StkCycles=Y.IOCycles where X.OrderNo = A.OrderNo and X.StkExists=1 and Y.IOFlag=''Èë¿â'' ' + WSql+ ') as PacketNoNum');
sql.Add(' from V_Tat_Cloth_Stk A where 1=1 '); sql.Add(' from V_Tat_Cloth_Stk A where 1=1 ');
sql.Add(WSql); sql.Add(WSql);
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); sql.Add(' GROUP BY ConNo,OrderNo,C_Code,C_Name,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
@ -321,7 +297,6 @@ end;
procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject); procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
end; end;
@ -387,8 +362,8 @@ end;
procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then // if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5; // ACanvas.Brush.Color := $B3DEF5;
end; end;
procedure TfrmTatClothStkList.BTNPClick(Sender: TObject); procedure TfrmTatClothStkList.BTNPClick(Sender: TObject);

1084
E04梭织坯布仓库/U_TatClothStkScanSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

Some files were not shown because too many files have changed in this diff Show More