3.10

A00通用窗体/U_CompanySel.pas

@@ -159,9 +159,9 @@ begin
       begin
         sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))');
       end;
-      if FStores = '新余' then
-        sql.Add(' and A.Stores=''' + Trim(FStores) + '''');
-
+//      if FStores = '新余' then
+//        sql.Add(' and A.Stores=''' + Trim(FStores) + '''');
+//      ShowMessage(sql.Text);
       Open;
     end;
 

A01基础公司管理/U_CustInput.dfm

@@ -429,8 +429,8 @@ inherited frmCustInput: TfrmCustInput
     end
     object Stores: TcxComboBox
       Tag = 2
-      Left = 951
-      Top = 164
+      Left = 950
+      Top = 160
       Properties.DropDownListStyle = lsFixedList
       Properties.Items.Strings = (
         #26684#32654

A01基础公司管理/U_CustInput.pas

@@ -632,6 +632,12 @@ begin
     Application.MessageBox('业务员不能为空!', '提示', 0);
     Exit;
   end;
+  if Trim(Stores.Text) = '' then
+  begin
+    Application.MessageBox('门店不能为空!', '提示', 0);
+    Exit;
+  end;
+
 
   with CDS_LXR do
   begin

A01基础公司管理/U_Customer.pas

@@ -17,7 +17,8 @@ uses
   FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error,
   FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
   FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
-  dxScrollbarAnnotations, Vcl.Menus, cxProgressBar;
+  dxScrollbarAnnotations, Vcl.Menus, cxProgressBar, dxSkinsCore,
+  dxSkinsDefaultPainters;
 
 type
   TfrmCustomer = class(TfrmBaseList)

T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm

@@ -69,6 +69,7 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
           Caption = #27611#37325
           DataBinding.FieldName = 'GrossWeight'
           DataBinding.IsNullValueType = True
+          Visible = False
           HeaderAlignmentHorz = taCenter
           Width = 143
         end

T02贸易汇总仓库/U_ItemizedListQtyInPut.pas

@@ -493,8 +493,8 @@ begin
   end;
   if CDS_Sub.IsEmpty then
   begin
-    for i := 1 to 50 do
-    begin
+//    for i := 1 to 50 do
+//    begin
       CopyAddRowCDS(CDS_Sub);
       with CDS_Sub do
       begin
@@ -505,7 +505,7 @@ begin
         post;
       end;
 
-    end;
+//    end;
   end;
 
 end;

T05贸易门市管理/U_TradeMarketInPut_XY.dfm

@@ -9,8 +9,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
   Position = poMainFormCenter
   WindowState = wsMaximized
   OnClose = FormClose
-  ExplicitLeft = -347
-  ExplicitTop = -270
+  ExplicitLeft = -2
   ExplicitWidth = 1556
   ExplicitHeight = 775
   PixelsPerInch = 96
@@ -142,6 +141,8 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
         Height = 509
         Align = alClient
         TabOrder = 0
+        ExplicitLeft = -1
+        ExplicitTop = 5
         object Tv1: TcxGridDBTableView
           OnDblClick = Tv1DblClick
           OnMouseDown = Tv1MouseDown
@@ -426,6 +427,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
             Width = 89
           end
           object Tv1Column23: TcxGridDBColumn
+            Tag = 2
             Caption = #20986#24211#21305#25968
             DataBinding.FieldName = 'SubOutPS'
             DataBinding.IsNullValueType = True