11
This commit is contained in:
parent
b03d300175
commit
ea8c56c805
|
|
@ -37,7 +37,8 @@ uses
|
|||
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
|
||||
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
|
||||
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
||||
U_BankSel in '..\A00通用窗体\U_BankSel.pas' {frmBankSel};
|
||||
U_BankSel in '..\A00通用窗体\U_BankSel.pas' {frmBankSel},
|
||||
U_finishSalesConInput in 'U_finishSalesConInput.pas' {frmfinishSalesConInput};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -182,6 +182,10 @@
|
|||
<Form>frmBankSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_finishSalesConInput.pas">
|
||||
<Form>frmfinishSalesConInput</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
|||
|
|
@ -1,85 +1,86 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.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.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.441,=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.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.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.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.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.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.556,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>2025/08/12 14:52:54.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10SZKaiXiYa"/>
|
||||
|
|
@ -144,5 +145,7 @@
|
|||
<File Path="U_SalesContractList_XT.dfm"/>
|
||||
<File Path="U_SalesContractList.pas"/>
|
||||
<File Path="U_SalesContractList.dfm"/>
|
||||
<File Path="U_finishSalesConInput.pas"/>
|
||||
<File Path="U_finishSalesConInput.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -16,7 +16,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_iniParam, U_SalesContractList, U_PurchaseContractList,
|
||||
U_SalesContractList_XT;
|
||||
U_SalesContractList_XT,U_finishSalesContractList;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -136,6 +136,18 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
112: //成品销售合同
|
||||
begin
|
||||
with TfrmfinishSalesContractList.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;
|
||||
|
||||
// 112: //订单操作卡
|
||||
// begin
|
||||
// with TfrmSalesContractList_XT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
|
|
|
|||
|
|
@ -14,23 +14,8 @@ uses
|
|||
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,
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
dxSkinOffice2013White,
|
||||
|
||||
|
||||
dxSkinSharpPlus,
|
||||
|
||||
|
||||
|
||||
dxSkinWXI, dxScrollbarAnnotations,
|
||||
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
|
||||
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, dxScrollbarAnnotations,
|
||||
dxCore, cxDateUtils, cxImageList, cxCurrencyEdit;
|
||||
|
||||
type
|
||||
|
|
@ -337,7 +322,6 @@ begin
|
|||
|
||||
|
||||
|
||||
|
||||
// if Order_Sub.Locate('C_MF', null, []) then
|
||||
// raise Exception.Create('门幅不能为空！');
|
||||
// if Order_Sub.Locate('C_MF', '', []) then
|
||||
|
|
@ -644,7 +628,7 @@ begin
|
|||
end;
|
||||
ZiMu := Trim(ADOTemp.fieldbyname('ZiMu').AsString);
|
||||
|
||||
if GetLSNo(ADOTemp, fconNO, fDate, 'BS_Contract_Main', 4, 0) = False then
|
||||
if GetLSNo(ADOTemp, fconNO, fDate, 'BS_Contract_Main', 4, 0) = False then
|
||||
raise Exception.Create('取最合同编号失败！');
|
||||
//
|
||||
// fconNO := Copy(fconNO, 1, 4) + YueRi + Copy(fconNO, 5, 4);
|
||||
|
|
|
|||
538
B01基础合同管理/U_finishSalesConInput.dfm
Normal file
538
B01基础合同管理/U_finishSalesConInput.dfm
Normal file
|
|
@ -0,0 +1,538 @@
|
|||
inherited frmfinishSalesConInput: TfrmfinishSalesConInput
|
||||
Left = 219
|
||||
Top = 76
|
||||
Caption = #38144#21806#21512#21516#24405#20837
|
||||
ClientHeight = 748
|
||||
ClientWidth = 1518
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -16
|
||||
OldCreateOrder = True
|
||||
Position = poScreenCenter
|
||||
WindowState = wsMaximized
|
||||
ExplicitWidth = 1534
|
||||
ExplicitHeight = 787
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1518
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
Caption = 'ToolBar1'
|
||||
Color = clWhite
|
||||
DisabledImages = DataLink_Contract.ImageList_new32
|
||||
Images = DataLink_Contract.cxImageList_bar
|
||||
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
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 174
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object ScrollBox1: TScrollBox [1]
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1518
|
||||
Height = 99
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
BorderStyle = bsNone
|
||||
Color = clWhite
|
||||
Ctl3D = False
|
||||
ParentColor = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 339
|
||||
Top = 65
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #19979#21333#26085#26399#65306
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 40
|
||||
Top = 10
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #21512#21516#21495#65306
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 339
|
||||
Top = 10
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #23458#25143#65306
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 715
|
||||
Top = 413
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #28322#30701#35013#65306
|
||||
Visible = False
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 356
|
||||
Top = 462
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #20132#26399#35828#26126#65306
|
||||
Visible = False
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 53
|
||||
Top = 462
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #20132#36135#26085#26399#65306
|
||||
Visible = False
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 1104
|
||||
Top = 398
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #33136#23553#22823#29260#65306
|
||||
Visible = False
|
||||
end
|
||||
object lblSalesId: TLabel
|
||||
Left = 63
|
||||
Top = 410
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #19994#21153#32534#21495#65306
|
||||
Visible = False
|
||||
end
|
||||
object Label25: TLabel
|
||||
Left = 276
|
||||
Top = 410
|
||||
Width = 80
|
||||
Height = 21
|
||||
Caption = #29702#21333#32534#21495#65306
|
||||
Visible = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 40
|
||||
Top = 62
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #20132#26399#65306
|
||||
end
|
||||
object ConNo: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 114
|
||||
Top = 7
|
||||
TabOrder = 0
|
||||
Text = #33258#21160#29983#25104
|
||||
Width = 200
|
||||
end
|
||||
object PackSeal: TBtnEditC
|
||||
Tag = 2
|
||||
Left = 1180
|
||||
Top = 394
|
||||
Width = 125
|
||||
Height = 30
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object DlyNote: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 431
|
||||
Top = 456
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
Width = 200
|
||||
end
|
||||
object SalesId: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 134
|
||||
Top = 404
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
Width = 125
|
||||
end
|
||||
object TallyId: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 335
|
||||
Top = 401
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
Width = 125
|
||||
end
|
||||
object BuyName: TcxButtonEdit
|
||||
Tag = 2
|
||||
Left = 412
|
||||
Top = 7
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 5
|
||||
Width = 200
|
||||
end
|
||||
object QtyNote: TcxButtonEdit
|
||||
Tag = 2
|
||||
Left = 788
|
||||
Top = 407
|
||||
Hint = 'QtyNoteZW/'#28322#30701#35013
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Style.ButtonStyle = btsDefault
|
||||
TabOrder = 6
|
||||
Visible = False
|
||||
Width = 200
|
||||
end
|
||||
object ConDate: TcxDateEdit
|
||||
Tag = 2
|
||||
Left = 412
|
||||
Top = 59
|
||||
Properties.ShowTime = False
|
||||
TabOrder = 7
|
||||
Width = 200
|
||||
end
|
||||
object DlyDate: TcxDateEdit
|
||||
Tag = 2
|
||||
Left = 114
|
||||
Top = 59
|
||||
Properties.ShowTime = False
|
||||
TabOrder = 8
|
||||
Width = 200
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar [2]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 129
|
||||
Width = 1518
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clBtnFace
|
||||
DisabledImages = DataLink_Contract.ImageList_new32
|
||||
EdgeInner = esNone
|
||||
EdgeOuter = esNone
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_Contract.cxImageList_bar
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 2
|
||||
object ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25209#37327#22686#34892
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 87
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 150
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 6
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [3]
|
||||
Left = 0
|
||||
Top = 159
|
||||
Width = 1518
|
||||
Height = 589
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
PopupMenu = pm_sub
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
end
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsView.ColumnAutoWidth = True
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Tag = 9
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 41
|
||||
end
|
||||
object v1XHNo: TcxGridDBColumn
|
||||
Caption = #24207#21495
|
||||
DataBinding.FieldName = 'SerialNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
Width = 55
|
||||
end
|
||||
object VC_SCSCode: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 79
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 89
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object Tv1density: TcxGridDBColumn
|
||||
Caption = #23494#24230
|
||||
DataBinding.FieldName = 'density'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object Tv1C_WidthUnit: TcxGridDBColumn
|
||||
Caption = #38376#24133#21333#20301
|
||||
DataBinding.FieldName = 'C_WidthUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 89
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'ConQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'ConUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Left = 529
|
||||
Top = 0
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Left = 441
|
||||
Top = 1
|
||||
end
|
||||
inherited ImageList_new32: TImageList
|
||||
Left = 1276
|
||||
Top = 21
|
||||
end
|
||||
inherited cxImageList_bar: TcxImageList
|
||||
FormatVersion = 1
|
||||
Left = 1015
|
||||
Top = 170
|
||||
DesignInfo = 11142135
|
||||
end
|
||||
object ADOTemp: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 728
|
||||
Top = 65533
|
||||
end
|
||||
object ADOCmd: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Parameters = <>
|
||||
Left = 632
|
||||
Top = 65533
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = Order_Sub
|
||||
Left = 695
|
||||
Top = 395
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
IndexFieldNames = 'SerialNo'
|
||||
Params = <>
|
||||
Left = 748
|
||||
Top = 524
|
||||
end
|
||||
object cxgrdpmn1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 656
|
||||
Top = 460
|
||||
end
|
||||
object pm_sub: TPopupMenu
|
||||
Left = 560
|
||||
Top = 472
|
||||
object N1: TMenuItem
|
||||
Caption = #26222#36890#26367#25442
|
||||
OnClick = N1Click
|
||||
end
|
||||
object N2: TMenuItem
|
||||
Caption = #20135#21697#26367#25442
|
||||
OnClick = N2Click
|
||||
end
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = ADOQueryImage
|
||||
Left = 1243
|
||||
Top = 302
|
||||
end
|
||||
object ADOQueryImage: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Parameters = <>
|
||||
Left = 1248
|
||||
Top = 258
|
||||
end
|
||||
object DS_ImgHX: TDataSource
|
||||
DataSet = Qry_ImgHX
|
||||
Left = 1268
|
||||
Top = 119
|
||||
end
|
||||
object Qry_ImgHX: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Parameters = <>
|
||||
Left = 1272
|
||||
Top = 59
|
||||
end
|
||||
object IdFTP1: TIdFTP
|
||||
ConnectTimeout = 0
|
||||
NATKeepAlive.UseKeepAlive = False
|
||||
NATKeepAlive.IdleTimeMS = 0
|
||||
NATKeepAlive.IntervalMS = 0
|
||||
ProxySettings.ProxyType = fpcmNone
|
||||
ProxySettings.Port = 0
|
||||
ReadTimeout = 0
|
||||
Left = 1256
|
||||
Top = 186
|
||||
end
|
||||
end
|
||||
765
B01基础合同管理/U_finishSalesConInput.pas
Normal file
765
B01基础合同管理/U_finishSalesConInput.pas
Normal file
|
|
@ -0,0 +1,765 @@
|
|||
unit U_finishSalesConInput;
|
||||
|
||||
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,
|
||||
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, dxScrollbarAnnotations,
|
||||
dxCore, cxDateUtils, cxImageList, cxCurrencyEdit;
|
||||
|
||||
type
|
||||
TfrmfinishSalesConInput = class(TfrmBaseInput)
|
||||
ToolBar1: TToolBar;
|
||||
TBSave: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label3: TLabel;
|
||||
ToolBar2: TToolBar;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
ADOTemp: TADOQuery;
|
||||
ADOCmd: TADOQuery;
|
||||
DS_1: TDataSource;
|
||||
Order_Sub: TClientDataSet;
|
||||
v1PRTOrderQty: TcxGridDBColumn;
|
||||
Label10: TLabel;
|
||||
ConNo: TcxTextEdit;
|
||||
Label14: TLabel;
|
||||
v1XHNo: TcxGridDBColumn;
|
||||
v1OrderUnit: TcxGridDBColumn;
|
||||
Label6: TLabel;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
v1Column5: TcxGridDBColumn;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
VC_SCSCode: TcxGridDBColumn;
|
||||
cxgrdpmn1: TcxGridPopupMenu;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
pm_sub: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
DataSource1: TDataSource;
|
||||
ADOQueryImage: TADOQuery;
|
||||
DS_ImgHX: TDataSource;
|
||||
Qry_ImgHX: TADOQuery;
|
||||
IdFTP1: TIdFTP;
|
||||
Label15: TLabel;
|
||||
Label16: TLabel;
|
||||
PackSeal: TBtnEditC;
|
||||
Label17: TLabel;
|
||||
N2: TMenuItem;
|
||||
DlyNote: TcxTextEdit;
|
||||
ToolButton3: TToolButton;
|
||||
lblSalesId: TLabel;
|
||||
Label25: TLabel;
|
||||
SalesId: TcxTextEdit;
|
||||
TallyId: TcxTextEdit;
|
||||
BuyName: TcxButtonEdit;
|
||||
QtyNote: TcxButtonEdit;
|
||||
ConDate: TcxDateEdit;
|
||||
ToolButton4: TToolButton;
|
||||
Label1: TLabel;
|
||||
DlyDate: TcxDateEdit;
|
||||
Tv1density: TcxGridDBColumn;
|
||||
Tv1C_WidthUnit: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure Pic_Image1DblClick(Sender: TObject);
|
||||
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
private
|
||||
FLeft, FTop: Integer;
|
||||
fuserName, Fstatus: string;
|
||||
procedure JSMoney();
|
||||
procedure InitData();
|
||||
function TestData(): Boolean;
|
||||
function SaveData(): Boolean;
|
||||
procedure SetXH();
|
||||
procedure LookImage(FileName: string);
|
||||
{ Private declarations }
|
||||
public
|
||||
CopyInt: Integer;
|
||||
PState: string;
|
||||
fFlileFlag: string;
|
||||
FConMId: string;
|
||||
FAuthority, FGSTT: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmfinishSalesConInput: TfrmfinishSalesConInput;
|
||||
newh: hwnd;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel,
|
||||
U_PictureUpload11, U_TatClothInfoSel, U_BankSel;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmfinishSalesConInput.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 TfrmfinishSalesConInput.JSMoney();
|
||||
var
|
||||
FConQty, FConPrice, FC_Money: Double;
|
||||
begin
|
||||
with Order_Sub do
|
||||
begin
|
||||
FConQty := Fieldbyname('ConQty').AsFloat;
|
||||
FConPrice := Fieldbyname('ConPrice').AsFloat;
|
||||
end;
|
||||
//计算金额，保留2位小数
|
||||
FC_Money := RoundFloat(FConQty * FConPrice, 2);
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('ConTotalAmount').Value := FC_Money;
|
||||
Post;
|
||||
end;
|
||||
tv1.Controller.EditingController.ShowEdit();
|
||||
end;
|
||||
|
||||
function TfrmfinishSalesConInput.TestData(): Boolean;
|
||||
begin
|
||||
try
|
||||
if Trim(ConNo.Text) = '' then
|
||||
raise Exception.Create('合同号不能为空！');
|
||||
|
||||
if Order_Sub.Locate('C_Code', null, []) then
|
||||
raise Exception.Create('产品编号不能为空！');
|
||||
if Order_Sub.Locate('C_Code', '', []) 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('C_Color', null, []) then
|
||||
// raise Exception.Create('颜色不能为空！');
|
||||
// if Order_Sub.Locate('C_Color', '', []) then
|
||||
// raise Exception.Create('颜色不能为空！');
|
||||
|
||||
|
||||
|
||||
// if Order_Sub.Locate('C_MF', null, []) then
|
||||
// raise Exception.Create('门幅不能为空！');
|
||||
// if Order_Sub.Locate('C_MF', '', []) then
|
||||
// raise Exception.Create('门幅不能为空！');
|
||||
// if Order_Sub.Locate('C_KZ', null, []) then
|
||||
// raise Exception.Create('克重不能为空！');
|
||||
// if Order_Sub.Locate('C_KZ', '', []) then
|
||||
// raise Exception.Create('克重不能为空！');
|
||||
if Order_Sub.Locate('ConQty', null, []) then
|
||||
raise Exception.Create('数量不能为空！');
|
||||
if Order_Sub.Locate('ConQty', 0, []) then
|
||||
raise Exception.Create('数量不能为0！');
|
||||
if Order_Sub.Locate('ConUnit', null, []) then
|
||||
raise Exception.Create('数量单位不能为空！');
|
||||
if Order_Sub.Locate('ConUnit', '', []) then
|
||||
raise Exception.Create('数量单位不能为空！');
|
||||
Result := True;
|
||||
except
|
||||
Result := false;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.ToolButton1Click(Sender: TObject); //增行
|
||||
var
|
||||
i: Integer;
|
||||
maxno: string;
|
||||
begin
|
||||
if GetLSNo(ADOCmd, maxno, 'CPCS', 'CP_Contract_Sub', 4, 1) = False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(ConNo.Text) = '' then
|
||||
begin
|
||||
Application.MessageBox('合同号不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
i := Order_Sub.RecordCount; //当前的dataset有多少行记录
|
||||
i := i + 1;
|
||||
CopyAddRow(Tv1, Order_Sub);
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SSEL').Value := FALSE;
|
||||
FieldByName('SerialNo').Value := i;
|
||||
FieldByName('ConSId').Value := maxno;
|
||||
FieldByName('ConQty').Value := null;
|
||||
FieldByName('ConUnit').Value := 'M';
|
||||
Post;
|
||||
end;
|
||||
SetXH();
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.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 ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + '''');
|
||||
open;
|
||||
end;
|
||||
if ADOTemp.IsEmpty = false then
|
||||
begin
|
||||
exit;
|
||||
application.MessageBox('该明细已经在生产！', '提示信息');
|
||||
end;
|
||||
if Trim(Order_Sub.fieldbyname('ConSId').AsString) <> '' then
|
||||
begin
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete CP_Contract_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.Delete;
|
||||
end;
|
||||
SetXH();
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.ToolButton4Click(Sender: TObject);
|
||||
var
|
||||
i: Integer;
|
||||
maxno: string;
|
||||
MCYNo: string;
|
||||
begin
|
||||
|
||||
if Trim(ConNo.Text) = '' then
|
||||
begin
|
||||
Application.MessageBox('合同号不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
i := Order_Sub.RecordCount; //当前的dataset有多少行记录
|
||||
|
||||
|
||||
frmTatClothInfoSel := TfrmTatClothInfoSel.Create(self);
|
||||
with frmTatClothInfoSel do
|
||||
begin
|
||||
if showmodal = 1 then
|
||||
begin
|
||||
|
||||
with CDS_1 do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
if CDS_1.fieldbyname('SSel').AsBoolean then
|
||||
begin
|
||||
|
||||
if GetLSNo(ADOCmd, maxno, 'CPCS', 'CP_Contract_Sub', 4, 1) = False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取子流水号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
with Self.Order_Sub do
|
||||
begin
|
||||
append;
|
||||
|
||||
Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
|
||||
Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
|
||||
|
||||
Order_Sub.fieldbyname('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring;
|
||||
Order_Sub.fieldbyname('C_Composition').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring;
|
||||
|
||||
Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
|
||||
// Order_Sub.fieldbyname('BBNO').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BBNO').asstring;
|
||||
|
||||
FieldByName('SSEL').Value := FALSE;
|
||||
FieldByName('SerialNo').Value := i;
|
||||
FieldByName('ConSId').Value := maxno;
|
||||
FieldByName('ConQty').Value := null;
|
||||
// FieldByName('ConTotalAmount').Value := null;
|
||||
FieldByName('ConUnit').Value := 'M';
|
||||
end;
|
||||
end;
|
||||
Next;
|
||||
i := i + 1;
|
||||
end;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
end;
|
||||
free;
|
||||
end;
|
||||
|
||||
tv1.Controller.EditingController.ShowEdit();
|
||||
SetXH();
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.TBSaveClick(Sender: TObject);
|
||||
begin
|
||||
ConDate.SetFocus;
|
||||
|
||||
if TestData() = false then
|
||||
exit;
|
||||
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！', '提示', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.InitData();
|
||||
var
|
||||
maxno: string;
|
||||
begin
|
||||
//刷新产品信息
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select * from CP_Contract_Sub ');
|
||||
sql.Add('where ConMId=''' + Trim(FConMId) + '''');
|
||||
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 CP_Contract_Main where ConMId=''' + Trim(FConMId) + '''');
|
||||
Open;
|
||||
end;
|
||||
SCSHData(ADOTemp, ScrollBox1, 2);
|
||||
|
||||
BuyName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('BuyNo').AsString);
|
||||
|
||||
Fstatus := Trim(ADOTemp.FieldByName('status').AsString);
|
||||
|
||||
if PState = '新增' then
|
||||
begin
|
||||
ConDate.Date := SGetServerDateTime(ADOTemp);
|
||||
DlyDate.Date := ConDate.Date;
|
||||
ConNo.Text := '自动生成';
|
||||
|
||||
SalesID.Text := trim(DCode);
|
||||
end;
|
||||
|
||||
if PState = '复制' then
|
||||
begin
|
||||
|
||||
PState := '新增';
|
||||
FConMId := '';
|
||||
ConNo.Text := '自动生成';
|
||||
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if GetLSNo(ADOCmd, maxno, 'CPSCS', 'CP_Contract_Sub', 4, 1) = False then
|
||||
begin
|
||||
Application.MessageBox('取子流水号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
Edit;
|
||||
FieldByName('ConMId').Value := '';
|
||||
FieldByName('ConSId').Value := maxno;
|
||||
Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.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 := Tv1.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 TfrmfinishSalesConInput.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 TfrmfinishSalesConInput.Pic_Image1DblClick(Sender: TObject);
|
||||
begin
|
||||
if TcxDBImage(Sender).Picture.Height = 0 then
|
||||
exit;
|
||||
|
||||
LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring);
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.LookImage(FileName: string);
|
||||
var
|
||||
sFieldName: string;
|
||||
begin
|
||||
sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\图片查看';
|
||||
if not DirectoryExists(pchar(sFieldName)) then
|
||||
CreateDirectory(pchar(sFieldName), nil);
|
||||
sFieldName := sFieldName + '\' + trim(FileName);
|
||||
try
|
||||
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1');
|
||||
IdFTP1.Username := 'three';
|
||||
IdFTP1.Password := '641010';
|
||||
IdFTP1.Connect();
|
||||
except
|
||||
;
|
||||
end;
|
||||
|
||||
if IdFTP1.Connected then
|
||||
begin
|
||||
try
|
||||
IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false);
|
||||
except
|
||||
Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING);
|
||||
IdFTP1.Quit;
|
||||
Exit;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
|
||||
IdFTP1.Quit;
|
||||
Exit;
|
||||
end;
|
||||
if IdFTP1.Connected then
|
||||
IdFTP1.Quit;
|
||||
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
|
||||
end;
|
||||
|
||||
procedure TfrmfinishSalesConInput.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
readCxGrid(trim(self.Caption), Tv1, '销售合同管理');
|
||||
fFlileFlag := UserDataFlag + 'HX';
|
||||
InitData();
|
||||
end;
|
||||
|
||||
function TfrmfinishSalesConInput.SaveData(): Boolean;
|
||||
var
|
||||
maxno, ZiMu: string;
|
||||
fconNO, fmxType, fDate, YueRi: string;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
//////////////// 保存主表 //////////////////////
|
||||
if Trim(FConMId) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOTemp, maxno, 'CPCM', 'CP_Contract_Main', 3, 1) = False then
|
||||
raise Exception.Create('取最大号失败！');
|
||||
|
||||
fDate := FormatDateTime('yy', SGetServerDate(ADOTemp));
|
||||
YueRi := FormatDateTime('MMDD', SGetServerDate(ADOTemp));
|
||||
|
||||
if trim(ConNo.Text) = '自动生成' then
|
||||
begin
|
||||
|
||||
with ADOTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select ZiMu = dbo.GetPinYin(''' + Trim(BuyName.text) + ''')');
|
||||
Open;
|
||||
end;
|
||||
ZiMu := Trim(ADOTemp.fieldbyname('ZiMu').AsString);
|
||||
|
||||
if GetLSNo(ADOTemp, fconNO, fDate, 'CP_Contract_Main', 4, 0) = False then
|
||||
raise Exception.Create('取最合同编号失败！');
|
||||
//
|
||||
//// fconNO := Copy(fconNO, 1, 4) + YueRi + Copy(fconNO, 5, 4);
|
||||
// if ConType.Text = '内销' then
|
||||
// fconNO := 'N' + fconNO
|
||||
// else
|
||||
// fconNO := 'W' + fconNO;
|
||||
ConNo.Text := fconNO;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
maxno := Trim(FConMId);
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.Add('select * from CP_Contract_Main where ConMId=''' + Trim(FConMId) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if Trim(FConMId) = '' 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('ConMId').Value := Trim(maxno);
|
||||
RTSetsavedata(ADOCmd, 'CP_Contract_Main', ScrollBox1, 2);
|
||||
// ShowMessage(self.BuyName.Properties.LookupItems[0]+'hh');
|
||||
// ShowMessage(self.Sellname.Properties.LookupItems[0]+'hh');
|
||||
// ShowMessage(self.MiddleName.Properties.LookupItems.Text+'hh');
|
||||
// if Trim(BuyName.Properties.LookupItems.text) = '' then
|
||||
// begin
|
||||
// FieldByName('BuyNo').Value := Trim(BuyName.Properties.LookupItems[0]);
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// FieldByName('BuyNo').Value := Trim(BuyName.Properties.LookupItems[0]);
|
||||
// end;
|
||||
|
||||
Post;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CP_Contract_Main where ConNo=''' + Trim(ConNo.Text) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOCmd.RecordCount > 1 then
|
||||
raise Exception.Create('合同号重复！');
|
||||
|
||||
FConMId := Trim(maxno);
|
||||
//////////////// 保存主表 //////////////////////
|
||||
///
|
||||
//////////////// 保存子表 //////////////////////
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
maxno := Trim(Order_Sub.fieldbyname('ConSId').AsString);
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from CP_Contract_Sub where ConSId=''' + Trim(maxno) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOCmd do
|
||||
begin
|
||||
if ADOCmd.IsEmpty then
|
||||
Append
|
||||
else
|
||||
Edit;
|
||||
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'CP_Contract_Sub', 0);
|
||||
FieldByName('ConMId').Value := Trim(FConMId);
|
||||
FieldByName('ConSId').Value := Trim(maxno);
|
||||
|
||||
Post;
|
||||
end;
|
||||
with Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('ConSId').Value := Trim(maxno);
|
||||
Post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
//////////////// 保存子表 //////////////////////
|
||||
///
|
||||
//////////////// 更新合同 //////////////////////
|
||||
// with ADOCmd do
|
||||
// begin
|
||||
// close;
|
||||
// sql.Clear;
|
||||
// sql.Add('EXEC P_Con_Up_PiQty ');
|
||||
// sql.Add('@DataID=' + quotedstr(Trim(FConMId)));
|
||||
// execsql;
|
||||
// end;
|
||||
//////////////// 更新合同 //////////////////////
|
||||
|
||||
ADOCmd.Connection.CommitTrans;
|
||||
Result := True;
|
||||
except
|
||||
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
|
||||
Result := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
706
B01基础合同管理/U_finishSalesContractList.dfm
Normal file
706
B01基础合同管理/U_finishSalesContractList.dfm
Normal file
|
|
@ -0,0 +1,706 @@
|
|||
inherited frmfinishSalesContractList: TfrmfinishSalesContractList
|
||||
Left = 246
|
||||
Top = 116
|
||||
Caption = #38144#21806#21512#21516
|
||||
ClientHeight = 771
|
||||
ClientWidth = 1540
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Visible = True
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 810
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1540
|
||||
Height = 30
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_Contract.ImageList_new32
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_Contract.cxImageList_bar
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 4
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21047#26032
|
||||
ImageIndex = 1
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBFind: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #36807#28388
|
||||
ImageIndex = 0
|
||||
OnClick = TBFindClick
|
||||
end
|
||||
object TBAdd: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
ImageIndex = 9
|
||||
OnClick = TBAddClick
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
ImageIndex = 3
|
||||
OnClick = TBEditClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22797#21046
|
||||
ImageIndex = 13
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475
|
||||
ImageIndex = 4
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 378
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21512#21516#38468#20214
|
||||
ImageIndex = 22
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 465
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object btnTijiao: TToolButton
|
||||
Left = 528
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25552#20132
|
||||
ImageIndex = 12
|
||||
OnClick = btnTijiaoClick
|
||||
end
|
||||
object btnCXTijiao: TToolButton
|
||||
Left = 591
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#25552#20132
|
||||
ImageIndex = 11
|
||||
OnClick = btnCXTijiaoClick
|
||||
end
|
||||
object tchk: TToolButton
|
||||
Left = 678
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23457#26680
|
||||
ImageIndex = 12
|
||||
OnClick = tchkClick
|
||||
end
|
||||
object Tnochk: TToolButton
|
||||
Left = 741
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23457#26680
|
||||
ImageIndex = 11
|
||||
OnClick = TnochkClick
|
||||
end
|
||||
object btnWC: TToolButton
|
||||
Left = 828
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23436#25104
|
||||
ImageIndex = 12
|
||||
OnClick = btnWCClick
|
||||
end
|
||||
object btnWCCX: TToolButton
|
||||
Left = 891
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23436#25104
|
||||
ImageIndex = 11
|
||||
OnClick = btnWCCXClick
|
||||
end
|
||||
object Tqx: TToolButton
|
||||
Left = 978
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21512#21516#21462#28040
|
||||
ImageIndex = 14
|
||||
OnClick = TqxClick
|
||||
end
|
||||
object Tnoqx: TToolButton
|
||||
Left = 1065
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#21512#21516#21462#28040
|
||||
ImageIndex = 11
|
||||
OnClick = TnoqxClick
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 1176
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1263
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [1]
|
||||
Left = 0
|
||||
Top = 157
|
||||
Width = 1540
|
||||
Height = 336
|
||||
Align = alClient
|
||||
PopupMenu = pm1
|
||||
TabOrder = 3
|
||||
ExplicitTop = 159
|
||||
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.ColumnAutoWidth = True
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 41
|
||||
end
|
||||
object v1ConNo: TcxGridDBColumn
|
||||
Caption = #21512#21516#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 82
|
||||
end
|
||||
object v1CustomerNoName: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'BuyName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 99
|
||||
end
|
||||
object v1OrdDate: TcxGridDBColumn
|
||||
Caption = #19979#21333#26085#26399
|
||||
DataBinding.FieldName = 'ConDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 86
|
||||
end
|
||||
object Tv1DlyDate: TcxGridDBColumn
|
||||
Caption = #20132#26399
|
||||
DataBinding.FieldName = 'DlyDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object Tv1Status: TcxGridDBColumn
|
||||
Tag = 2
|
||||
DataBinding.FieldName = 'Status'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
Width = 70
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel [2]
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 1540
|
||||
Height = 91
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 6
|
||||
object Label4: TLabel
|
||||
Left = 268
|
||||
Top = 50
|
||||
Width = 32
|
||||
Height = 21
|
||||
Caption = #23458#25143
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 252
|
||||
Top = 11
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #21512#21516#21495
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 453
|
||||
Top = 11
|
||||
Width = 64
|
||||
Height = 21
|
||||
Caption = #23458#25143#21333#21495
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 469
|
||||
Top = 50
|
||||
Width = 48
|
||||
Height = 21
|
||||
Caption = #20013#38388#21830
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
end
|
||||
object IsJYTime: TCheckBox
|
||||
Left = 21
|
||||
Top = 13
|
||||
Width = 84
|
||||
Height = 17
|
||||
Caption = #19979#21333#26085#26399
|
||||
Checked = True
|
||||
Color = clWhite
|
||||
ParentColor = False
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TcxDateEdit
|
||||
Left = 111
|
||||
Top = 44
|
||||
TabOrder = 1
|
||||
Width = 121
|
||||
end
|
||||
object ConNo: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 306
|
||||
Top = 5
|
||||
Properties.OnChange = TBFindClick
|
||||
TabOrder = 2
|
||||
Width = 121
|
||||
end
|
||||
object BuyConNo: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 523
|
||||
Top = 5
|
||||
Properties.OnChange = TBFindClick
|
||||
TabOrder = 3
|
||||
Width = 121
|
||||
end
|
||||
object BuyName: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 306
|
||||
Top = 44
|
||||
Properties.OnChange = TBFindClick
|
||||
TabOrder = 4
|
||||
Width = 121
|
||||
end
|
||||
object MiddleName: TcxTextEdit
|
||||
Tag = 2
|
||||
Left = 523
|
||||
Top = 44
|
||||
Properties.OnChange = TBFindClick
|
||||
TabOrder = 5
|
||||
Width = 121
|
||||
end
|
||||
object BegDate: TcxDateEdit
|
||||
Left = 111
|
||||
Top = 5
|
||||
TabOrder = 6
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl [3]
|
||||
Left = 0
|
||||
Top = 121
|
||||
Width = 1540
|
||||
Height = 36
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 11
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#26410#25552#20132
|
||||
#24050#25552#20132
|
||||
#24050#23457#26680
|
||||
#24050#23436#25104
|
||||
#24050#21462#28040
|
||||
#20840#37096)
|
||||
LookAndFeel.Kind = lfUltraFlat
|
||||
OnChange = cxTabControl1Change
|
||||
ExplicitLeft = -288
|
||||
ExplicitTop = 137
|
||||
ClientRectBottom = 34
|
||||
ClientRectLeft = 2
|
||||
ClientRectRight = 1538
|
||||
ClientRectTop = 30
|
||||
end
|
||||
object cxSplitter1: TcxSplitter [4]
|
||||
Left = 0
|
||||
Top = 493
|
||||
Width = 1540
|
||||
Height = 8
|
||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||
AlignSplitter = salBottom
|
||||
end
|
||||
object Panel2: TPanel [5]
|
||||
Left = 0
|
||||
Top = 501
|
||||
Width = 1540
|
||||
Height = 270
|
||||
Align = alBottom
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 5
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1538
|
||||
Height = 268
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 1283
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnFocusedRecordChanged = TV2FocusedRecordChanged
|
||||
DataController.DataSource = DS_2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
end
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Format = '0'
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1PRTOrderQty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsView.ColumnAutoWidth = True
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object v1XHNo: TcxGridDBColumn
|
||||
Caption = #24207#21495
|
||||
DataBinding.FieldName = 'SerialNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
Width = 55
|
||||
end
|
||||
object VC_SCSCode: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 86
|
||||
end
|
||||
object cxGridDBColumn2: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 101
|
||||
end
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #25104#20998
|
||||
DataBinding.FieldName = 'C_Composition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object v1Column5: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'C_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object TV2density: TcxGridDBColumn
|
||||
Caption = #23494#24230
|
||||
DataBinding.FieldName = 'density'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v1Column6: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object TV2C_WidthUnit: TcxGridDBColumn
|
||||
Caption = #38376#24133#21333#20301
|
||||
DataBinding.FieldName = 'C_WidthUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object v1PRTOrderQty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'ConQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 70
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'ConUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.Items.Strings = (
|
||||
'Kg'
|
||||
'M'
|
||||
'Y')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 58
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = TV2
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited loadProcess: TPanel
|
||||
Left = 296
|
||||
Top = 212
|
||||
ExplicitLeft = 296
|
||||
ExplicitTop = 212
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Top = 258
|
||||
ExplicitTop = 258
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Left = 26
|
||||
Top = 235
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Left = 220
|
||||
Top = 242
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 664
|
||||
Top = 288
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
Parameters = <>
|
||||
Left = 264
|
||||
Top = 245
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 170
|
||||
Top = 242
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 65
|
||||
Top = 235
|
||||
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 = 604
|
||||
Top = 294
|
||||
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_Contract.ADOLink
|
||||
Parameters = <>
|
||||
Left = 80
|
||||
Top = 339
|
||||
end
|
||||
object DSImage: TDataSource
|
||||
DataSet = ADOQuery1
|
||||
Left = 1199
|
||||
Top = 215
|
||||
end
|
||||
object ADOQuery1: TADOQuery
|
||||
Connection = DataLink_Contract.ADOLink
|
||||
EnableBCD = False
|
||||
Parameters = <>
|
||||
Left = 1271
|
||||
Top = 209
|
||||
end
|
||||
object Order_Sub: TClientDataSet
|
||||
Aggregates = <>
|
||||
IndexFieldNames = 'SerialNo'
|
||||
Params = <>
|
||||
Left = 748
|
||||
Top = 524
|
||||
end
|
||||
end
|
||||
1133
B01基础合同管理/U_finishSalesContractList.pas
Normal file
1133
B01基础合同管理/U_finishSalesContractList.pas
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user