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

0113

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-01-13 16:36:43 +08:00
parent 35fd99d934
commit 1251492f45
102 changed files with 23060 additions and 593 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
A00通用窗体/U_AttachmentUpload.dfm
View File

@ -101,6 +101,7 @@ inherited frmAttachmentUpload: TfrmAttachmentUpload
Height = 463
Align = alClient
TabOrder = 3
ExplicitLeft = -6
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

2
A02基础产品管理/U_SLT.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, cxControls, cxContainer, cxEdit, cxImage, IdFTP,
ShellAPI, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters;
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmSLT = class(TFrame)

BIN
A03基础价格管理/MarketValue.identcache
View File

Binary file not shown.

2
A03基础价格管理/ProjectGroup1.groupproj.local
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\MarketValue.dproj"/>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\testDll.dproj"/>
</Default.Personality>
</BorlandProject>

161
A09财务通用管理/U_CollectList.dfm
View File

@ -6,7 +6,6 @@ inherited frmCollectList: TfrmCollectList
ClientWidth = 1540
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -16
ExplicitWidth = 1556
ExplicitHeight = 629
PixelsPerInch = 96
@ -84,16 +83,32 @@ inherited frmCollectList: TfrmCollectList
ImageIndex = 11
OnClick = btnReChkClick
end
object ToolButton7: TToolButton
object ToolButton2: TToolButton
Left = 521
Top = 0
AutoSize = True
Caption = #23436#25104#26680#38144
ImageIndex = 12
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 616
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 11
OnClick = ToolButton3Click
end
object ToolButton7: TToolButton
Left = 711
Top = 0
AutoSize = True
Caption = #26680#38144
ImageIndex = 3
OnClick = ToolButton7Click
end
object ToolButton8: TToolButton
Left = 592
Left = 782
Top = 0
AutoSize = True
Caption = #26680#38144#26085#24535
@ -101,7 +116,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton8Click
end
object ToolButton9: TToolButton
Left = 687
Left = 877
Top = 0
AutoSize = True
Caption = #38468#20214#19978#20256
@ -109,7 +124,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton9Click
end
object ToolButton4: TToolButton
Left = 782
Left = 972
Top = 0
AutoSize = True
Caption = #23548#20986
@ -117,7 +132,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 853
Left = 1043
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -125,13 +140,21 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 948
Left = 1138
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object ToolButton6: TToolButton
Left = 1209
Top = 0
AutoSize = True
Caption = #25968#25454#34917#24405
ImageIndex = 9
OnClick = ToolButton6Click
end
end
object Panel1: TPanel [1]
Left = 0
@ -179,8 +202,8 @@ inherited frmCollectList: TfrmCollectList
Caption = #21512' '#21516' '#21495
end
object Label11: TLabel
Left = 479
Top = 13
Left = 475
Top = 17
Width = 48
Height = 12
Caption = #23458#25143#21333#21495
@ -283,12 +306,12 @@ inherited frmCollectList: TfrmCollectList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 142
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -477,6 +500,46 @@ inherited frmCollectList: TfrmCollectList
HeaderAlignmentHorz = taCenter
Width = 84
end
object Tv1Column10: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'ISFJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 46
end
object Tv1Column11: TcxGridDBColumn
Caption = #26680#38144#29366#24577
DataBinding.FieldName = 'HXFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv1Column12: TcxGridDBColumn
Caption = #32467#27719#27719#29575
DataBinding.FieldName = 'JHExchangeRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column13: TcxGridDBColumn
Caption = #25163#32493#36153
DataBinding.FieldName = 'SXFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column14: TcxGridDBColumn
Caption = #23454#25910#37329#39069
DataBinding.FieldName = 'SSAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column15: TcxGridDBColumn
Caption = #23454#25910#20154#27665#24065
DataBinding.FieldName = 'SSCNYAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
@ -507,6 +570,84 @@ inherited frmCollectList: TfrmCollectList
ClientRectRight = 1540
ClientRectTop = 36
end
object Panel2: TPanel [4]
Left = 800
Top = 248
Width = 209
Height = 113
TabOrder = 4
Visible = False
object Label1: TLabel
Left = 25
Top = 60
Width = 48
Height = 12
Caption = #25163' '#32493' '#36153
end
object Label5: TLabel
Left = 25
Top = 33
Width = 48
Height = 12
Caption = #32467#27719#27719#29575
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 207
Height = 22
Align = alTop
Caption = #25968#25454#34917#24405
Color = clSkyBlue
ParentBackground = False
TabOrder = 0
object Button1: TButton
Left = 152
Top = -3
Width = 57
Height = 25
Caption = #20851#38381
TabOrder = 0
OnClick = Button1Click
end
end
object SXFAmount: TEdit
Tag = 2
Left = 106
Top = 56
Width = 87
Height = 20
TabOrder = 1
OnKeyPress = JHExchangeRateKeyPress
end
object JHExchangeRate: TEdit
Tag = 2
Left = 106
Top = 29
Width = 87
Height = 20
TabOrder = 2
OnKeyPress = JHExchangeRateKeyPress
end
object Button2: TButton
Left = 112
Top = 82
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 3
OnClick = Button2Click
end
object FFID: TEdit
Left = 1
Top = 82
Width = 105
Height = 20
TabOrder = 4
Text = 'FFID'
Visible = False
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 233

212
A09财务通用管理/U_CollectList.pas
View File

@ -84,6 +84,24 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton6: TToolButton;
Panel2: TPanel;
Panel3: TPanel;
Label1: TLabel;
Label5: TLabel;
SXFAmount: TEdit;
JHExchangeRate: TEdit;
Button1: TButton;
Button2: TButton;
FFID: TEdit;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -105,6 +123,13 @@ type
procedure ToolButton9Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Button1Click(Sender: TObject);
procedure JHExchangeRateKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton6Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -129,6 +154,8 @@ begin
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
ToolButton2.Enabled := false; //完成核销
ToolButton3.Enabled := false; //撤销完成
// if Trim(FAuthority) = '管理' then
begin
btnAdd.Enabled := true;
@ -142,6 +169,8 @@ begin
1:
begin
btnReChk.Enabled := true;
ToolButton2.Enabled := true;
ToolButton3.Enabled := true;
end;
2:
begin
@ -168,8 +197,12 @@ begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' select Amount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)');
SQL.Add(',A.*,Saleser=(select Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
sql.Add(' select IsFJ=cast((case when (select COUNT(T.WBID) from FJ_File T where T.TFType = ''SD'' and T.WBID=A.FFID)=0 then 0 else 1 end) as bit )');
sql.Add(',Amount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)');
sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)');
sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) ');
sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)');
SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
sql.Add(' from Finance_Flow A where A.FFType=''收款登记'' ');
case cxTabControl1.TabIndex of
0:
@ -187,6 +220,8 @@ begin
sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
end;
sql.Add(WSql);
sql.Add('Order By A.HXFlag');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@ -197,6 +232,22 @@ begin
end;
end;
procedure TfrmCollectList.JHExchangeRateKeyPress(Sender: TObject; var Key: Char);
begin
if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
begin
Key := #0;
end
else if (pos('.', TEdit(Sender).text) <> 0) then
begin
if Key = '.' then
begin
Key := #0;
end;
end;
end;
procedure TfrmCollectList.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true);
@ -275,7 +326,7 @@ begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := Enddate.DateTime - 30;
begdate.DateTime := Enddate.DateTime - 91;
SetStatus();
InitGrid();
end;
@ -462,6 +513,41 @@ begin
end;
end;
procedure TfrmCollectList.Button1Click(Sender: TObject);
begin
Panel2.Visible := False;
JHExchangeRate.text := '';
SXFAmount.text := '';
end;
procedure TfrmCollectList.Button2Click(Sender: TObject);
begin
if FFID.Text <> '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate Finance_Flow ');
sql.Add(' Set JHExchangeRate=''' + Trim(JHExchangeRate.Text) + '''');
sql.Add(',SXFAmount=''' + Trim(SXFAmount.Text) + '''');
SQL.Add(' where FFID=''' + Trim(FFID.Text) + '''');
sql.Add('UPdate Finance_WriteOff ');
sql.Add(' Set WoJHExchangeRate=''' + Trim(JHExchangeRate.Text) + '''');
// sql.Add(',SXFAmount=''' + Trim(SXFAmount.Text) + '''');
SQL.Add(' where FromId=''' + Trim(FFID.Text) + '''');
// ShowMessage(SQL.text);
execsql;
end;
end;
Application.MessageBox('保存成功!', '提示', 0);
Button1.Click;
end;
procedure TfrmCollectList.btnAddClick(Sender: TObject);
begin
@ -487,7 +573,7 @@ begin
with frmCollectInput do
begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
PState:='复制';
PState := '复制';
if ShowModal = 1 then
begin
InitGrid();
@ -499,6 +585,108 @@ begin
end;
procedure TfrmCollectList.ToolButton2Click(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus_HX ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''核销完成'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('核销完成成功', '提示');
InitGrid();
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmCollectList.ToolButton3Click(Sender: TObject);
var
FFFIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');
Exit;
end;
with CDS_1 do
begin
DisableControls;
while CDS_1.Locate('SSel', True, []) do
begin
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete;
end;
EnableControls;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus_HX ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''撤销核销'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('撤销核销成功', '提示');
InitGrid();
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid();
end;
end;
procedure TfrmCollectList.ToolButton4Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
@ -511,6 +699,15 @@ begin
WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
end;
procedure TfrmCollectList.ToolButton6Click(Sender: TObject);
begin
FFID.text := trim(CDS_1.fieldbyname('FFID').AsString);
Panel2.Left := (self.width - Panel2.width) div 2;
Panel2.Top := 330;
Panel2.Visible := True;
end;
procedure TfrmCollectList.btnEditClick(Sender: TObject);
begin
try
@ -619,6 +816,13 @@ begin
end;
procedure TfrmCollectList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('HXFlag').Index] <> '已核销' then
ACanvas.Brush.Color := clWebOrange;
end;
procedure TfrmCollectList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then

81
A09财务通用管理/U_CollectWriteOff.dfm
View File

@ -66,6 +66,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_Ysk
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@ -96,6 +97,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -105,6 +107,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column9: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -112,6 +115,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 73
@ -119,6 +123,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object VC_ORDERNO: TcxGridDBColumn
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'OrderNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
@ -126,6 +131,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column10: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 64
@ -133,6 +139,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column11: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
@ -140,6 +147,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column3: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'CWType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
@ -147,6 +155,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column4: TcxGridDBColumn
Caption = #24212#25910#37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 98
@ -154,6 +163,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column5: TcxGridDBColumn
Caption = #24050#26680#38144#37329#39069
DataBinding.FieldName = 'FFWoAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
@ -161,6 +171,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column6: TcxGridDBColumn
Caption = #26410#26680#38144#37329#39069
DataBinding.FieldName = 'NWoAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 101
@ -168,15 +179,31 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
object v1Column7: TcxGridDBColumn
Caption = #26412#27425#26680#38144
DataBinding.FieldName = 'CurWoAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.##;-,0.##'
Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column1: TcxGridDBColumn
Caption = #26412#27425#25163#32493#36153
DataBinding.FieldName = 'CurSXFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column2: TcxGridDBColumn
Caption = #26412#27425#32467#27719#27719#29575
DataBinding.FieldName = 'CurJHExchangeRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object v1PBNote: TcxGridDBColumn
Caption = #20986#24211#22791#27880
DataBinding.FieldName = 'PBNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
@ -219,7 +246,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
Visible = False
end
object Label3: TLabel
Left = 256
Left = 334
Top = 10
Width = 130
Height = 12
@ -231,6 +258,13 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 185
Top = 10
Width = 48
Height = 12
Caption = #23458#25143#21333#21495
end
object F_Name: TEdit
Tag = 2
Left = 77
@ -241,8 +275,8 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
OnKeyPress = KHConNoKeyPress
end
object Button1: TButton
Left = 584
Top = 4
Left = 616
Top = 8
Width = 107
Height = 25
Caption = #20998#37197#26680#38144#37329#39069
@ -273,7 +307,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
end
object curHsNum: TEdit
Tag = 9
Left = 391
Left = 469
Top = 6
Width = 101
Height = 20
@ -285,6 +319,15 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
ParentFont = False
TabOrder = 4
end
object BuyConNo: TEdit
Tag = 2
Left = 239
Top = 6
Width = 89
Height = 20
TabOrder = 5
OnKeyPress = KHConNoKeyPress
end
end
object ScrollBox1: TScrollBox [3]
Left = 0
@ -334,6 +377,20 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
Height = 12
Caption = #26410#26680#38144#37329#39069
end
object Label10: TLabel
Left = 797
Top = 20
Width = 60
Height = 12
Caption = #32467#31639#25163#32493#36153
end
object Label11: TLabel
Left = 993
Top = 20
Width = 48
Height = 12
Caption = #32467#27719#27719#29575
end
object OppCoName: TEdit
Left = 84
Top = 17
@ -342,7 +399,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
TabOrder = 0
end
object Amount: TEdit
Left = 304
Left = 306
Top = 17
Width = 100
Height = 18
@ -362,6 +419,20 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
Height = 18
TabOrder = 3
end
object SXFAmount: TEdit
Left = 863
Top = 17
Width = 100
Height = 18
TabOrder = 4
end
object JHExchangeRate: TEdit
Left = 1047
Top = 17
Width = 100
Height = 18
TabOrder = 5
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink

32
A09财务通用管理/U_CollectWriteOff.pas
View File

@ -10,7 +10,8 @@ uses
ComCtrls, ToolWin, DBClient, ADODB, cxCurrencyEdit, cxCheckBox, ExtCtrls,
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxGridCustomPopupMenu,
cxGridPopupMenu, U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus;
cxGridPopupMenu, U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus,
dxSkinWXI, dxScrollbarAnnotations;
type
TfrmCollectWriteOff = class(TfrmBaseInput)
@ -62,6 +63,14 @@ type
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label7: TLabel;
BuyConNo: TEdit;
Label10: TLabel;
SXFAmount: TEdit;
Tv1Column1: TcxGridDBColumn;
Label11: TLabel;
JHExchangeRate: TEdit;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -145,7 +154,7 @@ begin
Close;
SQL.Clear;
Filtered := False;
sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00 ');
sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00,CurSXFAmount=0.00,CurJHExchangeRate=0.0 ');
sql.Add('from Finance_Flow A ');
sql.Add(' where Amount-isnull(FFWoAmount,0)<>0');
sql.Add(' and FFType=' + quotedstr(trim('Ó¦ÊÕ¿îµÇ¼Ç')));
@ -172,7 +181,8 @@ begin
Close;
SQL.Clear;
Filtered := False;
sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0) from Finance_Flow A ');
sql.Add('select ISNULL(A.SXFAMount,0) SXFAMount,ISNULL(A.JHExchangeRate,1) JHExchangeRate,*,');
sql.Add('NWoAmount=Amount-isnull(FFWoAmount,0) from Finance_Flow A ');
sql.Add('where FFID=' + quotedstr(trim(FFFID)));
sql.Add(' and A.status=''9'' ');
Open;
@ -264,17 +274,22 @@ begin
edit;
if (tmpSum - StrToFloatDef(curHsNum.Text, 0)) > 0 then
begin
FieldByName('CurWoAmount').value := FieldByName('NWoAmount').asFloat - (tmpSum - StrToFloatDef(curHsNum.Text, 0))
FieldByName('CurWoAmount').value := FieldByName('NWoAmount').asFloat - (tmpSum - StrToFloatDef(curHsNum.Text, 0));
FieldByName('CurSXFAmount').value := (FieldByName('NWoAmount').asFloat - (tmpSum - StrToFloatDef(curHsNum.Text, 0))) / StrtoFloat(Amount.text) * StrtoFloat(SXFAmount.text);
FieldByName('CurJHExchangeRate').value := JHExchangeRate.text;
end
else
begin
FieldByName('CurWoAmount').value := FieldByName('NWoAmount').asFloat;
FieldByName('CurSXFAmount').value := FieldByName('NWoAmount').asFloat / StrtoFloat(Amount.text) * StrtoFloat(SXFAmount.text);
FieldByName('CurJHExchangeRate').value := JHExchangeRate.text;
end;
end
else
begin
edit;
FieldByName('CurWoAmount').value := 0;
FieldByName('CurSXFAmount').value := 0;
end;
post;
if FieldByName('ssel').AsBoolean and ((tmpSum - StrToFloatDef(curHsNum.Text, 0)) > 0) then
@ -322,6 +337,8 @@ begin
SQL.Add(' @ToID = ' + QuotedStr(Trim(CDS_Ysk.FieldByName('FFID').AsString)));
SQL.Add(',@FromID = ' + QuotedStr(Trim(FFFID)));
SQL.Add(',@CurWoAmount = ' + FloatToStr(CDS_Ysk.FieldByName('CurWoAmount').AsFloat));
SQL.Add(',@CurWoSXFAmount = ' + FloatToStr(CDS_Ysk.FieldByName('CurSXFAmount').AsFloat));
SQL.Add(',@CurJHExchangeRate = ' + FloatToStr(CDS_Ysk.FieldByName('CurJHExchangeRate').AsFloat));
SQL.Add(',@DName = ' + QuotedStr(Trim(DName)));
Open;
@ -353,13 +370,14 @@ end;
procedure TfrmCollectWriteOff.N1Click(Sender: TObject);
begin
SellRec(1);
// SellRec(1);
SelOKNo(CDS_Ysk, True);
end;
procedure TfrmCollectWriteOff.N2Click(Sender: TObject);
begin
SellRec(0);
// SellRec(0);
SelOKNo(CDS_Ysk, False);
end;
procedure TfrmCollectWriteOff.EnddateChange(Sender: TObject);

40
A09财务通用管理/U_CollectWriteOffList.dfm
View File

@ -167,8 +167,6 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
Width = 71
Height = 17
Caption = #26680#38144#26085#26399
Checked = True
State = cbChecked
TabOrder = 5
end
end
@ -179,12 +177,12 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
Height = 499
Align = alClient
TabOrder = 2
ExplicitLeft = 6
ExplicitTop = 111
ExplicitTop = 119
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@ -207,6 +205,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -216,13 +215,22 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column2: TcxGridDBColumn
Caption = #26680#38144#26085#26399
DataBinding.FieldName = 'FillTIME'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv2Column4: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object v2Column1: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -230,6 +238,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column9: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BUYConno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -237,6 +246,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column10: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -244,6 +254,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column7: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -251,6 +262,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column8: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'F_color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -258,6 +270,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column11: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'F_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -265,6 +278,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column3: TcxGridDBColumn
Caption = #24212#25910'ID'
DataBinding.FieldName = 'ToId'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
@ -274,6 +288,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column5: TcxGridDBColumn
Caption = #25910#27454'ID'
DataBinding.FieldName = 'FromId'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
@ -283,6 +298,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column4: TcxGridDBColumn
Caption = #26680#38144#37329#39069
DataBinding.FieldName = 'WoAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_Financial.FontBlue
@ -293,6 +309,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object v2Column6: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -300,6 +317,21 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
object Tv2Column1: TcxGridDBColumn
Caption = 'WoID2'
DataBinding.FieldName = 'WoID'
DataBinding.IsNullValueType = True
end
object Tv2Column2: TcxGridDBColumn
Caption = #25163#32493#36153
DataBinding.FieldName = 'WoSXFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv2Column3: TcxGridDBColumn
Caption = #32467#27719#27719#29575
DataBinding.FieldName = 'WoJHExchangeRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 82
end
end
object cxGridLevel1: TcxGridLevel

8
A09财务通用管理/U_CollectWriteOffList.pas
View File

@ -13,7 +13,8 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu;
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmCollectWriteOffList = class(TForm)
@ -58,6 +59,9 @@ type
CheckBox1: TCheckBox;
ToolButton2: TToolButton;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -105,7 +109,7 @@ begin
Filtered := False;
sql.Add(' select WoID2 AS WoID,AA.* from( ');
sql.Add(' select WoID2=cast (A.WoID AS Varchar),A.*,C.F_Code,C.F_Name,C.F_Color,C.F_ColorNo ');
sql.Add(' from Finance_WriteOff A ');
sql.Add(' ,C.BuyConNo,C.OrderNo,C.oppCoName from Finance_WriteOff A ');
sql.Add(' inner join Finance_Flow B on A.FromId=B.FFID ');
sql.Add(' inner join Finance_Flow C on A.ToId=C.FFID ');
sql.Add(' where 1=1 ');

37
A09财务通用管理/U_CustStatement.pas
View File

@ -113,7 +113,7 @@ begin
// sql.Add(' ,@Currency=''€'' ');
// end;
end;
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
@ -149,7 +149,8 @@ begin
inherited;
ReadCxGrid(trim(self.Caption), Tv2, '财务管理');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
// begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
begdate.DateTime := EndDate.DateTime - 365;
InitGrid();
end;
@ -184,7 +185,29 @@ procedure TfrmCustStatement.ToolButton3Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
frmSingleCustStatement := TfrmSingleCustStatement.Create(self);
// frmSingleCustStatement := TfrmSingleCustStatement.Create(Application);
// with frmSingleCustStatement do
// begin
// begdate.DateTime := self.begdate.DateTime;
// enddate.DateTime := self.Enddate.DateTime;
// OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
// FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
// FZKType := Self.FZKType;
// case cxTabControl1.TabIndex of
// 0:
// begin
// FCurrency := 'USD';
// end;
// 1:
// begin
// FCurrency := 'CNY';
// end;
// end;
// show;
// end;
try
frmSingleCustStatement := TfrmSingleCustStatement.Create(Application);
with frmSingleCustStatement do
begin
begdate.DateTime := self.begdate.DateTime;
@ -202,7 +225,13 @@ begin
FCurrency := 'CNY';
end;
end;
show;
if ShowModal = 1 then
begin
// InitGrid();
end;
end;
finally
frmSingleCustStatement.Free;
end;
end;

29
A09财务通用管理/U_ExpenseList.dfm
View File

@ -3,10 +3,10 @@ inherited frmExpenseList: TfrmExpenseList
Top = 101
Caption = #36153#29992#31649#29702
ClientHeight = 590
ClientWidth = 1625
ClientWidth = 1540
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1641
ExplicitWidth = 1556
ExplicitHeight = 629
PixelsPerInch = 96
TextHeight = 12
@ -14,7 +14,7 @@ inherited frmExpenseList: TfrmExpenseList
Tag = 1
Left = 0
Top = 0
Width = 1625
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
@ -111,7 +111,7 @@ inherited frmExpenseList: TfrmExpenseList
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1625
Width = 1540
Height = 65
Align = alTop
BevelInner = bvRaised
@ -253,7 +253,7 @@ inherited frmExpenseList: TfrmExpenseList
object cxGrid1: TcxGrid [2]
Left = 0
Top = 136
Width = 1625
Width = 1540
Height = 454
Align = alClient
PopupMenu = PopupMenu1
@ -262,6 +262,7 @@ inherited frmExpenseList: TfrmExpenseList
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -301,6 +302,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 44
end
@ -308,6 +310,7 @@ inherited frmExpenseList: TfrmExpenseList
Tag = 7
Caption = #26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
@ -318,6 +321,7 @@ inherited frmExpenseList: TfrmExpenseList
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@ -325,6 +329,7 @@ inherited frmExpenseList: TfrmExpenseList
object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
@ -333,6 +338,7 @@ inherited frmExpenseList: TfrmExpenseList
Tag = 7
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
@ -340,6 +346,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143
DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -347,6 +354,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column2: TcxGridDBColumn
Caption = #23545#26041#36134#25143
DataBinding.FieldName = 'OppBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
@ -354,6 +362,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -361,6 +370,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -368,6 +378,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
@ -375,12 +386,14 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column4: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@ -388,6 +401,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -395,6 +409,7 @@ inherited frmExpenseList: TfrmExpenseList
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -407,7 +422,7 @@ inherited frmExpenseList: TfrmExpenseList
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 103
Width = 1625
Width = 1540
Height = 33
Align = alTop
Font.Charset = ANSI_CHARSET
@ -426,7 +441,7 @@ inherited frmExpenseList: TfrmExpenseList
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 36
ClientRectRight = 1625
ClientRectRight = 1540
ClientRectTop = 36
end
inherited ADOQueryBaseCmd: TADOQuery

3
A09财务通用管理/U_ExpenseList.pas
View File

@ -14,7 +14,8 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd;
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmExpenseList = class(TfrmBaseList)

37
A09财务通用管理/U_FtyStatement.pas
View File

@ -149,8 +149,10 @@ begin
inherited;
ReadCxGrid(trim(self.Caption), Tv2, '财务管理');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
// begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
begdate.DateTime := EndDate.DateTime - 365;
InitGrid();
end;
procedure TfrmFtyStatement.TBRafreshClick(Sender: TObject);
@ -184,7 +186,8 @@ procedure TfrmFtyStatement.ToolButton3Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then
exit;
frmSingleFtyStatement := TfrmSingleFtyStatement.Create(self);
try
frmSingleFtyStatement := TfrmSingleFtyStatement.Create(Application);
with frmSingleFtyStatement do
begin
begdate.DateTime := self.begdate.DateTime;
@ -201,10 +204,36 @@ begin
begin
FCurrency := 'CNY';
end;
end;
show;
if ShowModal = 1 then
begin
// InitGrid();
end;
end;
finally
frmSingleFtyStatement.Free;
end;
// frmSingleFtyStatement := TfrmSingleFtyStatement.Create(Application);
// with frmSingleFtyStatement do
// begin
// begdate.DateTime := self.begdate.DateTime;
// enddate.DateTime := self.Enddate.DateTime;
// OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
// FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
// FZKType := Self.FZKType;
// case cxTabControl1.TabIndex of
// 0:
// begin
// FCurrency := 'USD';
// end;
// 1:
// begin
// FCurrency := 'CNY';
// end;
//
// end;
// show;
// end;
end;
procedure TfrmFtyStatement.ToolButton4Click(Sender: TObject);

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

@ -78,7 +78,7 @@ begin
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DParameters1 := '¼Èë';
DParameters1 := '管理';
end
else
begin

2
A09财务通用管理/U_HandPayableInPut.dfm
View File

@ -79,6 +79,7 @@ object frmHandPayableInPut: TfrmHandPayableInPut
Height = 466
Align = alClient
TabOrder = 1
ExplicitTop = 44
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -239,6 +240,7 @@ object frmHandPayableInPut: TfrmHandPayableInPut
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 54
end

30
A09财务通用管理/U_HandPayableInPut.pas
View File

@ -58,6 +58,8 @@ type
procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
procedure initGrid();
procedure SaveDate();
@ -152,7 +154,7 @@ begin
begin
sql.Add('select * from Finance_Flow where FFID=''' + trim(FFID) + '''');
end;
sql.add(' and isnull(status,''0'')=''0''');
// sql.add(' and isnull(status,''0'')=''0''');
// showmessage(sql.text);
open;
end;
@ -230,13 +232,9 @@ begin
frmUserSel := TfrmUserSel.Create(Application);
with frmUserSel do
begin
// FCoType := '客户';
// if Self.FAuthority = '录入' then
// FAuthority := '理单业务';
if ShowModal = 1 then
begin
// self.BuyName.TxtCode := Trim(frmUserSel.CDS_1.fieldbyname('CoCode').AsString);
// self.BuyName.Text := Trim(frmUserSel.CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('Certifier').Value := Trim(CDS_1.fieldbyname('UserName').AsString);
end;
@ -415,6 +413,26 @@ begin
end;
end;
procedure TfrmHandPayableInPut.Tv1Column8PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmUserSel := TfrmUserSel.Create(Application);
with frmUserSel do
begin
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('handler').Value := Trim(CDS_1.fieldbyname('UserName').AsString);
end;
end;
finally
frmUserSel.Free;
end;
end;
procedure TfrmHandPayableInPut.ToolButton1Click(Sender: TObject);
begin
if CDS_Invoice.IsEmpty = False then

