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 object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454 Caption = #20135#21697#26126#32454
ImageIndex = 1 ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0

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

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

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

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

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

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

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

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