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-15 11:47:43 +08:00
parent 3fad37784f
commit 21681a1008
5 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
T02贸易汇总仓库/U_TradeClothTotalInList.dfm
View File

@ -515,9 +515,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid
Left = 0
Top = 0

8
T05贸易门市管理/U_TradeMarketInPut.dfm
View File

@ -8,8 +8,8 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Font.Height = -16
Position = poMainFormCenter
WindowState = wsMaximized
ExplicitWidth = 1929
ExplicitHeight = 691
ExplicitWidth = 1921
ExplicitHeight = 683
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -578,7 +578,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548100
Time = 0.670856296288548000
TabOrder = 1
end
object DLYDate: TDateTimePicker
@ -590,7 +590,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548100
Time = 0.670856296288548000
ShowCheckbox = True
TabOrder = 2
Visible = False

10
T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -156,7 +156,7 @@ type
PState, CopyInt, PriceFlag: Integer;
FTMMID, FFTMMID, FTMMNo, MTMSId: string;
FXS: Integer;
canshu1: string;
canshu1, canshu4: string;
fFlileFlag: string;
fordtype: string;
{ Public declarations }
@ -183,7 +183,6 @@ begin
i := cds_1.RecordCount;
i := i + 1;
CopyAddRow(Tv1, cds_1);
if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then
begin
@ -193,10 +192,13 @@ begin
end;
with cds_1 do
begin
Edit;
Append;
FieldByName('SerialNo').Value := IntToStr(i);
FieldByName('TMSId').Value := Trim(maxno);
FieldByName('TMSPiece').Value := 0;
FieldByName('TMSQty').Value := 0;
Post;
end;
@ -477,7 +479,7 @@ begin
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('CustNo').Value := Trim(CustName.Hint);
FieldByName('CustName').Value := Trim(CustName.Text);
FieldByName('Store').Value := Trim(canshu4);
Post;
end;

4
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -9,8 +9,8 @@ inherited frmTradeMarketList: TfrmTradeMarketList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1807
ExplicitHeight = 633
ExplicitWidth = 1799
ExplicitHeight = 625
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]

6
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -145,7 +145,7 @@ type
{ Private declarations }
public
FFInt, FCloth: Integer;
canshu1, canshu2: string;
canshu1, canshu2, canshu4: string;
fFlileFlag: string;
FNOTE: string;
FOrdType: string;
@ -369,6 +369,7 @@ begin
FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
FTMMNo := Trim(Self.Order_Main.fieldbyname('TMMNo').AsString);
canshu1 := self.canshu1;
canshu4 := self.canshu4;
frmTradeMarketInPut.fordtype := self.fordtype;
if ShowModal = 1 then
begin
@ -472,6 +473,7 @@ begin
PState := 0;
FTMMId := '';
canshu1 := self.canshu1;
canshu4 := self.canshu4;
frmTradeMarketInPut.fordtype := self.fordtype;
if ShowModal = 1 then
begin
@ -497,6 +499,7 @@ begin
inherited;
canshu1 := trim(self.fParameters1);
canshu2 := trim(self.fParameters2);
canshu4 := trim(self.canshu4);
fFlileFlag := UserDataFlag + 'HX';
cxTabControl1.TabIndex := 0;
InitForm();
@ -621,6 +624,7 @@ begin
CopyInt := 99;
FTMMId := Trim(Self.Order_Main.fieldbyname('TMMId').AsString);
canshu1 := self.canshu1;
canshu4 := self.canshu4;
frmTradeMarketInPut.fordtype := self.fordtype;
if ShowModal = 1 then
begin