二次加工品名规则更新
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
19acdae3f5
commit
35d1562b43
|
|
@ -98,8 +98,6 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Height = 529
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
ExplicitLeft = -4
|
||||
ExplicitTop = -4
|
||||
object Label1: TLabel
|
||||
Left = 37
|
||||
Top = 18
|
||||
|
|
@ -555,7 +553,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
object C_FromName2: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 119
|
||||
Top = 381
|
||||
Top = 382
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
|
|
@ -616,14 +614,14 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
object C_FromName4: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 119
|
||||
Top = 453
|
||||
Top = 452
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = C_FromName2PropertiesButtonClick
|
||||
Properties.OnButtonClick = C_FromName4PropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 24
|
||||
OnDblClick = C_GramWeightDblClick
|
||||
|
|
@ -639,7 +637,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = C_FromName2PropertiesButtonClick
|
||||
Properties.OnButtonClick = C_FromName5PropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 25
|
||||
OnDblClick = C_GramWeightDblClick
|
||||
|
|
@ -647,8 +645,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
end
|
||||
object Process2: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 504
|
||||
Top = 381
|
||||
Left = 498
|
||||
Top = 383
|
||||
Hint = 'Process2/'#21152#24037#26041#24335'1'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -656,7 +654,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||
Properties.OnButtonClick = Process2PropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 26
|
||||
OnDblClick = C_GramWeightDblClick
|
||||
|
|
@ -664,7 +662,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
end
|
||||
object Process3: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 504
|
||||
Left = 498
|
||||
Top = 418
|
||||
Hint = 'Process3/'#21152#24037#26041#24335'2'
|
||||
Properties.Buttons = <
|
||||
|
|
@ -673,7 +671,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||
Properties.OnButtonClick = Process3PropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 27
|
||||
OnDblClick = C_GramWeightDblClick
|
||||
|
|
@ -681,7 +679,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
end
|
||||
object Process4: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 504
|
||||
Left = 498
|
||||
Top = 453
|
||||
Hint = 'Process4/'#21152#24037#26041#24335'3'
|
||||
Properties.Buttons = <
|
||||
|
|
@ -690,7 +688,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||
Properties.OnButtonClick = Process4PropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 28
|
||||
OnDblClick = C_GramWeightDblClick
|
||||
|
|
@ -698,7 +696,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
end
|
||||
object Process5: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 504
|
||||
Left = 498
|
||||
Top = 488
|
||||
Hint = 'Process5/'#21152#24037#26041#24335'4'
|
||||
Properties.Buttons = <
|
||||
|
|
@ -707,7 +705,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||
Properties.OnButtonClick = Process5PropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 29
|
||||
OnDblClick = C_GramWeightDblClick
|
||||
|
|
@ -715,7 +713,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
end
|
||||
object Process: TcxButtonEdit
|
||||
Tag = 7
|
||||
Left = 504
|
||||
Left = 498
|
||||
Top = 344
|
||||
Hint = 'Process/'#21152#24037#26041#24335
|
||||
Properties.Buttons = <
|
||||
|
|
@ -724,7 +722,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||
Properties.OnButtonClick = ProcessPropertiesButtonClick
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 30
|
||||
OnDblClick = C_GramWeightDblClick
|
||||
|
|
|
|||
|
|
@ -165,10 +165,16 @@ type
|
|||
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure ToolButton10Click(Sender: TObject);
|
||||
|
||||
procedure ToolButton11Click(Sender: TObject);
|
||||
procedure ToolButton12Click(Sender: TObject);
|
||||
procedure C_FromName3PropertiesButtonClick(Sender: TObject;
|
||||
procedure C_FromName3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure ProcessPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure Process2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure Process3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure Process4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure Process5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure C_FromName5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
private
|
||||
canshu1: string;
|
||||
|
|
@ -279,6 +285,141 @@ begin
|
|||
InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', '');
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.Process2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TcxButtonEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
|
||||
if (Trim(C_FromName2.Text) <> '') and (Trim(Process2.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName2.Text) + Trim(Process2.Text);
|
||||
end;
|
||||
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.Process3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TcxButtonEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
|
||||
if (Trim(C_FromName3.Text) <> '') and (Trim(Process3.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName3.Text) + Trim(Process3.Text);
|
||||
end;
|
||||
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.Process4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TcxButtonEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
|
||||
if (Trim(C_FromName4.Text) <> '') and (Trim(Process4.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName4.Text) + Trim(Process4.Text);
|
||||
end;
|
||||
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.Process5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TcxButtonEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
|
||||
if (Trim(C_FromName5.Text) <> '') and (Trim(Process5.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName5.Text) + Trim(Process5.Text);
|
||||
end;
|
||||
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.ProcessPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TcxButtonEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
|
||||
if (Trim(C_FromName.Text) <> '') and (Trim(Process.Text) <> '') then
|
||||
C_Name.Text := Trim(C_FromName.Text) + Trim(Process.Text);
|
||||
end;
|
||||
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.InitGrid();
|
||||
begin
|
||||
|
||||
|
|
@ -299,19 +440,19 @@ begin
|
|||
|
||||
C_FromName2.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); //Å÷²¼±àºÅ
|
||||
C_FromName2.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); //Å÷²¼Ãû³Æ
|
||||
Process2.Text :=Trim(ADOQueryTemp.fieldbyname('Process2').AsString); //加工方式
|
||||
Process2.Text := Trim(ADOQueryTemp.fieldbyname('Process2').AsString); //加工方式
|
||||
|
||||
C_FromName3.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName3').AsString); //Å÷²¼±àºÅ
|
||||
C_FromName3.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName3').AsString); //Å÷²¼Ãû³Æ
|
||||
Process3.Text :=Trim(ADOQueryTemp.fieldbyname('Process3').AsString); //加工方式
|
||||
Process3.Text := Trim(ADOQueryTemp.fieldbyname('Process3').AsString); //加工方式
|
||||
|
||||
C_FromName4.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName4').AsString); //Å÷²¼±àºÅ
|
||||
C_FromName4.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName4').AsString); //Å÷²¼Ãû³Æ
|
||||
Process4.Text :=Trim(ADOQueryTemp.fieldbyname('Process4').AsString); //加工方式
|
||||
Process4.Text := Trim(ADOQueryTemp.fieldbyname('Process4').AsString); //加工方式
|
||||
|
||||
C_FromName5.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName5').AsString); //Å÷²¼±àºÅ
|
||||
C_FromName5.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName5').AsString); //Å÷²¼Ãû³Æ
|
||||
Process5.Text :=Trim(ADOQueryTemp.fieldbyname('Process5').AsString); //加工方式
|
||||
Process5.Text := Trim(ADOQueryTemp.fieldbyname('Process5').AsString); //加工方式
|
||||
|
||||
if ADOQueryTemp.fieldbyname('CJDATE').AsInteger <= 7 then
|
||||
begin
|
||||
|
|
@ -339,6 +480,12 @@ end;
|
|||
|
||||
procedure TfrmClothInfoInput.C_FromName2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if C_fromName.text = '' then
|
||||
begin
|
||||
Application.MessageBox('请先选择主布及其加工方式！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
try
|
||||
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
|
||||
with frmClothInfoSel do
|
||||
|
|
@ -348,7 +495,9 @@ begin
|
|||
begin
|
||||
C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
|
||||
C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
|
||||
setName();
|
||||
if (Trim(C_FromName2.Text) <> '') and (Trim(Process2.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName2.Text) + '复' + Trim(Process2.Text);
|
||||
// setName();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -356,10 +505,14 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.C_FromName3PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure TfrmClothInfoInput.C_FromName3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
if C_fromName2.text = '' then
|
||||
begin
|
||||
Application.MessageBox('请先选择次布1及其加工方式！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
|
||||
with frmClothInfoSel do
|
||||
begin
|
||||
|
|
@ -368,7 +521,62 @@ begin
|
|||
begin
|
||||
C_FromName3.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
|
||||
C_FromName3.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
|
||||
setName();
|
||||
if (Trim(C_FromName3.Text) <> '') and (Trim(Process3.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName3.Text) + Trim(Process3.Text);
|
||||
// setName();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmClothInfoSel.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
if C_fromName3.text = '' then
|
||||
begin
|
||||
Application.MessageBox('请先选择次布2及其加工方式！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
|
||||
with frmClothInfoSel do
|
||||
begin
|
||||
// FCTType := '坯布';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
C_FromName4.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
|
||||
C_FromName4.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
|
||||
if (Trim(C_FromName4.Text) <> '') and (Trim(Process4.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName4.Text) + Trim(Process4.Text);
|
||||
// setName();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmClothInfoSel.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.C_FromName5PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
begin
|
||||
if C_fromName4.text = '' then
|
||||
begin
|
||||
Application.MessageBox('请先选择次布3及其加工方式！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
|
||||
with frmClothInfoSel do
|
||||
begin
|
||||
// FCTType := '坯布';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
C_FromName5.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
|
||||
C_FromName5.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
|
||||
if (Trim(C_FromName5.Text) <> '') and (Trim(Process5.Text) <> '') then
|
||||
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName5.Text) + Trim(Process5.Text);
|
||||
// setName();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -387,7 +595,9 @@ begin
|
|||
begin
|
||||
C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
|
||||
C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
|
||||
setName();
|
||||
// setName();
|
||||
if (Trim(C_FromName.Text) <> '') and (Trim(Process.Text) <> '') then
|
||||
C_Name.Text := Trim(C_FromName.Text) + Trim(Process.Text);
|
||||
addColor();
|
||||
|
||||
end;
|
||||
|
|
@ -419,6 +629,7 @@ begin
|
|||
if ShowModal = 1 then
|
||||
begin
|
||||
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -689,7 +900,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -926,7 +1136,7 @@ begin
|
|||
begin
|
||||
FBCIID := Self.FBCIID;
|
||||
FBCISID := CDS_1.FieldByName('BCISID').Value;
|
||||
FPrice :=StrToFloatDef(CostPrice.Text, 0);
|
||||
FPrice := StrToFloatDef(CostPrice.Text, 0);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid1();
|
||||
|
|
@ -1154,7 +1364,7 @@ begin
|
|||
begin
|
||||
FBCIID := Self.FBCIID;
|
||||
FBCISID := '';
|
||||
FPrice :=StrToFloatDef(CostPrice.Text, 0);
|
||||
FPrice := StrToFloatDef(CostPrice.Text, 0);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid1();
|
||||
|
|
@ -1232,8 +1442,6 @@ begin
|
|||
// Panel6.Visible := False;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TfrmClothInfoInput.CostPricePropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue, FFieldName: string;
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user