245
A09财务通用管理/U_OtherPayableInput.dfm
View File

@ -2,8 +2,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Left = 261
Top = 149
Caption = #20854#20182#24212#20184#27454#30331#35760
ClientHeight = 362
ClientWidth = 919
ClientHeight = 410
ClientWidth = 939
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Tag = 1
Left = 0
Top = 0
Width = 919
Width = 939
Height = 38
AutoSize = True
ButtonHeight = 38
@ -54,8 +54,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 919
Height = 324
Width = 939
Height = 372
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
@ -100,7 +100,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label7: TLabel
Left = 28
Top = 204
Top = 260
Width = 50
Height = 15
Caption = #22791' '#27880
@ -165,7 +165,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label3: TLabel
Left = 245
Top = 172
Top = 228
Width = 50
Height = 15
Caption = #37329' '#39069
@ -178,7 +178,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label10: TLabel
Left = 28
Top = 136
Top = 192
Width = 50
Height = 15
Caption = #21305' '#25968
@ -191,7 +191,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label11: TLabel
Left = 245
Top = 136
Top = 192
Width = 50
Height = 15
Caption = #25968' '#37327
@ -204,7 +204,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label12: TLabel
Left = 455
Top = 136
Top = 192
Width = 50
Height = 15
Caption = #21333' '#20215
@ -216,8 +216,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
ParentFont = False
end
object Label13: TLabel
Left = 28
Top = 105
Left = 954
Top = 49
Width = 50
Height = 15
Caption = #38376' '#24133
@ -230,8 +230,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Visible = False
end
object Label14: TLabel
Left = 245
Top = 105
Left = 1171
Top = 49
Width = 50
Height = 15
Caption = #20811' '#37325
@ -244,8 +244,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Visible = False
end
object Label15: TLabel
Left = 455
Top = 79
Left = 951
Top = 18
Width = 50
Height = 15
Caption = #33457' '#22411
@ -258,8 +258,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Visible = False
end
object Label16: TLabel
Left = 674
Top = 79
Left = 1170
Top = 18
Width = 50
Height = 15
Caption = #39068' '#33394
@ -272,8 +272,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Visible = False
end
object Label17: TLabel
Left = 455
Top = 105
Left = 1381
Top = 49
Width = 50
Height = 15
Caption = #33394' '#21495
@ -287,7 +287,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label4: TLabel
Left = 674
Top = 136
Top = 192
Width = 51
Height = 15
Caption = #20854' '#20182' '#36153
@ -313,7 +313,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label21: TLabel
Left = 28
Top = 172
Top = 228
Width = 50
Height = 15
Caption = #20943' '#20813
@ -365,7 +365,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Label18: TLabel
Left = 455
Top = 172
Top = 228
Width = 52
Height = 15
Caption = #26159#21542#21547#31246
@ -376,6 +376,97 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 26
Top = 107
Width = 52
Height = 15
Caption = #24555#36882#31181#31867
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 456
Top = 77
Width = 52
Height = 15
Caption = #20215#26684#26415#35821
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label26: TLabel
Left = 243
Top = 107
Width = 52
Height = 15
Caption = #24555#36882#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 28
Top = 160
Width = 50
Height = 15
Caption = #32654' '#37329
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label28: TLabel
Left = 245
Top = 160
Width = 50
Height = 15
Caption = #27719' '#29575
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 455
Top = 160
Width = 51
Height = 15
Caption = #20154' '#27665' '#24065
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 674
Top = 160
Width = 79
Height = 15
Caption = #38134#34892#25163#32493#36153'('#165')'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object F_Code: TEdit
Left = 82
Top = 77
@ -385,7 +476,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Note: TMemo
Left = 82
Top = 204
Top = 260
Width = 797
Height = 57
ScrollBars = ssVertical
@ -400,7 +491,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Currency: TComboBox
Left = 402
Top = 169
Top = 225
Width = 37
Height = 20
Style = csDropDownList
@ -483,7 +574,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Amount: TcxCurrencyEdit
Left = 299
Top = 170
Top = 226
Properties.AssignedValues.DisplayFormat = True
TabOrder = 8
OnExit = QtyExit
@ -491,30 +582,30 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Price: TcxCurrencyEdit
Left = 512
Top = 133
Top = 189
Properties.AssignedValues.DisplayFormat = True
TabOrder = 9
OnExit = QtyExit
Width = 140
end
object Qty: TcxCurrencyEdit
Left = 299
Top = 133
Left = 301
Top = 189
Properties.AssignedValues.DisplayFormat = True
TabOrder = 10
OnExit = QtyExit
Width = 101
end
object Piece: TcxCurrencyEdit
Left = 82
Top = 133
Left = 84
Top = 190
Properties.AssignedValues.DisplayFormat = True
TabOrder = 11
Width = 140
end
object QtyUnit: TComboBox
Left = 400
Top = 133
Top = 189
Width = 37
Height = 20
Style = csDropDownList
@ -529,40 +620,40 @@ object frmOtherPayableInput: TfrmOtherPayableInput
#20214)
end
object F_Width: TEdit
Left = 82
Top = 103
Left = 1008
Top = 47
Width = 140
Height = 18
TabOrder = 13
Visible = False
end
object F_GramWeight: TEdit
Left = 299
Top = 103
Left = 1225
Top = 47
Width = 140
Height = 18
TabOrder = 14
Visible = False
end
object F_Pattern: TEdit
Left = 512
Top = 78
Left = 1008
Top = 17
Width = 140
Height = 18
TabOrder = 15
Visible = False
end
object F_Color: TEdit
Left = 728
Top = 77
Left = 1224
Top = 16
Width = 140
Height = 18
TabOrder = 16
Visible = False
end
object F_ColorNo: TEdit
Left = 512
Top = 103
Left = 1438
Top = 47
Width = 140
Height = 18
TabOrder = 17
@ -570,7 +661,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object OtherFee: TcxCurrencyEdit
Left = 728
Top = 133
Top = 189
Properties.AssignedValues.DisplayFormat = True
TabOrder = 18
OnExit = QtyExit
@ -589,7 +680,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object Deduction: TcxCurrencyEdit
Left = 82
Top = 169
Top = 225
Properties.AssignedValues.DisplayFormat = True
TabOrder = 20
OnExit = QtyExit
@ -642,7 +733,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object IsInvoice: TComboBox
Left = 512
Top = 169
Top = 225
Width = 137
Height = 20
Style = csDropDownList
@ -659,13 +750,75 @@ object frmOtherPayableInput: TfrmOtherPayableInput
end
object FZFlag: TcxCurrencyEdit
Left = 690
Top = 275
Top = 331
Properties.AssignedValues.DisplayFormat = True
TabOrder = 25
Visible = False
OnExit = QtyExit
Width = 140
end
object ExpressType: TBtnEditC
Left = 84
Top = 104
Width = 140
Height = 20
Hint = 'ExpressType/'#24555#36882#31181#31867
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 26
OnBtnUpClick = ExpressTypeBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object jiagesy: TEdit
Left = 514
Top = 77
Width = 140
Height = 18
TabOrder = 27
end
object TrackNo: TEdit
Left = 301
Top = 105
Width = 140
Height = 18
TabOrder = 28
end
object CNYAMount: TcxCurrencyEdit
Left = 512
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 29
OnExit = QtyExit
Width = 140
end
object ExchangeRate: TcxCurrencyEdit
Left = 301
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 30
OnExit = QtyExit
Width = 138
end
object USDAMount: TcxCurrencyEdit
Left = 84
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 31
OnExit = QtyExit
Width = 140
end
object SXFAmount: TcxCurrencyEdit
Left = 768
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 32
OnExit = QtyExit
Width = 100
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink

49
A09财务通用管理/U_OtherPayableInput.pas
View File

@ -74,6 +74,20 @@ type
Label18: TLabel;
IsInvoice: TComboBox;
FZFlag: TcxCurrencyEdit;
Label19: TLabel;
ExpressType: TBtnEditC;
Label25: TLabel;
jiagesy: TEdit;
Label26: TLabel;
TrackNo: TEdit;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
CNYAMount: TcxCurrencyEdit;
ExchangeRate: TcxCurrencyEdit;
USDAMount: TcxCurrencyEdit;
SXFAmount: TcxCurrencyEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -88,6 +102,7 @@ type
procedure QtyExit(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject);
procedure OrderNoBtnUpClick(Sender: TObject);
procedure ExpressTypeBtnUpClick(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -111,17 +126,22 @@ uses
procedure TfrmOtherPayableInput.HJJE();
var
MPrice, MQty, MOtherFee, MDeduction, MAmount: double;
MUSDAmount, Mhuilv, MCNYAmount, MSXFAmount: double;
begin
MPrice := Strtofloatdef(Price.Text, 0);
MQty := Strtofloatdef(Qty.Text, 0);
MOtherFee := Strtofloatdef(OtherFee.Text, 0);
MDeduction := Strtofloatdef(Deduction.Text, 0);
MAmount := Strtofloatdef(Amount.Text, 0);
Mhuilv := Strtofloatdef(ExchangeRate.Text, 0);
MUSDAmount := Strtofloatdef(USDAmount.Text, 0);
MCNYAmount := Strtofloatdef(CNYAmount.Text, 0);
MSXFAmount := Strtofloatdef(SXFAmount.Text, 0);
// if MQty * MPrice <> 0 then
// begin
MAmount := RoundFloat((MQty * MPrice + MOtherFee - MDeduction), 2);
MAmount := RoundFloat((MQty * MPrice + MOtherFee +MUSDAmount*Mhuilv + MCNYAmount + MSXFAmount - MDeduction), 2);
// end;
// Price.Text := FloatToStr(MPrice);
// Qty.Text := FloatToStr(MQty);
@ -233,6 +253,7 @@ begin
Self.F_Width.text := Trim(CDS_1.fieldbyname('C_Width').AsString);
Self.F_GramWeight.text := Trim(CDS_1.fieldbyname('C_GramWeight').AsString);
Self.BuyConNo.text := Trim(CDS_1.fieldbyname('BuyConNo').AsString);
Self.jiagesy.text := Trim(CDS_1.fieldbyname('jiagesy').AsString);
end;
end;
finally
@ -300,6 +321,32 @@ begin
HJJE();
end;
procedure TfrmOtherPayableInput.ExpressTypeBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'ÆäËûÓ¦¸¶¿î';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// TEdit(Sender).TextHint := Trim(ClientDataSet1.fieldbyname('Note2').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOtherPayableInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin

49
A09财务通用管理/U_OtherPayableList.dfm
View File

@ -545,6 +545,55 @@ inherited frmOtherPayableList: TfrmOtherPayableList
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column27: TcxGridDBColumn
Caption = #20215#26684#26415#35821
DataBinding.FieldName = 'jiagesy'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column28: TcxGridDBColumn
Caption = #24555#36882#31181#31867
DataBinding.FieldName = 'ExpressType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column29: TcxGridDBColumn
Caption = #24555#36882#21333#21495
DataBinding.FieldName = 'TrackNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column30: TcxGridDBColumn
Caption = #32654#37329
DataBinding.FieldName = 'USDAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column31: TcxGridDBColumn
Caption = #27719#29575
DataBinding.FieldName = 'ExchangeRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 52
end
object Tv1Column32: TcxGridDBColumn
Caption = #20154#27665#24065
DataBinding.FieldName = 'CNYAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column33: TcxGridDBColumn
Caption = #25163#32493#36153
DataBinding.FieldName = 'SXFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1

9
A09财务通用管理/U_OtherPayableList.pas
View File

@ -92,6 +92,13 @@ type
ToolButton1: TToolButton;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
Tv1Column31: TcxGridDBColumn;
Tv1Column32: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -280,7 +287,7 @@ begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := Enddate.DateTime - 30;
begdate.DateTime := Enddate.DateTime - 365;
SetStatus();
InitGrid();
end;

1
A09财务通用管理/U_PayInput.dfm
View File

@ -87,7 +87,6 @@ object frmPayInput: TfrmPayInput
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitTop = 44
object Label2: TLabel
Left = 32
Top = 102

5
A09财务通用管理/U_PayInput.pas
View File

@ -499,6 +499,11 @@ begin
begin
Application.MessageBox('我方单位不能为空!', '提示', 0);
Exit;
end;
if Trim(RegType.Text) = '' then
begin
Application.MessageBox('登记类型不能为空!', '提示', 0);
Exit;
end;
if Trim(OurBankName.Text) = '' then
begin

2
A09财务通用管理/U_PayList.pas
View File

@ -354,7 +354,7 @@ begin
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
SetDate1.DateTime := SGetServerDate(ADOQueryTemp);
SetDate2.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := Enddate.DateTime - 30;
begdate.DateTime := Enddate.DateTime - 91;
FAuthority := self.fParameters1;
SetStatus();
InitGrid();

7
A09财务通用管理/U_PayableInput.dfm
View File

@ -34,7 +34,6 @@ object frmPayableInput: TfrmPayableInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 919
object ToolButton3: TToolButton
Left = 0
Top = 0
@ -73,8 +72,6 @@ object frmPayableInput: TfrmPayableInput
ParentFont = False
TabOrder = 1
OnClick = ScrollBox1Click
ExplicitWidth = 919
ExplicitHeight = 324
object Label2: TLabel
Left = 245
Top = 20
@ -423,7 +420,7 @@ object frmPayableInput: TfrmPayableInput
Top = 168
Width = 39
Height = 15
Caption = #24191#21578#36153
Caption = #21333#35777#36153
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -695,7 +692,7 @@ object frmPayableInput: TfrmPayableInput
OnBtnUpClick = PayMentBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object IsInvoice: TComboBox
object ISTax: TComboBox
Left = 512
Top = 200
Width = 137

2
A09财务通用管理/U_PayableInput.pas
View File

@ -72,7 +72,7 @@ type
Label24: TLabel;
FFAbstract: TBtnEditC;
Label18: TLabel;
IsInvoice: TComboBox;
ISTax: TComboBox;
FZFlag: TcxCurrencyEdit;
Label19: TLabel;
DBFS: TBtnEditC;

4
A09财务通用管理/U_PayableList.dfm
View File

@ -534,7 +534,7 @@ inherited frmPayableList: TfrmPayableList
Width = 58
end
object Tv1Column30: TcxGridDBColumn
Caption = #24191#21578#36153
Caption = #21333#35777#36153
DataBinding.FieldName = 'AdvFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -550,7 +550,7 @@ inherited frmPayableList: TfrmPayableList
end
object Tv1Column2: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsInvoice'
DataBinding.FieldName = 'IsTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False

2
A09财务通用管理/U_PayableList.pas
View File

@ -296,7 +296,7 @@ begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := Enddate.DateTime - 30;
begdate.DateTime := Enddate.DateTime - 365;
SetStatus();
InitGrid();
end;

20
A09财务通用管理/U_ReceivableInput.dfm
View File

@ -418,6 +418,7 @@ object frmReceivableInput: TfrmReceivableInput
TabOrder = 0
end
object Note: TMemo
Tag = 1
Left = 83
Top = 221
Width = 797
@ -433,6 +434,7 @@ object frmReceivableInput: TfrmReceivableInput
TabOrder = 1
end
object Currency: TComboBox
Tag = 1
Left = 616
Top = 158
Width = 37
@ -516,6 +518,7 @@ object frmReceivableInput: TfrmReceivableInput
OnBtnDnClick = PayMentBtnDnClick
end
object Amount: TcxCurrencyEdit
Tag = 1
Left = 514
Top = 158
Properties.AssignedValues.DisplayFormat = True
@ -524,7 +527,8 @@ object frmReceivableInput: TfrmReceivableInput
Width = 101
end
object Price: TcxCurrencyEdit
Left = 513
Tag = 1
Left = 511
Top = 132
Properties.AssignedValues.DisplayFormat = True
TabOrder = 9
@ -532,6 +536,7 @@ object frmReceivableInput: TfrmReceivableInput
Width = 140
end
object Qty: TcxCurrencyEdit
Tag = 1
Left = 299
Top = 133
Properties.AssignedValues.DisplayFormat = True
@ -540,6 +545,7 @@ object frmReceivableInput: TfrmReceivableInput
Width = 101
end
object Piece: TcxCurrencyEdit
Tag = 1
Left = 82
Top = 133
Properties.AssignedValues.DisplayFormat = True
@ -547,6 +553,7 @@ object frmReceivableInput: TfrmReceivableInput
Width = 140
end
object QtyUnit: TComboBox
Tag = 1
Left = 401
Top = 133
Width = 37
@ -598,7 +605,8 @@ object frmReceivableInput: TfrmReceivableInput
TabOrder = 17
end
object OtherFee: TcxCurrencyEdit
Left = 728
Tag = 1
Left = 731
Top = 132
Properties.AssignedValues.DisplayFormat = True
TabOrder = 18
@ -617,8 +625,9 @@ object frmReceivableInput: TfrmReceivableInput
TabOrder = 19
end
object Deduction: TcxCurrencyEdit
Left = 298
Top = 158
Tag = 1
Left = 299
Top = 157
Properties.AssignedValues.DisplayFormat = True
TabOrder = 20
OnExit = QtyExit
@ -678,6 +687,7 @@ object frmReceivableInput: TfrmReceivableInput
Width = 140
end
object YSDate: TDateTimePicker
Tag = 1
Left = 728
Top = 158
Width = 140
@ -689,6 +699,7 @@ object frmReceivableInput: TfrmReceivableInput
TabOrder = 25
end
object SailingSchedule: TDateTimePicker
Tag = 1
Left = 730
Top = 195
Width = 140
@ -700,6 +711,7 @@ object frmReceivableInput: TfrmReceivableInput
TabOrder = 26
end
object PacketNum: TcxCurrencyEdit
Tag = 1
Left = 83
Top = 159
Properties.AssignedValues.DisplayFormat = True

40
A09财务通用管理/U_ReceivableInput.pas
View File

@ -97,10 +97,11 @@ type
{ Private declarations }
procedure InitGrid();
procedure HJJE();
procedure FZSet();
function SaveData(): Boolean;
public
{ Public declarations }
FFFID: string;
FFFID, PState: string;
end;
var
@ -115,7 +116,7 @@ uses
procedure TfrmReceivableInput.HJJE();
var
MPrice, MQty, MOtherFee, MDeduction, MAmount,MYJ: double;
MPrice, MQty, MOtherFee, MDeduction, MAmount, MYJ: double;
begin
MPrice := Strtofloatdef(Price.Text, 0);
MQty := Strtofloatdef(Qty.Text, 0);
@ -126,7 +127,7 @@ begin
if MQty * MPrice <> 0 then
begin
MAmount := RoundFloat((MQty * MPrice * ((100-MYJ)/100) + MOtherFee - MDeduction), 2);
MAmount := RoundFloat((MQty * MPrice * ((100 - MYJ) / 100) + MOtherFee - MDeduction), 2);
end;
// Price.Text := FloatToStr(MPrice);
// Qty.Text := FloatToStr(MQty);
@ -151,13 +152,26 @@ begin
if not ADOQueryMain.IsEmpty then
begin
SCSHData(ADOQueryMain, ScrollBox1, 0);
if PState <> '¸´ÖÆ' then
begin
SCSHData(ADOQueryMain, ScrollBox1, 1);
end
else
begin
FFTime.DateTime := SGetServerDateTime(ADOQueryTemp);
YSDate.DateTime := FFTime.DateTime + 183;
SailingSchedule.DateTime := FFTime.DateTime;
end;
OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString);
OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString);
if ADOQueryMain.FieldByName('SailingSchedule').ASString='' then
if (ADOQueryMain.FieldByName('SailingSchedule').ASString = '') and (PState <> '¸´ÖÆ') then
begin
SailingSchedule.DateTime := SGetServerDateTime(ADOQueryTemp);
end;
end
else
begin
@ -171,6 +185,18 @@ begin
end;
end;
procedure TfrmReceivableInput.FZSet();
begin
if PState = '¸´ÖÆ' then
begin
SailingSchedule.DateTime := NULL;
FFTime.DateTime := NULL;
YSDate.DateTime := null;
end;
end;
procedure TfrmReceivableInput.OppCoNameBtnUpClick(Sender: TObject);
begin
try
@ -333,6 +359,11 @@ begin
OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString);
end;
InitGrid();
if PState = '¸´ÖÆ' then
begin
FFFID := '';
end;
end;
procedure TfrmReceivableInput.TBRafreshClick(Sender: TObject);
@ -388,6 +419,7 @@ begin
FieldByName('FFID').Value := Trim(MaxId);
FieldByName('ReconciliationDate').Value := FFTime.DateTime;
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 1);
Post;
end;

