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

1128

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2024-11-28 15:12:45 +08:00
parent b0ed23a9b9
commit 35fd99d934
39 changed files with 262 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

22
A09财务通用管理/U_CompanySel.dfm
View File

@ -198,15 +198,22 @@ inherited frmCompanySel: TfrmCompanySel
end end
object Label2: TLabel object Label2: TLabel
Left = 240 Left = 240
Top = 15 Top = 17
Width = 60 Width = 60
Height = 12 Height = 12
Caption = #20379#24212#21830#31867#22411 Caption = #20379#24212#21830#31867#22411
end end
object Label3: TLabel
Left = 504
Top = 17
Width = 24
Height = 12
Caption = #31616#31216
end
object CoName: TEdit object CoName: TEdit
Tag = 2 Tag = 2
Left = 54 Left = 54
Top = 12 Top = 13
Width = 169 Width = 169
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
@ -215,12 +222,21 @@ inherited frmCompanySel: TfrmCompanySel
object CoBusinessType: TEdit object CoBusinessType: TEdit
Tag = 2 Tag = 2
Left = 305 Left = 305
Top = 11 Top = 13
Width = 169 Width = 169
Height = 20 Height = 20
TabOrder = 1 TabOrder = 1
OnChange = CoNameChange OnChange = CoNameChange
end end
object CoAbbrName: TEdit
Tag = 2
Left = 534
Top = 13
Width = 169
Height = 20
TabOrder = 2
OnChange = CoNameChange
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1 Connection = ADOConnection1

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

@ -61,6 +61,8 @@ type
TV1Column9: TcxGridDBColumn; TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn; TV1Column10: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn; TV1Column11: TcxGridDBColumn;
Label3: TLabel;
CoAbbrName: TEdit;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

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

@ -362,7 +362,7 @@ inherited frmCustStatement: TfrmCustStatement
TabOrder = 3 TabOrder = 3
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 2 Properties.Style = 2
Properties.TabIndex = 1 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
' USD ' ' USD '
' CNY ') ' CNY ')

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

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

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

@ -87,6 +87,7 @@ object frmPayInput: TfrmPayInput
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
object Label2: TLabel object Label2: TLabel
Left = 32 Left = 32
Top = 102 Top = 102
@ -282,6 +283,19 @@ object frmPayInput: TfrmPayInput
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label10: TLabel
Left = 486
Top = 60
Width = 63
Height = 15
Caption = #27719' '#29575#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Note: TMemo object Note: TMemo
Left = 92 Left = 92
Top = 237 Top = 237
@ -505,6 +519,13 @@ object frmPayInput: TfrmPayInput
#20184#27454 #20184#27454
#25910#27454) #25910#27454)
end end
object ExchangeRate: TcxCurrencyEdit
Left = 544
Top = 59
Properties.AssignedValues.DisplayFormat = True
TabOrder = 16
Width = 140
end
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink

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

@ -58,6 +58,8 @@ type
RegType: TComboBox; RegType: TComboBox;
Label6: TLabel; Label6: TLabel;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Label10: TLabel;
ExchangeRate: TcxCurrencyEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

@ -510,6 +510,13 @@ inherited frmPayList: TfrmPayList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False Visible = False
end end
object Tv1Column13: TcxGridDBColumn
Caption = #27719#29575
DataBinding.FieldName = 'ExchangeRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -99,6 +99,7 @@ type
ToolButton6: TToolButton; ToolButton6: TToolButton;
ToolButton7: TToolButton; ToolButton7: TToolButton;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);

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

@ -386,6 +386,7 @@ begin
FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode); FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode);
FieldByName('FFID').Value := Trim(MaxId); FieldByName('FFID').Value := Trim(MaxId);
FieldByName('ReconciliationDate').Value := FFTime.DateTime;
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
Post; Post;
end; end;

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

@ -512,7 +512,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
end end
object V1Column26: TcxGridDBBandedColumn object V1Column26: TcxGridDBBandedColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'YMxNote' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter

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

