Group_DJD/D10DJkaimengwenshang
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:09:24 +08:00
parent 155d7daf14
commit e8268c92ed
4 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm
View File

@ -417,7 +417,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
SizeOptions.Width = 143 SizeOptions.Width = 143
Control = begdate Control = begdate
ControlOptions.OriginalHeight = 27 ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 133 ControlOptions.OriginalWidth = 143
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 1 Index = 1
end end
@ -492,8 +492,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #27719#24635#35270#22270 Caption = #27719#24635#35270#22270
ImageIndex = 0 ImageIndex = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 17 Left = 17
Top = 3 Top = 3
@ -1404,7 +1402,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 270 Top = 270
Width = 8 Width = 1113
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -1414,8 +1412,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #26126#32454#35270#22270 Caption = #26126#32454#35270#22270
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = -549 Left = -549
Top = 46 Top = 46

36
项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas
View File

@ -384,8 +384,8 @@ begin
begin begin
PState := 1; PState := 1;
CopyInt := 99; CopyInt := 99;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FMainID := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
fCopyMainId := FMainId; fCopyMainId := FMainID;
canshu1 := Self.canshu1; canshu1 := Self.canshu1;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -407,8 +407,8 @@ begin
begin begin
PState := 1; PState := 1;
CopyInt := 99; CopyInt := 99;
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); FMainID := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
fCopyMainId := FMainId; fCopyMainId := FMainID;
canshu1 := Self.canshu1; canshu1 := Self.canshu1;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -510,7 +510,7 @@ begin
with frmTradePlanInPut do with frmTradePlanInPut do
begin begin
PState := 0; PState := 0;
FMainId := ''; FMainID := '';
canshu1 := Self.canshu1; canshu1 := Self.canshu1;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -545,7 +545,7 @@ begin
with frmTradePlanInPut do with frmTradePlanInPut do
begin begin
PState := 5; PState := 5;
FMainId := Trim(mMainId); FMainID := Trim(mMainId);
ToolBar2.Visible := false; ToolBar2.Visible := false;
TBSave.Visible := false; TBSave.Visible := false;
if ShowModal = 1 then if ShowModal = 1 then
@ -662,7 +662,7 @@ begin
with frmTradePlanInPut do with frmTradePlanInPut do
begin begin
PState := 1; PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FMainID := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
canshu1 := Self.canshu1; canshu1 := Self.canshu1;
if ShowModal = 1 then if ShowModal = 1 then
@ -693,7 +693,7 @@ begin
with frmTradePlanInPut do with frmTradePlanInPut do
begin begin
PState := 1; PState := 1;
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); FMainID := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
FOrderNo := Trim(Self.cds_mxlist.fieldbyname('OrderNo').AsString); FOrderNo := Trim(Self.cds_mxlist.fieldbyname('OrderNo').AsString);
canshu1 := Self.canshu1; canshu1 := Self.canshu1;
if ShowModal = 1 then if ShowModal = 1 then
@ -964,7 +964,7 @@ begin
frmUptPlanDataToRoll := TfrmUptPlanDataToRoll.create(Application); frmUptPlanDataToRoll := TfrmUptPlanDataToRoll.create(Application);
with frmUptPlanDataToRoll do with frmUptPlanDataToRoll do
begin begin
fMainId := mMainId; FMainID := mMainId;
cxTextEdit1.Text := trim(mOrderNo); cxTextEdit1.Text := trim(mOrderNo);
showModal; showModal;
free; free;
@ -1329,14 +1329,22 @@ var
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
// if Order_Main.Locate('SSel', True, []) = False then
// begin
// Application.MessageBox('ûÓÐÑ¡ÔñÊý¾Ý', 'Ìáʾ', 0);
// Exit;
// end;
ExportFtErpFile('Ñé»õ·ÖÎö±¨¸æ.rmf', ADOQueryBaseCmd); ExportFtErpFile('Ñé»õ·ÖÎö±¨¸æ.rmf', ADOQueryBaseCmd);
FFiltration1 := Trim(Order_Main.fieldbyname('mainId').AsString); FFiltration1 := Trim(Order_Main.fieldbyname('mainId').AsString);
with ADO_1 do
begin
Close;
sql.Clear;
sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX_ZSDDCFS');
sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
Open;
end;
if ADO_1.FieldByName('PS').asfloat > 0 then
begin
Application.MessageBox('本次选中数据有疵点分大于本卷米长的4倍的数据！', '提示', 0);
end;
Order_Main.EnableControls; Order_Main.EnableControls;
with ADO_1 do with ADO_1 do
begin begin

BIN
项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache
View File

Binary file not shown.

BIN
项目代码/wenshangkm/G03贸易布匹检验/DjdMachineInsp.identcache
View File

Binary file not shown.