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
Connection = ADOConnection1
Left = 297
Top = 128
Top = 127
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = ADOConnection1
Left = 193
Top = 129
Top = 128
end
inherited ImageList_new32: TImageList
Left = 344

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

@ -122,7 +122,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 79
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -357,14 +356,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
HeaderAlignmentHorz = taCenter
Width = 71
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
Caption = #32433#32447#25104#20998
DataBinding.FieldName = 'Y_Composition'

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

@ -38,7 +38,6 @@ type
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
@ -158,8 +157,10 @@ begin
begin
Close;
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('from V_HT_SX GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND');
SQL.add('select ConNo,ConMId,ConSId,FROMCPMID,BuyConNo,Z_Number,max(ConDate) as ConDate,max(DlyDate) as DlyDate ');
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);
Open;
end;

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

@ -81,27 +81,27 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
object Label1: TLabel
Left = 736
Top = 13
Width = 32
Width = 64
Height = 21
Caption = #35268#26684
Caption = #32433#32447#21517#31216
end
object Label2: TLabel
Left = 736
Top = 45
Width = 71
Left = 768
Top = 44
Width = 32
Height = 21
Caption = #32463#32433'/'#32428#32433
Caption = #25104#20998
end
object Label3: TLabel
Left = 282
Top = 45
Left = 528
Top = 44
Width = 48
Height = 21
Caption = #20379#24212#21830
end
object Label4: TLabel
Left = 266
Top = 13
Left = 512
Top = 12
Width = 64
Height = 21
Caption = #37319#36141#21333#21495
@ -116,32 +116,32 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
object Label6: TLabel
Left = 986
Top = 13
Width = 48
Width = 32
Height = 21
Caption = #21046#21333#20154
Caption = #25903#25968
end
object Label7: TLabel
Left = 514
Top = 45
Width = 32
Left = 267
Top = 44
Width = 80
Height = 21
Caption = #21697#21517
Caption = #38754#26009#21512#21516#21495
end
object Label8: TLabel
Left = 514
Top = 13
Width = 32
Left = 267
Top = 17
Width = 80
Height = 21
Caption = #32534#21495
Caption = #22383#24067#21512#21516#21495
end
object Y_Spec: TEdit
object Y_Composition: TEdit
Tag = 2
Left = 814
Top = 41
Width = 150
Height = 29
TabOrder = 0
OnChange = Y_SpecChange
OnKeyPress = PurNoKeyPress
end
object Y_Name: TEdit
Tag = 2
@ -150,25 +150,25 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Width = 150
Height = 29
TabOrder = 1
OnChange = Y_SpecChange
OnKeyPress = PurNoKeyPress
end
object SellName: TEdit
Tag = 2
Left = 334
Top = 41
Left = 580
Top = 40
Width = 150
Height = 29
TabOrder = 2
OnChange = Y_SpecChange
OnKeyPress = PurNoKeyPress
end
object PurNo: TEdit
Tag = 2
Left = 334
Top = 9
Left = 580
Top = 6
Width = 150
Height = 29
TabOrder = 3
OnChange = Y_SpecChange
OnKeyPress = PurNoKeyPress
end
object BegDate: TDateTimePicker
Left = 112
@ -202,32 +202,32 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
State = cbChecked
TabOrder = 6
end
object Filler: TEdit
object ZS: TEdit
Tag = 2
Left = 1040
Left = 1023
Top = 9
Width = 150
Height = 29
TabOrder = 7
OnChange = Y_SpecChange
OnKeyPress = PurNoKeyPress
end
object Yarn_Name: TEdit
object CPConNo: TEdit
Tag = 2
Left = 566
Top = 41
Left = 352
Top = 39
Width = 150
Height = 29
TabOrder = 8
OnChange = Y_SpecChange
OnKeyPress = PurNoKeyPress
end
object Y_Code: TEdit
object ConNo: TEdit
Tag = 2
Left = 566
Top = 9
Left = 352
Top = 7
Width = 150
Height = 29
TabOrder = 9
OnChange = Y_SpecChange
OnKeyPress = PurNoKeyPress
end
end
object cxGrid1: TcxGrid [2]
@ -268,11 +268,9 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
end
item
Kind = skSum
Column = Tv1Column25
end
item
Kind = skSum
Column = Tv1Column28
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -302,6 +300,20 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Options.Editing = False
Width = 120
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
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
@ -318,21 +330,12 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Options.Editing = False
Width = 94
end
object Tv1Column8: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'BuyName'
object Tv1C_Degree: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object Tv1Column17: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkName2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #32534#21495
@ -340,62 +343,40 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
Width = 80
end
object Tv1Column19: TcxGridDBColumn
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.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 80
end
object v1SPSpec: TcxGridDBColumn
Tag = 2
Caption = #32463#32433'/'#32428#32433
DataBinding.FieldName = 'Y_Spec'
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 105
Width = 80
end
object Tv1Column20: TcxGridDBColumn
Caption = 'D'#25968
object Tv1Y_Color: TcxGridDBColumn
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.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Width = 126
end
object Tv1Column21: TcxGridDBColumn
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
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.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -412,71 +393,6 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
VisibleForCustomization = False
Width = 66
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
Tag = 2
Caption = #36816#36153
@ -488,8 +404,29 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
VisibleForCustomization = False
Width = 66
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
Caption = #25968#37327#21333#20301
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -505,77 +442,19 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Options.Editing = False
Width = 66
end
object Tv1Column12: TcxGridDBColumn
Caption = #21040#36135#25968#37327
DataBinding.FieldName = 'YDHQty'
object Tv1YRKPiece: TcxGridDBColumn
Caption = #24050#20837#24211#21305#25968
DataBinding.FieldName = 'YRKPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
Width = 118
end
object Tv1Column13: TcxGridDBColumn
Caption = #26410#21040#36135#25968#37327
DataBinding.FieldName = 'WDHQty'
object Tv1CYRKQty: TcxGridDBColumn
Caption = #24050#20837#24211#25968#37327
DataBinding.FieldName = 'YRKQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
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
Width = 103
end
end
object cxGrid1Level1: TcxGridLevel
@ -1185,6 +1064,7 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Top = 248
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 352
Top = 336

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

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

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

@ -1,79 +1,79 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.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.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.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.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.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.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.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.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.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.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.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.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.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.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.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.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.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.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.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.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.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/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>

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

Binary file not shown.

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

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

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

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

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

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

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

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

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

@ -634,6 +634,11 @@ begin
FieldByName('Y_Composition').Value := null;
FieldByName('MeterQty').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;
end;
end;
@ -665,6 +670,11 @@ begin
FieldByName('Y_Composition').Value := null;
FieldByName('MeterQty').Value := null;
FieldByName('PTNo').Value := null;
FieldByName('Z_Number').Value := null;
FieldByName('QFYARNQTY').Value := null;
FieldByName('YarnFactor').Value := null;
FieldByName('NOTE').Value := null;
Post;
end;
end;
@ -877,24 +887,6 @@ begin
try
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
begin
@ -912,6 +904,28 @@ begin
begin
maxId := Trim(FBCIID);
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
begin
Close;

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

