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

3.10

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-03-10 11:33:20 +08:00
parent e4158f64a0
commit e6b38b8e07
7 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
A00通用窗体/U_CompanySel.pas
View File

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

4
A01基础公司管理/U_CustInput.dfm
View File

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

6
A01基础公司管理/U_CustInput.pas
View File

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

3
A01基础公司管理/U_Customer.pas
View File

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

1
T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm
View File

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

6
T02贸易汇总仓库/U_ItemizedListQtyInPut.pas
View File

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

6
T05贸易门市管理/U_TradeMarketInPut_XY.dfm
View File

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