44
A09财务通用管理/U_ReceivableList.dfm
View File

@ -51,16 +51,24 @@ inherited frmReceivableList: TfrmReceivableList
ImageIndex = 3
OnClick = btnEditClick
end
object ToolButton1: TToolButton
object ToolButton2: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 9
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21333#20215#20462#25913
ImageIndex = 3
OnClick = ToolButton1Click
end
object btnDel: TToolButton
Left = 308
Left = 379
Top = 0
AutoSize = True
Caption = #21024#38500
@ -68,7 +76,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnDelClick
end
object btnChk: TToolButton
Left = 379
Left = 450
Top = 0
AutoSize = True
Caption = #23457#26680
@ -76,7 +84,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 450
Left = 521
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@ -84,7 +92,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnReChkClick
end
object ToolButton4: TToolButton
Left = 545
Left = 616
Top = 0
AutoSize = True
Caption = #23548#20986
@ -92,7 +100,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 616
Left = 687
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -100,7 +108,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 711
Left = 782
Top = 0
AutoSize = True
Caption = #20851#38381
@ -119,6 +127,7 @@ inherited frmReceivableList: TfrmReceivableList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label3: TLabel
Left = 172
Top = 13
@ -595,6 +604,27 @@ inherited frmReceivableList: TfrmReceivableList
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column31: TcxGridDBColumn
Caption = #25163#32493#36153
DataBinding.FieldName = 'JHSXF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
object Tv1Column32: TcxGridDBColumn
Caption = #23454#25910#37329#39069
DataBinding.FieldName = 'SSAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column33: TcxGridDBColumn
Caption = #23454#25910#20154#27665#24065
DataBinding.FieldName = 'SSCNYAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1

46
A09财务通用管理/U_ReceivableList.pas
View File

