0628
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
6f2ddd1985
commit
36b4155691
|
|
@ -614,10 +614,10 @@ var
|
|||
WSql: string;
|
||||
begin
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
// if trim(WSql) <> '' then
|
||||
// begin
|
||||
// WSql := ' and ' + trim(WSql);
|
||||
// end;
|
||||
if trim(WSql) <> '' then
|
||||
begin
|
||||
WSql := ' and ' + trim(WSql);
|
||||
end;
|
||||
//
|
||||
// if IsJYTime.Checked then
|
||||
// begin
|
||||
|
|
|
|||
|
|
@ -26,8 +26,7 @@ uses
|
|||
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
|
||||
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
||||
U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
|
||||
U_YarnPurchasePlanList in 'U_YarnPurchasePlanList.pas' {frmYarnPurchasePlanList},
|
||||
U_YarnPurchasePlanPut in 'U_YarnPurchasePlanPut.pas' {frmYarnPurchasePlanPut},
|
||||
U_ClaimsPut in 'U_ClaimsPut.pas' {frmClaimsPut},
|
||||
U_ClothRSPlanList in 'U_ClothRSPlanList.pas' {frmClothRSPlanList},
|
||||
U_ClothRSPlanPut in 'U_ClothRSPlanPut.pas' {frmClothRSPlanPut},
|
||||
U_ClothHJGPlanList in 'U_ClothHJGPlanList.pas' {frmClothHJGPlanList},
|
||||
|
|
@ -35,7 +34,10 @@ uses
|
|||
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel},
|
||||
U_GXSel in 'U_GXSel.pas' {frmGXSel},
|
||||
U_HJGTradePlanSel in 'U_HJGTradePlanSel.pas' {frmHJGTradePlanSel},
|
||||
U_RSTradePlanSel in 'U_RSTradePlanSel.pas' {frmRSTradePlanSel};
|
||||
U_RSTradePlanSel in 'U_RSTradePlanSel.pas' {frmRSTradePlanSel},
|
||||
U_ClaimsList in 'U_ClaimsList.pas' {frmClaimsList},
|
||||
U_TradeDefectKCListSel in 'U_TradeDefectKCListSel.pas' {frmTradeDefectKCListSel},
|
||||
U_CLNoteEdit in 'U_CLNoteEdit.pas' {frmCLNoteEdit};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -185,12 +185,8 @@
|
|||
<Form>frmYarnInfoSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_YarnPurchasePlanList.pas">
|
||||
<Form>frmYarnPurchasePlanList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_YarnPurchasePlanPut.pas">
|
||||
<Form>frmYarnPurchasePlanPut</Form>
|
||||
<DCCReference Include="U_ClaimsPut.pas">
|
||||
<Form>frmClaimsPut</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_ClothRSPlanList.pas">
|
||||
|
|
@ -225,6 +221,18 @@
|
|||
<Form>frmRSTradePlanSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_ClaimsList.pas">
|
||||
<Form>frmClaimsList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TradeDefectKCListSel.pas">
|
||||
<Form>frmTradeDefectKCListSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_CLNoteEdit.pas">
|
||||
<Form>frmCLNoteEdit</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -1,58 +1,64 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.857,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.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.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.781,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_HJGTradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.630,=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.734,=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.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.953,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.954,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.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.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.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.488,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanList.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.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.450,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.110,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.135,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.985,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_CLNoteEdit.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.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.781,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_HJGTradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.564,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.488,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.450,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.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.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.110,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanList.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.606,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_TradeDefectKCListSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.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.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
@ -124,10 +130,6 @@
|
|||
<File Path="U_DataLink.dfm"/>
|
||||
<File Path="U_GetDllForm.pas"/>
|
||||
<File Path="U_iniParam.pas"/>
|
||||
<File Path="U_YarnPurchasePlanPut.pas"/>
|
||||
<File Path="U_YarnPurchasePlanPut.dfm"/>
|
||||
<File Path="U_YarnPurchasePlanList.pas"/>
|
||||
<File Path="U_YarnPurchasePlanList.dfm"/>
|
||||
<File Path="U_ClothRSPlanList.pas"/>
|
||||
<File Path="U_ClothRSPlanList.dfm"/>
|
||||
<File Path="U_ClothRSPlanPut.pas"/>
|
||||
|
|
@ -142,5 +144,13 @@
|
|||
<File Path="U_RSTradePlanSel.dfm"/>
|
||||
<File Path="U_HJGTradePlanSel.pas"/>
|
||||
<File Path="U_HJGTradePlanSel.dfm"/>
|
||||
<File Path="U_ClaimsList.pas"/>
|
||||
<File Path="U_ClaimsList.dfm"/>
|
||||
<File Path="U_ClaimsPut.pas"/>
|
||||
<File Path="U_ClaimsPut.dfm"/>
|
||||
<File Path="U_TradeDefectKCListSel.pas"/>
|
||||
<File Path="U_TradeDefectKCListSel.dfm"/>
|
||||
<File Path="U_CLNoteEdit.pas"/>
|
||||
<File Path="U_CLNoteEdit.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,5 +1,5 @@
|
|||
[ExpressSkins]
|
||||
Default=0
|
||||
Default=1
|
||||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinBasic=0
|
||||
|
|
|
|||
88
B04采购计划管理/U_CLNoteEdit.dfm
Normal file
88
B04采购计划管理/U_CLNoteEdit.dfm
Normal file
|
|
@ -0,0 +1,88 @@
|
|||
object frmCLNoteEdit: TfrmCLNoteEdit
|
||||
Left = 682
|
||||
Top = 315
|
||||
Caption = #22788#29702#32467#26524#34917#24405
|
||||
ClientHeight = 135
|
||||
ClientWidth = 577
|
||||
Color = clWhite
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 577
|
||||
Height = 135
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 808
|
||||
ExplicitHeight = 513
|
||||
DesignSize = (
|
||||
577
|
||||
135)
|
||||
object Label1: TLabel
|
||||
Left = 37
|
||||
Top = 28
|
||||
Width = 61
|
||||
Height = 13
|
||||
Anchors = []
|
||||
AutoSize = False
|
||||
Caption = #22788#29702#32467#26524
|
||||
ExplicitLeft = 38
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 185
|
||||
Top = 93
|
||||
Width = 75
|
||||
Height = 21
|
||||
Caption = #30830#35748
|
||||
TabOrder = 0
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 304
|
||||
Top = 93
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button2Click
|
||||
end
|
||||
object CLNote: TMemo
|
||||
Left = 120
|
||||
Top = 24
|
||||
Width = 377
|
||||
Height = 63
|
||||
Lines.Strings = (
|
||||
'CLNote')
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 293
|
||||
Top = 373
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 197
|
||||
Top = 373
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Parameters = <>
|
||||
Left = 101
|
||||
Top = 373
|
||||
end
|
||||
end
|
||||
69
B04采购计划管理/U_CLNoteEdit.pas
Normal file
69
B04采购计划管理/U_CLNoteEdit.pas
Normal file
|
|
@ -0,0 +1,69 @@
|
|||
unit U_CLNoteEdit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, DB, ADODB;
|
||||
|
||||
type
|
||||
TfrmCLNoteEdit = class(TForm)
|
||||
Panel1: TPanel;
|
||||
Button1: TButton;
|
||||
Label1: TLabel;
|
||||
Button2: TButton;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
CLNote: TMemo;
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
FFFIDS: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmCLNoteEdit: TfrmCLNoteEdit;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCLNoteEdit.Button2Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCLNoteEdit.FormCreate(Sender: TObject);
|
||||
begin
|
||||
CLNote.text:='';
|
||||
end;
|
||||
|
||||
procedure TfrmCLNoteEdit.Button1Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' update Claims_Main ');
|
||||
sql.Add(' set CLNote=''' + Trim(CLNote.text) + '''');
|
||||
|
||||
sql.Add(' where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFIDS) + ','','') X where X.RTValue=Claims_Main.ClaMid) ');
|
||||
// showmessage(sql.text);
|
||||
ExecSQL;
|
||||
end;
|
||||
ModalResult := 1;
|
||||
except
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
920
B04采购计划管理/U_ClaimsList.dfm
Normal file
920
B04采购计划管理/U_ClaimsList.dfm
Normal file
|
|
@ -0,0 +1,920 @@
|
|||
inherited frmClaimsList: TfrmClaimsList
|
||||
Left = 246
|
||||
Top = 116
|
||||
Caption = #32034#36180#30331#35760
|
||||
ClientHeight = 736
|
||||
ClientWidth = 1508
|
||||
FormStyle = fsMDIChild
|
||||
Visible = True
|
||||
ExplicitWidth = 1524
|
||||
ExplicitHeight = 775
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1508
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
ButtonWidth = 115
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_PurchasePlan.ImageList_new32
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_PurchasePlan.ImageList_new32
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 1
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 0
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBAdd: TToolButton
|
||||
Left = 142
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
ImageIndex = 9
|
||||
OnClick = TBAddClick
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 3
|
||||
OnClick = TBEditClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 284
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22797#21046
|
||||
ImageIndex = 13
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 355
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475
|
||||
ImageIndex = 4
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 426
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object tchk: TToolButton
|
||||
Left = 497
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23457#26680
|
||||
ImageIndex = 12
|
||||
OnClick = tchkClick
|
||||
end
|
||||
object Tnochk: TToolButton
|
||||
Left = 568
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23457#26680
|
||||
ImageIndex = 11
|
||||
OnClick = TnochkClick
|
||||
end
|
||||
object btnTijiao: TToolButton
|
||||
Left = 663
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22797#26680
|
||||
ImageIndex = 12
|
||||
OnClick = btnTijiaoClick
|
||||
end
|
||||
object btnCXTijiao: TToolButton
|
||||
Left = 734
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#22797#26680
|
||||
ImageIndex = 11
|
||||
OnClick = btnCXTijiaoClick
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 829
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 924
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 995
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22788#29702#32467#26524#34917#24405
|
||||
ImageIndex = 13
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 1114
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
ImageIndex = 14
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [1]
|
||||
Left = 0
|
||||
Top = 119
|
||||
Width = 1508
|
||||
Height = 337
|
||||
Align = alClient
|
||||
PopupMenu = pm1
|
||||
TabOrder = 3
|
||||
ExplicitTop = 121
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
OnCustomDrawCell = Tv1CustomDrawCell
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
Styles.IncSearch = DataLink_PurchasePlan.SHuangSe
|
||||
Styles.Footer = DataLink_PurchasePlan.Default
|
||||
Styles.Header = DataLink_PurchasePlan.Default
|
||||
Styles.Inactive = DataLink_PurchasePlan.SHuangSe
|
||||
Styles.Selection = DataLink_PurchasePlan.SHuangSe
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 53
|
||||
end
|
||||
object v1OrdDate: TcxGridDBColumn
|
||||
Caption = #30003#35831#26085#26399
|
||||
DataBinding.FieldName = 'ClaDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_PurchasePlan.Default
|
||||
Width = 86
|
||||
end
|
||||
object v1ConNo: TcxGridDBColumn
|
||||
Caption = #30003#35831#21333#21495
|
||||
DataBinding.FieldName = 'ClaNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_PurchasePlan.Default
|
||||
Width = 82
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #23545#26041#21333#20301
|
||||
DataBinding.FieldName = 'OppCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_PurchasePlan.FontBlue
|
||||
Width = 94
|
||||
end
|
||||
object v1CustomerNoName: TcxGridDBColumn
|
||||
Caption = #25105#26041#21333#20301
|
||||
DataBinding.FieldName = 'OurCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Styles.Header = DataLink_PurchasePlan.FoneClMaroon
|
||||
Width = 99
|
||||
end
|
||||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'ClaType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #36153#29992#31867#21035
|
||||
DataBinding.FieldName = 'FinType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 82
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'Currency'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'status'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 78
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #32034#36180#25968#37327
|
||||
DataBinding.FieldName = 'ClaQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #32034#36180#37329#39069
|
||||
DataBinding.FieldName = 'ClaAmount'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #25187#27454#26041#24335
|
||||
DataBinding.FieldName = 'KKNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 86
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #24773#20917#35828#26126
|
||||
DataBinding.FieldName = 'QKNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 121
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #22788#29702#32467#26524
|
||||
DataBinding.FieldName = 'CLNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 134
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel [2]
|
||||
Left = 0
|
||||
Top = 38
|
||||
Width = 1508
|
||||
Height = 59
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
object Label4: TLabel
|
||||
Left = 235
|
||||
Top = 35
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #25105#26041#21333#20301
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 430
|
||||
Top = 99
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 235
|
||||
Top = 11
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #30003#35831#21333#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 303
|
||||
Top = 99
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #20811#37325
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 303
|
||||
Top = 123
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #38376#24133
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 94
|
||||
Top = 35
|
||||
Width = 6
|
||||
Height = 12
|
||||
Caption = '-'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 394
|
||||
Top = 11
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #23545#26041#21333#20301
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 103
|
||||
Top = 7
|
||||
Width = 85
|
||||
Height = 20
|
||||
Date = 40675.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 0.464742650459811600
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 102
|
||||
Top = 31
|
||||
Width = 86
|
||||
Height = 20
|
||||
Date = 40675.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 0.464761099538009100
|
||||
TabOrder = 1
|
||||
end
|
||||
object BuyName: TEdit
|
||||
Tag = 2
|
||||
Left = 296
|
||||
Top = 31
|
||||
Width = 78
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnKeyPress = PurNoKeyPress
|
||||
end
|
||||
object MPRTCodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 483
|
||||
Top = 95
|
||||
Width = 76
|
||||
Height = 20
|
||||
TabOrder = 6
|
||||
OnChange = BuyNameChange
|
||||
end
|
||||
object PurNo: TEdit
|
||||
Tag = 2
|
||||
Left = 296
|
||||
Top = 7
|
||||
Width = 77
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnKeyPress = PurNoKeyPress
|
||||
end
|
||||
object MPRTKZ: TEdit
|
||||
Tag = 2
|
||||
Left = 332
|
||||
Top = 95
|
||||
Width = 56
|
||||
Height = 20
|
||||
TabOrder = 5
|
||||
OnChange = BuyNameChange
|
||||
end
|
||||
object MPRTMF: TEdit
|
||||
Tag = 2
|
||||
Left = 332
|
||||
Top = 119
|
||||
Width = 56
|
||||
Height = 20
|
||||
TabOrder = 7
|
||||
OnChange = BuyNameChange
|
||||
end
|
||||
object SellName: TEdit
|
||||
Tag = 2
|
||||
Left = 448
|
||||
Top = 7
|
||||
Width = 77
|
||||
Height = 20
|
||||
TabOrder = 4
|
||||
OnKeyPress = PurNoKeyPress
|
||||
end
|
||||
object IsJYTime: TCheckBox
|
||||
Left = 23
|
||||
Top = 9
|
||||
Width = 74
|
||||
Height = 17
|
||||
Caption = #30003#35831#26085#26399
|
||||
Checked = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
State = cbChecked
|
||||
TabOrder = 8
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl [3]
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 1508
|
||||
Height = 22
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#30003#35831
|
||||
#23457#26680
|
||||
#22797#26680
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 22
|
||||
ClientRectRight = 1508
|
||||
ClientRectTop = 19
|
||||
end
|
||||
object cxSplitter1: TcxSplitter [4]
|
||||
Left = 0
|
||||
Top = 456
|
||||
Width = 1508
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
end
|
||||
object cxGrid2: TcxGrid [5]
|
||||
Left = 0
|
||||
Top = 464
|
||||
Width = 1508
|
||||
Height = 272
|
||||
Align = alBottom
|
||||
BorderStyle = cxcbsNone
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column27
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column28
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column14
|
||||
end
|
||||
item
|
||||
Format = #26816#39564#31995#25968'=#.##'
|
||||
Kind = skAverage
|
||||
end
|
||||
item
|
||||
Format = #25442#31639#31995#25968'=#.##'
|
||||
Kind = skAverage
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column23
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
Styles.IncSearch = DataLink_PurchasePlan.SHuangSe
|
||||
Styles.Footer = DataLink_PurchasePlan.Default
|
||||
Styles.Header = DataLink_PurchasePlan.Default
|
||||
Styles.Inactive = DataLink_PurchasePlan.SHuangSe
|
||||
Styles.Selection = DataLink_PurchasePlan.SHuangSe
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #35745#21010#21333#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column32: TcxGridDBColumn
|
||||
Caption = #23458#25143#21333#21495
|
||||
DataBinding.FieldName = 'BuyConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn3: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn10: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'C_StyleNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column40: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn11: TcxGridDBColumn
|
||||
Caption = #33521#25991#39068#33394
|
||||
DataBinding.FieldName = 'C_EColor'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn9: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #25187#27454#25688#35201
|
||||
DataBinding.FieldName = 'KKZY'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 173
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Caption = #25187#20998
|
||||
DataBinding.FieldName = 'KouFenQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #30133#28857#24773#20917
|
||||
DataBinding.FieldName = 'FlawList1'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 122
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #30133#28857#22791#27880
|
||||
DataBinding.FieldName = 'FwNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 108
|
||||
end
|
||||
object v1Column23: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn7: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'FtyPCID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'GrossWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column27: TcxGridDBColumn
|
||||
Caption = #30382#37325
|
||||
DataBinding.FieldName = 'Tare'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column28: TcxGridDBColumn
|
||||
Caption = #20928#37325
|
||||
DataBinding.FieldName = 'NetWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn6: TcxGridDBColumn
|
||||
Caption = #31859#25968
|
||||
DataBinding.FieldName = 'Meter'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #30721#25968
|
||||
DataBinding.FieldName = 'Yardage'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'CIID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = TV2
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Left = 105
|
||||
Top = 160
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Top = 161
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 664
|
||||
Top = 288
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Parameters = <>
|
||||
Left = 168
|
||||
Top = 320
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 80
|
||||
Top = 320
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 80
|
||||
Top = 240
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 744
|
||||
Top = 288
|
||||
end
|
||||
object CDS_2: TClientDataSet
|
||||
Aggregates = <>
|
||||
IndexFieldNames = 'SerialNo'
|
||||
Params = <>
|
||||
Left = 456
|
||||
Top = 536
|
||||
end
|
||||
object pm2: TPopupMenu
|
||||
Left = 376
|
||||
Top = 544
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = N2Click
|
||||
end
|
||||
object N4: TMenuItem
|
||||
Caption = #22797#21046
|
||||
OnClick = N4Click
|
||||
end
|
||||
end
|
||||
object DS_2: TDataSource
|
||||
DataSet = CDS_2
|
||||
Left = 504
|
||||
Top = 544
|
||||
end
|
||||
object GPM_2: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 416
|
||||
Top = 536
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 704
|
||||
Top = 288
|
||||
end
|
||||
object pm1: TPopupMenu
|
||||
Left = 480
|
||||
Top = 344
|
||||
object N5: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N5Click
|
||||
end
|
||||
object N6: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = N6Click
|
||||
end
|
||||
object N3: TMenuItem
|
||||
Caption = #22797#21046
|
||||
OnClick = N3Click
|
||||
end
|
||||
end
|
||||
object ADOQueryImage: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Parameters = <>
|
||||
Left = 176
|
||||
Top = 243
|
||||
end
|
||||
end
|
||||
1244
B04采购计划管理/U_ClaimsList.pas
Normal file
1244
B04采购计划管理/U_ClaimsList.pas
Normal file
File diff suppressed because it is too large
Load Diff
761
B04采购计划管理/U_ClaimsPut.dfm
Normal file
761
B04采购计划管理/U_ClaimsPut.dfm
Normal file
|
|
@ -0,0 +1,761 @@
|
|||
inherited frmClaimsPut: TfrmClaimsPut
|
||||
Left = 219
|
||||
Top = 76
|
||||
Caption = #32034#36180#24405#20837
|
||||
ClientHeight = 658
|
||||
ClientWidth = 1506
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
OldCreateOrder = True
|
||||
Position = poScreenCenter
|
||||
WindowState = wsMaximized
|
||||
ExplicitWidth = 1522
|
||||
ExplicitHeight = 697
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1506
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
ButtonWidth = 91
|
||||
Caption = 'ToolBar1'
|
||||
Color = clWhite
|
||||
DisabledImages = DataLink_PurchasePlan.ImageList_new32
|
||||
Images = DataLink_PurchasePlan.ImageList_new32
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBSave: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 16
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 166
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar [1]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 241
|
||||
Width = 1506
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
ButtonWidth = 91
|
||||
Caption = 'ToolBar1'
|
||||
Color = clBtnFace
|
||||
DisabledImages = DataLink_PurchasePlan.ImageList_new32
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_PurchasePlan.ImageList_new32
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
object ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #27425#21697#36873#25321
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 95
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 166
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 6
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox [2]
|
||||
Left = 0
|
||||
Top = 38
|
||||
Width = 1506
|
||||
Height = 203
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
BorderStyle = bsNone
|
||||
Color = clWhite
|
||||
Ctl3D = False
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentColor = False
|
||||
ParentCtl3D = False
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
ExplicitTop = 32
|
||||
object Label3: TLabel
|
||||
Left = 289
|
||||
Top = 51
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #30003#35831#26085#26399#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 45
|
||||
Top = 85
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #32034#36180#25968#37327#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 45
|
||||
Top = 51
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #30003#35831#21333#21495#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 527
|
||||
Top = 17
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #25105#26041#21333#20301#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clMaroon
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label20: TLabel
|
||||
Left = 289
|
||||
Top = 17
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #23545#26041#21333#20301#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label29: TLabel
|
||||
Left = 45
|
||||
Top = 17
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #31867' '#22411#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label30: TLabel
|
||||
Left = 765
|
||||
Top = 17
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #36153#29992#31867#21035#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 527
|
||||
Top = 85
|
||||
Width = 67
|
||||
Height = 12
|
||||
Caption = #24065' '#31181#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 765
|
||||
Top = 85
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #25187#27454#26041#24335#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 45
|
||||
Top = 121
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #24773#20917#35828#26126#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 289
|
||||
Top = 85
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #32034#36180#37329#39069#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 45
|
||||
Top = 157
|
||||
Width = 65
|
||||
Height = 12
|
||||
Caption = #22788#29702#32467#26524#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object ClaDate: TDateTimePicker
|
||||
Tag = 2
|
||||
Left = 357
|
||||
Top = 47
|
||||
Width = 125
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
Date = 40916.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 0.670856296288548000
|
||||
TabOrder = 0
|
||||
end
|
||||
object ClaNo: TEdit
|
||||
Tag = 2
|
||||
Left = 112
|
||||
Top = 48
|
||||
Width = 125
|
||||
Height = 18
|
||||
TabOrder = 1
|
||||
Text = #33258#21160#29983#25104
|
||||
end
|
||||
object OurCoName: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 598
|
||||
Top = 13
|
||||
Width = 125
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 2
|
||||
OnBtnUpClick = OurCoNameBtnUpClick
|
||||
OnBtnDnClick = OurCoNameBtnDnClick
|
||||
end
|
||||
object OppCoName: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 360
|
||||
Top = 6
|
||||
Width = 125
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnBtnUpClick = OppCoNameBtnUpClick
|
||||
OnBtnDnClick = OurCoNameBtnDnClick
|
||||
end
|
||||
object FinType: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 834
|
||||
Top = 13
|
||||
Width = 125
|
||||
Height = 20
|
||||
Hint = 'FinType/'#36153#29992#31867#21035
|
||||
TabOrder = 4
|
||||
OnBtnUpClick = ClaTypeBtnUpClick
|
||||
OnBtnDnClick = OurCoNameBtnDnClick
|
||||
end
|
||||
object Currency: TComboBox
|
||||
Tag = 2
|
||||
Left = 600
|
||||
Top = 81
|
||||
Width = 125
|
||||
Height = 20
|
||||
ItemIndex = 0
|
||||
TabOrder = 5
|
||||
Text = 'CNY'
|
||||
Items.Strings = (
|
||||
'CNY'
|
||||
'USD')
|
||||
end
|
||||
object KKNote: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 834
|
||||
Top = 81
|
||||
Width = 125
|
||||
Height = 20
|
||||
Hint = 'KKNote/'#25187#27454#26041#24335
|
||||
TabOrder = 6
|
||||
OnBtnUpClick = ClaTypeBtnUpClick
|
||||
OnBtnDnClick = OurCoNameBtnDnClick
|
||||
end
|
||||
object QKNote: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 112
|
||||
Top = 117
|
||||
Width = 600
|
||||
Height = 20
|
||||
Hint = 'QKNote/'#24773#20917#35828#26126
|
||||
AutoSize = False
|
||||
TabOrder = 7
|
||||
OnBtnUpClick = ClaTypeBtnUpClick
|
||||
OnBtnDnClick = OurCoNameBtnDnClick
|
||||
end
|
||||
object ClaAmount: TEdit
|
||||
Tag = 2
|
||||
Left = 357
|
||||
Top = 82
|
||||
Width = 125
|
||||
Height = 18
|
||||
TabOrder = 8
|
||||
OnKeyPress = ClaAmountKeyPress
|
||||
end
|
||||
object ClaQty: TEdit
|
||||
Tag = 2
|
||||
Left = 112
|
||||
Top = 82
|
||||
Width = 81
|
||||
Height = 18
|
||||
TabOrder = 9
|
||||
end
|
||||
object CLNote: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 112
|
||||
Top = 153
|
||||
Width = 600
|
||||
Height = 20
|
||||
Hint = 'CLNote/'#22788#29702#32467#26524
|
||||
AutoSize = False
|
||||
TabOrder = 10
|
||||
OnBtnUpClick = ClaTypeBtnUpClick
|
||||
OnBtnDnClick = OurCoNameBtnDnClick
|
||||
end
|
||||
object QtyUnit: TComboBox
|
||||
Tag = 2
|
||||
Left = 199
|
||||
Top = 81
|
||||
Width = 38
|
||||
Height = 20
|
||||
TabOrder = 11
|
||||
Items.Strings = (
|
||||
'Y'
|
||||
'M'
|
||||
'Kg')
|
||||
end
|
||||
object ClaType: TComboBox
|
||||
Tag = 2
|
||||
Left = 112
|
||||
Top = 13
|
||||
Width = 125
|
||||
Height = 20
|
||||
TabOrder = 12
|
||||
Items.Strings = (
|
||||
#23458#25143
|
||||
#20379#24212#21830)
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid [3]
|
||||
Left = 0
|
||||
Top = 279
|
||||
Width = 1506
|
||||
Height = 379
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column8
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column27
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column28
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Column14
|
||||
end
|
||||
item
|
||||
Format = #26816#39564#31995#25968'=#.##'
|
||||
Kind = skAverage
|
||||
end
|
||||
item
|
||||
Format = #25442#31639#31995#25968'=#.##'
|
||||
Kind = skAverage
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v1Column23
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
Styles.IncSearch = DataLink_PurchasePlan.SHuangSe
|
||||
Styles.Footer = DataLink_PurchasePlan.Default
|
||||
Styles.Header = DataLink_PurchasePlan.Default
|
||||
Styles.Inactive = DataLink_PurchasePlan.SHuangSe
|
||||
Styles.Selection = DataLink_PurchasePlan.SHuangSe
|
||||
object cxGridDBColumn1: TcxGridDBColumn
|
||||
Caption = #35745#21010#21333#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column32: TcxGridDBColumn
|
||||
Caption = #23458#25143#21333#21495
|
||||
DataBinding.FieldName = 'BuyConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn3: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn10: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'C_StyleNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column40: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn11: TcxGridDBColumn
|
||||
Caption = #33521#25991#39068#33394
|
||||
DataBinding.FieldName = 'C_EColor'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn9: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #25187#27454#25688#35201
|
||||
DataBinding.FieldName = 'KKZY'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 173
|
||||
end
|
||||
object v1Column14: TcxGridDBColumn
|
||||
Caption = #25187#20998
|
||||
DataBinding.FieldName = 'KouFenQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column7: TcxGridDBColumn
|
||||
Caption = #30133#28857#24773#20917
|
||||
DataBinding.FieldName = 'FlawList1'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 122
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #30133#28857#22791#27880
|
||||
DataBinding.FieldName = 'FwNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 108
|
||||
end
|
||||
object v1Column23: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn7: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'FtyPCID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column8: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'GrossWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column27: TcxGridDBColumn
|
||||
Caption = #30382#37325
|
||||
DataBinding.FieldName = 'Tare'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column28: TcxGridDBColumn
|
||||
Caption = #20928#37325
|
||||
DataBinding.FieldName = 'NetWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object cxGridDBColumn6: TcxGridDBColumn
|
||||
Caption = #31859#25968
|
||||
DataBinding.FieldName = 'Meter'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #30721#25968
|
||||
DataBinding.FieldName = 'Yardage'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'CIID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = TV2
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Left = 1177
|
||||
Top = 104
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Left = 1081
|
||||
Top = 97
|
||||
end
|
||||
inherited ImageList_new32: TImageList
|
||||
Left = 968
|
||||
Top = 360
|
||||
end
|
||||
object ADOTemp: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 848
|
||||
Top = 149
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_PurchasePlan.ADOLink
|
||||
Parameters = <>
|
||||
Left = 920
|
||||
Top = 149
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = Order_Sub
|
||||
Left = 860
|
||||
Top = 404
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
IndexFieldNames = 'SerialNo'
|
||||
Params = <>
|
||||
Left = 716
|
||||
Top = 404
|
||||
end
|
||||
object cxgrdpmn1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 464
|
||||
Top = 348
|
||||
end
|
||||
object pm_sub: TPopupMenu
|
||||
Left = 624
|
||||
Top = 536
|
||||
object N1: TMenuItem
|
||||
Caption = #26222#36890#26367#25442
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20135#21697#26367#25442
|
||||
OnClick = N2Click
|
||||
end
|
||||
end
|
||||
end
|
||||
972
B04采购计划管理/U_ClaimsPut.pas
Normal file
972
B04采购计划管理/U_ClaimsPut.pas
Normal file
|
|
@ -0,0 +1,972 @@
|
|||
unit U_ClaimsPut;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
||||
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
||||
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
||||
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses,
|
||||
Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput,
|
||||
System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
|
||||
dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmClaimsPut = class(TfrmBaseInput)
|
||||
ToolBar1: TToolBar;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
ADOTemp: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DS_1: TDataSource;
|
||||
Order_Sub: TClientDataSet;
|
||||
cxgrdpmn1: TcxGridPopupMenu;
|
||||
pm_sub: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
ToolButton3: TToolButton;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label3: TLabel;
|
||||
Label9: TLabel;
|
||||
Label10: TLabel;
|
||||
Label14: TLabel;
|
||||
Label20: TLabel;
|
||||
Label29: TLabel;
|
||||
Label30: TLabel;
|
||||
Label5: TLabel;
|
||||
Label13: TLabel;
|
||||
Label8: TLabel;
|
||||
Label15: TLabel;
|
||||
ClaDate: TDateTimePicker;
|
||||
ClaNo: TEdit;
|
||||
OurCoName: TBtnEditC;
|
||||
OppCoName: TBtnEditC;
|
||||
FinType: TBtnEditC;
|
||||
Currency: TComboBox;
|
||||
KKNote: TBtnEditC;
|
||||
QKNote: TBtnEditC;
|
||||
ClaAmount: TEdit;
|
||||
ClaQty: TEdit;
|
||||
Label1: TLabel;
|
||||
CLNote: TBtnEditC;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
v1Column32: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridDBColumn3: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
cxGridDBColumn10: TcxGridDBColumn;
|
||||
v1Column40: TcxGridDBColumn;
|
||||
cxGridDBColumn11: TcxGridDBColumn;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
cxGridDBColumn9: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
v1Column23: TcxGridDBColumn;
|
||||
cxGridDBColumn7: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column27: TcxGridDBColumn;
|
||||
v1Column28: TcxGridDBColumn;
|
||||
cxGridDBColumn6: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
ToolButton4: TToolButton;
|
||||
QtyUnit: TComboBox;
|
||||
ClaType: TComboBox;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure OurCoNameBtnUpClick(Sender: TObject);
|
||||
procedure OurCoNameBtnDnClick(Sender: TObject);
|
||||
procedure v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure SalesmanBtnUpClick(Sender: TObject);
|
||||
procedure v1Column15PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure OppCoNameBtnUpClick(Sender: TObject);
|
||||
procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure ClaTypeBtnUpClick(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure ClaAmountKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
private
|
||||
FLeft, FTop: Integer;
|
||||
fuserName, Fstatus: string;
|
||||
procedure InitData();
|
||||
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
|
||||
function TestData(): Boolean;
|
||||
function SaveData(): Boolean;
|
||||
procedure SetXH();
|
||||
{ Private declarations }
|
||||
public
|
||||
CopyInt: Integer;
|
||||
PState: string;
|
||||
fFlileFlag: string;
|
||||
FClaMid: string;
|
||||
FAuthority, FGSTT: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmClaimsPut: TfrmClaimsPut;
|
||||
newh: hwnd;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_YarnInfoSel,
|
||||
U_PurTradePlanSel, U_TradeDefectKCListSel;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmClaimsPut.SetXH();
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
i := 1;
|
||||
while not Eof do
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('XHNoTemp').Value := i;
|
||||
Post;
|
||||
end;
|
||||
i := i + 1;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
|
||||
with Order_Sub do
|
||||
begin
|
||||
Order_Sub.IndexFieldNames := '';
|
||||
First;
|
||||
i := 1;
|
||||
while not Eof do
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger;
|
||||
Post;
|
||||
end;
|
||||
i := i + 1;
|
||||
Next;
|
||||
end;
|
||||
Order_Sub.IndexFieldNames := 'SerialNo';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.ClaAmountKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
|
||||
if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
|
||||
begin
|
||||
Key := #0;
|
||||
end
|
||||
else if (pos('.', TEdit(Sender).text) <> 0) then
|
||||
begin
|
||||
if Key = '.' then
|
||||
begin
|
||||
Key := #0;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmClaimsPut.TestData(): Boolean;
|
||||
begin
|
||||
try
|
||||
if Trim(ClaNo.Text) = '' then
|
||||
raise Exception.Create('申请单号号不能为空！');
|
||||
if Trim(OppCoName.Text) = '' then
|
||||
raise Exception.Create('对方单位不能为空！');
|
||||
if Trim(OurCoName.Text) = '' then
|
||||
raise Exception.Create('我方单位不能为空！');
|
||||
if Trim(QtyUnit.Text) = '' then
|
||||
raise Exception.Create('数量单位不能为空！');
|
||||
if Trim(ClaType.Text) = '' then
|
||||
raise Exception.Create('索赔类型不能为空！');
|
||||
|
||||
if Order_Sub.IsEmpty then
|
||||
raise Exception.Create('明细不能为空！');
|
||||
if Order_Sub.Locate('C_Name', null, []) then
|
||||
raise Exception.Create('品名不能为空！');
|
||||
if Order_Sub.Locate('C_Name', '', []) then
|
||||
raise Exception.Create('品名不能为空！');
|
||||
// if Order_Sub.Locate('Price', null, []) then
|
||||
// raise Exception.Create('单价不能为空！');
|
||||
// if Order_Sub.Locate('Qty', null, []) then
|
||||
// raise Exception.Create('数量不能为空！');
|
||||
// if Order_Sub.Locate('Qty', 0, []) then
|
||||
// raise Exception.Create('数量不能为0！');
|
||||
// if Order_Sub.Locate('QtyUnit', null, []) then
|
||||
// raise Exception.Create('数量单位不能为空！');
|
||||
// if Order_Sub.Locate('QtyUnit', '', []) then
|
||||
// raise Exception.Create('数量单位不能为空！');
|
||||
Result := True;
|
||||
except
|
||||
Result := false;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.InitData();
|
||||
var
|
||||
maxno: string;
|
||||
begin
|
||||
//刷新产品信息
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select * from Claims_Sub ');
|
||||
sql.Add('where ClaMId=''' + Trim(FClaMId) + '''');
|
||||
sql.Add(' order by SerialNo ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOTemp, Order_Sub);
|
||||
SInitCDSData(ADOTemp, Order_Sub);
|
||||
//刷新条款信息
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Claims_Main where CLaMId=''' + Trim(FClaMId) + '''');
|
||||
Open;
|
||||
end;
|
||||
SCSHData(ADOTemp, ScrollBox1, 2);
|
||||
OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
|
||||
OppCoName.TxtCode := Trim(ADOTemp.FieldByName('OppCoNo').AsString);
|
||||
Fstatus := Trim(ADOTemp.FieldByName('status').AsString);
|
||||
|
||||
if PState = '新增' then
|
||||
begin
|
||||
ClaDate.DateTime := SGetServerDateTime(ADOTemp);
|
||||
// DlyDate.DateTime := PurDate.DateTime;
|
||||
ClaNo.Text := '自动生成';
|
||||
end;
|
||||
|
||||
if PState = '复制' then
|
||||
begin
|
||||
PState := '新增';
|
||||
FClaMId := '';
|
||||
ClaNo.Text := '自动生成';
|
||||
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if GetLSNo(ADOCmd, maxno, 'SCS', 'Claims_Sub', 4, 1) = False then
|
||||
begin
|
||||
Application.MessageBox('取子流水号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
Edit;
|
||||
FieldByName('ClaMId').Value := '';
|
||||
FieldByName('ClaSId').Value := maxno;
|
||||
Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.N1Click(Sender: TObject);
|
||||
var
|
||||
FValue, FFValue, FColumn, FFColumn, MHXSID: string;
|
||||
MXHNO: Integer;
|
||||
begin
|
||||
if Fstatus = '1' then
|
||||
begin
|
||||
application.MessageBox('合同已审核，无法操作！', '提示信息', 0);
|
||||
exit;
|
||||
end;
|
||||
MXHNO := Order_Sub.FieldByName('XHNo').ASInteger;
|
||||
FColumn := Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||||
FValue := Trim(Order_Sub.fieldbyname(FColumn).AsString);
|
||||
MHXSID := Trim(Order_Sub.fieldbyname('HXSID').AsString);
|
||||
with Order_Sub do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if FieldByName('SSel').AsBoolean then
|
||||
begin
|
||||
Edit;
|
||||
|
||||
if FValue = '' then
|
||||
begin
|
||||
Order_Sub.FieldByName(FColumn).Value := null;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Order_Sub.FieldByName(FColumn).Value := FValue;
|
||||
end;
|
||||
if FColumn = 'C_HX' then
|
||||
begin
|
||||
Order_Sub.FieldByName('HXSID').Value := MHXSID;
|
||||
end;
|
||||
Post;
|
||||
// JSMoney();
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
Order_Sub.Locate('XHNO', MXHNO, []);
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.N2Click(Sender: TObject);
|
||||
var
|
||||
FValue, MC_Code, MC_Craft, MC_Name, MC_Spec, MC_CF, MC_Color, MC_MF, MC_KZ, MC_Note, MC_Unit, MGcHuaNo, MSuoLv, MC_EName: string;
|
||||
MXHNO: Integer;
|
||||
begin
|
||||
if Fstatus = '1' then
|
||||
begin
|
||||
application.MessageBox('合同已审核，无法操作！', '提示信息', 0);
|
||||
exit;
|
||||
end;
|
||||
|
||||
MXHNO := Order_Sub.FieldByName('XHNo').ASInteger;
|
||||
MC_Code := Order_Sub.fieldbyname('C_Code').AsString;
|
||||
MC_Craft := Order_Sub.fieldbyname('C_Craft').AsString;
|
||||
MC_Name := Order_Sub.fieldbyname('C_Name').AsString;
|
||||
MC_Spec := Order_Sub.fieldbyname('C_Spec').AsString;
|
||||
MC_CF := Order_Sub.fieldbyname('C_CF').AsString;
|
||||
MC_Color := Order_Sub.fieldbyname('C_Color').AsString;
|
||||
MC_MF := Order_Sub.fieldbyname('C_MF').AsString;
|
||||
MC_KZ := Order_Sub.fieldbyname('C_KZ').AsString;
|
||||
MC_Note := Order_Sub.fieldbyname('C_Note').AsString;
|
||||
MC_Unit := Order_Sub.fieldbyname('C_Unit').AsString;
|
||||
MSuoLv := Order_Sub.fieldbyname('SuoLv').AsString;
|
||||
MGcHuaNo := Order_Sub.fieldbyname('GcHuaNo').AsString;
|
||||
MC_EName := Order_Sub.fieldbyname('C_EName').AsString;
|
||||
|
||||
with Order_Sub do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if FieldByName('SSel').AsBoolean then
|
||||
begin
|
||||
Edit;
|
||||
Order_Sub.fieldbyname('C_Code').Value := MC_Code;
|
||||
Order_Sub.fieldbyname('C_Craft').Value := MC_Craft;
|
||||
Order_Sub.fieldbyname('C_Name').Value := MC_Name;
|
||||
Order_Sub.fieldbyname('C_Spec').Value := MC_Spec;
|
||||
Order_Sub.fieldbyname('C_CF').Value := MC_CF;
|
||||
Order_Sub.fieldbyname('C_Color').Value := MC_Color;
|
||||
Order_Sub.fieldbyname('C_MF').Value := MC_MF;
|
||||
Order_Sub.fieldbyname('C_KZ').Value := MC_KZ;
|
||||
Order_Sub.fieldbyname('C_Note').Value := MC_Note;
|
||||
Order_Sub.fieldbyname('C_Unit').Value := MC_Unit;
|
||||
Order_Sub.fieldbyname('SuoLv').Value := MSuoLv;
|
||||
Order_Sub.fieldbyname('GcHuaNo').Value := MGcHuaNo;
|
||||
Order_Sub.fieldbyname('C_EName').Value := MC_EName;
|
||||
Post;
|
||||
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
Order_Sub.Locate('XHNO', MXHNO, []);
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.ClaTypeBtnUpClick(Sender: TObject);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
|
||||
var
|
||||
FType, ZDYName, FText: string;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
readCxGrid(trim(self.Caption), Tv2, '索赔管理');
|
||||
fFlileFlag := UserDataFlag + 'HX';
|
||||
InitData();
|
||||
|
||||
end;
|
||||
|
||||
function TfrmClaimsPut.SaveData(): Boolean;
|
||||
var
|
||||
maxno, SMaxNo: string;
|
||||
MClaNo, fDate: string;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
//////////////// 保存主表 //////////////////////
|
||||
if Trim(FClaMId) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOTemp, maxno, 'CM', 'Claims_Main', 3, 1) = False then
|
||||
raise Exception.Create('取最大号失败！');
|
||||
|
||||
fDate := 'ZCM' + FormatDateTime('yy', SGetServerDate(ADOTemp));
|
||||
|
||||
if trim(ClaNo.Text) = '自动生成' then
|
||||
begin
|
||||
if GetLSNo(ADOTemp, MClaNo, fDate, 'Claims_Main', 4, 0) = False then
|
||||
raise Exception.Create('取最新采购单号失败！');
|
||||
ClaNo.Text := MClaNo;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
maxno := Trim(FClaMId);
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from Claims_Main where ClaMId=''' + Trim(FClaMId) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(FClaMId) = '' then
|
||||
begin
|
||||
Append;
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
FieldByName('status').Value := '0';
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Editer').Value := Trim(DName);
|
||||
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
|
||||
end;
|
||||
FieldByName('ClaMId').Value := Trim(maxno);
|
||||
RTSetsavedata(ADOCmd, 'Claims_Main', ScrollBox1, 2);
|
||||
FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
|
||||
FieldByName('OppCoNo').Value := OppCoName.TxtCode;
|
||||
Post;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Claims_Main where ClaNo=''' + Trim(ClaNo.Text) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOCmd.RecordCount > 1 then
|
||||
raise Exception.Create('申请单号重复！');
|
||||
|
||||
FClaMId := Trim(maxno);
|
||||
//////////////// 保存主表 //////////////////////
|
||||
///
|
||||
//////////////// 保存子表 //////////////////////
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
|
||||
SMaxNo := Trim(Order_Sub.fieldbyname('ClaSId').AsString);
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Claims_Sub ');
|
||||
sql.Add('where ClaSId=''' + Trim(SMaxNo) + '''');
|
||||
SQL.Add('and ClaMId=''' + Trim(FClaMId) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if ADOCmd.IsEmpty then
|
||||
Append
|
||||
else
|
||||
Edit;
|
||||
RTSetSaveDataCDS(ADOCmd, Tv2, Order_Sub, 'Claims_Sub', 0);
|
||||
FieldByName('ClaMId').Value := Trim(FClaMId);
|
||||
FieldByName('ClaSId').Value := Trim(SMaxNo);
|
||||
|
||||
Post;
|
||||
end;
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('ClaSId').Value := Trim(SMaxNo);
|
||||
Post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
//////////////// 保存子表 //////////////////////
|
||||
|
||||
ADOCmd.Connection.CommitTrans;
|
||||
Result := True;
|
||||
except
|
||||
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
Result := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
ClaDate.SetFocus;
|
||||
|
||||
if TestData() = false then
|
||||
exit;
|
||||
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！', '提示', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue, FFieldName: string;
|
||||
FQty, FPrice, FAmount: Double; //个数，单价，金额
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
if Trim(mvalue) = '' then
|
||||
begin
|
||||
mvalue := '0';
|
||||
end;
|
||||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName(FFieldName).Value := Trim(mvalue);
|
||||
Post;
|
||||
FQty := Fieldbyname('Qty').AsFloat;
|
||||
FPrice := Fieldbyname('Price').AsFloat;
|
||||
end;
|
||||
FAmount := RoundFloat(FQty * FPrice, 2);
|
||||
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Qty').Value := FQty;
|
||||
FieldByName('Price').Value := FPrice;
|
||||
FieldByName('Amount').Value := FAmount;
|
||||
Post;
|
||||
end;
|
||||
tv2.Controller.EditingController.ShowEdit();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.ToolButton1Click(Sender: TObject);
|
||||
var
|
||||
i: Integer;
|
||||
maxno: string;
|
||||
begin
|
||||
|
||||
if GetLSNo(ADOCmd, maxno, 'CS', 'Claims_Sub', 4, 1) = False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
i := Order_Sub.RecordCount + 1; //当前的dataset有多少行记录
|
||||
|
||||
try
|
||||
frmPurTradePlanSel := TfrmPurTradePlanSel.Create(Application);
|
||||
with frmPurTradePlanSel do
|
||||
begin
|
||||
// FMainID := MainID.Text;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with CDS_1 do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if CDS_1.fieldbyname('SSel').AsBoolean then
|
||||
begin
|
||||
with Self.Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
// FieldByName('SSEL').Value := False;
|
||||
FieldByName('SerialNo').Value := i;
|
||||
FieldByName('ClaSId').Value := maxno + INTTOSTR(i);
|
||||
FieldByName('C_Code').Value := CDS_1.fieldbyname('C_Code').value;
|
||||
FieldByName('OrderNo').Value := CDS_1.fieldbyname('OrderNo').value;
|
||||
FieldByName('C_Name').Value := CDS_1.fieldbyname('C_Name').value;
|
||||
FieldByName('BuyConNo').Value := CDS_1.fieldbyname('BuyConNo').value;
|
||||
FieldByName('C_Pattern').Value := CDS_1.fieldbyname('C_Pattern').value;
|
||||
FieldByName('C_ColorNo').Value := CDS_1.fieldbyname('C_ColorNo').value;
|
||||
FieldByName('C_Width').Value := CDS_1.fieldbyname('C_Width').value;
|
||||
FieldByName('C_GramWeight').Value := CDS_1.fieldbyname('C_GramWeight').value;
|
||||
FieldByName('C_Color').Value := CDS_1.fieldbyname('C_Color').value;
|
||||
|
||||
FieldByName('SubId').Value := CDS_1.fieldbyname('SubId').value;
|
||||
FieldByName('MainId').Value := CDS_1.fieldbyname('MainId').value;
|
||||
|
||||
end;
|
||||
end;
|
||||
i := i + 1;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmPurTradePlanSel.Free;
|
||||
end;
|
||||
|
||||
SetXH();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if Order_Sub.IsEmpty then
|
||||
Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
while Order_Sub.Locate('SSel', True, []) do
|
||||
begin
|
||||
// with ADOTemp do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.Add('select * from Trade_Plan_Sub where PurSId=''' + Trim(Order_Sub.fieldbyname('PurSId').AsString) + '''');
|
||||
// open;
|
||||
// end;
|
||||
// if ADOTemp.IsEmpty = false then
|
||||
// begin
|
||||
// exit;
|
||||
// application.MessageBox('该明细已经在生产！', '提示信息');
|
||||
// end;
|
||||
if Trim(Order_Sub.fieldbyname('PurSId').AsString) <> '' then
|
||||
begin
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete Pur_YarnPlan_Sub where PurSId=''' + Trim(Order_Sub.fieldbyname('PurSId').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.Delete;
|
||||
end;
|
||||
|
||||
SetXH();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption), Tv2, '索赔管理');
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.ToolButton4Click(Sender: TObject);
|
||||
var
|
||||
i: Integer;
|
||||
maxno: string;
|
||||
begin
|
||||
|
||||
if GetLSNo(ADOCmd, maxno, 'CS', 'Claims_Sub', 4, 1) = False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
i := Order_Sub.RecordCount + 1; //当前的dataset有多少行记录
|
||||
|
||||
try
|
||||
frmTradeDefectKCListSel := TfrmTradeDefectKCListSel.Create(Application);
|
||||
with frmTradeDefectKCListSel do
|
||||
begin
|
||||
// FMainID := MainID.Text;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
while CDS_1.locate('SSel', true, []) do
|
||||
begin
|
||||
with Self.Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
// FieldByName('SSEL').Value := False;
|
||||
FieldByName('SerialNo').Value := i;
|
||||
FieldByName('ClaSId').Value := maxno + INTTOSTR(i);
|
||||
FieldByName('OrderNo').Value := CDS_1.fieldbyname('OrderNo').value;
|
||||
FieldByName('BuyConNO').Value := CDS_1.fieldbyname('BuyConNO').value;
|
||||
FieldByName('C_Code').Value := CDS_1.fieldbyname('C_Code').value;
|
||||
FieldByName('C_Name').Value := CDS_1.fieldbyname('C_Name').value;
|
||||
FieldByName('C_Width').Value := CDS_1.fieldbyname('C_Width').value;
|
||||
FieldByName('C_GramWeight').Value := CDS_1.fieldbyname('C_GramWeight').value;
|
||||
FieldByName('C_StyleNo').Value := CDS_1.fieldbyname('C_StyleNo').value;
|
||||
FieldByName('C_Pattern').Value := CDS_1.fieldbyname('C_Pattern').value;
|
||||
FieldByName('C_ColorNo').Value := CDS_1.fieldbyname('C_ColorNo').value;
|
||||
FieldByName('C_EColor').Value := CDS_1.fieldbyname('C_EColor').value;
|
||||
FieldByName('C_Color').Value := CDS_1.fieldbyname('C_Color').value;
|
||||
|
||||
FieldByName('SubId').Value := CDS_1.fieldbyname('SubId').value;
|
||||
FieldByName('MainId').Value := CDS_1.fieldbyname('MainId').value;
|
||||
|
||||
// FieldByName('KKZY').Value := CDS_1.fieldbyname('KKZY').value;
|
||||
// FieldByName('KouFenQty').Value := CDS_1.fieldbyname('KouFenQty').value;
|
||||
// FieldByName('FlawList1').Value := CDS_1.fieldbyname('FlawList1').value;
|
||||
// FieldByName('FwNote').Value := CDS_1.fieldbyname('FwNote').value;
|
||||
FieldByName('FtyPCID').Value := CDS_1.fieldbyname('FtyPCID').value;
|
||||
|
||||
FieldByName('GrossWeight').Value := CDS_1.fieldbyname('GrossWeight').value;
|
||||
FieldByName('Tare').Value := CDS_1.fieldbyname('Tare').value;
|
||||
FieldByName('NetWeight').Value := CDS_1.fieldbyname('NetWeight').value;
|
||||
FieldByName('Meter').Value := CDS_1.fieldbyname('Meter').value;
|
||||
FieldByName('Yardage').Value := CDS_1.fieldbyname('Yardage').value;
|
||||
FieldByName('CIID').Value := CDS_1.fieldbyname('CIID').value;
|
||||
end;
|
||||
CDS_1.Edit;
|
||||
CDS_1.fieldbyname('SSel').value := false;
|
||||
i := i + 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
finally
|
||||
frmTradeDefectKCListSel.Free;
|
||||
end;
|
||||
|
||||
SetXH();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.OurCoNameBtnUpClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||
with frmCompanySel do
|
||||
begin
|
||||
FCoType := '我司';
|
||||
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
self.OurCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
|
||||
self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||
end;
|
||||
end;
|
||||
|
||||
finally
|
||||
frmCompanySel.Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.OurCoNameBtnDnClick(Sender: TObject);
|
||||
begin
|
||||
TBtnEditC(Sender).Text := '';
|
||||
TBtnEditC(Sender).TxtCode := '';
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := 'MPRTCodeName';
|
||||
flagname := '产品名称';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Order_Sub.Edit;
|
||||
Order_Sub.fieldbyname('PRTCodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Order_Sub.fieldbyname('PRTCode').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
Order_Sub.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
tv2.Controller.EditingController.ShowEdit();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := 'C_MF';
|
||||
flagname := '门幅信息';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Order_Sub.Edit;
|
||||
Order_Sub.fieldbyname('C_MF').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
// Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
Order_Sub.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
TV2.Controller.EditingController.ShowEdit();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := 'C_KZ';
|
||||
flagname := '克重信息';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Order_Sub.Edit;
|
||||
Order_Sub.fieldbyname('C_KZ').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
// Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
Order_Sub.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
tv2.Controller.EditingController.ShowEdit();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
var
|
||||
MCYNo: string;
|
||||
begin
|
||||
frmClothInfoSel := TfrmClothInfoSel.Create(self);
|
||||
with frmClothInfoSel do
|
||||
begin
|
||||
if showmodal = 1 then
|
||||
begin
|
||||
Order_Sub.Edit;
|
||||
Order_Sub.fieldbyname('C_Code').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
|
||||
|
||||
Order_Sub.fieldbyname('C_Name').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
|
||||
Order_Sub.fieldbyname('C_EName').Value := frmClothInfoSel.CDS_1.fieldbyname('C_EName').asstring;
|
||||
Order_Sub.fieldbyname('C_Spec').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring;
|
||||
Order_Sub.fieldbyname('C_Composition').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring;
|
||||
Order_Sub.fieldbyname('C_Color').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Color').asstring;
|
||||
Order_Sub.fieldbyname('C_Width').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
|
||||
Order_Sub.fieldbyname('C_GramWeight').Value := frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
|
||||
Order_Sub.Post;
|
||||
end;
|
||||
free;
|
||||
end;
|
||||
|
||||
tv2.Controller.EditingController.ShowEdit();
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.SalesmanBtnUpClick(Sender: TObject);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.v1Column15PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
|
||||
if Trim(mvalue) = '' then
|
||||
begin
|
||||
mvalue := '0';
|
||||
end;
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('YongJinPrice').Value := mvalue;
|
||||
FieldByName('YongJin').Value := FieldByName('YongJinPrice').AsFloat * FieldByName('PRTOrderQty').AsFloat;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClaimsPut.OppCoNameBtnUpClick(Sender: TObject);
|
||||
begin
|
||||
if ClaType.text='' then
|
||||
begin
|
||||
Application.MessageBox('保存成功！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
try
|
||||
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||
with frmCompanySel do
|
||||
begin
|
||||
FCoType := Trim(ClaType.text);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
self.OppCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
|
||||
self.OppCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||
end;
|
||||
end;
|
||||
|
||||
finally
|
||||
frmCompanySel.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -16,7 +16,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_iniParam, U_ClothPurchasePlanList, U_YarnPurchasePlanList
|
||||
, U_ClothRSPlanList, U_ClothHJGPlanList;
|
||||
, U_ClothRSPlanList, U_ClothHJGPlanList, U_ClaimsList;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -174,6 +174,18 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
511: //Ë÷Åâ¹ÜÀí
|
||||
begin
|
||||
with TfrmClaimsList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
10000:
|
||||
begin
|
||||
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
||||
|
|
|
|||
4848
B04采购计划管理/U_TradeDefectKCListSel.dfm
Normal file
4848
B04采购计划管理/U_TradeDefectKCListSel.dfm
Normal file
File diff suppressed because it is too large
Load Diff
269
B04采购计划管理/U_TradeDefectKCListSel.pas
Normal file
269
B04采购计划管理/U_TradeDefectKCListSel.pas
Normal file
|
|
@ -0,0 +1,269 @@
|
|||
unit U_TradeDefectKCListSel;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
|
||||
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
|
||||
cxDropDownEdit, cxCheckBox, Vcl.Menus, cxPC, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmTradeDefectKCListSel = class(TfrmBaseHelp)
|
||||
ToolBar1: TToolBar;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
DS_1: TDataSource;
|
||||
CDS_1: TClientDataSet;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ToolButton1: TToolButton;
|
||||
ADOConnection1: TADOConnection;
|
||||
Panel1: TPanel;
|
||||
Label1: TLabel;
|
||||
OrderNo: TEdit;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
ImageList1: TImageList;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyle1: TcxStyle;
|
||||
ThreeColorBase: TcxStyleRepository;
|
||||
SHuangSe: TcxStyle;
|
||||
SkyBlue: TcxStyle;
|
||||
Default: TcxStyle;
|
||||
QHuangSe: TcxStyle;
|
||||
Red: TcxStyle;
|
||||
FontBlue: TcxStyle;
|
||||
TextSHuangSe: TcxStyle;
|
||||
FonePurple: TcxStyle;
|
||||
FoneClMaroon: TcxStyle;
|
||||
FoneRed: TcxStyle;
|
||||
RowColor: TcxStyle;
|
||||
handBlack: TcxStyle;
|
||||
cxBlue: TcxStyle;
|
||||
SHuangSeCu: TcxStyle;
|
||||
PM_1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
Label4: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
cxGrid2: TcxGrid;
|
||||
TV1: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
v1Column32: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridDBColumn3: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
cxGridDBColumn10: TcxGridDBColumn;
|
||||
v1Column40: TcxGridDBColumn;
|
||||
cxGridDBColumn11: TcxGridDBColumn;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
cxGridDBColumn9: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
v1Column23: TcxGridDBColumn;
|
||||
cxGridDBColumn7: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column27: TcxGridDBColumn;
|
||||
v1Column28: TcxGridDBColumn;
|
||||
cxGridDBColumn6: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
TV1Column1: TcxGridDBColumn;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure TV1DblClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure OrderNoChange(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
FCoType, FAuthority: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmTradeDefectKCListSel: TfrmTradeDefectKCListSel;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
EndDate.DateTime := Now();
|
||||
BegDate.DateTime := EndDate.DateTime - 30;
|
||||
try
|
||||
with ADOConnection1 do
|
||||
begin
|
||||
Connected := false;
|
||||
ConnectionString := DConString;
|
||||
Connected := true;
|
||||
end;
|
||||
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||
except
|
||||
application.MessageBox('网络连接失败！', '提示信息');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.OrderNoChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active = False then
|
||||
Exit;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
SInitCDSData(ADOQueryMain, CDS_1);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
|
||||
OrderNo.SetFocus;
|
||||
|
||||
Action := cahide;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.InitGrid();
|
||||
var
|
||||
WSql: string;
|
||||
begin
|
||||
WSql := WSql + ' and ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select B.BuyConNo,A.* from Trade_Cloth_Inspect A Left join Trade_Plan_Sub B on A.SubID=B.SubID where A.Grade=''次品'' ');
|
||||
sql.Add('and A.ProcessType=''索赔'' and not EXISTS (select CIID from Claims_Sub X where X.CIID=A.CIID) ');
|
||||
|
||||
sql.Add('Order By A.FillTime ');
|
||||
// ShowMessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
SInitCDSData(ADOQueryMain, CDS_1);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.N1Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_1, True);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.N2Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_1, False);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
InitGrid();
|
||||
|
||||
ReadCxGrid(Trim(self.Caption), TV1, '自定义数据');
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(Trim(self.Caption), TV1, '自定义数据');
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.ToolButton1Click(Sender: TObject);
|
||||
var
|
||||
Count: Integer;
|
||||
Value: string;
|
||||
begin
|
||||
// OrderNo.SetFocus;
|
||||
// Count := 1;
|
||||
//// value :=FConNo;
|
||||
// with CDS_1 do
|
||||
// begin
|
||||
// First;
|
||||
// while not Eof do
|
||||
// begin
|
||||
// if CDS_1.fieldbyname('SSel').AsBoolean then
|
||||
// begin
|
||||
// if Value = '' then
|
||||
// begin
|
||||
// Value := FieldByName('ConNo').AsString;
|
||||
// end;
|
||||
// if Value <> '' then
|
||||
// begin
|
||||
// if Value <> FieldByName('ConNo').AsString then
|
||||
// begin
|
||||
// Count := Count + 1;
|
||||
// end;
|
||||
// end;
|
||||
// end;
|
||||
//
|
||||
// Next;
|
||||
// end;
|
||||
// end;
|
||||
// if Count = 1 then
|
||||
// begin
|
||||
ModalResult := 1;
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// application.MessageBox('选择的不是同一销售合同！', '提示信息');
|
||||
// exit;
|
||||
// end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.TV1DblClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeDefectKCListSel.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmTradeDefectKCListSel := nil;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -188,6 +188,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
OnCustomDrawCell = Tv1CustomDrawCell
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
|
|
@ -215,6 +216,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
|
|
@ -224,6 +226,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1OrdDate: TcxGridDBColumn
|
||||
Caption = #19979#21333#26085#26399
|
||||
DataBinding.FieldName = 'PurDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -235,6 +238,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1DeliveryDate: TcxGridDBColumn
|
||||
Caption = #20132#36135#26085#26399
|
||||
DataBinding.FieldName = 'DlyDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -246,6 +250,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1ConNo: TcxGridDBColumn
|
||||
Caption = #37319#36141#21333#21495
|
||||
DataBinding.FieldName = 'PurNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -255,6 +260,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830
|
||||
DataBinding.FieldName = 'SellName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -264,6 +270,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1CustomerNoName: TcxGridDBColumn
|
||||
Caption = #25105#26041#21333#20301
|
||||
DataBinding.FieldName = 'BuyName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
|
|
@ -273,6 +280,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object Tv1Column19: TcxGridDBColumn
|
||||
Caption = #20132#26399#35828#26126
|
||||
DataBinding.FieldName = 'ShippMent'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 271
|
||||
|
|
@ -280,6 +288,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1Column9: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Mnote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
|
|
@ -287,6 +296,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #20215#26684#26415#35821
|
||||
DataBinding.FieldName = 'JiaGeSY'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -294,12 +304,14 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #24065#31181
|
||||
DataBinding.FieldName = 'Currency'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'status'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
|
|
@ -307,6 +319,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1Column12: TcxGridDBColumn
|
||||
Caption = #38468#20214
|
||||
DataBinding.FieldName = 'ISSC'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -316,6 +329,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1Column13: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'Filler'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 78
|
||||
|
|
@ -323,12 +337,14 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #26159#21542#21547#31246
|
||||
DataBinding.FieldName = 'IsTax'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #36215#36816#28207
|
||||
DataBinding.FieldName = 'QiYun'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
|
|
@ -337,6 +353,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
Tag = 2
|
||||
Caption = #28322#30701#35013
|
||||
DataBinding.FieldName = 'QtyNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
|
|
@ -574,6 +591,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
TabOrder = 5
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -619,6 +637,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1XHNo: TcxGridDBColumn
|
||||
Caption = #24207#21495
|
||||
DataBinding.FieldName = 'SerialNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
SortIndex = 0
|
||||
|
|
@ -629,6 +648,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object VC_SCSCode: TcxGridDBColumn
|
||||
Caption = #21697#29260
|
||||
DataBinding.FieldName = 'Brand'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -643,6 +663,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'Y_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -650,6 +671,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'Y_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
|
|
@ -657,6 +679,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'Y_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -664,6 +687,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object cxGridDBColumn5: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'Y_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
@ -671,6 +695,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object TV2Column1: TcxGridDBColumn
|
||||
Caption = 'D'#25968
|
||||
DataBinding.FieldName = 'Denier'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
|
|
@ -678,6 +703,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -687,6 +713,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.Items.Strings = (
|
||||
|
|
@ -701,6 +728,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1PRTPrice: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -711,6 +739,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object cxGridDBColumn9: TcxGridDBColumn
|
||||
Caption = #37329#39069
|
||||
DataBinding.FieldName = 'Amount'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -719,6 +748,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
|
|||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'SNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
|
|
|
|||
|
|
@ -12,7 +12,8 @@ uses
|
|||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
|
||||
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
|
||||
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd;
|
||||
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd,
|
||||
dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmYarnPurchasePlanList = class(TfrmBaseList)
|
||||
|
|
|
|||
|
|
@ -33,7 +33,8 @@ uses
|
|||
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
|
||||
U_PlanProfit in 'U_PlanProfit.pas' {frmPlanProfit},
|
||||
U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail},
|
||||
U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails};
|
||||
U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails},
|
||||
U_ZDYHelp_P in 'U_ZDYHelp_P.pas' {frmZDYHelp_P};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -218,6 +218,10 @@
|
|||
<Form>frmPlanProfitDetails</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_ZDYHelp_P.pas">
|
||||
<Form>frmZDYHelp_P</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -1,52 +1,53 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.895,=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.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.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.332,=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.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.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.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.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.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.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</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.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.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.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.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.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.713,=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.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
@ -133,5 +134,7 @@
|
|||
<File Path="U_PlanProfit.dfm"/>
|
||||
<File Path="U_PlanProfitDetails.pas"/>
|
||||
<File Path="U_PlanProfitDetails.dfm"/>
|
||||
<File Path="U_ZDYHelp_P.pas"/>
|
||||
<File Path="U_ZDYHelp_P.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,5 +1,5 @@
|
|||
[ExpressSkins]
|
||||
Default=0
|
||||
Default=1
|
||||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinBasic=0
|
||||
|
|
|
|||
|
|
@ -7,6 +7,7 @@ inherited frmTradePlanList: TfrmTradePlanList
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitTop = -214
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 799
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -929,8 +930,8 @@ inherited frmTradePlanList: TfrmTradePlanList
|
|||
end
|
||||
end
|
||||
object Panel3: TPanel [6]
|
||||
Left = -259
|
||||
Top = 271
|
||||
Left = -251
|
||||
Top = 82
|
||||
Width = 1177
|
||||
Height = 634
|
||||
Color = clBtnHighlight
|
||||
|
|
@ -1031,8 +1032,8 @@ inherited frmTradePlanList: TfrmTradePlanList
|
|||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 344
|
||||
Top = 100
|
||||
Left = 350
|
||||
Top = 101
|
||||
Width = 52
|
||||
Height = 15
|
||||
Caption = #25171#21253#26041#24335
|
||||
|
|
@ -1056,6 +1057,19 @@ inherited frmTradePlanList: TfrmTradePlanList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label26: TLabel
|
||||
Left = 678
|
||||
Top = 101
|
||||
Width = 52
|
||||
Height = 15
|
||||
Caption = #25171#21253#21333#20215
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Times New Roman'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object MainId: TEdit
|
||||
Left = 782
|
||||
Top = 599
|
||||
|
|
@ -1136,7 +1150,7 @@ inherited frmTradePlanList: TfrmTradePlanList
|
|||
TabOrder = 7
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 623
|
||||
Left = 619
|
||||
Top = 594
|
||||
Width = 92
|
||||
Height = 25
|
||||
|
|
@ -1298,17 +1312,17 @@ inherited frmTradePlanList: TfrmTradePlanList
|
|||
Tag = 2
|
||||
Left = 408
|
||||
Top = 98
|
||||
Width = 440
|
||||
Width = 254
|
||||
Height = 20
|
||||
Hint = 'DBFS/'#25171#21253#26041#24335
|
||||
TabOrder = 12
|
||||
OnBtnUpClick = PZNoteBtnUpClick
|
||||
OnBtnUpClick = DBFSBtnUpClick
|
||||
OnBtnDnClick = PZNoteBtnDnClick
|
||||
end
|
||||
object MBuyConNo: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 408
|
||||
Top = 594
|
||||
Top = 596
|
||||
Width = 194
|
||||
Height = 20
|
||||
Hint = 'MBuyConNo/'#23458#25143#21333#21495
|
||||
|
|
@ -1316,10 +1330,18 @@ inherited frmTradePlanList: TfrmTradePlanList
|
|||
OnBtnUpClick = PZNoteBtnUpClick
|
||||
OnBtnDnClick = PZNoteBtnDnClick
|
||||
end
|
||||
object DBPrice: TEdit
|
||||
Tag = 2
|
||||
Left = 736
|
||||
Top = 98
|
||||
Width = 112
|
||||
Height = 20
|
||||
TabOrder = 14
|
||||
end
|
||||
end
|
||||
object Panel4: TPanel [7]
|
||||
Left = 190
|
||||
Top = 294
|
||||
Left = 712
|
||||
Top = 296
|
||||
Width = 995
|
||||
Height = 489
|
||||
Hint = 'BGName/'#25253#20851#21697#21517
|
||||
|
|
|
|||
|
|
@ -206,6 +206,8 @@ type
|
|||
Label24: TLabel;
|
||||
Label25: TLabel;
|
||||
ConNo: TEdit;
|
||||
Label26: TLabel;
|
||||
DBPrice: TEdit;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -260,6 +262,7 @@ type
|
|||
procedure Button4Click(Sender: TObject);
|
||||
procedure Button3Click(Sender: TObject);
|
||||
procedure BGNameBtnUpClick(Sender: TObject);
|
||||
procedure DBFSBtnUpClick(Sender: TObject);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
FOrderNo, FCustName, FConNo, FBuyConNo, FC_Code, FC_Name, FHXYS, FCPMC, FKZPZ, FOrdQty, FOrdUnit: string;
|
||||
|
|
@ -290,7 +293,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_TradePlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TradeInspSet,
|
||||
U_AttachmentUpload, U_ZDYHelpSel, U_TradeInspSet_YJ;
|
||||
U_AttachmentUpload, U_ZDYHelpSel, U_TradeInspSet_YJ, U_ZDYHelp_P;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
|
@ -953,6 +956,30 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradePlanList.DBFSBtnUpClick(Sender: TObject);
|
||||
var
|
||||
fsj: string;
|
||||
FWZ: Integer;
|
||||
begin
|
||||
fsj := Trim(TEdit(Sender).Hint);
|
||||
FWZ := Pos('/', fsj);
|
||||
try
|
||||
frmZDYHelp_P := TfrmZDYHelp_P.Create(Application);
|
||||
with frmZDYHelp_P do
|
||||
begin
|
||||
flag := Copy(fsj, 1, FWZ - 1);
|
||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
DBPrice.Text := Trim(ClientDataSet1.fieldbyname('ZdyFlt1').AsString);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp_P.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmTradePlanList.DelData(): Boolean;
|
||||
begin
|
||||
try
|
||||
|
|
@ -1148,6 +1175,7 @@ begin
|
|||
sql.Add(',KJNote=''' + Trim(KJNote.Text) + '''');
|
||||
sql.Add(',DBNote=''' + Trim(DBNote.Text) + '''');
|
||||
sql.Add(',DBFS=''' + Trim(DBFS.Text) + '''');
|
||||
sql.Add(',DBPrice=''' + Trim(DBPrice.Text) + '''');
|
||||
SQL.Add(',ggft=''' + Trim(ggft.Text) + '''');
|
||||
sql.Add(',tj=''' + Trim(tj.Text) + '''');
|
||||
sql.Add(',cm=''' + Trim(cm.Text) + '''');
|
||||
|
|
@ -1184,6 +1212,8 @@ begin
|
|||
PZNote.text := '';
|
||||
KJNote.text := '';
|
||||
DBNote.text := '';
|
||||
DBFS.text := '';
|
||||
DBPrice.text := '';
|
||||
ggft.text := '';
|
||||
tj.text := '';
|
||||
cm.text := '';
|
||||
|
|
|
|||
14405
T01贸易生产计划/U_ZDYHelp_P.dfm
Normal file
14405
T01贸易生产计划/U_ZDYHelp_P.dfm
Normal file
File diff suppressed because it is too large
Load Diff
681
T01贸易生产计划/U_ZDYHelp_P.pas
Normal file
681
T01贸易生产计划/U_ZDYHelp_P.pas
Normal file
|
|
@ -0,0 +1,681 @@
|
|||
unit U_ZDYHelp_P;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseInput, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
|
||||
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
|
||||
dxDateRanges, dxBarBuiltInMenu, System.ImageList, cxContainer, cxImageList,
|
||||
dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||||
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
|
||||
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
|
||||
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
|
||||
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
|
||||
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmZDYHelp_P = class(TfrmBaseInput)
|
||||
TV1: TcxGridDBTableView;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
cxGrid1: TcxGrid;
|
||||
V1Code: TcxGridDBColumn;
|
||||
V1Name: TcxGridDBColumn;
|
||||
ToolBar1: TToolBar;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
ClientDataSet1: TClientDataSet;
|
||||
TBAdd: TToolButton;
|
||||
TBSave: TToolButton;
|
||||
TBDel: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ToolButton1: TToolButton;
|
||||
TBEdit: TToolButton;
|
||||
V1Note: TcxGridDBColumn;
|
||||
V1OrderNo: TcxGridDBColumn;
|
||||
ADOConnection1: TADOConnection;
|
||||
Panel1: TPanel;
|
||||
Label1: TLabel;
|
||||
ZDYName: TcxTextEdit;
|
||||
ThreeImgList: TImageList;
|
||||
Label2: TLabel;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
V1ZdyFlag: TcxGridDBColumn;
|
||||
V1HelpType: TcxGridDBColumn;
|
||||
V1note1: TcxGridDBColumn;
|
||||
ImageList1: TImageList;
|
||||
V1ZdyFlt1: TcxGridDBColumn;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBAddClick(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
procedure TBDelClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure TBEditClick(Sender: TObject);
|
||||
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
|
||||
procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
|
||||
procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure ZDYNamePropertiesChange(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
flag, flagname, snote, MainType: string;
|
||||
fnote, forderno, fZdyFlag, ViewFlag, fnote1, FHelpType,FZdyFlt1: Boolean;
|
||||
PPSTE: integer;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmZDYHelp_P: TfrmZDYHelp_P;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmZDYHelp_P.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
with ADOConnection1 do
|
||||
begin
|
||||
Connected := false;
|
||||
ConnectionString := DConString;
|
||||
Connected := true;
|
||||
end;
|
||||
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
|
||||
ZDYName.SetFocus;
|
||||
|
||||
Action := cahide;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''' + flag + '''');
|
||||
if Trim(MainType) <> '' then
|
||||
begin
|
||||
sql.Add(' and A.MainType=''' + Trim(MainType) + '''');
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, ClientDataSet1);
|
||||
SInitCDSData(ADOQueryMain, ClientDataSet1);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.TBAddClick(Sender: TObject);
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
ZDYName.SetFocus;
|
||||
TV1.OptionsData.Editing := True;
|
||||
TV1.OptionsSelection.CellSelect := True;
|
||||
for i := 0 to 5 do
|
||||
begin
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
Append;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.TBSaveClick(Sender: TObject);
|
||||
var
|
||||
maxno: string;
|
||||
begin
|
||||
if ClientDataSet1.IsEmpty then
|
||||
Exit;
|
||||
ZDYName.SetFocus;
|
||||
|
||||
if ClientDataSet1.Locate('ZDYName', null, []) then
|
||||
begin
|
||||
Application.MessageBox('名称不能为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if ClientDataSet1.Locate('ZDYName', '', []) then
|
||||
begin
|
||||
Application.MessageBox('名称不能为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
|
||||
open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from KH_ZDY where 1=2');
|
||||
open;
|
||||
ADOQueryCmd.Append;
|
||||
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
|
||||
ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
|
||||
ADOQueryCmd.FieldByName('Type').Value := 'Main';
|
||||
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
|
||||
ADOQueryCmd.Post;
|
||||
{ sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
|
||||
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
|
||||
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
|
||||
Parameters.ParamByName('Type').Value:='Main';
|
||||
Parameters.ParamByName('MainType').Value:=Trim(MainType);
|
||||
ExecSQL; }
|
||||
end;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
ClientDataSet1.DisableControls;
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('取最大编号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
|
||||
if Trim(MainType) <> '' then
|
||||
SQL.Add(' and MainType=''' + Trim(MainType) + '''');
|
||||
sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty = False then
|
||||
begin
|
||||
if ADOQueryTemp.RecordCount > 1 then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('名称重复！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('名称重复！', '提示', 0);
|
||||
Exit;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('名称重复！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from KH_ZDY where 1<>1');
|
||||
Open;
|
||||
end;
|
||||
ADOQueryCmd.Append;
|
||||
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
|
||||
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').Value;
|
||||
ADOQueryCmd.FieldByName('note').Value := Trim(snote);
|
||||
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
|
||||
ADOQueryCmd.FieldByName('Type').Value := flag;
|
||||
ADOQueryCmd.FieldByName('valid').Value := 'Y';
|
||||
if Trim(MainType) <> '' then
|
||||
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
|
||||
//ADOQueryCmd.FieldByName('sel').Value:=0;
|
||||
ADOQueryCmd.Post;
|
||||
ClientDataSet1.Edit;
|
||||
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
|
||||
ClientDataSet1.Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
ClientDataSet1.EnableControls;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
Application.MessageBox('保存成功！', '提示', 0);
|
||||
TV1.OptionsData.Editing := False;
|
||||
TV1.OptionsSelection.CellSelect := False;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存失败！', '提示', 0);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.TBDelClick(Sender: TObject);
|
||||
begin
|
||||
if ClientDataSet1.IsEmpty then
|
||||
Exit;
|
||||
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString) <> '') or (Trim(ClientDataSet1.FieldByName('ZDYname').AsString) <> '') then
|
||||
begin
|
||||
if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
|
||||
exit;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete KH_ZDY where ZDYNo=''' + Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString) + '''');
|
||||
SQL.Add(' and Type=''' + Trim(flag) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
ClientDataSet1.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 2;
|
||||
ZDYName.SetFocus;
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.FormShow(Sender: TObject);
|
||||
var
|
||||
fsj, fsj1: string;
|
||||
begin
|
||||
// inherited;
|
||||
|
||||
InitGrid();
|
||||
fsj := Trim(flag) + '01';
|
||||
fsj1 := Trim(flagname) + '01';
|
||||
|
||||
ReadCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
|
||||
frmZDYHelp_P.Caption := Trim(flagname);
|
||||
V1Note.Visible := fnote;
|
||||
V1ZdyFlag.Visible := fZdyFlag;
|
||||
V1OrderNo.Visible := forderno;
|
||||
v1note1.Visible := fnote1;
|
||||
V1HelpType.Visible := fhelpType;
|
||||
// V1ZdyFlt1.Visible := fZdyFlt1;
|
||||
if ViewFlag = True then
|
||||
begin
|
||||
TBAdd.Visible := False;
|
||||
TBSave.Visible := False;
|
||||
TBDel.Visible := False;
|
||||
TBEdit.Visible := False;
|
||||
Label2.Visible := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
ZDYName.SetFocus;
|
||||
// WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.TBEditClick(Sender: TObject);
|
||||
begin
|
||||
TV1.OptionsData.Editing := True;
|
||||
TV1.OptionsSelection.CellSelect := True;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
if TV1.OptionsData.Editing = False then
|
||||
begin
|
||||
ModalResult := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.ZDYNamePropertiesChange(Sender: TObject);
|
||||
var
|
||||
fsj: string;
|
||||
begin
|
||||
if Trim(ZDYName.Text) <> '' then
|
||||
begin
|
||||
fsj := ' zdyname like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or Note like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or ZJM like ''' + '%' + Trim(ZDYName.Text) + '%' + '''';
|
||||
end;
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain, fsj);
|
||||
SCreateCDS(ADOQueryMain, ClientDataSet1);
|
||||
SInitCDSData(ADOQueryMain, ClientDataSet1);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.V1NamePropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
maxno, mvalue: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
if Trim(mvalue) = '' then
|
||||
begin
|
||||
//Application.MessageBox('名称不能为空！','提示',0);
|
||||
Exit;
|
||||
end;
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('ZdyName').Value := Trim(mvalue);
|
||||
//Post;
|
||||
end;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
|
||||
open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from KH_ZDY where 1=2');
|
||||
open;
|
||||
ADOQueryCmd.Append;
|
||||
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
|
||||
ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
|
||||
ADOQueryCmd.FieldByName('Type').Value := 'Main';
|
||||
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
|
||||
ADOQueryCmd.Post;
|
||||
end;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
//ClientDataSet1.DisableControls;
|
||||
//with ClientDataSet1 do
|
||||
//begin
|
||||
//First;
|
||||
//while not eof do
|
||||
//begin
|
||||
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
//ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('取最大编号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
|
||||
if Trim(MainType) <> '' then
|
||||
SQL.Add(' and MainType=''' + Trim(MainType) + '''');
|
||||
sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
|
||||
sql.Add(' and note=''' + Trim(ClientDataSet1.fieldbyname('note').AsString) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty = False then
|
||||
begin
|
||||
if ADOQueryTemp.RecordCount > 1 then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
|
||||
//ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('名称重复！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
//ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('名称重复！', '提示', 0);
|
||||
Exit;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
//ClientDataSet1.EnableControls;
|
||||
Application.MessageBox('名称重复！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from KH_ZDY where 1<>1');
|
||||
Open;
|
||||
end;
|
||||
ADOQueryCmd.Append;
|
||||
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
|
||||
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').AsString;
|
||||
ADOQueryCmd.FieldByName('note').Value := Trim(snote);
|
||||
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
|
||||
ADOQueryCmd.FieldByName('Type').Value := flag;
|
||||
ADOQueryCmd.FieldByName('valid').Value := 'Y';
|
||||
if Trim(MainType) <> '' then
|
||||
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
|
||||
//ADOQueryCmd.FieldByName('sel').Value:=0;
|
||||
ADOQueryCmd.Post;
|
||||
ClientDataSet1.Edit;
|
||||
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
|
||||
//ClientDataSet1.Post;
|
||||
// Next;
|
||||
//end;
|
||||
//end;
|
||||
// ClientDataSet1.EnableControls;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
//Application.MessageBox('保存成功！','提示',0);
|
||||
//TV1.OptionsData.Editing:=False;
|
||||
//TV1.OptionsSelection.CellSelect:=False;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('保存失败！', '提示', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.V1OrderNoPropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
|
||||
begin
|
||||
Application.MessageBox('名称不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
if Trim(mvalue) = '' then
|
||||
begin
|
||||
mvalue := '0';
|
||||
end;
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('OrderNo').Value := mvalue;
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('Update KH_Zdy Set OrderNo=' + mvalue);
|
||||
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.V1NotePropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
|
||||
begin
|
||||
Application.MessageBox('名称不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
if Trim(mvalue) = '' then
|
||||
begin
|
||||
mvalue := '';
|
||||
end;
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Note').Value := mvalue;
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('Update KH_Zdy Set Note=''' + Trim(mvalue) + '''');
|
||||
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.V1Column1PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
fieldname: string;
|
||||
begin
|
||||
fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||||
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
|
||||
begin
|
||||
Application.MessageBox('名称不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName(fieldname).Value := mvalue;
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('Update KH_Zdy Set ' + fieldname + '=''' + Trim(mvalue) + ''' ');
|
||||
sql.Add('where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.V1HelpTypePropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
|
||||
begin
|
||||
Application.MessageBox('名称不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
if Trim(mvalue) = '' then
|
||||
begin
|
||||
mvalue := '0';
|
||||
end;
|
||||
with ClientDataSet1 do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('HelpType').Value := mvalue;
|
||||
Post;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('Update KH_Zdy Set HelpType=''' + Trim(mvalue) + '''');
|
||||
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmZDYHelp_P.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
WriteCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
|
||||
frmZDYHelp_P := nil;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -10,6 +10,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
|
|||
Font.Name = #23435#20307
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
ExplicitLeft = -247
|
||||
ExplicitWidth = 1422
|
||||
ExplicitHeight = 488
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -92,6 +93,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
|
|||
Height = 411
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
ExplicitTop = 44
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
|
|||
|
|
@ -405,11 +405,33 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmTradeFinishClothOutEdit.ToolButton2Click(Sender: TObject);
|
||||
var
|
||||
FToMainID, FToSubID: string;
|
||||
begin
|
||||
if CDS_Sub.IsEmpty then
|
||||
Exit;
|
||||
OneKeyPost(Tv1, CDS_Sub);
|
||||
if Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName = 'ToOrdNo' then
|
||||
begin
|
||||
FToMainID := CDS_Sub.FieldByName('ToMainID').AsString;
|
||||
FToSubID := CDS_Sub.FieldByName('ToSubID').AsString;
|
||||
|
||||
with CDS_Sub do
|
||||
begin
|
||||
DisableControls;
|
||||
first;
|
||||
while not Eof do
|
||||
begin
|
||||
edit;
|
||||
FieldByName('ToMainID').AsString:= FToMainID;
|
||||
FieldByName('ToSubID').AsString:= FToSubID;
|
||||
post;
|
||||
Next;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeFinishClothOutEdit.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
|
|
@ -481,28 +503,38 @@ begin
|
|||
// FMainID := MainID.Text;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
with CDS_1 do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if CDS_1.fieldbyname('SSel').AsBoolean then
|
||||
begin
|
||||
|
||||
with Self.CDS_Sub do
|
||||
begin
|
||||
FieldByName('ToordNo').Value := CDS_1.fieldbyname('OrderNo').value;
|
||||
FieldByName('ToSubId').Value := CDS_1.fieldbyname('SubId').value;
|
||||
FieldByName('ToMainId').Value := CDS_1.fieldbyname('MainId').value;
|
||||
|
||||
// FieldByName('ToOrdNo').Value := frmTradeFinishClothStkSel.CDS_Main.fieldbyname('FromOrdNo').Value;
|
||||
// FieldByName('ToMainId').Value := frmTradeFinishClothStkSel.CDS_Main.fieldbyname('FromMainId').Value;
|
||||
// FieldByName('ToSubId').Value := frmTradeFinishClothStkSel.CDS_Main.fieldbyname('FromSubId').Value;
|
||||
end;
|
||||
end;
|
||||
|
||||
Next;
|
||||
end;
|
||||
Edit;
|
||||
FieldByName('ToOrdNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
|
||||
FieldByName('ToMainId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
|
||||
FieldByName('ToSubId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
|
||||
end;
|
||||
// with CDS_1 do
|
||||
// begin
|
||||
// First;
|
||||
// while not Eof do
|
||||
// begin
|
||||
// if CDS_1.fieldbyname('SSel').AsBoolean then
|
||||
// begin
|
||||
// with Self.CDS_Sub do
|
||||
// begin
|
||||
// Edit;
|
||||
// FieldByName('ToordNo').Value := CDS_1.fieldbyname('OrderNo').value;
|
||||
// FieldByName('ToSubId').Value := CDS_1.fieldbyname('SubId').value;
|
||||
// FieldByName('ToMainId').Value := CDS_1.fieldbyname('MainId').value;
|
||||
// Post;
|
||||
//// FieldByName('ToOrdNo').Value := frmTradeFinishClothStkSel.CDS_Main.fieldbyname('FromOrdNo').Value;
|
||||
//// FieldByName('ToMainId').Value := frmTradeFinishClothStkSel.CDS_Main.fieldbyname('FromMainId').Value;
|
||||
//// FieldByName('ToSubId').Value := frmTradeFinishClothStkSel.CDS_Main.fieldbyname('FromSubId').Value;
|
||||
// end;
|
||||
// end;
|
||||
// CDS_1.Edit;
|
||||
// CDS_1.fieldbyname('SSel').value := false;
|
||||
// Next;
|
||||
// end;
|
||||
// end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
|
|||
|
|
@ -4,7 +4,6 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
|
|||
Caption = #20837#24211#21015#34920
|
||||
ClientHeight = 478
|
||||
ClientWidth = 1284
|
||||
ExplicitLeft = -85
|
||||
ExplicitWidth = 1300
|
||||
ExplicitHeight = 517
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -128,6 +127,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
|
|||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 32
|
||||
object Label1: TLabel
|
||||
Left = 28
|
||||
Top = 12
|
||||
|
|
@ -184,6 +184,20 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
|
|||
Height = 12
|
||||
Caption = #25209' '#21495
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 660
|
||||
Top = 12
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #35745#21010#21333#21495
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 660
|
||||
Top = 37
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #23458#25143#21333#21495
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 77
|
||||
Top = 8
|
||||
|
|
@ -265,6 +279,24 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
|
|||
TabOrder = 7
|
||||
OnChange = FromCoNameChange
|
||||
end
|
||||
object FromOrdNo: TEdit
|
||||
Tag = 2
|
||||
Left = 710
|
||||
Top = 8
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = FromCoNameChange
|
||||
end
|
||||
object BuyConNo: TEdit
|
||||
Tag = 2
|
||||
Left = 710
|
||||
Top = 33
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 9
|
||||
OnChange = FromCoNameChange
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
|
|
@ -273,7 +305,6 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
|
|||
Height = 382
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 97
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -86,6 +86,10 @@ type
|
|||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
ToolButton3: TToolButton;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
FromOrdNo: TEdit;
|
||||
BuyConNo: TEdit;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -277,8 +277,6 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
|
|||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
ExplicitLeft = -2
|
||||
ExplicitTop = 97
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -610,7 +608,6 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
|
|||
BevelInner = bvLowered
|
||||
BorderStyle = bsNone
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -270,8 +270,8 @@ begin
|
|||
while CDS_Main.Locate('SSel', True, []) do
|
||||
begin
|
||||
|
||||
MBCIOID := MBCIOID + ',' + QuotedStr(Trim(CDS_Main.fieldbyname('BCIOID').AsString));
|
||||
|
||||
// MBCIOID := MBCIOID + ',' + QuotedStr(Trim(CDS_Main.fieldbyname('BCIOID').AsString));
|
||||
MBCIOID := MBCIOID + ',' + Trim(CDS_Main.fieldbyname('BCIOID').AsString);
|
||||
Edit;
|
||||
FieldByName('SSel').Value := False;
|
||||
Post;
|
||||
|
|
|
|||
|
|
@ -397,6 +397,13 @@ inherited frmTradeSampleClothOutEdit: TfrmTradeSampleClothOutEdit
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'StkPosition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 69
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
|
|||
|
|
@ -60,6 +60,7 @@ type
|
|||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBAddClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -152,7 +153,7 @@ begin
|
|||
FieldByName('C_Composition').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Composition').Value;
|
||||
FieldByName('C_StyleNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_StyleNo').Value;
|
||||
FieldByName('CBPrice').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('CBPrice').Value;
|
||||
// FieldByName('CBMoney').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('CBMoney').Value;
|
||||
FieldByName('StkPosition').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkPosition').Value;
|
||||
end;
|
||||
frmTradeSampleClothStkSel.CDS_Main.Delete;
|
||||
end;
|
||||
|
|
@ -369,11 +370,11 @@ begin
|
|||
Application.MessageBox('加工出库的数据流程卡号不能为空!','提示',0);
|
||||
Exit;
|
||||
end; }
|
||||
if CDS_Sub.Locate('Piece', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('匹数不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
// if CDS_Sub.Locate('Piece', null, []) = True then
|
||||
// begin
|
||||
// Application.MessageBox('匹数不能为空!', '提示', 0);
|
||||
// Exit;
|
||||
// end;
|
||||
if CDS_Sub.Locate('Qty', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('数量不能为空!', '提示', 0);
|
||||
|
|
|
|||
|
|
@ -64,16 +64,24 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
|
|||
ImageIndex = 21
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
object ToolButton3: TToolButton
|
||||
Left = 284
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26631#31614#25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
Left = 379
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 3
|
||||
OnClick = TBEditClick
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
Left = 355
|
||||
Left = 450
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
|
|
@ -81,7 +89,7 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
|
|||
OnClick = TBDelClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 426
|
||||
Left = 521
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
|
|
@ -89,7 +97,7 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
|
|||
OnClick = TBExportClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 497
|
||||
Left = 592
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -97,13 +105,29 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 592
|
||||
Left = 687
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 758
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21098#26679
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 829
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#21098#26679
|
||||
ImageIndex = 11
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel [1]
|
||||
Left = 0
|
||||
|
|
@ -287,9 +311,9 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
|
|||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 99
|
||||
Top = 118
|
||||
Width = 1540
|
||||
Height = 438
|
||||
Height = 419
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
|
|
@ -663,11 +687,36 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'StkPosition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl [3]
|
||||
Left = 0
|
||||
Top = 99
|
||||
Width = 1540
|
||||
Height = 19
|
||||
Align = alTop
|
||||
TabOrder = 3
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#21098#26679
|
||||
#24050#21098#26679
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
Left = 265
|
||||
|
|
|
|||
|
|
@ -95,6 +95,11 @@ type
|
|||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
ToolButton3: TToolButton;
|
||||
cxTabControl1: TcxTabControl;
|
||||
ToolButton4: TToolButton;
|
||||
ToolButton5: TToolButton;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -114,9 +119,13 @@ type
|
|||
procedure cxTabControl1Change(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
private
|
||||
canshu1, canshu2: string;
|
||||
procedure InitGrid();
|
||||
procedure SetStatus();
|
||||
{ Private declarations }
|
||||
public
|
||||
FFSPID, FstkName: string;
|
||||
|
|
@ -148,6 +157,31 @@ begin
|
|||
BegDate.DateTime := EndDate.DateTime - 90;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeSampleClothOutList.SetStatus();
|
||||
begin
|
||||
ToolButton4.Enabled := False;
|
||||
ToolButton5.Enabled := False;
|
||||
TBAdd.Enabled := False;
|
||||
TBEdit.Enabled := False;
|
||||
TBDel.Enabled := False;
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
|
||||
ToolButton4.Enabled := True;
|
||||
TBAdd.Enabled := True;
|
||||
TBEdit.Enabled := True;
|
||||
TBDel.Enabled := True;
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
ToolButton5.Enabled := True;
|
||||
// ToolButton4.Enabled := False;
|
||||
end;
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeSampleClothOutList.InitGrid();
|
||||
begin
|
||||
try
|
||||
|
|
@ -157,12 +191,22 @@ begin
|
|||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' select A.* ');
|
||||
sql.Add(' select A.*,BCIID=(select BCIID from BS_Cloth_Info X where X.C_Code=A.C_Code) ');
|
||||
sql.Add(' from BS_Cloth_IO A');
|
||||
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
|
||||
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
|
||||
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
|
||||
SQL.Add(' and ioFlag=''³ö¿â'' ');
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
SQL.Add(' and ISNULL(JYFlag,''未剪样'')=''未剪样'' ');
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
SQL.Add(' and ISNULL(JYFlag,''未剪样'')=''已剪样'' ');
|
||||
end;
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_Main);
|
||||
|
|
@ -228,6 +272,176 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeSampleClothOutList.ToolButton3Click(Sender: TObject);
|
||||
var
|
||||
MBCIID: string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
MBCIID := '';
|
||||
CDS_Main.DisableControls;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while CDS_Main.Locate('SSel', True, []) do
|
||||
begin
|
||||
|
||||
if MBCIID <> '' then
|
||||
begin
|
||||
MBCIID := MBCIID + ',' + quotedstr(Trim(CDS_Main.fieldbyname('BCIID').AsString));
|
||||
end
|
||||
else
|
||||
begin
|
||||
MBCIID := quotedstr(Trim(CDS_Main.fieldbyname('BCIID').AsString));
|
||||
end;
|
||||
|
||||
Edit;
|
||||
FieldByName('SSel').Value := False;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
CDS_Main.EnableControls;
|
||||
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'ClothInfoPrint';
|
||||
FFiltration1 := MBCIID;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeSampleClothOutList.ToolButton4Click(Sender: TObject);
|
||||
var
|
||||
MBCIOIDS: string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
exit;
|
||||
// MBCIOIDS := MBCIOIDS + CDS_Main.fieldbyname('BCIOID').AsString + ',';
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
MBCIOIDS := '';
|
||||
CDS_Main.DisableControls;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while CDS_Main.Locate('SSel', True, []) do
|
||||
begin
|
||||
|
||||
MBCIOIDS := MBCIOIDS + ',' + Trim(CDS_Main.fieldbyname('BCIOID').AsString);
|
||||
CDS_Main.Delete;
|
||||
end;
|
||||
end;
|
||||
CDS_Main.EnableControls;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' exec P_BS_Cloth_SetStatus ');
|
||||
sql.Add(' @BCIOIDS=' + QuotedStr(MBCIOIDS));
|
||||
sql.Add(',@Operation=''剪样'' ');
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('样品出库剪样')));
|
||||
sql.Add(',' + quotedstr(trim('出库ID：' + trim(MBCIOIDS))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
application.MessageBox('剪样成功', '提示');
|
||||
InitGrid();
|
||||
except
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeSampleClothOutList.ToolButton5Click(Sender: TObject);
|
||||
var
|
||||
MBCIOIDS: string;
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
exit;
|
||||
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
MBCIOIDS := '';
|
||||
CDS_Main.DisableControls;
|
||||
with CDS_Main do
|
||||
begin
|
||||
First;
|
||||
while CDS_Main.Locate('SSel', True, []) do
|
||||
begin
|
||||
|
||||
MBCIOIDS := MBCIOIDS + ',' + Trim(CDS_Main.fieldbyname('BCIOID').AsString);
|
||||
CDS_Main.Delete;
|
||||
end;
|
||||
end;
|
||||
CDS_Main.EnableControls;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' exec P_BS_Cloth_SetStatus ');
|
||||
sql.Add(' @BCIOIDS=' + QuotedStr(MBCIOIDS));
|
||||
sql.Add(',@Operation=''撤销剪样'' ');
|
||||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('样品出库撤销剪样')));
|
||||
sql.Add(',' + quotedstr(trim('出库ID：' + trim(MBCIOIDS))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
application.MessageBox('撤销剪样成功', '提示');
|
||||
InitGrid();
|
||||
except
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeSampleClothOutList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
|
|
@ -246,6 +460,7 @@ procedure TfrmTradeSampleClothOutList.FormShow(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
ReadCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
|
||||
setStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
|
|
@ -440,6 +655,7 @@ end;
|
|||
|
||||
procedure TfrmTradeSampleClothOutList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -27,7 +27,9 @@ uses
|
|||
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
|
||||
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
||||
U_TradePack in 'U_TradePack.pas' {frmTradePack},
|
||||
U_TradeClothWaitPack in 'U_TradeClothWaitPack.pas' {frmTradeClothWaitPack};
|
||||
U_TradeClothWaitPack in 'U_TradeClothWaitPack.pas' {frmTradeClothWaitPack},
|
||||
U_TradeClothDefectiveList in 'U_TradeClothDefectiveList.pas' {frmTradeClothDefectiveList},
|
||||
U_ProcessTypeEdit in 'U_ProcessTypeEdit.pas' {frmProcessEdit};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -193,6 +193,14 @@
|
|||
<Form>frmTradeClothWaitPack</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TradeClothDefectiveList.pas">
|
||||
<Form>frmTradeClothDefectiveList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_ProcessTypeEdit.pas">
|
||||
<Form>frmProcessEdit</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -2,38 +2,40 @@
|
|||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.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.966,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradePack.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.453,=D:\Dp10Repo\项目代码\D10myBiaoqi\T03贸易布匹检验\U_TradeClothDefectiveList.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.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.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.966,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradePack.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.589,=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.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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.136,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.888,=D:\Dp10Repo\项目代码\D10myBiaoqi\T03贸易布匹检验\U_ProcessTypeEdit.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.174,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradeClothWaitPack.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
</Transactions>
|
||||
|
|
@ -109,5 +111,9 @@
|
|||
<File Path="U_TradePack.dfm"/>
|
||||
<File Path="U_TradeClothWaitPack.pas"/>
|
||||
<File Path="U_TradeClothWaitPack.dfm"/>
|
||||
<File Path="U_TradeClothDefectiveList.pas"/>
|
||||
<File Path="U_TradeClothDefectiveList.dfm"/>
|
||||
<File Path="U_ProcessTypeEdit.pas"/>
|
||||
<File Path="U_ProcessTypeEdit.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,5 +1,5 @@
|
|||
[ExpressSkins]
|
||||
Default=0
|
||||
Default=1
|
||||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinBasic=1
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_iniParam, U_TradeMachInsp, U_TradePack, U_TradeClothInspList;
|
||||
U_DataLink, U_iniParam, U_TradeMachInsp, U_TradePack, U_TradeClothInspList,U_TradeClothDefectiveList;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -161,6 +161,18 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
311: //´ÎÆ·ÐÅÏ¢¹ÜÀí
|
||||
begin
|
||||
with TfrmTradeClothDefectiveList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
10000:
|
||||
begin
|
||||
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
||||
|
|
|
|||
87
T03贸易布匹检验/U_ProcessTypeEdit.dfm
Normal file
87
T03贸易布匹检验/U_ProcessTypeEdit.dfm
Normal file
|
|
@ -0,0 +1,87 @@
|
|||
object frmProcessEdit: TfrmProcessEdit
|
||||
Left = 682
|
||||
Top = 315
|
||||
Caption = #24212#25910#21333#20215#20462#25913
|
||||
ClientHeight = 127
|
||||
ClientWidth = 330
|
||||
Color = clWhite
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 330
|
||||
Height = 127
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
330
|
||||
127)
|
||||
object Label1: TLabel
|
||||
Left = 20
|
||||
Top = 40
|
||||
Width = 55
|
||||
Height = 13
|
||||
Anchors = []
|
||||
AutoSize = False
|
||||
Caption = #22788#29702#24773#20917
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 208
|
||||
Top = 38
|
||||
Width = 75
|
||||
Height = 21
|
||||
Caption = #30830#35748
|
||||
TabOrder = 0
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 208
|
||||
Top = 76
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #20851#38381
|
||||
TabOrder = 1
|
||||
OnClick = Button2Click
|
||||
end
|
||||
object ProcessType: TComboBox
|
||||
Left = 81
|
||||
Top = 37
|
||||
Width = 97
|
||||
Height = 21
|
||||
ItemIndex = 0
|
||||
TabOrder = 2
|
||||
Text = #25439#32791
|
||||
Items.Strings = (
|
||||
#25439#32791
|
||||
#32034#36180)
|
||||
end
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeInsp.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 293
|
||||
Top = 373
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeInsp.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 197
|
||||
Top = 373
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeInsp.ADOLink
|
||||
Parameters = <>
|
||||
Left = 101
|
||||
Top = 373
|
||||
end
|
||||
end
|
||||
67
T03贸易布匹检验/U_ProcessTypeEdit.pas
Normal file
67
T03贸易布匹检验/U_ProcessTypeEdit.pas
Normal file
|
|
@ -0,0 +1,67 @@
|
|||
unit U_ProcessTypeEdit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, Vcl.DBCtrls;
|
||||
|
||||
type
|
||||
TfrmProcessEdit = class(TForm)
|
||||
Panel1: TPanel;
|
||||
Button1: TButton;
|
||||
Label1: TLabel;
|
||||
Button2: TButton;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ProcessType: TComboBox;
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
FFFIDS: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmProcessEdit: TfrmProcessEdit;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmProcessEdit.Button2Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmProcessEdit.Button1Click(Sender: TObject);
|
||||
begin
|
||||
if ProcessType.Text = '' then
|
||||
begin
|
||||
Application.MessageBox('请选择处理情况!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' update Trade_Cloth_Inspect ');
|
||||
sql.Add(' set ProcessType=' + QuotedStr(ProcessType.Text));
|
||||
sql.Add(' where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFIDS) + ','','') X where X.RTValue=Trade_Cloth_Inspect.CIID) ');
|
||||
// showmessage(sql.text);
|
||||
ExecSQL;
|
||||
end;
|
||||
ModalResult := 1;
|
||||
except
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
1141
T03贸易布匹检验/U_TradeClothDefectiveList.dfm
Normal file
1141
T03贸易布匹检验/U_TradeClothDefectiveList.dfm
Normal file
File diff suppressed because it is too large
Load Diff
919
T03贸易布匹检验/U_TradeClothDefectiveList.pas
Normal file
919
T03贸易布匹检验/U_TradeClothDefectiveList.pas
Normal file
|
|
@ -0,0 +1,919 @@
|
|||
unit U_TradeClothDefectiveList;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
||||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||
cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic,
|
||||
RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
|
||||
RM_RichEdit, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
||||
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
||||
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
||||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||||
dxSkinXmas2008Blue, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmTradeClothDefectiveList = class(TfrmBaseList)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DS_1: TDataSource;
|
||||
Label3: TLabel;
|
||||
OrderNo: TEdit;
|
||||
TBExport: TToolButton;
|
||||
Order_Main: TClientDataSet;
|
||||
BuyConNo: TEdit;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label10: TLabel;
|
||||
Label4: TLabel;
|
||||
Grade: TComboBox;
|
||||
Label5: TLabel;
|
||||
C_Name: TEdit;
|
||||
Label6: TLabel;
|
||||
CIIOFlag: TComboBox;
|
||||
Filler: TComboBox;
|
||||
btnEdit: TToolButton;
|
||||
TBZF: TToolButton;
|
||||
btnJBQ: TToolButton;
|
||||
RM1: TRMGridReport;
|
||||
RMDB_1: TRMDBDataSet;
|
||||
ADOQueryPrint: TADOQuery;
|
||||
MovePanel2: TMovePanel;
|
||||
C_Color: TEdit;
|
||||
IsJYTime: TCheckBox;
|
||||
lbl1: TLabel;
|
||||
BCIOID: TEdit;
|
||||
btnJYBG: TToolButton;
|
||||
Label16: TLabel;
|
||||
CIMachNo: TEdit;
|
||||
Label20: TLabel;
|
||||
C_Pattern: TEdit;
|
||||
Label23: TLabel;
|
||||
C_Code: TEdit;
|
||||
Label1: TLabel;
|
||||
FtyPCId: TEdit;
|
||||
ToolButton1: TToolButton;
|
||||
PM_1: TPopupMenu;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column22: TcxGridDBColumn;
|
||||
v1Column21: TcxGridDBColumn;
|
||||
v1Column32: TcxGridDBColumn;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
v1Column13: TcxGridDBColumn;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column7: TcxGridDBColumn;
|
||||
v1Column17: TcxGridDBColumn;
|
||||
v1Column18: TcxGridDBColumn;
|
||||
v1Column23: TcxGridDBColumn;
|
||||
v1Column8: TcxGridDBColumn;
|
||||
v1Column27: TcxGridDBColumn;
|
||||
v1Column28: TcxGridDBColumn;
|
||||
v1Column10: TcxGridDBColumn;
|
||||
v1Column20: TcxGridDBColumn;
|
||||
v1Column14: TcxGridDBColumn;
|
||||
v1Column12: TcxGridDBColumn;
|
||||
v1Column9: TcxGridDBColumn;
|
||||
v1Column42: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1MKXS: TcxGridDBColumn;
|
||||
v1Column34: TcxGridDBColumn;
|
||||
v1Column40: TcxGridDBColumn;
|
||||
v1Column46: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
Panel6: TPanel;
|
||||
Label31: TLabel;
|
||||
LBCPAP: TLabel;
|
||||
BTLP: TButton;
|
||||
BTNP: TButton;
|
||||
TCBNOR: TComboBox;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
N2: TMenuItem;
|
||||
N3: TMenuItem;
|
||||
N4: TMenuItem;
|
||||
ToolButton2: TToolButton;
|
||||
RMRichObject1: TRMRichObject;
|
||||
RMRichObject2: TRMRichObject;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
cxTabControl1: TcxTabControl;
|
||||
ToolButton3: TToolButton;
|
||||
ToolButton4: TToolButton;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure btnEditClick(Sender: TObject);
|
||||
procedure TBZFClick(Sender: TObject);
|
||||
procedure btnJBQClick(Sender: TObject);
|
||||
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure BTLPClick(Sender: TObject);
|
||||
procedure BTNPClick(Sender: TObject);
|
||||
procedure TCBNORChange(Sender: TObject);
|
||||
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure BuyConNoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure CIIOFlagChange(Sender: TObject);
|
||||
procedure GradeChange(Sender: TObject);
|
||||
procedure KHConNOKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure RKOrdIDKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure btnJYBGClick(Sender: TObject);
|
||||
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
procedure chkZFClick(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure N4Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure N3Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure cxTabControl1Change(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
FLeft, FTop: Integer;
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
procedure InitGrid();
|
||||
function Savedata(): Boolean;
|
||||
procedure SetStatus();
|
||||
procedure PrintCKMDG(MRKOrdID: string);
|
||||
{ Private declarations }
|
||||
public
|
||||
FFInt: Integer;
|
||||
canshu1: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_TradeInspEdit, U_ZDYHelp, U_LabelPrint,
|
||||
U_ProcessTypeEdit;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.SetStatus();
|
||||
begin
|
||||
// btnEdit.Enabled := False;
|
||||
// TBZF.Enabled := False;
|
||||
// btnHY.Enabled := False;
|
||||
// btnJBQ.Enabled := False;
|
||||
// btnJYBG.Enabled := False;
|
||||
//
|
||||
// btnEdit.Enabled := True;
|
||||
// TBZF.Enabled := True;
|
||||
// btnJBQ.Enabled := True;
|
||||
// btnJYBG.Enabled := True;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cxgrid1.Align := alClient;
|
||||
DQdate := SGetServerDate(ADOQueryTemp);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then
|
||||
Exit;
|
||||
TcxGridToExcel(self.Caption, cxgrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.PrintCKMDG(MRKOrdID: string);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.InitGrid();
|
||||
var
|
||||
WSql: string;
|
||||
begin
|
||||
MovePanel2.Left := (self.Width - MovePanel2.Width) div 2;
|
||||
MovePanel2.Visible := True;
|
||||
MovePanel2.Refresh;
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
if trim(WSql) <> '' then
|
||||
begin
|
||||
WSql := ' and ' + trim(WSql);
|
||||
end;
|
||||
|
||||
case CxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
ToolButton3.visible := True;
|
||||
ToolButton4.visible := False;
|
||||
WSql := WSql + 'and ISNULL(ProcessType,''未处理'')=''未处理'' ';
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
ToolButton4.visible := True;
|
||||
ToolButton3.visible := False;
|
||||
if IsJYTime.Checked then
|
||||
begin
|
||||
WSql := WSql + ' and Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
WSql := WSql + ' and ISNULL(ProcessType,''未处理'') in (''损耗'',''索赔'') ';
|
||||
end;
|
||||
2:
|
||||
begin
|
||||
ToolButton3.visible := False;
|
||||
ToolButton4.visible := False;
|
||||
WSql := WSql + ' and Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
end;
|
||||
|
||||
// if IsJYTime.Checked then
|
||||
// begin
|
||||
// WSql := WSql + ' and Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
// WSql := WSql + ' and Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// if trim(WSql) <> '' then
|
||||
// WSql := ' and 1=1' + trim(WSql)
|
||||
// else
|
||||
// WSql := WSql + ' and 1=2 ';
|
||||
// end;
|
||||
// if trim(WSql) = 'and 1=2' then
|
||||
// Application.MessageBox('勾选检验日期或填入搜索条件', '提示', 0);
|
||||
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('exec P_Trade_Insp_Get_Page2 ');
|
||||
sql.Add('@pageIndex=' + inttostr(CurrentPage));
|
||||
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||
sql.Add(',@criteria= ' + quotedstr(WSql));
|
||||
// showmessage(SQL.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, Order_Main);
|
||||
SInitCDSData(ADOQueryMain, Order_Main);
|
||||
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber));
|
||||
|
||||
MovePanel2.Visible := false;
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
MovePanel2.Visible := false;
|
||||
TV1.DataController.Filter.Clear;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
OrderNo.SetFocus;
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
canshu1 := self.fParameters1;
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, '贸易检验管理');
|
||||
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
BegDate.DateTime := EndDate.DateTime;
|
||||
// fsj := 'select distinct(Filler) name from Trade_Cloth_Inspect ';
|
||||
// SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
|
||||
// Filler.ItemIndex := Filler.Items.IndexOf(trim(DName));
|
||||
|
||||
|
||||
InitGrid();
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft := X;
|
||||
FTop := Y;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.btnEditClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Trade_Cloth_IO where IOFlag=''入库'' and stkid=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty = False then
|
||||
begin
|
||||
Order_Main.EnableControls;
|
||||
Application.MessageBox('已产生入库数据不能编辑!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmTradeInspEdit := TfrmTradeInspEdit.Create(Application);
|
||||
with frmTradeInspEdit do
|
||||
begin
|
||||
CIID.Text := Trim(Self.Order_Main.fieldbyname('CIID').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmTradeInspEdit.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.TBZFClick(Sender: TObject);
|
||||
var
|
||||
MCIIDS: string;
|
||||
begin
|
||||
if Order_Main.Locate('ssel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要作废数据吗？作废后数据不能恢复。', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
Order_Main.DisableControls;
|
||||
with Order_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Order_Main.FieldByName('SSel').AsBoolean = True then
|
||||
begin
|
||||
|
||||
MCIIDS := MCIIDS + Trim(Order_Main.fieldbyname('CIID').AsString) + ',';
|
||||
Order_Main.Delete;
|
||||
end
|
||||
else
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Order_Main.EnableControls;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into Trade_Need_Up(UOperation,UType,UDataId) values(''检验'',''检验删除'',' + quotedstr(MCIIDS) + ') ');
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_Trade_Insp_Del ');
|
||||
Sql.Add('@CIIDS=' + quotedstr(Trim(MCIIDS)));
|
||||
Sql.Add(',@DCode=' + Quotedstr(DCode));
|
||||
Sql.Add(',@DName=' + Quotedstr(DName));
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
begin
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
application.MessageBox('删除成功！', '提示信息');
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.btnJBQClick(Sender: TObject);
|
||||
var
|
||||
fPrintFile, FLabVolume: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
Order_Main.DisableControls;
|
||||
with Order_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Order_Main.FieldByName('SSel').AsBoolean = True then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + '''');
|
||||
sql.Add(' where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
||||
with ADOQueryPrint do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' EXEC P_Trade_Insp_Prt_Lab ');
|
||||
SQL.Add(' @CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryPrint.IsEmpty then
|
||||
begin
|
||||
application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = '正品' then
|
||||
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
|
||||
else
|
||||
FLabVolume := '次品标签';
|
||||
|
||||
ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
|
||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
|
||||
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
// if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '次品标签' then
|
||||
// Rm1.DefaultCopies := 2
|
||||
// else
|
||||
Rm1.DefaultCopies := 1;
|
||||
RM1.PrintReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||
end;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Order_Main.EnableControls;
|
||||
end;
|
||||
|
||||
function TfrmTradeClothDefectiveList.Savedata(): Boolean;
|
||||
var
|
||||
maxno, LLID: string;
|
||||
HXPS: Integer;
|
||||
HXQty, HXMQty: Double;
|
||||
begin
|
||||
HXPS := 0;
|
||||
HXQty := 0;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select Top 1 * from Contract_Cloth_LL where OrdSubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
|
||||
sql.Add(' and FirstName=''' + Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) + '''');
|
||||
Open;
|
||||
end;
|
||||
LLID := Trim(ADOQueryTemp.fieldbyname('LLID').AsString);
|
||||
if Trim(LLID) = '' then
|
||||
begin
|
||||
Result := False;
|
||||
Application.MessageBox('没有相对应的加工厂!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
if GetLSNo(ADOQueryCmd, maxno, 'HX', 'Contract_Cloth_BefChkHX', 2, 1) = False then
|
||||
begin
|
||||
Result := False;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取回修最大号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
with Order_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Order_Main.FieldByName('SSel').AsBoolean = True then
|
||||
begin
|
||||
HXPS := HXPS + 1;
|
||||
HXQty := HXQty + Order_Main.FieldByName('MJLen').Value;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('');
|
||||
Open;
|
||||
end;
|
||||
except
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.BTLPClick(Sender: TObject);
|
||||
begin
|
||||
if CurrentPage > 1 then
|
||||
CurrentPage := CurrentPage - 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.BTNPClick(Sender: TObject);
|
||||
begin
|
||||
if CurrentPage < Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber then
|
||||
CurrentPage := CurrentPage + 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.TCBNORChange(Sender: TObject);
|
||||
begin
|
||||
RecordsNumber := StrToInt(TCBNOR.Text);
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(Trim(self.Caption) + 'Tv1', Tv1, '贸易检验管理');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.ToolButton2Click(Sender: TObject);
|
||||
var
|
||||
MStrsql, MStrIn: string;
|
||||
begin
|
||||
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要修改数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
MovePanel2.Visible := True;
|
||||
MovePanel2.Refresh;
|
||||
try
|
||||
Order_Main.DisableControls;
|
||||
with Order_Main do
|
||||
begin
|
||||
MStrsql := '';
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Order_Main.FieldByName('SSel').AsBoolean then
|
||||
begin
|
||||
if MStrsql = '' then
|
||||
MStrsql := Quotedstr(trim(Order_Main.FieldByName('CIID').AsString))
|
||||
else
|
||||
MStrsql := MStrsql + ',' + Quotedstr(trim(Order_Main.FieldByName('CIID').AsString));
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Order_Main.EnableControls;
|
||||
MovePanel2.Visible := False;
|
||||
except
|
||||
MovePanel2.Visible := False;
|
||||
Order_Main.EnableControls;
|
||||
end;
|
||||
|
||||
if InputQuery('批号', '请输入', MStrIn) then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update Trade_Cloth_Inspect Set BatchNO=' + QuotedStr(MStrIn));
|
||||
sql.Add(' where CIID in (' + MStrsql + ')');
|
||||
|
||||
sql.Add('Update Trade_Cloth_Stock Set BatchNO=' + QuotedStr(MStrIn));
|
||||
sql.Add(' where CIID in (' + MStrsql + ')');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
||||
end;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.ToolButton3Click(Sender: TObject);
|
||||
var
|
||||
MFFIDS: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
|
||||
if not Order_Main.Locate('SSel', True, []) then
|
||||
begin
|
||||
application.MessageBox('请选择数据', '提示');
|
||||
Exit;
|
||||
end;
|
||||
//
|
||||
MFFIDS := '';
|
||||
with Order_Main do
|
||||
begin
|
||||
DisableControls;
|
||||
while Order_Main.Locate('SSel', True, []) do
|
||||
begin
|
||||
|
||||
MFFIDS := MFFIDS + ',' + Trim(Order_Main.fieldbyname('CIID').AsString);
|
||||
Order_Main.Delete;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
try
|
||||
frmProcessEdit := TfrmProcessEdit.Create(Application);
|
||||
with frmProcessEdit do
|
||||
begin
|
||||
FFFIDS := MFFIDS;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmProcessEdit.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.ToolButton4Click(Sender: TObject);
|
||||
var
|
||||
MStrsql: string;
|
||||
begin
|
||||
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要撤销处理次品信息吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
MovePanel2.Visible := True;
|
||||
MovePanel2.Refresh;
|
||||
try
|
||||
Order_Main.DisableControls;
|
||||
with Order_Main do
|
||||
begin
|
||||
MStrsql := '';
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Order_Main.FieldByName('SSel').AsBoolean then
|
||||
begin
|
||||
if MStrsql = '' then
|
||||
MStrsql := Quotedstr(trim(Order_Main.FieldByName('CIID').AsString))
|
||||
else
|
||||
MStrsql := MStrsql + ',' + Quotedstr(trim(Order_Main.FieldByName('CIID').AsString));
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Order_Main.EnableControls;
|
||||
MovePanel2.Visible := False;
|
||||
except
|
||||
MovePanel2.Visible := False;
|
||||
Order_Main.EnableControls;
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update Trade_Cloth_Inspect Set ProcessType=''未处理'' ');
|
||||
sql.Add(' where CIID in (' + MStrsql + ')');
|
||||
|
||||
ExecSQL;
|
||||
end;
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.chkZFClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
CurrentPage := 1;
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.BuyConNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.cxPageControl1Change(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
|
||||
TBRafresh.click;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.CIIOFlagChange(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.GradeChange(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.KHConNOKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.N2Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNoFiler(Tv1, True); //全选
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.N3Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNoFiler(Tv1, False); //全弃
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.N4Click(Sender: TObject);
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.RKOrdIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.btnJYBGClick(Sender: TObject);
|
||||
var
|
||||
WSql: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
WSql := '';
|
||||
Order_Main.DisableControls;
|
||||
with Order_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Order_Main.fieldbyname('SSel').AsBoolean then
|
||||
begin
|
||||
if WSql <> '' then
|
||||
begin
|
||||
WSql := WSql + ',' + Trim(Order_Main.fieldbyname('CIID').AsString);
|
||||
end
|
||||
else
|
||||
begin
|
||||
WSql := Trim(Order_Main.fieldbyname('CIID').AsString);
|
||||
end;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Order_Main.Locate('SSel', True, []);
|
||||
Order_Main.EnableControls;
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'TradeInsp';
|
||||
FFiltration1 := WSql;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothDefectiveList.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
|
||||
var
|
||||
FValue: string;
|
||||
FBounds: TRect;
|
||||
begin
|
||||
FBounds := AViewInfo.Bounds;
|
||||
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
|
||||
begin
|
||||
ACanvas.FillRect(FBounds);
|
||||
ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1);
|
||||
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1);
|
||||
InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux.
|
||||
ACanvas.Font.Color := clBlack;
|
||||
ACanvas.Brush.Style := bsClear;
|
||||
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
|
||||
ADone := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -266,6 +266,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
TabOrder = 2
|
||||
object TV1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -293,6 +294,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object TV1Column1: TcxGridDBColumn
|
||||
Caption = #30133#28857
|
||||
DataBinding.FieldName = 'CIFName'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
|
|
@ -306,6 +308,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #30133#28857#21517#31216
|
||||
DataBinding.FieldName = 'CIFName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Focusing = False
|
||||
Options.Sorting = False
|
||||
|
|
@ -314,6 +317,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object cxGridDBColumn3: TcxGridDBColumn
|
||||
Caption = #20301#32622#36215
|
||||
DataBinding.FieldName = 'CIFbeg'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -324,6 +328,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #20301#32622#27490
|
||||
DataBinding.FieldName = 'CIFend'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 79
|
||||
|
|
@ -331,6 +336,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object cxGridDBColumn5: TcxGridDBColumn
|
||||
Caption = #38271#24230
|
||||
DataBinding.FieldName = 'CIFQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
|
|
@ -339,6 +345,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object cxGridDBColumn6: TcxGridDBColumn
|
||||
Caption = #21407#22240
|
||||
DataBinding.FieldName = 'CDReason'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
|
|
@ -346,12 +353,14 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
end
|
||||
object cxGridDBColumn7: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'CDQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
Width = 60
|
||||
end
|
||||
object cxGridDBColumn8: TcxGridDBColumn
|
||||
Caption = #25187#20998
|
||||
DataBinding.FieldName = 'CIFPoints'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 73
|
||||
|
|
@ -359,6 +368,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object cxGridDBColumn9: TcxGridDBColumn
|
||||
Caption = #20010#25968
|
||||
DataBinding.FieldName = 'CIFNumber'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
|
|
@ -366,6 +376,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit
|
|||
object TV1Column2: TcxGridDBColumn
|
||||
Caption = #30133#28857#22791#27880
|
||||
DataBinding.FieldName = 'FwNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 137
|
||||
end
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@ uses
|
|||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
|
||||
cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges;
|
||||
dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmTradeInspEdit = class(TForm)
|
||||
|
|
|
|||
Binary file not shown.
Loading…
Reference in New Issue
Block a user