Group_99/D10szGerun
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

财务 检验 仓库

Browse Source
This commit is contained in:
funa 2026-09-15 17:28:07 +08:00
parent 39a97f2250
commit 7161bc957c
11 changed files with 67 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
A09财务通用管理/Financial.dproj
View File

@ -4,7 +4,7 @@
<MainSource>Financial.dpr</MainSource> <MainSource>Financial.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,18 +78,9 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szHengYan\A09财务通用管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\D10W\项目代码\D10szGerun\A09财务通用管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -225,10 +181,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform> <Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

BIN
A09财务通用管理/Financial.res
View File

Binary file not shown.

1
A09财务通用管理/Financial.skincfg
View File

@ -3,3 +3,4 @@ Default=1
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinsDefaultPainters=1 dxSkinsDefaultPainters=1
dxSkinWXI=1

13
A09财务通用管理/U_GetDllForm.pas
View File

@ -72,10 +72,15 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; // server := '101.132.143.144,7781';
dtbase := 'hengyanData'; // dtbase := 'hengyanData';
user := 'rtsa'; // user := 'rtsa';
pswd := 'rightsoft@5740'; // pswd := 'rightsoft@5740';
server := '8.153.99.238,7781';
dtbase := 'gerunData';
user := 'rightsoftsa';
pswd := 'right,.soft@2377';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='¹ÜÀí'; // DParameters1:='¹ÜÀí';

BIN
A09财务通用管理/testDll.res
View File

Binary file not shown.

6
E03梭织坯布检验/U_TatMachInsp.dfm
View File