@ -211,6 +211,7 @@ inherited frmBaoguanList: TfrmBaoguanList
Align = alClient Align = alClient
PopupMenu = pm1 PopupMenu = pm1
TabOrder = 3 TabOrder = 3
ExplicitTop = 161
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -656,7 +657,7 @@ inherited frmBaoguanList: TfrmBaoguanList
Height = 20 Height = 20
Date = 40675.000000000000000000 Date = 40675.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 0.464761099538009200 Time = 0.464761099538009100
TabOrder = 1 TabOrder = 1
end end
object PONO: TEdit object PONO: TEdit
@ -769,7 +770,7 @@ inherited frmBaoguanList: TfrmBaoguanList
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 6
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#33609#31295#20214 #33609#31295#20214
#27491#24335#20214 #27491#24335#20214

20
B01基础合同管理/U_BaoguanList.pas
View File

@ -649,9 +649,9 @@ begin
sql.Add(',ISFY=Cast((case when ISNULL(FYFlag,'''')='''' then 0 else 1 end) AS bit)'); sql.Add(',ISFY=Cast((case when ISNULL(FYFlag,'''')='''' then 0 else 1 end) AS bit)');
sql.Add(',ISDF=Cast((case when ISNULL(DFFlag,'''')='''' then 0 else 1 end) AS bit)'); sql.Add(',ISDF=Cast((case when ISNULL(DFFlag,'''')='''' then 0 else 1 end) AS bit)');
sql.Add(',ISFK=Cast((case when ISNULL(FKFlag,'''')='''' then 0 else 1 end) AS bit)'); sql.Add(',ISFK=Cast((case when ISNULL(FKFlag,'''')='''' then 0 else 1 end) AS bit)');
sql.Add(',(Case A.Status when ''0'' then ''未提交'' when ''1'' then ''已提交'''); sql.Add(',(Case A.Status when ''0'' then ''草稿件'' when ''1'' then ''正式件''');
sql.Add('when ''9'' then ''已审核'' when ''10'' then ''已完成'' '); sql.Add('when ''5'' then ''待确认'' when ''9'' then ''已确认'' when ''10'' then ''已完成'' ');
SQL.Add('when ''-1'' then ''已取消'' end) AS ZT from Baoguan_Main A'); SQL.Add('when ''-1'' then ''垃圾件'' end) AS ZT from Baoguan_Main A');
sql.Add('where 1=1 ' + (WSql)); sql.Add('where 1=1 ' + (WSql));
sql.Add(' and FPDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); sql.Add(' and FPDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
@ -898,7 +898,7 @@ begin
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
MBGMIDS := MBGMIDS + trim(fieldbyname('ConMID').AsString) + ','; MBGMIDS := MBGMIDS + trim(fieldbyname('BGMID').AsString) + ',';
end; end;
next; next;
end; end;
@ -959,7 +959,7 @@ begin
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
MBGMIDS := MBGMIDS + trim(fieldbyname('ConMID').AsString) + ','; MBGMIDS := MBGMIDS + trim(fieldbyname('BGMID').AsString) + ',';
end; end;
next; next;
end; end;
@ -1025,7 +1025,7 @@ begin
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
MBGMIDS := MBGMIDS + trim(fieldbyname('ConMID').AsString) + ','; MBGMIDS := MBGMIDS + trim(fieldbyname('BGMID').AsString) + ',';
end; end;
next; next;
end; end;
@ -1095,7 +1095,7 @@ begin
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
MBGMIDS := MBGMIDS + trim(fieldbyname('ConMID').AsString) + ','; MBGMIDS := MBGMIDS + trim(fieldbyname('BGMID').AsString) + ',';
end; end;
next; next;
end; end;
@ -1156,7 +1156,7 @@ begin
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
MBGMIDS := MBGMIDS + trim(fieldbyname('ConMID').AsString) + ','; MBGMIDS := MBGMIDS + trim(fieldbyname('BGMID').AsString) + ',';
end; end;
next; next;
end; end;
@ -1232,7 +1232,7 @@ begin
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
MBGMIDS := MBGMIDS + trim(fieldbyname('ConMID').AsString) + ','; MBGMIDS := MBGMIDS + trim(fieldbyname('BGMID').AsString) + ',';
end; end;
next; next;
end; end;
@ -1293,7 +1293,7 @@ begin
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
MBGMIDS := MBGMIDS + trim(fieldbyname('ConMID').AsString) + ','; MBGMIDS := MBGMIDS + trim(fieldbyname('BGMID').AsString) + ',';
end; end;
next; next;
end; end;

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

@ -77,8 +77,9 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '录入'; // Parameters1 := '录入';
Parameters1 := '理单'; Parameters1 := '理单';
DName :='admin'; // Parameters1 := '管理';
DCode :='006'; // DName :='admin';
DCode :='002';
end end
else else
begin begin

3
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -11,7 +11,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitTop = -39
ExplicitWidth = 1533 ExplicitWidth = 1533
ExplicitHeight = 734 ExplicitHeight = 734
PixelsPerInch = 96 PixelsPerInch = 96
@ -78,6 +77,8 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = 1
ExplicitTop = 33
object Label3: TLabel object Label3: TLabel
Left = 40 Left = 40
Top = 81 Top = 81

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

@ -665,6 +665,7 @@ begin
begin begin
PState := '²é¿´'; PState := '²é¿´';
FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString);
FAuthority := self.FAuthority;
FGSTT := self.FGSTT; FGSTT := self.FGSTT;
ToolBar2.Visible := False; ToolBar2.Visible := False;
TBSave.Visible := False; TBSave.Visible := False;

