1
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
8ba470de3c
commit
6f11ee9bb2
140
合同管理(ContractManagement.dll)/ContractManagement.dproj
Normal file
140
合同管理(ContractManagement.dll)/ContractManagement.dproj
Normal file
|
|
@ -0,0 +1,140 @@
|
|||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{25FC07DF-9202-499C-9B72-CFBF27DAAB5F}</ProjectGuid>
|
||||
<MainSource>ContractManagement.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<TargetedPlatforms>38043</TargetedPlatforms>
|
||||
<AppType>Library</AppType>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
<DCC_N>true</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DCC_DebugInformation>1</DCC_DebugInformation>
|
||||
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
|
||||
<DCC_UnitSearchPath>D:\富通ERP;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<GenDll>true</GenDll>
|
||||
<SanitizedProjectName>ContractManagement</SanitizedProjectName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="U_GetDllForm.pas"/>
|
||||
<DCCReference Include="..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas"/>
|
||||
<DCCReference Include="U_ModuleNote.pas">
|
||||
<Form>frmModuleNote</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_DataLink.pas">
|
||||
<Form>DataLink_ContractManagement</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_ZDYHelpSel.pas">
|
||||
<Form>frmZDYHelpSel</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_iniParam.pas"/>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_Fun.pas"/>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_SelExportField.pas">
|
||||
<Form>frmSelExportField</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas">
|
||||
<Form>frmColumnSet</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas">
|
||||
<Form>frmColumnBandSet</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas">
|
||||
<Form>frmSelPrintFieldNew</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Z99Dependency\RTFunAndForm\Form\U_RTZDYHelp.pas">
|
||||
<Form>frmRTZDYHelp</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas"/>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_SysLogHelp.pas">
|
||||
<Form>frmSysLogHelp</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_FactoryGYS.pas">
|
||||
<Form>frmFactoryGYS</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_SCJHOrderList.pas">
|
||||
<Form>frmSCJHOrderList</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_ZdyAttachGYS.pas">
|
||||
<Form>frmZdyAttachGYS</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas">
|
||||
<Form>frmZDYHelp</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_Fun10.pas"/>
|
||||
<DCCReference Include="U_CPSel.pas">
|
||||
<Form>frmCPSel</Form>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">ContractManagement.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Android">True</Platform>
|
||||
<Platform value="Android64">True</Platform>
|
||||
<Platform value="iOSDevice64">True</Platform>
|
||||
<Platform value="iOSSimulator">True</Platform>
|
||||
<Platform value="Linux64">True</Platform>
|
||||
<Platform value="OSX64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
</Project>
|
||||
BIN
合同管理(ContractManagement.dll)/ContractManagement_Icon.ico
Normal file
BIN
合同管理(ContractManagement.dll)/ContractManagement_Icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
|
|
@ -513,10 +513,10 @@ begin
|
|||
sql.Add('select A.*,B.*,MXNote=B.Note ');
|
||||
|
||||
sql.Add(',TJNAME=( select TOP 1 TJNAME from BS_Company_Main X where X.CoType=''¿Í»§'' and X.Valid=''Y'' and X.Code= A.buyno) ');
|
||||
sql.Add(',ShortName=( select ShortName from BS_Company_Main X where X.CoType=''¿Í»§'' and X.Valid=''Y'' and X.Code= A.buyno) ');
|
||||
sql.Add(',BankName=( select BankName from BS_Company_Main X where X.CoType=''¿Í»§'' and X.Valid=''Y'' and X.Code= A.buyno) ');
|
||||
sql.Add(',BankNo=( select BankNo from BS_Company_Main X where X.CoType=''¿Í»§'' and X.Valid=''Y'' and X.Code= A.buyno) ');
|
||||
sql.Add(',Telephone=( select Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y'' and Y.Code= A.buyno) ');
|
||||
sql.Add(',ShortName=( select TOP 1 ShortName from BS_Company_Main X where X.CoType=''¿Í»§'' and X.Valid=''Y'' and X.Code= A.buyno) ');
|
||||
sql.Add(',BankName=( select TOP 1 BankName from BS_Company_Main X where X.CoType=''¿Í»§'' and X.Valid=''Y'' and X.Code= A.buyno) ');
|
||||
sql.Add(',BankNo=( select TOP 1 BankNo from BS_Company_Main X where X.CoType=''¿Í»§'' and X.Valid=''Y'' and X.Code= A.buyno) ');
|
||||
sql.Add(',Telephone=( select TOP 1 Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y'' and Y.Code= A.buyno) ');
|
||||
sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId ');
|
||||
sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + '''');
|
||||
sql.Add(' order by B.XHNo ');
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user