@ -37,7 +37,6 @@
ParentBackground = False ParentBackground = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
object lblLenUnit: TLabel object lblLenUnit: TLabel
Left = 218 Left = 218
Top = 65 Top = 65
@ -458,8 +457,10 @@
Font.Height = -24 Font.Height = -24
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
Text = 'A'#21697
Items.Strings = ( Items.Strings = (
'A'#21697 'A'#21697
'B'#21697 'B'#21697
@ -496,8 +497,10 @@
Font.Height = -24 Font.Height = -24
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
Text = #30333#29677
Items.Strings = ( Items.Strings = (
#30333#29677 #30333#29677
#22812#29677) #22812#29677)
@ -2665,7 +2668,6 @@
Height = 169 Height = 169
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

7
E03梭织坯布检验/U_TatMachInsp.pas
View File

@ -601,8 +601,8 @@ begin
raise Exception.Create('品名不能为空!'); raise Exception.Create('品名不能为空!');
if trim(carno.text) = '' then if trim(carno.text) = '' then
raise Exception.Create('机台号不能为空!'); raise Exception.Create('机台号不能为空!');
if trim(SCPerson.text) = '' then // if trim(SCPerson.text) = '' then
raise Exception.Create('挡车1不能为空!'); // raise Exception.Create('挡车1不能为空!');
if trim(JBSCPerson.text) <> '' then if trim(JBSCPerson.text) <> '' then
begin begin
@ -1573,6 +1573,7 @@ begin
FieldByName('CIMachNo').Value := Trim(SCXFlag); FieldByName('CIMachNo').Value := Trim(SCXFlag);
FieldByName('CARNO').Value := Trim(CARNO.Text); FieldByName('CARNO').Value := Trim(CARNO.Text);
FieldByName('WorkShift').Value := Trim(WorkShift.Text);
FieldByName('SCPerson').Value := Trim(SCPerson.Text); FieldByName('SCPerson').Value := Trim(SCPerson.Text);
FieldByName('JBSCPerson').Value := Trim(JBSCPerson.Text); FieldByName('JBSCPerson').Value := Trim(JBSCPerson.Text);
@ -1751,7 +1752,7 @@ begin
InitCDGrid(''); InitCDGrid('');
FCIID := ''; FCIID := '';
CodeName.Text := ''; Code.Text := '';
carno.Text := ''; carno.Text := '';
SCPerson.Text := ''; SCPerson.Text := '';

3
E04梭织坯布仓库/U_TatClothDROutEdit.pas
View File

@ -207,7 +207,8 @@ begin
begin begin
Close; Close;
Sql.Clear; Sql.Clear;
sql.Add('insert into Finance_Need_Up(UType,UDataId) values(''贸易成品出库'',' + quotedstr(OutNo.Text) + ') '); // sql.Add('insert into Finance_Need_Up(UType,UDataId) values(''贸易成品出库'',' + quotedstr(OutNo.Text) + ') ');
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation) values(''梭织成品出库'',' + QuotedStr(Trim(OutNo.Text)) + ',''发货完成'')');
Sql.Add('exec P_Tat_Cloth_Out '); Sql.Add('exec P_Tat_Cloth_Out ');
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));

68
E04梭织坯布仓库/U_TatDRList.pas
View File

@ -260,40 +260,56 @@ begin
Exit; Exit;
// if cxTabControl1.TabIndex <> 0 then // if cxTabControl1.TabIndex <> 0 then
// Exit; // Exit;
if Trim(canshu1) <> '高权限' then // if Trim(canshu1) <> '高权限' then
begin // begin
//
with ADOQueryTemp do // with ADOQueryTemp do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
SQL.Add('select FILLER from Tat_Cloth_DR_Main A '); // SQL.Add('select FILLER from Tat_Cloth_DR_Main A ');
SQL.Add('where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''' '); // SQL.Add('where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''' ');
SQL.Add('and filler in ( select username from SY_User where UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname))); // SQL.Add('and filler in ( select username from SY_User where UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname)));
SQL.Add('))'); // SQL.Add('))');
Open; // Open;
end; // end;
//
if ADOQueryTemp.ISEMPTY = True then // if ADOQueryTemp.ISEMPTY = True then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
// begin // begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit; // Exit;
// end; // end;
end; //// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
//// begin
//// Application.MessageBox('不能操作他人的数据!', '提示', 0);
//// Exit;
//// end;
// end;
// with ADOQueryTemp do
// begin
// close;
// sql.Clear;
// sql.Add('select * from Tat_Cloth_DR_Main');
// sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
// Open;
// end;
// if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
// begin
// Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
// Exit;
// end;
// 参考 P_Fin_Generate：成品出库生成应收款后，Finance_Flow.FromID1 = Tat_Cloth_DR_Main.DRMID
with ADOQueryTemp do with ADOQueryTemp do
begin begin
close; Close;
sql.Clear; SQL.Clear;
sql.Add('select * from Tat_Cloth_DR_Main'); SQL.Add('select count(1) as Cnt from Finance_Flow A');
sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString))); SQL.Add('where A.FromID1 = ' + QuotedStr(Trim(Order_Main.FieldByName('DRMID').AsString)));
SQL.Add(' and A.FFFlag = ''应收收'''); // 只判断应收款；如业务上无需区分，可去掉本行
Open; Open;
end; end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
if ADOQueryTemp.FieldByName('Cnt').AsInteger > 0 then
begin begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0); Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit; Exit;

4
E04梭织坯布仓库/U_TatDRtInPut.dfm
View File

@ -178,8 +178,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object ToCoName: TBtnEditC object ToCoName: TBtnEditC
Tag = 1 Tag = 1
Left = 528 Left = 531
Top = 9 Top = 5
Width = 138 Width = 138
Height = 20 Height = 20
TabOrder = 1 TabOrder = 1

1
E04梭织坯布仓库/U_TatDRtInPut.pas
View File

@ -225,6 +225,7 @@ begin
RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1); RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1);
FieldByName('DRMID').Value := Trim(MaxMid); FieldByName('DRMID').Value := Trim(MaxMid);
FieldByName('Status').Value := '0'; FieldByName('Status').Value := '0';
FieldByName('ToCoNo').Value := Trim(ToCoName.TxtCode);
Post; Post;
end; end;
///////////////// ±£´æÖ÷±í ///////////////// ///////////////// ±£´æÖ÷±í /////////////////