12.13 17.34
This commit is contained in:
parent
45614bc048
commit
85dce630a4
|
|
@ -1,49 +1,49 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.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.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.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.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.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.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.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.292,=D:\Dp10Repo\项目代码\RTBasics\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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.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.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</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>2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
|
||||
<Transaction>2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
|
||||
</Transactions>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,27 +1,27 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="logon.pas"/>
|
||||
<File Path="logon.dfm"/>
|
||||
<File Path="spmain.pas"/>
|
||||
<File Path="spmain.dfm"/>
|
||||
<File Path="DbPanel"/>
|
||||
<File Path="DbPanel\MovePanel.pas"/>
|
||||
<File Path="delphitwain"/>
|
||||
<File Path="delphitwain\DelphiTwain.pas"/>
|
||||
<File Path="delphitwain\DelphiTwainUtils.pas"/>
|
||||
<File Path="delphitwain\Twain.pas"/>
|
||||
<File Path="DbPanel"/>
|
||||
<File Path="DbPanel\MovePanel.pas"/>
|
||||
<File Path="AES.pas"/>
|
||||
<File Path="ElAES.pas"/>
|
||||
<File Path="U_upPassword.pas"/>
|
||||
<File Path="U_upPassword.dfm"/>
|
||||
<File Path="JDAESExtend.pas"/>
|
||||
<File Path="logon.pas"/>
|
||||
<File Path="logon.dfm"/>
|
||||
<File Path="spmain.pas"/>
|
||||
<File Path="spmain.dfm"/>
|
||||
<File Path="U_iniParam.pas"/>
|
||||
<File Path="U_Link.pas"/>
|
||||
<File Path="U_Link.dfm"/>
|
||||
<File Path="U_iniParam.pas"/>
|
||||
<File Path="JDAESExtend.pas"/>
|
||||
<File Path="U_upPassword.pas"/>
|
||||
<File Path="U_upPassword.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -254,6 +254,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 103
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -523,6 +524,15 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 80
|
||||
OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
|
|
|
|||
|
|
@ -84,6 +84,7 @@ type
|
|||
Tv1cspf: TcxGridDBColumn;
|
||||
Tv1fqPF: TcxGridDBColumn;
|
||||
Tv1FBPF: TcxGridDBColumn;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -116,6 +117,7 @@ type
|
|||
procedure Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
|
|
@ -177,7 +179,7 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from ( ');
|
||||
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter ');
|
||||
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,A.issp ');
|
||||
sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID ');
|
||||
// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) ');
|
||||
|
||||
|
|
@ -215,7 +217,6 @@ begin
|
|||
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
|
||||
SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
|
||||
SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
|
@ -224,7 +225,7 @@ begin
|
|||
// SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
|
||||
SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''²âÊÔ'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
SQL.Add(',cspf=SUM(CASE WHEN A.GRADE=''²âÊÔ'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
|
||||
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
|
||||
|
|
@ -279,7 +280,7 @@ begin
|
|||
SQL.Add(WSql1);
|
||||
|
||||
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter');
|
||||
sql.Add(' ,A.CIMachNo,A.BCIOID');
|
||||
sql.Add(' ,A.CIMachNo,A.BCIOID,A.issp');
|
||||
|
||||
sql.add(' ) T where 1=1 ');
|
||||
SQL.Add(WSql);
|
||||
|
|
@ -385,6 +386,12 @@ end;
|
|||
|
||||
procedure TfrmTatClothInspHZList.Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1PCID.Index] = ARow2.Values[Tv1PCID.Index]) and (ARow1.Values[Tv1PCID.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
|
|
@ -400,6 +407,11 @@ begin
|
|||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1qgMeter.Index] = ARow2.Values[Tv1qgMeter.Index]) and (ARow1.Values[Tv1qgMeter.Index] <> NULL) and (ARow2.Values[Tv1qgMeter.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
|
|
@ -417,6 +429,11 @@ begin
|
|||
exit;
|
||||
end;
|
||||
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
if (ARow1.Values[Tv1qgSL.Index] = ARow2.Values[Tv1qgSL.Index]) and (ARow1.Values[Tv1qgSL.Index] <> NULL) and (ARow2.Values[Tv1qgSL.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
|
|
@ -435,6 +452,11 @@ begin
|
|||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then
|
||||
|
|
@ -444,6 +466,21 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1isspCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if (ARow1.Values[Tv1issp.Index] = ARow2.Values[Tv1issp.Index]) and (ARow1.Values[Tv1issp.Index] <> NULL) and (ARow2.Values[Tv1issp.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
|
||||
|
|
@ -453,6 +490,12 @@ begin
|
|||
exit;
|
||||
end;
|
||||
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1BCIOID.Index] = ARow2.Values[Tv1BCIOID.Index]) and (ARow1.Values[Tv1BCIOID.Index] <> NULL) and (ARow2.Values[Tv1BCIOID.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
|
|
@ -470,6 +513,11 @@ begin
|
|||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1Carno.Index] = ARow2.Values[Tv1Carno.Index]) and (ARow1.Values[Tv1Carno.Index] <> NULL) and (ARow2.Values[Tv1Carno.Index] <> NULL) then
|
||||
|
|
@ -487,6 +535,11 @@ begin
|
|||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1CIMachNo.Index] = ARow2.Values[Tv1CIMachNo.Index]) and (ARow1.Values[Tv1CIMachNo.Index] <> NULL) and (ARow2.Values[Tv1CIMachNo.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
|
|
@ -504,6 +557,12 @@ begin
|
|||
exit;
|
||||
end;
|
||||
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1C_Name.Index] = ARow2.Values[Tv1C_Name.Index]) and (ARow1.Values[Tv1C_Name.Index] <> NULL) and (ARow2.Values[Tv1C_Name.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
|
|
@ -527,6 +586,11 @@ begin
|
|||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
// if (ARow1.Values[Tv1issp.Index] <> ARow2.Values[Tv1issp.Index]) or (ARow1.Values[Tv1issp.Index] = NULL) or (ARow2.Values[Tv1issp.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1dxmeter.Index] = ARow2.Values[Tv1dxmeter.Index]) and (ARow1.Values[Tv1dxmeter.Index] <> NULL) and (ARow2.Values[Tv1dxmeter.Index] <> NULL) then
|
||||
|
|
|
|||
|
|
@ -7,7 +7,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitLeft = -616
|
||||
ExplicitWidth = 1483
|
||||
ExplicitHeight = 621
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -21,6 +20,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
AutoSize = True
|
||||
BorderStyle = bsSingle
|
||||
TabOrder = 1
|
||||
ExplicitTop = 101
|
||||
DesignSize = (
|
||||
1463
|
||||
24)
|
||||
|
|
@ -649,6 +649,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
' '#27491#24335#25968#25454' '
|
||||
' '#21024#38500#25968#25454' ')
|
||||
OnChange = cxTabControl1Change
|
||||
ExplicitTop = 136
|
||||
ClientRectBottom = 445
|
||||
ClientRectLeft = 2
|
||||
ClientRectRight = 1465
|
||||
|
|
@ -668,6 +669,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -797,6 +799,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1ISSP: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'ISSP'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
|
|
|
|||
|
|
@ -142,6 +142,7 @@ type
|
|||
dept: TEdit;
|
||||
Tv1C_MXSHWidth: TcxGridDBColumn;
|
||||
stkInsert: TToolButton;
|
||||
Tv1ISSP: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -357,7 +358,7 @@ begin
|
|||
canshu1 := self.fParameters1;
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, '贸易检验管理');
|
||||
ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, '检验信息管理');
|
||||
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
BegDate.DateTime := EndDate.DateTime;
|
||||
fsj := 'select distinct(Filler) name from Tat_Cloth_Inspect ';
|
||||
|
|
@ -1072,7 +1073,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothInspList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(Trim(self.Caption) + 'Tv1', Tv1, '贸易检验管理');
|
||||
WriteCxGrid(Trim(self.Caption) + 'Tv1', Tv1, '检验信息管理');
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspList.ToolButton2Click(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -3706,6 +3706,20 @@
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label79: TLabel
|
||||
Left = 268
|
||||
Top = 157
|
||||
Width = 39
|
||||
Height = 14
|
||||
Caption = #21452#21943#65306
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Loom: TEdit
|
||||
Left = 659
|
||||
Top = 208
|
||||
|
|
@ -4092,6 +4106,21 @@
|
|||
TabOrder = 26
|
||||
OnClick = CIFBegClick
|
||||
end
|
||||
object issp: TEdit
|
||||
Left = 313
|
||||
Top = 153
|
||||
Width = 36
|
||||
Height = 27
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -19
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 27
|
||||
Visible = False
|
||||
OnClick = PackagingClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox [1]
|
||||
|
|
|
|||
|
|
@ -467,6 +467,8 @@ type
|
|||
Button12: TButton;
|
||||
Label78: TLabel;
|
||||
Edit1: TEdit;
|
||||
Label79: TLabel;
|
||||
issp: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
|
@ -2912,7 +2914,7 @@ begin
|
|||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('update Tat_Cloth_Inspect set c_width=(select c_width from bs_cloth_io e where e.bcioid=Tat_Cloth_Inspect.bcioid) ');
|
||||
sql.Add('update Tat_Cloth_Inspect set c_width=(select c_width from bs_cloth_io e where e.bcioid=Tat_Cloth_Inspect.bcioid) ');
|
||||
|
||||
sql.Add('where ciid =''' + Trim(maxno) + '''');
|
||||
execsql;
|
||||
|
|
@ -2925,9 +2927,10 @@ begin
|
|||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('update Tat_Cloth_Inspect set tube= ' + QuotedStr(tube.Text));
|
||||
sql.Add('update Tat_Cloth_Inspect set tube= ' + QuotedStr(tube.Text));
|
||||
sql.Add(',Packaging= ' + QuotedStr(Packaging.Text));
|
||||
sql.Add(',Seal= ' + QuotedStr(Seal.Text));
|
||||
sql.Add(',issp= ' + QuotedStr(issp.Text));
|
||||
sql.Add('where ciid =''' + Trim(maxno) + '''');
|
||||
execsql;
|
||||
end;
|
||||
|
|
@ -3904,6 +3907,7 @@ begin
|
|||
batchno.Text := ADOTmp.FieldByName('batchno').AsString;
|
||||
PCID.Text := ADOTmp.FieldByName('PCID').AsString;
|
||||
DXMETER.Text := ADOTmp.FieldByName('DXMETER').AsString;
|
||||
issp.Text := ADOTmp.FieldByName('issp').AsString;
|
||||
if Application.MessageBox('ÊÇ·ñ·ÖÇгö¿â£¿', 'Ìáʾ', 32 + 4) <> IDYES then
|
||||
begin
|
||||
edtScan.Text := '';
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,71 +1,71 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.630,=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.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10szXIANGYING"/>
|
||||
|
|
|
|||
|
|
@ -77,7 +77,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 44
|
||||
object Label2: TLabel
|
||||
Left = 70
|
||||
Top = 36
|
||||
|
|
@ -277,7 +276,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
ExplicitTop = 111
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = #26377#20986#24211#21333#20986#24211
|
||||
object cxGrid1: TcxGrid
|
||||
|
|
@ -295,7 +293,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 467
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -403,6 +400,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1C_Width: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
|
|
@ -471,7 +475,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 467
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -572,6 +575,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv2issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object cxGridDBColumn6: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
|
|
|
|||
|
|
@ -81,6 +81,8 @@ type
|
|||
DS_2: TDataSource;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
Tv1ToCoName: TcxGridDBColumn;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
Tv2issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -171,16 +173,13 @@ begin
|
|||
sql.Add(',ToCoName=max(B.ToCoName),ioTime=min(ioTime) ');
|
||||
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
||||
sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
|
||||
SQL.Add(',A.issp');
|
||||
sql.Add(' FROM V_Tat_Cloth_IO A ');
|
||||
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
|
||||
sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
|
||||
sql.Add(WSql);
|
||||
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONO,A.C_Name');
|
||||
SQL.Add(' order by A.IONO');
|
||||
|
||||
|
||||
|
||||
|
||||
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONO,A.C_Name,A.issp');
|
||||
SQL.Add(' order by A.IONO,A.C_CODE ,A.C_Width,A.C_GramWeight');
|
||||
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
|
|
@ -222,11 +221,13 @@ begin
|
|||
sql.Add(',ioTime=min(ioTime),ioType=max(A.ioType) ');
|
||||
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
||||
sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
|
||||
sql.Add(' ,issp = max(issp) ');
|
||||
sql.Add(' FROM V_Tat_Cloth_IO A ');
|
||||
// sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
|
||||
sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''³ö¿â'' ');
|
||||
sql.Add(WSql);
|
||||
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.C_Name');
|
||||
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.C_Name,A.issp');
|
||||
SQL.Add(' order By A.C_CODE ,A.C_Width,A.C_GramWeight');
|
||||
// SQL.Add(' order by B.DRMID');
|
||||
|
||||
|
||||
|
|
@ -302,7 +303,8 @@ procedure TfrmTatClothCKHZList.FormShow(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出库汇总');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品出库汇总');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
|
@ -430,7 +432,8 @@ end;
|
|||
|
||||
procedure TfrmTatClothCKHZList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出库汇总');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '成品出库汇总');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -102,7 +102,6 @@ inherited frmTatClothInList: TfrmTatClothInList
|
|||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 39
|
||||
object Label2: TLabel
|
||||
Left = 70
|
||||
Top = 36
|
||||
|
|
@ -552,7 +551,6 @@ inherited frmTatClothInList: TfrmTatClothInList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 3
|
||||
ExplicitTop = 131
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -687,6 +685,13 @@ inherited frmTatClothInList: TfrmTatClothInList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
|
|
|
|||
|
|
@ -109,6 +109,7 @@ type
|
|||
dept: TEdit;
|
||||
IOType: TComboBox;
|
||||
Label8: TLabel;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -263,7 +264,7 @@ begin
|
|||
canshu1 := self.fParameters1;
|
||||
canshu2 := self.fParameters3;
|
||||
FWorkshop := self.fParameters3;
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库管理');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
|
||||
|
|
@ -521,7 +522,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothInList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库管理');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -660,6 +660,13 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
|
|
@ -867,13 +874,13 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TatClothStk.ADOLink
|
||||
Left = 553
|
||||
Top = 200
|
||||
Left = 569
|
||||
Top = 152
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TatClothStk.ADOLink
|
||||
Left = 425
|
||||
Top = 201
|
||||
Left = 417
|
||||
Top = 153
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TatClothStk.ADOLink
|
||||
|
|
@ -917,7 +924,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
end
|
||||
object PM_1: TPopupMenu
|
||||
Left = 560
|
||||
Top = 384
|
||||
Top = 288
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
|
|
|
|||
|
|
@ -104,6 +104,7 @@ type
|
|||
Tv1Column1: TcxGridDBColumn;
|
||||
Label6: TLabel;
|
||||
dept: TEdit;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -250,7 +251,7 @@ procedure TfrmTatClothOutList.FormShow(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出库列表');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := self.fParameters1;
|
||||
|
|
@ -532,7 +533,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothOutList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品出库列表');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -409,6 +409,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1IOType: TcxGridDBColumn
|
||||
Caption = #20837#24211#31867#22411
|
||||
DataBinding.FieldName = 'IOType'
|
||||
|
|
@ -451,6 +458,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1YdPF: TcxGridDBColumn
|
||||
Caption = #20248#31561#24179#26041
|
||||
DataBinding.FieldName = 'YdPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #20108#31561#21367#25968
|
||||
DataBinding.FieldName = 'edJS'
|
||||
|
|
@ -465,6 +479,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1edPF: TcxGridDBColumn
|
||||
Caption = #20108#31561#24179#26041
|
||||
DataBinding.FieldName = 'edPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #23567#21367#21367#25968
|
||||
DataBinding.FieldName = 'xjJS'
|
||||
|
|
@ -479,6 +500,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1xjPF: TcxGridDBColumn
|
||||
Caption = #23567#21367#24179#26041
|
||||
DataBinding.FieldName = 'xjPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20998#20999#21367#25968
|
||||
DataBinding.FieldName = 'fqJS'
|
||||
|
|
@ -493,6 +521,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1fqPF: TcxGridDBColumn
|
||||
Caption = #20998#20999#24179#26041
|
||||
DataBinding.FieldName = 'fqPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #27979#35797#21367#25968
|
||||
DataBinding.FieldName = 'csJS'
|
||||
|
|
@ -507,6 +542,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1csPF: TcxGridDBColumn
|
||||
Caption = #27979#35797#24179#26041
|
||||
DataBinding.FieldName = 'csPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column19: TcxGridDBColumn
|
||||
Caption = #24179#26041
|
||||
DataBinding.FieldName = 'pf'
|
||||
|
|
|
|||
|
|
@ -68,6 +68,12 @@ type
|
|||
Label4: TLabel;
|
||||
Label6: TLabel;
|
||||
PCID: TEdit;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
Tv1YdPF: TcxGridDBColumn;
|
||||
Tv1edPF: TcxGridDBColumn;
|
||||
Tv1xjPF: TcxGridDBColumn;
|
||||
Tv1fqPF: TcxGridDBColumn;
|
||||
Tv1csPF: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -157,23 +163,35 @@ begin
|
|||
SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN meter ELSE 0 END )AS Ydqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
|
||||
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN meter ELSE 0 END )AS edqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
|
||||
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN meter ELSE 0 END )AS xjqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
|
||||
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter ELSE 0 END )AS fbqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
|
||||
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN meter ELSE 0 END )AS fqqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
|
||||
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN meter ELSE 0 END )AS xhqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN meter ELSE 0 END )AS csqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
|
||||
|
||||
sql.Add(',max(issp) as issp ');
|
||||
SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''入库'' ) ' + WSql);
|
||||
|
||||
sql.Add('group by C_NAME, C_width,C_GramWeight,pcid');
|
||||
|
||||
sql.Add('group by C_NAME, C_width,C_GramWeight,pcid,issp');
|
||||
sql.Add('Order by C_NAME, C_width,C_GramWeight ');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
|
|
@ -245,7 +263,7 @@ procedure TfrmTatClothRKHZList.FormShow(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
|
@ -375,7 +393,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothRKHZList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品入库汇总');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -33,6 +33,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitTop = 2
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -77,6 +78,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 32
|
||||
object Label2: TLabel
|
||||
Left = 70
|
||||
Top = 36
|
||||
|
|
@ -368,6 +370,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_width'
|
||||
|
|
@ -396,6 +405,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #20248#31561#24179#26041
|
||||
DataBinding.FieldName = 'YdPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #20108#31561#21367#25968
|
||||
DataBinding.FieldName = 'edJS'
|
||||
|
|
@ -410,6 +426,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #20108#31561#24179#26041
|
||||
DataBinding.FieldName = 'edPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #23567#21367#21367#25968
|
||||
DataBinding.FieldName = 'xjJS'
|
||||
|
|
@ -424,6 +447,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #23567#21367#24179#26041
|
||||
DataBinding.FieldName = 'xjPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20998#20999#21367#25968
|
||||
DataBinding.FieldName = 'fqJS'
|
||||
|
|
@ -438,6 +468,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #20998#20999#24179#26041
|
||||
DataBinding.FieldName = 'fqPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #27979#35797#21367#25968
|
||||
DataBinding.FieldName = 'csJS'
|
||||
|
|
@ -452,6 +489,13 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #27979#35797#24179#26041
|
||||
DataBinding.FieldName = 'csPF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column19: TcxGridDBColumn
|
||||
Caption = #24179#26041
|
||||
DataBinding.FieldName = 'pf'
|
||||
|
|
|
|||
|
|
@ -62,6 +62,12 @@ type
|
|||
label12: TLabel;
|
||||
C_width: TEdit;
|
||||
label11: TLabel;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -146,26 +152,34 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
|
||||
sql.Add('select C_NAME, C_width,C_GramWeight ');
|
||||
SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN meter ELSE 0 END )AS Ydqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN meter ELSE 0 END )AS edqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN meter ELSE 0 END )AS xjqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter ELSE 0 END )AS fbqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN meter ELSE 0 END )AS fqqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN meter ELSE 0 END )AS xhqty');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN meter ELSE 0 END )AS csqty');
|
||||
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight ');
|
||||
SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
|
||||
sql.Add(', A.issp ');
|
||||
|
||||
SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql);
|
||||
SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql);
|
||||
|
||||
sql.Add(' group by C_NAME, C_width,C_GramWeight');
|
||||
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,issp');
|
||||
SQL.Add(' order by A.C_NAME, A.C_width,A.C_GramWeight');
|
||||
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
|
|
@ -232,7 +246,7 @@ procedure TfrmTatClothStkHZList.FormShow(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
|
@ -358,7 +372,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothStkHZList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存汇总');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -280,6 +280,13 @@ inherited frmTatClothStkHZListSEL: TfrmTatClothStkHZListSEL
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 69
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_width'
|
||||
|
|
|
|||
|
|
@ -54,6 +54,7 @@ type
|
|||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -141,8 +142,8 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
|
||||
sql.Add('select C_GramWeight,c_color,C_width,C_CODE,C_NAME,COUNT(*)JS,SUM(stkMeter)stkMeter,SUM(StkYardage)StkYardage from V_Tat_Cloth_Stk AA where 1=1 ' + WSql);
|
||||
sql.Add('group by C_GramWeight,c_color,C_width,C_CODE,C_NAME');
|
||||
sql.Add('select C_GramWeight,c_color,C_width,C_CODE,C_NAME,issp,COUNT(*)JS,SUM(stkMeter)stkMeter,SUM(StkYardage)StkYardage from V_Tat_Cloth_Stk AA where 1=1 ' + WSql);
|
||||
sql.Add('group by C_GramWeight,c_color,C_width,C_CODE,C_NAME,issp');
|
||||
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
|
|
|
|||
|
|
@ -610,6 +610,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
|
|
|
|||
|
|
@ -95,6 +95,7 @@ type
|
|||
Tv1FlawList: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
dept: TEdit;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -181,7 +182,7 @@ begin
|
|||
sql.Add(' from ');
|
||||
sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)');
|
||||
sql.Add(',COUNT(1) OVER() AS TotalCount');
|
||||
sql.Add(',* from V_Tat_Cloth_Stk AA where 1=1 ' + WSql);
|
||||
sql.Add(',AA.* from V_Tat_Cloth_Stk AA where 1=1 ' + WSql);
|
||||
if canshu2 = '±¸»õ' then
|
||||
begin
|
||||
sql.Add(' and IsStocking=1');
|
||||
|
|
@ -239,7 +240,7 @@ procedure TfrmTatClothStkList.FormShow(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存列表');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
|
@ -386,7 +387,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存列表');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -57,16 +57,8 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
|
|||
ImageIndex = 20
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 237
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 332
|
||||
Left = 237
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#37197#36135
|
||||
|
|
@ -74,7 +66,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 427
|
||||
Left = 332
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21457#36135
|
||||
|
|
@ -82,7 +74,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
|
|||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 498
|
||||
Left = 403
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36192#36865
|
||||
|
|
@ -90,13 +82,21 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
|
|||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton6: TToolButton
|
||||
Left = 569
|
||||
Left = 474
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#36192#36865
|
||||
ImageIndex = 18
|
||||
OnClick = ToolButton6Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 569
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 664
|
||||
Top = 0
|
||||
|
|
@ -575,6 +575,7 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 3
|
||||
ExplicitTop = 133
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -711,6 +712,13 @@ inherited frmTatClothStkListPH: TfrmTatClothStkListPH
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
|
|
|
|||
|
|
@ -111,6 +111,7 @@ type
|
|||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1GiftReason: TcxGridDBColumn;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -267,7 +268,7 @@ procedure TfrmTatClothStkListPH.FormShow(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品配货列表');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
|
@ -572,7 +573,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothStkListPH.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品仓库');
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品配货列表');
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkListPH.ToolButton5Click(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -205,7 +205,6 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Align = alClient
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 3
|
||||
ExplicitTop = 144
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -638,7 +637,6 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
#24050#21462#28040
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ExplicitTop = 127
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
|
|
@ -658,6 +656,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Height = 222
|
||||
Align = alBottom
|
||||
TabOrder = 5
|
||||
ExplicitTop = 370
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -708,6 +707,13 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object TV2issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
|
|
|
|||
|
|
@ -111,6 +111,7 @@ type
|
|||
PM11: TMenuItem;
|
||||
Tv1Telephone: TcxGridDBColumn;
|
||||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||
TV2issp: TcxGridDBColumn;
|
||||
//RMllPDFExport1: TRMllPDFExport;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
|
|
|||
|
|
@ -444,6 +444,17 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
Options.Editing = False
|
||||
Width = 68
|
||||
end
|
||||
object Tv1issp: TcxGridDBColumn
|
||||
Caption = #21452#21943
|
||||
DataBinding.FieldName = 'issp'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.Items.Strings = (
|
||||
''
|
||||
#21452#21943)
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1C_width: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_width'
|
||||
|
|
|
|||
|
|
@ -69,6 +69,7 @@ type
|
|||
TbPHSave: TToolButton;
|
||||
Label7: TLabel;
|
||||
ToCoID: TEdit;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
|
|
@ -764,6 +765,8 @@ begin
|
|||
Append;
|
||||
FieldByName('C_code').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_code').Value;
|
||||
FieldByName('C_Name').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_Name').Value;
|
||||
FieldByName('issp').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('issp').Value;
|
||||
|
||||
FieldByName('C_width').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_width').Value;
|
||||
FieldByName('C_GramWeight').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_GramWeight').Value;
|
||||
FieldByName('C_color').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_color').Value;
|
||||
|
|
|
|||
|
|
@ -1,46 +1,46 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.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.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.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.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.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.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm</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.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10szXIANGYING"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -752,8 +752,8 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
|
|||
end
|
||||
end
|
||||
object Panel2: TPanel [4]
|
||||
Left = 246
|
||||
Top = 110
|
||||
Left = 270
|
||||
Top = 88
|
||||
Width = 336
|
||||
Height = 240
|
||||
TabOrder = 4
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user