26
T01贸易生产计划/U_TradeConSel.dfm
View File

@ -10,7 +10,6 @@ inherited frmTradeConSel: TfrmTradeConSel
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -351
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
@ -156,9 +155,10 @@ inherited frmTradeConSel: TfrmTradeConSel
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1 ExplicitTop = 110
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -200,6 +200,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object TV1Column7: TcxGridDBColumn object TV1Column7: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -208,36 +209,42 @@ inherited frmTradeConSel: TfrmTradeConSel
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object TV1Column6: TcxGridDBColumn object TV1Column6: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 88 Width = 88
end end
object TV1Column5: TcxGridDBColumn object TV1Column5: TcxGridDBColumn
Caption = #32463#33829#21333#20301 Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'SellName' DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object TV1Column3: TcxGridDBColumn object TV1Column3: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'BuyName' DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object TV1Column4: TcxGridDBColumn object TV1Column4: TcxGridDBColumn
Caption = #20013#38388#21830 Caption = #20013#38388#21830
DataBinding.FieldName = 'MiddleName' DataBinding.FieldName = 'MiddleName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -245,12 +252,14 @@ inherited frmTradeConSel: TfrmTradeConSel
object TV1Column8: TcxGridDBColumn object TV1Column8: TcxGridDBColumn
Caption = #21512#21516#26085#26399 Caption = #21512#21516#26085#26399
DataBinding.FieldName = 'ConDate' DataBinding.FieldName = 'ConDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 73
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
@ -258,6 +267,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object VC_SCSCode: TcxGridDBColumn object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -272,6 +282,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -279,6 +290,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #20135#21697#33521#25991#21517 Caption = #20135#21697#33521#25991#21517
DataBinding.FieldName = 'C_EName' DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -293,6 +305,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -300,6 +313,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -307,6 +321,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 57 Width = 57
@ -314,6 +329,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -321,6 +337,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -335,6 +352,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -348,6 +366,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -361,6 +380,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'ConQty' DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -369,6 +389,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object v1OrderUnit: TcxGridDBColumn object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'ConUnit' DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -382,6 +403,7 @@ inherited frmTradeConSel: TfrmTradeConSel
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'ConSNote' DataBinding.FieldName = 'ConSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70

8
T01贸易生产计划/U_TradeConSel.pas
View File

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxDropDownEdit, cxCheckBox, Vcl.Menus, cxPC; cxDropDownEdit, cxCheckBox, Vcl.Menus, cxPC, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmTradeConSel = class(TfrmBaseHelp) TfrmTradeConSel = class(TfrmBaseHelp)
@ -99,7 +99,7 @@ type
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
FCoType, FAuthority: string; FCoType, FAuthority,Canshu2: string;
{ Public declarations } { Public declarations }
end; end;
@ -170,6 +170,10 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.*,B.* from BS_Contract_Main A inner join BS_Contract_Sub B on A.ConMId=B.ConMId '); sql.Add('select A.*,B.* from BS_Contract_Main A inner join BS_Contract_Sub B on A.ConMId=B.ConMId ');
sql.Add(' where isnull(A.status,''0'')=''9'''); sql.Add(' where isnull(A.status,''0'')=''9''');
if Canshu2='Àíµ¥' then
begin
sql.add(' and A.Tallyer= ' + QuotedStr(Trim(DName)));
end;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin

