diff --git a/E02梭织经轴仓库/U_RPFun.pas b/E02梭织经轴仓库/U_RPFun.pas
new file mode 100644
index 0000000..30a317b
--- /dev/null
+++ b/E02梭织经轴仓库/U_RPFun.pas
@@ -0,0 +1,231 @@
+unit U_RPFun;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, cxStyles, cxCustomData,
+ cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DBGrids, DB, cxDBData,
+ cxGridLevel, cxClasses, cxControls, cxGridCustomView, ADODB, StrUtils, Midas,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxTimeEdit,
+ cxTreeView, cxGrid, cxDBLookupComboBox, cxCalendar, cxCurrencyEdit,
+ cxGridExportLink, ExtCtrls, Buttons, DBClient, RTComboBox, cxDropDownEdit,
+ cxGridBandedTableView, cxGridDBBandedTableView, cxRichEdit, cxButtonEdit,
+ IniFiles, WinSock, IdHTTP, dxcore, cxTextEdit, FireDAC.Comp.Client, cxCheckBox,
+ Vcl.Clipbrd, cxMemo, dxLayoutControl;
+
+function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
+function FromShowFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
+function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
+function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
+function FunPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
+//д ļѡ
+function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
+// ļѡ
+function FunPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
+implementation
+
+//
+function FunPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+var
+ FileName, MReport: string;
+ programIni: Tinifile; //ļ
+ JsonResult: PChar;
+begin
+ FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
+ programIni := Tinifile.create(FileName);
+ MReport := programIni.ReadString('REPORTSET', 'reportType', '0');
+ programIni.Free;
+
+ if MReport = '0' then
+ begin
+ JsonResult := FunPrintFr3(App, DataBaseStr, JsonArgs);
+ end
+ else
+ begin
+ JsonResult := FunPrintRmf(App, DataBaseStr, JsonArgs);
+ end;
+ Result := JsonResult;
+end;
+
+function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+var
+ FileName, MReport: string;
+ programIni: Tinifile; //ļ
+ JsonResult: PChar;
+begin
+ FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
+ programIni := Tinifile.create(FileName);
+ MReport := programIni.ReadString('REPORTSET', 'reportType', '0');
+ programIni.Free;
+
+ if MReport = '0' then
+ begin
+ JsonResult := FromPrintFr3(App, DataBaseStr, JsonArgs);
+ end
+ else
+ begin
+ JsonResult := FromPrintRmf(App, DataBaseStr, JsonArgs);
+ end;
+ Result := JsonResult;
+end;
+
+function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+type
+ TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
+var
+ Tf: TMyFunc;
+ Tp: TFarProc;
+ Th: Thandle;
+ JsonResult: PChar;
+begin
+ Th := LoadLibrary('ReportPrint.dll');
+ if Th > 0 then
+ begin
+ Tp := GetProcAddress(Th, 'GetDllForm');
+ if Tp <> nil then
+ begin
+ Tf := TMyFunc(Tp);
+ JsonResult := Tf(Application, 11, 'FR3', DataBaseStr, JsonArgs);
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ȡú쳣"}';
+ end;
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ҲReportPrint.dll"}';
+ end;
+ Result := JsonResult;
+end;
+
+function FromShowFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+type
+ TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
+var
+ Tf: TMyFunc;
+ Tp: TFarProc;
+ Th: Thandle;
+ JsonResult: PChar;
+begin
+ Th := LoadLibrary('ReportPrint.dll');
+ if Th > 0 then
+ begin
+ Tp := GetProcAddress(Th, 'GetDllForm');
+ if Tp <> nil then
+ begin
+ Tf := TMyFunc(Tp);
+ JsonResult := Tf(Application, 13, 'FR3', DataBaseStr, JsonArgs);
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ȡú쳣"}';
+ end;
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ҲReportPrint.dll"}';
+ end;
+ Result := JsonResult;
+end;
+
+function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+type
+ TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
+var
+ Tf: TMyFunc;
+ Tp: TFarProc;
+ Th: Thandle;
+ JsonResult: PChar;
+begin
+ Th := LoadLibrary('ReportPrint.dll');
+ if Th > 0 then
+ begin
+ Tp := GetProcAddress(Th, 'GetDllForm');
+ if Tp <> nil then
+ begin
+ Tf := TMyFunc(Tp);
+ JsonResult := Tf(Application, 12, 'FR3', DataBaseStr, JsonArgs);
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ȡú쳣"}';
+ end;
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ҲReportPrint.dll"}';
+ end;
+ Result := JsonResult;
+end;
+
+function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+type
+ TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
+var
+ Tf: TMyFunc;
+ Tp: TFarProc;
+ Th: Thandle;
+ JsonResult: PChar;
+begin
+ Th := LoadLibrary('ReportPrint.dll');
+ if Th > 0 then
+ begin
+ Tp := GetProcAddress(Th, 'GetDllForm');
+ if Tp <> nil then
+ begin
+ Tf := TMyFunc(Tp);
+ JsonResult := Tf(Application, 21, 'Rmf', DataBaseStr, JsonArgs);
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ȡú쳣"}';
+ end;
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ҲReportPrint.dll"}';
+ end;
+ Result := JsonResult;
+end;
+
+function FunPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+type
+ TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
+var
+ Tf: TMyFunc;
+ Tp: TFarProc;
+ Th: Thandle;
+ JsonResult: PChar;
+begin
+ Th := LoadLibrary('ReportPrint.dll');
+ if Th > 0 then
+ begin
+ Tp := GetProcAddress(Th, 'GetDllForm');
+ if Tp <> nil then
+ begin
+ Tf := TMyFunc(Tp);
+ JsonResult := Tf(Application, 22, 'Rmf', DataBaseStr, JsonArgs);
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ȡú쳣"}';
+ end;
+ end
+ else
+ begin
+ JsonResult := '{"succsee":false,"message": "ҲReportPrint.dll"}';
+ end;
+ Result := JsonResult;
+end;
+
+end.
+
diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm
index 6bf6410..e77c82c 100644
--- a/E02梭织经轴仓库/U_TatWBPlan.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlan.dfm
@@ -6,7 +6,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
- ExplicitLeft = -633
ExplicitWidth = 1556
ExplicitHeight = 691
PixelsPerInch = 96
@@ -234,6 +233,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 541
Align = alLeft
TabOrder = 2
+ ExplicitLeft = -5
+ ExplicitTop = 117
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -540,7 +541,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 38
AutoSize = True
ButtonHeight = 38
- ButtonWidth = 75
+ ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
@@ -555,6 +556,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ParentFont = False
ShowCaptions = True
TabOrder = 1
+ ExplicitLeft = 6
+ ExplicitTop = 6
object ToolButton2: TToolButton
Left = 0
Top = 0
@@ -567,12 +570,20 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Left = 71
Top = 0
AutoSize = True
- Caption = #25171#21360
+ Caption = #25171#21360#39044#35272
ImageIndex = 21
OnClick = ToolButton4Click
end
+ object ToolButton5: TToolButton
+ Left = 166
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ OnClick = ToolButton5Click
+ end
object ToolButton3: TToolButton
- Left = 142
+ Left = 237
Top = 0
AutoSize = True
Caption = #21024#38500
@@ -822,4 +833,102 @@ inherited frmTatWBPlan: TfrmTatWBPlan
OnClick = N6Click
end
end
+ object frxXLSExport1: TfrxXLSExport
+ UseFileCache = True
+ ShowProgress = True
+ OverwritePrompt = False
+ DataOnly = False
+ ExportEMF = True
+ AsText = False
+ Background = True
+ FastExport = True
+ PageBreaks = True
+ EmptyLines = True
+ SuppressPageHeadersFooters = False
+ Left = 877
+ Top = 429
+ end
+ object frxXLSXExport1: TfrxXLSXExport
+ UseFileCache = True
+ ShowProgress = True
+ OverwritePrompt = False
+ DataOnly = False
+ ChunkSize = 0
+ OpenAfterExport = False
+ PictureType = gpPNG
+ Left = 796
+ Top = 429
+ end
+ object frxPPTXExport1: TfrxPPTXExport
+ UseFileCache = True
+ ShowProgress = True
+ OverwritePrompt = False
+ DataOnly = False
+ OpenAfterExport = False
+ PictureType = gpPNG
+ Left = 777
+ Top = 364
+ end
+ object frxReportTableObject1: TfrxReportTableObject
+ Left = 865
+ Top = 348
+ end
+ object frxReport1: TfrxReport
+ Version = '6.9.12'
+ DataSet = fRMDB_1
+ DataSetName = 'frxDBDataset1'
+ DotMatrixReport = False
+ IniFile = '\Software\Fast Reports'
+ PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbCopy, pbSelection]
+ PreviewOptions.Zoom = 1.000000000000000000
+ PrintOptions.Printer = 'Default'
+ PrintOptions.PrintOnSheet = 0
+ ReportOptions.CreateDate = 45471.682319444440000000
+ ReportOptions.LastChange = 45471.682319444440000000
+ ScriptLanguage = 'PascalScript'
+ ScriptText.Strings = (
+ 'begin'
+ ''
+ 'end.')
+ ShowProgress = False
+ Left = 841
+ Top = 289
+ Datasets = <>
+ Variables = <>
+ Style = <>
+ object Data: TfrxDataPage
+ Height = 1000.000000000000000000
+ Width = 1000.000000000000000000
+ end
+ object Page1: TfrxReportPage
+ PaperWidth = 70.000000000000000000
+ PaperHeight = 50.000000000000000000
+ PaperSize = 256
+ LeftMargin = 10.000000000000000000
+ RightMargin = 10.000000000000000000
+ TopMargin = 10.000000000000000000
+ BottomMargin = 10.000000000000000000
+ Frame.Typ = []
+ MirrorMode = []
+ end
+ end
+ object fRMDB_1: TfrxDBDataset
+ UserName = 'frxDBDataset1'
+ CloseDataSource = False
+ BCDToCurrency = False
+ Left = 882
+ Top = 251
+ end
+ object frxBarCodeObject1: TfrxBarCodeObject
+ Left = 1025
+ Top = 284
+ end
+ object frxRichObject1: TfrxRichObject
+ Left = 985
+ Top = 356
+ end
+ object frxOLEObject1: TfrxOLEObject
+ Left = 945
+ Top = 412
+ end
end
diff --git a/E02梭织经轴仓库/U_TatWBPlan.pas b/E02梭织经轴仓库/U_TatWBPlan.pas
index 38fa114..a2cf56c 100644
--- a/E02梭织经轴仓库/U_TatWBPlan.pas
+++ b/E02梭织经轴仓库/U_TatWBPlan.pas
@@ -13,7 +13,9 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
- dxSkinSharpPlus, dxSkinWXI;
+ dxSkinSharpPlus, dxSkinWXI, frxOLE, frxRich, frxBarcode, frxClass, frxDBSet,
+ frxTableObject, frxExportPPTX, frxExportXLSX, frxExportBaseDialog,
+ frxExportXLS;
type
TfrmTatWBPlan = class(TfrmBaseList)
@@ -95,6 +97,16 @@ type
PM_1: TPopupMenu;
N5: TMenuItem;
N6: TMenuItem;
+ ToolButton5: TToolButton;
+ frxXLSExport1: TfrxXLSExport;
+ frxXLSXExport1: TfrxXLSXExport;
+ frxPPTXExport1: TfrxPPTXExport;
+ frxReportTableObject1: TfrxReportTableObject;
+ frxReport1: TfrxReport;
+ fRMDB_1: TfrxDBDataset;
+ frxBarCodeObject1: TfrxBarCodeObject;
+ frxRichObject1: TfrxRichObject;
+ frxOLEObject1: TfrxOLEObject;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
@@ -126,6 +138,7 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
+ procedure ToolButton5Click(Sender: TObject);
private
FInt, PFInt: Integer;
@@ -133,6 +146,7 @@ type
procedure InitCard();
procedure InitCardYarn();
procedure InitForm();
+// procedure PrintCar(MPCID: string);
function DelData(): Boolean;
procedure InitButton();
{ Private declarations }
@@ -145,7 +159,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,
- U_TatWBCardInPut2; //U_TatWBPlanCardInPut
+ U_TatWBCardInPut2, U_RPFun; //U_TatWBPlanCardInPut
{$R *.dfm}
@@ -705,6 +719,45 @@ begin
end;
+procedure TfrmTatWBPlan.ToolButton5Click(Sender: TObject);
+var
+ i: integer;
+ MPCID: string;
+ MPrintJson: string;
+begin
+
+ if CDS_2.IsEmpty then
+ Exit;
+ if CDS_2.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ i := 0;
+ with CDS_2 do
+ begin
+ DisableControls;
+ First;
+ while not Eof do
+ begin
+ if Fieldbyname('Ssel').AsBoolean then
+ begin
+ if i = 0 then
+ MPCID := trim(CDS_2.fieldbyname('WBCID').AsString);
+// PrintCar(trim(CDS_2.fieldbyname('PCID').AsString));
+ MPrintJson := '{ "LBName": "ϽῨ","IsPreview": false, "PrtArgs": [ {"SqlStr": "EXEC P_TatWB_JZCard_Prt @Filtration=' + QuotedStr(MPCID) + ' " }, {"SqlStr": "EXEC P_TatWB_JZCard_Prt2 @Filtration=' + QuotedStr(MPCID) + '" } ] }';
+// ShowMessage(MPrintJson);
+ FunPrintRmf(Application, PChar(DConString), PChar(MPrintJson));
+ i := i + 1;
+ end;
+ Next;
+ end;
+ EnableControls;
+ end;
+ SelOKNoFiler(Tv2, False);
+ CDS_2.Locate('WBCID', MPCID, []);
+end;
+
procedure TfrmTatWBPlan.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitCard();
diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.dfm b/E02梭织经轴仓库/U_TatWBPlanCard.dfm
index 48fd459..b764fed 100644
--- a/E02梭织经轴仓库/U_TatWBPlanCard.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlanCard.dfm
@@ -18,7 +18,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Height = 30
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 131
+ ButtonWidth = 107
Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
Images = DataLink_WarpBeamStk.cxImageList_bar
@@ -34,7 +34,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
- Left = 71
+ Left = 63
Top = 0
AutoSize = True
Caption = #26032#22686
@@ -42,7 +42,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
- Left = 142
+ Left = 126
Top = 0
AutoSize = True
Caption = #20462#25913
@@ -50,7 +50,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton6Click
end
object ToolButton3: TToolButton
- Left = 213
+ Left = 189
Top = 0
AutoSize = True
Caption = #36724#21345#21024#38500
@@ -58,7 +58,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
- Left = 316
+ Left = 276
Top = 0
AutoSize = True
Caption = #25972#32463#35745#21010#25171#21360
@@ -66,15 +66,23 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
- Left = 451
+ Left = 387
+ Top = 0
+ AutoSize = True
+ Caption = #36724#21345#39044#35272
+ ImageIndex = 21
+ OnClick = ToolButton1Click
+ end
+ object ToolButton7: TToolButton
+ Left = 474
Top = 0
AutoSize = True
Caption = #36724#21345#25171#21360
ImageIndex = 21
- OnClick = ToolButton1Click
+ OnClick = ToolButton7Click
end
object ToolButton2: TToolButton
- Left = 554
+ Left = 561
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -82,7 +90,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton2Click
end
object TBClose: TToolButton
- Left = 657
+ Left = 648
Top = 0
AutoSize = True
Caption = #20851#38381
diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.pas b/E02梭织经轴仓库/U_TatWBPlanCard.pas
index 611dab8..5860c28 100644
--- a/E02梭织经轴仓库/U_TatWBPlanCard.pas
+++ b/E02梭织经轴仓库/U_TatWBPlanCard.pas
@@ -153,6 +153,7 @@ type
TV2Column4: TcxGridDBColumn;
ToolButton4: TToolButton;
TV1Column3: TcxGridDBColumn;
+ ToolButton7: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@@ -169,6 +170,7 @@ type
procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure Tv4FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton4Click(Sender: TObject);
+ procedure ToolButton7Click(Sender: TObject);
private
FInt, PFInt: Integer;
FFMainID, BPFlag: string;
@@ -183,7 +185,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBCardInPut,
- U_TatWBCardInPutOld;
+ U_TatWBCardInPutOld, U_RPFun;
{$R *.dfm}
@@ -443,6 +445,45 @@ begin
end;
end;
+procedure TfrmTatWBPlanCard.ToolButton7Click(Sender: TObject);
+var
+ i: integer;
+ MPCID: string;
+ MPrintJson: string;
+begin
+
+ if CDS_4.IsEmpty then
+ Exit;
+ if CDS_4.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ i := 0;
+ with CDS_4 do
+ begin
+ DisableControls;
+ First;
+ while not Eof do
+ begin
+ if Fieldbyname('Ssel').AsBoolean then
+ begin
+ if i = 0 then
+ MPCID := trim(CDS_4.fieldbyname('WBCID').AsString);
+// PrintCar(trim(CDS_2.fieldbyname('PCID').AsString));
+ MPrintJson := '{ "LBName": "Ῠ","IsPreview": false, "PrtArgs": [ {"SqlStr": "EXEC P_TatWB_Card_Prt @Filtration=' + (MPCID) + ' " }, {"SqlStr": "EXEC P_TatWB_Card_Prt2 @Filtration=' + (MPCID) + '" } ] }';
+
+ FunPrintRmf(Application, PChar(DConString), PChar(MPrintJson));
+ i := i + 1;
+ end;
+ Next;
+ end;
+ EnableControls;
+ end;
+ SelOKNoFiler(Tv4, False);
+ CDS_4.Locate('WBCID', MPCID, []);
+end;
+
procedure TfrmTatWBPlanCard.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
WB_YarnArrNote.Text := Trim(CDS_1.fieldbyname('WB_YarnArrNote').AsString);
diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local
index 286e55d..02686e2 100644
--- a/E02梭织经轴仓库/WarpBeamStk.dproj.local
+++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local
@@ -135,24 +135,24 @@
- 1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=
- 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas
- 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas
- 1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas
- 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas
- 1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas
- 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas
- 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas
- 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm
- 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas
- 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm
- 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
- 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas
- 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm
- 2025/08/26 09:25:41.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas
- 2025/08/26 09:28:41.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas
- 2025/09/10 13:42:50.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas
- 2025/09/11 15:53:10.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas
+ 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm
+ 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm
+ 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=
+ 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas
+ 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas
+ 1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas
+ 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas
+ 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas
+ 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas
+ 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas
+ 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm
+ 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas
+ 1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
+ 2025-08-26 09:25:41.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas
+ 2025-08-26 09:28:41.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas
+ 2025-09-10 13:42:50.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas
+ 2025-09-11 15:53:10.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas
diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache
index b3e5c76..cb3a8e9 100644
Binary files a/E02梭织经轴仓库/WarpBeamStk.identcache and b/E02梭织经轴仓库/WarpBeamStk.identcache differ
diff --git a/E02梭织经轴仓库/testDll.identcache b/E02梭织经轴仓库/testDll.identcache
index 5f7d627..8e8dad4 100644
Binary files a/E02梭织经轴仓库/testDll.identcache and b/E02梭织经轴仓库/testDll.identcache differ
diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local
index a1486ea..6d4fd6a 100644
--- a/E04梭织坯布仓库/TatClothStk.dproj.local
+++ b/E04梭织坯布仓库/TatClothStk.dproj.local
@@ -1,95 +1,95 @@
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas
- 1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas
- 1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas=
- 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm
- 1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas
- 1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas
- 1899/12/30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas
- 1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm
- 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm
- 1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas
- 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas
- 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas
- 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm
- 1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas
- 1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas
- 1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas
- 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm
- 1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas
- 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm
- 1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas
- 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=
- 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=
- 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas
- 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=
- 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas
- 1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas
- 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas
- 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas
- 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas
- 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=
- 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas
- 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=
- 1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=
- 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas
- 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas
- 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm
- 1899/12/30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas=
- 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas
- 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas
- 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm
- 1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas
- 1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas
- 1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas
- 1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 2025/07/03 14:12:23.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas
- 2025/07/12 10:29:31.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas
- 2025/07/12 10:34:14.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=
- 2025/07/12 10:51:18.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas
- 2025/07/12 10:53:24.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=
- 2025/07/12 10:53:58.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas
+ 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm
+ 1899-12-30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas
+ 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas
+ 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=
+ 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm
+ 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm
+ 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas
+ 1899-12-30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas
+ 1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas
+ 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj
+ 1899-12-30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas=
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899-12-30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas
+ 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas
+ 1899-12-30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas
+ 1899-12-30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas
+ 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm
+ 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas
+ 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas
+ 1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas
+ 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm
+ 1899-12-30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas
+ 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas
+ 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas
+ 1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=
+ 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm
+ 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=
+ 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas
+ 1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas
+ 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas
+ 1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm
+ 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas
+ 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas
+ 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=
+ 1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas
+ 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas
+ 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas
+ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=
+ 1899-12-30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas
+ 1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas=
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas
+ 1899-12-30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas
+ 1899-12-30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas
+ 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj
+ 1899-12-30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm
+ 1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 2025-07-03 14:12:23.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas
+ 2025-07-12 10:29:31.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas
+ 2025-07-12 10:34:14.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=
+ 2025-07-12 10:51:18.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas
+ 2025-07-12 10:53:24.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=
+ 2025-07-12 10:53:58.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas
diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache
index aefac97..21ef5dc 100644
Binary files a/E04梭织坯布仓库/TatClothStk.identcache and b/E04梭织坯布仓库/TatClothStk.identcache differ
diff --git a/E04梭织坯布仓库/U_TatDRList.pas b/E04梭织坯布仓库/U_TatDRList.pas
index e55f8bb..b454640 100644
--- a/E04梭织坯布仓库/U_TatDRList.pas
+++ b/E04梭织坯布仓库/U_TatDRList.pas
@@ -251,44 +251,40 @@ begin
Exit;
// if cxTabControl1.TabIndex <> 0 then
// Exit;
- if Trim(canshu1) <> 'Ȩ' then
- begin
-
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- SQL.Add('select FILLER from Tat_Cloth_DR_Main A ');
- SQL.Add('where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''' ');
- SQL.Add('and filler in ( select username from SY_User where UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname)));
- SQL.Add('))');
- Open;
- end;
-
- if ADOQueryTemp.ISEMPTY = True then
- begin
- Application.MessageBox('ܲ˵!', 'ʾ', 0);
- Exit;
- end;
-// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+// if Trim(canshu1) <> 'Ȩ' then
+// begin
+//
+// with ADOQueryTemp do
+// begin
+// Close;
+// sql.Clear;
+// SQL.Add('select FILLER from Tat_Cloth_DR_Main A ');
+// SQL.Add('where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''' ');
+// SQL.Add('and filler in ( select username from SY_User where UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname)));
+// SQL.Add('))');
+// Open;
+// end;
+//
+// if ADOQueryTemp.ISEMPTY = True then
// begin
// Application.MessageBox('ܲ˵!', 'ʾ', 0);
// Exit;
// end;
- end;
- with ADOQueryTemp do
- begin
- close;
- sql.Clear;
- sql.Add('select * from Tat_Cloth_DR_Main');
- sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
- Open;
- end;
- if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
- begin
- Application.MessageBox('Ӧ˿!', 'ʾ', 0);
- Exit;
- end;
+//
+// end;
+// with ADOQueryTemp do
+// begin
+// close;
+// sql.Clear;
+// sql.Add('select * from Tat_Cloth_DR_Main');
+// sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
+// Open;
+// end;
+// if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
+// begin
+// Application.MessageBox('Ӧ˿!', 'ʾ', 0);
+// Exit;
+// end;
try
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do