diff --git a/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local b/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local
index 705fac2..eae65c2 100644
--- a/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local
+++ b/项目代码/djdPack/G01贸易生产计划/ProjectGroup1.groupproj.local
@@ -1,6 +1,6 @@
-
+
diff --git a/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas b/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas
index 54faad9..8078907 100644
--- a/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas
+++ b/项目代码/djdPack/G01贸易生产计划/U_GetDllForm.pas
@@ -74,17 +74,14 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
- //server:='192.168.110.193,7781';
- dtbase := 'RTBasicsData';
-// dtbase := 'ruifengsyjyData';
- // dtbase:='jingpinjydata' ;
- // dtbase := 'sanhaojydata';
+ dtbase := 'zhuocanjydata';
+// dtbase := 'rtbasicsdata';
user := 'rtsa';
- pswd :='rightsoft@5740'; //'rightsoft@123';
+ pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
- Parameters1 := '';
-// Parameters1 := 'Ȩ';
+// Parameters1 := '';
+ Parameters1 := 'Ȩ';
dname:='ADMIN';
dcode:='ADMIN';
end
diff --git a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm b/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm
index 3df5871..9cdcaa8 100644
--- a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm
+++ b/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm
@@ -315,7 +315,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
AllowRemove = False
CaptionOptions.Text = #35746#21333#21495
Control = OrderNo
- ControlOptions.OriginalHeight = 27
+ ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 109
ControlOptions.ShowBorder = False
Index = 2
@@ -325,7 +325,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
AllowRemove = False
CaptionOptions.Text = #23458#25143#21517#31216
Control = custName
- ControlOptions.OriginalHeight = 27
+ ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 109
ControlOptions.ShowBorder = False
Index = 3
@@ -334,7 +334,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Tag = 99
CaptionOptions.Text = #19994#21153#21592
Control = ywy
- ControlOptions.OriginalHeight = 21
+ ControlOptions.OriginalHeight = 25
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@@ -344,7 +344,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Visible = False
CaptionOptions.Text = #20135#21697#21517#31216
Control = C_Name
- ControlOptions.OriginalHeight = 21
+ ControlOptions.OriginalHeight = 25
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@@ -354,7 +354,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
SizeOptions.Width = 195
CaptionOptions.Text = #21046#21333#26085#26399
Control = begdate
- ControlOptions.OriginalHeight = 27
+ ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 123
ControlOptions.ShowBorder = False
Index = 0
@@ -364,7 +364,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
SizeOptions.Width = 154
CaptionOptions.Text = '--'
Control = endDate
- ControlOptions.OriginalHeight = 27
+ ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 132
ControlOptions.ShowBorder = False
Index = 1
@@ -373,7 +373,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Parent = dxLayoutControl_queryGroup_Root
CaptionOptions.Text = #21512#21516#21495
Control = ConNo
- ControlOptions.OriginalHeight = 27
+ ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 105
ControlOptions.ShowBorder = False
Index = 4
@@ -383,7 +383,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Visible = False
CaptionOptions.Text = #23458#25143#21333#21495
Control = BuyConNo
- ControlOptions.OriginalHeight = 21
+ ControlOptions.OriginalHeight = 25
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@@ -392,7 +392,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Parent = dxLayoutControl_queryGroup_Root
CaptionOptions.Text = #26412#21378#32568#21495
Control = batchNo
- ControlOptions.OriginalHeight = 27
+ ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 105
ControlOptions.ShowBorder = False
Index = 5
@@ -400,7 +400,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
object dxLayoutItem_FtyPCId: TdxLayoutItem
CaptionOptions.Text = #26579#21378#32568#21495
Control = FtyPCId
- ControlOptions.OriginalHeight = 27
+ ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 105
ControlOptions.ShowBorder = False
Index = -1
@@ -416,9 +416,10 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Properties.CustomButtons.Buttons = <>
Properties.TabPosition = tpBottom
OnClick = cxPageControl1Click
- ClientRectBottom = 433
- ClientRectRight = 1113
- ClientRectTop = 0
+ ClientRectBottom = 430
+ ClientRectLeft = 1
+ ClientRectRight = 1112
+ ClientRectTop = 1
object cxTabSheet1: TcxTabSheet
Caption = #27719#24635#35270#22270
ImageIndex = 0
@@ -806,8 +807,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
end
object cxGrid2: TcxGrid
Left = 0
- Top = 278
- Width = 1113
+ Top = 274
+ Width = 1111
Height = 155
Align = alBottom
TabOrder = 1
@@ -1302,8 +1303,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
end
object cxSplitter1: TcxSplitter
Left = 0
- Top = 270
- Width = 1113
+ Top = 266
+ Width = 1111
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
diff --git a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas b/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas
index f6bafe1..79d16f2 100644
--- a/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas
+++ b/项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas
@@ -4,19 +4,17 @@ interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
- System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ToolWin, cxGraphics,
- cxControls, cxLookAndFeels,
- cxContainer, cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC,
- dxLayoutContainer, cxClasses, cxTextEdit, dxLayoutControl, cxStyles,
- cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator, dxDateRanges,
- dxScrollbarAnnotations, Data.DB, cxDBData, cxCalendar, cxGridLevel,
- cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView,
- cxGrid, U_BaseList, Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu,
- Datasnap.DBClient, cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils,
- cxMaskEdit, cxDropDownEdit, cxProgressBar, Vcl.Menus,
- RM_Common, RM_Class, RM_GridReport, RM_Dataset, cxLookAndFeelPainters,
- Vcl.ExtCtrls;
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
+ Vcl.ComCtrls, Vcl.ToolWin, cxGraphics, cxControls, cxLookAndFeels, cxContainer,
+ cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC, dxLayoutContainer,
+ cxClasses, cxTextEdit, dxLayoutControl, cxStyles, cxCustomData, cxFilter,
+ cxData, cxDataStorage, cxNavigator, dxDateRanges, dxScrollbarAnnotations,
+ Data.DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView,
+ cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGrid, U_BaseList,
+ Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, Datasnap.DBClient,
+ cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils, cxMaskEdit,
+ cxDropDownEdit, cxProgressBar, Vcl.Menus, RM_Common, RM_Class, RM_GridReport,
+ RM_Dataset, cxLookAndFeelPainters, Vcl.ExtCtrls;
type
TfrmTradePlanMgeList = class(TfrmBaseList)
@@ -217,9 +215,7 @@ type
procedure FormDestroy(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
- procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
- APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
- ANewItemRecordFocusingChanged: Boolean);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TBAddClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TbcgsClick(Sender: TObject);
@@ -241,8 +237,7 @@ type
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TupdatetoClick(Sender: TObject);
- procedure ButtonEdit(Sender: TObject;
- AButtonIndex: Integer);
+ procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
private
canshu1, canshu2: string;
fIsLoad: Boolean;
@@ -254,7 +249,6 @@ type
function DelSubData(): Boolean;
procedure threadLoadform();
public
-
end;
var
@@ -270,78 +264,89 @@ uses
procedure TfrmTradePlanMgeList.btnCopyClick(Sender: TObject);
begin
- if cxPageControl1.ActivePageIndex = 0 then
- begin
- if Order_Main.IsEmpty then
+ if cxPageControl1.ActivePageIndex = 0 then
+ begin
+ if Order_Main.IsEmpty then
Exit;
- try
- frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
- with frmTradePlanInPut do begin PState := 1;
+ try
+ frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
+ with frmTradePlanInPut do
+ begin
+ PState := 1;
CopyInt := 99;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
- fCopyMainId:= FMainId ;
+ fCopyMainId := FMainId;
canshu1 := Self.canshu1;
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
- finally
- frmTradePlanInPut.Free;
- end;
- end
- else
- begin
- if cds_mxlist.IsEmpty then
+ finally
+ frmTradePlanInPut.Free;
+ end;
+ end
+ else
+ begin
+ if cds_mxlist.IsEmpty then
Exit;
- try
- frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
- with frmTradePlanInPut do begin PState := 1;
+ try
+ frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
+ with frmTradePlanInPut do
+ begin
+ PState := 1;
CopyInt := 99;
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
- fCopyMainId:= FMainId ;
+ fCopyMainId := FMainId;
canshu1 := Self.canshu1;
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
- finally
- frmTradePlanInPut.Free;
- end;
- end;
+ finally
+ frmTradePlanInPut.Free;
+ end;
+ end;
end;
procedure TfrmTradePlanMgeList.cxPageControl1Click(Sender: TObject);
begin
- if cxPageControl1.ActivePageIndex = 0 then begin
+ if cxPageControl1.ActivePageIndex = 0 then
+ begin
dxLayoutItem_khdh.Visible := false;
dxLayoutItem_pm.Visible := false;
- dxLayoutItem_batchno.Visible:=false;
- dxLayoutItem_FtyPCId.Visible:=false;
+ dxLayoutItem_batchno.Visible := false;
+ dxLayoutItem_FtyPCId.Visible := false;
end
- else begin dxLayoutItem_khdh.Visible := true;
+ else
+ begin
+ dxLayoutItem_khdh.Visible := true;
dxLayoutItem_pm.Visible := true;
- dxLayoutItem_batchno.Visible:=true;
- dxLayoutItem_FtyPCId.Visible:=true;
+ dxLayoutItem_batchno.Visible := true;
+ dxLayoutItem_FtyPCId.Visible := true;
end;
TBRafresh.Click
end;
procedure TfrmTradePlanMgeList.cxTabControl1Change(Sender: TObject);
-begin TBRafresh.Click
+begin
+ TBRafresh.Click
end;
-procedure TfrmTradePlanMgeList.FormClose(Sender: TObject;
- var Action: TCloseAction);
-begin inherited;
+procedure TfrmTradePlanMgeList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
Action := cafree;
end;
procedure TfrmTradePlanMgeList.FormCreate(Sender: TObject);
-begin inherited;
+begin
+ inherited;
canshu1 := Trim(Self.fParameters1);
cxGrid2.Height := 250;
cxGrid1.Align := alClient;
@@ -362,7 +367,8 @@ begin inherited;
end;
procedure TfrmTradePlanMgeList.FormDestroy(Sender: TObject);
-begin inherited;
+begin
+ inherited;
frmTradePlanMgeList := nil;
end;
@@ -371,7 +377,7 @@ procedure TfrmTradePlanMgeList.FormShow(Sender: TObject);
// mdesignCode :string;
begin
inherited;
- Tbcgs.Visible:=gIsCanDesign;
+ Tbcgs.Visible := gIsCanDesign;
endDate.Date := SGetServerDate(ADOQueryBaseTemp);
begdate.Date := endDate.Date - 10;
// Scaleby(Screen.Width,1024);
@@ -391,10 +397,14 @@ procedure TfrmTradePlanMgeList.TBAddClick(Sender: TObject);
begin
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
- with frmTradePlanInPut do begin PState := 0;
+ with frmTradePlanInPut do
+ begin
+ PState := 0;
FMainId := '';
canshu1 := Self.canshu1;
- if ShowModal = 1 then begin InitGrid();
+ if ShowModal = 1 then
+ begin
+ InitGrid();
end;
end;
finally
@@ -405,28 +415,31 @@ end;
procedure TfrmTradePlanMgeList.TBCKClick(Sender: TObject);
var
- mMainId:string;
+ mMainId: string;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
- Exit;
+ Exit;
mMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
end
else
begin
if cds_mxlist.IsEmpty then
- Exit;
+ Exit;
mMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
end;
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
- with frmTradePlanInPut do begin PState := 5;
+ with frmTradePlanInPut do
+ begin
+ PState := 5;
FMainId := Trim(mMainId);
ToolBar2.Visible := false;
TBSave.Visible := false;
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
@@ -437,7 +450,8 @@ begin
end;
procedure TfrmTradePlanMgeList.TBCloseClick(Sender: TObject);
-begin inherited;
+begin
+ inherited;
close;
end;
@@ -445,59 +459,71 @@ procedure TfrmTradePlanMgeList.TBDelClick(Sender: TObject);
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
- if Order_Main.IsEmpty then
- Exit;
- if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin
- if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
- end;
- end;
+ if Order_Main.IsEmpty then
+ Exit;
+ if (canshu1 <> '') and (canshu1 <> 'Ȩ') then
+ begin
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+ end;
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
Exit;
- with ADOQueryBaseTemp do begin close;
+ with ADOQueryBaseTemp do
+ begin
+ close;
sql.Clear;
- sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID='''
- + Trim(Order_Main.fieldbyname('mainID').AsString) + '''');
+ sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(Order_Main.fieldbyname('mainID').AsString) + '''');
Open;
- end;
- if not ADOQueryBaseTemp.IsEmpty then begin
- Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0);
+ end;
+ if not ADOQueryBaseTemp.IsEmpty then
+ begin
+ Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0);
Exit;
- end;
+ end;
- if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then begin DelData()
+ if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then
+ begin
+ DelData()
end;
Order_Main.Delete;
end
else
begin
- if cds_mxlist.IsEmpty then
- Exit;
- if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin
- if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
- end;
- end;
+ if cds_mxlist.IsEmpty then
+ Exit;
+ if (canshu1 <> '') and (canshu1 <> 'Ȩ') then
+ begin
+ if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
+ end;
+ end;
- if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
+ if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then
Exit;
- with ADOQueryBaseTemp do begin close;
+ with ADOQueryBaseTemp do
+ begin
+ close;
sql.Clear;
- sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID='''
- + Trim(cds_mxlist.fieldbyname('mainID').AsString) + '''');
+ sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(cds_mxlist.fieldbyname('mainID').AsString) + '''');
Open;
- end;
- if not ADOQueryBaseTemp.IsEmpty then begin
- Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0);
+ end;
+ if not ADOQueryBaseTemp.IsEmpty then
+ begin
+ Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0);
Exit;
- end;
+ end;
- if Trim(cds_mxlist.fieldbyname('subId').AsString) <> '' then begin DelSubData()
+ if Trim(cds_mxlist.fieldbyname('subId').AsString) <> '' then
+ begin
+ DelSubData()
end;
cds_mxlist.Delete;
@@ -510,23 +536,27 @@ begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
- Exit;
+ Exit;
- if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin
- if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
+ if (canshu1 <> '') and (canshu1 <> 'Ȩ') then
+ begin
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
end;
end;
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
- with frmTradePlanInPut do begin
+ with frmTradePlanInPut do
+ begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
canshu1 := Self.canshu1;
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
@@ -537,23 +567,27 @@ begin
else
begin
if cds_mxlist.IsEmpty then
- Exit;
+ Exit;
- if (canshu1 <> '') and (canshu1 <> 'Ȩ') then begin
- if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
+ if (canshu1 <> '') and (canshu1 <> 'Ȩ') then
+ begin
+ if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
end;
end;
try
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
- with frmTradePlanInPut do begin
+ with frmTradePlanInPut do
+ begin
PState := 1;
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
FOrderNo := Trim(Self.cds_mxlist.fieldbyname('OrderNo').AsString);
canshu1 := Self.canshu1;
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
@@ -567,9 +601,9 @@ end;
procedure TfrmTradePlanMgeList.TBPrintClick(Sender: TObject);
var
WSql: string;
- mxIds:string;
+ mxIds: string;
begin
- mxIds:='';
+ mxIds := '';
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
@@ -579,7 +613,7 @@ begin
while not ORDER_SUB.eof do
begin
if ORDER_SUB.FieldByName('SSel').AsBoolean then
- mxIds:= trim(ORDER_SUB.FieldByName('subId').AsString)+','+mxIds;
+ mxIds := trim(ORDER_SUB.FieldByName('subId').AsString) + ',' + mxIds;
ORDER_SUB.Next;
end;
end
@@ -592,10 +626,13 @@ begin
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
- with frmLabelPrint do begin FLMType := 'TradePlanPrint';
+ with frmLabelPrint do
+ begin
+ FLMType := 'TradePlanPrint';
FFiltration1 := WSql;
- FFiltrationSubs:=mxIds;
- if ShowModal = 1 then begin
+ FFiltrationSubs := mxIds;
+ if ShowModal = 1 then
+ begin
// Self.InitGrid();
end;
end;
@@ -617,11 +654,14 @@ procedure TfrmTradePlanMgeList.TcdglClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
- with frmZDYHelp do begin flag := 'WFBCD';
+ with frmZDYHelp do
+ begin
+ flag := 'WFBCD';
flagname := 'õ';
fnote := true;
V1Note.Caption := 'Ӣ';
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
@@ -633,21 +673,21 @@ end;
procedure TfrmTradePlanMgeList.TdjszClick(Sender: TObject);
var
- mOrderNo,mMainId:string;
+ mOrderNo, mMainId: string;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
Exit;
- mOrderNo:= Trim(Order_Main.fieldbyname('orderNo').AsString) ;
- mMainId:= Trim(Order_Main.fieldbyname('mainId').AsString) ;
+ mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString);
+ mMainId := Trim(Order_Main.fieldbyname('mainId').AsString);
end
else
begin
if cds_mxlist.IsEmpty then
Exit;
- mOrderNo:= Trim(cds_mxlist.fieldbyname('orderNo').AsString) ;
- mMainId:= Trim(cds_mxlist.fieldbyname('mainId').AsString) ;
+ mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString);
+ mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString);
end;
try
frmTradeInspSet := TfrmTradeInspSet.Create(Application);
@@ -656,7 +696,8 @@ begin
// caption:=mOrderNo+'ǩ'
FDataID := mMainId;
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
@@ -668,18 +709,19 @@ end;
procedure TfrmTradePlanMgeList.TNowcClick(Sender: TObject);
var
- mOrderNo,mMainId:string;
+ mOrderNo, mMainId: string;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
Exit;
- if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
Exit;
end;
- mOrderNo:= Trim(Order_Main.fieldbyname('orderNo').AsString) ;
- mMainId:= Trim(Order_Main.fieldbyname('mainId').AsString) ;
+ mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString);
+ mMainId := Trim(Order_Main.fieldbyname('mainId').AsString);
end
else
begin
@@ -687,16 +729,18 @@ begin
Exit;
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
Exit;
end;
- mOrderNo:= Trim(cds_mxlist.fieldbyname('orderNo').AsString) ;
- mMainId:= Trim(cds_mxlist.fieldbyname('mainId').AsString) ;
+ mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString);
+ mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString);
end;
if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then
Exit;
try
- with ADOQueryBaseCmd do begin close;
+ with ADOQueryBaseCmd do
+ begin
+ close;
sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''9'' ');
sql.Add('where mainID=' + quotedstr(mMainId));
@@ -716,45 +760,55 @@ begin
Application.MessageBox('ƻʧܣ', 'ʾϢ', 0);
end;
-
end;
procedure TfrmTradePlanMgeList.TbcgsClick(Sender: TObject);
begin
- if cxPageControl1.ActivePageIndex = 1 then begin
- WriteCxGrid('װָʾϸбT3', tv3, gDllFileCaption);
+ if cxPageControl1.ActivePageIndex = 1 then
+ begin
+ WriteCxGrid('װָʾϸбT3', tv3, gDllFileCaption);
end
- else begin WriteCxGrid('װָʾбT1', Tv1, gDllFileCaption);
+ else
+ begin
+ WriteCxGrid('װָʾбT1', Tv1, gDllFileCaption);
WriteCxGrid('װָʾбT2', TV2, gDllFileCaption);
end;
if gIsCanDesign then
begin
- saveLayOut(application,dxLayoutControl_query, ADOQueryBaseCmd, pwidechar( fDllFileName + '|' + Self.name + '|' + dxLayoutControl_query.name+ '.ini'));
+ saveLayOut(application, dxLayoutControl_query, ADOQueryBaseCmd, pwidechar(fDllFileName + '|' + Self.name + '|' + dxLayoutControl_query.name + '.ini'));
end;
end;
procedure TfrmTradePlanMgeList.TtoexcelClick(Sender: TObject);
begin
- if (cxPageControl1.ActivePageIndex = 0) then begin
- if cxGrid2.Focused then begin TcxGridToExcel(Self.Caption, cxGrid2);
+ if (cxPageControl1.ActivePageIndex = 0) then
+ begin
+ if cxGrid2.Focused then
+ begin
+ TcxGridToExcel(Self.Caption, cxGrid2);
end
- else begin TcxGridToExcel(Self.Caption + '-ϸ', cxGrid1);
+ else
+ begin
+ TcxGridToExcel(Self.Caption + '-ϸ', cxGrid1);
end;
end
- else begin
- TcxGridToExcel(Self.Caption+'-ϸ',cxGrid3);
+ else
+ begin
+ TcxGridToExcel(Self.Caption + '-ϸ', cxGrid3);
end;
end;
procedure TfrmTradePlanMgeList.TfilterClick(Sender: TObject);
begin
- inherited;
- conno.Tag:=2;
- if cxPageControl1.ActivePageIndex = 0 then begin
+ inherited;
+ conno.Tag := 2;
+ if cxPageControl1.ActivePageIndex = 0 then
+ begin
try
Tv1.BeginUpdate();
- if ADOQueryMain.Active then begin
- SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2));
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2));
Order_Main.EmptyDataSet;
SInitCDSData(ADOQueryMain, Order_Main);
end;
@@ -762,11 +816,13 @@ begin
Tv1.EndUpdate;
end;
end
- else begin
+ else
+ begin
try
tv3.BeginUpdate();
- if ADOQueryMxList.Active then begin
- SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2));
+ if ADOQueryMxList.Active then
+ begin
+ SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2));
cds_mxlist.EmptyDataSet;
SInitCDSData(ADOQueryMxList, cds_mxlist);
end;
@@ -778,27 +834,27 @@ end;
procedure TfrmTradePlanMgeList.TupdatetoClick(Sender: TObject);
var
- mOrderNo,mMainId:string;
+ mOrderNo, mMainId: string;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
Exit;
- mOrderNo:= Trim(Order_Main.fieldbyname('orderNo').AsString) ;
- mMainId:= Trim(Order_Main.fieldbyname('mainId').AsString) ;
+ mOrderNo := Trim(Order_Main.fieldbyname('orderNo').AsString);
+ mMainId := Trim(Order_Main.fieldbyname('mainId').AsString);
end
else
begin
if cds_mxlist.IsEmpty then
Exit;
- mOrderNo:= Trim(cds_mxlist.fieldbyname('orderNo').AsString) ;
- mMainId:= Trim(cds_mxlist.fieldbyname('mainId').AsString) ;
+ mOrderNo := Trim(cds_mxlist.fieldbyname('orderNo').AsString);
+ mMainId := Trim(cds_mxlist.fieldbyname('mainId').AsString);
end;
- frmUptPlanDataToRoll:=TfrmUptPlanDataToRoll.create(Application);
+ frmUptPlanDataToRoll := TfrmUptPlanDataToRoll.create(Application);
with frmUptPlanDataToRoll do
begin
- fMainId:=mMainId;
- cxTextEdit1.Text:=trim(mOrderNo);
+ fMainId := mMainId;
+ cxTextEdit1.Text := trim(mOrderNo);
showModal;
free;
end;
@@ -807,28 +863,30 @@ end;
procedure TfrmTradePlanMgeList.ToolButton4Click(Sender: TObject);
var
- mMainId:string;
+ mMainId: string;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
- Exit;
+ Exit;
mMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
end
else
begin
if cds_mxlist.IsEmpty then
- Exit;
+ Exit;
mMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
end;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
- with frmAttachmentUpload do begin
+ with frmAttachmentUpload do
+ begin
if Trim(canshu1) <> 'ѯ' then
FEditAuthority := true;
fkeyNO := Trim(mMainId);
fType := 'ָʾ';
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
@@ -838,9 +896,7 @@ begin
end;
-procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged
- (Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord
- : TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if fIsLoad then
InitSub();
@@ -848,36 +904,41 @@ begin
end;
procedure TfrmTradePlanMgeList.TWCClick(Sender: TObject);
+var
+ topIndex: Integer;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if Order_Main.IsEmpty then
Exit;
- if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
+ if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
end;
if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then
Exit;
- try
- with ADOQueryBaseCmd do begin close;
- sql.Clear;
- sql.Add('update Trade_Plan_Main SET status=''10'' ');
- sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID')
- .AsString)));
+ topIndex := Tv1.Controller.TopRowIndex;
- sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
- sql.Add(' ' + quotedstr(Trim(DName)));
- sql.Add(',getdate() ');
- sql.Add(',' + quotedstr(Trim(Self.Caption)));
- sql.Add(',' + quotedstr(Trim('ƻ')));
- sql.Add(',' + quotedstr(Trim('ƻţ' +
- Trim(Order_Main.fieldbyname('orderNO').AsString))));
- sql.Add(',' + quotedstr(Trim('ɹ')));
- sql.Add(')');
- execsql;
- end;
+ try
+ with ADOQueryBaseCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Plan_Main SET status=''10'' ');
+ sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID').AsString)));
+
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(Trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(Trim(Self.Caption)));
+ sql.Add(',' + quotedstr(Trim('ƻ')));
+ sql.Add(',' + quotedstr(Trim('ƻţ' + Trim(Order_Main.fieldbyname('orderNO').AsString))));
+ sql.Add(',' + quotedstr(Trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
Application.MessageBox('ƻɳɹ', 'ʾϢ');
TBRafresh.Click;
@@ -889,31 +950,32 @@ begin
begin
if cds_mxlist.IsEmpty then
Exit;
- if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
+ if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
+ begin
+ Application.MessageBox('ܲ˵!', 'ʾ', 0);
+ Exit;
end;
if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then
Exit;
try
- with ADOQueryBaseCmd do begin close;
- sql.Clear;
- sql.Add('update Trade_Plan_Main SET status=''10'' ');
- sql.Add('where mainID=' + quotedstr(Trim(cds_mxlist.fieldbyname('mainID')
- .AsString)));
+ with ADOQueryBaseCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('update Trade_Plan_Main SET status=''10'' ');
+ sql.Add('where mainID=' + quotedstr(Trim(cds_mxlist.fieldbyname('mainID').AsString)));
- sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
- sql.Add(' ' + quotedstr(Trim(DName)));
- sql.Add(',getdate() ');
- sql.Add(',' + quotedstr(Trim(Self.Caption)));
- sql.Add(',' + quotedstr(Trim('ƻ')));
- sql.Add(',' + quotedstr(Trim('ƻţ' +
- Trim(cds_mxlist.fieldbyname('orderNO').AsString))));
- sql.Add(',' + quotedstr(Trim('ɹ')));
- sql.Add(')');
- execsql;
- end;
+ sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+ sql.Add(' ' + quotedstr(Trim(DName)));
+ sql.Add(',getdate() ');
+ sql.Add(',' + quotedstr(Trim(Self.Caption)));
+ sql.Add(',' + quotedstr(Trim('ƻ')));
+ sql.Add(',' + quotedstr(Trim('ƻţ' + Trim(cds_mxlist.fieldbyname('orderNO').AsString))));
+ sql.Add(',' + quotedstr(Trim('ɹ')));
+ sql.Add(')');
+ execsql;
+ end;
Application.MessageBox('ƻɳɹ', 'ʾϢ');
TBRafresh.Click;
@@ -921,22 +983,23 @@ begin
Application.MessageBox('ƻʧܣ', 'ʾϢ', 0);
end;
end;
-
+ Tv1.Controller.TopRowIndex := topIndex;
end;
-procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject;
- AButtonIndex: Integer);
+procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
frmPictureUpload := TfrmPictureUpload.Create(Application);
- with frmPictureUpload do begin
+ with frmPictureUpload do
+ begin
fFlileFlag := UserDataFlag + 'HX';
FWidth := 250;
FHeight := 300;
FTFType := 'HX';
FDataId := Trim(Self.ORDER_SUB.fieldbyname('subId').AsString);
- if ShowModal = 1 then begin
+ if ShowModal = 1 then
+ begin
end;
end;
finally
@@ -948,17 +1011,20 @@ procedure TfrmTradePlanMgeList.InitGrid();
var
strwhere: string;
mStatus: string;
-begin strwhere := '';
+begin
+ strwhere := '';
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
- ConNo.Tag:=99;
- batchNo.Tag:=99;
- FtyPCId.Tag:=99;
+ ConNo.Tag := 99;
+ batchNo.Tag := 99;
+ FtyPCId.Tag := 99;
strwhere := SLGetFilters(dxLayoutControl_query, 1, 2);
- if Trim(strwhere) <> '' then begin strwhere := ' and ' + Trim(strwhere);
+ if Trim(strwhere) <> '' then
+ begin
+ strwhere := ' and ' + Trim(strwhere);
end;
- if (Trim(DParameters1) <> 'Ȩ') then
- strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
+ if (Trim(DParameters1) <> 'Ȩ') then
+ strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
try
Tv1.BeginUpdate();
@@ -966,19 +1032,17 @@ begin strwhere := '';
loadProcess.Visible := true;
loadProcess.Refresh;
-
Order_Main.DisableControls;
- with ADOQueryMain do begin
+ with ADOQueryMain do
+ begin
- close;
+ close;
Filtered := false;
sql.Clear;
sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
Parameters.ParamByName('timeType').Value := 'Ƶ';
- Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
- begdate.Date);
- Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
- endDate.Date + 1);
+ Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date);
+ Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
Parameters.ParamByName('mStatus').Value := mStatus;
Parameters.ParamByName('WSql').Value := strwhere;
Open;
@@ -1003,8 +1067,8 @@ end;
procedure TfrmTradePlanMgeList.InitForm();
begin
- addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7);
- addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid3',dxLayoutControl_query,7);
+ addQryContionByLay(ADOQueryBaseTemp, fformId, 'cxgrid1', dxLayoutControl_query, 7);
+ addQryContionByLay(ADOQueryBaseTemp, fformId, 'cxgrid3', dxLayoutControl_query, 7);
ReadCxGrid('װָʾбT1', Tv1, gDllFileCaption);
ReadCxGrid('װָʾбT2', TV2, gDllFileCaption);
ReadCxGrid('װָʾϸбT3', tv3, gDllFileCaption);
@@ -1014,13 +1078,16 @@ begin
end;
procedure TfrmTradePlanMgeList.InitSub();
-begin ADOQuerySub.close;
+begin
+ ADOQuerySub.close;
if Order_Main.IsEmpty then
Exit;
try
TV2.BeginUpdate();
ORDER_SUB.DisableControls;
- with ADOQuerySub do begin close;
+ with ADOQuerySub do
+ begin
+ close;
sql.Clear;
sql.Add('exec P_View_TradePlanMxList_for_pack ');
sql.Add('@mainId =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
@@ -1039,25 +1106,27 @@ end;
procedure TfrmTradePlanMgeList.N1Click(Sender: TObject);
var
- FLabVolume, fPrintFile,mSubId: string;
+ FLabVolume, fPrintFile, mSubId: string;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if ORDER_SUB.IsEmpty then
Exit;
- mSubId:= Trim(ORDER_SUB.fieldbyname('SUBID').AsString) ;
+ mSubId := Trim(ORDER_SUB.fieldbyname('SUBID').AsString);
end
else
begin
- if cds_mxlist.IsEmpty then
+ if cds_mxlist.IsEmpty then
Exit;
- mSubId:= Trim(cds_mxlist.fieldbyname('SUBID').AsString) ;
+ mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString);
end;
//
- with ADOQueryPrint do begin close;
+ with ADOQueryPrint do
+ begin
+ close;
sql.Clear;
sql.Add(' EXEC P_Trade_Print_djd_Lab ');
- sql.Add(' @CIID=''' + mSubId+ '''');
+ sql.Add(' @CIID=''' + mSubId + '''');
sql.Add(',@isTest =1');
Open;
end;
@@ -1067,16 +1136,19 @@ begin
else
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString);
- if FLabVolume='' then FLabVolume:=trim(gDefaultLableFile);
- if FLabVolume = '' then begin
- Application.MessageBox('δþǩ', 'ʾϢ', MB_ICONERROR);
+ if FLabVolume = '' then
+ FLabVolume := trim(gDefaultLableFile);
+ if FLabVolume = '' then
+ begin
+ Application.MessageBox('δþǩ', 'ʾϢ', MB_ICONERROR);
Exit;
end;
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp);
- fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' +
- FLabVolume + '.rmf';
+ fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
- if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile);
+ if FileExists(fPrintFile) then
+ begin
+ RM1.LoadFromFile(fPrintFile);
if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then
RM1.DefaultCopies := 2
else
@@ -1084,28 +1156,32 @@ begin
RM1.ShowErrorMsg := false;
RM1.ShowReport;
end
- else begin Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
+ else
+ begin
+ Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
end;
end;
procedure TfrmTradePlanMgeList.N2Click(Sender: TObject);
var
- MLabPackage, fPrintFile,mSubId: string;
+ MLabPackage, fPrintFile, mSubId: string;
begin
if cxPageControl1.ActivePageIndex = 0 then
begin
if ORDER_SUB.IsEmpty then
Exit;
- mSubId:= Trim(ORDER_SUB.fieldbyname('SUBID').AsString) ;
+ mSubId := Trim(ORDER_SUB.fieldbyname('SUBID').AsString);
end
else
begin
- if cds_mxlist.IsEmpty then
+ if cds_mxlist.IsEmpty then
Exit;
- mSubId:= Trim(cds_mxlist.fieldbyname('SUBID').AsString) ;
+ mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString);
end;
- with ADOQueryPrint do begin close;
+ with ADOQueryPrint do
+ begin
+ close;
sql.Clear;
sql.Add('exec P_Trade_Insp_Prt_djd_PackLab_test ');
sql.Add('@subId =' + quotedstr(mSubId));
@@ -1115,37 +1191,44 @@ begin
MLabPackage := Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString)
else
MLabPackage := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString);
- if MLabPackage='' then MLabPackage:=trim(gDefaultPackLableFile);
- if MLabPackage = '' then begin
- Application.MessageBox('δðǩ', 'ʾϢ', MB_ICONERROR);
+ if MLabPackage = '' then
+ MLabPackage := trim(gDefaultPackLableFile);
+ if MLabPackage = '' then
+ begin
+ Application.MessageBox('δðǩ', 'ʾϢ', MB_ICONERROR);
Exit;
end;
ExportFtErpFile(Trim(MLabPackage) + '.rmf', ADOQueryBaseTemp);
- fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' +
- Trim(MLabPackage) + '.rmf';
- if not FileExists(fPrintFile) then begin
- Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
+ fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MLabPackage) + '.rmf';
+ if not FileExists(fPrintFile) then
+ begin
+ Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
Exit;
end;
- if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile);
+ if FileExists(fPrintFile) then
+ begin
+ RM1.LoadFromFile(fPrintFile);
RM1.DefaultCopies := 1;
RM1.ShowErrorMsg := false;
RM1.ShowReport;
end
- else begin Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
+ else
+ begin
+ Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
end;
end;
procedure TfrmTradePlanMgeList.OrderNoPropertiesChange(Sender: TObject);
-begin inherited;
+begin
+ inherited;
Tfilter.Click;
end;
-procedure TfrmTradePlanMgeList.OrderNoPropertiesEditValueChanged
- (Sender: TObject);
-begin inherited;
+procedure TfrmTradePlanMgeList.OrderNoPropertiesEditValueChanged(Sender: TObject);
+begin
+ inherited;
InitGrid();
end;
@@ -1153,34 +1236,37 @@ procedure TfrmTradePlanMgeList.InitMxGrid();
var
strwhere: string;
mStatus: string;
-begin strwhere := '';
+begin
+ strwhere := '';
try
loadProcess.Visible := true;
loadProcess.Refresh;
tv3.BeginUpdate();
- ConNo.Tag:=2;
- batchNo.Tag:=2;
- FtyPCId.Tag:=2;
+ ConNo.Tag := 2;
+ batchNo.Tag := 2;
+ FtyPCId.Tag := 2;
strwhere := SLGetFilters(dxLayoutControl_query, 1, 2);
- if Trim(strwhere) <> '' then begin strwhere := ' and ' + Trim(strwhere);
+ if Trim(strwhere) <> '' then
+ begin
+ strwhere := ' and ' + Trim(strwhere);
end;
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
- if (Trim(DParameters1) <> 'Ȩ') then
+ if (Trim(DParameters1) <> 'Ȩ') then
strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
cds_mxlist.DisableControls;
- with ADOQueryMxList do begin close;
+ with ADOQueryMxList do
+ begin
+ close;
Filtered := false;
sql.Clear;
sql.Add('exec P_View_TradePlanMxList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
Parameters.ParamByName('timeType').Value := 'Ƶ';
- Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
- begdate.Date);
- Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
- endDate.Date + 1);
+ Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date);
+ Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
Parameters.ParamByName('mStatus').Value := mStatus;
// if strwhere<> then
- Parameters.ParamByName('WSql').Value :=' '+ strwhere;
+ Parameters.ParamByName('WSql').Value := ' ' + strwhere;
Open;
end;
@@ -1192,8 +1278,8 @@ begin strwhere := '';
tv3.DataController.Filter.Clear;
finally
- TV3.Controller.GoToFirst();
- tv3.EndUpdate;
+ TV3.Controller.GoToFirst();
+ tv3.EndUpdate;
loadProcess.Visible := false;
end;
end;
@@ -1203,22 +1289,20 @@ begin
try
Result := false;
ADOQueryBaseCmd.Connection.BeginTrans;
- with ADOQueryBaseCmd do begin close;
+ with ADOQueryBaseCmd do
+ begin
+ close;
sql.Clear;
- sql.Add('delete Trade_Plan_Main where MainId=''' +
- Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
- sql.Add('delete Trade_Plan_Sub where MainId=''' +
- Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
- sql.Add('delete Trade_Plan_Fty where MainId=''' +
- Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+ sql.Add('delete Trade_Plan_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+ sql.Add('delete Trade_Plan_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+ sql.Add('delete Trade_Plan_Fty where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(Trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(Trim(Self.Caption)));
sql.Add(',' + quotedstr(Trim('ָʾɾ')));
- sql.Add(',' + quotedstr(Trim('ָʾţ' +
- Trim(Order_Main.fieldbyname('OrderNO').AsString))));
+ sql.Add(',' + quotedstr(Trim('ָʾţ' + Trim(Order_Main.fieldbyname('OrderNO').AsString))));
sql.Add(',' + quotedstr(Trim('ɹ')));
sql.Add(')');
execsql;
@@ -1232,20 +1316,23 @@ begin
end;
end;
/////////////////////////////////////////////////
+
function TfrmTradePlanMgeList.DelSubData(): Boolean;
var
- mSubId:string;
+ mSubId: string;
begin
try
Result := false;
- mSubId:= Trim(cds_mxlist.fieldbyname('subId').AsString) ;
+ mSubId := Trim(cds_mxlist.fieldbyname('subId').AsString);
ADOQueryBaseCmd.Connection.BeginTrans;
- with ADOQueryBaseCmd do begin close;
+ with ADOQueryBaseCmd do
+ begin
+ close;
sql.Clear;
// sql.Add('delete Trade_Plan_Main where MainId=''' +
// Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add('delete Trade_Plan_Sub where MainId=' + quotedstr(Trim(cds_mxlist.fieldbyname('MainId').AsString)));
- sql.Add('and subId='+ quotedstr(mSubId));
+ sql.Add('and subId=' + quotedstr(mSubId));
// sql.Add('delete Trade_Plan_Fty where MainId=''' +
// Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
@@ -1254,8 +1341,7 @@ begin
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(Trim(Self.Caption)));
sql.Add(',' + quotedstr(Trim('ָʾɾ')));
- sql.Add(',' + quotedstr(Trim('ָʾţ' +
- Trim(Order_Main.fieldbyname('OrderNO').AsString)+';ϸid='+mSubId)));
+ sql.Add(',' + quotedstr(Trim('ָʾţ' + Trim(Order_Main.fieldbyname('OrderNO').AsString) + ';ϸid=' + mSubId)));
sql.Add(',' + quotedstr(Trim('ɹ')));
sql.Add(')');
execsql;
@@ -1269,35 +1355,36 @@ begin
end;
end;
////////////////////////////////////////////////
+
procedure TfrmTradePlanMgeList.threadLoadform();
var
thread: TThread;
begin
- thread:=TThread.CreateAnonymousThread(
+ thread := TThread.CreateAnonymousThread(
procedure
begin
- with ADOQueryMain do begin
+ with ADOQueryMain do
+ begin
- close;
- Filtered := false;
- sql.Clear;
- sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
- Parameters.ParamByName('timeType').Value := 'Ƶ';
- Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
- begdate.Date);
- Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
- endDate.Date + 1);
- Parameters.ParamByName('mStatus').Value := '';
- Parameters.ParamByName('WSql').Value := '';
- Open;
- end;
+ close;
+ Filtered := false;
+ sql.Clear;
+ sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
+ Parameters.ParamByName('timeType').Value := 'Ƶ';
+ Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date);
+ Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
+ Parameters.ParamByName('mStatus').Value := '';
+ Parameters.ParamByName('WSql').Value := '';
+ Open;
+ end;
end);
- thread.FreeOnTerminate := True;
- thread.Start;
+ thread.FreeOnTerminate := True;
+ thread.Start;
end;
end.
+
diff --git a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj
index db3a485..a29c644 100644
--- a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj
+++ b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj
@@ -4,7 +4,7 @@
djdPackPlan.dpr
True
Debug
- 38017
+ 1
Library
VCL
19.2
@@ -13,16 +13,6 @@
true
-
- true
- Base
- true
-
-
- true
- Base
- true
-
true
Base
@@ -38,24 +28,6 @@
Base
true
-
- true
- Cfg_1
- true
- true
-
-
- true
- Cfg_1
- true
- true
-
-
- true
- Cfg_1
- true
- true
-
true
Cfg_1
@@ -67,24 +39,6 @@
Base
true
-
- true
- Cfg_2
- true
- true
-
-
- true
- Cfg_2
- true
- true
-
-
- true
- Cfg_2
- true
- true
-
true
Cfg_2
@@ -104,13 +58,6 @@
2052
CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=
-
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png
- android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar
-
-
- $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png
-
Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
Debug
@@ -128,15 +75,6 @@
false
0
-
- Debug
-
-
- Debug
-
-
- Debug
-
D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\testDll.exe
@@ -145,18 +83,9 @@
false
true
-
- Debug
-
-
- Debug
-
-
- Debug
-
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
- D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G01贸易生产计划\testDll.exe
+ E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G01贸易生产计划\testDll.exe
@@ -286,10 +215,6 @@
- True
- True
- True
- True
True
False
diff --git a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local
index f9df33d..4fdb613 100644
--- a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local
+++ b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local
@@ -1,34 +1,6 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -53,7 +25,7 @@
-
+
@@ -98,12 +70,12 @@
1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=
- 1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=
+ 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm
1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=
+ 1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=
1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=
- 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm
1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=
- 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas
+ 1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas
1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas
diff --git a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.identcache b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.identcache
index b171f12..24200ff 100644
Binary files a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.identcache and b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.identcache differ
diff --git a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.res b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.res
index 9a6a468..ddf1bc4 100644
Binary files a/项目代码/djdPack/G01贸易生产计划/djdPackPlan.res and b/项目代码/djdPack/G01贸易生产计划/djdPackPlan.res differ
diff --git a/项目代码/djdPack/G01贸易生产计划/testDll.identcache b/项目代码/djdPack/G01贸易生产计划/testDll.identcache
index 075b4e9..07c0810 100644
Binary files a/项目代码/djdPack/G01贸易生产计划/testDll.identcache and b/项目代码/djdPack/G01贸易生产计划/testDll.identcache differ
diff --git a/项目代码/djdPack/G01贸易生产计划/testDll.res b/项目代码/djdPack/G01贸易生产计划/testDll.res
index 2465ca0..e116c48 100644
Binary files a/项目代码/djdPack/G01贸易生产计划/testDll.res and b/项目代码/djdPack/G01贸易生产计划/testDll.res differ
diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr
index 8fe4fbd..bb6556a 100644
--- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr
+++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr
@@ -50,7 +50,8 @@ uses
U_FormInitThread in '..\..\..\public10\design\U_FormInitThread.pas',
Unit2 in 'Unit2.pas' {Form2},
U_ControlData in '..\..\..\public10\ThreeFun\Fun\U_ControlData.pas',
- uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
+ uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
+ U_ProductListHelp2 in 'U_ProductListHelp2.pas' {frmProductListHelp2};
{$R *.res}
diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj
index e6e2ef6..1c99069 100644
--- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj
+++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj
@@ -235,6 +235,10 @@
+
+
+ dfm
+
Cfg_2
Base
diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local
index b74bfac..71a3232 100644
--- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local
+++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local
@@ -1,104 +1,105 @@
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas
1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas
1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm
- 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
- 1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
+ 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas
1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj
- 1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas
+ 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj
1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=
- 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj
+ 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm
+ 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas
+ 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas
1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas
- 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas
+ 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas
+ 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas
- 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=
+ 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.pas=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.pas
1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas
+ 1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas
+ 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=
+ 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm
+ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
+ 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj
1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=
1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas
- 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj
1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas
- 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj
- 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm
- 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm
- 1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.dfm=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.dfm
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas
+ 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm
+ 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm
- 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm
- 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
- 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.pas=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.pas
+ 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas
+ 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas
+ 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas
+ 1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas
+ 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.608,D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList_Auto.dfm=D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspList.dfm
+ 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm
+ 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas
- 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas
- 1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas
- 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm
- 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.928,=E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G03贸易布匹检验\U_ProductListHelp2.pas
+ 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm
+ 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm
+ 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm
1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm
+ 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm
+ 1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=
+ 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm
+ 1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas
+ 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas
+ 1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas
+ 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas
+ 1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
@@ -184,5 +185,7 @@
+
+
diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache
index 702feeb..c71ed02 100644
Binary files a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache and b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache differ
diff --git a/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.dfm b/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.dfm
index 778c525..6e2b5a6 100644
--- a/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.dfm
+++ b/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.dfm
@@ -2045,6 +2045,10 @@ inherited frmMachRollMain: TfrmMachRollMain
object sheetLook: TcxTabSheet
Caption = #26597#30475
ImageIndex = 1
+ ExplicitLeft = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object cxGrid1: TcxGrid
Tag = 999
Left = 0
diff --git a/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.pas b/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.pas
index a4ab286..923edbd 100644
--- a/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.pas
+++ b/项目代码/djdPack/G03贸易布匹检验/U_MachRollMain.pas
@@ -394,6 +394,7 @@ type
fmanage, canshu1: string;
fFlileFlag: string;
FNetpoundxs, FGrosspoundxs: Double;
+ MCustName, MC_Color, MOrderNo: string;
end;
var
@@ -405,7 +406,7 @@ implementation
uses
U_DataLink, U_ControlData, U_ParamSet, U_RTFun, U_globalVar, U_DjdDjClList_CX,
U_FormLayOutDesign, U_ZDYHelp, U_iniParam, U_ProductListHelp, U_SysLogList,
- U_MdPrint;
+ U_MdPrint, U_ProductListHelp2;
{$R *.dfm}
/// ///////////////////////////////
@@ -2579,13 +2580,20 @@ var
mkey: Char;
begin
inherited;
- frmProductListHelp := TfrmProductListHelp.create(Self);
- with frmProductListHelp do
+ frmProductListHelp2 := TfrmProductListHelp2.create(Self);
+ with frmProductListHelp2 do
begin
fType := '10';
+ FCustName := MCustName;
+// FC_Color := MC_Color;
+ FOrderNo := MOrderNo;
if ShowModal = 1 then
begin
- edtScan.Text := trim(order_main.fieldbyName('Subid').AsString);
+// edtScan.Text := trim(order_main.fieldbyName('Subid').AsString);
+ edtScan.Text := trim(Order_Sub.fieldbyName('Subid').AsString);
+ MCustName := trim(Order_Sub.fieldbyName('CustName').AsString);
+// MC_Color := trim(Order_Sub.fieldbyName('C_Color').AsString);
+ MOrderNo := trim(Order_Sub.fieldbyName('OrderNo').AsString);
mkey := #13;
edtScanKeyPress(edtScan, mkey);
end;
diff --git a/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.dfm b/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.dfm
new file mode 100644
index 0000000..ebe28d2
--- /dev/null
+++ b/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.dfm
@@ -0,0 +1,458 @@
+inherited frmProductListHelp2: TfrmProductListHelp2
+ AutoSize = True
+ Caption = #25351#31034#21333#26126#32454#21015#34920
+ ClientHeight = 540
+ ClientWidth = 1143
+ Font.Charset = ANSI_CHARSET
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Position = poDesktopCenter
+ WindowState = wsMaximized
+ ExplicitWidth = 1159
+ ExplicitHeight = 579
+ PixelsPerInch = 96
+ TextHeight = 19
+ object ToolBar1: TToolBar [0]
+ Tag = 999
+ Left = 0
+ Top = 0
+ Width = 1143
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 99
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = [fsBold]
+ Images = DataLink_TradeInsp.cxImageList_bar
+ List = True
+ ParentColor = False
+ ParentFont = False
+ ShowCaptions = True
+ TabOrder = 0
+ object TBRafresh: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #21047#26032
+ ImageIndex = 1
+ OnClick = TBRafreshClick
+ end
+ object TBFind: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #36807#28388
+ ImageIndex = 0
+ Visible = False
+ OnClick = TBFindClick
+ end
+ object TselOk: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #30830#23450
+ ImageIndex = 12
+ OnClick = TselOkClick
+ end
+ object ToolButton1: TToolButton
+ Left = 213
+ Top = 0
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 37
+ OnClick = ToolButton1Click
+ end
+ object TBClose: TToolButton
+ Left = 312
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object cxGrid2: TcxGrid [1]
+ Left = 545
+ Top = 79
+ Width = 598
+ Height = 461
+ Align = alClient
+ TabOrder = 1
+ object TV2: TcxGridDBTableView
+ OnDblClick = TV2DblClick
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource2
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = '0'
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Column = V2OrdQty
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsData.Editing = False
+ OptionsSelection.CellSelect = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object V2C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 77
+ end
+ object V2C_ColorNo: TcxGridDBColumn
+ Caption = #33394#21495
+ DataBinding.FieldName = 'C_ColorNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 73
+ end
+ object V2C_Pattern: TcxGridDBColumn
+ Caption = #33457#22411
+ DataBinding.FieldName = 'C_Pattern'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 71
+ end
+ object V2Subid: TcxGridDBColumn
+ Caption = #35746#21333#26465#30721
+ DataBinding.FieldName = 'Subid'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 73
+ end
+ object V2Column10: TcxGridDBColumn
+ Caption = #35746#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 72
+ end
+ object V2CustomerNoName: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object V2Column14: TcxGridDBColumn
+ Caption = #21512#21516#21495
+ DataBinding.FieldName = 'conNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object V2C_Name: TcxGridDBColumn
+ Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object V2C_Spec: TcxGridDBColumn
+ Caption = #22411#21495#35268#26684
+ DataBinding.FieldName = 'C_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object V2OrdQty: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'OrdQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 65
+ end
+ object V2OrderUnit: TcxGridDBColumn
+ Caption = #25968#37327#21333#20301
+ DataBinding.FieldName = 'OrdUnit'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 65
+ end
+ object V2OrdSNote: TcxGridDBColumn
+ Caption = #25968#37327#35201#27714
+ DataBinding.FieldName = 'OrdSNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 76
+ end
+ object V2packNote: TcxGridDBColumn
+ Caption = #21253#35013#35201#27714
+ DataBinding.FieldName = 'packNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 65
+ end
+ object TV2Column1: TcxGridDBColumn
+ Caption = #26412#21378#32568#21495
+ DataBinding.FieldName = 'batchno'
+ DataBinding.IsNullValueType = True
+ end
+ object TV2Column2: TcxGridDBColumn
+ Caption = #26579#21378#32568#21495
+ DataBinding.FieldName = 'FtyPCId'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 60
+ end
+ object TV2Column3: TcxGridDBColumn
+ Caption = #33521#25991#39068#33394
+ DataBinding.FieldName = 'C_EColor'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 60
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = TV2
+ end
+ end
+ object cxGrid1: TcxGrid [2]
+ Left = 0
+ Top = 79
+ Width = 545
+ Height = 461
+ Align = alLeft
+ TabOrder = 2
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ OnCellClick = Tv1CellClick
+ DataController.DataSource = DataSource1
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = '0'
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsData.Editing = False
+ OptionsSelection.CellSelect = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #25490#21333#26102#38388
+ DataBinding.FieldName = 'OrdDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.SaveTime = False
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Width = 117
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #35746#21333#21495
+ DataBinding.FieldName = 'OrderNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 112
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 141
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 123
+ end
+ end
+ object cxGridLevel2: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object Panel1: TPanel [3]
+ Left = 0
+ Top = 30
+ Width = 1143
+ Height = 49
+ Align = alTop
+ Color = 16448250
+ ParentBackground = False
+ TabOrder = 3
+ object C_Name: TcxTextEdit
+ Tag = 2
+ Left = 433
+ Top = 8
+ Properties.OnChange = C_NamePropertiesChange
+ Style.HotTrack = False
+ Style.TransparentBorder = False
+ TabOrder = 0
+ Width = 109
+ end
+ object OrderNo: TcxTextEdit
+ Tag = 2
+ Left = 249
+ Top = 8
+ Properties.OnChange = OrderNoPropertiesChange
+ Style.HotTrack = False
+ Style.TransparentBorder = False
+ TabOrder = 1
+ Width = 109
+ end
+ object custName: TcxComboBox
+ Tag = 2
+ Left = 77
+ Top = 8
+ Properties.OnChange = custNamePropertiesChange
+ Style.HotTrack = False
+ Style.TransparentBorder = False
+ TabOrder = 2
+ Width = 121
+ end
+ object cxLabel1: TcxLabel
+ Left = 17
+ Top = 9
+ Caption = #23458#25143#21517#31216
+ end
+ object cxLabel2: TcxLabel
+ Left = 204
+ Top = 8
+ Caption = #35746#21333#21495
+ end
+ object cxLabel3: TcxLabel
+ Tag = 3
+ Left = 375
+ Top = 9
+ Caption = #20135#21697#21517#31216
+ end
+ object C_Color: TcxTextEdit
+ Tag = 4
+ Left = 741
+ Top = 6
+ Properties.OnChange = C_ColorPropertiesChange
+ Style.HotTrack = False
+ Style.TransparentBorder = False
+ TabOrder = 6
+ Width = 109
+ end
+ object cxLabel4: TcxLabel
+ Tag = 4
+ Left = 705
+ Top = 6
+ Caption = #39068#33394
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeInsp.ADOLink
+ Left = 385
+ Top = 336
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeInsp.ADOLink
+ Left = 289
+ Top = 345
+ end
+ object DataSource1: TDataSource
+ DataSet = Order_Main
+ Left = 680
+ Top = 328
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeInsp.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 616
+ Top = 328
+ end
+ object Order_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 824
+ Top = 256
+ end
+ object cxGridPopupMenu1: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 448
+ Top = 168
+ end
+ object Order_Sub: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 440
+ Top = 224
+ end
+ object DataSource2: TDataSource
+ DataSet = Order_Sub
+ Left = 520
+ Top = 256
+ end
+end
diff --git a/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas b/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas
new file mode 100644
index 0000000..0323065
--- /dev/null
+++ b/项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas
@@ -0,0 +1,296 @@
+unit U_ProductListHelp2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+ System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
+ cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles, cxCustomData,
+ cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, dxDateRanges,
+ dxScrollbarAnnotations, Data.DB, cxDBData, cxCalendar, cxGridLevel,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+ cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
+ Vcl.ToolWin, Data.Win.ADODB, U_BaseHelp, U_BaseList, System.ImageList,
+ Vcl.ImgList, Datasnap.DBClient, dxBarBuiltInMenu, cxGridCustomPopupMenu,
+ cxGridPopupMenu, dxLayoutContainer, dxLayoutControl, cxContainer, dxCore,
+ cxDateUtils, dxLayoutcxEditAdapters, cxMaskEdit, cxDropDownEdit, cxTextEdit,
+ cxLabel;
+
+type
+ TfrmProductListHelp2 = class(TfrmBaseHelp)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ TBClose: TToolButton;
+ cxGrid2: TcxGrid;
+ TV2: TcxGridDBTableView;
+ V2Subid: TcxGridDBColumn;
+ V2Column10: TcxGridDBColumn;
+ V2CustomerNoName: TcxGridDBColumn;
+ V2Column14: TcxGridDBColumn;
+ V2C_Name: TcxGridDBColumn;
+ V2C_Spec: TcxGridDBColumn;
+ V2C_Color: TcxGridDBColumn;
+ V2C_ColorNo: TcxGridDBColumn;
+ V2C_Pattern: TcxGridDBColumn;
+ V2OrdSNote: TcxGridDBColumn;
+ V2packNote: TcxGridDBColumn;
+ V2OrdQty: TcxGridDBColumn;
+ V2OrderUnit: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ DataSource1: TDataSource;
+ ADOQueryMain: TADOQuery;
+ Order_Main: TClientDataSet;
+ cxGridPopupMenu1: TcxGridPopupMenu;
+ TselOk: TToolButton;
+ ToolButton1: TToolButton;
+ TV2Column1: TcxGridDBColumn;
+ TV2Column2: TcxGridDBColumn;
+ TV2Column3: TcxGridDBColumn;
+ cxGrid1: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ cxGridLevel2: TcxGridLevel;
+ Tv1Column1: TcxGridDBColumn;
+ Order_Sub: TClientDataSet;
+ DataSource2: TDataSource;
+ Panel1: TPanel;
+ C_Name: TcxTextEdit;
+ OrderNo: TcxTextEdit;
+ custName: TcxComboBox;
+ cxLabel1: TcxLabel;
+ cxLabel2: TcxLabel;
+ cxLabel3: TcxLabel;
+ C_Color: TcxTextEdit;
+ cxLabel4: TcxLabel;
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure TselOkClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+ procedure custNamePropertiesChange(Sender: TObject);
+ procedure TV2DblClick(Sender: TObject);
+ procedure C_ColorPropertiesChange(Sender: TObject);
+ procedure C_NamePropertiesChange(Sender: TObject);
+ procedure OrderNoPropertiesChange(Sender: TObject);
+ procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ private
+ procedure InitForm();
+ procedure InitGrid();
+ procedure InitSubGrid();
+ public
+ fType: string;
+ FCustName: string;
+ FC_Color: string;
+ FOrderNo: string;
+ end;
+
+var
+ frmProductListHelp2: TfrmProductListHelp2;
+
+implementation
+
+uses
+ U_DataLink, U_globalVar, U_RTFun, U_FormLayOutDesign;
+{$R *.dfm}
+
+procedure TfrmProductListHelp2.custNamePropertiesChange(Sender: TObject);
+begin
+ inherited;
+ with Order_Main do
+ begin
+ Filtered := false;
+ Filter := SGetFilters(panel1, 1, 2);
+ Filtered := true;
+ end;
+end;
+
+procedure TfrmProductListHelp2.TV2DblClick(Sender: TObject);
+begin
+ inherited;
+ TselOk.Click;
+end;
+
+procedure TfrmProductListHelp2.C_ColorPropertiesChange(Sender: TObject);
+begin
+ inherited;
+
+ with Order_Sub do
+ begin
+ Filtered := false;
+ Filter := SGetFilters(panel1, 3, 4);
+ Filtered := true;
+ end;
+end;
+
+procedure TfrmProductListHelp2.C_NamePropertiesChange(Sender: TObject);
+begin
+ inherited;
+
+ with Order_Main do
+ begin
+ Filtered := false;
+ Filter := SGetFilters(panel1, 1, 2);
+ Filtered := true;
+ end;
+
+end;
+
+procedure TfrmProductListHelp2.FormCreate(Sender: TObject);
+begin
+ inherited;
+// cxGrid2.Align := alClient;
+// BegDate.Date := SGetServerDateTime(ADOQueryBaseTemp) - 15;
+// endDate.Date := SGetServerDateTime(ADOQueryBaseTemp)
+end;
+
+procedure TfrmProductListHelp2.FormShow(Sender: TObject);
+begin
+ inherited;
+ InitForm();
+ SInitTcxComBoxBySql(ADOQueryBaseCmd, custName, true, 'select distinct name = custName from trade_plan_main');
+ CustName.Text := FCustName;
+
+ if Trim(FOrderNo) <> '' then
+ begin
+ Order_Main.Locate('OrderNo', FOrderNo, []);
+ InitSubGrid();
+ end;
+
+end;
+
+procedure TfrmProductListHelp2.InitForm();
+begin
+ InitGrid();
+ ReadCxGrid(self.Caption + tv2.Name, Tv2, gDllFileCaption);
+ ReadCxGrid(self.Caption + tv1.Name, Tv1, gDllFileCaption);
+end;
+
+procedure TfrmProductListHelp2.TBFindClick(Sender: TObject);
+begin
+ if ADOQueryMain.Active = False then
+ Exit;
+ SDofilter(ADOQueryMain, SGetFilters(panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmProductListHelp2.TBRafreshClick(Sender: TObject);
+begin
+ OrderNo.SetFocus;
+ InitGrid();
+end;
+
+procedure TfrmProductListHelp2.ToolButton1Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(Self.Caption) + tv2.Name, Tv2, gDllFileCaption);
+ WriteCxGrid(trim(Self.Caption) + tv1.Name, Tv1, gDllFileCaption);
+// if gIsCanDesign then
+// begin
+// saveLayOut(application, dxLayoutControl_query, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_query.Name + '.ini'));
+// end;
+
+end;
+
+procedure TfrmProductListHelp2.TselOkClick(Sender: TObject);
+begin
+ inherited;
+ if Order_Sub.IsEmpty then
+ exit;
+
+ ModalResult := 1;
+end;
+
+procedure TfrmProductListHelp2.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+ inherited;
+ InitSubGrid();
+end;
+
+procedure TfrmProductListHelp2.TBCloseClick(Sender: TObject);
+begin
+ close;
+end;
+
+procedure TfrmProductListHelp2.InitGrid();
+var
+ mBegDate: string;
+ mendDate: string;
+begin
+// if BegDate.Text <> '' then
+// mBegDate := FormatDateTime('yyyy-MM-dd', BegDate.Date);
+// if enddate.Text <> '' then
+// mendDate := FormatDateTime('yyyy-MM-dd', enddate.Date + 1);
+ try
+ Order_Main.DisableControls;
+ with ADOQueryMain do
+ begin
+ Close;
+ sql.Clear;
+// sql.Add('select A.* ');
+// // sql.Add(',SumPiece=(select Sum(X.Piece) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')');
+// //sql.Add(',SumQty=(select Sum(X.Qty) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')');
+// sql.Add('from V_Trade_Plan_Fty A ');
+// sql.add('where Status=''9'' ');
+// if mBegDate<>'' then
+// sql.Add('and filltime>='+QuotedStr(mBegDate));
+// if mendDate<>'' then
+// sql.Add('and filltime<'+QuotedStTr(mendDate));
+ sql.Add('select OrderNo, OrdDate, CustName, C_Name from Trade_Plan_Main A ');
+ sql.Add('join Trade_Plan_Sub B ');
+ sql.Add('on A.MainId = B.MainId ');
+ sql.Add('where A.status = ''9'' ');
+ sql.Add('GROUP BY OrderNo, OrdDate, CustName, C_Name ');
+ Open;
+ end;
+ SDofilter(ADOQueryMain, SGetFilters(panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, Order_Main);
+ SInitCDSData(ADOQueryMain, Order_Main);
+ finally
+ Order_Main.EnableControls;
+ end;
+end;
+
+procedure TfrmProductListHelp2.InitSubGrid();
+begin
+ try
+ Order_Sub.DisableControls;
+ with ADOQueryBaseTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* ');
+ // sql.Add(',SumPiece=(select Sum(X.Piece) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')');
+ //sql.Add(',SumQty=(select Sum(X.Qty) from BS_Cloth_IO X where X.IOFlag='''' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')');
+ sql.Add('from V_Trade_Plan_Fty A ');
+ sql.add('where Status=''9'' ');
+ SQL.Add(' and OrderNo=' + QuotedStr(Trim(Order_Main.FieldByName('OrderNo').AsString)));
+ Open;
+ end;
+ SDofilter(ADOQueryBaseTemp, SGetFilters(panel1, 3, 4));
+ SCreateCDS(ADOQueryBaseTemp, Order_Sub);
+ SInitCDSData(ADOQueryBaseTemp, Order_Sub);
+ finally
+ Order_Sub.EnableControls;
+ end;
+end;
+
+procedure TfrmProductListHelp2.OrderNoPropertiesChange(Sender: TObject);
+begin
+ inherited;
+
+ with Order_Main do
+ begin
+ Filtered := false;
+ Filter := SGetFilters(panel1, 1, 2);
+ Filtered := true;
+ end;
+
+end;
+
+end.
+
diff --git a/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local b/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local
index 62c412b..59f75e7 100644
--- a/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local
+++ b/项目代码/djdPack/G04复核布匹检验/ProjectGroup1.groupproj.local
@@ -2,6 +2,6 @@
-
+
diff --git a/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local b/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local
index b6e7920..97cd17e 100644
--- a/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local
+++ b/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.dproj.local
@@ -1,138 +1,110 @@
+ 1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas
1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas
- 1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj
+ 1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=
1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
+ 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas
- 1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=
- 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj
1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas
- 1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=
- 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas
- 1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj
+ 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=
+ 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm
+ 1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas
+ 1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas
+ 1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.dfm
1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=
- 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas
+ 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas
+ 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas
+ 1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.pas
1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.dfm
1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas
1899-12-30 00:00:00.000.186,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas
- 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj
+ 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm
+ 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm
+ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
+ 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj
1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas
- 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm
- 1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.495,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj
+ 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas
+ 1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm
- 1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas
- 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.dfm
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm
- 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm
- 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj
- 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas
- 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
- 1899-12-30 00:00:00.000.495,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\DjdMachineInsp.dproj
+ 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas
+ 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas
1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas
- 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas
- 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm
- 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.pas
+ 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj
+ 1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
+ 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm
+ 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm
+ 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm
+ 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm
+ 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas
1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
- 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm
- 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm
- 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
- 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas
+ 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas
+ 1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas
+ 1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.pas
+ 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm
1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas
+ 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
+ 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas
1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas
1899-12-30 00:00:00.000.956,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_SCPersonColor.pas
1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -152,7 +124,7 @@
-
+
diff --git a/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.identcache b/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.identcache
index a7c62e5..7b9c3bb 100644
Binary files a/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.identcache and b/项目代码/djdPack/G04复核布匹检验/fhDjdMachineInsp.identcache differ
diff --git a/项目代码/djdPack/G04复核布匹检验/testDll.identcache b/项目代码/djdPack/G04复核布匹检验/testDll.identcache
index cca1f5d..9725978 100644
Binary files a/项目代码/djdPack/G04复核布匹检验/testDll.identcache and b/项目代码/djdPack/G04复核布匹检验/testDll.identcache differ