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:
DESKTOP-E401PHE\Administrator 2025-06-05 13:18:28 +08:00
parent 35d1562b43
commit c6a7b35639
2 changed files with 195 additions and 178 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -339,7 +339,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_Name: TcxTextEdit object C_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 56 Top = 53
TabOrder = 1 TabOrder = 1
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
@ -382,7 +382,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_Spec: TcxButtonEdit object C_Spec: TcxButtonEdit
Tag = 2 Tag = 2
Left = 510 Left = 510
Top = 88 Top = 91
Hint = 'C_Spec/'#35268#26684 Hint = 'C_Spec/'#35268#26684
Properties.Buttons = < Properties.Buttons = <
item item
@ -414,7 +414,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object C_Width: TcxButtonEdit object C_Width: TcxButtonEdit
Tag = 2 Tag = 2
Left = 504 Left = 510
Top = 53 Top = 53
Hint = 'C_Width/'#38376#24133 Hint = 'C_Width/'#38376#24133
Properties.Buttons = < Properties.Buttons = <
@ -431,7 +431,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object C_Pattern: TcxButtonEdit object C_Pattern: TcxButtonEdit
Tag = 2 Tag = 2
Left = 504 Left = 510
Top = 14 Top = 14
Hint = 'C_Pattern/'#33457#22411 Hint = 'C_Pattern/'#33457#22411
Properties.Buttons = < Properties.Buttons = <
@ -483,7 +483,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object CraftCode: TcxTextEdit object CraftCode: TcxTextEdit
Tag = 2 Tag = 2
Left = 504 Left = 510
Top = 169 Top = 169
TabOrder = 11 TabOrder = 11
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
@ -500,7 +500,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object FtyName: TcxTextEdit object FtyName: TcxTextEdit
Tag = 2 Tag = 2
Left = 504 Left = 510
Top = 245 Top = 245
TabOrder = 13 TabOrder = 13
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
@ -517,7 +517,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object DyeingMethod: TcxTextEdit object DyeingMethod: TcxTextEdit
Tag = 2 Tag = 2
Left = 504 Left = 510
Top = 207 Top = 207
TabOrder = 15 TabOrder = 15
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
@ -543,7 +543,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object quota: TcxCurrencyEdit object quota: TcxCurrencyEdit
Tag = 2 Tag = 2
Left = 504 Left = 510
Top = 131 Top = 131
EditValue = 10.000000000000000000 EditValue = 10.000000000000000000
Properties.AssignedValues.DisplayFormat = True Properties.AssignedValues.DisplayFormat = True
@ -1068,107 +1068,107 @@ object frmClothInfoInput: TfrmClothInfoInput
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Parameters = <> Parameters = <>
Left = 440 Left = 472
Top = 277 Top = 293
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 534 Left = 554
Top = 277 Top = 293
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 534 Left = 718
Top = 371 Top = 417
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 628 Left = 554
Top = 277 Top = 355
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 440 Left = 636
Top = 371 Top = 417
end end
object CDS_2: TClientDataSet object CDS_2: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 722 Left = 636
Top = 277 Top = 355
end end
object DS_2: TDataSource object DS_2: TDataSource
DataSet = CDS_2 DataSet = CDS_2
Left = 628 Left = 800
Top = 371 Top = 417
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
Left = 816 Left = 554
Top = 277 Top = 417
end end
object ADO_2: TADOQuery object ADO_2: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 482 Left = 718
Top = 473 Top = 293
end end
object ADO_1: TADOQuery object ADO_1: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 576 Left = 636
Top = 481 Top = 293
end end
object ADO_3: TADOQuery object ADO_3: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 658 Left = 800
Top = 465 Top = 293
end end
object DS_3: TDataSource object DS_3: TDataSource
DataSet = CDS_3 DataSet = CDS_3
Left = 716 Left = 472
Top = 363 Top = 479
end end
object CDS_3: TClientDataSet object CDS_3: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 778 Left = 718
Top = 373 Top = 355
end end
object DS_4: TDataSource object DS_4: TDataSource
DataSet = CDS_4 DataSet = CDS_4
Left = 1030 Left = 554
Top = 283 Top = 479
end end
object CDS_4: TClientDataSet object CDS_4: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 972 Left = 800
Top = 285 Top = 355
end end
object ADO_4: TADOQuery object ADO_4: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 690 Left = 472
Top = 473 Top = 355
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Left = 935 Left = 636
Top = 166 Top = 479
end end
object CDS_LM: TClientDataSet object CDS_LM: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 980 Left = 472
Top = 389 Top = 417
end end
end end