@ -46,7 +46,9 @@ uses
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.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}

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

@ -4,7 +4,7 @@
<MainSource>Financial.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</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)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent>
<Base>true</Base>
</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)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<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>
</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)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
@ -113,15 +78,6 @@
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</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)'!=''">
<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>
@ -261,6 +217,14 @@
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.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">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
@ -283,10 +247,6 @@
</Source>
</Delphi.Personality>
<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="Win64">False</Platform>
</Platforms>

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

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

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

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

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

@ -3,11 +3,11 @@ inherited frmExpenseList: TfrmExpenseList
Top = 101
Caption = #36153#29992#31649#29702
ClientHeight = 590
ClientWidth = 1625
ClientWidth = 1540
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1641
ExplicitWidth = 1556
ExplicitHeight = 629
PixelsPerInch = 96
TextHeight = 21
@ -15,7 +15,7 @@ inherited frmExpenseList: TfrmExpenseList
Tag = 1
Left = 0
Top = 0
Width = 1625
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
@ -76,24 +76,48 @@ inherited frmExpenseList: TfrmExpenseList
ImageIndex = 11
OnClick = btnReChkClick
end
object ToolButton9: TToolButton
object TbnPay: TToolButton
Left = 458
Top = 0
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
ImageIndex = 22
OnClick = ToolButton9Click
end
object ToolButton4: TToolButton
Left = 561
Left = 735
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton4Click
end
object TbPrint: TToolButton
Left = 806
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TbPrintClick
end
object ToolButton5: TToolButton
Left = 632
Left = 877
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -101,7 +125,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 735
Left = 980
Top = 0
AutoSize = True
Caption = #20851#38381
@ -112,7 +136,7 @@ inherited frmExpenseList: TfrmExpenseList
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1625
Width = 1540
Height = 65
Align = alTop
BevelInner = bvRaised
@ -242,10 +266,10 @@ inherited frmExpenseList: TfrmExpenseList
object cxGrid1: TcxGrid [2]
Left = 0
Top = 124
Width = 1625
Width = 1540
Height = 466
Align = alClient
PopupMenu = PopupMenu1
PopupMenu = PM_1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -268,7 +292,7 @@ inherited frmExpenseList: TfrmExpenseList
end
item
Kind = skSum
Column = Tv1Column17
Column = Tv1Amount
end
item
Kind = skSum
@ -290,9 +314,9 @@ inherited frmExpenseList: TfrmExpenseList
HeaderAlignmentHorz = taCenter
Width = 44
end
object v2CRTime: TcxGridDBColumn
object Tv1FFTime: TcxGridDBColumn
Tag = 7
Caption = #26085#26399
Caption = #30003#35831#26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
@ -300,107 +324,137 @@ inherited frmExpenseList: TfrmExpenseList
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 101
end
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
object Tv1ReimburseType: TcxGridDBColumn
Caption = #25253#38144#31867#22411
DataBinding.FieldName = 'ReimburseType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1ReimburseTypePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
Width = 91
end
object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'VND')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
Width = 88
end
object v2OrderNo: 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
object Tv1Amount: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 90
end
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
object Tv1TaxNumber: TcxGridDBColumn
Caption = #31246#21495
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
HeaderAlignmentHorz = taCenter
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
object Tv1Column5: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
Caption = #20184#27454#26085#26399
DataBinding.FieldName = 'PayTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
@ -413,7 +467,7 @@ inherited frmExpenseList: TfrmExpenseList
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 95
Width = 1625
Width = 1540
Height = 29
Align = alTop
TabOrder = 3
@ -423,13 +477,20 @@ inherited frmExpenseList: TfrmExpenseList
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#24050#20184#27454
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited loadProcess: TPanel
Top = 176
ExplicitTop = 176
end
inherited cxProgressBar2: TcxProgressBar
Top = 89
ExplicitTop = 89
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
@ -504,7 +565,7 @@ inherited frmExpenseList: TfrmExpenseList
Left = 544
Top = 360
end
object PopupMenu1: TPopupMenu
object PM_1: TPopupMenu
Left = 544
Top = 288
object N1: TMenuItem

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

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, cxContainer, dxCore,
cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
cxProgressBar;
cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar;
type
TfrmExpenseList = class(TfrmBaseList)
@ -34,7 +33,7 @@ type
OppCoName: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn;
Tv1FFTime: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
@ -45,16 +44,15 @@ type
Label4: TLabel;
Label6: TLabel;
P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn;
Tv1OppBankName: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Label10: TLabel;
ConNo: TcxTextEdit;
Label11: TLabel;
BuyConNo: TcxTextEdit;
v2Column2: TcxGridDBColumn;
btnChk: TToolButton;
btnReChk: TToolButton;
PopupMenu1: TPopupMenu;
PM_1: TPopupMenu;
N1: TMenuItem;
ToolButton4: TToolButton;
Label2: TLabel;
@ -62,16 +60,16 @@ type
ToolButton5: TToolButton;
N2: TMenuItem;
btnEdit: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1OppBankCardNo: TcxGridDBColumn;
Tv1OurBankName: TcxGridDBColumn;
Tv1OurBankCardNo: TcxGridDBColumn;
Tv1Amount: TcxGridDBColumn;
Tv1Currency: TcxGridDBColumn;
Tv1ReimburseType: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Status: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1PayStatus: TcxGridDBColumn;
ToolButton9: TToolButton;
N3: TMenuItem;
Tv1Column5: TcxGridDBColumn;
@ -79,6 +77,11 @@ type
begdate: TcxDateEdit;
Enddate: TcxDateEdit;
CheckBox1: TcxCheckBox;
Tv1TaxNumber: TcxGridDBColumn;
Tv1PrintStatus: TcxGridDBColumn;
TbnPay: TToolButton;
TbnRePay: TToolButton;
TbPrint: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -97,6 +100,10 @@ type
procedure ToolButton9Click(Sender: TObject);
procedure N1Click(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
procedure InitGrid();
procedure SetStatus();
@ -107,7 +114,8 @@ type
implementation
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}
procedure TfrmExpenseList.SetStatus();
@ -115,12 +123,14 @@ begin
btnChk.Enabled := false; //审核
btnReChk.Enabled := false; //撤销
TbnPay.Enabled := false; //付款
TbnRePay.Enabled := false; //撤销
btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
// if Trim(FAuthority) = '¹ÜÀí' then
if Trim(FAuthority) = '审核' then
begin
btnAdd.Enabled := true;
case cxTabControl1.TabIndex of
@ -133,6 +143,26 @@ begin
1:
begin
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;
2:
begin
@ -164,17 +194,21 @@ begin
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(status,''0'')=''0'' ');
sql.Add(' and Checkstatus=''未审核'' ');
end;
1:
begin
sql.Add(' and isnull(status,''9'')=''9'' ');
sql.Add(' and Checkstatus=''已审核'' and PayStatus=''未付款'' ');
end;
2:
begin
sql.Add(' and PayStatus=''已付款'' ');
end;
end;
if CheckBox1.Checked then
begin
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;
sql.Add(WSql);
Open;
@ -216,6 +250,203 @@ begin
Close;
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);
var
FFFIDS: string;
@ -264,9 +495,10 @@ end;
procedure TfrmExpenseList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
ReadCxGrid(trim(Self.Caption), Tv1, '费用管理');
Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date - 30;
FAuthority := self.fParameters1;
SetStatus();
InitGrid();
end;
@ -369,18 +601,19 @@ begin
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)));
// 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
@ -430,18 +663,18 @@ begin
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)));
// 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('撤销审核成功', '提示');
@ -479,7 +712,7 @@ end;
procedure TfrmExpenseList.ToolButton5Click(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
WriteCxGrid(trim(Self.Caption), Tv1, '费用管理');
end;
procedure TfrmExpenseList.btnEditClick(Sender: TObject);
@ -537,7 +770,26 @@ begin
finally
frmAttachmentUpload.Free;
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;
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
Caption = #35745#21010#21333#36873#25321
ClientHeight = 643
ClientWidth = 1585
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 1601
ExplicitWidth = 1556
ExplicitHeight = 682
PixelsPerInch = 96
TextHeight = 12
@ -18,7 +18,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
Tag = 1
Left = 0
Top = 0
Width = 1585
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
@ -64,12 +64,13 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1585
Width = 1540
Height = 59
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 44
object Label3: TLabel
Left = 39
Top = 10
@ -228,13 +229,15 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object cxGrid1: TcxGrid [2]
Left = 0
Top = 97
Width = 1585
Width = 1540
Height = 546
Align = alClient
TabOrder = 2
ExplicitLeft = -8
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -250,6 +253,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column7: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
@ -258,6 +262,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column11: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -265,14 +270,16 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 72
end
object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -281,6 +288,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
@ -291,24 +299,15 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
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
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -317,6 +316,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -325,6 +325,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -333,6 +334,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column1: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -340,6 +342,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -348,6 +351,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1MPRTKZ: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -356,6 +360,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -364,6 +369,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -372,6 +378,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column6: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -380,12 +387,14 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column4: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -394,6 +403,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column5: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -402,6 +412,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object v1Column3: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'PRTOrderKgQty'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -410,6 +421,7 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
object Tv1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66

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

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

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

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

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

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

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

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

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

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

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

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, cxContainer, dxCore,
cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
cxProgressBar;
cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar;
type
TfrmPayList = class(TfrmBaseList)
@ -34,24 +33,24 @@ type
OppCoName: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn;
Tv1FFTime: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
btnAdd: TToolButton;
v2FactoryName: TcxGridDBColumn;
Tv1OppCoName: TcxGridDBColumn;
F_Name: TcxTextEdit;
Label4: TLabel;
Label6: TLabel;
P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn;
Tv1BuyConNo: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Label10: TLabel;
ConNo: TcxTextEdit;
Label11: TLabel;
BuyConNo: TcxTextEdit;
v2Column2: TcxGridDBColumn;
Tv1OurCoName: TcxGridDBColumn;
btnChk: TToolButton;
btnReChk: TToolButton;
PopupMenu1: TPopupMenu;
@ -62,26 +61,36 @@ type
ToolButton5: TToolButton;
N2: TMenuItem;
btnEdit: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1OurBankName: TcxGridDBColumn;
Tv1OppBankName: TcxGridDBColumn;
Tv1PayMent: TcxGridDBColumn;
Tv1Amount: TcxGridDBColumn;
Tv1Currency: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1FFAbstract: TcxGridDBColumn;
ToolButton9: TToolButton;
N3: TMenuItem;
Tv1Column5: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
Tv1Column6: TcxGridDBColumn;
Tv1FJFlag: TcxGridDBColumn;
Label1: TLabel;
begdate: TcxDateEdit;
Enddate: TcxDateEdit;
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 TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -102,6 +111,9 @@ type
procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure TbFinPayClick(Sender: TObject);
procedure TbReFinPayClick(Sender: TObject);
procedure TbPrintClick(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -112,7 +124,7 @@ type
implementation
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}
procedure TfrmPayList.SetStatus();
@ -125,7 +137,10 @@ begin
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
// if Trim(FAuthority) = '¹ÜÀí' then
TbFinPay.Enabled := False;
TbReFinPay.Enabled := False;
// ShowMessage(FAuthority);
if Trim(FAuthority) = '管理' then
begin
btnAdd.Enabled := true;
case cxTabControl1.TabIndex of
@ -138,6 +153,26 @@ begin
1:
begin
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;
2:
begin
@ -172,11 +207,15 @@ begin
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(status,''0'')=''0'' ');
sql.Add(' and isnull(Checkstatus,''0'')=''未审核'' ');
end;
1:
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;
if CheckBox1.Checked then
@ -224,6 +263,55 @@ begin
Close;
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);
var
FFFIDS: string;
@ -237,6 +325,9 @@ begin
Exit;
end;
if Application.MessageBox('确定要删除所选数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with CDS_1 do
begin
DisableControls;
@ -278,18 +369,68 @@ begin
ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date - 30;
FAuthority := self.fParameters1;
SetStatus();
InitGrid();
end;
procedure TfrmPayList.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
begdate.SetFocus;
InitGrid();
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);
var
mvalue, FFieldName: string;
@ -380,18 +521,18 @@ begin
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)));
// 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
@ -442,18 +583,18 @@ begin
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)));
// 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('撤销审核成功', '提示');
@ -520,6 +661,77 @@ begin
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);
begin
if ADOQueryMain.IsEmpty then
@ -534,6 +746,14 @@ end;
procedure TfrmPayList.btnEditClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
try
with ADOQueryCmd do
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 := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
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);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
@ -192,7 +192,7 @@ begin
FCoType := '¹©Ó¦ÉÌ';
if ShowModal = 1 then
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);
end;
end;
@ -231,7 +231,7 @@ begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
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);
end;
end;

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

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

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

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

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

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

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

