Group_DJD/D10myBahong
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

保存英文成分

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-21 09:32:48 +08:00
parent a65a009db6
commit 64039917a5
3 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
T01贸易生产计划/ProjectGroup1.groupproj.local
View File

@ -1,7 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10myOukai\T01贸易生产计划\TradePlan.dproj"/>
</Default.Personality>
</BorlandProject>

BIN
T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

2
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -1296,6 +1296,7 @@ begin
FC_EColor := ''; FC_EColor := '';
FC_StyleNo := ''; FC_StyleNo := '';
FC_Composition := ''; FC_Composition := '';
FC_EComposition := '';
FC_Width := ''; FC_Width := '';
FC_GramWeight := ''; FC_GramWeight := '';
FC_Pattern := ''; FC_Pattern := '';
@ -2893,6 +2894,7 @@ begin
fieldbyName('C_ColorNo').value := FC_ColorNo; fieldbyName('C_ColorNo').value := FC_ColorNo;
// fieldbyName('C_StyleNo').value := FC_StyleNo; // fieldbyName('C_StyleNo').value := FC_StyleNo;
fieldbyName('C_Composition').value := FC_Composition; fieldbyName('C_Composition').value := FC_Composition;
fieldbyName('C_EComposition').value := FC_EComposition;
if dxLayoutItem_width.ActuallyVisible then if dxLayoutItem_width.ActuallyVisible then
fieldbyName('C_Width').value := trim(C_width.Text) fieldbyName('C_Width').value := trim(C_width.Text)
else else