@ -98,6 +98,10 @@ type
Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column31: TcxGridDBColumn;
Tv1Column32: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -116,6 +120,7 @@ type
procedure btnEditClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -179,6 +184,9 @@ begin
SQL.Clear;
Filtered := False;
sql.Add(' select CONVERT(varchar,A.SailingSchedule,23) SailingSchedule,A.*,Saleser=(select Saleser from BS_Company X where X.CoAbbrName=A.OppCoName) ');
Sql.Add(',JHSXF=ISNULL((select SUM(X.WoSXFAmount) from Finance_WriteOff X where X.ToId=A.FFID ), 0)');
Sql.Add(',SSAmount=ISNULL((select SUM(X.WoAmount)-SUM(X.WoSXFAmount) from Finance_WriteOff X where X.ToId=A.FFID ), 0)');
Sql.Add(',SSCNYAmount=ISNULL((select SUM(X.WoAmount*X.WoJHExchangeRate)-SUM(X.WoSXFAmount*X.WoJHExchangeRate) from Finance_WriteOff X where X.ToId=A.FFID ), 0)');
sql.Add(' from Finance_Flow A where A.FFType=''Ó¦ÊÕ¿îµÇ¼Ç'' ');
case cxTabControl1.TabIndex of
0:
@ -285,7 +293,7 @@ begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := Enddate.DateTime - 30;
begdate.DateTime := Enddate.DateTime - 91;
SetStatus();
InitGrid();
end;
@ -531,6 +539,42 @@ begin
end;
end;
procedure TfrmReceivableList.ToolButton2Click(Sender: TObject);
begin
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_Judge ');
sql.Add(' @FFIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FFID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
except
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
Exit;
end;
try
frmReceivableInput := TfrmReceivableInput.Create(Application);
with frmReceivableInput do
begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
PState := '¸´ÖÆ';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmReceivableInput.Free;
end;
end;
procedure TfrmReceivableList.ToolButton4Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then

271
A09财务通用管理/U_SingleCustStatement.dfm
View File

@ -198,6 +198,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Height = 542
Align = alClient
TabOrder = 2
Visible = False
object TV1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -602,6 +603,274 @@ object frmSingleCustStatement: TfrmSingleCustStatement
GridView = TV1
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 76
Width = 1540
Height = 542
Align = alClient
TabOrder = 3
object TV11: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn5
end
item
Kind = skSum
Column = Tv1Column20
end
item
Kind = skSum
Column = cxGridDBColumn2
end
item
Kind = skSum
Column = v2OrderNo
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'keyNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 57
end
object v2CRTime: TcxGridDBColumn
Tag = 7
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column27: TcxGridDBColumn
Caption = #24212#25910#26085#26399
DataBinding.FieldName = 'YSDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column23: TcxGridDBColumn
Caption = #23545#36134#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v2Column2: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v2FactoryName: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v2OrderNo: TcxGridDBColumn
Tag = 7
Caption = #24212#25910#37329#39069
DataBinding.FieldName = 'BQYSAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #25910#27454#37329#39069
DataBinding.FieldName = 'BQSKAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column19: TcxGridDBColumn
Caption = #32047#35745#20313#39069
DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column24: TcxGridDBColumn
Caption = #31080#21495
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column20: TcxGridDBColumn
Caption = #24320#31080#37329#39069
DataBinding.FieldName = 'BQKPAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column21: TcxGridDBColumn
Caption = #32047#35745#27424#31080
DataBinding.FieldName = 'BQWKPAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column6: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column7: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column28: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object TV11Column1: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 52
end
object TV11Column2: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV11Column3: TcxGridDBColumn
Caption = #20943#20813#37329#39069
DataBinding.FieldName = 'Deduction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV11
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
@ -624,7 +893,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Top = 209
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
Grid = cxGrid1
PopupMenus = <>
Left = 352
Top = 208

35
A09财务通用管理/U_SingleCustStatement.pas
View File

@ -80,6 +80,34 @@ type
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
TV1Column5: TcxGridDBBandedColumn;
cxGrid1: TcxGrid;
TV11: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2FactoryName: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v2OrderNo: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TV11Column1: TcxGridDBColumn;
TV11Column2: TcxGridDBColumn;
TV11Column3: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -147,7 +175,9 @@ end;
procedure TfrmSingleCustStatement.FormShow(Sender: TObject);
begin
readCxBandedGrid(trim(self.Caption), Tv1, '应收款对账单');
// readCxBandedGrid(trim(self.Caption), Tv11, '应收款对账单');
ReadCxGrid(trim(Self.Caption), Tv11, '应收款对账单');
InitGrid();
end;
@ -171,7 +201,8 @@ end;
procedure TfrmSingleCustStatement.ToolButton2Click(Sender: TObject);
begin
WriteCxBandedGrid(trim(self.Caption), Tv1, '应收款对账单');
// WriteCxBandedGrid(trim(self.Caption), Tv11, '应收款对账单');
WriteCxGrid(trim(Self.Caption), Tv11, '应收款对账单');
end;
procedure TfrmSingleCustStatement.FormCreate(Sender: TObject);

288
A09财务通用管理/U_SingleFtyStatement.dfm
View File

@ -198,10 +198,12 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Height = 542
Align = alClient
TabOrder = 2
ExplicitLeft = 1
ExplicitTop = 75
ExplicitLeft = -6
ExplicitTop = 73
ExplicitWidth = 712
object TV1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -262,6 +264,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column2: TcxGridDBBandedColumn
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -275,6 +278,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column4: TcxGridDBBandedColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -288,6 +292,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column5: TcxGridDBBandedColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -301,6 +306,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column6: TcxGridDBBandedColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -314,6 +320,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column7: TcxGridDBBandedColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -327,6 +334,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column8: TcxGridDBBandedColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -340,6 +348,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column9: TcxGridDBBandedColumn
Caption = #24212#20184#37329#39069
DataBinding.FieldName = 'BQYFAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -353,6 +362,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column12: TcxGridDBBandedColumn
Caption = #20184#27454#37329#39069
DataBinding.FieldName = 'BQFKAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -366,6 +376,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column15: TcxGridDBBandedColumn
Caption = #32047#35745#20313#39069
DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -381,6 +392,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column3: TcxGridDBBandedColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -393,6 +405,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
end
object V1Column10: TcxGridDBBandedColumn
DataBinding.FieldName = 'CWID'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
@ -408,6 +421,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column14: TcxGridDBBandedColumn
Caption = #24207#21495
DataBinding.FieldName = 'keyNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -421,6 +435,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column16: TcxGridDBBandedColumn
Caption = #24320#31080#37329#39069
DataBinding.FieldName = 'BQKPAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -434,6 +449,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column17: TcxGridDBBandedColumn
Caption = #32047#35745#27424#31080
DataBinding.FieldName = 'BQWKPAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -448,6 +464,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column20: TcxGridDBBandedColumn
Caption = #31080#21495
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -461,6 +478,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column21: TcxGridDBBandedColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -474,6 +492,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column22: TcxGridDBBandedColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -487,6 +506,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column23: TcxGridDBBandedColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -500,6 +520,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column25: TcxGridDBBandedColumn
Caption = #22791#27880
DataBinding.FieldName = 'MxNote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -512,6 +533,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column26: TcxGridDBBandedColumn
Caption = #22791#27880
DataBinding.FieldName = 'YMxNote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -525,6 +547,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column33: TcxGridDBBandedColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
@ -536,6 +559,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column34: TcxGridDBBandedColumn
Caption = #36135#27454
DataBinding.FieldName = 'HKMONEY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
@ -547,6 +571,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object TV1Column1: TcxGridDBBandedColumn
Caption = #20943#20813#37329#39069
DataBinding.FieldName = 'Deduction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
@ -558,6 +583,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object TV1Column2: TcxGridDBBandedColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsInvoice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
Position.BandIndex = 1
@ -569,6 +595,264 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
GridView = TV1
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 76
Width = 1540
Height = 542
Align = alClient
TabOrder = 3
ExplicitTop = 73
object TV11: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column12
end
item
Kind = skSum
Column = Tv1Column15
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column17
end
item
Kind = skSum
Column = Tv1Column11
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column2
end
item
Kind = skSum
Column = v2FactoryName
end
item
Kind = skSum
Column = Tv1Column28
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object Tv1Column23: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'keyNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object v2CRTime: TcxGridDBColumn
Tag = 7
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object v2Column2: TcxGridDBColumn
Caption = #24212#20184#37329#39069
DataBinding.FieldName = 'BQYFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v2FactoryName: TcxGridDBColumn
Caption = #20184#27454#37329#39069
DataBinding.FieldName = 'BQFKAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v2OrderNo: TcxGridDBColumn
Tag = 7
Caption = #32047#35745#20313#39069
DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsInvoice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column19: TcxGridDBColumn
Caption = #31080#21495
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object Tv1Column28: TcxGridDBColumn
Caption = #24320#31080#37329#39069
DataBinding.FieldName = 'BQKPAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv1Column21: TcxGridDBColumn
Caption = #32047#35745#27424#31080
DataBinding.FieldName = 'BQWKPAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column24: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column12: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'YMxNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column14: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column15: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column17: TcxGridDBColumn
Caption = #20943#20813#37329#39069
DataBinding.FieldName = 'Deduction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column25: TcxGridDBColumn
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Column26: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column27: TcxGridDBColumn
Caption = #25171#21253#26041#24335
DataBinding.FieldName = 'DBFS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV11
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly

35
A09财务通用管理/U_SingleFtyStatement.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu;
dxBarBuiltInMenu, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmSingleFtyStatement = class(TForm)
@ -81,6 +81,33 @@ type
cxStyle2: TcxStyle;
cxStyleRepository3: TcxStyleRepository;
cxStyle3: TcxStyle;
cxGrid1: TcxGrid;
TV11: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2FactoryName: TcxGridDBColumn;
v2OrderNo: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -147,7 +174,8 @@ end;
procedure TfrmSingleFtyStatement.FormShow(Sender: TObject);
begin
readCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
// readCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
readCxGrid(trim(self.Caption), Tv11, '应付款对账单');
InitGrid();
end;
@ -171,7 +199,8 @@ end;
procedure TfrmSingleFtyStatement.ToolButton2Click(Sender: TObject);
begin
WriteCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
// WriteCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
WriteCxGrid(trim(Self.Caption), Tv11, '应付款对账单');
end;
procedure TfrmSingleFtyStatement.FormCreate(Sender: TObject);

43
A09财务通用管理/U_handPayableList.dfm
View File

@ -152,6 +152,7 @@ inherited frmhandPayableList: TfrmhandPayableList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 44
object Label2: TLabel
Left = 40
Top = 13
@ -173,32 +174,43 @@ inherited frmhandPayableList: TfrmhandPayableList
Caption = '-----'
end
object Label5: TLabel
Left = 214
Top = 14
Left = 212
Top = 13
Width = 52
Height = 12
Caption = #23545#26041#21333#20301
Caption = #35745#21010#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 210
Left = 212
Top = 40
Width = 52
Height = 12
Caption = #25105#26041#21333#20301
Caption = #25903#20986#20107#30001
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 388
Top = 12
Width = 26
Height = 12
Caption = #37329#39069
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object begdate: TDateTimePicker
Left = 94
@ -218,26 +230,33 @@ inherited frmhandPayableList: TfrmhandPayableList
Time = 0.918237847232376200
TabOrder = 2
end
object FactoryName: TEdit
object OrderNo: TEdit
Tag = 2
Left = 266
Top = 10
Top = 9
Width = 89
Height = 20
TabOrder = 1
Visible = False
OnChange = IVNoChange
end
object SYRName: TEdit
object SubExpend: TEdit
Tag = 2
Left = 266
Top = 36
Width = 89
Height = 20
TabOrder = 3
Visible = False
OnChange = IVNoChange
end
object Amount: TEdit
Tag = 2
Left = 426
Top = 9
Width = 89
Height = 20
TabOrder = 4
OnKeyPress = AmountKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0

32
A09财务通用管理/U_handPayableList.pas
View File

@ -46,7 +46,7 @@ type
v1InvoiceDate: TcxGridDBColumn;
v1note: TcxGridDBColumn;
Label5: TLabel;
FactoryName: TEdit;
OrderNo: TEdit;
TCHK: TToolButton;
TNOCHK: TToolButton;
cxTabControl1: TcxTabControl;
@ -60,7 +60,7 @@ type
v1Column3: TcxGridDBColumn;
ADOQueryPrint: TADOQuery;
Label1: TLabel;
SYRName: TEdit;
SubExpend: TEdit;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
@ -74,6 +74,8 @@ type
Tv1Column1: TcxGridDBColumn;
ToolButton6: TToolButton;
Tv1Column2: TcxGridDBColumn;
Label3: TLabel;
Amount: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -98,6 +100,7 @@ type
procedure N3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure AmountKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
@ -114,7 +117,8 @@ type
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_HandPayableInPut,U_HandPayableImport;
U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_HandPayableInPut,
U_HandPayableImport;
{$R *.dfm}
@ -188,7 +192,10 @@ begin
sql.add(' and A.Status=''9''');
end;
end;
if Amount.text <> '' then
begin
sql.Add(' and A.Amount=''' + Trim(Amount.Text) + '''');
end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Invoice);
@ -326,6 +333,15 @@ begin
end;
procedure TfrmhandPayableList.AmountKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
initGrid();
end;
end;
procedure TfrmhandPayableList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
@ -333,8 +349,8 @@ begin
end;
procedure TfrmhandPayableList.TCHKClick(Sender: TObject);
Var
MFFIDS:String;
var
MFFIDS: string;
begin
if CDS_Invoice.IsEmpty then
exit;
@ -378,7 +394,7 @@ end;
procedure TfrmhandPayableList.TNOCHKClick(Sender: TObject);
var
MFFIDS:string;
MFFIDS: string;
begin
if CDS_Invoice.IsEmpty then
exit;
@ -535,7 +551,7 @@ begin
begin
// IvNo.Enabled := False;
FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring);
PState:='¸´ÖÆ';
PState := '¸´ÖÆ';
if showmodal = 1 then
begin
Self.initGrid();

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

@ -31,8 +31,9 @@ uses
U_BaoguanInPut in 'U_BaoguanInPut.pas' {frmBaoguanInPut},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_ZDYHelp_Img in 'U_ZDYHelp_Img.pas' {frmZDYHelp_Img},
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_QMFileUp in 'U_QMFileUp.pas' {frmQMFileUp};
U_ZDYHelp_KH in 'U_ZDYHelp_KH.pas' {frmZDYHelp_KH},
U_QMFileUp in 'U_QMFileUp.pas' {frmQMFileUp},
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp};
{$R *.res}

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

@ -206,14 +206,18 @@
<Form>frmZDYHelp_Img</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form>
<DCCReference Include="U_ZDYHelp_KH.pas">
<Form>frmZDYHelp_KH</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_QMFileUp.pas">
<Form>frmQMFileUp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,78 +1,87 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</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.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.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.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.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.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm</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.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.114,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_ContractList.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.872,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.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.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.564,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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.345,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.519,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.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.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm</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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.603,=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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.063,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.345,=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.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.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.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.872,=D:\Dp10Repo\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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.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.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.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.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.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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</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.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</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.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</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.618,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.289,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.422,=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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.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.519,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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -156,5 +165,7 @@
<File Path="U_ZDYHelp_Img.dfm"/>
<File Path="U_QMFileUp.pas"/>
<File Path="U_QMFileUp.dfm"/>
<File Path="U_ZDYHelp_KH.pas"/>
<File Path="U_ZDYHelp_KH.dfm"/>
</ProjectSortOrder>
</BorlandProject>

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

Binary file not shown.

153
B01基础合同管理/U_BaoguanInPut.dfm
View File

@ -11,8 +11,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -49
ExplicitTop = -92
ExplicitWidth = 1300
ExplicitHeight = 706
PixelsPerInch = 96
@ -64,7 +62,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
Top = 38
Width = 1284
Height = 339
HorzScrollBar.Position = 61
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -80,9 +77,8 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitWidth = 1511
object Label10: TLabel
Left = 435
Left = 496
Top = 95
Width = 66
Height = 12
@ -95,7 +91,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label14: TLabel
Left = -25
Left = 36
Top = 30
Width = 66
Height = 12
@ -108,7 +104,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label1: TLabel
Left = -25
Left = 36
Top = 95
Width = 66
Height = 12
@ -121,7 +117,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label2: TLabel
Left = 216
Left = 277
Top = 95
Width = 65
Height = 12
@ -134,7 +130,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label4: TLabel
Left = 435
Left = 496
Top = 193
Width = 65
Height = 12
@ -147,7 +143,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label3: TLabel
Left = 435
Left = 496
Top = 63
Width = 65
Height = 12
@ -160,7 +156,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label5: TLabel
Left = 435
Left = 496
Top = 30
Width = 67
Height = 12
@ -173,7 +169,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label6: TLabel
Left = 870
Left = 931
Top = 30
Width = 65
Height = 12
@ -186,7 +182,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label7: TLabel
Left = 641
Left = 702
Top = 95
Width = 65
Height = 12
@ -199,7 +195,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label8: TLabel
Left = 641
Left = 702
Top = 158
Width = 65
Height = 12
@ -212,7 +208,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label11: TLabel
Left = -25
Left = 36
Top = 158
Width = 66
Height = 12
@ -225,7 +221,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label15: TLabel
Left = 870
Left = 931
Top = 63
Width = 65
Height = 12
@ -238,7 +234,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label17: TLabel
Left = 216
Left = 277
Top = 126
Width = 66
Height = 12
@ -251,7 +247,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label20: TLabel
Left = 870
Left = 931
Top = 193
Width = 65
Height = 12
@ -264,7 +260,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label21: TLabel
Left = 216
Left = 277
Top = 227
Width = 67
Height = 12
@ -277,7 +273,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label22: TLabel
Left = -25
Left = 36
Top = 193
Width = 65
Height = 12
@ -290,7 +286,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label24: TLabel
Left = 1098
Left = 1159
Top = 30
Width = 65
Height = 12
@ -303,7 +299,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label25: TLabel
Left = -25
Left = 36
Top = 227
Width = 65
Height = 12
@ -316,7 +312,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label26: TLabel
Left = 641
Left = 702
Top = 227
Width = 66
Height = 12
@ -329,7 +325,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label27: TLabel
Left = -25
Left = 36
Top = 262
Width = 65
Height = 12
@ -342,7 +338,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label28: TLabel
Left = 435
Left = 496
Top = 227
Width = 67
Height = 12
@ -355,7 +351,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label30: TLabel
Left = 650
Left = 711
Top = 262
Width = 66
Height = 12
@ -368,7 +364,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label32: TLabel
Left = -25
Left = 36
Top = 63
Width = 65
Height = 12
@ -381,7 +377,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label33: TLabel
Left = -26
Left = 35
Top = 295
Width = 67
Height = 12
@ -394,7 +390,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label35: TLabel
Left = 1090
Left = 1151
Top = 126
Width = 78
Height = 12
@ -407,7 +403,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label12: TLabel
Left = 435
Left = 496
Top = 158
Width = 65
Height = 12
@ -420,7 +416,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label13: TLabel
Left = 870
Left = 931
Top = 158
Width = 65
Height = 12
@ -433,7 +429,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label9: TLabel
Left = 1098
Left = 1159
Top = 158
Width = 67
Height = 12
@ -446,7 +442,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label16: TLabel
Left = 641
Left = 702
Top = 193
Width = 65
Height = 12
@ -459,7 +455,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label19: TLabel
Left = 641
Left = 702
Top = 126
Width = 66
Height = 12
@ -472,7 +468,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label18: TLabel
Left = 435
Left = 496
Top = 126
Width = 66
Height = 12
@ -485,7 +481,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label36: TLabel
Left = 869
Left = 930
Top = 126
Width = 66
Height = 12
@ -498,7 +494,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label23: TLabel
Left = 1098
Left = 1159
Top = 193
Width = 65
Height = 12
@ -511,7 +507,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label29: TLabel
Left = 641
Left = 702
Top = 63
Width = 66
Height = 12
@ -524,7 +520,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label31: TLabel
Left = 216
Left = 277
Top = 262
Width = 78
Height = 12
@ -537,7 +533,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
ParentFont = False
end
object Label34: TLabel
Left = -25
Left = 36
Top = 126
Width = 66
Height = 12
@ -551,7 +547,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object ConNo: TEdit
Tag = 2
Left = 503
Left = 564
Top = 92
Width = 110
Height = 18
@ -559,7 +555,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object CKS: TBtnEditC
Tag = 2
Left = 47
Left = 108
Top = 26
Width = 350
Height = 20
@ -570,7 +566,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object FPNO: TEdit
Tag = 2
Left = 47
Left = 108
Top = 92
Width = 110
Height = 18
@ -578,7 +574,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object FPDate: TDateTimePicker
Tag = 2
Left = 287
Left = 348
Top = 91
Width = 110
Height = 20
@ -590,7 +586,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object ZMXZ: TBtnEditC
Tag = 2
Left = 503
Left = 564
Top = 189
Width = 110
Height = 20
@ -601,7 +597,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object PONO: TEdit
Tag = 2
Left = 503
Left = 564
Top = 60
Width = 110
Height = 18
@ -609,7 +605,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object HTDate: TDateTimePicker
Tag = 2
Left = 712
Left = 773
Top = 91
Width = 110
Height = 20
@ -621,7 +617,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object HB: TBtnEditC
Tag = 2
Left = 712
Left = 773
Top = 154
Width = 110
Height = 20
@ -632,7 +628,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object LJKA: TBtnEditC
Tag = 2
Left = 932
Left = 993
Top = 59
Width = 110
Height = 20
@ -643,7 +639,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object ChuyunG: TBtnEditC
Tag = 2
Left = 287
Left = 348
Top = 122
Width = 110
Height = 20
@ -654,7 +650,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object BZType: TBtnEditC
Tag = 2
Left = 932
Left = 993
Top = 189
Width = 110
Height = 20
@ -665,7 +661,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object MYType: TBtnEditC
Tag = 2
Left = 47
Left = 108
Top = 189
Width = 350
Height = 20
@ -676,7 +672,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object SBDate: TDateTimePicker
Tag = 2
Left = 1174
Left = 1235
Top = 26
Width = 110
Height = 20
@ -688,7 +684,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object BGTK: TBtnEditC
Tag = 2
Left = 47
Left = 108
Top = 223
Width = 110
Height = 20
@ -699,7 +695,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object HYDL: TBtnEditC
Tag = 2
Left = 287
Left = 348
Top = 258
Width = 326
Height = 20
@ -711,7 +707,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object CGS: TBtnEditC
Tag = 2
Left = 716
Left = 777
Top = 258
Width = 326
Height = 20
@ -722,7 +718,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object CustName: TBtnEditC
Tag = 2
Left = 47
Left = 107
Top = 59
Width = 350
Height = 20
@ -733,7 +729,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object ZZMDG: TBtnEditC
Tag = 2
Left = 1174
Left = 1235
Top = 122
Width = 110
Height = 20
@ -744,7 +740,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object DPNo: TEdit
Tag = 2
Left = 503
Left = 564
Top = 27
Width = 317
Height = 18
@ -752,7 +748,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object HGCode: TBtnEditC
Tag = 2
Left = 932
Left = 993
Top = 26
Width = 110
Height = 20
@ -763,7 +759,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object YunFee: TEdit
Tag = 2
Left = 287
Left = 348
Top = 224
Width = 110
Height = 18
@ -772,7 +768,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object BANo: TEdit
Tag = 2
Left = 712
Left = 773
Top = 224
Width = 110
Height = 18
@ -780,7 +776,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object BaoFee: TEdit
Tag = 2
Left = 503
Left = 564
Top = 224
Width = 110
Height = 18
@ -789,7 +785,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object Note: TEdit
Tag = 2
Left = 47
Left = 108
Top = 293
Width = 995
Height = 18
@ -797,7 +793,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object TDNo: TEdit
Tag = 2
Left = 47
Left = 108
Top = 155
Width = 350
Height = 18
@ -805,7 +801,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object KHDate: TDateTimePicker
Tag = 2
Left = 503
Left = 564
Top = 154
Width = 110
Height = 20
@ -817,7 +813,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object batchNo: TEdit
Tag = 2
Left = 932
Left = 993
Top = 155
Width = 110
Height = 18
@ -825,7 +821,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object HG: TBtnEditC
Tag = 2
Left = 1174
Left = 1235
Top = 154
Width = 110
Height = 20
@ -836,7 +832,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object YSType: TBtnEditC
Tag = 2
Left = 712
Left = 773
Top = 189
Width = 110
Height = 20
@ -847,7 +843,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object DYG: TBtnEditC
Tag = 2
Left = 712
Left = 773
Top = 122
Width = 110
Height = 20
@ -858,7 +854,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object MYG: TBtnEditC
Tag = 2
Left = 503
Left = 564
Top = 122
Width = 110
Height = 20
@ -869,7 +865,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object DaohuoG: TBtnEditC
Tag = 2
Left = 932
Left = 993
Top = 122
Width = 110
Height = 20
@ -880,7 +876,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object JHType: TBtnEditC
Tag = 2
Left = 1174
Left = 1235
Top = 189
Width = 110
Height = 20
@ -891,7 +887,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object notifier: TBtnEditC
Tag = 2
Left = 712
Left = 773
Top = 59
Width = 110
Height = 20
@ -902,7 +898,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object MDGDL: TBtnEditC
Tag = 2
Left = 47
Left = 108
Top = 258
Width = 110
Height = 20
@ -913,7 +909,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
end
object chukouG: TBtnEditC
Tag = 2
Left = 47
Left = 108
Top = 122
Width = 110
Height = 20
@ -931,9 +927,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
Align = alClient
Caption = 'Panel1'
TabOrder = 2
ExplicitTop = 353
ExplicitWidth = 1517
ExplicitHeight = 342
object ToolBar3: TToolBar
Tag = 1
Left = 1
@ -984,8 +977,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
ExplicitWidth = 1515
ExplicitHeight = 302
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

48
B01基础合同管理/U_BaoguanInPut.pas
View File

@ -219,7 +219,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_PictureUpload,
U_ZDYHelp_Img;
U_ZDYHelp_Img,U_ZDYHelp_KH;
{$R *.dfm}
function TfrmBaoguanInPut.GetLSNo1(ADOQueryTmp: TADOQuery; var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean;
@ -1733,27 +1733,51 @@ begin
end;
procedure TfrmBaoguanInPut.CustNameBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
frmZDYHelp_KH := TfrmZDYHelp_KH.Create(Application);
with frmZDYHelp_KH do
begin
FCoType := '客户';
// if Self.FAuthority = '录入' then
// FAuthority := '理单业务';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
MainType := '报关管理';
fnote1:=True;
if ShowModal = 1 then
begin
self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
self.PoNO.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
PONO.Text := Trim(ClientDataSet1.fieldbyname('Note1').AsString);
end;
end;
finally
frmCompanySel.Free;
frmZDYHelp_KH.Free;
end;
end;
//begin
// try
// frmCompanySel := TfrmCompanySel.Create(Application);
// with frmCompanySel do
// begin
// FCoType := '客户';
//// if Self.FAuthority = '录入' then
//// FAuthority := '理单业务';
// if ShowModal = 1 then
// begin
//
// self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
// self.PoNO.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
// end;
// end;
//
// finally
// frmCompanySel.Free;
// end;
//end;
procedure TfrmBaoguanInPut.v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin

1
B01基础合同管理/U_BaoguanList.dfm
View File

@ -211,7 +211,6 @@ inherited frmBaoguanList: TfrmBaoguanList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitTop = 161
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

1
B01基础合同管理/U_SalesContractList.dfm
View File

@ -263,7 +263,6 @@ inherited frmSalesContractList: TfrmSalesContractList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Styles.Header = DataLink_Contract.Default
Width = 82
end

2
B01基础合同管理/U_SalesContractList.pas
View File

@ -490,7 +490,7 @@ begin
if Trim(FAuthority) = '理单' then
begin
sql.Add('and AA.TallyId=' + quotedstr(trim(DCode)));
sql.Add('and (AA.TallyId=' + quotedstr(trim(DCode))+ ' or AA.Filler =' + quotedstr(trim(DCode))+')');
end;
case cxTabControl1.TabIndex of

14398
B01基础合同管理/U_ZDYHelp_KH.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

679
B01基础合同管理/U_ZDYHelp_KH.pas Normal file
View File

@ -0,0 +1,679 @@
unit U_ZDYHelp_KH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseInput, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, cxContainer, cxImageList,
dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
type
TfrmZDYHelp_KH = class(TfrmBaseInput)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Code: TcxGridDBColumn;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBSave: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
V1Note: TcxGridDBColumn;
V1OrderNo: TcxGridDBColumn;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ZDYName: TcxTextEdit;
ThreeImgList: TImageList;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
V1ZdyFlag: TcxGridDBColumn;
V1HelpType: TcxGridDBColumn;
V1note1: TcxGridDBColumn;
ImageList1: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ZDYNamePropertiesChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag, flagname, snote, MainType: string;
fnote, forderno, fZdyFlag, ViewFlag, fnote1, FHelpType: Boolean;
PPSTE: integer;
{ Public declarations }
end;
var
frmZDYHelp_KH: TfrmZDYHelp_KH;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmZDYHelp_KH.FormCreate(Sender: TObject);
begin
inherited;
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
end;
procedure TfrmZDYHelp_KH.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ZDYName.SetFocus;
Action := cahide;
end;
procedure TfrmZDYHelp_KH.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''' + flag + '''');
if Trim(MainType) <> '' then
begin
sql.Add(' and A.MainType=''' + Trim(MainType) + '''');
end;
Open;
end;
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmZDYHelp_KH.TBAddClick(Sender: TObject);
var
i: Integer;
begin
ZDYName.SetFocus;
TV1.OptionsData.Editing := True;
TV1.OptionsSelection.CellSelect := True;
for i := 0 to 5 do
begin
with ClientDataSet1 do
begin
Append;
Post;
end;
end;
end;
procedure TfrmZDYHelp_KH.TBSaveClick(Sender: TObject);
var
maxno: string;
begin
if ClientDataSet1.IsEmpty then
Exit;
ZDYName.SetFocus;
if ClientDataSet1.Locate('ZDYName', null, []) then
begin
Application.MessageBox('名称不能为空！', '提示', 0);
Exit;
end;
if ClientDataSet1.Locate('ZDYName', '', []) then
begin
Application.MessageBox('名称不能为空！', '提示', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1=2');
open;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
ADOQueryCmd.FieldByName('Type').Value := 'Main';
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
ADOQueryCmd.Post;
{ sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
Parameters.ParamByName('Type').Value:='Main';
Parameters.ParamByName('MainType').Value:=Trim(MainType);
ExecSQL; }
end;
end;
with ADOQueryCmd do
begin
ClientDataSet1.DisableControls;
with ClientDataSet1 do
begin
First;
while not eof do
begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
if Trim(MainType) <> '' then
SQL.Add(' and MainType=''' + Trim(MainType) + '''');
sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
if ADOQueryTemp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end
else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
begin
ADOQueryCmd.Connection.RollbackTrans;
ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').Value;
ADOQueryCmd.FieldByName('note').Value := Trim(snote);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value := flag;
ADOQueryCmd.FieldByName('valid').Value := 'Y';
if Trim(MainType) <> '' then
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
ClientDataSet1.Post;
Next;
end;
end;
ClientDataSet1.EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！', '提示', 0);
TV1.OptionsData.Editing := False;
TV1.OptionsSelection.CellSelect := False;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end;
end;
procedure TfrmZDYHelp_KH.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then
Exit;
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString) <> '') or (Trim(ClientDataSet1.FieldByName('ZDYname').AsString) <> '') then
begin
if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete KH_ZDY where ZDYNo=''' + Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString) + '''');
SQL.Add(' and Type=''' + Trim(flag) + '''');
ExecSQL;
end;
end;
ClientDataSet1.Delete;
end;
procedure TfrmZDYHelp_KH.TBCloseClick(Sender: TObject);
begin
ModalResult := 2;
ZDYName.SetFocus;
Close;
end;
procedure TfrmZDYHelp_KH.FormShow(Sender: TObject);
var
fsj, fsj1: string;
begin
// inherited;
InitGrid();
fsj := Trim(flag) + '01';
fsj1 := Trim(flagname) + '01';
ReadCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
frmZDYHelp_KH.Caption := Trim(flagname);
V1Note.Visible := fnote;
V1ZdyFlag.Visible := fZdyFlag;
V1OrderNo.Visible := forderno;
v1note1.Visible := fnote1;
V1HelpType.Visible := fhelpType;
if ViewFlag = True then
begin
TBAdd.Visible := False;
TBSave.Visible := False;
TBDel.Visible := False;
TBEdit.Visible := False;
Label2.Visible := False;
end;
end;
procedure TfrmZDYHelp_KH.ToolButton1Click(Sender: TObject);
begin
ZDYName.SetFocus;
// WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
ModalResult := 1;
end;
procedure TfrmZDYHelp_KH.TBEditClick(Sender: TObject);
begin
TV1.OptionsData.Editing := True;
TV1.OptionsSelection.CellSelect := True;
end;
procedure TfrmZDYHelp_KH.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if TV1.OptionsData.Editing = False then
begin
ModalResult := 1;
end;
end;
procedure TfrmZDYHelp_KH.ZDYNamePropertiesChange(Sender: TObject);
var
fsj: string;
begin
if Trim(ZDYName.Text) <> '' then
begin
fsj := ' zdyname like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or Note like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or ZJM like ''' + '%' + Trim(ZDYName.Text) + '%' + '''';
end;
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, fsj);
SCreateCDS(ADOQueryMain, ClientDataSet1);
SInitCDSData(ADOQueryMain, ClientDataSet1);
end;
end;
procedure TfrmZDYHelp_KH.V1NamePropertiesEditValueChanged(Sender: TObject);
var
maxno, mvalue: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
//Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('ZdyName').Value := Trim(mvalue);
//Post;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1=2');
open;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
ADOQueryCmd.FieldByName('Type').Value := 'Main';
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
ADOQueryCmd.Post;
end;
end;
with ADOQueryCmd do
begin
//ClientDataSet1.DisableControls;
//with ClientDataSet1 do
//begin
//First;
//while not eof do
//begin
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
if Trim(MainType) <> '' then
SQL.Add(' and MainType=''' + Trim(MainType) + '''');
sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' and note=''' + Trim(ClientDataSet1.fieldbyname('note').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
if ADOQueryTemp.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end;
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end
else
begin
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('名称重复！', '提示', 0);
Exit;
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_ZDY where 1<>1');
Open;
end;
ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').AsString;
ADOQueryCmd.FieldByName('note').Value := Trim(snote);
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
ADOQueryCmd.FieldByName('Type').Value := flag;
ADOQueryCmd.FieldByName('valid').Value := 'Y';
if Trim(MainType) <> '' then
ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
//ADOQueryCmd.FieldByName('sel').Value:=0;
ADOQueryCmd.Post;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
//ClientDataSet1.Post;
// Next;
//end;
//end;
// ClientDataSet1.EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
//Application.MessageBox('保存成功！','提示',0);
//TV1.OptionsData.Editing:=False;
//TV1.OptionsSelection.CellSelect:=False;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
end;
end;
procedure TfrmZDYHelp_KH.V1OrderNoPropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('OrderNo').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set OrderNo=' + mvalue);
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYHelp_KH.V1NotePropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('Note').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set Note=''' + Trim(mvalue) + '''');
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYHelp_KH.V1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
fieldname: string;
begin
fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
with ClientDataSet1 do
begin
Edit;
FieldByName(fieldname).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set ' + fieldname + '=''' + Trim(mvalue) + ''' ');
sql.Add('where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYHelp_KH.V1HelpTypePropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
begin
Application.MessageBox('名称不能为空!', '提示', 0);
Exit;
end;
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('HelpType').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update KH_Zdy Set HelpType=''' + Trim(mvalue) + '''');
sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmZDYHelp_KH.FormDestroy(Sender: TObject);
begin
inherited;
WriteCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
frmZDYHelp_KH := nil;
end;
end.

10
B04采购计划管理/U_ClothHJGPlanPut.dfm
View File

@ -512,7 +512,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 0
TabOrder = 1
end
object PurNo: TEdit
Tag = 2
@ -520,7 +520,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
Top = 17
Width = 125
Height = 18
TabOrder = 1
TabOrder = 2
Text = #33258#21160#29983#25104
end
object BuyName: TBtnEditC
@ -530,7 +530,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
Width = 125
Height = 20
ReadOnly = True
TabOrder = 2
TabOrder = 3
OnBtnUpClick = BuyNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
@ -541,7 +541,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
Width = 125
Height = 20
Hint = 'QtyNoteZW/'#28322#30701#35013
TabOrder = 3
TabOrder = 4
OnBtnUpClick = SalesmanBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
@ -552,7 +552,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
Width = 125
Height = 20
Hint = 'SellName/'#20379#24212#21830
TabOrder = 4
TabOrder = 0
OnBtnUpClick = SellNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end

10
B04采购计划管理/U_ClothPurchasePlanPut.dfm
View File

@ -499,7 +499,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 0
TabOrder = 1
end
object PurNo: TEdit
Tag = 2
@ -507,7 +507,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
Top = 17
Width = 125
Height = 18
TabOrder = 1
TabOrder = 2
Text = #33258#21160#29983#25104
end
object BuyName: TBtnEditC
@ -517,7 +517,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
Width = 125
Height = 20
ReadOnly = True
TabOrder = 2
TabOrder = 3
OnBtnUpClick = BuyNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
@ -528,7 +528,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
Width = 125
Height = 20
Hint = 'QtyNoteZW/'#28322#30701#35013
TabOrder = 3
TabOrder = 4
OnBtnUpClick = SalesmanBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
@ -539,7 +539,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
Width = 125
Height = 20
Hint = 'SellName/'#20379#24212#21830
TabOrder = 4
TabOrder = 0
OnBtnUpClick = SellNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end

10
B04采购计划管理/U_ClothRSPlanPut.dfm
View File

@ -526,7 +526,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 0
TabOrder = 1
end
object PurNo: TEdit
Tag = 2
@ -534,7 +534,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
Top = 17
Width = 125
Height = 18
TabOrder = 1
TabOrder = 2
Text = #33258#21160#29983#25104
end
object BuyName: TBtnEditC
@ -544,7 +544,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
Width = 125
Height = 20
ReadOnly = True
TabOrder = 2
TabOrder = 3
OnBtnUpClick = BuyNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
@ -555,7 +555,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
Width = 125
Height = 20
Hint = 'QtyNoteZW/'#28322#30701#35013
TabOrder = 3
TabOrder = 4
OnBtnUpClick = SalesmanBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
@ -566,7 +566,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
Width = 125
Height = 20
Hint = 'SellName/'#20379#24212#21830
TabOrder = 4
TabOrder = 0
OnBtnUpClick = SellNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end

5
T01贸易生产计划/TradePlan.dpr
View File

@ -23,7 +23,6 @@ uses
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
U_PlanTecList in 'U_PlanTecList.pas' {frmPlanTecList},
U_TradeInspSet in 'U_TradeInspSet.pas' {frmTradeInspSet},
U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
@ -31,8 +30,10 @@ uses
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
U_TradePlanSchedule in 'U_TradePlanSchedule.pas' {frmTradePlanSchedule},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_PlanProfit in 'U_PlanProfit.pas' {frmPlanProfit},
U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails};
{$R *.res}

20
T01贸易生产计划/TradePlan.dproj
View File

@ -173,10 +173,6 @@
<Form>frmEmployeeSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_PlanTecList.pas">
<Form>frmPlanTecList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradeInspSet.pas">
<Form>frmTradeInspSet</Form>
<FormType>dfm</FormType>
@ -205,15 +201,23 @@
<Form>frmTradePlanSchedule</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradePlanScheduleDetail.pas">
<Form>frmTradePlanScheduleDetail</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="U_PlanProfit.pas">
<Form>frmPlanProfit</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TradePlanScheduleDetail.pas">
<Form>frmTradePlanScheduleDetail</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_PlanProfitDetails.pas">
<Form>frmPlanProfitDetails</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

51
T01贸易生产计划/TradePlan.dproj.local
View File

@ -1,49 +1,52 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -126,7 +129,9 @@
<File Path="U_TradePlanSchedule.dfm"/>
<File Path="U_TradePlanScheduleDetail.pas"/>
<File Path="U_TradePlanScheduleDetail.dfm"/>
<File Path="U_PlanTecList.pas"/>
<File Path="U_PlanTecList.dfm"/>
<File Path="U_PlanProfit.pas"/>
<File Path="U_PlanProfit.dfm"/>
<File Path="U_PlanProfitDetails.pas"/>
<File Path="U_PlanProfitDetails.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

5
T01贸易生产计划/U_DataLink.dfm
View File

@ -1,4 +1,5 @@
inherited DataLink_TradePlan: TDataLink_TradePlan
OldCreateOrder = True
OnDestroy = DataModuleDestroy
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
@ -10505,7 +10506,7 @@ inherited DataLink_TradePlan: TDataLink_TradePlan
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
TextColor = clBlack
end
object FoneClMaroon: TcxStyle
AssignedValues = [svFont, svTextColor]
@ -10556,6 +10557,8 @@ inherited DataLink_TradePlan: TDataLink_TradePlan
Font.Style = [fsBold]
TextColor = clRed
end
object cxStyle1: TcxStyle
end
end
object Timer_link: TTimer
Interval = 15000

1
T01贸易生产计划/U_DataLink.pas
View File

@ -60,6 +60,7 @@ type
SHuangSeCu: TcxStyle;
Timer_link: TTimer;
ImageList_new32: TImageList;
cxStyle1: TcxStyle;
procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);

14
T01贸易生产计划/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_TradePlanList, U_TradePlanMulFtyList,
U_TradePlanSchedule, U_PlanTecList;
U_TradePlanSchedule, U_PlanTecList, U_PlanProfit;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -176,6 +176,18 @@ begin
end;
end;
311: //ÀûÈó±í²éѯ
begin
with TfrmPlanProfit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000:
begin

727
T01贸易生产计划/U_PlanProfit.dfm Normal file
View File

@ -0,0 +1,727 @@
inherited frmPlanProfit: TfrmPlanProfit
Left = 165
Top = 13
Caption = #21033#28070#26597#35810#34920
ClientHeight = 760
ClientWidth = 1540
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradePlan.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton3Click
end
object TBAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
Visible = False
OnClick = TBAddClick
end
object btnCopy: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 13
Visible = False
OnClick = btnCopyClick
end
object TBEdit: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
Visible = False
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
Visible = False
OnClick = TBDelClick
end
object ToolButton1: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #25171#21367#35774#32622
ImageIndex = 3
Visible = False
OnClick = ToolButton1Click
end
object TBPrint: TToolButton
Left = 521
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
Visible = False
OnClick = TBPrintClick
end
object TBCK: TToolButton
Left = 592
Top = 0
AutoSize = True
Caption = #26597#30475#26126#32454
ImageIndex = 8
OnClick = TBCKClick
end
object ToolButton4: TToolButton
Left = 687
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
Visible = False
OnClick = ToolButton4Click
end
object TBTJ: TToolButton
Left = 758
Top = 0
AutoSize = True
Caption = #25552#20132
ImageIndex = 12
Visible = False
OnClick = TBTJClick
end
object TBTJCX: TToolButton
Left = 829
Top = 0
AutoSize = True
Caption = #25552#20132#25764#38144
ImageIndex = 11
Visible = False
OnClick = TBTJCXClick
end
object Tchk: TToolButton
Left = 924
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
Visible = False
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 995
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
Visible = False
OnClick = TnochkClick
end
object TWC: TToolButton
Left = 1090
Top = 0
AutoSize = True
Caption = #23436#25104
ImageIndex = 12
Visible = False
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 1161
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
ImageIndex = 11
Visible = False
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 1256
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 1351
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 51
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 345
Top = 20
Width = 52
Height = 12
Caption = #35745#21010#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 513
Top = 20
Width = 26
Height = 12
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 978
Top = 20
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 828
Top = 20
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object BegDate: TDateTimePicker
Left = 128
Top = 16
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 219
Top = 16
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 2
end
object OrderNo: TEdit
Tag = 2
Left = 403
Top = 16
Width = 77
Height = 20
TabOrder = 1
OnKeyPress = OrderNoKeyPress
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 20
TabOrder = 3
OnChange = OrderNoMChange
end
object ComboBox1: TComboBox
Left = 49
Top = 16
Width = 71
Height = 20
TabOrder = 4
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
end
object CustName: TEdit
Tag = 2
Left = 545
Top = 16
Width = 80
Height = 20
TabOrder = 5
OnKeyPress = OrderNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 1036
Top = 16
Width = 77
Height = 20
TabOrder = 6
Visible = False
OnChange = OrderNoChange
end
object ConNo: TEdit
Tag = 2
Left = 873
Top = 16
Width = 80
Height = 20
TabOrder = 7
Visible = False
OnChange = OrderNoChange
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
TabOrder = 8
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 107
Width = 1540
Height = 653
Align = alClient
PopupMenu = PM_1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column11
end
item
Kind = skSum
Column = Tv1Column10
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradePlan.Default
Styles.IncSearch = DataLink_TradePlan.SHuangSe
Styles.Footer = DataLink_TradePlan.Default
Styles.Header = DataLink_TradePlan.Default
Styles.Inactive = DataLink_TradePlan.SHuangSe
Styles.Selection = DataLink_TradePlan.SHuangSe
object v1Column16: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 38
end
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradePlan.Default
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradePlan.FoneClMaroon
Width = 88
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradePlan.FontBlue
Width = 151
end
object Tv1Column3: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column22: TcxGridDBColumn
Caption = #29702#21333
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradePlan.Default
Width = 80
end
object Tv1Column12: TcxGridDBColumn
Caption = #24212#20184#37329#39069
DataBinding.FieldName = 'YFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column13: TcxGridDBColumn
Caption = #23454#20184#37329#39069
DataBinding.FieldName = 'FKAmount'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object Tv1Column14: TcxGridDBColumn
Caption = #26410#20184#37329#39069
DataBinding.FieldName = 'WFKAmount'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column15: TcxGridDBColumn
Caption = #24212#25910#37329#39069
DataBinding.FieldName = 'XSAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column16: TcxGridDBColumn
Caption = #23454#25910#37329#39069
DataBinding.FieldName = 'HXAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column11: TcxGridDBColumn
Caption = #26410#25910#37329#39069
DataBinding.FieldName = 'WSKAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column10: TcxGridDBColumn
Caption = #36716#21333#20986#24211#37329#39069
DataBinding.FieldName = 'ZDCKFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object v1Column11: TcxGridDBColumn
Caption = #36716#21333#20837#24211#37329#39069
DataBinding.FieldName = 'ZDRKFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 111
end
object Tv1Column6: TcxGridDBColumn
Caption = #21033#28070
DataBinding.FieldName = 'SJLRAMount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column1: TcxGridDBColumn
Caption = #20854#20182#24212#20184
DataBinding.FieldName = 'OtherYFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv1Column5: TcxGridDBColumn
Caption = #36153#29992#37329#39069
DataBinding.FieldName = 'HandYFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column7: TcxGridDBColumn
Caption = #23454#25910#20154#27665#24065
DataBinding.FieldName = 'SSCNYAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column8: TcxGridDBColumn
Caption = #25163#32493#36153
DataBinding.FieldName = 'SXFAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 89
Width = 1540
Height = 18
Align = alTop
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23436#25104
#24050#23436#25104
#20840#37096)
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 257
Top = 152
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 121
Top = 153
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 660
Top = 428
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 568
Top = 240
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 420
Top = 216
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 320
Top = 224
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 812
Top = 440
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 724
Top = 432
end
object ADOQuerySub: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 312
Top = 600
end
object DataSource2: TDataSource
DataSet = ORDER_SUB
Left = 408
Top = 604
end
object ADOQueryImage: TADOQuery
Connection = DataLink_TradePlan.ADOLink
EnableBCD = False
Parameters = <>
Left = 316
Top = 283
end
object DSImage: TDataSource
DataSet = ADOQueryImage
Left = 416
Top = 288
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 92
Top = 258
end
object ORDER_SUB: TClientDataSet
Aggregates = <>
Params = <>
Left = 212
Top = 608
end
object PopupMenu2: TPopupMenu
Left = 532
Top = 636
object N3: TMenuItem
Caption = #20840#36873
OnClick = N3Click
end
object N4: TMenuItem
Caption = #20840#24323
OnClick = N4Click
end
object N2: TMenuItem
Caption = #22797#21046
end
end
object cxgrdpmn2: TcxGridPopupMenu
PopupMenus = <>
Left = 660
Top = 636
end
object CDS_WXTS: TClientDataSet
Aggregates = <>
Params = <>
Left = 412
Top = 424
end
object PM_1: TPopupMenu
Left = 988
Top = 356
object N1: TMenuItem
Caption = #22797#21046
OnClick = N1Click
end
end
object GPM_3: TcxGridPopupMenu
PopupMenus = <>
Left = 860
Top = 228
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 1096
Top = 404
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 1092
Top = 304
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 216
Top = 232
end
end

1145
T01贸易生产计划/U_PlanProfit.pas Normal file
View File

File diff suppressed because it is too large Load Diff

937
T01贸易生产计划/U_PlanProfitDetails.dfm Normal file
View File

@ -0,0 +1,937 @@
inherited frmPlanProfitDetails: TfrmPlanProfitDetails
Left = 300
Top = 189
Caption = #26126#32454#26597#35810
ClientHeight = 572
ClientWidth = 981
ExplicitWidth = 997
ExplicitHeight = 611
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 981
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_TradePlan.ImageList_new32
Images = DataLink_TradePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 981
Height = 46
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 22
Top = 16
Width = 48
Height = 13
Caption = #35745#21010#21333#21495
end
object Label2: TLabel
Left = 246
Top = 16
Width = 48
Height = 13
Caption = #26597#35810#26085#26399
Visible = False
end
object Label6: TLabel
Left = 388
Top = 16
Width = 20
Height = 13
Caption = '-----'
Visible = False
end
object Label1: TLabel
Left = 890
Top = 113
Width = 48
Height = 13
Caption = #25903#20184#21488#22836
end
object OrderNo: TEdit
Tag = 2
Left = 76
Top = 12
Width = 155
Height = 21
TabOrder = 2
OnChange = OrderNoChange
end
object begdate: TDateTimePicker
Left = 300
Top = 12
Width = 97
Height = 20
Date = 41256.000000000000000000
Time = 0.918237847232376200
TabOrder = 0
Visible = False
end
object Enddate: TDateTimePicker
Left = 406
Top = 12
Width = 97
Height = 20
Date = 41256.000000000000000000
Time = 0.918237847232376200
TabOrder = 1
Visible = False
end
object ComTaiTou: TEdit
Tag = 2
Left = 938
Top = 109
Width = 89
Height = 21
TabOrder = 3
OnChange = OrderNoChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 84
Width = 981
Height = 292
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column12
end
item
Kind = skSum
Column = Tv1Column15
end
item
Kind = skSum
Column = Tv1Column16
end
item
Kind = skSum
Column = Tv1Column17
end
item
Kind = skSum
Column = Tv1Column11
end
item
Kind = skSum
Column = Tv1Column25
end
item
Kind = skSum
Column = Tv1Column30
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradePlan.SHuangSe
Styles.Footer = DataLink_TradePlan.Default
Styles.Header = DataLink_TradePlan.Default
Styles.Inactive = DataLink_TradePlan.SHuangSe
Styles.Selection = DataLink_TradePlan.SHuangSe
object v2CRTime: TcxGridDBColumn
Tag = 7
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object Tv1Column27: TcxGridDBColumn
Caption = #24212#25910#26085#26399
DataBinding.FieldName = 'YSDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column23: TcxGridDBColumn
Caption = #23545#36134#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Column19: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'FFType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Column2: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 57
end
object v2OrderNo: TcxGridDBColumn
Tag = 7
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #20215#26684#26415#35821
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column24: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column4: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'F_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'F_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'F_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column30: TcxGridDBColumn
Caption = #21253#25968
DataBinding.FieldName = 'PacketNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column12: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column14: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column15: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column16: TcxGridDBColumn
Caption = #20943#20813
DataBinding.FieldName = 'Deduction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column26: TcxGridDBColumn
Caption = #20323#37329
DataBinding.FieldName = 'YJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column25: TcxGridDBColumn
Caption = #26680#38144#37329#39069
DataBinding.FieldName = 'FFWoAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column1: TcxGridDBColumn
Caption = #26469#28304
DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column28: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv1Column29: TcxGridDBColumn
Caption = #33337#26399
DataBinding.FieldName = 'SailingSchedule'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object Panel2: TPanel [3]
Left = 0
Top = 376
Width = 981
Height = 196
Align = alBottom
Caption = 'Panel2'
Color = clBtnHighlight
ParentBackground = False
TabOrder = 3
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 544
Height = 194
Align = alLeft
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn12
end
item
Kind = skSum
Column = TV2Column2
end
item
Kind = skSum
Column = TV2Column1
end
item
Kind = skSum
Column = TV2Column3
end
item
Kind = skSum
Column = TV2Column4
end
item
Kind = skSum
Column = TV2Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradePlan.SHuangSe
Styles.Footer = DataLink_TradePlan.Default
Styles.Header = DataLink_TradePlan.Default
Styles.Inactive = DataLink_TradePlan.SHuangSe
Styles.Selection = DataLink_TradePlan.SHuangSe
object cxGridDBColumn10: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object TV2Column7: TcxGridDBColumn
Caption = #20986#21040#35745#21010#21333
DataBinding.FieldName = 'ToOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #36716#20986#21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column1: TcxGridDBColumn
Caption = #36716#20986#20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 64
end
object TV2Column2: TcxGridDBColumn
Caption = #36716#20986#27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV2Column3: TcxGridDBColumn
Caption = #36716#20986#31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV2Column4: TcxGridDBColumn
Caption = #36716#20986#30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV2Column5: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'ZDPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 56
end
object TV2Column6: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'ZDAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
object cxGrid3: TcxGrid
Left = 553
Top = 1
Width = 427
Height = 194
Align = alClient
TabOrder = 1
ExplicitLeft = 551
ExplicitTop = 6
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn53
end
item
Kind = skSum
Column = cxGridDBColumn56
end
item
Kind = skSum
Column = cxGridDBColumn57
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn52
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = TV3Column2
end
item
Kind = skSum
Column = cxGridDBColumn55
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradePlan.SHuangSe
Styles.Footer = DataLink_TradePlan.Default
Styles.Header = DataLink_TradePlan.Default
Styles.Inactive = DataLink_TradePlan.SHuangSe
Styles.Selection = DataLink_TradePlan.SHuangSe
object cxGridDBColumn42: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object TV3Column3: TcxGridDBColumn
Caption = #26469#33258#35745#21010#21333
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object cxGridDBColumn46: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn47: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn50: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn52: TcxGridDBColumn
Caption = #36716#20837#21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn53: TcxGridDBColumn
Caption = #36716#20837#20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn55: TcxGridDBColumn
Caption = #36716#20837#27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn56: TcxGridDBColumn
Caption = #36716#20837#31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn57: TcxGridDBColumn
Caption = #36716#20837#30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV3Column1: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'ZDPrice'
DataBinding.IsNullValueType = True
Width = 48
end
object TV3Column2: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'ZDAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV3
end
end
object cxSplitter1: TcxSplitter
Left = 545
Top = 1
Width = 8
Height = 194
HotZoneClassName = 'TcxMediaPlayer9Style'
ExplicitLeft = 495
ExplicitTop = 6
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 81
Top = 232
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Left = 81
Top = 177
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 253
Top = 177
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink
Parameters = <>
Left = 341
Top = 169
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 430
Top = 172
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 386
Top = 321
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = CDS_HZ
Left = 261
Top = 334
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 193
Top = 265
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
Left = 372
Top = 233
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 304
Top = 240
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 77
Top = 313
end
object PM_1: TPopupMenu
Left = 568
Top = 336
object N1: TMenuItem
Caption = #22797#21046
OnClick = N1Click
end
end
object ADOQuery3: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 662
Top = 428
end
object ADOQuery2: TADOQuery
Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 230
Top = 412
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 88
Top = 424
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 164
Top = 417
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 604
Top = 425
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 592
Top = 400
end
end

354
T01贸易生产计划/U_PlanProfitDetails.pas Normal file
View File

@ -0,0 +1,354 @@
unit U_PlanProfitDetails;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
U_BaseHelp, Vcl.Menus, Vcl.Clipbrd, DateUtils, dxSkinWXI,
dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList;
type
TfrmPlanProfitDetails = class(TfrmBasehelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
OrderNo: TEdit;
Label2: TLabel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
Label1: TLabel;
ComTaiTou: TEdit;
ADOQueryPrint: TADOQuery;
ToolButton1: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Column23: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2FactoryName: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
v2OrderNo: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel2: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn42: TcxGridDBColumn;
cxGridDBColumn46: TcxGridDBColumn;
cxGridDBColumn47: TcxGridDBColumn;
cxGridDBColumn50: TcxGridDBColumn;
cxGridDBColumn52: TcxGridDBColumn;
cxGridDBColumn53: TcxGridDBColumn;
cxGridDBColumn55: TcxGridDBColumn;
cxGridDBColumn56: TcxGridDBColumn;
cxGridDBColumn57: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
ADOQuery3: TADOQuery;
ADOQuery2: TADOQuery;
CDS_2: TClientDataSet;
DS_2: TDataSource;
DS_3: TDataSource;
CDS_3: TClientDataSet;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
cxSplitter1: TcxSplitter;
TV2Column7: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
procedure InitZD();
public
fmanage, FZKType, FOrderNo, FMainID: string;
{ Public declarations }
RKFlag, FCYID, FUnit: string;
end;
var
frmPlanProfitDetails: TfrmPlanProfitDetails;
implementation
uses
U_DataLink, U_RtFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmPlanProfitDetails.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add('Select Amount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)');
// sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)');
// sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) ');
// sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)');
SQL.Add(',BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))');
SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo)));
// sql.Add(' and ISNULL(A.FFTime,A.SQDate)>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
// sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
// ToolButton2.Click;
end;
procedure TfrmPlanProfitDetails.InitZD();
begin
with ADOQuery2 do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add('select A.OrderNo,C.OrderNo TOOrdNO,A.C_Pattern,A.C_Color,A.C_ColorNo,ISNULL(A.ZDPrice,0) ZDPrice');
if FUnit = 'M' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))')
end
else if FUnit = 'Y' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))')
end
else if FUnit = 'Kg' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkGrossWeight))')
end;
SQL.Add(',COUNT(CIID) Piece,SUM(StkGrossWeight) GrossWeight');
sql.Add(',SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage');
SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID');
sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId');
sql.Add(' where A.MainID= ' + QuotedStr(Trim(FMainID)));
Sql.Add('GROUP BY A.OrderNo,C.OrderNo,A.C_Pattern,A.C_Color,A.C_ColorNo,A.ZDPrice');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQuery2, CDS_2);
SInitCDSData(ADOQuery2, CDS_2);
with ADOQuery3 do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice');
if FUnit = 'M' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))')
end
else if FUnit = 'Y' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))')
end
else if FUnit = 'Kg' then
begin
sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkGrossWeight))')
end;
SQL.Add(',SUM(StkGrossWeight) GrossWeight,SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage');
SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID');
sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId where A.ZDMainID= ' + QuotedStr(Trim(FMainID)));
Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQuery3, CDS_3);
SInitCDSData(ADOQuery3, CDS_3);
// ToolButton2.Click;
end;
procedure TfrmPlanProfitDetails.N1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_HZ.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmPlanProfitDetails.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmPlanProfitDetails.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmPlanProfitDetails.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption), Tv1, '利润明细');
// Enddate.DateTime := SGetServerDate(ADOQueryTemp);
//// begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
// begdate.DateTime := EndDate.DateTime - 365;
InitGrid();
InItZD();
end;
procedure TfrmPlanProfitDetails.TBRafreshClick(Sender: TObject);
begin
InitGrid();
InitZD();
end;
procedure TfrmPlanProfitDetails.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '利润明细');
end;
procedure TfrmPlanProfitDetails.ToolButton2Click(Sender: TObject);
var
fsj: string;
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, Trim(SGetFilters(Panel1, 1, 2)));
SCreateCDS(ADOQueryMain, CDS_HZ);
SInitCDSData(ADOQueryMain, CDS_HZ);
end;
procedure TfrmPlanProfitDetails.OrderNoChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmPlanProfitDetails.ToolButton4Click(Sender: TObject);
var
filepath: string;
mBegdate, mEnddate: string;
begin
mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
if CDS_HZ.IsEmpty then
exit;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' exec P_YSSK_List @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))) + ',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))) + ',@flag=''已审核''');
Open;
end;
Open;
end;
try
filepath := ExtractFilePath(Application.ExeName) + 'report\应收账款.rmf';
if not FileExists(Pchar(filepath)) then
begin
application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
exit;
end;
RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date);
RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date);
RMVariables['ZDR'] := trim(DName);
RM1.LoadFromFile(filepath);
RM1.ShowReport;
finally
end;
end;
procedure TfrmPlanProfitDetails.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
end.

