From e8268c92ed8406514a86b5285955d9f4cb5301f3 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 5 Feb 2026 17:09:24 +0800 Subject: [PATCH] ~ --- .../G01贸易生产计划/U_TradePlanMgeList.dfm | 8 +--- .../G01贸易生产计划/U_TradePlanMgeList.pas | 36 +++++++++++------- .../G01贸易生产计划/djdPackPlan.identcache | Bin 3904 -> 3904 bytes .../G03贸易布匹检验/DjdMachineInsp.identcache | Bin 5093 -> 5093 bytes 4 files changed, 24 insertions(+), 20 deletions(-) diff --git a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm index 2dd05f2..88e72a3 100644 --- a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm +++ b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm @@ -417,7 +417,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList SizeOptions.Width = 143 Control = begdate ControlOptions.OriginalHeight = 27 - ControlOptions.OriginalWidth = 133 + ControlOptions.OriginalWidth = 143 ControlOptions.ShowBorder = False Index = 1 end @@ -492,8 +492,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList object cxTabSheet1: TcxTabSheet Caption = #27719#24635#35270#22270 ImageIndex = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object cxGrid1: TcxGrid Left = 17 Top = 3 @@ -1404,7 +1402,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList object cxSplitter1: TcxSplitter Left = 0 Top = 270 - Width = 8 + Width = 1113 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -1414,8 +1412,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList object cxTabSheet2: TcxTabSheet Caption = #26126#32454#35270#22270 ImageIndex = 1 - ExplicitWidth = 0 - ExplicitHeight = 0 object cxGrid3: TcxGrid Left = -549 Top = 46 diff --git a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas index 1b4f520..38850d6 100644 --- a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas +++ b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas @@ -384,8 +384,8 @@ begin begin PState := 1; CopyInt := 99; - FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); - fCopyMainId := FMainId; + FMainID := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fCopyMainId := FMainID; canshu1 := Self.canshu1; if ShowModal = 1 then begin @@ -407,8 +407,8 @@ begin begin PState := 1; CopyInt := 99; - FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); - fCopyMainId := FMainId; + FMainID := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString); + fCopyMainId := FMainID; canshu1 := Self.canshu1; if ShowModal = 1 then begin @@ -510,7 +510,7 @@ begin with frmTradePlanInPut do begin PState := 0; - FMainId := ''; + FMainID := ''; canshu1 := Self.canshu1; if ShowModal = 1 then begin @@ -545,7 +545,7 @@ begin with frmTradePlanInPut do begin PState := 5; - FMainId := Trim(mMainId); + FMainID := Trim(mMainId); ToolBar2.Visible := false; TBSave.Visible := false; if ShowModal = 1 then @@ -662,7 +662,7 @@ begin with frmTradePlanInPut do begin 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); canshu1 := Self.canshu1; if ShowModal = 1 then @@ -693,7 +693,7 @@ begin with frmTradePlanInPut do begin 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); canshu1 := Self.canshu1; if ShowModal = 1 then @@ -964,7 +964,7 @@ begin frmUptPlanDataToRoll := TfrmUptPlanDataToRoll.create(Application); with frmUptPlanDataToRoll do begin - fMainId := mMainId; + FMainID := mMainId; cxTextEdit1.Text := trim(mOrderNo); showModal; free; @@ -1329,14 +1329,22 @@ var begin if Order_Main.IsEmpty then Exit; -// if Order_Main.Locate('SSel', True, []) = False then -// begin -// Application.MessageBox('ûѡ', 'ʾ', 0); -// Exit; -// end; + ExportFtErpFile('.rmf', ADOQueryBaseCmd); 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; with ADO_1 do begin diff --git a/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache b/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache index 3b4f4ec8f8089dede96fed1e841b184ce7fe1959..7106d654c1834d4d0e319f498b90b681b97dcde2 100644 GIT binary patch delta 75 zcmV-R0JQ(W9>5-u;*$&tdy(RXli~s3vmpb?1Cs~~PqVfMRsxg40$;O-3RnS?It+i4 h-wRul>IQw2*#twAI1U++e?yb}4Ed920eX{B4)3*wA7}so delta 87 zcmV-d0I2`K9>5-u;*(tghLhI~dXwV;;FB>4Uz0`%TeBVmZUd9T3w^VU2BiX#1WA*R t2ojS$0U)!G30MJ>AOuH~t_u{C=n8+4e?ybr4Ed8k3|x~&2wRh^4wUWLA(j9D diff --git a/项目代码/wenshangkm/G03贸易布匹检验/DjdMachineInsp.identcache b/项目代码/wenshangkm/G03贸易布匹检验/DjdMachineInsp.identcache index c333c8836cd08a2eabdfea60038e9d54b1d3ee70..b4060542b0ee5b38ba882aba6b8b002c28483752 100644 GIT binary patch delta 116 zcmV-)0E_?SC*>yrEt7!}WRn~X7?WBDXpwCAv)=*X0h3$|U$ejib^()R4`Z_^1`Yy~ z?GjyvEdT%jbCY2KV3FSclTQLklfV)ZlPL@!v)uvV0ka(hb^((~40MxT z5Mh(Z4;_;q4O6p82D<^1s0Txn