@ -188,11 +188,11 @@ begin
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(status,''0'')=''0'' ');
sql.Add(' and isnull(Checkstatus,''δÉóºË'')=''δÉóºË'' ');
end;
1:
begin
sql.Add(' and isnull(status,''0'')=''9'' ');
sql.Add(' and isnull(Checkstatus,''δÉóºË'')=''ÒÑÉóºË'' ');
end;
end;
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"?>
<BorlandProject>
<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.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.441,=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.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.630,=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.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.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.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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.422,=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.569,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.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.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.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.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.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.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.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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</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.950,=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.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.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.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.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<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
ShowCaptions = True
TabOrder = 0
ExplicitTop = 1
object TBSave: TToolButton
Left = 0
Top = 0
@ -71,7 +70,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 36
object Label3: TLabel
Left = 330
Top = 118
@ -801,7 +799,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentFont = False
ShowCaptions = True
TabOrder = 2
ExplicitTop = 407
object ToolButton4: TToolButton
Left = 0
Top = 0
@ -844,7 +841,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 3
ExplicitTop = 437
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

1
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('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('FromCPConNo').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConNo').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('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CP_QTY').ASFLOAT;

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

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

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

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

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

@ -55,6 +55,8 @@ type
ToolButton3: TToolButton;
TbSave: TToolButton;
Tv1SSel: TcxGridDBColumn;
Tv1CHNName: TcxGridDBColumn;
Tv1VieName: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -204,6 +206,26 @@ begin
Post;
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;
Next;
end;

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

