Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-08-12 17:25:39 +08:00
parent b03d300175
commit ea8c56c805
10 changed files with 3246 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
B01基础合同管理/Contract.dpr
View File

@ -37,7 +37,8 @@ uses
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload}, U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame}, FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', 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} {$R *.res}

4
B01基础合同管理/Contract.dproj
View File

@ -182,6 +182,10 @@
<Form>frmBankSel</Form> <Form>frmBankSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_finishSalesConInput.pas">
<Form>frmfinishSalesConInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

161
B01基础合同管理/Contract.dproj.local
View File

@ -1,85 +1,86 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.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.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.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> <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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.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.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.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.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.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.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.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.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.339,=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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.630,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.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.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.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.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.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.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.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.582,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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.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.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.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.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.428,=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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</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.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</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.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.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.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.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.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.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</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.425,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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.067,=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>2025/08/12 14:52:54.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -144,5 +145,7 @@
<File Path="U_SalesContractList_XT.dfm"/> <File Path="U_SalesContractList_XT.dfm"/>
<File Path="U_SalesContractList.pas"/> <File Path="U_SalesContractList.pas"/>
<File Path="U_SalesContractList.dfm"/> <File Path="U_SalesContractList.dfm"/>
<File Path="U_finishSalesConInput.pas"/>
<File Path="U_finishSalesConInput.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

14
B01基础合同管理/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses uses
U_DataLink, U_iniParam, U_SalesContractList, U_PurchaseContractList, U_DataLink, U_iniParam, U_SalesContractList, U_PurchaseContractList,
U_SalesContractList_XT; U_SalesContractList_XT,U_finishSalesContractList;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -136,6 +136,18 @@ begin
end; end;
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: //订单操作卡 // 112: //订单操作卡
// begin // begin
// with TfrmSalesContractList_XT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // // with TfrmSalesContractList_XT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //

22
B01基础合同管理/U_SalesConInPut.pas
View File

@ -14,23 +14,8 @@ uses
dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses, dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses,
Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput,
System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, dxScrollbarAnnotations,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, dxScrollbarAnnotations,
dxCore, cxDateUtils, cxImageList, cxCurrencyEdit; dxCore, cxDateUtils, cxImageList, cxCurrencyEdit;
type type
@ -337,7 +322,6 @@ begin
// if Order_Sub.Locate('C_MF', null, []) then // if Order_Sub.Locate('C_MF', null, []) then
// raise Exception.Create('门幅不能为空！'); // raise Exception.Create('门幅不能为空！');
// if Order_Sub.Locate('C_MF', '', []) then // if Order_Sub.Locate('C_MF', '', []) then
@ -644,7 +628,7 @@ begin
end; end;
ZiMu := Trim(ADOTemp.fieldbyname('ZiMu').AsString); 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('取最合同编号失败！'); raise Exception.Create('取最合同编号失败！');
// //
// fconNO := Copy(fconNO, 1, 4) + YueRi + Copy(fconNO, 5, 4); // fconNO := Copy(fconNO, 1, 4) + YueRi + Copy(fconNO, 5, 4);

538
B01基础合同管理/U_finishSalesConInput.dfm Normal file
View 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
View 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
View 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
View File

File diff suppressed because it is too large Load Diff