176
T01贸易生产计划/U_TradePlanList.dfm
View File

@ -7,6 +7,7 @@ inherited frmTradePlanList: TfrmTradePlanList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitTop = -214
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
@ -646,6 +647,27 @@ inherited frmTradePlanList: TfrmTradePlanList
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column23: TcxGridDBColumn
Caption = #25253#20851#21697#21517
DataBinding.FieldName = 'BGName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column24: TcxGridDBColumn
Caption = #19994#21153
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
end
object Tv1Column25: TcxGridDBColumn
Caption = #29702#21333
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 56
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -668,7 +690,7 @@ inherited frmTradePlanList: TfrmTradePlanList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.TabIndex = 1
Properties.Tabs.Strings = (
' '#24453#25552#20132' '
' '#24453#23457#26680' '
@ -886,8 +908,8 @@ inherited frmTradePlanList: TfrmTradePlanList
end
end
object Panel3: TPanel [6]
Left = -216
Top = 353
Left = -259
Top = 271
Width = 1177
Height = 634
Color = clBtnHighlight
@ -1000,8 +1022,21 @@ inherited frmTradePlanList: TfrmTradePlanList
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 344
Top = 599
Width = 52
Height = 15
Caption = #23458#25143#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object MainId: TEdit
Left = 679
Left = 782
Top = 599
Width = 121
Height = 20
@ -1064,7 +1099,7 @@ inherited frmTradePlanList: TfrmTradePlanList
object cm: TMemo
Tag = 2
Left = 408
Top = 360
Top = 356
Width = 440
Height = 130
ScrollBars = ssVertical
@ -1080,8 +1115,8 @@ inherited frmTradePlanList: TfrmTradePlanList
TabOrder = 7
end
object Button1: TButton
Left = 412
Top = 598
Left = 623
Top = 594
Width = 92
Height = 25
Caption = #20445#23384
@ -1089,8 +1124,8 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = Button1Click
end
object Button2: TButton
Left = 531
Top = 597
Left = 738
Top = 594
Width = 92
Height = 25
Caption = #20851#38381
@ -1249,12 +1284,23 @@ inherited frmTradePlanList: TfrmTradePlanList
OnBtnUpClick = PZNoteBtnUpClick
OnBtnDnClick = PZNoteBtnDnClick
end
object MBuyConNo: TBtnEditC
Tag = 2
Left = 408
Top = 594
Width = 194
Height = 20
Hint = 'MBuyConNo/'#23458#25143#21333#21495
TabOrder = 13
OnBtnUpClick = PZNoteBtnUpClick
OnBtnDnClick = PZNoteBtnDnClick
end
end
object Panel4: TPanel [7]
Left = 869
Top = 363
Width = 663
Height = 634
Left = 190
Top = 294
Width = 995
Height = 489
Hint = 'BGName/'#25253#20851#21697#21517
TabOrder = 7
Visible = False
@ -1337,8 +1383,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label14: TLabel
Left = 385
Top = 302
Left = 681
Top = 136
Width = 52
Height = 12
Caption = #25253#20851#31859#25968
@ -1350,8 +1396,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label15: TLabel
Left = 385
Top = 203
Left = 681
Top = 37
Width = 52
Height = 12
Caption = #25253#20851#31435#26041
@ -1363,8 +1409,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label16: TLabel
Left = 385
Top = 235
Left = 681
Top = 69
Width = 52
Height = 12
Caption = #25253#20851#27611#37325
@ -1376,8 +1422,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label17: TLabel
Left = 385
Top = 266
Left = 681
Top = 100
Width = 52
Height = 12
Caption = #25253#20851#20928#37325
@ -1389,8 +1435,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label18: TLabel
Left = 385
Top = 336
Left = 681
Top = 170
Width = 39
Height = 12
Caption = #25910#36135#20154
@ -1402,8 +1448,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label19: TLabel
Left = 391
Top = 367
Left = 396
Top = 201
Width = 13
Height = 30
Caption = #33337#13#10#21787
@ -1417,7 +1463,7 @@ inherited frmTradePlanList: TfrmTradePlanList
object Label20: TLabel
Tag = 2
Left = 391
Top = 507
Top = 342
Width = 13
Height = 30
Caption = #21367#13#10#21787
@ -1428,11 +1474,37 @@ inherited frmTradePlanList: TfrmTradePlanList
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 681
Top = 7
Width = 52
Height = 12
Caption = #25253#20851#20214#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 681
Top = 201
Width = 52
Height = 15
Caption = #25253#20851#22791#27880
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object ADO_BG: TRichEdit
Left = 1
Top = 1
Width = 356
Height = 632
Height = 487
Align = alLeft
Color = clInfoBk
Font.Charset = GB2312_CHARSET
@ -1445,6 +1517,7 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
TabOrder = 0
Zoom = 100
ExplicitHeight = 663
end
object BGComposition: TEdit
Tag = 2
@ -1488,47 +1561,47 @@ inherited frmTradePlanList: TfrmTradePlanList
end
object BGMeter: TEdit
Tag = 2
Left = 447
Top = 298
Left = 743
Top = 132
Width = 188
Height = 20
TabOrder = 6
end
object BGLF: TEdit
Tag = 2
Left = 447
Top = 200
Left = 743
Top = 34
Width = 188
Height = 20
TabOrder = 7
end
object BGGrossWeight: TEdit
Tag = 2
Left = 447
Top = 231
Left = 743
Top = 65
Width = 188
Height = 20
TabOrder = 8
end
object BGNetWeight: TEdit
Tag = 2
Left = 447
Top = 263
Left = 743
Top = 97
Width = 188
Height = 20
TabOrder = 9
end
object consignee: TEdit
Tag = 2
Left = 447
Top = 333
Left = 743
Top = 167
Width = 188
Height = 20
TabOrder = 10
end
object Button3: TButton
Left = 395
Top = 600
Left = 560
Top = 444
Width = 97
Height = 25
Caption = #20445#23384
@ -1536,8 +1609,8 @@ inherited frmTradePlanList: TfrmTradePlanList
OnClick = Button3Click
end
object Button4: TButton
Left = 530
Top = 600
Left = 695
Top = 444
Width = 97
Height = 25
Caption = #20851#38381
@ -1566,7 +1639,7 @@ inherited frmTradePlanList: TfrmTradePlanList
object BGCM: TMemo
Tag = 1
Left = 447
Top = 366
Top = 201
Width = 188
Height = 130
ScrollBars = ssVertical
@ -1575,12 +1648,29 @@ inherited frmTradePlanList: TfrmTradePlanList
object BGJM: TMemo
Tag = 1
Left = 447
Top = 507
Top = 342
Width = 188
Height = 80
ScrollBars = ssVertical
TabOrder = 16
end
object BGPiece: TEdit
Tag = 2
Left = 743
Top = 4
Width = 188
Height = 20
TabOrder = 17
end
object BGNote: TMemo
Tag = 1
Left = 743
Top = 201
Width = 188
Height = 130
ScrollBars = ssVertical
TabOrder = 18
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink

25
T01贸易生产计划/U_TradePlanList.pas
View File

@ -195,6 +195,15 @@ type
Label20: TLabel;
BGCM: TMemo;
BGJM: TMemo;
Label21: TLabel;
MBuyConNo: TBtnEditC;
Label22: TLabel;
BGPiece: TEdit;
Tv1Column23: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
BGNote: TMemo;
Label24: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -541,9 +550,9 @@ begin
begin
Close;
sql.Clear;
SQL.Add('select * from Trade_Plan_Main');
SQL.Add('select MBuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.MainID),A.* from Trade_Plan_Main A');
// SQL.Add('from Trade_Plan_Main A left join Trade_plan_Sub B on B.MainId=A.MainId');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
// Sql.Add('GROUP BY A.OrderNo,A.CustName,B.ConNo,B.BuyConNo,B.C_Code,B.C_Name,A.HXYS,A.CPMC,A.KZPZ,B.OrdUnit');
// ShowMessage(sql.Text);
Open;
@ -615,6 +624,8 @@ begin
BGName.text:=ADOQueryTemp.FieldByName('BGName').AsString;
BGCM.text:=ADOQueryTemp.FieldByName('CM').AsString;
BGJM.text:=ADOQueryTemp.FieldByName('JM').AsString;
BGPrice.text:=ADOQueryTemp.FieldByName('BGPrice').AsString;
BGPiece.text:=ADOQueryTemp.FieldByName('BGPiece').AsString;
end;
procedure TfrmTradePlanList.InitGrid();
@ -1143,6 +1154,9 @@ begin
SQL.Add(',EditId=''' + Trim(DCode) + '''');
// SQL.Add(',Edittime=''' + Trim(DCode) + '''');
SQL.Add(' where MainId=''' + Trim(MainId.Text) + '''');
sql.Add('UPdate Trade_Plan_sub ');
sql.Add(' Set BuyConNo=''' + Trim(MBuyConNO.Text) + '''');
SQL.Add(' where MainId=''' + Trim(MainId.Text) + '''');
// ShowMessage(SQL.text);
execsql;
end;
@ -1191,10 +1205,11 @@ begin
sql.Add(',SJPrice=''' + Trim(SJPrice.Text) + '''');
SQL.Add(',BGWidth=''' + Trim(BGWidth.Text) + '''');
sql.Add(',BGGramWeight=''' + Trim(BGGramWeight.Text) + '''');
sql.Add(',BGGrossWeight=''' + Trim(BGGrossWeight.Text) + '''');
sql.Add(',BGNetWeight=''' + Trim(BGNetWeight.Text) + '''');
sql.Add(',BGPiece=''' + Trim(BGPiece.Text) + '''');
sql.Add(',BGGrossWeight=''' + FloatToStr(strtofloatdef(Trim(BGGrossWeight.Text),0)) + '''');
sql.Add(',BGNetWeight=''' + FloatToStr(strtofloatdef(Trim(BGNetWeight.Text),0)) + '''');
sql.Add(',BGLF=''' + Trim(BGLF.Text) + '''');
sql.Add(',BGMeter=''' + Trim(BGMeter.Text) + '''');
sql.Add(',BGMeter=''' + FloatToStr(strtofloatdef(Trim(BGMeter.Text),0)) + '''');
sql.Add(',consignee=''' + Trim(consignee.Text) + '''');
sql.Add(',cm=''' + Trim(BGcm.Text) + '''');
sql.Add(',jm=''' + Trim(BGjm.Text) + '''');

698
T01贸易生产计划/U_TradePlanProfit.dfm Normal file
View File

@ -0,0 +1,698 @@
inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
Left = 65
Top = 98
Caption = #20986#24211#21015#34920
ClientHeight = 544
ClientWidth = 1193
Position = poScreenCenter
ExplicitWidth = 1209
ExplicitHeight = 583
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1193
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20986#24211
ImageIndex = 9
Visible = False
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
Visible = False
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
Visible = False
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
Visible = False
OnClick = ToolButton2Click
end
object TBExport: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 592
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1193
Height = 61
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 28
Top = 12
Width = 48
Height = 12
Caption = #26597#35810#26102#38388
end
object Label2: TLabel
Left = 64
Top = 39
Width = 12
Height = 12
Caption = #33267
end
object Label3: TLabel
Left = 321
Top = 12
Width = 24
Height = 12
Caption = #21697#21517
end
object Label4: TLabel
Left = 443
Top = 12
Width = 36
Height = 12
Caption = #20379#24212#21830
end
object Label5: TLabel
Left = 178
Top = 12
Width = 48
Height = 12
Caption = #20986#24211#21333#21495
end
object Label8: TLabel
Left = 321
Top = 39
Width = 24
Height = 12
Caption = #35268#26684
end
object Label12: TLabel
Left = 179
Top = 39
Width = 48
Height = 12
Caption = #20986#24211#31867#22411
end
object Label9: TLabel
Left = 443
Top = 39
Width = 36
Height = 12
Caption = #36710' '#38388
end
object Label6: TLabel
Left = 587
Top = 39
Width = 48
Height = 12
Caption = #35745#21010#21333#21495
end
object Label7: TLabel
Left = 587
Top = 12
Width = 48
Height = 12
Caption = #23458#25143#21333#21495
end
object BegDate: TDateTimePicker
Left = 77
Top = 8
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 77
Top = 35
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
end
object C_NAME: TEdit
Tag = 2
Left = 348
Top = 8
Width = 80
Height = 20
TabOrder = 2
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 483
Top = 8
Width = 80
Height = 20
TabOrder = 3
OnChange = C_specChange
end
object BCIOID: TEdit
Tag = 2
Left = 228
Top = 8
Width = 80
Height = 20
TabOrder = 4
OnChange = BCIOIDChange
end
object C_spec: TEdit
Tag = 2
Left = 348
Top = 35
Width = 80
Height = 20
TabOrder = 5
OnChange = C_specChange
end
object IOType: TComboBox
Tag = 2
Left = 228
Top = 35
Width = 80
Height = 20
Style = csDropDownList
DropDownCount = 20
TabOrder = 6
OnChange = TBFindClick
Items.Strings = (
''
#21152#24037#20986#24211
#38144#21806#20986#24211
#36864#36135#20986#24211
#35843#25320#20986#24211
#30424#20111#20986#24211)
end
object Workshop: TEdit
Tag = 2
Left = 485
Top = 35
Width = 80
Height = 20
TabOrder = 7
OnChange = C_specChange
end
object FromOrdNo: TEdit
Tag = 2
Left = 636
Top = 35
Width = 80
Height = 20
TabOrder = 8
OnChange = C_specChange
end
object BuyConNo: TEdit
Tag = 2
Left = 636
Top = 8
Width = 80
Height = 20
TabOrder = 9
OnChange = C_specChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 99
Width = 1193
Height = 445
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = v1Column19
end
item
Kind = skSum
Column = v1Column19
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column19
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
Styles.Header = DataLink_TradeTotalClothStk.Default
Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
object Tv1Column5: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 45
end
object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 100
end
object v1Column4: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#21152#24037#20986#24211
#24179#31227#20986#24211
#36864#36135)
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column15: TcxGridDBColumn
Tag = 2
Caption = #25152#23646#31867#22411
DataBinding.FieldName = 'SSType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#33258#24049
#23458#25143)
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 75
end
object v1Column1: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 85
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #20379#24212#21830
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object Tv1Column6: TcxGridDBColumn
Caption = #26579#21378
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object v1Column13: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column16: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object v1Column17: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 98
end
object Tv1Column12: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column20: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'SPCode'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 92
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 74
end
object Tv1Column1: TcxGridDBColumn
Caption = #27969#31243#21495
DataBinding.FieldName = 'ToPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object v1Column18: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object v1Column5: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v1Column19: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
object Tv1Column2: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object Tv1Column7: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column8: TcxGridDBColumn
Caption = #26469#33258#25351#31034#21333
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column9: TcxGridDBColumn
Caption = #20986#21040#25351#31034#21333
DataBinding.FieldName = 'ToOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv1Column10: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #22797#21333#21495
DataBinding.FieldName = 'FOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 265
Top = 176
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 169
Top = 177
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 984
Top = 152
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1048
Top = 168
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1016
Top = 160
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1104
Top = 168
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 952
Top = 152
end
object PopupMenu1: TPopupMenu
Left = 144
Top = 232
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

202
T01贸易生产计划/U_TradePlanSchedule.dfm
View File

@ -130,8 +130,59 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Caption = #20135#21697#21517#31216'/'#24037#33402
end
object Label1: TLabel
Left = 627
Top = 19
Left = 603
Top = 6
Width = 11
Height = 19
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 1078
Top = 6
Width = 137
Height = 14
Caption = #21152#24037#20132#26399#21097#20313'5-10'#22825
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 1240
Top = 6
Width = 129
Height = 14
Caption = #21152#24037#20132#26399#21097#20313'1-4'#22825
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 1395
Top = 6
Width = 121
Height = 14
Caption = #21152#24037#20132#26399#21097#20313'<1'#22825
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 603
Top = 34
Width = 11
Height = 19
Font.Charset = GB2312_CHARSET
@ -163,8 +214,8 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
end
object CustName: TEdit
Tag = 2
Left = 217
Top = 5
Left = 218
Top = 6
Width = 135
Height = 20
TabOrder = 2
@ -197,6 +248,33 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
TabOrder = 5
OnChange = OrderNoChange
end
object Panel2: TPanel
Left = 1112
Top = 26
Width = 68
Height = 29
Color = clYellow
ParentBackground = False
TabOrder = 6
end
object Panel3: TPanel
Left = 1268
Top = 24
Width = 74
Height = 29
Color = 36095
ParentBackground = False
TabOrder = 7
end
object Panel4: TPanel
Left = 1420
Top = 24
Width = 71
Height = 29
Color = 4678655
ParentBackground = False
TabOrder = 8
end
end
object cxGrid1: TcxGrid [2]
Left = 0
@ -308,6 +386,22 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
item
Kind = skSum
Column = TV1Column8
end
item
Kind = skSum
Column = TV1Column42
end
item
Kind = skSum
Column = TV1Column43
end
item
Kind = skCount
Column = TV1Column27
end
item
Kind = skCount
Column = TV1Column44
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -357,7 +451,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 40
Position.BandIndex = 0
Position.ColIndex = 0
Position.RowIndex = 0
@ -368,7 +462,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
Width = 47
Position.BandIndex = 0
Position.ColIndex = 1
Position.RowIndex = 0
@ -455,9 +549,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 189
Width = 110
Position.BandIndex = 0
Position.ColIndex = 15
Position.ColIndex = 19
Position.RowIndex = 0
end
object TV1Column14: TcxGridDBBandedColumn
@ -524,7 +618,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Options.Editing = False
Width = 67
Position.BandIndex = 0
Position.ColIndex = 17
Position.ColIndex = 21
Position.RowIndex = 0
end
object TV1Column30: TcxGridDBBandedColumn
@ -558,7 +652,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Options.Editing = False
Width = 69
Position.BandIndex = 0
Position.ColIndex = 18
Position.ColIndex = 22
Position.RowIndex = 0
end
object TV1Column27: TcxGridDBBandedColumn
@ -567,7 +661,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
Width = 67
Position.BandIndex = 0
Position.ColIndex = 2
Position.RowIndex = 0
@ -599,7 +693,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 180
Width = 105
Position.BandIndex = 0
Position.ColIndex = 3
Position.RowIndex = 0
@ -697,7 +791,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
Width = 40
Position.BandIndex = 0
Position.ColIndex = 4
Position.RowIndex = 0
@ -707,9 +801,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 61
Width = 35
Position.BandIndex = 0
Position.ColIndex = 12
Position.ColIndex = 14
Position.RowIndex = 0
end
object TV1Column24: TcxGridDBBandedColumn
@ -717,9 +811,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'FZR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
Width = 43
Position.BandIndex = 0
Position.ColIndex = 14
Position.ColIndex = 18
Position.RowIndex = 0
end
object TV1Column25: TcxGridDBBandedColumn
@ -727,9 +821,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
Width = 41
Position.BandIndex = 0
Position.ColIndex = 5
Position.ColIndex = 6
Position.RowIndex = 0
end
object TV1Column29: TcxGridDBBandedColumn
@ -737,9 +831,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'MFKZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
Width = 55
Position.BandIndex = 0
Position.ColIndex = 13
Position.ColIndex = 17
Position.RowIndex = 0
end
object TV1Column31: TcxGridDBBandedColumn
@ -747,9 +841,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 61
Width = 35
Position.BandIndex = 0
Position.ColIndex = 7
Position.ColIndex = 9
Position.RowIndex = 0
end
object TV1Column34: TcxGridDBBandedColumn
@ -757,9 +851,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 51
Width = 30
Position.BandIndex = 0
Position.ColIndex = 8
Position.ColIndex = 10
Position.RowIndex = 0
end
object TV1Column35: TcxGridDBBandedColumn
@ -767,9 +861,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
Width = 39
Position.BandIndex = 0
Position.ColIndex = 11
Position.ColIndex = 13
Position.RowIndex = 0
end
object TV1Column36: TcxGridDBBandedColumn
@ -777,9 +871,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 44
Width = 24
Position.BandIndex = 0
Position.ColIndex = 9
Position.ColIndex = 11
Position.RowIndex = 0
end
object TV1Column37: TcxGridDBBandedColumn
@ -808,8 +902,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Caption = #21152#24037#20132#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
Width = 37
Position.BandIndex = 0
Position.ColIndex = 6
Position.ColIndex = 7
Position.RowIndex = 0
end
object TV1Column38: TcxGridDBBandedColumn
@ -827,7 +922,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.IsNullValueType = True
Visible = False
Position.BandIndex = 0
Position.ColIndex = 16
Position.ColIndex = 20
Position.RowIndex = 0
end
object TV1Column40: TcxGridDBBandedColumn
@ -835,9 +930,49 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'FOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
Width = 36
Position.BandIndex = 0
Position.ColIndex = 10
Position.ColIndex = 12
Position.RowIndex = 0
end
object TV1Column41: TcxGridDBBandedColumn
Caption = #36229#20132#22825#25968
DataBinding.FieldName = 'CQTS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
Position.BandIndex = 0
Position.ColIndex = 8
Position.RowIndex = 0
end
object TV1Column42: TcxGridDBBandedColumn
Caption = #19979#21333#37325#37327
DataBinding.FieldName = 'Weight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
Position.BandIndex = 0
Position.ColIndex = 15
Position.RowIndex = 0
end
object TV1Column43: TcxGridDBBandedColumn
Caption = #19979#21333#31859#25968
DataBinding.FieldName = 'Length'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 56
Position.BandIndex = 0
Position.ColIndex = 16
Position.RowIndex = 0
end
object TV1Column44: TcxGridDBBandedColumn
Caption = #29702#21333
DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 46
Position.BandIndex = 0
Position.ColIndex = 5
Position.RowIndex = 0
end
end
@ -885,7 +1020,6 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
' '#24050#23436#25104' '
' '#20840' '#37096' ')
OnChange = cxTabControl1Change
ExplicitTop = 96
ClientRectBottom = 35
ClientRectRight = 1540
ClientRectTop = 35

19
T01贸易生产计划/U_TradePlanSchedule.pas
View File

@ -107,6 +107,17 @@ type
TV1Column38: TcxGridDBBandedColumn;
TV1Column39: TcxGridDBBandedColumn;
TV1Column40: TcxGridDBBandedColumn;
TV1Column41: TcxGridDBBandedColumn;
TV1Column42: TcxGridDBBandedColumn;
TV1Column43: TcxGridDBBandedColumn;
Label3: TLabel;
Panel2: TPanel;
Label4: TLabel;
Panel3: TPanel;
Label10: TLabel;
Panel4: TPanel;
Label11: TLabel;
TV1Column44: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -147,7 +158,7 @@ uses
procedure TfrmTradePlanSchedule.InitGrid();
var
MCG, MDH, MTP, MFH: Double;
MCG, MDH, MTP, MFH, MLen, MWeight: Double;
begin
screen.Cursor := crsqlwait;
@ -205,7 +216,11 @@ begin
MDH := tv1.DataController.Summary.FooterSummaryValues[0];
MTP := tv1.DataController.Summary.FooterSummaryValues[3];
MFH := tv1.DataController.Summary.FooterSummaryValues[15];
Label1.Caption := '未到货：' + FloattoStr(MCG - MDH) + ' 待投坯：' + FloattoStr(MDH - MTP) + ' 生产中：' + FloattoStr(MTP - MFH)
Label1.Caption := '未到货：' + FloattoStr(MCG - MDH) + ' 待投坯：' + FloattoStr(MDH - MTP) + ' 生产中：' + FloattoStr(MTP - MFH);
MLen:= tv1.DataController.Summary.FooterSummaryValues[17];
MWeight:=tv1.DataController.Summary.FooterSummaryValues[16];
Label11.Caption := '下单米数：' + FloattoStr(MLen) + ' 下单重量：' + FloattoStr(MWeight);
end;
end;

4
T02贸易汇总仓库/TradeTotalClothStk.dpr
View File

@ -28,7 +28,9 @@ uses
U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TPUp in 'U_TPUp.pas' {frmTPUp},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_SLT in '..\A02基础产品管理\U_SLT.pas' {frmSLT: TFrame},
U_ClothTotalFileUp in 'U_ClothTotalFileUp.pas' {frmClothTotalFileUp};
{$R *.res}

9
T02贸易汇总仓库/TradeTotalClothStk.dproj
View File

@ -198,6 +198,15 @@
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\A02基础产品管理\U_SLT.pas">
<Form>frmSLT</Form>
<FormType>dfm</FormType>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="U_ClothTotalFileUp.pas">
<Form>frmClothTotalFileUp</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

43
T02贸易汇总仓库/TradeTotalClothStk.dproj.local
View File

@ -1,41 +1,45 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.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.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.475,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.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.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.974,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\D10myBiaoqi\A02基础产品管理\U_SLT.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.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.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.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -80,6 +84,9 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A02基础产品管理"/>
<File Path="..\A02基础产品管理\U_SLT.pas"/>
<File Path="..\A02基础产品管理\U_SLT.dfm"/>
<File Path="..\T00贸易通用窗体"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.pas"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/>
@ -112,5 +119,7 @@
<File Path="U_iniParam.pas"/>
<File Path="U_TPUp.pas"/>
<File Path="U_TPUp.dfm"/>
<File Path="U_ClothTotalFileUp.pas"/>
<File Path="U_ClothTotalFileUp.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

264
T02贸易汇总仓库/U_ClothTotalFileUp.dfm Normal file
View File

@ -0,0 +1,264 @@
object frmClothTotalFileUp: TfrmClothTotalFileUp
Left = 612
Top = 236
Caption = #19978#20256#25991#20214
ClientHeight = 595
ClientWidth = 929
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid7: TcxGrid
Left = 0
Top = 41
Width = 858
Height = 554
Align = alClient
TabOrder = 0
ExplicitLeft = -6
object TV7: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object FileName: TcxGridDBColumn
Tag = 1
Caption = #25991#20214#21517#31216
DataBinding.FieldName = 'FileName'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
Width = 121
end
object FileDate: TcxGridDBColumn
Tag = 1
Caption = #19978#20256#26085#26399
DataBinding.FieldName = 'TFDate'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
Width = 104
end
end
object cxGridLevel6: TcxGridLevel
GridView = TV7
end
end
object Panel16: TPanel
Left = 190
Top = 126
Width = 138
Height = 30
BevelInner = bvRaised
Caption = #27491#22312#19978#20256#12290#12290#12290
Color = clSkyBlue
TabOrder = 1
Visible = False
end
object ToolBar6: TToolBar
Left = 858
Top = 41
Width = 71
Height = 554
Align = alRight
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Images = DataLink_TradeTotalClothStk.ImageList_new32
List = True
ShowCaptions = True
TabOrder = 2
object FileUp: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #19978#20256
ImageIndex = 2
Wrap = True
OnClick = FileUpClick
end
object FileDel: TToolButton
Left = 0
Top = 38
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
Wrap = True
OnClick = FileDelClick
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 929
Height = 41
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
object Label1: TLabel
Left = 8
Top = 14
Width = 72
Height = 17
Caption = #20837#24211#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Image2: TImage
Left = 773
Top = 7
Width = 60
Height = 28
Visible = False
end
object Image1: TImage
Left = 861
Top = 6
Width = 60
Height = 28
Visible = False
end
object Label2: TLabel
Left = 336
Top = 14
Width = 36
Height = 17
Caption = #33457#22411
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object BCIOID: TEdit
Left = 78
Top = 10
Width = 211
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object HXName: TBtnEditC
Tag = 2
Left = 378
Top = 6
Width = 168
Height = 29
Hint = 'CYKZ/'#20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
OnBtnUpClick = HXNameBtnUpClick
OnBtnDnClick = HXNameBtnDnClick
end
end
object ODPat: TOpenDialog
Filter =
'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
'.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
'.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
'*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
Left = 380
Top = 333
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 261
Top = 244
end
object SaveDialog1: TSaveDialog
Filter =
'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
'.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
'.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
'*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
Left = 305
Top = 333
end
object ADOQueryFile: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 488
Top = 144
end
object DataSource1: TDataSource
DataSet = ADOQueryFile
Left = 376
Top = 136
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 584
Top = 256
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 432
Top = 224
end
end

400
T02贸易汇总仓库/U_ClothTotalFileUp.pas Normal file
View File

@ -0,0 +1,400 @@
unit U_ClothTotalFileUp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles,
strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase,
Vcl.ExtDlgs, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmClothTotalFileUp = class(TForm)
cxGrid7: TcxGrid;
TV7: TcxGridDBTableView;
FileName: TcxGridDBColumn;
FileDate: TcxGridDBColumn;
cxGridLevel6: TcxGridLevel;
Panel16: TPanel;
ToolBar6: TToolBar;
FileUp: TToolButton;
FileDel: TToolButton;
Panel1: TPanel;
Label1: TLabel;
BCIOID: TEdit;
ODPat: TOpenDialog;
IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog;
ADOQueryFile: TADOQuery;
DataSource1: TDataSource;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
Image2: TImage;
Image1: TImage;
Label2: TLabel;
HXName: TBtnEditC;
procedure FileUpClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FileDelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HXNameBtnUpClick(Sender: TObject);
procedure HXNameBtnDnClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
lstPat: TStringList;
AJpeg: TJPEGImage;
procedure CreThumb(Image1, Image2: TImage; Width, Height: Integer);
procedure SaveImageOther(FTFID: string);
procedure ReadINIFile10();
procedure InitTP();
{ Private declarations }
public
FBCIID: string;
FWidth, FHeight:Integer
{ Public declarations }
end;
var
frmClothTotalFileUp: TfrmClothTotalFileUp;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm} procedure TfrmClothTotalFileUp.InitTP();
begin
with ADOQueryFile do
begin
Close;
SQL.Clear;
SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,HXName from TP_File where WBID=''' + Trim(FBCIID) + '''');
SQL.Add(' and FileType=''YPCK''');
Open;
end;
end;
procedure TfrmClothTotalFileUp.ReadINIFile10();
var
programIni: Tinifile; //配置文件名
FileName: string;
begin
FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
programIni := Tinifile.create(FileName);
server := programIni.ReadString('SERVER', '服务器地址', '127.0.0.1');
programIni.Free;
end;
procedure TfrmClothTotalFileUp.FileUpClick(Sender: TObject);
var
i, j, ii: Integer;
PatFile: string;
FTPPath, FConNo, MaxNo: string;
AJpeg: TJPEGImage;
myStream: TADOBlobStream;
f: file of Byte;
size: Longint;
S: Double;
begin
if Trim(BCIOID.Text) = '' then
begin
Application.MessageBox('入库单号不能为空！', '提示', 0);
Exit;
end;
// if Trim(HXName.Text) = '' then
// begin
// if Application.MessageBox('花型确认为空吗？', '提示', 32 + 4) <> IDYES then
// Exit;
// end;
lstPat.Clear;
if ODPat.Execute then
begin
lstPat.AddStrings(ODPat.Files);
end;
if lstPat.Count > 0 then
begin
try
IdFTP1.Host := PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
IdFTP1.Quit;
Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
Exit;
end;
end;
Panel16.Visible := True;
Panel16.Refresh;
try
AJpeg := TJpegImage.Create();
ADOQueryCmd.Connection.BeginTrans;
ii := 0;
for i := 0 to lstPat.Count - 1 do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from TP_File');
sql.Add('where FileType =''YPCK'' and WBID=''' + trim(FBCIID) + ''' ');
open;
end;
PatFile := trim(FBCIID) + '-' + inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger) + '.' + Copy(ExtractFileName(lstPat[i]), (Pos('.', ExtractFileName(lstPat[i])) + 1), (Length(ExtractFileName(lstPat[i])) - Pos('.', ExtractFileName(lstPat[i]))));
image1.Picture.LoadFromFile((lstPat[i]));
CreThumb(Image1, Image2, FWidth, FHeight);
AssignFile(f, lstPat[i]);
Reset(f);
size := FileSize(f);
S := size / 1024;
CloseFile(f);
if S > 2048 then
begin
ii := ii + 1;
Continue;
end;
if IdFTP1.Connected then
begin
try
IdFTP1.Put(lstPat[i], Trim(UserDataFlag + 'YP' + '\' + Trim(PatFile)));
if GetLSNo(ADOQueryCmd, MaxNo, 'YP', 'XD_File', 4, 1) = False then
raise Exception.Create('取图片最大号失败！');
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' select * from TP_File where TFID=''' + Trim(MaxNo) + '''');
open;
end;
with ADOQueryCmd do
begin
if ADOQueryCmd.IsEmpty then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('TFDate').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('TFID').Value := Trim(MaxNo);
FieldByName('WBID').Value := Trim(FBCIID);
FieldByName('TFType').Value := '样品仓库';
FieldByName('FileType').Value := 'YPCK';
FieldByName('HXName').Value := trim(HXName.Text);
FieldByName('filename').Value := Trim(PatFile);
myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
AJpeg.Assign(Image2.Picture.Graphic);
AJpeg.SaveToStream(myStream);
myStream.Free;
Post;
end;
image1.Picture := nil;
except
raise Exception.Create('上传图片失败！');
end;
end;
end;
AJpeg.Free;
ADOQueryCmd.Connection.CommitTrans;
except
AJpeg.Free;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('图片上传失败！', '提示', 0);
end;
if IdFTP1.Connected then
IdFTP1.Quit;
InitTP();
Panel16.Visible := False;
if ii > 0 then
Application.MessageBox(PChar(inttostr(ii) + '个文件大于2MB，上传失败！'), '提示', 0);
if i > 0 then
Application.MessageBox(PChar(inttostr(i - ii) + '个文件上传成功！'), '提示', 0);
ModalResult := 1;
end;
procedure TfrmClothTotalFileUp.CreThumb(Image1, Image2: TImage; Width, Height: Integer);
var
Bitmap: TBitmap;
Ratio: Double;
ARect: TRect;
AHeight, AHeightOffset: Integer;
AWidth, AWidthOffset: Integer;
begin
Bitmap := TBitmap.Create;
try
Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height;
if Ratio > 1.333 then
begin
AHeight := Round(Width / Ratio);
AHeightOffset := (Height - AHeight) div 2;
AWidth := Width;
AWidthOffset := 0;
end
else
begin
AWidth := Round(Height * Ratio);
AWidthOffset := (Width - AWidth) div 2;
AHeight := Height;
AHeightOffset := 0;
end;
Bitmap.Width := Width;
Bitmap.Height := Height;
Bitmap.Canvas.Brush.Color := clBtnFace;
Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset);
Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic);
Image2.Picture.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;
procedure TfrmClothTotalFileUp.SaveImageOther(FTFID: string);
var
AJpeg: TJPEGImage;
myStream: TADOBlobStream;
ImgMaxNo: string;
i, j: Integer;
PatFile: string;
FConNo, MaxNo: string;
begin
if Image2.Picture = nil then
Exit;
AJpeg := TJpegImage.Create();
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' select * from TP_File where TFID=''' + Trim(FTFID) + '''');
open;
end;
with ADOQueryCmd do
begin
if Trim(FTFID) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('TFID').Value := Trim(FTFID);
FieldByName('WBID').Value := Trim(FBCIID);
FieldByName('TFType').Value := '样品仓库';
AJpeg.Assign(Image2.Picture.Graphic);
myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
AJpeg.Assign(Image2.Picture.Graphic);
AJpeg.SaveToStream(myStream);
myStream.Free;
Post;
end;
end;
procedure TfrmClothTotalFileUp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
end;
procedure TfrmClothTotalFileUp.FormCreate(Sender: TObject);
begin
lstPat := TStringList.Create;
if FWidth = 0 then
FWidth := 160;
if FHeight = 0 then
FHeight := 120;
end;
procedure TfrmClothTotalFileUp.FileDelClick(Sender: TObject);
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('TFID').AsString) + '''');
ExecSQL;
end;
with ADOQueryFile do
begin
Close;
SQL.Clear;
SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
SQL.Add(' and FileType=''YPCK''');
Open;
end;
// if ADOQueryFile.IsEmpty then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update CP_YDang Set TPFlag=0 where FBCIID=''' + Trim(FBCIID) + '''');
// ExecSQL;
// end;
// end;
end;
procedure TfrmClothTotalFileUp.FormShow(Sender: TObject);
begin
with ADOQueryFile do
begin
Close;
SQL.Clear;
SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
SQL.Add(' and FileType=''YPCK''');
Open;
end;
end;
procedure TfrmClothTotalFileUp.HXNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmClothTotalFileUp.HXNameBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'HX' + Trim(BCIOID.Text);
flagname := '花型';
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.

54
T02贸易汇总仓库/U_TradeFinishClothStkList.dfm
View File

@ -5,7 +5,6 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
ClientHeight = 472
ClientWidth = 1400
Position = poDefault
ExplicitLeft = -149
ExplicitWidth = 1416
ExplicitHeight = 511
PixelsPerInch = 96
@ -105,6 +104,19 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
Height = 12
Caption = #25209' '#21495
end
object Label1: TLabel
Left = 880
Top = 6
Width = 116
Height = 20
Caption = #24211#40836#36229'6'#20010#26376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_name: TEdit
Tag = 2
Left = 254
@ -141,6 +153,15 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
TabOrder = 3
OnChange = FromCoNameChange
end
object Panel2: TPanel
Left = 1002
Top = 4
Width = 71
Height = 24
Color = 7504122
ParentBackground = False
TabOrder = 4
end
end
object cxGrid1: TcxGrid [2]
Left = 0
@ -150,9 +171,10 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 75
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -222,6 +244,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
@ -230,6 +253,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -245,6 +269,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object Tv1Column7: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
@ -252,6 +277,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -265,6 +291,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object Tv1Column3: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
@ -273,6 +300,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -281,6 +309,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object v1Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -288,6 +317,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -295,6 +325,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
@ -302,24 +333,28 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object v1Column11: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'stkpiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -328,6 +363,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -337,6 +373,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -350,6 +387,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -357,6 +395,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object Tv1Column1: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@ -364,29 +403,40 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
object Tv1Column4: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column9: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column10: TcxGridDBColumn
Caption = #24211#40836
DataBinding.FieldName = 'KL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end

20
T02贸易汇总仓库/U_TradeFinishClothStkList.pas
View File

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmTradeFinishClothStkList = class(TfrmBaseList)
@ -64,6 +65,9 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
Panel2: TPanel;
Tv1Column10: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -78,6 +82,9 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private
procedure InitGrid();
{ Private declarations }
@ -124,7 +131,7 @@ begin
Close;
sql.Clear;
sql.Add(' select A.*,B.SalesId,B.Saleser,BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainID=B.MainId) ');
sql.Add(' from BS_Cloth_IO A left join Trade_Plan_Main B on B.MainId=A.FromMainId ');
sql.Add(' ,DATEDIFF(Day, A.IOTime, GETDATE()) KL from BS_Cloth_IO A left join Trade_Plan_Main B on B.MainId=A.FromMainId ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
Open;
@ -209,5 +216,14 @@ begin
ModalResult := 1;
end;
procedure TfrmTradeFinishClothStkList.Tv1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('KL').Index] > 183 then
ACanvas.Brush.Color := $7280FA;
end;
end.

29
T02贸易汇总仓库/U_TradeFtyClothStkList.dfm
View File

@ -104,6 +104,19 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Height = 12
Caption = #25209' '#21495
end
object Label1: TLabel
Left = 880
Top = 6
Width = 116
Height = 20
Caption = #24211#40836#36229'6'#20010#26376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_name: TEdit
Tag = 2
Left = 254
@ -140,6 +153,15 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
TabOrder = 3
OnChange = FromCoNameChange
end
object Panel2: TPanel
Left = 1002
Top = 4
Width = 71
Height = 24
Color = 7504122
ParentBackground = False
TabOrder = 4
end
end
object cxGrid1: TcxGrid [2]
Left = 0
@ -152,6 +174,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -416,6 +439,12 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column11: TcxGridDBColumn
Caption = #24211#40836
DataBinding.FieldName = 'KL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

17
T02贸易汇总仓库/U_TradeFtyClothStkList.pas
View File

@ -65,6 +65,9 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Label1: TLabel;
Panel2: TPanel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -79,6 +82,9 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private
procedure InitGrid();
{ Private declarations }
@ -124,7 +130,7 @@ begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' select A.*,DATEDIFF(Day, A.IOTime, GETDATE()) KL ');
sql.Add(' from BS_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@ -210,5 +216,14 @@ begin
ModalResult := 1;
end;
procedure TfrmTradeFtyClothStkList.Tv1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('KL').Index] > 183 then
ACanvas.Brush.Color := $7280FA;
end;
end.

29
T02贸易汇总仓库/U_TradeGreyClothStkList.dfm
View File

@ -111,6 +111,19 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Height = 12
Caption = #19994#21153#21592
end
object Label1: TLabel
Left = 880
Top = 6
Width = 116
Height = 20
Caption = #24211#40836#36229'6'#20010#26376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_name: TEdit
Tag = 2
Left = 254
@ -156,6 +169,15 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
TabOrder = 4
OnChange = FromCoNameChange
end
object Panel2: TPanel
Left = 1002
Top = 4
Width = 71
Height = 24
Color = 7504122
ParentBackground = False
TabOrder = 5
end
end
object cxGrid1: TcxGrid [2]
Left = 0
@ -168,6 +190,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -428,6 +451,12 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
HeaderAlignmentHorz = taCenter
Width = 82
end
object Tv1Column8: TcxGridDBColumn
Caption = #24211#40836
DataBinding.FieldName = 'KL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

17
T02贸易汇总仓库/U_TradeGreyClothStkList.pas
View File

@ -66,6 +66,9 @@ type
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Label1: TLabel;
Panel2: TPanel;
Tv1Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -80,6 +83,9 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private
procedure InitGrid();
{ Private declarations }
@ -125,7 +131,7 @@ begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' select A.*,DATEDIFF(Day, A.IOTime, GETDATE()) KL ');
sql.Add(' from BS_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@ -211,5 +217,14 @@ begin
ModalResult := 1;
end;
procedure TfrmTradeGreyClothStkList.Tv1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('KL').Index] > 183 then
ACanvas.Brush.Color := $7280FA;
end;
end.

