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

1

Browse Source
This commit is contained in:
ddf 2025-07-12 10:44:25 +08:00
parent 3cd54fa56b
commit 27a97653a6
3 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
T02贸易汇总仓库/U_ItemizedListInPut.dfm
View File

@ -7,8 +7,8 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
ExplicitWidth = 1256 ExplicitWidth = 1248
ExplicitHeight = 632 ExplicitHeight = 624
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -27,7 +27,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1153
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -84,7 +83,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1153
object btnAdd: TToolButton object btnAdd: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -119,7 +117,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1153
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -128,7 +125,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1151
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
@ -137,7 +133,6 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Align = alClient Align = alClient
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1149
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
@ -358,7 +353,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1153 ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 377 Left = 377
Top = 11 Top = 11

2
T02贸易汇总仓库/U_ItemizedListInPut.pas
View File

@ -489,7 +489,7 @@ begin
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_ItemizedList_Sub', 0); RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_ItemizedList_Sub', 0);
if Trim(CDS_1.FieldByName('FtyPCId').AsString) = '' then if Trim(CDS_1.FieldByName('FtyPCId').AsString) = '' then
begin begin
if GetLSNo(ADOCmd, MFtyPCId, MSJQZ, 'FtyPCId', 3, 0) = False then if GetLSNo(adotemp, MFtyPCId, MSJQZ, 'FtyPCId', 3, 0) = False then
raise Exception.Create('È¡¸×ºÅʧ°Ü!'); raise Exception.Create('È¡¸×ºÅʧ°Ü!');
FieldByName('FtyPCId').Value := MFtyPCId; FieldByName('FtyPCId').Value := MFtyPCId;
end; end;

4
T02贸易汇总仓库/U_ItemizedListList.dfm
View File

@ -9,8 +9,8 @@ inherited frmItemizedListList: TfrmItemizedListList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1548
ExplicitHeight = 775 ExplicitHeight = 767
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]