2
T01贸易生产计划/U_TradePlanInPut.pas
View File

@ -1619,7 +1619,7 @@ begin
frmTradeConSel := TfrmTradeConSel.Create(Application); frmTradeConSel := TfrmTradeConSel.Create(Application);
with frmTradeConSel do with frmTradeConSel do
begin begin
canshu2 := self.canshu2;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
while CDS_1.locate('SSel', true, []) do while CDS_1.locate('SSel', true, []) do

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

@ -1445,7 +1445,6 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Zoom = 100 Zoom = 100
ExplicitHeight = 607
end end
object BGComposition: TEdit object BGComposition: TEdit
Tag = 2 Tag = 2

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

@ -612,7 +612,7 @@ begin
Open; Open;
end; end;
SCSHData(ADOQueryTemp, Panel4, 2); SCSHData(ADOQueryTemp, Panel4, 2);
// BGMainID.text:=ADOQueryTemp.FieldByName('MainID').AsString; BGName.text:=ADOQueryTemp.FieldByName('BGName').AsString;
BGCM.text:=ADOQueryTemp.FieldByName('CM').AsString; BGCM.text:=ADOQueryTemp.FieldByName('CM').AsString;
BGJM.text:=ADOQueryTemp.FieldByName('JM').AsString; BGJM.text:=ADOQueryTemp.FieldByName('JM').AsString;
end; end;

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

@ -149,9 +149,9 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 75
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -221,6 +221,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 87 Width = 87
@ -229,6 +230,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -245,6 +247,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -258,6 +261,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -266,6 +270,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -274,6 +279,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -281,6 +287,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -288,6 +295,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
@ -295,24 +303,28 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object v1Column11: TcxGridDBColumn object v1Column11: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968 Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'piece' DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 62 Width = 62
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327 Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 63 Width = 63
end end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968 Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'stkpiece' DataBinding.FieldName = 'stkpiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -321,6 +333,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty' DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -330,6 +343,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -343,6 +357,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -350,6 +365,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33394#21035 Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth' DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
@ -357,40 +373,47 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #25351#31034#21333#21495 Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'FromOrdNo' DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #20837#24211#20154 Caption = #20837#24211#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IoType' DataBinding.FieldName = 'IoType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
end end
@ -434,6 +457,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
Top = 232 Top = 232
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 536 Left = 536
Top = 240 Top = 240

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

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
dxScrollbarAnnotations;
type type
TfrmTradeFtyClothStkList = class(TfrmBaseList) TfrmTradeFtyClothStkList = class(TfrmBaseList)

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

@ -5,7 +5,6 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
ClientHeight = 472 ClientHeight = 472
ClientWidth = 1400 ClientWidth = 1400
Position = poDefault Position = poDefault
ExplicitLeft = -149
ExplicitWidth = 1416 ExplicitWidth = 1416
ExplicitHeight = 511 ExplicitHeight = 511
PixelsPerInch = 96 PixelsPerInch = 96
@ -166,9 +165,9 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 75
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -238,6 +237,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 87 Width = 87
@ -246,6 +246,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Tag = 2 Tag = 2
Caption = #20379#24212#21830 Caption = #20379#24212#21830
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -261,6 +262,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #23458#25143#32534#21495 Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'FromCoNo' DataBinding.FieldName = 'FromCoNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 92 Width = 92
@ -268,6 +270,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 86 Width = 86
end end
@ -275,6 +278,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -289,6 +293,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -297,6 +302,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -304,6 +310,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -311,6 +318,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
@ -318,30 +326,35 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object v1Column11: TcxGridDBColumn object v1Column11: TcxGridDBColumn
Caption = #19994#21153#21592 Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser' DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #32852#31995#26041#24335 Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'SalesPhone' DataBinding.FieldName = 'SalesPhone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 73
end end
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968 Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'piece' DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 62 Width = 62
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327 Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 63 Width = 63
end end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968 Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'stkpiece' DataBinding.FieldName = 'stkpiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -350,6 +363,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty' DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -359,6 +373,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -372,6 +387,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 69 Width = 69
@ -379,6 +395,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33394#21035 Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth' DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 72 Width = 72
@ -386,24 +403,28 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'FromOrdNo' DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 82 Width = 82
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #20837#24211#20154 Caption = #20837#24211#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 50 Width = 50
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 82 Width = 82
end end
@ -448,6 +469,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
Top = 232 Top = 232
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 536 Left = 536
Top = 240 Top = 240

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

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
dxScrollbarAnnotations;
type type
TfrmTradeGreyClothStkList = class(TfrmBaseList) TfrmTradeGreyClothStkList = class(TfrmBaseList)

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