2
T02贸易汇总仓库/U_TradeSampleClothInEdit.dfm
View File

@ -10,7 +10,6 @@ inherited frmTradeSampleClothInEdit: TfrmTradeSampleClothInEdit
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -381
ExplicitWidth = 1556
ExplicitHeight = 497
PixelsPerInch = 96
@ -143,6 +142,7 @@ inherited frmTradeSampleClothInEdit: TfrmTradeSampleClothInEdit
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
end

24
T02贸易汇总仓库/U_TradeSampleClothInEdit.pas
View File

@ -83,7 +83,7 @@ type
function SaveCKData(): Boolean;
public
{ Public declarations }
FBCId, canshu3, FSTKName, FKHName: string;
FBCId, canshu3, FSTKName, FKHName, PState: string;
end;
var
@ -303,6 +303,23 @@ begin
end;
SCreateCDS(ADOQueryTemp, CDS_Sub);
SInitCDSData(ADOQueryTemp, CDS_Sub);
if PState = '¸´ÖÆ' then
begin
FBCId := '';
with CDS_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('BCIOID').Value := '';
FieldByName('IOTime').Value := SGetServerDateTime(ADOQueryTemp);
Post;
Next;
end;
end;
end;
end;
procedure TfrmTradeSampleClothInEdit.TBDelClick(Sender: TObject);
@ -400,8 +417,7 @@ begin
end;
procedure TfrmTradeSampleClothInEdit.Tv1Column12PropertiesEditValueChanged(
Sender: TObject);
procedure TfrmTradeSampleClothInEdit.Tv1Column12PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FCBPrice, FCBMoney: Double; //个数，单价，金额, 预估成本
@ -432,8 +448,6 @@ begin
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;