285
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -174,8 +174,7 @@ type
procedure Process4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Process4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Process5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Process5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_FromName5PropertiesButtonClick(Sender: TObject; procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
private private
canshu1: string; canshu1: string;
Fint: Integer; Fint: Integer;
@ -185,6 +184,7 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
procedure setName(); procedure setName();
procedure addColor(); procedure addColor();
function SaveColor(): Boolean;
{ Private declarations } { Private declarations }
public public
FBCIID, FCTID: string; FBCIID, FCTID: string;
@ -203,6 +203,88 @@ uses
U_CompanySel, U_Edit; U_CompanySel, U_Edit;
{$R *.dfm} {$R *.dfm}
function TfrmClothInfoInput.SaveColor(): Boolean;
var
maxId2: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if trim(FBCIID) = '' then
raise Exception.Create('产品信息未保存!');
////////////////////////// 保存子表 //////////////////////////
with CDS_1 do
begin
First;
while not Eof do
begin
if Trim(CDS_1.fieldbyname('BCISID').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxId2, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
raise Exception.Create('取子流水号失败!');
end
else
begin
maxId2 := Trim(CDS_1.fieldbyname('BCISID').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add(' select * from BS_Cloth_Info_Sub where ');
sql.Add(' BCISID=''' + Trim(maxId2) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_1.fieldbyname('BCISID').AsString) = '' then
begin
Append;
FieldByName('FillID').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('EditID').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('BCIID').Value := Trim(FBCIID);
FieldByName('BCISID').Value := Trim(maxId2);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Info_Sub', 0);
Post;
end;
Next;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
sql.Add(' group by C_Color,C_ColorNo having count(BCISID)>1');
// ShowMessage(sql.Text);
Open;
end;
if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then
raise Exception.Create('颜色色号重复!');
//////////////////////// 保存子表 //////////////////////////
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
InitGrid1();
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmClothInfoInput.addColor(); procedure TfrmClothInfoInput.addColor();
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -231,13 +313,37 @@ begin
end; end;
EnableControls; EnableControls;
end; end;
end; end;
procedure TfrmClothInfoInput.setName(); procedure TfrmClothInfoInput.setName();
begin begin
if (Trim(C_FromName.Text) <> '') and (Trim(C_FromName2.Text) <> '') then if (Trim(C_FromName.Text) <> '') then
C_Name.Text := Trim(C_FromName.Text) + '复' + Trim(C_FromName2.Text); begin
C_Name.Text := Trim(C_FromName.Text) + Trim(Process.Text);
if (Trim(C_FromName2.Text) <> '') then
begin
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName2.Text) + Trim(Process2.Text);
if (Trim(C_FromName3.Text) <> '') then
begin
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName3.Text) + Trim(Process3.Text);
if (Trim(C_FromName4.Text) <> '') then
begin
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName4.Text) + Trim(Process4.Text);
if (Trim(C_FromName5.Text) <> '') then
C_Name.Text := Trim(C_Name.Text) + Trim(C_FromName5.Text) + Trim(Process5.Text);
end;
end;
end;
end
else
C_Name.Text := '';
end; end;
procedure TfrmClothInfoInput.StkPositionPropertiesButtonClick(Sender: TObject); procedure TfrmClothInfoInput.StkPositionPropertiesButtonClick(Sender: TObject);
@ -301,9 +407,8 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').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);
end; end;
end; end;
@ -328,9 +433,8 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').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);
end; end;
end; end;
@ -355,9 +459,7 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
setName();
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;
end; end;
@ -382,9 +484,7 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
setName();
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;
end; end;
@ -409,9 +509,8 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
setName();
if (Trim(C_FromName.Text) <> '') and (Trim(Process.Text) <> '') then
C_Name.Text := Trim(C_FromName.Text) + Trim(Process.Text);
end; end;
end; end;
@ -437,6 +536,7 @@ begin
// SCSHData(ADOQueryTemp, ScrollBox1, 0); // SCSHData(ADOQueryTemp, ScrollBox1, 0);
C_FromName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); //坯布编号 C_FromName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); //坯布编号
C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); //坯布名称 C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); //坯布名称
Process.Text := Trim(ADOQueryTemp.fieldbyname('Process').AsString); //加工方式
C_FromName2.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); //坯布编号 C_FromName2.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); //坯布编号
C_FromName2.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); //坯布名称 C_FromName2.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName2').AsString); //坯布名称
@ -495,9 +595,8 @@ begin
begin begin
C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').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); setName();
// setName();
end; end;
end; end;
finally finally
@ -521,9 +620,8 @@ begin
begin begin
C_FromName3.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName3.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName3.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); C_FromName3.Text := Trim(CDS_1.fieldbyname('C_Name').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); setName();
// setName();
end; end;
end; end;
finally finally
@ -547,9 +645,8 @@ begin
begin begin
C_FromName4.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName4.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName4.Text := Trim(CDS_1.fieldbyname('C_Name').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();
// setName();
end; end;
end; end;
finally finally
@ -557,10 +654,9 @@ begin
end; end;
end; end;
procedure TfrmClothInfoInput.C_FromName5PropertiesButtonClick(Sender: TObject; procedure TfrmClothInfoInput.C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
if C_fromName4.text = '' then if C_fromName4.text = '' then
begin begin
Application.MessageBox('请先选择次布3及其加工方式！', '提示', 0); Application.MessageBox('请先选择次布3及其加工方式！', '提示', 0);
Exit; Exit;
@ -574,9 +670,8 @@ begin
begin begin
C_FromName5.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName5.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName5.Text := Trim(CDS_1.fieldbyname('C_Name').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();
// setName();
end; end;
end; end;
finally finally
@ -595,9 +690,8 @@ begin
begin begin
C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').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(); addColor();
end; end;
@ -739,12 +833,8 @@ begin
if Trim(FBCIID) = '' then if Trim(FBCIID) = '' then
begin begin
if GetLSNo(ADOQueryCmd, MaxBCIID, 'Y', 'BS_Cloth_Info', 4, 1) = False then if GetLSNo(ADOQueryCmd, MaxBCIID, 'Y', 'BS_Cloth_Info', 4, 1) = False then
begin raise Exception.Create('取最大号失败!');
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
BCIID.Text := trim(MaxBCIID); BCIID.Text := trim(MaxBCIID);
end end
else else
@ -907,89 +997,10 @@ begin
sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + ''''); sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
Open; Open;
if FieldByName('AA').AsInteger > 1 then if FieldByName('AA').AsInteger > 1 then
begin raise Exception.Create('编号重复!');
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('编号重复！', '提示', 0);
Exit;
end;
end; end;
////////////////////////// 保存子表 //////////////////////////
// with CDS_1 do
// begin
// First;
// while not Eof do
// begin
// if Trim(CDS_1.fieldbyname('BCISID').AsString) = '' then
// begin
// if GetLSNo(ADOQueryTemp, maxId2, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('取子流水号失败！', '提示', 0);
// Exit;
// end;
// end
// else
// begin
// maxId2 := Trim(CDS_1.fieldbyname('BCISID').AsString);
// end;
//
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add(' select * from BS_Cloth_Info_Sub where ');
// sql.Add(' BCISID=''' + Trim(maxId2) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(CDS_1.fieldbyname('BCISID').AsString) = '' then
// begin
// Append;
// FieldByName('FillID').Value := Trim(DCode);
// FieldByName('Filler').Value := Trim(DName);
// FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
// end
// else
// begin
// Edit;
// FieldByName('EditID').Value := Trim(DCode);
// FieldByName('Editer').Value := Trim(DName);
// FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
// end;
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// FieldByName('BCISID').Value := Trim(maxId2);
// RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Info_Sub', 0);
// Post;
// end;
// Next;
// end;
// end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(MaxBCIID) + '''');
// sql.Add(' group by C_Color,C_ColorNo having count(BCISID)>1');
//// ShowMessage(sql.Text);
// Open;
//
// end;
// if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Result := False;
// Application.MessageBox('颜色色号重复！', '提示', 0);
// Exit;
// end;
////////////////////////// 保存子表 //////////////////////////
///
///
///
////////////////////////// 保存子表 //////////////////////////
with CDS_2 do with CDS_2 do
begin begin
First; First;
@ -998,11 +1009,8 @@ begin
if Trim(CDS_2.fieldbyname('BCIGID').AsString) = '' then if Trim(CDS_2.fieldbyname('BCIGID').AsString) = '' then
begin begin
if GetLSNo(ADOQueryTemp, MAXID3, 'GS', 'BS_Cloth_Info_GYSCP', 4, 1) = False then if GetLSNo(ADOQueryTemp, MAXID3, 'GS', 'BS_Cloth_Info_GYSCP', 4, 1) = False then
begin raise Exception.Create('取最大号失败!');
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
end end
else else
begin begin
@ -1049,11 +1057,8 @@ begin
if Trim(CDS_3.fieldbyname('CICID').AsString) = '' then if Trim(CDS_3.fieldbyname('CICID').AsString) = '' then
begin begin
if GetLSNo(ADOQueryTemp, MAXID4, 'CIC', 'Bs_Cloth_Info_Coefficient', 4, 1) = False then if GetLSNo(ADOQueryTemp, MAXID4, 'CIC', 'Bs_Cloth_Info_Coefficient', 4, 1) = False then
begin raise Exception.Create('取最大号失败!');
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
end end
else else
begin begin
@ -1104,12 +1109,12 @@ begin
// end; // end;
FBCIID := MaxBCIID; FBCIID := MaxBCIID;
InitGrid1();
Result := True; Result := True;
except except
Result := False; Result := False;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
InitGrid1();
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end; end;
end; end;
@ -1313,6 +1318,7 @@ begin
Exit; Exit;
end; end;
setName(); setName();
end end
else else
begin begin
@ -1334,12 +1340,23 @@ begin
// Application.MessageBox('请输入色号!', '提示', 0); // Application.MessageBox('请输入色号!', '提示', 0);
// Exit; // Exit;
// end; // end;
setName();
if SaveData() then if SaveData() then
begin begin
if FCTID = 'CT2412300005' then
begin
if CDS_1.Locate('BCISID', null, []) then
SaveColor();
end;
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
if not CDS_1.IsEmpty then if not CDS_1.IsEmpty then
ModalResult := 1; ModalResult := 1;
InitGrid1();
end; end;
end; end;