@ -220,6 +220,7 @@ inherited frmTradeSampleClothInEdit: TfrmTradeSampleClothInEdit
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column12PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 92 Width = 92
end end
@ -317,6 +318,8 @@ inherited frmTradeSampleClothInEdit: TfrmTradeSampleClothInEdit
Caption = #25104#26412#20215 Caption = #25104#26412#20215
DataBinding.FieldName = 'CBPrice' DataBinding.FieldName = 'CBPrice'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column12PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 55 Width = 55
end end

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

@ -77,6 +77,7 @@ type
procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure BCIIDKeyPress(Sender: TObject; var Key: Char); procedure BCIIDKeyPress(Sender: TObject; var Key: Char);
procedure Tv1Column12PropertiesEditValueChanged(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveCKData(): Boolean; function SaveCKData(): Boolean;
@ -399,6 +400,43 @@ begin
end; end;
procedure TfrmTradeSampleClothInEdit.Tv1Column12PropertiesEditValueChanged(
Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FCBPrice, FCBMoney: Double; //个数，单价，金额, 预估成本
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Sub do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
FQty := Fieldbyname('Qty').AsFloat;
FCBPrice := Fieldbyname('CBPrice').AsFloat;
end;
FCBMoney := RoundFloat(FQty * FCBPrice, 2);
with CDS_Sub do
begin
Edit;
FieldByName('Qty').Value := FQty;
FieldByName('CBPrice').Value := FCBPrice;
FieldByName('CBMoney').Value := FCBMoney;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmTradeSampleClothInEdit.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTradeSampleClothInEdit.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try

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

@ -4,7 +4,6 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
Caption = #20837#24211#21015#34920 Caption = #20837#24211#21015#34920
ClientHeight = 478 ClientHeight = 478
ClientWidth = 1540 ClientWidth = 1540
ExplicitLeft = -381
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 517 ExplicitHeight = 517
PixelsPerInch = 96 PixelsPerInch = 96
@ -293,6 +292,10 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = Tv1Column11
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

3
T02贸易汇总仓库/U_TradeSampleClothOutEdit.dfm
View File

@ -84,7 +84,6 @@ inherited frmTradeSampleClothOutEdit: TfrmTradeSampleClothOutEdit
Height = 411 Height = 411
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -361,6 +360,8 @@ inherited frmTradeSampleClothOutEdit: TfrmTradeSampleClothOutEdit
Caption = #25104#26412#21333#20215 Caption = #25104#26412#21333#20215
DataBinding.FieldName = 'CBPrice' DataBinding.FieldName = 'CBPrice'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

21
T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas
View File

@ -114,14 +114,14 @@ begin
Append; Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('STKID').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('BCIOID').Value; FieldByName('STKID').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('BCIOID').Value;
FieldByName('IOType').Value := '寄样出库'; // FieldByName('IOType').Value := '寄样出库';
FieldByName('FromCoNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('FromCoNo').Value; FieldByName('FromCoNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('FromCoNo').Value;
FieldByName('FromCoName').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('FromCoName').Value; FieldByName('FromCoName').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoNo').Value; FieldByName('StkCoNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
FieldByName('StkCoName').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoName').Value; FieldByName('StkCoName').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('ToCoNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoNo').Value; // FieldByName('ToCoNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
FieldByName('ToCoName').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoName').Value; // FieldByName('ToCoName').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('C_Pack').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Pack').Value; FieldByName('C_Pack').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Pack').Value;
FieldByName('C_Code').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Code').Value; FieldByName('C_Code').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Name').Value; FieldByName('C_Name').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Name').Value;
@ -152,7 +152,7 @@ begin
FieldByName('C_Composition').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Composition').Value; FieldByName('C_Composition').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_Composition').Value;
FieldByName('C_StyleNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_StyleNo').Value; FieldByName('C_StyleNo').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('C_StyleNo').Value;
FieldByName('CBPrice').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('CBPrice').Value; FieldByName('CBPrice').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('CBPrice').Value;
FieldByName('CBMoney').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('CBMoney').Value; // FieldByName('CBMoney').Value := frmTradeSampleClothStkSel.CDS_Main.fieldbyname('CBMoney').Value;
end; end;
frmTradeSampleClothStkSel.CDS_Main.Delete; frmTradeSampleClothStkSel.CDS_Main.Delete;
end; end;
@ -359,6 +359,11 @@ begin
Application.MessageBox('出库类型不能为空!', '提示', 0); Application.MessageBox('出库类型不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('ToCoName', null, []) = True then
begin
Application.MessageBox('出到单位不能为空!', '提示', 0);
Exit;
end;
{ if CDS_Sub.Locate('CRType;LCKNO', VarArrayOf(['加工出库', Null]), [loPartialKey]) then { if CDS_Sub.Locate('CRType;LCKNO', VarArrayOf(['加工出库', Null]), [loPartialKey]) then
begin begin
Application.MessageBox('加工出库的数据流程卡号不能为空!','提示',0); Application.MessageBox('加工出库的数据流程卡号不能为空!','提示',0);
@ -394,7 +399,7 @@ begin
frmCompanySel := TfrmCompanySel.Create(Application); frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do with frmCompanySel do
begin begin
if (Self.CDS_sub.fieldbyname('IOType').AsString = '寄样出库') or (CDS_1.fieldbyname('IOType').AsString = '销售出库') then if (Self.CDS_sub.fieldbyname('IOType').AsString = '寄样出库') or (Self.CDS_Sub.fieldbyname('IOType').AsString = '销售出库') then
begin begin
FCoType := '客户'; FCoType := '客户';
end end
@ -452,7 +457,7 @@ end;
procedure TfrmTradeSampleClothOutEdit.v2Column6PropertiesEditValueChanged(Sender: TObject); procedure TfrmTradeSampleClothOutEdit.v2Column6PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
FQty, FPrice, FMoney: Double; //个数，单价，金额, 预估成本 FQty, FPrice, FCBPrice, FCBMoney, FMoney: Double; //个数，单价，金额, 预估成本
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then if Trim(mvalue) = '' then
@ -468,15 +473,17 @@ begin
Post; Post;
FQty := Fieldbyname('Qty').AsFloat; FQty := Fieldbyname('Qty').AsFloat;
FPrice := Fieldbyname('Price').AsFloat; FPrice := Fieldbyname('Price').AsFloat;
FCBPrice := Fieldbyname('CBPrice').AsFloat;
end; end;
FMoney := RoundFloat(FQty * FPrice, 2); FMoney := RoundFloat(FQty * FPrice, 2);
FCBMoney := RoundFloat(FQty * FCBPrice, 2);
with CDS_Sub do with CDS_Sub do
begin begin
Edit; Edit;
FieldByName('Qty').Value := FQty; FieldByName('Qty').Value := FQty;
FieldByName('Price').Value := FPrice; FieldByName('Price').Value := FPrice;
FieldByName('Money').Value := FMoney; FieldByName('Money').Value := FMoney;
FieldByName('CBMoney').Value := FCBMoney;
Post; Post;
end; end;

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

@ -5,6 +5,7 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
ClientHeight = 537 ClientHeight = 537
ClientWidth = 1540 ClientWidth = 1540
Position = poScreenCenter Position = poScreenCenter
ExplicitLeft = -381
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 576 ExplicitHeight = 576
PixelsPerInch = 96 PixelsPerInch = 96
@ -293,8 +294,6 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 213
ExplicitTop = 105
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -330,6 +329,14 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
end end
item item
Kind = skSum Kind = skSum
end
item
Kind = skSum
Column = Tv1Column14
end
item
Kind = skSum
Column = Tv1Column12
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False

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

@ -150,6 +150,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 71
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -204,6 +205,10 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
item item
Kind = skSum Kind = skSum
Column = v1Column9 Column = v1Column9
end
item
Kind = skSum
Column = Tv1Column10
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -440,7 +445,8 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
Left = 656 Left = 656
Top = 232 Top = 232
end end
object cxGridPopupMenu1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 536 Left = 536
Top = 240 Top = 240

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

@ -26,7 +26,7 @@ type
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DataSource1: TDataSource; DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
CDS_Main: TClientDataSet; CDS_Main: TClientDataSet;
CDS_HZ: TClientDataSet; CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
@ -124,7 +124,7 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.* '); sql.Add(' select CBMoney=ISNULL(A.CBPrice,0)*ISNULL(A.stkqty,0),A.* ');
sql.Add(' from BS_Cloth_IO A '); sql.Add(' from BS_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) '); SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');

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

@ -178,7 +178,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 80 ExplicitTop = 70
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -126,7 +126,7 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.* '); sql.Add(' select CBMoney=ISNULL(A.CBPrice,0)*ISNULL(A.stkqty,0),A.* ');
sql.Add(' from BS_Cloth_IO A '); sql.Add(' from BS_Cloth_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(STkQty,0)>0 or isnull(StkPiece,0)>0) '); SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(STkQty,0)>0 or isnull(StkPiece,0)>0) ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');

BIN
T04贸易明细仓库/TradeClothStk.identcache
View File

Binary file not shown.

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

@ -146,11 +146,10 @@
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ExplicitTop = 44
ClientRectBottom = 554 ClientRectBottom = 554
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 32 ClientRectTop = 32
@ -530,7 +529,7 @@
ParentFont = False ParentFont = False
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 1 TabOrder = 1
ExplicitTop = 59 ExplicitTop = 73
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -793,6 +792,13 @@
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object TV2Column14: TcxGridDBColumn
Caption = #33394#21495#20540
DataBinding.FieldName = 'SHNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
end
object TV2Column7: TcxGridDBColumn object TV2Column7: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
@ -1629,6 +1635,13 @@
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column17: TcxGridDBColumn
Caption = #33394#21495#20540
DataBinding.FieldName = 'SHNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'

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

@ -185,6 +185,8 @@ type
TV2Column13: TcxGridDBColumn; TV2Column13: TcxGridDBColumn;
ToolButton9: TToolButton; ToolButton9: TToolButton;
StkType: TComboBox; StkType: TComboBox;
TV2Column14: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -368,7 +370,7 @@ begin
sql.Clear; sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType'); sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType');
Sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price'); Sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price');
sql.Add(',C_Code,Saleser,C_ColorNo,ConNo,BuyConNo,FOrdNo'); 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'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,Sum(Amount) Amount'); sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,Sum(Amount) Amount');
sql.Add(' from V_Trade_Cloth_Stk A where 1=1 '); sql.Add(' from V_Trade_Cloth_Stk A where 1=1 ');
@ -384,7 +386,7 @@ begin
sql.Add(WSql); sql.Add(WSql);
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType'); sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType');
sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price'); sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price');
Sql.Add(',C_Code,Saleser,C_ColorNo,ConNo,BuyConNo,FOrdNo'); Sql.Add(',C_Code,Saleser,dbo.getNum(C_ColorNo),C_ColorNo,ConNo,BuyConNo,FOrdNo');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
@ -408,7 +410,7 @@ begin
sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
sql.Add(' from '); sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)'); sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount'); sql.Add(',COUNT(1) OVER() AS TotalCount,dbo.getNum(AA.C_ColorNo) SHNO');
sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Trade_Cloth_Stk AA where 1=1 '); sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Trade_Cloth_Stk AA where 1=1 ');
sql.Add(' and StkType=''' + trim(canshu5) + ''' '); sql.Add(' and StkType=''' + trim(canshu5) + ''' ');
if trim(FWorkshop) <> '' then if trim(FWorkshop) <> '' then

BIN
T04贸易明细仓库/testDll.identcache
View File

Binary file not shown.