@ -35,7 +35,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
end
item
Kind = skSum
Column = v2Column6
Column = Tv2Qty
end
item
Kind = skSum
@ -48,7 +48,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1Column6: TcxGridDBColumn
object Tv1BYIOID: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True
@ -56,7 +56,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Options.Editing = False
Width = 83
end
object v1Column2: TcxGridDBColumn
object Tv1IOTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
@ -66,7 +66,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter
Width = 100
end
object v1Column4: TcxGridDBColumn
object Tv1IOType: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
@ -84,25 +84,9 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter
Width = 87
end
object v1FactoryName: 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
object Tv1FromCoName: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
@ -115,22 +99,21 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter
Width = 130
end
object Tv1Column1: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
object Tv1FromPurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 81
Width = 87
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
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
@ -138,7 +121,14 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Options.Editing = False
Width = 72
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
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
@ -153,97 +143,56 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter
Width = 101
end
object Tv1Column12: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
Width = 90
end
object Tv1Column2: 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
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column5: TcxGridDBColumn
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column6: TcxGridDBColumn
Caption = #29702#35770'D'#25968
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column11: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108
end
object Tv1Column13: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column16: TcxGridDBColumn
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column17: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column1: TcxGridDBColumn
object Tv1BatchNo: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object v2Column6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00'
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column3: TcxGridDBColumn
object Tv1Piece: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
@ -253,6 +202,27 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter
Width = 59
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
Caption = #21333#21253#37325#37327
DataBinding.FieldName = 'dbWeight'
@ -279,39 +249,92 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Options.Editing = False
Width = 80
end
object v1QtyUnit: 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
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
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
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -18,53 +18,58 @@ type
TfrmYarnInEdit = class(TfrmBaseInput)
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
Tv1Y_Name: TcxGridDBColumn;
Tv2Qty: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ToolBar1: TToolBar;
TBAdd: TToolButton;
TBDel: TToolButton;
TBSave: TToolButton;
TBClose: TToolButton;
v1Column4: TcxGridDBColumn;
Tv1IOType: TcxGridDBColumn;
DS_1: TDataSource;
CDS_Sub: TClientDataSet;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
GPM_1: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn;
v1FactoryName: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
Tv1BYIOID: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1BatchNo: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Piece: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn;
Tv1Y_Code: TcxGridDBColumn;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
OpenDialog1: TOpenDialog;
CDS_LM: TClientDataSet;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1FromCoName: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1Column13: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1FF: TcxGridDBColumn;
Tv1dbWeight: TcxGridDBColumn;
Tv1dbNumber: TcxGridDBColumn;
Tv1singleWeight: TcxGridDBColumn;
Tv1SXCPM: 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 TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -197,14 +202,14 @@ begin
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Yarn_IO', 0);
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').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('FromPurMId').Value := CDS_Sub.fieldbyname('FromPurMId').Value;
FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').Value;
FieldByName('FromPurNo').Value := CDS_Sub.fieldbyname('FromPurNo').Value;
// FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
// FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').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('FromPurMId').Value := CDS_Sub.fieldbyname('FromPurMId').Value;
// FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').Value;
// FieldByName('FromPurNo').Value := CDS_Sub.fieldbyname('FromPurNo').Value;
FieldByName('BYIOID').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
@ -431,38 +436,64 @@ begin
with Self.CDS_Sub do
begin
Append;
FieldByName('IOType').Value := '²É¹ºÈë¿â';
FieldByName('FromCoName').Value := CDS_1.fieldbyname('SellName').value;//윱菱데貫 묩壇<EFBFBD>
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_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('Denier').Value := CDS_1.fieldbyname('Denier').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('ND').Value := CDS_1.fieldbyname('ND').value;
FieldByName('Qty').Value := CDS_1.fieldbyname('Qty').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('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('FromMainId').Value := CDS_1.fieldbyname('PurMId').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('FromPurSId').Value := CDS_1.fieldbyname('PurSId').value;
// FieldByName('FromPurMId').Value := CDS_1.fieldbyname('PurMId').value;
// FieldByName('FromPurSId').Value := CDS_1.fieldbyname('PurSId').value;
end;
end;
@ -667,8 +698,9 @@ begin
with Self.CDS_Sub do
begin
Edit;
// FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('Supplier').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('FromCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Post;
end;
end;
end;

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

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

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

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

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

@ -77,6 +77,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitTop = 24
object Label7: TLabel
Left = 10
Top = 204
@ -184,9 +185,22 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object Label16: TLabel
Left = 796
Top = 34
Width = 240
Width = 284
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.Color = clRed
Font.Height = -16
@ -334,7 +348,6 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Properties.OnChange = Y_CompositionPropertiesChange
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@ -441,6 +454,20 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
HeaderAlignmentHorz = taCenter
Width = 80
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
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -448,13 +475,13 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1
Left = 910
Top = 90
Left = 926
Top = 146
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = ADOConnection1
Left = 861
Top = 91
Left = 869
Top = 163
end
inherited ImageList_new32: TImageList
Left = 1192
@ -469,27 +496,27 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
object ADOQueryCmd: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 816
Top = 88
Left = 808
Top = 136
end
object ADOQueryMain: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 72
Left = 1056
Top = 144
end
object ADOQueryTemp: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
Left = 1096
Top = 72
Left = 1112
Top = 120
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 968
Top = 80
Left = 992
Top = 128
end
object CDS_1: TClientDataSet
Aggregates = <>

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

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

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

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

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

@ -2,15 +2,16 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Left = 65
Top = 113
Caption = #20986#24211#30331#35760
ClientHeight = 447
ClientHeight = 572
ClientWidth = 1406
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
ExplicitLeft = -247
ExplicitWidth = 1422
ExplicitHeight = 486
ExplicitHeight = 611
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -74,10 +75,10 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Left = 0
Top = 30
Width = 1406
Height = 417
Height = 542
Align = alClient
TabOrder = 1
ExplicitLeft = 8
ExplicitLeft = -8
ExplicitTop = 22
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
@ -94,7 +95,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
end
item
Kind = skSum
Column = v2Column6
Column = Tv1Qty
end
item
Kind = skSum
@ -109,7 +110,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1Column6: TcxGridDBColumn
object Tv1BYIOID: TcxGridDBColumn
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True
@ -117,7 +118,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False
Width = 91
end
object v1Column2: TcxGridDBColumn
object Tv1IOTime: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
@ -127,7 +128,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
HeaderAlignmentHorz = taCenter
Width = 104
end
object v1CRType: TcxGridDBColumn
object Tv1IOType: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
@ -164,7 +165,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
VisibleForCustomization = False
Width = 99
end
object Tv1Column2: TcxGridDBColumn
object Tv1ToCoName: TcxGridDBColumn
Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
@ -177,119 +178,9 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 92
Width = 94
end
object Tv1Column3: 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
object Tv1ToOrdNo: TcxGridDBColumn
Caption = #20986#21040#32455#36896#21333
DataBinding.FieldName = 'ToOrdNo'
DataBinding.IsNullValueType = True
@ -304,7 +195,79 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
HeaderAlignmentHorz = taCenter
Width = 120
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
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
@ -312,15 +275,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False
Width = 80
end
object Tv1Column12: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column7: TcxGridDBColumn
object Tv1BatchNo: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
@ -328,14 +283,14 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False
Width = 77
end
object Tv1Column1: TcxGridDBColumn
object Tv1Piece: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object v2Column6: TcxGridDBColumn
object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
@ -343,7 +298,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
HeaderAlignmentHorz = taCenter
Width = 85
end
object v1Column3: TcxGridDBColumn
object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
@ -351,13 +306,28 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Options.Editing = False
Width = 66
end
object v1Column12: TcxGridDBColumn
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 101
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
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -29,34 +29,31 @@ type
cxGridPopupMenu2: TcxGridPopupMenu;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1CRType: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Tv1BYIOID: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
Tv1IOType: TcxGridDBColumn;
Tv1Y_name: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column1: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1BatchNo: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1ToCoName: TcxGridDBColumn;
Tv1Piece: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn;
Tv1Y_Code: TcxGridDBColumn;
Tv1FromCoName: TcxGridDBColumn;
Tv1FF: TcxGridDBColumn;
Tv1ToOrdNo: TcxGridDBColumn;
Tv1ToConNo: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
Tv1FromPurNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -110,44 +107,46 @@ begin
begin
Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('STKID').Value := frmYarnStkSel.CDS_Main.fieldbyname('BYIOID').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('SXCBH').Value := frmYarnStkSel.CDS_Main.fieldbyname('SXCBH').Value;
FieldByName('Y_Name').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Name').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('SXCPM').Value := frmYarnStkSel.CDS_Main.fieldbyname('SXCPM').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_ColorNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_ColorNo').Value;
FieldByName('FF').Value := frmYarnStkSel.CDS_Main.fieldbyname('FF').Value;
FieldByName('ND').Value := frmYarnStkSel.CDS_Main.fieldbyname('ND').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('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('Piece').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKPiece').Value;
FieldByName('Qty').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKQTY').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;
frmYarnStkSel.CDS_Main.Delete;
@ -203,7 +202,8 @@ begin
if Trim(MBYIOID) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName)
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillId').Value := Trim(DName);
end
else
begin
@ -212,16 +212,39 @@ begin
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end;
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('BYIOID').Value := Trim(Maxno);
FieldByName('IOFlag').Value := '出库';
FieldByName('IOQtyFlag').Value := -1;
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;
end;
with ADOQueryCmd do
@ -392,6 +415,19 @@ begin
Application.MessageBox('数量不能为空!', '提示', 0);
Exit;
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
begin
Application.MessageBox('保存成功!', '提示', 0);
@ -420,6 +456,7 @@ begin
Edit;
FieldByName('ToCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
FieldByName('ToCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
post;
end;
end;
end;
@ -441,8 +478,17 @@ begin
with Self.CDS_Sub do
begin
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;
@ -456,31 +502,31 @@ procedure TfrmYarnOutEdit.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Sh
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;
// 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.

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

@ -26,7 +26,8 @@ inherited frmYarnOutList: TfrmYarnOutList
ParentColor = False
ShowCaptions = True
TabOrder = 3
ExplicitTop = 3
ExplicitLeft = 8
ExplicitTop = -3
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -112,7 +113,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitWidth = 304
ExplicitTop = 24
object Label3: TLabel
Left = 251
Top = 86
@ -203,9 +204,9 @@ inherited frmYarnOutList: TfrmYarnOutList
ParentBackground = False
ParentColor = False
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 300
ExplicitLeft = 4
ExplicitTop = 4
ExplicitWidth = 1487
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
@ -271,7 +272,6 @@ inherited frmYarnOutList: TfrmYarnOutList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 149
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -293,7 +293,7 @@ inherited frmYarnOutList: TfrmYarnOutList
end
item
Kind = skSum
Column = v2Column6
Column = Tv1Qty
end
item
Kind = skSum
@ -320,7 +320,7 @@ inherited frmYarnOutList: TfrmYarnOutList
HeaderAlignmentHorz = taCenter
Width = 88
end
object v1Column6: TcxGridDBColumn
object Tv1BYIOID: TcxGridDBColumn
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True
@ -328,7 +328,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False
Width = 88
end
object v1Column2: TcxGridDBColumn
object Tv1IOTime: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
@ -340,7 +340,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False
Width = 88
end
object v1Column4: TcxGridDBColumn
object Tv1IOType: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
@ -381,48 +381,29 @@ inherited frmYarnOutList: TfrmYarnOutList
VisibleForCustomization = False
Width = 88
end
object Tv1Column1: TcxGridDBColumn
object Tv1ToCoName: TcxGridDBColumn
Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
Width = 89
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column10: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
object Tv1ToOrdNo: TcxGridDBColumn
Caption = #20986#21040#32455#36896#21333#21495
DataBinding.FieldName = 'ToOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
Width = 113
end
object Tv1Column2: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
object Tv1ToConNo: TcxGridDBColumn
Caption = #20986#21040#22383#24067#21512#21516#21495
DataBinding.FieldName = 'ToConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
Width = 143
end
object Tv1Column8: TcxGridDBColumn
object Tv1Y_Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
@ -430,7 +411,14 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False
Width = 88
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
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
@ -445,22 +433,147 @@ inherited frmYarnOutList: TfrmYarnOutList
Options.Editing = False
Width = 88
end
object Tv1Column11: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
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
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v1Column16: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
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
Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai'
@ -471,16 +584,6 @@ inherited frmYarnOutList: TfrmYarnOutList
VisibleForCustomization = False
Width = 88
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
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
@ -491,117 +594,14 @@ inherited frmYarnOutList: TfrmYarnOutList
VisibleForCustomization = False
Width = 88
end
object Tv1Column3: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
object Tv1FromConNo: TcxGridDBColumn
Caption = #26469#33258#22383#24067#21512#21516#21495
DataBinding.FieldName = 'FromConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
Width = 132
end
object Tv1Column4: 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
object Tv1StkID: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'StkID'
DataBinding.IsNullValueType = True

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

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

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

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

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

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar;
dxSkinsDefaultPainters, cxProgressBar, cxMaskEdit;
type
TfrmYarnStkList = class(TfrmBaseList)
@ -31,47 +31,61 @@ type
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
ToolButton1: TToolButton;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label2: TLabel;
Y_name: TcxTextEdit;
FromCoName: TcxTextEdit;
Y_spec: TcxTextEdit;
BatchNo: TcxTextEdit;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1BYIOID: TcxGridDBColumn;
Tv1ioTime: TcxGridDBColumn;
Tv1IOType: TcxGridDBColumn;
Tv1FromCoName: TcxGridDBColumn;
Tv1Y_Name: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn;
Tv1BatchNo: TcxGridDBColumn;
Tv1StkPiece: TcxGridDBColumn;
Tv1stkqty: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
Y_Code: TcxTextEdit;
Label1: TLabel;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
Label5: TLabel;
Y_ColorNo: TcxTextEdit;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Y_Code: TcxGridDBColumn;
TV1FF: TcxGridDBColumn;
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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -88,6 +102,8 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure FromCoNamePropertiesChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure BYIOIDKeyPress(Sender: TObject; var Key: Char);
procedure IOTypePropertiesChange(Sender: TObject);
private
canshu1, FStkName, canshu3: string;
procedure InitGrid();
@ -138,11 +154,16 @@ begin
Close;
sql.Clear;
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(' where A.IOFlag=''Èë¿â'' and isnull(StkQty,0)>0 ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
@ -150,11 +171,26 @@ begin
end;
end;
procedure TfrmYarnStkList.IOTypePropertiesChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkList.BYIOIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmYarnStkList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then

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

@ -2,23 +2,24 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Left = 105
Top = 131
Caption = #32433#32447#24211#23384#36873#25321#21015#34920
ClientHeight = 488
ClientWidth = 1562
ClientHeight = 554
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1578
ExplicitHeight = 527
ExplicitLeft = -381
ExplicitWidth = 1556
ExplicitHeight = 593
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1562
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
@ -75,120 +76,181 @@ inherited frmYarnStkSel: TfrmYarnStkSel
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1562
Height = 44
Width = 1540
Height = 101
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 36
object Label3: TLabel
Left = 257
Top = 10
Width = 32
Left = 717
Top = 24
Width = 40
Height = 21
AutoSize = False
Caption = #21697#21517
end
object Label4: TLabel
Left = 35
Top = 10
Width = 64
Left = 257
Top = 62
Width = 70
Height = 21
Caption = #26469#33258#21333#20301
AutoSize = False
Caption = #20379#24212#21830
end
object Label8: TLabel
Left = 447
Top = 10
Left = 721
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
Height = 21
Caption = #35268#26684
Caption = #25209#21495
end
object Label2: TLabel
Left = 637
Top = 10
Width = 42
object Label6: TLabel
Left = 24
Top = 24
Width = 70
Height = 21
Caption = #25209' '#21495
end
object Label1: TLabel
Left = 837
Top = 10
Width = 32
Height = 21
Caption = #32534#21495
AutoSize = False
Caption = #20837#24211#21333#21495
end
object Label5: TLabel
Left = 1027
Top = 10
Width = 48
Left = 918
Top = 24
Width = 60
Height = 21
Caption = #28504#36890#21495
AutoSize = False
Caption = #39068#33394
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
Left = 293
Top = 6
Width = 150
Height = 29
Left = 757
Top = 20
TabOrder = 0
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 103
Top = 6
Width = 150
Height = 29
end
object FromCoName: TcxTextEdit
Tag = 2
Left = 324
Top = 55
TabOrder = 1
OnChange = FromCoNameChange
end
object Y_Spec: TEdit
Tag = 2
Left = 483
Top = 6
Width = 150
Height = 29
end
object Y_Composition: TcxTextEdit
Tag = 2
Left = 757
Top = 55
TabOrder = 2
OnChange = TBFindClick
end
object BatchNo: TEdit
Tag = 2
Left = 683
Top = 6
Width = 150
Height = 29
end
object BatchNo: TcxTextEdit
Tag = 2
Left = 957
Top = 55
TabOrder = 3
OnChange = FromCoNameChange
end
object Y_Code: TEdit
Tag = 2
Left = 873
Top = 6
Width = 150
Height = 29
end
object BYIOID: TcxTextEdit
Tag = 2
Left = 98
Top = 20
TabOrder = 4
OnChange = FromCoNameChange
end
object Y_ColorNo: TEdit
Tag = 2
Left = 1081
Top = 4
OnKeyPress = BYIOIDKeyPress
Width = 150
Height = 29
end
object Y_Color: TcxTextEdit
Tag = 2
Left = 957
Top = 20
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
object cxGrid1: TcxGrid [2]
Left = 0
Top = 74
Width = 1562
Height = 414
Top = 131
Width = 1540
Height = 423
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 71
ExplicitTop = 137
ExplicitHeight = 357
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -224,7 +286,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
end
item
Kind = skSum
Column = v2Column6
Column = Tv1stkqty
end
item
Kind = skSum
@ -255,7 +317,14 @@ inherited frmYarnStkSel: TfrmYarnStkSel
HeaderAlignmentHorz = taCenter
Width = 42
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
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
@ -263,40 +332,36 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 87
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
object Tv1IOType: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
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 = 108
Width = 92
end
object Tv1Column12: TcxGridDBColumn
object Tv1FromCoName: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
object Tv1FromPurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
Width = 100
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
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
@ -304,7 +369,14 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 75
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
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
@ -319,41 +391,22 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 124
end
object Tv1Column13: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Width = 107
end
object v1Column4: 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
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 87
end
object Tv1Column5: TcxGridDBColumn
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
@ -361,30 +414,21 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 86
end
object Tv1Column6: TcxGridDBColumn
Caption = #29702#35770'D'#25968
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Denier)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
Width = 110
end
object Tv1Column14: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Width = 78
end
object Tv1Column9: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column10: TcxGridDBColumn
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
@ -392,29 +436,22 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column10: TcxGridDBColumn
object Tv1BatchNo: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
Width = 92
end
object Tv1Column1: TcxGridDBColumn
object Tv1StkPiece: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object v2Column6: TcxGridDBColumn
object Tv1stkqty: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty'
@ -424,7 +461,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 87
end
object v1Column3: TcxGridDBColumn
object Tv1QtyUnit: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
@ -439,13 +476,45 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 71
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
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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
object cxGrid1Level1: TcxGridLevel

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

@ -13,7 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters;
dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters,
cxMaskEdit;
type
TfrmYarnStkSel = class(TfrmBaseHelp)
@ -36,41 +37,53 @@ type
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column17: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Y_Name: TcxGridDBColumn;
Tv1BatchNo: TcxGridDBColumn;
Tv1stkqty: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
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;
Label4: TLabel;
Label8: TLabel;
Label2: TLabel;
Y_Name: TEdit;
FromCoName: TEdit;
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;
Label12: TLabel;
Label10: TLabel;
Label6: TLabel;
Label5: TLabel;
Y_ColorNo: TEdit;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
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;
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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -86,6 +99,8 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject);
procedure BYIOIDKeyPress(Sender: TObject; var Key: Char);
procedure IOTypePropertiesChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
@ -126,12 +141,17 @@ begin
Close;
sql.Clear;
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(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
if trim(FFY_Code) <> '' then
sql.Add(' and isnull(Y_Code,'''')=''' + Trim(FFY_Code) + '''');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
@ -139,11 +159,25 @@ begin
end;
end;
procedure TfrmYarnStkSel.IOTypePropertiesChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkSel.BYIOIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmYarnStkSel.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then

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

@ -1,98 +1,98 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</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.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.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</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.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.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.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.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.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.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.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm</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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.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.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.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.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm</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.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.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.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction>
</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
item
Kind = skSum
Column = Tv1Column3
Column = Tv1YDHQty
end
item
Kind = skSum
Column = Tv1Column4
Column = Tv1CGQty
end
item
Kind = skSum
Column = Tv1Column6
Column = Tv1RKQty
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -245,6 +245,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Focusing = False
Width = 86
end
object Tv1SDlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1ConNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
@ -263,120 +270,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Focusing = False
Width = 94
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
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
@ -398,13 +291,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Spec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
@ -412,12 +298,12 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 110
Width = 80
end
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
@ -426,13 +312,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
@ -447,20 +326,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter
Width = 80
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
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
@ -503,13 +368,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SDlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SNote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
@ -517,6 +375,88 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
HeaderAlignmentHorz = taCenter
Width = 80
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
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -624,7 +564,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 4
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
@ -633,7 +573,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
#24050#21462#28040
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 134
ClientRectRight = 0
ClientRectTop = 0
end
@ -721,6 +660,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
SortOrder = soAscending
Width = 70
end
object Tv2Conno: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'Conno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 117
end
object Tv21Column18: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
@ -752,14 +698,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False
Width = 80
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
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
@ -768,13 +706,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False
Width = 122
end
object Tv2Column1: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object Tv21Column11: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
@ -783,13 +714,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False
Width = 117
end
object Tv2Column2: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 113
end
object Tv21Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
@ -806,19 +730,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False
Width = 70
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
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
@ -876,7 +787,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False
Width = 90
end
object d: TcxGridDBColumn
object Tv2currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True

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

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

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

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

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

@ -39,7 +39,6 @@ type
Tv1: TcxGridDBTableView;
Tv1Column7: TcxGridDBColumn;
v1XHNo: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
@ -90,11 +89,14 @@ type
ADOQuery1: TADOQuery;
Label4: TLabel;
Tv1Column8: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
ToolButton6: TToolButton;
Tv1TaxRate: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1fromConSMId: TcxGridDBColumn;
Tv1CPConNo: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -1009,7 +1011,7 @@ begin
begin
if ShowModal = 1 then
begin
with CDS_1 do
with frmSalesContract_SXSel.CDS_1 do
begin
First;
while not Eof do
@ -1024,21 +1026,26 @@ begin
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
FieldByName('C_Degree').Value := 'É´Ïß';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Code').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Y_Code').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_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
FieldByName('Denier').Value := CDS_1.fieldbyname('TestDenier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('Z_Number').value;
FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').value;
FieldByName('Y_Composition').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Y_Color').Value := frmSalesContract_SXSel.Cds_1.FieldByName('Y_Color').Value;
FieldByName('Denier').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('TestDenier').value;
FieldByName('ZS').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Z_Number').value;
FieldByName('Y_Color').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('Y_Color').value;
FieldByName('FF').Value := frmSalesContract_SXSel.CDS_1.fieldbyname('FF').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('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;
i := i + 1;

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

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

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

@ -166,7 +166,7 @@ begin
begin
Close;
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(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId ');
//SQL.Add(' where isnull(A.status,''0'')=''9'' ');

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

@ -1,82 +1,82 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</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.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.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.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.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.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</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.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.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.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.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.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>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>

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
Position = poScreenCenter
WindowState = wsMaximized
ExplicitTop = -259
ExplicitWidth = 1556
ExplicitHeight = 884
PixelsPerInch = 96
@ -72,7 +73,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 36
object Label2: TLabel
Left = 922
Top = 5

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

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

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

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

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

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

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

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

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

@ -327,6 +327,9 @@ begin
if (Trim(edtCardQty1.Text) = '') or (Trim(edtCardQty1.Text) = '0') then
raise Exception.Create('轴数不能为空或0！');
if trim(WBType1.Text) = '' then
raise Exception.Create('盘头类型不能为空！');
Result := True;
except
Result := false;
@ -573,7 +576,6 @@ begin
TV2JZSJ.Visible := False;
end;
end;
procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -689,14 +691,14 @@ begin
begin
if FWB_Type = '稀轴' then
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
raise Exception.Create('取布票流水号失败!');
end;
end
else
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
raise Exception.Create('取布票流水号失败!');
end;
@ -967,6 +969,8 @@ begin
begin
ADOQueryCmd.Connection.BeginTrans;
try
if CDS_Card.FieldByName('SSel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
@ -981,7 +985,7 @@ begin
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_Card, 'Tat_WB_Card', 0);
post;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;

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

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

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

@ -166,8 +166,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitLeft = -1
ExplicitTop = 44
ExplicitLeft = 8
ExplicitTop = 32
object Label1: TLabel
Left = 18
Top = 14
@ -196,6 +196,20 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 21
Caption = #32463#35268#26684
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
Left = 86
Top = 10
@ -236,6 +250,26 @@ inherited frmTatWBPlan: TfrmTatWBPlan
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress
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
object cxGrid1: TcxGrid [2]
Left = 0
@ -244,6 +278,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 541
Align = alLeft
TabOrder = 2
ExplicitLeft = -5
ExplicitTop = 117
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -328,6 +364,20 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter
Width = 80
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
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
@ -450,6 +500,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#24050#32467#26463
#20840#37096)
OnChange = cxTabControl1Change
ExplicitLeft = -1
ClientRectBottom = 30
ClientRectRight = 1540
ClientRectTop = 30
@ -470,7 +521,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = -7
ExplicitLeft = 6
ExplicitTop = 61
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -571,7 +622,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
DataBinding.FieldName = 'XZSJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Width = 93
end
object TV1Column3: TcxGridDBColumn
Caption = #22791#27880
@ -624,6 +675,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 6
object ToolButton2: TToolButton
Left = 0
Top = 0
@ -653,7 +706,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 0
ImageIndex = 5
OnClick = ToolButton3Click
end
end
@ -678,7 +731,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#27974#36724)
OnChange = cxTabControl2Change
ExplicitLeft = 6
ExplicitTop = 33
ExplicitTop = 45
ClientRectBottom = 30
ClientRectRight = 709
ClientRectTop = 30

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

@ -116,6 +116,12 @@ type
TV2JZSJ: TcxGridDBColumn;
TV2JZSZ: TcxGridDBColumn;
TbLogLook: TToolButton;
Tv1GYNo: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Label4: TLabel;
Label5: TLabel;
ConNo: TEdit;
GYNo: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
@ -304,6 +310,7 @@ begin
Close;
sql.Clear;
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('where 1=1 ');
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
TabOrder = 2
OnDblClick = gynoDblClick
ExplicitTop = 41
object Label3: TLabel
Left = 708
Top = 8

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

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

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

@ -296,6 +296,13 @@ begin
// raise Exception.Create('迁经机不能为空！');
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
// WB_ClothPiece.Text := '0';
if Trim(WB_Type.Text) = '' then
@ -675,7 +682,6 @@ begin
sql.Add(',0');
end;
sql.Add(',' + FloatToStr(MWB_YarnLen));
sql.Add(',' + Quotedstr(Trim(WB_Macher.Text)));
sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text)));

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

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

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

@ -58,6 +58,7 @@ type
TV1WB_Width: TcxGridDBColumn;
TV1KCQTY: TcxGridDBColumn;
TV1ArrangeQTY: TcxGridDBColumn;
TV1ConUnit: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -126,7 +127,7 @@ begin
sql.Add(' ,C_Width');
sql.Add(',C_Composition, Density ');
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_ReedNo, WB_Width');
sql.Add(',sum(A.KCQTY) as KCQTY');
@ -134,7 +135,7 @@ begin
SQL.ADD('from V_WBNeedHTLook A ');
// SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code));
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(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''¿ÕÖá'' and X.IOFlag =''Èë¿â'' and A.WBNO =X.WBNO) ');
// 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_ClothInfoTechnicsSel in '..\A02基础产品管理\U_ClothInfoTechnicsSel.pas' {frmClothInfoTechnicsSel},
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_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
@ -46,7 +45,8 @@ uses
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
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}

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

@ -160,10 +160,6 @@
<DCCReference Include="..\A02基础产品管理\U_ClothInfoProcessInput.pas">
<Form>frmClothInfoProcessInput</Form>
</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_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
@ -191,6 +187,11 @@
<DCCReference Include="U_TatClothStkSel.pas">
<Form>frmTatClothStkSel</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<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.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.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.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>
@ -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.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.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.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.410,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.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.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -108,22 +109,22 @@
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.pas"/>
<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.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
<File Path="..\A02基础产品管理"/>
<File Path="..\A02基础产品管理\U_ClothInfoInput.pas"/>
<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.dfm"/>
<File Path="..\A02基础产品管理\U_ClothInfoTechnicsSel.pas"/>
<File Path="..\A02基础产品管理\U_ClothInfoTechnicsSel.dfm"/>
<File Path="..\A02基础产品管理\U_ClothInfoProcessInput.pas"/>
<File Path="..\A02基础产品管理\U_ClothInfoProcessInput.dfm"/>
<File Path="..\B02基础纱线仓库"/>
<File Path="..\B02基础纱线仓库\U_SXCKList.pas"/>
<File Path="..\B02基础纱线仓库\U_SXCKList.dfm"/>
@ -145,10 +146,10 @@
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<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_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
@ -165,10 +166,10 @@
<File Path="U_TatClothInEdit.dfm"/>
<File Path="U_TatClothInList_ZDDY.pas"/>
<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.dfm"/>
<File Path="U_TatClothOutEdit.pas"/>
<File Path="U_TatClothOutEdit.dfm"/>
<File Path="U_TatDRSel.pas"/>
<File Path="U_TatDRSel.dfm"/>
<File Path="U_TatClothStkList.pas"/>

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

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

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

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

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

@ -96,7 +96,7 @@ var
implementation
uses
U_DataLink, U_RTFun, MMSystem, U_TatDRSel;
U_DataLink, U_RTFun, MMSystem, U_TatDRSel, U_TatClothStkScanSel;
procedure TfrmTatClothDROutEdit.PlayWav(MWav: string);
begin
@ -407,37 +407,49 @@ begin
MKey := #13;
CZZT := 'Ñ¡Ôñ¿â´æ';
fcuowu := '1';
// try
// frmCKProductCPKCListSel := TfrmCKProductCPKCListSel.Create(Application);
// with frmCKProductCPKCListSel do
try
frmTatClothStkScanSel := TfrmTatClothStkScanSel.Create(Application);
with frmTatClothStkScanSel do
begin
fConSId :=DS1.FieldByName('ConSId').AsString;
fOrderNo :=DS1.FieldByName('OrderNo').AsString;
// with ADOQueryTemp do
// begin
//// CustomerNoName.text := trim(Self.KHName.text);
// if ShowModal = 1 then
// begin
// with frmCKProductCPKCListSel.CDS_Main do
// begin
// First;
// while not Eof do
// begin
// if Fieldbyname('ssel').AsBoolean then
// 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;
// finally
// frmCKProductCPKCListSel.Free;
// Close;
// sql.Clear;
// Sql.Add('exec P_Tat_FH_KCList_CP ');
// Sql.Add(' @DRMID=' + quotedstr(trim(OutNo.text)));
// Sql.Add(',@DName=' + Quotedstr(DName));
// execsql;
// end;
if ShowModal = 1 then
begin
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();
end;

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

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

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

@ -83,16 +83,11 @@ type
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column3: TcxGridDBColumn;
Label18: TLabel;
@ -103,7 +98,6 @@ type
Edit11: TcxTextEdit;
PM_2: TPopupMenu;
MenuItem3: TMenuItem;
TV2Column1: TcxGridDBColumn;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
@ -116,17 +110,11 @@ type
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
TV2Column5: TcxGridDBColumn;
BegDate2: TcxDateEdit;
@ -138,6 +126,10 @@ type
lbl1: TLabel;
PCID: TcxTextEdit;
cxgrdbclmnTv1Column13: TcxGridDBColumn;
TV2PacketNo: TcxGridDBColumn;
Tv1PacketNo: TcxGridDBColumn;
TV2ConNo: TcxGridDBColumn;
TV2C_Code: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -251,16 +243,18 @@ begin
begin
Close;
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(' ,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=''Èë¿â'' ');
// if trim(FWorkshop) <> '' then
// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
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);
Open;
end;

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

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

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

@ -95,18 +95,13 @@ type
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
PM_2: TPopupMenu;
MenuItem3: TMenuItem;
@ -122,17 +117,12 @@ type
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label2: TLabel;
chk_F1: TcxCheckBox;
@ -144,6 +134,9 @@ type
chk_F2: TcxCheckBox;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2PacketNoNum: TcxGridDBColumn;
Tv1PacketNo: TcxGridDBColumn;
Tv1PCID: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(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(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
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(' where IOFlag=''³ö¿â'' and 1=1' + WSql);
// if trim(FWorkshop) <> '' then

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

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

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

@ -14,23 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI
;
dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatClothStkList = class(TfrmBaseList)
@ -93,21 +77,14 @@ type
DS_2: TDataSource;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column3: TcxGridDBColumn;
Label18: TLabel;
@ -121,7 +98,6 @@ type
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
N2: TMenuItem;
TV2Column2: TcxGridDBColumn;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
@ -132,18 +108,13 @@ type
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label1: TLabel;
BegDate2: TcxDateEdit;
@ -154,6 +125,10 @@ type
BegDate: TcxDateEdit;
EndDate: TcxDateEdit;
TV2Column1: TcxGridDBColumn;
TV2PacketNoNum: TcxGridDBColumn;
Tv1PacketNo: TcxGridDBColumn;
TV2ConNo: TcxGridDBColumn;
Tv1PCID: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -254,13 +229,14 @@ begin
Filtered := False;
Close;
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(' ,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(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);
Open;
end;
@ -321,7 +297,6 @@ end;
procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject);
begin
Close;
end;
@ -387,8 +362,8 @@ end;
procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
// if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
// ACanvas.Brush.Color := $B3DEF5;
end;
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