123
This commit is contained in:
parent
6dda541d93
commit
6581f78c82
|
|
@ -1,6 +1,6 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G01贸易生产计划\djdPackPlan.dproj"/>
|
<Projects ActiveProject="E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G01贸易生产计划\djdPackPlan.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -74,17 +74,14 @@ begin
|
||||||
if trim(DataBaseStr) = '' then
|
if trim(DataBaseStr) = '' then
|
||||||
begin
|
begin
|
||||||
server := '101.132.143.144,7781';
|
server := '101.132.143.144,7781';
|
||||||
//server:='192.168.110.193,7781';
|
dtbase := 'zhuocanjydata';
|
||||||
dtbase := 'RTBasicsData';
|
// dtbase := 'rtbasicsdata';
|
||||||
// dtbase := 'ruifengsyjyData';
|
|
||||||
// dtbase:='jingpinjydata' ;
|
|
||||||
// dtbase := 'sanhaojydata';
|
|
||||||
user := 'rtsa';
|
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;
|
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';
|
dname:='ADMIN';
|
||||||
dcode:='ADMIN';
|
dcode:='ADMIN';
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -315,7 +315,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
AllowRemove = False
|
AllowRemove = False
|
||||||
CaptionOptions.Text = #35746#21333#21495
|
CaptionOptions.Text = #35746#21333#21495
|
||||||
Control = OrderNo
|
Control = OrderNo
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 33
|
||||||
ControlOptions.OriginalWidth = 109
|
ControlOptions.OriginalWidth = 109
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 2
|
Index = 2
|
||||||
|
|
@ -325,7 +325,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
AllowRemove = False
|
AllowRemove = False
|
||||||
CaptionOptions.Text = #23458#25143#21517#31216
|
CaptionOptions.Text = #23458#25143#21517#31216
|
||||||
Control = custName
|
Control = custName
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 33
|
||||||
ControlOptions.OriginalWidth = 109
|
ControlOptions.OriginalWidth = 109
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 3
|
Index = 3
|
||||||
|
|
@ -334,7 +334,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Tag = 99
|
Tag = 99
|
||||||
CaptionOptions.Text = #19994#21153#21592
|
CaptionOptions.Text = #19994#21153#21592
|
||||||
Control = ywy
|
Control = ywy
|
||||||
ControlOptions.OriginalHeight = 21
|
ControlOptions.OriginalHeight = 25
|
||||||
ControlOptions.OriginalWidth = 121
|
ControlOptions.OriginalWidth = 121
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = -1
|
Index = -1
|
||||||
|
|
@ -344,7 +344,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Visible = False
|
Visible = False
|
||||||
CaptionOptions.Text = #20135#21697#21517#31216
|
CaptionOptions.Text = #20135#21697#21517#31216
|
||||||
Control = C_Name
|
Control = C_Name
|
||||||
ControlOptions.OriginalHeight = 21
|
ControlOptions.OriginalHeight = 25
|
||||||
ControlOptions.OriginalWidth = 121
|
ControlOptions.OriginalWidth = 121
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = -1
|
Index = -1
|
||||||
|
|
@ -354,7 +354,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
SizeOptions.Width = 195
|
SizeOptions.Width = 195
|
||||||
CaptionOptions.Text = #21046#21333#26085#26399
|
CaptionOptions.Text = #21046#21333#26085#26399
|
||||||
Control = begdate
|
Control = begdate
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 33
|
||||||
ControlOptions.OriginalWidth = 123
|
ControlOptions.OriginalWidth = 123
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 0
|
Index = 0
|
||||||
|
|
@ -364,7 +364,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
SizeOptions.Width = 154
|
SizeOptions.Width = 154
|
||||||
CaptionOptions.Text = '--'
|
CaptionOptions.Text = '--'
|
||||||
Control = endDate
|
Control = endDate
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 33
|
||||||
ControlOptions.OriginalWidth = 132
|
ControlOptions.OriginalWidth = 132
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 1
|
Index = 1
|
||||||
|
|
@ -373,7 +373,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Parent = dxLayoutControl_queryGroup_Root
|
Parent = dxLayoutControl_queryGroup_Root
|
||||||
CaptionOptions.Text = #21512#21516#21495
|
CaptionOptions.Text = #21512#21516#21495
|
||||||
Control = ConNo
|
Control = ConNo
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 33
|
||||||
ControlOptions.OriginalWidth = 105
|
ControlOptions.OriginalWidth = 105
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 4
|
Index = 4
|
||||||
|
|
@ -383,7 +383,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Visible = False
|
Visible = False
|
||||||
CaptionOptions.Text = #23458#25143#21333#21495
|
CaptionOptions.Text = #23458#25143#21333#21495
|
||||||
Control = BuyConNo
|
Control = BuyConNo
|
||||||
ControlOptions.OriginalHeight = 21
|
ControlOptions.OriginalHeight = 25
|
||||||
ControlOptions.OriginalWidth = 121
|
ControlOptions.OriginalWidth = 121
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = -1
|
Index = -1
|
||||||
|
|
@ -392,7 +392,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Parent = dxLayoutControl_queryGroup_Root
|
Parent = dxLayoutControl_queryGroup_Root
|
||||||
CaptionOptions.Text = #26412#21378#32568#21495
|
CaptionOptions.Text = #26412#21378#32568#21495
|
||||||
Control = batchNo
|
Control = batchNo
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 33
|
||||||
ControlOptions.OriginalWidth = 105
|
ControlOptions.OriginalWidth = 105
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = 5
|
Index = 5
|
||||||
|
|
@ -400,7 +400,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
object dxLayoutItem_FtyPCId: TdxLayoutItem
|
object dxLayoutItem_FtyPCId: TdxLayoutItem
|
||||||
CaptionOptions.Text = #26579#21378#32568#21495
|
CaptionOptions.Text = #26579#21378#32568#21495
|
||||||
Control = FtyPCId
|
Control = FtyPCId
|
||||||
ControlOptions.OriginalHeight = 27
|
ControlOptions.OriginalHeight = 33
|
||||||
ControlOptions.OriginalWidth = 105
|
ControlOptions.OriginalWidth = 105
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
Index = -1
|
Index = -1
|
||||||
|
|
@ -416,9 +416,10 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
Properties.CustomButtons.Buttons = <>
|
Properties.CustomButtons.Buttons = <>
|
||||||
Properties.TabPosition = tpBottom
|
Properties.TabPosition = tpBottom
|
||||||
OnClick = cxPageControl1Click
|
OnClick = cxPageControl1Click
|
||||||
ClientRectBottom = 433
|
ClientRectBottom = 430
|
||||||
ClientRectRight = 1113
|
ClientRectLeft = 1
|
||||||
ClientRectTop = 0
|
ClientRectRight = 1112
|
||||||
|
ClientRectTop = 1
|
||||||
object cxTabSheet1: TcxTabSheet
|
object cxTabSheet1: TcxTabSheet
|
||||||
Caption = #27719#24635#35270#22270
|
Caption = #27719#24635#35270#22270
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
|
|
@ -806,8 +807,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object cxGrid2: TcxGrid
|
object cxGrid2: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 278
|
Top = 274
|
||||||
Width = 1113
|
Width = 1111
|
||||||
Height = 155
|
Height = 155
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
|
@ -1302,8 +1303,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
|
||||||
end
|
end
|
||||||
object cxSplitter1: TcxSplitter
|
object cxSplitter1: TcxSplitter
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 270
|
Top = 266
|
||||||
Width = 1113
|
Width = 1111
|
||||||
Height = 8
|
Height = 8
|
||||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||||
AlignSplitter = salBottom
|
AlignSplitter = salBottom
|
||||||
|
|
|
||||||
|
|
@ -4,19 +4,17 @@ interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
||||||
System.Classes, Vcl.Graphics,
|
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
|
||||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ToolWin, cxGraphics,
|
Vcl.ComCtrls, Vcl.ToolWin, cxGraphics, cxControls, cxLookAndFeels, cxContainer,
|
||||||
cxControls, cxLookAndFeels,
|
cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC, dxLayoutContainer,
|
||||||
cxContainer, cxEdit, dxLayoutcxEditAdapters, dxBarBuiltInMenu, cxPC,
|
cxClasses, cxTextEdit, dxLayoutControl, cxStyles, cxCustomData, cxFilter,
|
||||||
dxLayoutContainer, cxClasses, cxTextEdit, dxLayoutControl, cxStyles,
|
cxData, cxDataStorage, cxNavigator, dxDateRanges, dxScrollbarAnnotations,
|
||||||
cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator, dxDateRanges,
|
Data.DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView,
|
||||||
dxScrollbarAnnotations, Data.DB, cxDBData, cxCalendar, cxGridLevel,
|
cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGrid, U_BaseList,
|
||||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView,
|
Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, Datasnap.DBClient,
|
||||||
cxGrid, U_BaseList, Data.Win.ADODB, cxGridCustomPopupMenu, cxGridPopupMenu,
|
cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils, cxMaskEdit,
|
||||||
Datasnap.DBClient, cxCheckBox, cxButtonEdit, cxSplitter, dxCore, cxDateUtils,
|
cxDropDownEdit, cxProgressBar, Vcl.Menus, RM_Common, RM_Class, RM_GridReport,
|
||||||
cxMaskEdit, cxDropDownEdit, cxProgressBar, Vcl.Menus,
|
RM_Dataset, cxLookAndFeelPainters, Vcl.ExtCtrls;
|
||||||
RM_Common, RM_Class, RM_GridReport, RM_Dataset, cxLookAndFeelPainters,
|
|
||||||
Vcl.ExtCtrls;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrmTradePlanMgeList = class(TfrmBaseList)
|
TfrmTradePlanMgeList = class(TfrmBaseList)
|
||||||
|
|
@ -217,9 +215,7 @@ type
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure TBRafreshClick(Sender: TObject);
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
|
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||||
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
|
|
||||||
ANewItemRecordFocusingChanged: Boolean);
|
|
||||||
procedure TBAddClick(Sender: TObject);
|
procedure TBAddClick(Sender: TObject);
|
||||||
procedure cxTabControl1Change(Sender: TObject);
|
procedure cxTabControl1Change(Sender: TObject);
|
||||||
procedure TbcgsClick(Sender: TObject);
|
procedure TbcgsClick(Sender: TObject);
|
||||||
|
|
@ -241,8 +237,7 @@ type
|
||||||
procedure N1Click(Sender: TObject);
|
procedure N1Click(Sender: TObject);
|
||||||
procedure N2Click(Sender: TObject);
|
procedure N2Click(Sender: TObject);
|
||||||
procedure TupdatetoClick(Sender: TObject);
|
procedure TupdatetoClick(Sender: TObject);
|
||||||
procedure ButtonEdit(Sender: TObject;
|
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
|
||||||
AButtonIndex: Integer);
|
|
||||||
private
|
private
|
||||||
canshu1, canshu2: string;
|
canshu1, canshu2: string;
|
||||||
fIsLoad: Boolean;
|
fIsLoad: Boolean;
|
||||||
|
|
@ -254,7 +249,6 @@ type
|
||||||
function DelSubData(): Boolean;
|
function DelSubData(): Boolean;
|
||||||
procedure threadLoadform();
|
procedure threadLoadform();
|
||||||
public
|
public
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
|
|
@ -277,12 +271,15 @@ begin
|
||||||
|
|
||||||
try
|
try
|
||||||
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
||||||
with frmTradePlanInPut do begin PState := 1;
|
with frmTradePlanInPut do
|
||||||
|
begin
|
||||||
|
PState := 1;
|
||||||
CopyInt := 99;
|
CopyInt := 99;
|
||||||
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
||||||
fCopyMainId := FMainId;
|
fCopyMainId := FMainId;
|
||||||
canshu1 := Self.canshu1;
|
canshu1 := Self.canshu1;
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -297,12 +294,15 @@ begin
|
||||||
|
|
||||||
try
|
try
|
||||||
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
||||||
with frmTradePlanInPut do begin PState := 1;
|
with frmTradePlanInPut do
|
||||||
|
begin
|
||||||
|
PState := 1;
|
||||||
CopyInt := 99;
|
CopyInt := 99;
|
||||||
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
|
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
|
||||||
fCopyMainId := FMainId;
|
fCopyMainId := FMainId;
|
||||||
canshu1 := Self.canshu1;
|
canshu1 := Self.canshu1;
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -315,13 +315,16 @@ end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.cxPageControl1Click(Sender: TObject);
|
procedure TfrmTradePlanMgeList.cxPageControl1Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if cxPageControl1.ActivePageIndex = 0 then begin
|
if cxPageControl1.ActivePageIndex = 0 then
|
||||||
|
begin
|
||||||
dxLayoutItem_khdh.Visible := false;
|
dxLayoutItem_khdh.Visible := false;
|
||||||
dxLayoutItem_pm.Visible := false;
|
dxLayoutItem_pm.Visible := false;
|
||||||
dxLayoutItem_batchno.Visible := false;
|
dxLayoutItem_batchno.Visible := false;
|
||||||
dxLayoutItem_FtyPCId.Visible := false;
|
dxLayoutItem_FtyPCId.Visible := false;
|
||||||
end
|
end
|
||||||
else begin dxLayoutItem_khdh.Visible := true;
|
else
|
||||||
|
begin
|
||||||
|
dxLayoutItem_khdh.Visible := true;
|
||||||
dxLayoutItem_pm.Visible := true;
|
dxLayoutItem_pm.Visible := true;
|
||||||
dxLayoutItem_batchno.Visible := true;
|
dxLayoutItem_batchno.Visible := true;
|
||||||
dxLayoutItem_FtyPCId.Visible := true;
|
dxLayoutItem_FtyPCId.Visible := true;
|
||||||
|
|
@ -330,18 +333,20 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.cxTabControl1Change(Sender: TObject);
|
procedure TfrmTradePlanMgeList.cxTabControl1Change(Sender: TObject);
|
||||||
begin TBRafresh.Click
|
begin
|
||||||
|
TBRafresh.Click
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.FormClose(Sender: TObject;
|
procedure TfrmTradePlanMgeList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
var Action: TCloseAction);
|
begin
|
||||||
begin inherited;
|
inherited;
|
||||||
Action := cafree;
|
Action := cafree;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.FormCreate(Sender: TObject);
|
procedure TfrmTradePlanMgeList.FormCreate(Sender: TObject);
|
||||||
begin inherited;
|
begin
|
||||||
|
inherited;
|
||||||
canshu1 := Trim(Self.fParameters1);
|
canshu1 := Trim(Self.fParameters1);
|
||||||
cxGrid2.Height := 250;
|
cxGrid2.Height := 250;
|
||||||
cxGrid1.Align := alClient;
|
cxGrid1.Align := alClient;
|
||||||
|
|
@ -362,7 +367,8 @@ begin inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.FormDestroy(Sender: TObject);
|
procedure TfrmTradePlanMgeList.FormDestroy(Sender: TObject);
|
||||||
begin inherited;
|
begin
|
||||||
|
inherited;
|
||||||
frmTradePlanMgeList := nil;
|
frmTradePlanMgeList := nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -391,10 +397,14 @@ procedure TfrmTradePlanMgeList.TBAddClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
||||||
with frmTradePlanInPut do begin PState := 0;
|
with frmTradePlanInPut do
|
||||||
|
begin
|
||||||
|
PState := 0;
|
||||||
FMainId := '';
|
FMainId := '';
|
||||||
canshu1 := Self.canshu1;
|
canshu1 := Self.canshu1;
|
||||||
if ShowModal = 1 then begin InitGrid();
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
|
|
@ -422,11 +432,14 @@ begin
|
||||||
|
|
||||||
try
|
try
|
||||||
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
||||||
with frmTradePlanInPut do begin PState := 5;
|
with frmTradePlanInPut do
|
||||||
|
begin
|
||||||
|
PState := 5;
|
||||||
FMainId := Trim(mMainId);
|
FMainId := Trim(mMainId);
|
||||||
ToolBar2.Visible := false;
|
ToolBar2.Visible := false;
|
||||||
TBSave.Visible := false;
|
TBSave.Visible := false;
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -437,7 +450,8 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.TBCloseClick(Sender: TObject);
|
procedure TfrmTradePlanMgeList.TBCloseClick(Sender: TObject);
|
||||||
begin inherited;
|
begin
|
||||||
|
inherited;
|
||||||
close;
|
close;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -447,8 +461,10 @@ begin
|
||||||
begin
|
begin
|
||||||
if Order_Main.IsEmpty then
|
if Order_Main.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if (canshu1 <> '管理') and (canshu1 <> '高权限') then begin
|
if (canshu1 <> '管理') and (canshu1 <> '高权限') then
|
||||||
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
|
begin
|
||||||
|
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
|
begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
@ -457,18 +473,22 @@ begin
|
||||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
||||||
with ADOQueryBaseTemp do begin close;
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID='''
|
sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(Order_Main.fieldbyname('mainID').AsString) + '''');
|
||||||
+ Trim(Order_Main.fieldbyname('mainID').AsString) + '''');
|
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
if not ADOQueryBaseTemp.IsEmpty then begin
|
if not ADOQueryBaseTemp.IsEmpty then
|
||||||
|
begin
|
||||||
Application.MessageBox('已检验不能删除数据!', '提示', 0);
|
Application.MessageBox('已检验不能删除数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then begin DelData()
|
if Trim(Order_Main.fieldbyname('MainId').AsString) <> '' then
|
||||||
|
begin
|
||||||
|
DelData()
|
||||||
end;
|
end;
|
||||||
Order_Main.Delete;
|
Order_Main.Delete;
|
||||||
end
|
end
|
||||||
|
|
@ -476,8 +496,10 @@ begin
|
||||||
begin
|
begin
|
||||||
if cds_mxlist.IsEmpty then
|
if cds_mxlist.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if (canshu1 <> '管理') and (canshu1 <> '高权限') then begin
|
if (canshu1 <> '管理') and (canshu1 <> '高权限') then
|
||||||
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin
|
begin
|
||||||
|
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
|
begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
@ -486,18 +508,22 @@ begin
|
||||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
||||||
with ADOQueryBaseTemp do begin close;
|
with ADOQueryBaseTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID='''
|
sql.Add('select * from Trade_Cloth_Inspect where isnull(mainID,'''')<>'''' and mainID=''' + Trim(cds_mxlist.fieldbyname('mainID').AsString) + '''');
|
||||||
+ Trim(cds_mxlist.fieldbyname('mainID').AsString) + '''');
|
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
if not ADOQueryBaseTemp.IsEmpty then begin
|
if not ADOQueryBaseTemp.IsEmpty then
|
||||||
|
begin
|
||||||
Application.MessageBox('已检验不能删除数据!', '提示', 0);
|
Application.MessageBox('已检验不能删除数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if Trim(cds_mxlist.fieldbyname('subId').AsString) <> '' then begin DelSubData()
|
if Trim(cds_mxlist.fieldbyname('subId').AsString) <> '' then
|
||||||
|
begin
|
||||||
|
DelSubData()
|
||||||
end;
|
end;
|
||||||
cds_mxlist.Delete;
|
cds_mxlist.Delete;
|
||||||
|
|
||||||
|
|
@ -512,8 +538,10 @@ begin
|
||||||
if Order_Main.IsEmpty then
|
if Order_Main.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
||||||
if (canshu1 <> '管理') and (canshu1 <> '高权限') then begin
|
if (canshu1 <> '管理') and (canshu1 <> '高权限') then
|
||||||
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
|
begin
|
||||||
|
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
|
begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
@ -521,12 +549,14 @@ begin
|
||||||
|
|
||||||
try
|
try
|
||||||
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
||||||
with frmTradePlanInPut do begin
|
with frmTradePlanInPut do
|
||||||
|
begin
|
||||||
PState := 1;
|
PState := 1;
|
||||||
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
|
||||||
FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
|
FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
|
||||||
canshu1 := Self.canshu1;
|
canshu1 := Self.canshu1;
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -539,8 +569,10 @@ begin
|
||||||
if cds_mxlist.IsEmpty then
|
if cds_mxlist.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
||||||
if (canshu1 <> '管理') and (canshu1 <> '高权限') then begin
|
if (canshu1 <> '管理') and (canshu1 <> '高权限') then
|
||||||
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin
|
begin
|
||||||
|
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
|
begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
@ -548,12 +580,14 @@ begin
|
||||||
|
|
||||||
try
|
try
|
||||||
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
|
||||||
with frmTradePlanInPut do begin
|
with frmTradePlanInPut do
|
||||||
|
begin
|
||||||
PState := 1;
|
PState := 1;
|
||||||
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
|
FMainId := Trim(Self.cds_mxlist.fieldbyname('MainId').AsString);
|
||||||
FOrderNo := Trim(Self.cds_mxlist.fieldbyname('OrderNo').AsString);
|
FOrderNo := Trim(Self.cds_mxlist.fieldbyname('OrderNo').AsString);
|
||||||
canshu1 := Self.canshu1;
|
canshu1 := Self.canshu1;
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -592,10 +626,13 @@ begin
|
||||||
|
|
||||||
try
|
try
|
||||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||||
with frmLabelPrint do begin FLMType := 'TradePlanPrint';
|
with frmLabelPrint do
|
||||||
|
begin
|
||||||
|
FLMType := 'TradePlanPrint';
|
||||||
FFiltration1 := WSql;
|
FFiltration1 := WSql;
|
||||||
FFiltrationSubs := mxIds;
|
FFiltrationSubs := mxIds;
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
// Self.InitGrid();
|
// Self.InitGrid();
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -617,11 +654,14 @@ procedure TfrmTradePlanMgeList.TcdglClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
with frmZDYHelp do begin flag := 'WFBCD';
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
flag := 'WFBCD';
|
||||||
flagname := '疵点';
|
flagname := '疵点';
|
||||||
fnote := true;
|
fnote := true;
|
||||||
V1Note.Caption := '英文名称';
|
V1Note.Caption := '英文名称';
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -656,7 +696,8 @@ begin
|
||||||
// caption:=mOrderNo+'标签设置'
|
// caption:=mOrderNo+'标签设置'
|
||||||
FDataID := mMainId;
|
FDataID := mMainId;
|
||||||
|
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -674,7 +715,8 @@ begin
|
||||||
begin
|
begin
|
||||||
if Order_Main.IsEmpty then
|
if Order_Main.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
|
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
|
begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
@ -696,7 +738,9 @@ begin
|
||||||
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
||||||
Exit;
|
Exit;
|
||||||
try
|
try
|
||||||
with ADOQueryBaseCmd do begin close;
|
with ADOQueryBaseCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('update Trade_Plan_Main SET status=''9'' ');
|
sql.Add('update Trade_Plan_Main SET status=''9'' ');
|
||||||
sql.Add('where mainID=' + quotedstr(mMainId));
|
sql.Add('where mainID=' + quotedstr(mMainId));
|
||||||
|
|
@ -716,15 +760,17 @@ begin
|
||||||
Application.MessageBox('计划单撤销完成失败！', '提示信息', 0);
|
Application.MessageBox('计划单撤销完成失败！', '提示信息', 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.TbcgsClick(Sender: TObject);
|
procedure TfrmTradePlanMgeList.TbcgsClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if cxPageControl1.ActivePageIndex = 1 then begin
|
if cxPageControl1.ActivePageIndex = 1 then
|
||||||
|
begin
|
||||||
WriteCxGrid('包装指示单明细列表T3', tv3, gDllFileCaption);
|
WriteCxGrid('包装指示单明细列表T3', tv3, gDllFileCaption);
|
||||||
end
|
end
|
||||||
else begin WriteCxGrid('包装指示单列表T1', Tv1, gDllFileCaption);
|
else
|
||||||
|
begin
|
||||||
|
WriteCxGrid('包装指示单列表T1', Tv1, gDllFileCaption);
|
||||||
WriteCxGrid('包装指示单列表T2', TV2, gDllFileCaption);
|
WriteCxGrid('包装指示单列表T2', TV2, gDllFileCaption);
|
||||||
end;
|
end;
|
||||||
if gIsCanDesign then
|
if gIsCanDesign then
|
||||||
|
|
@ -735,13 +781,19 @@ end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.TtoexcelClick(Sender: TObject);
|
procedure TfrmTradePlanMgeList.TtoexcelClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if (cxPageControl1.ActivePageIndex = 0) then begin
|
if (cxPageControl1.ActivePageIndex = 0) then
|
||||||
if cxGrid2.Focused then begin TcxGridToExcel(Self.Caption, cxGrid2);
|
begin
|
||||||
|
if cxGrid2.Focused then
|
||||||
|
begin
|
||||||
|
TcxGridToExcel(Self.Caption, cxGrid2);
|
||||||
end
|
end
|
||||||
else begin TcxGridToExcel(Self.Caption + '-明细', cxGrid1);
|
else
|
||||||
|
begin
|
||||||
|
TcxGridToExcel(Self.Caption + '-明细', cxGrid1);
|
||||||
end;
|
end;
|
||||||
end
|
end
|
||||||
else begin
|
else
|
||||||
|
begin
|
||||||
TcxGridToExcel(Self.Caption + '-订单明细', cxGrid3);
|
TcxGridToExcel(Self.Caption + '-订单明细', cxGrid3);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -750,10 +802,12 @@ procedure TfrmTradePlanMgeList.TfilterClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
conno.Tag := 2;
|
conno.Tag := 2;
|
||||||
if cxPageControl1.ActivePageIndex = 0 then begin
|
if cxPageControl1.ActivePageIndex = 0 then
|
||||||
|
begin
|
||||||
try
|
try
|
||||||
Tv1.BeginUpdate();
|
Tv1.BeginUpdate();
|
||||||
if ADOQueryMain.Active then begin
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2));
|
SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2));
|
||||||
Order_Main.EmptyDataSet;
|
Order_Main.EmptyDataSet;
|
||||||
SInitCDSData(ADOQueryMain, Order_Main);
|
SInitCDSData(ADOQueryMain, Order_Main);
|
||||||
|
|
@ -762,10 +816,12 @@ begin
|
||||||
Tv1.EndUpdate;
|
Tv1.EndUpdate;
|
||||||
end;
|
end;
|
||||||
end
|
end
|
||||||
else begin
|
else
|
||||||
|
begin
|
||||||
try
|
try
|
||||||
tv3.BeginUpdate();
|
tv3.BeginUpdate();
|
||||||
if ADOQueryMxList.Active then begin
|
if ADOQueryMxList.Active then
|
||||||
|
begin
|
||||||
SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2));
|
SDofilter(ADOQueryMxList, SLGetFilters(dxLayoutControl_query, 1, 2));
|
||||||
cds_mxlist.EmptyDataSet;
|
cds_mxlist.EmptyDataSet;
|
||||||
SInitCDSData(ADOQueryMxList, cds_mxlist);
|
SInitCDSData(ADOQueryMxList, cds_mxlist);
|
||||||
|
|
@ -823,12 +879,14 @@ begin
|
||||||
end;
|
end;
|
||||||
try
|
try
|
||||||
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
|
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
|
||||||
with frmAttachmentUpload do begin
|
with frmAttachmentUpload do
|
||||||
|
begin
|
||||||
if Trim(canshu1) <> '查询' then
|
if Trim(canshu1) <> '查询' then
|
||||||
FEditAuthority := true;
|
FEditAuthority := true;
|
||||||
fkeyNO := Trim(mMainId);
|
fkeyNO := Trim(mMainId);
|
||||||
fType := '指示单';
|
fType := '指示单';
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -838,9 +896,7 @@ begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged
|
procedure TfrmTradePlanMgeList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||||||
(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord
|
|
||||||
: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
|
||||||
begin
|
begin
|
||||||
if fIsLoad then
|
if fIsLoad then
|
||||||
InitSub();
|
InitSub();
|
||||||
|
|
@ -848,32 +904,37 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.TWCClick(Sender: TObject);
|
procedure TfrmTradePlanMgeList.TWCClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
topIndex: Integer;
|
||||||
begin
|
begin
|
||||||
if cxPageControl1.ActivePageIndex = 0 then
|
if cxPageControl1.ActivePageIndex = 0 then
|
||||||
begin
|
begin
|
||||||
if Order_Main.IsEmpty then
|
if Order_Main.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin
|
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
|
begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
||||||
Exit;
|
Exit;
|
||||||
|
topIndex := Tv1.Controller.TopRowIndex;
|
||||||
|
|
||||||
try
|
try
|
||||||
with ADOQueryBaseCmd do begin close;
|
with ADOQueryBaseCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('update Trade_Plan_Main SET status=''10'' ');
|
sql.Add('update Trade_Plan_Main SET status=''10'' ');
|
||||||
sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID')
|
sql.Add('where mainID=' + quotedstr(Trim(Order_Main.fieldbyname('mainID').AsString)));
|
||||||
.AsString)));
|
|
||||||
|
|
||||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
sql.Add(' ' + quotedstr(Trim(DName)));
|
sql.Add(' ' + quotedstr(Trim(DName)));
|
||||||
sql.Add(',getdate() ');
|
sql.Add(',getdate() ');
|
||||||
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
||||||
sql.Add(',' + quotedstr(Trim('计划单完成')));
|
sql.Add(',' + quotedstr(Trim('计划单完成')));
|
||||||
sql.Add(',' + quotedstr(Trim('计划单号：' +
|
sql.Add(',' + quotedstr(Trim('计划单号：' + Trim(Order_Main.fieldbyname('orderNO').AsString))));
|
||||||
Trim(Order_Main.fieldbyname('orderNO').AsString))));
|
|
||||||
sql.Add(',' + quotedstr(Trim('成功')));
|
sql.Add(',' + quotedstr(Trim('成功')));
|
||||||
sql.Add(')');
|
sql.Add(')');
|
||||||
execsql;
|
execsql;
|
||||||
|
|
@ -889,7 +950,8 @@ begin
|
||||||
begin
|
begin
|
||||||
if cds_mxlist.IsEmpty then
|
if cds_mxlist.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then begin
|
if Trim(cds_mxlist.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||||
|
begin
|
||||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
@ -897,19 +959,19 @@ begin
|
||||||
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
|
||||||
Exit;
|
Exit;
|
||||||
try
|
try
|
||||||
with ADOQueryBaseCmd do begin close;
|
with ADOQueryBaseCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('update Trade_Plan_Main SET status=''10'' ');
|
sql.Add('update Trade_Plan_Main SET status=''10'' ');
|
||||||
sql.Add('where mainID=' + quotedstr(Trim(cds_mxlist.fieldbyname('mainID')
|
sql.Add('where mainID=' + quotedstr(Trim(cds_mxlist.fieldbyname('mainID').AsString)));
|
||||||
.AsString)));
|
|
||||||
|
|
||||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
sql.Add(' ' + quotedstr(Trim(DName)));
|
sql.Add(' ' + quotedstr(Trim(DName)));
|
||||||
sql.Add(',getdate() ');
|
sql.Add(',getdate() ');
|
||||||
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
||||||
sql.Add(',' + quotedstr(Trim('计划单完成')));
|
sql.Add(',' + quotedstr(Trim('计划单完成')));
|
||||||
sql.Add(',' + quotedstr(Trim('计划单号：' +
|
sql.Add(',' + quotedstr(Trim('计划单号：' + Trim(cds_mxlist.fieldbyname('orderNO').AsString))));
|
||||||
Trim(cds_mxlist.fieldbyname('orderNO').AsString))));
|
|
||||||
sql.Add(',' + quotedstr(Trim('成功')));
|
sql.Add(',' + quotedstr(Trim('成功')));
|
||||||
sql.Add(')');
|
sql.Add(')');
|
||||||
execsql;
|
execsql;
|
||||||
|
|
@ -921,22 +983,23 @@ begin
|
||||||
Application.MessageBox('计划单完成失败！', '提示信息', 0);
|
Application.MessageBox('计划单完成失败！', '提示信息', 0);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Tv1.Controller.TopRowIndex := topIndex;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject;
|
procedure TfrmTradePlanMgeList.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
|
||||||
AButtonIndex: Integer);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
try
|
try
|
||||||
frmPictureUpload := TfrmPictureUpload.Create(Application);
|
frmPictureUpload := TfrmPictureUpload.Create(Application);
|
||||||
with frmPictureUpload do begin
|
with frmPictureUpload do
|
||||||
|
begin
|
||||||
fFlileFlag := UserDataFlag + 'HX';
|
fFlileFlag := UserDataFlag + 'HX';
|
||||||
FWidth := 250;
|
FWidth := 250;
|
||||||
FHeight := 300;
|
FHeight := 300;
|
||||||
FTFType := 'HX';
|
FTFType := 'HX';
|
||||||
FDataId := Trim(Self.ORDER_SUB.fieldbyname('subId').AsString);
|
FDataId := Trim(Self.ORDER_SUB.fieldbyname('subId').AsString);
|
||||||
if ShowModal = 1 then begin
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
|
|
@ -948,13 +1011,16 @@ procedure TfrmTradePlanMgeList.InitGrid();
|
||||||
var
|
var
|
||||||
strwhere: string;
|
strwhere: string;
|
||||||
mStatus: string;
|
mStatus: string;
|
||||||
begin strwhere := '';
|
begin
|
||||||
|
strwhere := '';
|
||||||
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
|
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
|
||||||
ConNo.Tag := 99;
|
ConNo.Tag := 99;
|
||||||
batchNo.Tag := 99;
|
batchNo.Tag := 99;
|
||||||
FtyPCId.Tag := 99;
|
FtyPCId.Tag := 99;
|
||||||
strwhere := SLGetFilters(dxLayoutControl_query, 1, 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;
|
end;
|
||||||
|
|
||||||
if (Trim(DParameters1) <> '高权限') then
|
if (Trim(DParameters1) <> '高权限') then
|
||||||
|
|
@ -966,19 +1032,17 @@ begin strwhere := '';
|
||||||
loadProcess.Visible := true;
|
loadProcess.Visible := true;
|
||||||
loadProcess.Refresh;
|
loadProcess.Refresh;
|
||||||
|
|
||||||
|
|
||||||
Order_Main.DisableControls;
|
Order_Main.DisableControls;
|
||||||
with ADOQueryMain do begin
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
|
||||||
close;
|
close;
|
||||||
Filtered := false;
|
Filtered := false;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
|
sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
|
||||||
Parameters.ParamByName('timeType').Value := '制单日期';
|
Parameters.ParamByName('timeType').Value := '制单日期';
|
||||||
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
|
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date);
|
||||||
begdate.Date);
|
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
|
||||||
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
|
|
||||||
endDate.Date + 1);
|
|
||||||
Parameters.ParamByName('mStatus').Value := mStatus;
|
Parameters.ParamByName('mStatus').Value := mStatus;
|
||||||
Parameters.ParamByName('WSql').Value := strwhere;
|
Parameters.ParamByName('WSql').Value := strwhere;
|
||||||
Open;
|
Open;
|
||||||
|
|
@ -1014,13 +1078,16 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.InitSub();
|
procedure TfrmTradePlanMgeList.InitSub();
|
||||||
begin ADOQuerySub.close;
|
begin
|
||||||
|
ADOQuerySub.close;
|
||||||
if Order_Main.IsEmpty then
|
if Order_Main.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
try
|
try
|
||||||
TV2.BeginUpdate();
|
TV2.BeginUpdate();
|
||||||
ORDER_SUB.DisableControls;
|
ORDER_SUB.DisableControls;
|
||||||
with ADOQuerySub do begin close;
|
with ADOQuerySub do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('exec P_View_TradePlanMxList_for_pack ');
|
sql.Add('exec P_View_TradePlanMxList_for_pack ');
|
||||||
sql.Add('@mainId =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
|
sql.Add('@mainId =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
|
||||||
|
|
@ -1054,7 +1121,9 @@ begin
|
||||||
mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString);
|
mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString);
|
||||||
end;
|
end;
|
||||||
//
|
//
|
||||||
with ADOQueryPrint do begin close;
|
with ADOQueryPrint do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add(' EXEC P_Trade_Print_djd_Lab ');
|
sql.Add(' EXEC P_Trade_Print_djd_Lab ');
|
||||||
sql.Add(' @CIID=''' + mSubId + '''');
|
sql.Add(' @CIID=''' + mSubId + '''');
|
||||||
|
|
@ -1067,16 +1136,19 @@ begin
|
||||||
else
|
else
|
||||||
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString);
|
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString);
|
||||||
|
|
||||||
if FLabVolume='' then FLabVolume:=trim(gDefaultLableFile);
|
if FLabVolume = '' then
|
||||||
if FLabVolume = '' then begin
|
FLabVolume := trim(gDefaultLableFile);
|
||||||
|
if FLabVolume = '' then
|
||||||
|
begin
|
||||||
Application.MessageBox('还未设置卷标签！', '提示信息', MB_ICONERROR);
|
Application.MessageBox('还未设置卷标签！', '提示信息', MB_ICONERROR);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp);
|
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp);
|
||||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' +
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
|
||||||
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
|
if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '次品标签' then
|
||||||
RM1.DefaultCopies := 2
|
RM1.DefaultCopies := 2
|
||||||
else
|
else
|
||||||
|
|
@ -1084,7 +1156,9 @@ begin
|
||||||
RM1.ShowErrorMsg := false;
|
RM1.ShowErrorMsg := false;
|
||||||
RM1.ShowReport;
|
RM1.ShowReport;
|
||||||
end
|
end
|
||||||
else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
else
|
||||||
|
begin
|
||||||
|
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
@ -1105,7 +1179,9 @@ begin
|
||||||
Exit;
|
Exit;
|
||||||
mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString);
|
mSubId := Trim(cds_mxlist.fieldbyname('SUBID').AsString);
|
||||||
end;
|
end;
|
||||||
with ADOQueryPrint do begin close;
|
with ADOQueryPrint do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('exec P_Trade_Insp_Prt_djd_PackLab_test ');
|
sql.Add('exec P_Trade_Insp_Prt_djd_PackLab_test ');
|
||||||
sql.Add('@subId =' + quotedstr(mSubId));
|
sql.Add('@subId =' + quotedstr(mSubId));
|
||||||
|
|
@ -1115,37 +1191,44 @@ begin
|
||||||
MLabPackage := Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString)
|
MLabPackage := Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString)
|
||||||
else
|
else
|
||||||
MLabPackage := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString);
|
MLabPackage := Trim(ADOQueryPrint.fieldbyname('LabPackage').AsString);
|
||||||
if MLabPackage='' then MLabPackage:=trim(gDefaultPackLableFile);
|
if MLabPackage = '' then
|
||||||
if MLabPackage = '' then begin
|
MLabPackage := trim(gDefaultPackLableFile);
|
||||||
|
if MLabPackage = '' then
|
||||||
|
begin
|
||||||
Application.MessageBox('还未设置包标签！', '提示信息', MB_ICONERROR);
|
Application.MessageBox('还未设置包标签！', '提示信息', MB_ICONERROR);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
ExportFtErpFile(Trim(MLabPackage) + '.rmf', ADOQueryBaseTemp);
|
ExportFtErpFile(Trim(MLabPackage) + '.rmf', ADOQueryBaseTemp);
|
||||||
|
|
||||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' +
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MLabPackage) + '.rmf';
|
||||||
Trim(MLabPackage) + '.rmf';
|
if not FileExists(fPrintFile) then
|
||||||
if not FileExists(fPrintFile) then begin
|
begin
|
||||||
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile);
|
if FileExists(fPrintFile) then
|
||||||
|
begin
|
||||||
|
RM1.LoadFromFile(fPrintFile);
|
||||||
RM1.DefaultCopies := 1;
|
RM1.DefaultCopies := 1;
|
||||||
RM1.ShowErrorMsg := false;
|
RM1.ShowErrorMsg := false;
|
||||||
RM1.ShowReport;
|
RM1.ShowReport;
|
||||||
end
|
end
|
||||||
else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
else
|
||||||
|
begin
|
||||||
|
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.OrderNoPropertiesChange(Sender: TObject);
|
procedure TfrmTradePlanMgeList.OrderNoPropertiesChange(Sender: TObject);
|
||||||
begin inherited;
|
begin
|
||||||
|
inherited;
|
||||||
Tfilter.Click;
|
Tfilter.Click;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.OrderNoPropertiesEditValueChanged
|
procedure TfrmTradePlanMgeList.OrderNoPropertiesEditValueChanged(Sender: TObject);
|
||||||
(Sender: TObject);
|
begin
|
||||||
begin inherited;
|
inherited;
|
||||||
InitGrid();
|
InitGrid();
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
@ -1153,7 +1236,8 @@ procedure TfrmTradePlanMgeList.InitMxGrid();
|
||||||
var
|
var
|
||||||
strwhere: string;
|
strwhere: string;
|
||||||
mStatus: string;
|
mStatus: string;
|
||||||
begin strwhere := '';
|
begin
|
||||||
|
strwhere := '';
|
||||||
try
|
try
|
||||||
loadProcess.Visible := true;
|
loadProcess.Visible := true;
|
||||||
loadProcess.Refresh;
|
loadProcess.Refresh;
|
||||||
|
|
@ -1162,22 +1246,24 @@ begin strwhere := '';
|
||||||
batchNo.Tag := 2;
|
batchNo.Tag := 2;
|
||||||
FtyPCId.Tag := 2;
|
FtyPCId.Tag := 2;
|
||||||
strwhere := SLGetFilters(dxLayoutControl_query, 1, 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;
|
end;
|
||||||
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
|
mStatus := cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
|
||||||
if (Trim(DParameters1) <> '高权限') then
|
if (Trim(DParameters1) <> '高权限') then
|
||||||
strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
|
strwhere := strwhere + ' and A.Filler=' + quotedstr(Trim(DName));
|
||||||
|
|
||||||
cds_mxlist.DisableControls;
|
cds_mxlist.DisableControls;
|
||||||
with ADOQueryMxList do begin close;
|
with ADOQueryMxList do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
Filtered := false;
|
Filtered := false;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('exec P_View_TradePlanMxList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
|
sql.Add('exec P_View_TradePlanMxList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
|
||||||
Parameters.ParamByName('timeType').Value := '制单日期';
|
Parameters.ParamByName('timeType').Value := '制单日期';
|
||||||
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
|
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date);
|
||||||
begdate.Date);
|
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
|
||||||
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
|
|
||||||
endDate.Date + 1);
|
|
||||||
Parameters.ParamByName('mStatus').Value := mStatus;
|
Parameters.ParamByName('mStatus').Value := mStatus;
|
||||||
// if strwhere<> then
|
// if strwhere<> then
|
||||||
Parameters.ParamByName('WSql').Value := ' ' + strwhere;
|
Parameters.ParamByName('WSql').Value := ' ' + strwhere;
|
||||||
|
|
@ -1203,22 +1289,20 @@ begin
|
||||||
try
|
try
|
||||||
Result := false;
|
Result := false;
|
||||||
ADOQueryBaseCmd.Connection.BeginTrans;
|
ADOQueryBaseCmd.Connection.BeginTrans;
|
||||||
with ADOQueryBaseCmd do begin close;
|
with ADOQueryBaseCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('delete Trade_Plan_Main where MainId=''' +
|
sql.Add('delete Trade_Plan_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
||||||
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_Sub where MainId=''' +
|
sql.Add('delete Trade_Plan_Fty where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
||||||
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('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
sql.Add(' ' + quotedstr(Trim(DName)));
|
sql.Add(' ' + quotedstr(Trim(DName)));
|
||||||
sql.Add(',getdate() ');
|
sql.Add(',getdate() ');
|
||||||
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
||||||
sql.Add(',' + quotedstr(Trim('指示单删除')));
|
sql.Add(',' + quotedstr(Trim('指示单删除')));
|
||||||
sql.Add(',' + quotedstr(Trim('指示单号：' +
|
sql.Add(',' + quotedstr(Trim('指示单号：' + Trim(Order_Main.fieldbyname('OrderNO').AsString))));
|
||||||
Trim(Order_Main.fieldbyname('OrderNO').AsString))));
|
|
||||||
sql.Add(',' + quotedstr(Trim('成功')));
|
sql.Add(',' + quotedstr(Trim('成功')));
|
||||||
sql.Add(')');
|
sql.Add(')');
|
||||||
execsql;
|
execsql;
|
||||||
|
|
@ -1232,6 +1316,7 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
/////////////////////////////////////////////////
|
/////////////////////////////////////////////////
|
||||||
|
|
||||||
function TfrmTradePlanMgeList.DelSubData(): Boolean;
|
function TfrmTradePlanMgeList.DelSubData(): Boolean;
|
||||||
var
|
var
|
||||||
mSubId: string;
|
mSubId: string;
|
||||||
|
|
@ -1240,7 +1325,9 @@ begin
|
||||||
Result := false;
|
Result := false;
|
||||||
mSubId := Trim(cds_mxlist.fieldbyname('subId').AsString);
|
mSubId := Trim(cds_mxlist.fieldbyname('subId').AsString);
|
||||||
ADOQueryBaseCmd.Connection.BeginTrans;
|
ADOQueryBaseCmd.Connection.BeginTrans;
|
||||||
with ADOQueryBaseCmd do begin close;
|
with ADOQueryBaseCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
// sql.Add('delete Trade_Plan_Main where MainId=''' +
|
// sql.Add('delete Trade_Plan_Main where MainId=''' +
|
||||||
// Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
// Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
||||||
|
|
@ -1254,8 +1341,7 @@ begin
|
||||||
sql.Add(',getdate() ');
|
sql.Add(',getdate() ');
|
||||||
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
sql.Add(',' + quotedstr(Trim(Self.Caption)));
|
||||||
sql.Add(',' + quotedstr(Trim('指示单删除')));
|
sql.Add(',' + quotedstr(Trim('指示单删除')));
|
||||||
sql.Add(',' + quotedstr(Trim('指示单号：' +
|
sql.Add(',' + quotedstr(Trim('指示单号：' + Trim(Order_Main.fieldbyname('OrderNO').AsString) + ';明细id=' + mSubId)));
|
||||||
Trim(Order_Main.fieldbyname('OrderNO').AsString)+';明细id='+mSubId)));
|
|
||||||
sql.Add(',' + quotedstr(Trim('成功')));
|
sql.Add(',' + quotedstr(Trim('成功')));
|
||||||
sql.Add(')');
|
sql.Add(')');
|
||||||
execsql;
|
execsql;
|
||||||
|
|
@ -1269,6 +1355,7 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
////////////////////////////////////////////////
|
////////////////////////////////////////////////
|
||||||
|
|
||||||
procedure TfrmTradePlanMgeList.threadLoadform();
|
procedure TfrmTradePlanMgeList.threadLoadform();
|
||||||
var
|
var
|
||||||
thread: TThread;
|
thread: TThread;
|
||||||
|
|
@ -1278,17 +1365,16 @@ begin
|
||||||
procedure
|
procedure
|
||||||
begin
|
begin
|
||||||
|
|
||||||
with ADOQueryMain do begin
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
|
||||||
close;
|
close;
|
||||||
Filtered := false;
|
Filtered := false;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
|
sql.Add('exec P_View_TradePlanList_for_pack :timeType, :begdate,:enddate,:mStatus,:WSql');
|
||||||
Parameters.ParamByName('timeType').Value := '制单日期';
|
Parameters.ParamByName('timeType').Value := '制单日期';
|
||||||
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd',
|
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', begdate.Date);
|
||||||
begdate.Date);
|
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', endDate.Date + 1);
|
||||||
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd',
|
|
||||||
endDate.Date + 1);
|
|
||||||
Parameters.ParamByName('mStatus').Value := '';
|
Parameters.ParamByName('mStatus').Value := '';
|
||||||
Parameters.ParamByName('WSql').Value := '';
|
Parameters.ParamByName('WSql').Value := '';
|
||||||
Open;
|
Open;
|
||||||
|
|
@ -1301,3 +1387,4 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,7 @@
|
||||||
<MainSource>djdPackPlan.dpr</MainSource>
|
<MainSource>djdPackPlan.dpr</MainSource>
|
||||||
<Base>True</Base>
|
<Base>True</Base>
|
||||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||||
<TargetedPlatforms>38017</TargetedPlatforms>
|
<TargetedPlatforms>1</TargetedPlatforms>
|
||||||
<AppType>Library</AppType>
|
<AppType>Library</AppType>
|
||||||
<FrameworkType>VCL</FrameworkType>
|
<FrameworkType>VCL</FrameworkType>
|
||||||
<ProjectVersion>19.2</ProjectVersion>
|
<ProjectVersion>19.2</ProjectVersion>
|
||||||
|
|
@ -13,16 +13,6 @@
|
||||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||||
<Base>true</Base>
|
<Base>true</Base>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
|
|
||||||
<Base_Android64>true</Base_Android64>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
|
|
||||||
<Base_iOSDevice64>true</Base_iOSDevice64>
|
|
||||||
<CfgParent>Base</CfgParent>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||||
<Base_Win32>true</Base_Win32>
|
<Base_Win32>true</Base_Win32>
|
||||||
<CfgParent>Base</CfgParent>
|
<CfgParent>Base</CfgParent>
|
||||||
|
|
@ -38,24 +28,6 @@
|
||||||
<CfgParent>Base</CfgParent>
|
<CfgParent>Base</CfgParent>
|
||||||
<Base>true</Base>
|
<Base>true</Base>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Android64)'!=''">
|
|
||||||
<Cfg_1_Android64>true</Cfg_1_Android64>
|
|
||||||
<CfgParent>Cfg_1</CfgParent>
|
|
||||||
<Cfg_1>true</Cfg_1>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_1)'=='true') or '$(Cfg_1_iOSDevice64)'!=''">
|
|
||||||
<Cfg_1_iOSDevice64>true</Cfg_1_iOSDevice64>
|
|
||||||
<CfgParent>Cfg_1</CfgParent>
|
|
||||||
<Cfg_1>true</Cfg_1>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_1)'=='true') or '$(Cfg_1_OSX64)'!=''">
|
|
||||||
<Cfg_1_OSX64>true</Cfg_1_OSX64>
|
|
||||||
<CfgParent>Cfg_1</CfgParent>
|
|
||||||
<Cfg_1>true</Cfg_1>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||||
<CfgParent>Cfg_1</CfgParent>
|
<CfgParent>Cfg_1</CfgParent>
|
||||||
|
|
@ -67,24 +39,6 @@
|
||||||
<CfgParent>Base</CfgParent>
|
<CfgParent>Base</CfgParent>
|
||||||
<Base>true</Base>
|
<Base>true</Base>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
|
|
||||||
<Cfg_2_Android64>true</Cfg_2_Android64>
|
|
||||||
<CfgParent>Cfg_2</CfgParent>
|
|
||||||
<Cfg_2>true</Cfg_2>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
|
|
||||||
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
|
|
||||||
<CfgParent>Cfg_2</CfgParent>
|
|
||||||
<Cfg_2>true</Cfg_2>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
|
|
||||||
<Cfg_2_OSX64>true</Cfg_2_OSX64>
|
|
||||||
<CfgParent>Cfg_2</CfgParent>
|
|
||||||
<Cfg_2>true</Cfg_2>
|
|
||||||
<Base>true</Base>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||||
<CfgParent>Cfg_2</CfgParent>
|
<CfgParent>Cfg_2</CfgParent>
|
||||||
|
|
@ -104,13 +58,6 @@
|
||||||
<VerInfo_Locale>2052</VerInfo_Locale>
|
<VerInfo_Locale>2052</VerInfo_Locale>
|
||||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
|
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Base_Android64)'!=''">
|
|
||||||
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
|
|
||||||
<EnabledSysJars>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</EnabledSysJars>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
|
|
||||||
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||||
<DCC_Namespace>Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
<DCC_Namespace>Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||||
<BT_BuildType>Debug</BT_BuildType>
|
<BT_BuildType>Debug</BT_BuildType>
|
||||||
|
|
@ -128,15 +75,6 @@
|
||||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Cfg_1_Android64)'!=''">
|
|
||||||
<BT_BuildType>Debug</BT_BuildType>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_1_iOSDevice64)'!=''">
|
|
||||||
<BT_BuildType>Debug</BT_BuildType>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_1_OSX64)'!=''">
|
|
||||||
<BT_BuildType>Debug</BT_BuildType>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||||
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
|
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
|
|
@ -145,18 +83,9 @@
|
||||||
<DCC_Optimize>false</DCC_Optimize>
|
<DCC_Optimize>false</DCC_Optimize>
|
||||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
|
|
||||||
<BT_BuildType>Debug</BT_BuildType>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
|
|
||||||
<BT_BuildType>Debug</BT_BuildType>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
|
|
||||||
<BT_BuildType>Debug</BT_BuildType>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||||
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
|
<Debugger_HostApplication>E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="$(MainSource)">
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
|
@ -286,10 +215,6 @@
|
||||||
</Excluded_Packages>
|
</Excluded_Packages>
|
||||||
</Delphi.Personality>
|
</Delphi.Personality>
|
||||||
<Platforms>
|
<Platforms>
|
||||||
<Platform value="Android64">True</Platform>
|
|
||||||
<Platform value="iOSDevice64">True</Platform>
|
|
||||||
<Platform value="Linux64">True</Platform>
|
|
||||||
<Platform value="OSX64">True</Platform>
|
|
||||||
<Platform value="Win32">True</Platform>
|
<Platform value="Win32">True</Platform>
|
||||||
<Platform value="Win64">False</Platform>
|
<Platform value="Win64">False</Platform>
|
||||||
</Platforms>
|
</Platforms>
|
||||||
|
|
|
||||||
|
|
@ -1,34 +1,6 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="android-support-v4.dex.jar"/>
|
|
||||||
<File Path="cloud-messaging.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
|
|
||||||
<File Path="fmx.dex.jar"/>
|
|
||||||
<File Path="google-play-billing.dex.jar"/>
|
|
||||||
<File Path="google-play-licensing.dex.jar"/>
|
|
||||||
<File Path="..\..\djdPack"/>
|
<File Path="..\..\djdPack"/>
|
||||||
<File Path="..\A00通用窗体"/>
|
<File Path="..\A00通用窗体"/>
|
||||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||||
|
|
@ -53,7 +25,7 @@
|
||||||
<File Path="..\G00贸易通用窗体"/>
|
<File Path="..\G00贸易通用窗体"/>
|
||||||
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
|
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
|
||||||
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
|
<File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
|
||||||
<File Path="..\..\..\..\D10djdPack"/>
|
<File Path="..\..\..\..\D10DJzhuocan"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
||||||
|
|
@ -98,12 +70,12 @@
|
||||||
</ProjectSortOrder>
|
</ProjectSortOrder>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -50,7 +50,8 @@ uses
|
||||||
U_FormInitThread in '..\..\..\public10\design\U_FormInitThread.pas',
|
U_FormInitThread in '..\..\..\public10\design\U_FormInitThread.pas',
|
||||||
Unit2 in 'Unit2.pas' {Form2},
|
Unit2 in 'Unit2.pas' {Form2},
|
||||||
U_ControlData in '..\..\..\public10\ThreeFun\Fun\U_ControlData.pas',
|
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}
|
{$R *.res}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -235,6 +235,10 @@
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_ControlData.pas"/>
|
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_ControlData.pas"/>
|
||||||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
|
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
|
||||||
|
<DCCReference Include="U_ProductListHelp2.pas">
|
||||||
|
<Form>frmProductListHelp2</Form>
|
||||||
|
<FormType>dfm</FormType>
|
||||||
|
</DCCReference>
|
||||||
<BuildConfiguration Include="Debug">
|
<BuildConfiguration Include="Debug">
|
||||||
<Key>Cfg_2</Key>
|
<Key>Cfg_2</Key>
|
||||||
<CfgParent>Base</CfgParent>
|
<CfgParent>Base</CfgParent>
|
||||||
|
|
|
||||||
|
|
@ -1,104 +1,105 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
<Transaction>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</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>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</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||||
<Transaction>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</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>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</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.928,=E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G03贸易布匹检验\U_ProductListHelp2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="..\..\djdPack"/>
|
<File Path="..\..\djdPack"/>
|
||||||
|
|
@ -184,5 +185,7 @@
|
||||||
<File Path="U_TradePack.dfm"/>
|
<File Path="U_TradePack.dfm"/>
|
||||||
<File Path="U_TradeClothInspList_Auto.pas"/>
|
<File Path="U_TradeClothInspList_Auto.pas"/>
|
||||||
<File Path="U_TradeClothInspList_Auto.dfm"/>
|
<File Path="U_TradeClothInspList_Auto.dfm"/>
|
||||||
|
<File Path="U_ProductListHelp2.pas"/>
|
||||||
|
<File Path="U_ProductListHelp2.dfm"/>
|
||||||
</ProjectSortOrder>
|
</ProjectSortOrder>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -2045,6 +2045,10 @@ inherited frmMachRollMain: TfrmMachRollMain
|
||||||
object sheetLook: TcxTabSheet
|
object sheetLook: TcxTabSheet
|
||||||
Caption = #26597#30475
|
Caption = #26597#30475
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 0
|
||||||
|
ExplicitWidth = 0
|
||||||
|
ExplicitHeight = 0
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
Tag = 999
|
Tag = 999
|
||||||
Left = 0
|
Left = 0
|
||||||
|
|
|
||||||
|
|
@ -394,6 +394,7 @@ type
|
||||||
fmanage, canshu1: string;
|
fmanage, canshu1: string;
|
||||||
fFlileFlag: string;
|
fFlileFlag: string;
|
||||||
FNetpoundxs, FGrosspoundxs: Double;
|
FNetpoundxs, FGrosspoundxs: Double;
|
||||||
|
MCustName, MC_Color, MOrderNo: string;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
|
|
@ -405,7 +406,7 @@ implementation
|
||||||
uses
|
uses
|
||||||
U_DataLink, U_ControlData, U_ParamSet, U_RTFun, U_globalVar, U_DjdDjClList_CX,
|
U_DataLink, U_ControlData, U_ParamSet, U_RTFun, U_globalVar, U_DjdDjClList_CX,
|
||||||
U_FormLayOutDesign, U_ZDYHelp, U_iniParam, U_ProductListHelp, U_SysLogList,
|
U_FormLayOutDesign, U_ZDYHelp, U_iniParam, U_ProductListHelp, U_SysLogList,
|
||||||
U_MdPrint;
|
U_MdPrint, U_ProductListHelp2;
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
/// ///////////////////////////////
|
/// ///////////////////////////////
|
||||||
|
|
||||||
|
|
@ -2579,13 +2580,20 @@ var
|
||||||
mkey: Char;
|
mkey: Char;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
frmProductListHelp := TfrmProductListHelp.create(Self);
|
frmProductListHelp2 := TfrmProductListHelp2.create(Self);
|
||||||
with frmProductListHelp do
|
with frmProductListHelp2 do
|
||||||
begin
|
begin
|
||||||
fType := '10';
|
fType := '10';
|
||||||
|
FCustName := MCustName;
|
||||||
|
// FC_Color := MC_Color;
|
||||||
|
FOrderNo := MOrderNo;
|
||||||
if ShowModal = 1 then
|
if ShowModal = 1 then
|
||||||
begin
|
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;
|
mkey := #13;
|
||||||
edtScanKeyPress(edtScan, mkey);
|
edtScanKeyPress(edtScan, mkey);
|
||||||
end;
|
end;
|
||||||
|
|
|
||||||
458
项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.dfm
Normal file
458
项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.dfm
Normal file
|
|
@ -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
|
||||||
296
项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas
Normal file
296
项目代码/djdPack/G03贸易布匹检验/U_ProductListHelp2.pas
Normal file
|
|
@ -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.
|
||||||
|
|
||||||
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj"/>
|
<Projects ActiveProject="E:\rtgit\trade\D10DJzhuocan\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -1,138 +1,110 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.186,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.186,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.352,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_ZdyBtnHelp.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.495,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.495,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\fhDjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\DjdMachineInsp.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.800,D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain_fh.pas=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_MachRollMain.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_SCPersonColor.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10RepoV1\项目代码\djdPack\G04复核布匹检验\U_SCPersonColor.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="android-support-v4.dex.jar"/>
|
|
||||||
<File Path="cloud-messaging.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
|
|
||||||
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
|
|
||||||
<File Path="fmx.dex.jar"/>
|
|
||||||
<File Path="google-play-billing.dex.jar"/>
|
|
||||||
<File Path="google-play-licensing.dex.jar"/>
|
|
||||||
<File Path="..\..\djdPack"/>
|
<File Path="..\..\djdPack"/>
|
||||||
<File Path="..\A00通用窗体"/>
|
<File Path="..\A00通用窗体"/>
|
||||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||||
|
|
@ -152,7 +124,7 @@
|
||||||
<File Path="..\A00通用组件"/>
|
<File Path="..\A00通用组件"/>
|
||||||
<File Path="..\A00通用组件\FrameDateSel.pas"/>
|
<File Path="..\A00通用组件\FrameDateSel.pas"/>
|
||||||
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
|
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
|
||||||
<File Path="..\..\..\..\D10djdPack"/>
|
<File Path="..\..\..\..\D10DJzhuocan"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user