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

库位

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-17 12:17:41 +08:00
parent fd733c7c4e
commit 0907fc83e0
4 changed files with 53 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
T02贸易汇总仓库/U_TradeClothTotalStkList.dfm
View File

@ -9,8 +9,8 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poDefault Position = poDefault
Visible = True Visible = True
ExplicitWidth = 1412 ExplicitWidth = 1420
ExplicitHeight = 546 ExplicitHeight = 554
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -116,6 +116,13 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
Height = 21 Height = 21
Caption = #33394#21495 Caption = #33394#21495
end end
object Label1: TLabel
Left = 820
Top = 18
Width = 32
Height = 21
Caption = #24211#20301
end
object C_name: TcxTextEdit object C_name: TcxTextEdit
Tag = 2 Tag = 2
Left = 64 Left = 64
@ -152,6 +159,15 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
OnKeyPress = FromCoNameKeyPress OnKeyPress = FromCoNameKeyPress
Width = 150 Width = 150
end end
object StkPosition: TcxTextEdit
Tag = 2
Left = 856
Top = 14
Properties.OnChange = FromCoNamePropertiesChange
TabOrder = 4
OnKeyPress = FromCoNameKeyPress
Width = 150
end
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 461 Left = 461
@ -167,7 +183,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
Height = 426 Height = 426
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
@ -320,6 +336,13 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
Options.Editing = False Options.Editing = False
Width = 55 Width = 55
end end
object TV2Column1: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 157
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2
@ -754,7 +777,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
end end
object Tv1Column39: TcxGridDBColumn object Tv1Column39: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'stkPistion' DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 55 Width = 55

7
T02贸易汇总仓库/U_TradeClothTotalStkList.pas
View File

@ -107,6 +107,9 @@ type
CDS_2: TClientDataSet; CDS_2: TClientDataSet;
DS_2: TDataSource; DS_2: TDataSource;
ADO_1: TADOQuery; ADO_1: TADOQuery;
Label1: TLabel;
StkPosition: TcxTextEdit;
TV2Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -198,7 +201,7 @@ var
SqlStr: string; SqlStr: string;
begin begin
SqlStr := ' select A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty),QtyUnit '; SqlStr := ' select A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty),QtyUnit,StkPosition ';
SqlStr := SqlStr + ' from BS_Cloth_IO A '; SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) '; SqlStr := SqlStr + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''; SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
@ -206,7 +209,7 @@ begin
if Trim(canshu4) <> '' then if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit'; SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPosition';
// ShowMessage(SqlStr); // ShowMessage(SqlStr);
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code'); InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');

32
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Images = DataLink_TradeMarket.cxImageList_bar Images = DataLink_TradeMarket.cxImageList_bar
List = True List = True
@ -36,7 +36,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -44,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBAddClick OnClick = TBAddClick
end end
object btnCopy: TToolButton object btnCopy: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046 Caption = #22797#21046
@ -52,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = btnCopyClick OnClick = btnCopyClick
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -60,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBEditClick OnClick = TBEditClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 252 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -68,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBDelClick OnClick = TBDelClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 315 Left = 355
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -76,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object TBCK: TToolButton object TBCK: TToolButton
Left = 378 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -84,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBCKClick OnClick = TBCKClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 441 Left = 497
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -92,7 +92,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBTJ: TToolButton object TBTJ: TToolButton
Left = 504 Left = 568
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25552#20132 Caption = #25552#20132
@ -100,7 +100,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBTJClick OnClick = TBTJClick
end end
object TBTJCX: TToolButton object TBTJCX: TToolButton
Left = 567 Left = 639
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25552#20132#25764#38144 Caption = #25552#20132#25764#38144
@ -108,7 +108,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBTJCXClick OnClick = TBTJCXClick
end end
object Tchk: TToolButton object Tchk: TToolButton
Left = 654 Left = 742
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -116,7 +116,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TchkClick OnClick = TchkClick
end end
object Tnochk: TToolButton object Tnochk: TToolButton
Left = 717 Left = 813
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -124,7 +124,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TnochkClick OnClick = TnochkClick
end end
object TWC: TToolButton object TWC: TToolButton
Left = 804 Left = 916
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23436#25104 Caption = #23436#25104
@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TWCClick OnClick = TWCClick
end end
object TNowc: TToolButton object TNowc: TToolButton
Left = 867 Left = 987
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TNowcClick OnClick = TNowcClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 954 Left = 1090
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1041 Left = 1193
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

10
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -270,26 +270,26 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' ';
end; end;
1: 1:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''1'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''1'' ';
end; end;
2: 2:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' ';
end; end;
3: 3:
begin begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''10'' '; SqlStr := SqlStr + ' and isnull(A.status,''0'')=''10'' ';
end; end;
end; end;
SqlStr := SqlStr + ' and ordtype=''' + FOrdType + ''' '; SqlStr := SqlStr + ' and ordtype=''' + FOrdType + ''' ';
SqlStr := SqlStr + ' order by filltime desc'; SqlStr := SqlStr + ' order by filltime desc';
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'CoCode'); InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
end; end;
procedure TfrmTradeMarketList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); procedure TfrmTradeMarketList.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);