90
T02贸易汇总仓库/U_TradeSampleClothInList.dfm
View File

@ -63,16 +63,24 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
ImageIndex = 3
OnClick = TBEditClick
end
object TBDel: TToolButton
object ToolButton3: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 9
OnClick = ToolButton3Click
end
object TBDel: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 355
Left = 426
Top = 0
AutoSize = True
Caption = #25171#21360
@ -80,7 +88,7 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
OnClick = ToolButton2Click
end
object TBExport: TToolButton
Left = 426
Left = 497
Top = 0
AutoSize = True
Caption = #23548#20986
@ -88,7 +96,7 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 497
Left = 568
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -96,13 +104,21 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 592
Left = 663
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object ToolButton4: TToolButton
Left = 734
Top = 0
AutoSize = True
Caption = #22270#29255#19978#20256
ImageIndex = 19
OnClick = ToolButton4Click
end
end
object Panel1: TPanel [1]
Left = 0
@ -256,12 +272,15 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
object cxGrid1: TcxGrid [2]
Left = 0
Top = 96
Width = 1540
Width = 1222
Height = 382
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -2
ExplicitTop = 97
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
@ -363,6 +382,13 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
HeaderAlignmentHorz = taCenter
Width = 116
end
object Tv1Column13: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
@ -377,6 +403,13 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
HeaderAlignmentHorz = taCenter
Width = 99
end
object Tv1Column12: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 53
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
@ -544,6 +577,44 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
GridView = Tv1
end
end
object Panel9: TPanel [3]
Left = 1222
Top = 96
Width = 318
Height = 382
Align = alRight
Caption = 'Panel9'
TabOrder = 3
object Panel10: TPanel
Left = 1
Top = 1
Width = 316
Height = 380
Align = alClient
Caption = 'Panel9'
TabOrder = 0
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 314
Height = 378
Align = alClient
Caption = #26679#21697#32553#30053#22270
TabOrder = 0
object ScrollBox1: TScrollBox
Left = 2
Top = 14
Width = 310
Height = 362
Align = alClient
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
ExplicitLeft = 1
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 113
@ -603,4 +674,11 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
OnClick = N2Click
end
end
object adoqueryPicture: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 233
Top = 233
end
end

135
T02贸易汇总仓库/U_TradeSampleClothInList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
dxScrollbarAnnotations;
dxScrollbarAnnotations, jpeg, Math,U_SLT;
type
TfrmTradeSampleClothInList = class(TfrmBaseList)
@ -81,6 +81,15 @@ type
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Panel9: TPanel;
Panel10: TPanel;
GroupBox1: TGroupBox;
ScrollBox1: TScrollBox;
Tv1Column12: TcxGridDBColumn;
adoqueryPicture: TADOQuery;
Tv1Column13: TcxGridDBColumn;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -100,9 +109,14 @@ type
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
canshu1, canshu2, canshu3: string;
procedure InitGrid();
procedure InitImage();
procedure setStatus();
{ Private declarations }
public
@ -110,10 +124,13 @@ type
{ Public declarations }
end;
var
Mach: array of TfrmSlt;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint, U_TradeSampleClothInEdit;
U_DataLink, U_RTFun, U_LabelPrint, U_TradeSampleClothInEdit,U_ClothTotalFileUp;
{$R *.dfm}
procedure TfrmTradeSampleClothInList.setStatus();
@ -146,13 +163,15 @@ begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' select A.*,IsImg=cast((case when (select COUNT(T.WBID) from TP_File T where T.FileType = ''YPCK'' and T.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) ');
sql.Add(' from BS_Cloth_IO A');
// left join BS_Cloth_Info B on A.C_Code=B.C_Code');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''');
SQL.Add(' and IOFlag=''Èë¿â'' ');
SQL.Add(' order by IOTime desc');
// ShowMessage(sql.text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@ -163,10 +182,67 @@ begin
end;
end;
procedure TfrmTradeSampleClothInList.InitImage();
var
i, j: integer;
jpg: TJpegImage;
myStream: TADOBlobStream;
begin
j := length(Mach);
if j > 0 then
begin
for i := 0 to j - 1 do
begin
Mach[i].free;
end;
end;
SetLength(Mach, 0);
if CDS_Main.IsEmpty then
exit;
try
with adoqueryPicture do
begin
close;
sql.Clear;
sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A ');
sql.add('where A.WBID=' + quotedstr(trim(CDS_Main.fieldbyname('BCIOID').AsString)));
open;
end;
j := adoqueryPicture.RecordCount;
if j < 1 then
exit;
adoqueryPicture.DisableControls;
adoqueryPicture.First;
SetLength(Mach, j);
jpg := TJpegImage.Create();
for i := 0 to j - 1 do
begin
if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
begin
myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
jpg.LoadFromStream(myStream);
Mach[i] := TfrmSlt.Create(Self);
Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
Mach[i].Parent := ScrollBox1;
// Mach[i].Left := 0;
Mach[i].Top := 0 + i * 180;
Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
end;
adoqueryPicture.Next;
end;
adoqueryPicture.EnableControls;
finally
jpg.free;
application.ProcessMessages;
end;
end;
procedure TfrmTradeSampleClothInList.TBRafreshClick(Sender: TObject);
begin
BegDate.SetFocus;
InitGrid();
InitImage();
end;
procedure TfrmTradeSampleClothInList.ToolButton1Click(Sender: TObject);
@ -219,6 +295,58 @@ begin
end;
end;
procedure TfrmTradeSampleClothInList.ToolButton3Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
try
frmTradeSampleClothInEdit := TfrmTradeSampleClothInEdit.Create(Application);
with frmTradeSampleClothInEdit do
begin
FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString);
TBDel.Visible := False;
TBAdd.Visible := False;
FSTKName := Self.FSTKName;
PState := '¸´ÖÆ';
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmTradeSampleClothInEdit.Free;
end;
end;
procedure TfrmTradeSampleClothInList.ToolButton4Click(Sender: TObject);
begin
try
frmClothTotalFileUp := TfrmClothTotalFileUp.Create(Application);
with frmClothTotalFileUp do
begin
BCIOID.Text := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
if ShowModal = 1 then
begin
Self.InitGrid();
// Self.CDS_1.Locate('BCIID', BCIID, []);
end;
end;
finally
frmClothTotalFileUp.Free;
end;
InitImage();
end;
procedure TfrmTradeSampleClothInList.Tv1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
InitImage();
end;
procedure TfrmTradeSampleClothInList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
@ -239,6 +367,7 @@ begin
ReadCxGrid(Self.Caption, Tv1, 'óÒ×»ã×ֿܲâ');
setStatus();
InitGrid();
InitImage();
end;
procedure TfrmTradeSampleClothInList.TBExportClick(Sender: TObject);

23
T02贸易汇总仓库/U_TradeSampleClothOutList.dfm
View File

@ -5,7 +5,6 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
ClientHeight = 537
ClientWidth = 1540
Position = poScreenCenter
ExplicitLeft = -381
ExplicitWidth = 1556
ExplicitHeight = 576
PixelsPerInch = 96
@ -440,6 +439,13 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
Options.Editing = False
Width = 89
end
object Tv1Column17: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Column13: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
@ -465,6 +471,13 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
VisibleForCustomization = False
Width = 98
end
object Tv1Column18: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
@ -574,18 +587,12 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
Options.Editing = False
Width = 58
end
object Tv1Column8: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 52
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end

