1

T02贸易汇总仓库/U_ItemizedListInPut.dfm

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

T02贸易汇总仓库/U_ItemizedListInPut.pas

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

T02贸易汇总仓库/U_ItemizedListList.dfm

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