3
T02贸易汇总仓库/U_TradeSampleClothOutList.pas
View File

@ -83,7 +83,6 @@ type
Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
@ -94,6 +93,8 @@ type
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);

107
T02贸易汇总仓库/U_TradeSampleClothStkList.dfm
View File

@ -5,7 +5,6 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
ClientHeight = 472
ClientWidth = 1400
Position = poDefault
ExplicitLeft = -241
ExplicitWidth = 1416
ExplicitHeight = 511
PixelsPerInch = 96
@ -77,6 +76,8 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 34
object Label3: TLabel
Left = 227
Top = 11
@ -99,16 +100,23 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
Caption = #35268#26684
end
object Label2: TLabel
Left = 510
Left = 507
Top = 11
Width = 36
Height = 12
Caption = #25209' '#21495
end
object Label1: TLabel
Left = 646
Top = 10
Width = 36
Height = 12
Caption = #25195' '#25551
end
object C_name: TEdit
Tag = 2
Left = 254
Top = 7
Left = 257
Top = 6
Width = 100
Height = 20
TabOrder = 0
@ -117,7 +125,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
object FromCoName: TEdit
Tag = 2
Left = 113
Top = 6
Top = 7
Width = 78
Height = 20
TabOrder = 1
@ -141,17 +149,25 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
TabOrder = 3
OnChange = FromCoNameChange
end
object BCIID: TEdit
Left = 688
Top = 6
Width = 106
Height = 20
TabOrder = 4
OnKeyPress = BCIIDKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 74
Width = 1400
Width = 1082
Height = 398
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 71
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
@ -243,6 +259,13 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
Options.Editing = False
Width = 108
end
object Tv1Column11: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 95
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
@ -405,11 +428,60 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column12: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'ISImg'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
end
object Tv1Column13: TcxGridDBColumn
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
Visible = False
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel9: TPanel [3]
Left = 1082
Top = 74
Width = 318
Height = 398
Align = alRight
Caption = 'Panel9'
TabOrder = 3
object Panel10: TPanel
Left = 1
Top = 1
Width = 316
Height = 396
Align = alClient
Caption = 'Panel9'
TabOrder = 0
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 314
Height = 394
Align = alClient
Caption = #26679#21697#32553#30053#22270
TabOrder = 0
object ScrollBox1: TScrollBox
Left = 2
Top = 14
Width = 310
Height = 378
Align = alClient
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 305
@ -475,4 +547,25 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
TextColor = clBlue
end
end
object ADOQuery1: TADOQuery
ConnectionString = 'BS_Cloth_IO'
LockType = ltReadOnly
Parameters = <>
Left = 536
Top = 184
end
object adoqueryPicture: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 648
Top = 192
end
object ADOQuery2: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 792
Top = 224
end
end

102
T02贸易汇总仓库/U_TradeSampleClothStkList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
dxScrollbarAnnotations;
dxScrollbarAnnotations, jpeg, Math, U_SLT;
type
TfrmTradeSampleClothStkList = class(TfrmBaseList)
@ -65,6 +65,18 @@ type
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
BCIID: TEdit;
Label1: TLabel;
ADOQuery1: TADOQuery;
Panel9: TPanel;
Panel10: TPanel;
GroupBox1: TGroupBox;
ScrollBox1: TScrollBox;
Tv1Column12: TcxGridDBColumn;
adoqueryPicture: TADOQuery;
Tv1Column13: TcxGridDBColumn;
ADOQuery2: TADOQuery;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -79,8 +91,11 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure BCIIDKeyPress(Sender: TObject; var Key: Char);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
procedure InitGrid();
procedure InitImage();
{ Private declarations }
public
FstkName: string;
@ -89,6 +104,7 @@ type
var
frmTradeSampleClothStkList: TfrmTradeSampleClothStkList;
Mach: array of TfrmSlt;
implementation
@ -125,6 +141,7 @@ begin
Close;
sql.Clear;
sql.Add(' select CBMoney=ISNULL(A.CBPrice,0)*ISNULL(A.stkqty,0),A.* ');
sql.Add(',IsImg=cast((case when (select COUNT(T.WBID) from TP_File T where T.FileType = ''YPCK'' and T.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) ');
sql.Add(' from BS_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@ -138,9 +155,84 @@ begin
end;
end;
procedure TfrmTradeSampleClothStkList.InitImage();
var
i, j: integer;
jpg: TJpegImage;
myStream: TADOBlobStream;
begin
j := length(Mach);
if j > 0 then
begin
for i := 0 to j - 1 do
begin
Mach[i].free;
end;
end;
SetLength(Mach, 0);
if CDS_Main.IsEmpty then
exit;
try
with adoqueryPicture do
begin
close;
sql.Clear;
sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A ');
sql.add('where A.WBID=' + quotedstr(trim(CDS_Main.fieldbyname('BCIOID').AsString)));
open;
end;
j := adoqueryPicture.RecordCount;
if j < 1 then
exit;
adoqueryPicture.DisableControls;
adoqueryPicture.First;
SetLength(Mach, j);
jpg := TJpegImage.Create();
for i := 0 to j - 1 do
begin
if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
begin
myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
jpg.LoadFromStream(myStream);
Mach[i] := TfrmSlt.Create(Self);
Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
Mach[i].Parent := ScrollBox1;
// Mach[i].Left := 0;
Mach[i].Top := 0 + i * 180;
Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
end;
adoqueryPicture.Next;
end;
adoqueryPicture.EnableControls;
finally
jpg.free;
application.ProcessMessages;
end;
end;
procedure TfrmTradeSampleClothStkList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
InitImage();
end;
procedure TfrmTradeSampleClothStkList.BCIIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
with ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select * from BS_Cloth_Info A where A.BCIID=''' + trim(BCIID.Text) + ''' ');
// showmessage(sql.text);
open;
end;
C_name.text := ADOQuery2.FieldByName('C_Name').ASString;
end;
end;
procedure TfrmTradeSampleClothStkList.ConNoMChange(Sender: TObject);
@ -162,6 +254,7 @@ begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
InitGrid();
InitImage();
end;
procedure TfrmTradeSampleClothStkList.TBFindClick(Sender: TObject);
@ -172,6 +265,7 @@ begin
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
// TBFind.Click
end;
procedure TfrmTradeSampleClothStkList.MPRTCodeNameChange(Sender: TObject);
@ -211,5 +305,11 @@ begin
ModalResult := 1;
end;
procedure TfrmTradeSampleClothStkList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
InitImage();
end;
end.

100
T02贸易汇总仓库/U_TradeSampleClothStkSel.dfm
View File

@ -97,7 +97,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
Caption = #21697#21517
end
object Label4: TLabel
Left = 51
Left = 27
Top = 10
Width = 48
Height = 12
@ -124,10 +124,23 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
Height = 12
Caption = #35745#21010#21333#21495
end
object Label1: TLabel
Left = 729
Top = 10
Width = 26
Height = 12
Caption = #25195#25551
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object C_name: TEdit
Tag = 2
Left = 204
Top = 4
Top = 6
Width = 100
Height = 20
TabOrder = 0
@ -136,7 +149,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
object FromCoName: TEdit
Tag = 2
Left = 81
Top = 4
Top = 6
Width = 78
Height = 20
TabOrder = 1
@ -169,17 +182,27 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
TabOrder = 4
OnChange = FromCoNameChange
end
object BCIID: TEdit
Left = 761
Top = 6
Width = 106
Height = 20
TabOrder = 5
OnKeyPress = BCIIDKeyPress
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 74
Width = 1165
Width = 847
Height = 398
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 70
ExplicitLeft = -2
ExplicitTop = 80
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
@ -291,6 +314,13 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
Options.Editing = False
Width = 108
end
object Tv1Column8: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
@ -440,11 +470,60 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
HeaderAlignmentHorz = taCenter
Width = 55
end
object Tv1Column9: TcxGridDBColumn
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
end
object Tv1Column10: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel9: TPanel [3]
Left = 847
Top = 74
Width = 318
Height = 398
Align = alRight
Caption = 'Panel9'
TabOrder = 3
object Panel10: TPanel
Left = 1
Top = 1
Width = 316
Height = 396
Align = alClient
Caption = 'Panel9'
TabOrder = 0
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 314
Height = 394
Align = alClient
Caption = #26679#21697#32553#30053#22270
TabOrder = 0
object ScrollBox1: TScrollBox
Left = 2
Top = 14
Width = 310
Height = 378
Align = alClient
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 265
@ -477,7 +556,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 552
Left = 576
Top = 232
end
object cxGridPopupMenu1: TcxGridPopupMenu
@ -488,7 +567,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 584
Left = 632
Top = 232
end
object CDS_HZ: TClientDataSet
@ -521,4 +600,11 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
object cxStyle2: TcxStyle
end
end
object adoqueryPicture: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 312
Top = 240
end
end

99
T02贸易汇总仓库/U_TradeSampleClothStkSel.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations;
Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations, jpeg, Math, U_SLT;
type
TfrmTradeSampleClothStkSel = class(TfrmBaseHelp)
@ -72,6 +72,16 @@ type
cxStyle2: TcxStyle;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Label1: TLabel;
BCIID: TEdit;
Tv1Column9: TcxGridDBColumn;
adoqueryPicture: TADOQuery;
Panel9: TPanel;
Panel10: TPanel;
GroupBox1: TGroupBox;
ScrollBox1: TScrollBox;
Tv1Column10: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -87,8 +97,11 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject);
procedure BCIIDKeyPress(Sender: TObject; var Key: Char);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
procedure InitGrid();
procedure InitImage();
{ Private declarations }
public
FstkName: string;
@ -97,6 +110,7 @@ type
var
frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel;
Mach: array of TfrmSlt;
implementation
@ -127,6 +141,7 @@ begin
Close;
sql.Clear;
sql.Add(' select CBMoney=ISNULL(A.CBPrice,0)*ISNULL(A.stkqty,0),A.* ');
sql.Add(',IsImg=cast((case when (select COUNT(T.WBID) from TP_File T where T.FileType = ''YPCK'' and T.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) ');
sql.Add(' from BS_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(STkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@ -139,9 +154,84 @@ begin
end;
end;
procedure TfrmTradeSampleClothStkSel.InitImage();
var
i, j: integer;
jpg: TJpegImage;
myStream: TADOBlobStream;
begin
j := length(Mach);
if j > 0 then
begin
for i := 0 to j - 1 do
begin
Mach[i].free;
end;
end;
SetLength(Mach, 0);
if CDS_Main.IsEmpty then
exit;
try
with adoqueryPicture do
begin
close;
sql.Clear;
sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A ');
sql.add('where A.WBID=' + quotedstr(trim(CDS_Main.fieldbyname('BCIOID').AsString)));
open;
end;
j := adoqueryPicture.RecordCount;
if j < 1 then
exit;
adoqueryPicture.DisableControls;
adoqueryPicture.First;
SetLength(Mach, j);
jpg := TJpegImage.Create();
for i := 0 to j - 1 do
begin
if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
begin
myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
jpg.LoadFromStream(myStream);
Mach[i] := TfrmSlt.Create(Self);
Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
Mach[i].Parent := ScrollBox1;
// Mach[i].Left := 0;
Mach[i].Top := 0 + i * 180;
Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
end;
adoqueryPicture.Next;
end;
adoqueryPicture.EnableControls;
finally
jpg.free;
application.ProcessMessages;
end;
end;
procedure TfrmTradeSampleClothStkSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
InitImage();
end;
procedure TfrmTradeSampleClothStkSel.BCIIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from BS_Cloth_Info A where A.BCIID=''' + trim(BCIID.Text) + ''' ');
// showmessage(sql.text);
open;
end;
C_name.text := ADOQueryTemp.FieldByName('C_Name').ASString;
end;
end;
procedure TfrmTradeSampleClothStkSel.ConNoMChange(Sender: TObject);
@ -163,6 +253,7 @@ begin
inherited;
ReadCxGrid(trim(self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
InitGrid();
InitImage();
end;
procedure TfrmTradeSampleClothStkSel.TBFindClick(Sender: TObject);
@ -222,5 +313,11 @@ begin
ModalResult := 1;
end;
procedure TfrmTradeSampleClothStkSel.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
InitImage();
end;
end.

30
T04贸易明细仓库/U_DeliTradePlanSel.dfm
View File

@ -236,6 +236,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
PopupMenu = PopupMenu1
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -251,6 +252,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1Column7: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
@ -259,6 +261,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object Tv1Column11: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -266,6 +269,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -274,6 +278,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -282,6 +287,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
@ -292,6 +298,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -299,17 +306,20 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object Tv1Column5: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'Technics'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column2: TcxGridDBColumn
Caption = #21152#24037#21378
DataBinding.FieldName = 'FtyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 138
end
object v1OrdDefStr1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -318,6 +328,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1MPRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -326,6 +337,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -334,6 +346,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object Tv1Column1: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -341,6 +354,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1MPRTMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -349,6 +363,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1MPRTKZ: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -357,6 +372,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -365,6 +381,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1Column1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -373,6 +390,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1Column6: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -381,28 +399,33 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1Column4: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column10: TcxGridDBColumn
Caption = #24037#24207#25968
DataBinding.FieldName = 'GXS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 53
end
object Tv1Column6: TcxGridDBColumn
Caption = #23433#25490#25968#37327
DataBinding.FieldName = 'PQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column7: TcxGridDBColumn
Caption = #24453#23433#25490#25968
DataBinding.FieldName = 'WPQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -411,6 +434,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1Column5: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -419,6 +443,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object v1Column3: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'PRTOrderKgQty'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -427,6 +452,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object Tv1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -434,24 +460,28 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
object Tv1Column8: TcxGridDBColumn
Caption = #24320#21305
DataBinding.FieldName = 'KP'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 46
end
object Tv1Column9: TcxGridDBColumn
Caption = #24320#21305#21333#20301
DataBinding.FieldName = 'KPUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column12: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end
object Tv1Column13: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end

2
T04贸易明细仓库/U_DeliTradePlanSel.pas
View File

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
cxCalendar, Vcl.Menus;
cxCalendar, Vcl.Menus, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmDeliTradePlanSel = class(TfrmBaseHelp)

2
T04贸易明细仓库/U_GetDllForm.pas
View File

@ -80,7 +80,7 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '管理';
Parameters4 := '调整';
Parameters5 := '땐데';
Parameters5 := '¿â´æ';
DName:='ADMIN';
end
else

13
T04贸易明细仓库/U_TradeClothOutEdit.dfm
View File

@ -2,6 +2,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
Caption = #25104#21697#20986#24211#25195#25551
ClientHeight = 632
ClientWidth = 1350
ExplicitTop = -62
ExplicitWidth = 1366
ExplicitHeight = 671
PixelsPerInch = 96
@ -147,6 +148,12 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
HeaderAlignmentHorz = taCenter
Width = 52
end
object Tv1Column5: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -411,7 +418,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
Caption = #22791#27880
end
object CRTime: TDateTimePicker
Left = 246
Left = 253
Top = 51
Width = 100
Height = 20
@ -422,13 +429,13 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
end
object OutNo: TEdit
Left = 72
Top = 50
Top = 51
Width = 100
Height = 20
TabOrder = 1
end
object CRType: TComboBox
Left = 422
Left = 428
Top = 51
Width = 100
Height = 20

3
T04贸易明细仓库/U_TradeClothOutEdit.pas
View File

@ -101,6 +101,7 @@ type
Tv3Column4: TcxGridDBColumn;
ToolButton5: TToolButton;
IOPosition: TBtnEditC;
Tv1Column5: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -175,7 +176,7 @@ begin
begin
Close;
sql.Clear;
sql.Add('select A.IOFlag,A.IONo,A.IOID,B.* from Trade_Cloth_IO A ');
sql.Add('select A.IOFlag,A.IONo,A.IOID,A.StkType,B.* from Trade_Cloth_IO A ');
sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles ');
sql.Add('where A.IOFlag=''Èë¿â'' and B.StkExists=1 ');
if TRIm(FSubIds) <> '' then

69
T04贸易明细仓库/U_TradeClothStkListNew.dfm
View File

@ -7,6 +7,8 @@
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -348
ExplicitTop = -5
ExplicitWidth = 1556
ExplicitHeight = 631
PixelsPerInch = 96
@ -167,6 +169,7 @@
Color = clWhite
ParentBackground = False
TabOrder = 0
ExplicitTop = 2
object Label4: TLabel
Left = 195
Top = 10
@ -306,6 +309,45 @@
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 1054
Top = 24
Width = 106
Height = 20
Caption = #24211#40836#36229'90'#22825
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 1216
Top = 24
Width = 106
Height = 20
Caption = #24211#40836#36229'12'#26376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 1379
Top = 24
Width = 106
Height = 20
Caption = #24211#40836#36229'18'#26376
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object DateTimePicker3: TDateTimePicker
Left = 137
Top = 132
@ -513,6 +555,33 @@
ParentFont = False
TabOrder = 13
end
object Panel3: TPanel
Left = 1158
Top = 13
Width = 49
Height = 41
Color = 11788021
ParentBackground = False
TabOrder = 14
end
object Panel4: TPanel
Left = 1324
Top = 14
Width = 49
Height = 41
Color = 42495
ParentBackground = False
TabOrder = 15
end
object Panel5: TPanel
Left = 1483
Top = 13
Width = 49
Height = 41
Color = clRed
ParentBackground = False
TabOrder = 16
end
end
object cxGrid2: TcxGrid
Left = 0

52
T04贸易明细仓库/U_TradeClothStkListNew.pas
View File

@ -187,6 +187,12 @@ type
StkType: TComboBox;
TV2Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Label15: TLabel;
Panel3: TPanel;
Label16: TLabel;
Panel4: TPanel;
Label17: TLabel;
Panel5: TPanel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -318,16 +324,17 @@ begin
ToolButton8.Visible := False;
end;
end else
end
else
begin
TV2Column12.visible:=False;
TV2Column12.VisibleForCustomization:=False;
TV2Column11.visible:=False;
TV2Column11.VisibleForCustomization:=False;
TV1Column13.visible:=False;
TV1Column14.visible:=False;
TV1Column13.VisibleForCustomization:=False;
TV1Column14.VisibleForCustomization:=False;
TV2Column12.visible := False;
TV2Column12.VisibleForCustomization := False;
TV2Column11.visible := False;
TV2Column11.VisibleForCustomization := False;
TV1Column13.visible := False;
TV1Column14.visible := False;
TV1Column13.VisibleForCustomization := False;
TV1Column14.VisibleForCustomization := False;
end;
end;
@ -369,6 +376,7 @@ begin
Close;
sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType');
// sql.Add(',Y_kl= DATEDIFF(YY,IOTime, GETDATE()),M_kl= DATEDIFF(MM,IOTime, GETDATE())');
Sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price');
sql.Add(',C_Code,Saleser,dbo.getNum(C_ColorNo) SHNO,C_ColorNo,ConNo,BuyConNo,FOrdNo');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
@ -479,6 +487,17 @@ begin
canshu4 := Trim(Self.fParameters4);
canshu5 := Trim(Self.fParameters5);
if Canshu5='订单' then
begin
Label15.Caption:='库龄超90天';
Label16.Caption:='库龄超12月';
Label17.Caption:='库龄超18月';
end else if Canshu5='库存' then
begin
Label15.Caption:='库龄超2年';
Label16.Caption:='库龄超3年';
Label17.Caption:='库龄超5年';
end;
SetStatus();
InitPage();
end;
@ -554,8 +573,23 @@ end;
procedure TfrmTradeClothStkListNew.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if canshu5 = '订单' then
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 365 then
ACanvas.Brush.Color := $00A5FF;
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 548 then
ACanvas.Brush.Color := $0000FF;
end else if canshu5 = '库存' then
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 730 then
ACanvas.Brush.Color := $B3DEF5;
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 1095 then
ACanvas.Brush.Color := $00A5FF;
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 1825 then
ACanvas.Brush.Color := $0000FF;
end
end;
procedure TfrmTradeClothStkListNew.BTNPClick(Sender: TObject);

48
T04贸易明细仓库/U_TradeDeliveryRequest.dfm
View File

@ -8,7 +8,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -219
ExplicitTop = -220
ExplicitWidth = 1469
ExplicitHeight = 805
PixelsPerInch = 96
@ -156,9 +156,9 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
Height = 434
Align = alClient
TabOrder = 3
ExplicitWidth = 1142
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -222,6 +222,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.MultiLine = True
@ -232,18 +233,21 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object v1Column8: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'DRMID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv1Column1: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'OutType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1OrdDate: TcxGridDBColumn
Caption = #30331#35760#26085#26399
DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
@ -253,36 +257,42 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object v1Column27: TcxGridDBColumn
Caption = #21457#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column10: TcxGridDBColumn
Caption = #25910#36135#21333#20301
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object v1Column1: TcxGridDBColumn
Caption = #30003#35831#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column13: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1Column17: TcxGridDBColumn
Caption = #23457#26680#26085#26399
DataBinding.FieldName = 'ChkTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
@ -291,6 +301,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object Tv1Column2: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 82
@ -298,6 +309,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object Tv1Column3: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 69
@ -305,6 +317,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object Tv1Column4: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 75
@ -312,6 +325,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object Tv1Column5: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 42
@ -319,6 +333,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object Tv1Column6: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'DlyPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 72
@ -326,6 +341,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object Tv1Column7: TcxGridDBColumn
Caption = #21457#36135#25968#37327
DataBinding.FieldName = 'DlyQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 86
@ -346,7 +362,6 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 39
object Label4: TLabel
Left = 464
Top = 15
@ -543,7 +558,6 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
ExplicitTop = 307
end
object cxGrid2: TcxGrid [5]
Left = 0
@ -552,10 +566,9 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
Height = 222
Align = alBottom
TabOrder = 5
ExplicitLeft = -1
ExplicitTop = 543
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
@ -596,6 +609,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -603,29 +617,34 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object TV2Column4: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'KHConno'
DataBinding.FieldName = 'BuyConNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object v1Column6: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
@ -633,18 +652,21 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object cxGridDBColumn5: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV2Column5: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
@ -659,9 +681,9 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
Height = 434
Align = alRight
TabOrder = 6
ExplicitTop = 101
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
@ -722,24 +744,28 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object cxGridDBColumn8: TcxGridDBColumn
Caption = #21407#35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #21407#20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #21407#20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #21407#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
@ -747,36 +773,42 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
object cxGridDBColumn13: TcxGridDBColumn
Caption = #21407#33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #21407#33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV3Column1: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 47
end
object TV3Column2: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 47
end
object TV3Column3: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 47
end
object TV3Column4: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 47
end

3
T04贸易明细仓库/U_TradeDeliveryRequest.pas
View File

@ -12,7 +12,7 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList,
dxDateRanges;
dxDateRanges, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmTradeDeliveryRequest = class(TfrmBaseList)
@ -259,6 +259,7 @@ begin
// sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
// end;
sql.Add(' order by Filltime desc ');
// ShowMessage(sql.text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

Some files were not shown because too many files have changed in this diff Show More