调整
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
c73edaf684
commit
8c1ea222a7
|
|
@ -365,7 +365,15 @@ begin
|
|||
|
||||
cxDBTreeList1.Items[0].Expand(False);
|
||||
end;
|
||||
if canshu4 = '二次加工' then
|
||||
begin
|
||||
Self.cds_tree.Locate('CTName', '끓틔도갭', []);
|
||||
end
|
||||
else
|
||||
begin
|
||||
Self.cds_tree.Locate('CTName', '成品', []);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfo.InitGrid();
|
||||
|
|
|
|||
|
|
@ -580,23 +580,30 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
ButtonWidth = 99
|
||||
Caption = 'ToolBar1'
|
||||
DisabledImages = DataLink_ClothInfo.cxImageList_bar
|
||||
Images = DataLink_ClothInfo.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object ToolButton8: TToolButton
|
||||
object ToolButton13: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = #35774#20026#40664#35748
|
||||
ImageIndex = 15
|
||||
OnClick = ToolButton13Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 99
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 2
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 71
|
||||
Left = 170
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
|
|
@ -652,6 +659,15 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 117
|
||||
end
|
||||
object TV3Column1: TcxGridDBColumn
|
||||
Caption = #40664#35748
|
||||
DataBinding.FieldName = 'IsDefault'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 69
|
||||
end
|
||||
end
|
||||
object cxGridLevel3: TcxGridLevel
|
||||
GridView = TV3
|
||||
|
|
@ -993,6 +1009,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Editing = False
|
||||
OptionsView.GroupByBox = False
|
||||
object TV1Column1: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
|
|
|
|||
|
|
@ -138,6 +138,8 @@ type
|
|||
Process4: TcxButtonEdit;
|
||||
Process5: TcxButtonEdit;
|
||||
Process: TcxButtonEdit;
|
||||
ToolButton13: TToolButton;
|
||||
TV3Column1: TcxGridDBColumn;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
|
|
@ -173,6 +175,7 @@ type
|
|||
procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure CostPriceClick(Sender: TObject);
|
||||
procedure ToolButton13Click(Sender: TObject);
|
||||
private
|
||||
canshu1: string;
|
||||
Fint: Integer;
|
||||
|
|
@ -1321,6 +1324,23 @@ begin
|
|||
CDS_1.EmptyDataSet;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.ToolButton13Click(Sender: TObject);
|
||||
var
|
||||
DwFlag: string;
|
||||
begin
|
||||
DwFlag := trim(CDS_3.FieldByName('CICID').AsString);
|
||||
if CDS_3.Locate('IsDefault', true, []) then
|
||||
begin
|
||||
CDS_3.edit;
|
||||
CDS_3.FieldByName('IsDefault').value := false;
|
||||
end;
|
||||
if CDS_3.Locate('CICID', DwFlag, []) then
|
||||
begin
|
||||
CDS_3.edit;
|
||||
CDS_3.FieldByName('IsDefault').value := true;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
|
||||
var
|
||||
MC_Code: string;
|
||||
|
|
@ -1372,6 +1392,21 @@ begin
|
|||
Application.MessageBox('ÇëÊäÈë¼Æ¼Ûµ¥Î»!', 'Ìáʾ', 0);
|
||||
Exit;
|
||||
end;
|
||||
if cds_3.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('헝渴흙데貫!', '瓊刻', 0);
|
||||
Exit;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if CDS_3.Locate('CICUnit', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('헝渴흙데貫!', '瓊刻', 0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
// if CDS_1.Locate('C_Color', null, []) = True then
|
||||
// begin
|
||||
|
|
|
|||
|
|
@ -71,6 +71,7 @@ uses
|
|||
U_dynamicsDll in '..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas',
|
||||
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
|
||||
U_CustomFun in '..\A00ͨÓ÷½·¨\U_CustomFun.pas',
|
||||
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas',
|
||||
U_TradeClothSplit in 'U_TradeClothSplit.pas' {frmTradeClothSplit},
|
||||
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
||||
U_TradeRRList in 'U_TradeRRList.pas' {frmTradeRRList},
|
||||
|
|
|
|||
|
|
@ -349,23 +349,20 @@
|
|||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_dynamicsDll.pas"/>
|
||||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_printPdf.pas"/>
|
||||
<DCCReference Include="..\A00通用方法\U_CustomFun.pas"/>
|
||||
<DCCReference Include="..\A00通用方法\U_ProgressUpdate.pas"/>
|
||||
<DCCReference Include="U_TradeClothSplit.pas">
|
||||
<Form>frmTradeClothSplit</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
|
||||
<DCCReference Include="U_TradeRRList.pas">
|
||||
<Form>frmTradeRRList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TradeRRInPut.pas">
|
||||
<Form>frmTradeRRInPut</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RPFun.pas"/>
|
||||
<DCCReference Include="U_InputReceiptType.pas">
|
||||
<Form>frmInputReceiptType</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
|
|
|
|||
|
|
@ -84,7 +84,7 @@ begin
|
|||
pswd := 'rightsoft@5740';
|
||||
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
Parameters1 := '管理';
|
||||
// Parameters1 := '管理';
|
||||
// Parameters2 := '贸易布匹';
|
||||
// Parameters2 := '格美门店';
|
||||
// Parameters2 := '新余';
|
||||
|
|
|
|||
|
|
@ -2,16 +2,15 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
|
|||
Left = 65
|
||||
Top = 98
|
||||
Caption = #36152#26131#24067#21305#20986#24211#21015#34920
|
||||
ClientHeight = 736
|
||||
ClientHeight = 618
|
||||
ClientWidth = 1281
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitTop = -112
|
||||
ExplicitWidth = 1297
|
||||
ExplicitHeight = 775
|
||||
ExplicitHeight = 657
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
object ToolBar1: TToolBar [0]
|
||||
|
|
@ -318,27 +317,26 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
|
|||
end
|
||||
object cxPageControl1: TcxPageControl [4]
|
||||
Left = 0
|
||||
Top = 177
|
||||
Top = 214
|
||||
Width = 1281
|
||||
Height = 559
|
||||
Height = 404
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
Properties.ActivePage = cxTabSheet1
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 5
|
||||
OnChange = cxPageControl1Change
|
||||
ClientRectBottom = 559
|
||||
ClientRectBottom = 404
|
||||
ClientRectRight = 1281
|
||||
ClientRectTop = 32
|
||||
object cxTabSheet1: TcxTabSheet
|
||||
Caption = ' '#20135#21697#27719#24635' '
|
||||
ImageIndex = 0
|
||||
ExplicitTop = 0
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1281
|
||||
Height = 527
|
||||
Height = 372
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 0
|
||||
|
|
@ -513,7 +511,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 1281
|
||||
Height = 527
|
||||
Height = 372
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 0
|
||||
|
|
@ -1070,6 +1068,75 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
|
|||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
object Panel6: TPanel [6]
|
||||
Left = 0
|
||||
Top = 177
|
||||
Width = 1281
|
||||
Height = 37
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelInner = bvLowered
|
||||
BorderStyle = bsSingle
|
||||
TabOrder = 6
|
||||
DesignSize = (
|
||||
1277
|
||||
33)
|
||||
object Label31: TLabel
|
||||
Left = 14
|
||||
Top = 7
|
||||
Width = 96
|
||||
Height = 21
|
||||
Alignment = taCenter
|
||||
Anchors = [akLeft]
|
||||
Caption = #27599#39029#35760#24405#26465#25968
|
||||
Layout = tlCenter
|
||||
ExplicitTop = 8
|
||||
end
|
||||
object LBCPAP: TLabel
|
||||
Left = 478
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Alignment = taCenter
|
||||
Anchors = [akLeft]
|
||||
AutoSize = False
|
||||
Caption = #24403#21069#39029'/'#24635#39029#25968
|
||||
Layout = tlCenter
|
||||
ExplicitTop = 7
|
||||
end
|
||||
object BTLP: TButton
|
||||
Left = 391
|
||||
Top = 4
|
||||
Width = 78
|
||||
Height = 27
|
||||
Anchors = [akLeft]
|
||||
Caption = #19978#19968#39029
|
||||
TabOrder = 0
|
||||
end
|
||||
object BTNP: TButton
|
||||
Left = 585
|
||||
Top = 3
|
||||
Width = 78
|
||||
Height = 28
|
||||
Anchors = [akLeft]
|
||||
Caption = #19979#19968#39029
|
||||
TabOrder = 1
|
||||
end
|
||||
object TCBNOR: TcxComboBox
|
||||
Tag = 2
|
||||
Left = 122
|
||||
Top = 2
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.Items.Strings = (
|
||||
'500'
|
||||
'1000'
|
||||
'5000'
|
||||
'10000')
|
||||
TabOrder = 2
|
||||
Text = '500'
|
||||
Width = 94
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
Left = 504
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ uses
|
|||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
|
||||
dxBarBuiltInMenu, U_BaseList, Clipbrd, dxScrollbarAnnotations, FrameDateSel,
|
||||
cxContainer, cxMaskEdit, cxProgressBar, cxButtons, dxSkinsCore,
|
||||
dxSkinsDefaultPainters;
|
||||
dxSkinsDefaultPainters, System.Math;
|
||||
|
||||
type
|
||||
TfrmTradeClothTotalOutList = class(TfrmBaseList)
|
||||
|
|
@ -141,6 +141,12 @@ type
|
|||
Tv1Column36: TcxGridDBColumn;
|
||||
ToolButton5: TToolButton;
|
||||
cxTabControl1: TcxTabControl;
|
||||
Panel6: TPanel;
|
||||
Label31: TLabel;
|
||||
LBCPAP: TLabel;
|
||||
BTLP: TButton;
|
||||
BTNP: TButton;
|
||||
TCBNOR: TcxComboBox;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -175,9 +181,11 @@ type
|
|||
procedure TV2DblClick(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
canshu1, FSTKName, canshu3, canshu4: string;
|
||||
procedure InitGrid1();
|
||||
procedure InitGrid2();
|
||||
procedure InitGrid(MWSql: string);
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
|
|
@ -189,10 +197,108 @@ type
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_TradeTotallClothOutinput, U_AttachmentUpload,
|
||||
U_DataLink, U_RTFun, U_TradeTotallClothOutinput, U_AttachmentUpload,U_ProgressUpdate,
|
||||
U_LabelPrint, U_PrintLabFun, U_dynamicsDll, U_printPdf, U_InputReceiptType;
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmTradeClothTotalOutList.InitGrid(MWSql: string);
|
||||
var
|
||||
WSql, WDateSql: string;
|
||||
SqlStr: string;
|
||||
begin
|
||||
|
||||
WDateSql := ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date));
|
||||
WDateSql := WDateSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1));
|
||||
WDateSql := WDateSql + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
|
||||
if Trim(canshu4) <> '' then
|
||||
WDateSql := WDateSql + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
WDateSql := WDateSql + ' and Status=''0'' ';
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
WDateSql := WDateSql + ' and Status=''1'' ';
|
||||
end;
|
||||
end;
|
||||
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
0:
|
||||
begin
|
||||
// WSql := CommonFiltersByContainer(dxLayoutControl_query, ' {"EquTag": 1,"LikeTag": 2,"Fields": "OrderNo|FtyPCId|FtyPCId|C_Color|C_Code|C_Name"}');
|
||||
if trim(WSql) <> '' then
|
||||
begin
|
||||
WSql := WDateSql + ' and ' + trim(WSql);
|
||||
end
|
||||
else
|
||||
WSql := WDateSql;
|
||||
|
||||
SqlStr := ' select A.ReceiptType,A.BCIONO,A.ToCoName,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit ';
|
||||
SqlStr := SqlStr + ' ,Pieceint=sum(CEILING(A.Piece)),Qty=sum(Qty),QtyUnit ';
|
||||
SqlStr := SqlStr + ' from BS_Cloth_IO A ';
|
||||
SqlStr := SqlStr + ' where 1=1 ' + (WSql);
|
||||
SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
|
||||
SqlStr := SqlStr + ' group by A.ReceiptType,A.BCIONO,A.ToCoName,C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
|
||||
// ShowMessage(SqlStr);
|
||||
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
if MWSql = '' then
|
||||
WSql := CommonFiltersByContainer(panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}')
|
||||
else
|
||||
WSql := MWSql;
|
||||
|
||||
if trim(WSql) <> '' then
|
||||
begin
|
||||
WSql := WDateSql + ' and ' + trim(WSql);
|
||||
end
|
||||
else
|
||||
WSql := WDateSql;
|
||||
|
||||
SqlStr := 'exec P_Trade_Totaloutlist_Get_Page ';
|
||||
SqlStr := SqlStr + ' @pageIndex=' + inttostr(CurrentPage);
|
||||
SqlStr := SqlStr + ' ,@pageSize=' + inttostr(RecordsNumber);
|
||||
SqlStr := SqlStr + ' ,@criteria= ' + quotedstr(WSql);
|
||||
// showmessage(SqlStr);
|
||||
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
|
||||
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.InitGrid1();
|
||||
var
|
||||
SqlStr, WSqlStr: string;
|
||||
begin
|
||||
|
||||
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
|
||||
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ';
|
||||
SqlStr := SqlStr + ' from BS_Cloth_IO A';
|
||||
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
|
||||
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
|
||||
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
|
||||
SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
SqlStr := SqlStr + ' and Status=''0'' ';
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
SqlStr := SqlStr + ' and Status=''1'' ';
|
||||
end;
|
||||
end;
|
||||
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
|
||||
if TRIM(WSqlStr) <> '' then
|
||||
SqlStr := SqlStr + ' and ' + WSqlStr;
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.InitGrid2();
|
||||
var
|
||||
|
|
@ -243,38 +349,6 @@ begin
|
|||
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.InitGrid1();
|
||||
var
|
||||
SqlStr, WSqlStr: string;
|
||||
begin
|
||||
|
||||
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
|
||||
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ';
|
||||
|
||||
SqlStr := SqlStr + ' from BS_Cloth_IO A';
|
||||
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
|
||||
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
|
||||
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
|
||||
SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
SqlStr := SqlStr + ' and Status=''0'' ';
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
SqlStr := SqlStr + ' and Status=''1'' ';
|
||||
end;
|
||||
end;
|
||||
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
|
||||
if TRIM(WSqlStr) <> '' then
|
||||
SqlStr := SqlStr + ' and ' + WSqlStr;
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
|
|
@ -283,7 +357,9 @@ end;
|
|||
procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
ToolBar1.SetFocus;
|
||||
InitGrid2();
|
||||
// InitGrid2();
|
||||
CurrentPage := 1;
|
||||
InitGrid('');
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.ToolButton1Click(Sender: TObject);
|
||||
|
|
@ -452,12 +528,15 @@ var
|
|||
mSql: string;
|
||||
begin
|
||||
inherited;
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
mSql := 'select distinct name=A.IOType from BS_Cloth_IO A where IOFlag=''出库'' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''' ';
|
||||
SInitTcxComBoxBySql(ADOQueryTemp, IOType, false, mSql);
|
||||
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, '贸易汇总仓库');
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, '贸易汇总仓库');
|
||||
InitGrid2();
|
||||
InitGrid('');
|
||||
// InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalOutList.TBExportClick(Sender: TObject);
|
||||
|
|
@ -513,7 +592,7 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalOutList.TBDelClick(Sender: TObject);
|
||||
var
|
||||
MBCIOID, MBCIONO: string;
|
||||
MBCIOID, MBCIONO, MTMSId: string;
|
||||
begin
|
||||
if cxPageControl1.ActivePageIndex <> 1 then
|
||||
Exit;
|
||||
|
|
@ -530,6 +609,7 @@ begin
|
|||
Exit;
|
||||
MBCIOID := SelCDSKey(CDS_1, ['BCIOID'])[0];
|
||||
MBCIONO := SelCDSKey(CDS_1, ['BCIONO'])[0];
|
||||
MTMSId := SelCDSKey(CDS_1, ['TMSId'])[0];
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -583,6 +663,7 @@ begin
|
|||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
TradeMarketProgressUpdate(ADOQueryBaseCmd, MTMSId);
|
||||
InitGrid2();
|
||||
InitGrid1();
|
||||
except
|
||||
|
|
|
|||
|
|
@ -178,29 +178,33 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
|
|||
end
|
||||
object cxPageControl1: TcxPageControl [4]
|
||||
Left = 0
|
||||
Top = 89
|
||||
Top = 126
|
||||
Width = 1404
|
||||
Height = 426
|
||||
Height = 389
|
||||
Align = alClient
|
||||
TabOrder = 4
|
||||
Properties.ActivePage = cxTabSheet1
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 5
|
||||
OnChange = cxPageControl1Change
|
||||
ClientRectBottom = 426
|
||||
ExplicitTop = 89
|
||||
ExplicitHeight = 426
|
||||
ClientRectBottom = 389
|
||||
ClientRectRight = 1404
|
||||
ClientRectTop = 32
|
||||
object cxTabSheet1: TcxTabSheet
|
||||
Caption = ' '#20135#21697#27719#24635' '
|
||||
ImageIndex = 0
|
||||
ExplicitHeight = 394
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1404
|
||||
Height = 394
|
||||
Height = 357
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 394
|
||||
object TV2: TcxGridDBTableView
|
||||
OnDblClick = TV2DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -352,14 +356,16 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
|
|||
object cxTabSheet2: TcxTabSheet
|
||||
Caption = #20135#21697#26126#32454
|
||||
ImageIndex = 1
|
||||
ExplicitHeight = 394
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1404
|
||||
Height = 394
|
||||
Height = 357
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 394
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -797,6 +803,77 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
|
|||
end
|
||||
end
|
||||
end
|
||||
object Panel6: TPanel [5]
|
||||
Left = 0
|
||||
Top = 89
|
||||
Width = 1404
|
||||
Height = 37
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BevelInner = bvLowered
|
||||
BorderStyle = bsSingle
|
||||
TabOrder = 5
|
||||
ExplicitTop = 149
|
||||
ExplicitWidth = 1234
|
||||
DesignSize = (
|
||||
1400
|
||||
33)
|
||||
object Label31: TLabel
|
||||
Left = 14
|
||||
Top = 7
|
||||
Width = 96
|
||||
Height = 21
|
||||
Alignment = taCenter
|
||||
Anchors = [akLeft]
|
||||
Caption = #27599#39029#35760#24405#26465#25968
|
||||
Layout = tlCenter
|
||||
ExplicitTop = 8
|
||||
end
|
||||
object LBCPAP: TLabel
|
||||
Left = 478
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Alignment = taCenter
|
||||
Anchors = [akLeft]
|
||||
AutoSize = False
|
||||
Caption = #24403#21069#39029'/'#24635#39029#25968
|
||||
Layout = tlCenter
|
||||
ExplicitTop = 7
|
||||
end
|
||||
object BTLP: TButton
|
||||
Left = 391
|
||||
Top = 4
|
||||
Width = 78
|
||||
Height = 27
|
||||
Anchors = [akLeft]
|
||||
Caption = #19978#19968#39029
|
||||
TabOrder = 0
|
||||
end
|
||||
object BTNP: TButton
|
||||
Left = 585
|
||||
Top = 3
|
||||
Width = 78
|
||||
Height = 28
|
||||
Anchors = [akLeft]
|
||||
Caption = #19979#19968#39029
|
||||
TabOrder = 1
|
||||
end
|
||||
object TCBNOR: TcxComboBox
|
||||
Tag = 2
|
||||
Left = 122
|
||||
Top = 2
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.Items.Strings = (
|
||||
'500'
|
||||
'1000'
|
||||
'5000'
|
||||
'10000')
|
||||
TabOrder = 2
|
||||
Text = '500'
|
||||
Width = 94
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||
Left = 524
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ uses
|
|||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
|
||||
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer,
|
||||
cxProgressBar, cxButtons, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
cxPC;
|
||||
cxPC, System.Math;
|
||||
|
||||
type
|
||||
TfrmTradeClothTotalStkList = class(TfrmBaseList)
|
||||
|
|
@ -110,6 +110,12 @@ type
|
|||
Label1: TLabel;
|
||||
StkPosition: TcxTextEdit;
|
||||
TV2Column1: TcxGridDBColumn;
|
||||
Panel6: TPanel;
|
||||
Label31: TLabel;
|
||||
LBCPAP: TLabel;
|
||||
BTLP: TButton;
|
||||
BTNP: TButton;
|
||||
TCBNOR: TcxComboBox;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -128,8 +134,10 @@ type
|
|||
procedure TV2DblClick(Sender: TObject);
|
||||
procedure cxPageControl1Change(Sender: TObject);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
canshu1, FSTKName, canshu3, canshu4: string;
|
||||
procedure InitGrid();
|
||||
// procedure InitGrid();
|
||||
procedure InitGrid(MWSql: string);
|
||||
procedure InitGrid1();
|
||||
procedure InitGrid2();
|
||||
{ Private declarations }
|
||||
|
|
@ -180,17 +188,79 @@ begin
|
|||
canshu4 := Trim(self.fParameters4);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalStkList.InitGrid();
|
||||
//procedure TfrmTradeClothTotalStkList.InitGrid();
|
||||
//begin
|
||||
// case cxPageControl1.ActivePageIndex of
|
||||
// 0:
|
||||
// begin
|
||||
// InitGrid2();
|
||||
// end;
|
||||
// 1:
|
||||
// begin
|
||||
//
|
||||
// InitGrid1();
|
||||
// end;
|
||||
// end;
|
||||
//
|
||||
//end;
|
||||
procedure TfrmTradeClothTotalStkList.InitGrid(MWSql: string);
|
||||
var
|
||||
WSql, WDateSql: string;
|
||||
SqlStr: string;
|
||||
begin
|
||||
|
||||
WDateSql := ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
|
||||
if Trim(canshu4) <> '' then
|
||||
WDateSql := WDateSql + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
case cxPageControl1.ActivePageIndex of
|
||||
0:
|
||||
begin
|
||||
InitGrid2();
|
||||
// WSql := CommonFiltersByContainer(dxLayoutControl_query, ' {"EquTag": 1,"LikeTag": 2,"Fields": "OrderNo|FtyPCId|FtyPCId|C_Color|C_Code|C_Name"}');
|
||||
|
||||
if trim(WSql) <> '' then
|
||||
begin
|
||||
WSql := WDateSql + ' and ' + trim(WSql);
|
||||
end
|
||||
else
|
||||
WSql := WDateSql;
|
||||
|
||||
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 + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
|
||||
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
|
||||
|
||||
if Trim(canshu4) <> '' then
|
||||
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
|
||||
|
||||
SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPosition';
|
||||
|
||||
// ShowMessage(SqlStr);
|
||||
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
|
||||
|
||||
end;
|
||||
|
||||
1:
|
||||
begin
|
||||
if MWSql = '' then
|
||||
WSql := CommonFiltersByContainer(panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}')
|
||||
else
|
||||
WSql := MWSql;
|
||||
|
||||
InitGrid1();
|
||||
if trim(WSql) <> '' then
|
||||
begin
|
||||
WSql := WDateSql + ' and ' + trim(WSql);
|
||||
end
|
||||
else
|
||||
WSql := WDateSql;
|
||||
|
||||
SqlStr := 'exec P_Trade_Totalstk_Get_Page ';
|
||||
SqlStr := SqlStr + ' @pageIndex=' + inttostr(CurrentPage);
|
||||
SqlStr := SqlStr + ' ,@pageSize=' + inttostr(RecordsNumber);
|
||||
SqlStr := SqlStr + ' ,@criteria= ' + quotedstr(WSql);
|
||||
showmessage(SqlStr);
|
||||
InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
|
||||
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -239,7 +309,8 @@ end;
|
|||
|
||||
procedure TfrmTradeClothTotalStkList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid2();
|
||||
InitGrid('');
|
||||
// InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeClothTotalStkList.TBCloseClick(Sender: TObject);
|
||||
|
|
@ -251,7 +322,8 @@ end;
|
|||
procedure TfrmTradeClothTotalStkList.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
|
||||
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
|
||||
canshu4 := Trim(self.fParameters4);
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@ uses
|
|||
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
|
||||
U_LabelMapSet in '..\A00ͨÓô°Ìå\U_LabelMapSet.pas' {frmLabelMapSet},
|
||||
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
|
||||
U_MachRollMain in 'U_MachRollMain.pas' {frmMachRollMain},
|
||||
U_MachRollMarket in 'U_MachRollMarket.pas' {frmMachRollMarket},
|
||||
U_frameBads in 'U_frameBads.pas' {frameBads: TFrame},
|
||||
U_frameParam in 'U_frameParam.pas' {FrameParam: TFrame},
|
||||
U_ParamSet in 'U_ParamSet.pas' {frmParamSet},
|
||||
|
|
|
|||
|
|
@ -221,8 +221,8 @@
|
|||
<FormType>dfm</FormType>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_MachRollMain.pas">
|
||||
<Form>frmMachRollMain</Form>
|
||||
<DCCReference Include="U_MachRollMarket.pas">
|
||||
<Form>frmMachRollMarket</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_frameBads.pas">
|
||||
|
|
|
|||
|
|
@ -17,7 +17,7 @@ implementation
|
|||
uses
|
||||
U_DataLink, U_globalVar, U_iniParam, U_TradeMachInsp, U_ProductJYHZList,
|
||||
U_DeviceJkTest, U_TradeClothInspList, U_MachRollMain, U_TradePack,
|
||||
U_DjdDjClList, U_TradeClothTotalCXJYOutList;
|
||||
U_DjdDjClList, U_TradeClothTotalCXJYOutList,U_MachRollMarket,U_MachRollMain_M;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -166,6 +166,17 @@ begin
|
|||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
11: //»ų́¼ìÑé
|
||||
begin
|
||||
with TfrmMachRollMain_M.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
// FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
121: //布匹打包
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -643,7 +643,7 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 96
|
||||
Width = 65
|
||||
end
|
||||
object TV2Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
|
|
@ -651,7 +651,7 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 72
|
||||
Width = 58
|
||||
end
|
||||
object TV2Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
|
|
@ -659,7 +659,7 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 93
|
||||
Width = 85
|
||||
end
|
||||
object TV2Column2: TcxGridDBColumn
|
||||
Caption = #33394#24067#21517#31216
|
||||
|
|
@ -682,7 +682,7 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
Properties.ReadOnly = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 79
|
||||
Width = 64
|
||||
end
|
||||
object TV2Column5: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
|
|
@ -714,7 +714,13 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 84
|
||||
Width = 68
|
||||
end
|
||||
object TV2Column10: TcxGridDBColumn
|
||||
Caption = #24212#37197#25968#37327
|
||||
DataBinding.FieldName = 'TMSQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
Width = 76
|
||||
end
|
||||
object v1OrderUnit: TcxGridDBColumn
|
||||
Caption = #24211#23384#21333#20301
|
||||
|
|
@ -727,7 +733,19 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 110
|
||||
Width = 74
|
||||
end
|
||||
object TV2Column6: TcxGridDBColumn
|
||||
Caption = #35745#20215#21333#20301
|
||||
DataBinding.FieldName = 'TMSUnit'
|
||||
DataBinding.IsNullValueType = True
|
||||
Width = 75
|
||||
end
|
||||
object TV2Column9: TcxGridDBColumn
|
||||
Caption = #24050#37197#25968#37327
|
||||
DataBinding.FieldName = 'OutQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
Width = 79
|
||||
end
|
||||
object cxGridDBColumn7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
|
|
@ -882,6 +900,13 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
Options.Sorting = False
|
||||
Width = 112
|
||||
end
|
||||
object Tv3Column1: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'StkCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
GridView = Tv3
|
||||
|
|
@ -948,8 +973,8 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
end
|
||||
end
|
||||
object cxGroupBox_keys: TcxGroupBox [2]
|
||||
Left = 778
|
||||
Top = 61
|
||||
Left = 295
|
||||
Top = 321
|
||||
Caption = #34394#25311#38190#30424
|
||||
Style.LookAndFeel.NativeStyle = False
|
||||
StyleDisabled.LookAndFeel.NativeStyle = False
|
||||
|
|
@ -972,6 +997,7 @@ inherited frmMachRollMain: TfrmMachRollMain
|
|||
inherited dxPanel1: TdxPanel
|
||||
Width = 323
|
||||
Height = 257
|
||||
ExplicitTop = -3
|
||||
ExplicitWidth = 323
|
||||
ExplicitHeight = 257
|
||||
inherited SpeedButton1: TSpeedButton
|
||||
|
|
|
|||
|
|
@ -18,7 +18,7 @@ uses
|
|||
U_KeyBoard, cxGroupBox, cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel,
|
||||
RM_RichEdit, cxProgressBar, cxCurrencyEdit, dxSkinsCore, frxBarcode, frxRich,
|
||||
frxOLE, frxTableObject, frxExportXLSX, frxClass, frxExportBaseDialog,
|
||||
frxExportPPTX, frxDBSet, dxSkinWXI, dxSkinsDefaultPainters;
|
||||
frxExportPPTX, frxDBSet, dxSkinWXI, dxSkinsDefaultPainters, System.StrUtils;
|
||||
|
||||
type
|
||||
TfrmMachRollMain = class(TfrmBaseList)
|
||||
|
|
@ -156,6 +156,10 @@ type
|
|||
Tlog: TToolButton;
|
||||
ToolButton8: TToolButton;
|
||||
ToolButton2: TButton;
|
||||
Tv3Column1: TcxGridDBColumn;
|
||||
TV2Column6: TcxGridDBColumn;
|
||||
TV2Column9: TcxGridDBColumn;
|
||||
TV2Column10: TcxGridDBColumn;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
|
@ -181,7 +185,7 @@ type
|
|||
procedure Button1Click(Sender: TObject);
|
||||
private
|
||||
FCIID, FCIFName, FWorkshop: string;
|
||||
FBCIOID, FC_Code, FC_ColorNo, FQtyUnit, FLenUnit: string;
|
||||
FBCIOID, FC_Code, FC_ColorNo, FQtyUnit, FLenUnit, FTMSId, FTMMId: string;
|
||||
Faddwet, faddlen: double;
|
||||
FFtyPCId, FGangNo, FRulePieceNo, FCDUnit: string;
|
||||
FPieceNo: Integer;
|
||||
|
|
@ -218,7 +222,7 @@ type
|
|||
|
||||
public
|
||||
fmanage: string;
|
||||
fFlileFlag: string;
|
||||
fFlileFlag, FCKLX: string; //FCKLX 놔욋잚謹 객亮얩係쯤뵨토새데놔욋
|
||||
end;
|
||||
|
||||
var
|
||||
|
|
@ -237,10 +241,19 @@ procedure TfrmMachRollMain.InitGrid2();
|
|||
var
|
||||
SqlStr: string;
|
||||
begin
|
||||
|
||||
if FCKLX = '토새데' then
|
||||
begin
|
||||
SqlStr := ' exec P_Trade_Market_WaitOut_Market ';
|
||||
SqlStr := SqlStr + ' @TMSId =' + quotedstr(trim(FTMSId));
|
||||
end
|
||||
else
|
||||
begin
|
||||
SqlStr := ' exec P_Trade_Market_WaitOut ';
|
||||
SqlStr := SqlStr + ' @C_Code =' + quotedstr(trim(FC_Code));
|
||||
SqlStr := SqlStr + ' ,@C_ColorNo =' + quotedstr(trim(FC_ColorNo));
|
||||
end;
|
||||
|
||||
// showmessage(SqlStr);
|
||||
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', '');
|
||||
end;
|
||||
|
||||
|
|
@ -641,16 +654,35 @@ end;
|
|||
|
||||
procedure TfrmMachRollMain.InitPlan(MSubID: string);
|
||||
begin
|
||||
if leftstr(MSubID, 2) = 'JS' then
|
||||
begin
|
||||
FCKLX := '토새데';
|
||||
Button1.visible := false;
|
||||
ToolButton2.visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
FCKLX := '얩係쯤';
|
||||
Button1.visible := true;
|
||||
ToolButton2.visible := true;
|
||||
end;
|
||||
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
if FCKLX = '토새데' then
|
||||
begin
|
||||
SQL.Add('EXEC P_Trade_Insp_Get_Market @TMSId=''' + trim(MSubID) + '''');
|
||||
end
|
||||
else
|
||||
begin
|
||||
SQL.Add('EXEC P_Trade_Insp_Get_plan @BCIOID=''' + trim(MSubID) + '''');
|
||||
end;
|
||||
Open;
|
||||
|
||||
if not IsEmpty then
|
||||
begin
|
||||
|
||||
FLenUnit := trim(ADOQueryBaseTemp.fieldbyName('LenUnit').AsString);
|
||||
if FLenUnit = '' then
|
||||
begin
|
||||
|
|
@ -665,11 +697,10 @@ begin
|
|||
// fLabVolume := trim(ADOQueryBaseTemp.fieldbyName('LabVolume').AsString);
|
||||
|
||||
SetUnit(FLenUnit);
|
||||
|
||||
FCDUnit := lblLenUnit.Caption;
|
||||
|
||||
FTMSId := trim(fieldbyName('TMSId').AsString);
|
||||
FTMMId := trim(fieldbyName('TMMId').AsString);
|
||||
FBCIOID := trim(fieldbyName('BCIOID').AsString);
|
||||
|
||||
FQtyUnit := trim(fieldbyName('QtyUnit').AsString);
|
||||
OrderNo.Text := trim(fieldbyName('FromOrdNo').AsString);
|
||||
CodeName.Text := trim(fieldbyName('C_Name').AsString);
|
||||
|
|
@ -698,9 +729,6 @@ begin
|
|||
|
||||
fTareType := '';
|
||||
|
||||
// if fieldbyName('RuleYardstick').AsInteger > 0 then
|
||||
// RuleYardstick.Text := trim(fieldbyName('RuleYardstick').AsString)
|
||||
// else
|
||||
RuleYardstick.Text := '100';
|
||||
|
||||
packnote.Lines.Clear;
|
||||
|
|
@ -990,6 +1018,20 @@ var
|
|||
begin
|
||||
try
|
||||
cds_3.DisableControls;
|
||||
if FCKLX = '토새데' then
|
||||
begin
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select A.*');
|
||||
SQL.Add('from Bs_Cloth_IO A where IOType=''饋簡놔욋'' and TMSId=''' + trim(FTMSId) + '''');
|
||||
SQL.Add('order by filltime desc');
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -999,6 +1041,8 @@ begin
|
|||
SQL.Add('order by filltime desc');
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
SCreateCDS(ADOQueryMain, cds_3);
|
||||
SInitCDSData(ADOQueryMain, cds_3);
|
||||
|
||||
|
|
@ -1195,7 +1239,30 @@ begin
|
|||
MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
|
||||
MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger);
|
||||
end;
|
||||
|
||||
if FCKLX = '토새데' then
|
||||
begin
|
||||
with ADOQueryBaseCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
Sql.Add('exec P_BS_Cloth_Out_Distribution_KC ');
|
||||
Sql.Add(' @GrossWeight=' + quotedstr(Trim(FloatToStr(MGrossWeight))));
|
||||
Sql.Add(' ,@Tare=' + quotedstr(Trim(FloatToStr(MTare))));
|
||||
Sql.Add(' ,@NetWeight=' + quotedstr(Trim(FloatToStr(MNetWeight))));
|
||||
Sql.Add(' ,@Meter=' + quotedstr(Trim(FloatToStr(MMeter))));
|
||||
Sql.Add(' ,@Yardage=' + quotedstr(Trim(FloatToStr(MYardage))));
|
||||
Sql.Add(' ,@QtyUnit=' + quotedstr(Trim(lblLenUnit.caption)));
|
||||
Sql.Add(' ,@StkID=' + quotedstr(Trim(FBCIOID)));
|
||||
Sql.Add(' ,@TMSId =' + quotedstr(FTMSId));
|
||||
Sql.Add(' ,@TMMId =' + quotedstr(FTMSId));
|
||||
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
||||
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
||||
// ShowMessage(sql.Text);
|
||||
open;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOQueryBaseCmd do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -1213,6 +1280,7 @@ begin
|
|||
// ShowMessage(sql.Text);
|
||||
open;
|
||||
end;
|
||||
end;
|
||||
|
||||
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
|
||||
begin
|
||||
|
|
|
|||
1334
T03贸易布匹检验/U_MachRollMain_M.dfm
Normal file
1334
T03贸易布匹检验/U_MachRollMain_M.dfm
Normal file
File diff suppressed because it is too large
Load Diff
1389
T03贸易布匹检验/U_MachRollMain_M.pas
Normal file
1389
T03贸易布匹检验/U_MachRollMain_M.pas
Normal file
File diff suppressed because it is too large
Load Diff
1331
T03贸易布匹检验/U_MachRollMarket.dfm
Normal file
1331
T03贸易布匹检验/U_MachRollMarket.dfm
Normal file
File diff suppressed because it is too large
Load Diff
1388
T03贸易布匹检验/U_MachRollMarket.pas
Normal file
1388
T03贸易布匹检验/U_MachRollMarket.pas
Normal file
File diff suppressed because it is too large
Load Diff
|
|
@ -237,7 +237,6 @@
|
|||
<DCCReference Include="U_TradeMarketQtyInPut.pas"/>
|
||||
<DCCReference Include="..\T02贸易汇总仓库\U_ItemizedListQtyInPut.pas">
|
||||
<Form>frmItemizedListQtyInPut</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
|
|
|
|||
|
|
@ -15,7 +15,8 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList;
|
||||
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,
|
||||
U_TradeMarketList_JD;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -76,7 +77,7 @@ begin
|
|||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
// DParameters1:='高权限';
|
||||
//Parameters1 := '管理';
|
||||
Parameters1 := '²éѯ';
|
||||
// Parameters1 := '²éѯ';
|
||||
// Parameters2 := '梭织';
|
||||
// Parameters4 := '新余';
|
||||
DCode := 'ADMIN';
|
||||
|
|
@ -141,6 +142,18 @@ begin
|
|||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
112: //´ó»õµ¥
|
||||
begin
|
||||
with TfrmTradeMarketList_JD.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
FOrdType := 'Õý³£µ¥';
|
||||
FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
// 112: //剪样单
|
||||
// begin
|
||||
|
|
|
|||
|
|
@ -9,6 +9,8 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
Position = poMainFormCenter
|
||||
WindowState = wsMaximized
|
||||
OnClose = FormClose
|
||||
ExplicitLeft = -391
|
||||
ExplicitTop = -123
|
||||
ExplicitWidth = 1937
|
||||
ExplicitHeight = 775
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -417,7 +419,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
object Tv1Column19: TcxGridDBColumn
|
||||
Tag = 2
|
||||
Caption = #20986#24211#25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.FieldName = 'OutQty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
|
|
@ -437,6 +439,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
|
|||
Align = alRight
|
||||
Caption = 'Panel4'
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
object Panel5: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
|
|||
|
|
@ -1478,7 +1478,6 @@ begin
|
|||
// 检查是否双击了 Qty 列（通过列名判断）
|
||||
if AColumn.Name = 'Tv1Column19' then
|
||||
begin
|
||||
|
||||
if not CDS_1.IsEmpty then
|
||||
begin
|
||||
// 获取当前行的相关ID
|
||||
|
|
|
|||
|
|
@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
ButtonWidth = 107
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
|
|
@ -36,7 +36,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TBAdd: TToolButton
|
||||
Left = 71
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
|
|
@ -44,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBAddClick
|
||||
end
|
||||
object btnCopy: TToolButton
|
||||
Left = 142
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22797#21046
|
||||
|
|
@ -52,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = btnCopyClick
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
Left = 213
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
|
|
@ -60,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBEditClick
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
Left = 284
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
|
|
@ -68,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBDelClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 355
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
|
|
@ -76,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBPrintClick
|
||||
end
|
||||
object TBCK: TToolButton
|
||||
Left = 426
|
||||
Left = 378
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475
|
||||
|
|
@ -84,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBCKClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 497
|
||||
Left = 441
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #38468#20214
|
||||
|
|
@ -92,39 +92,39 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = ToolButton4Click
|
||||
end
|
||||
object TBTJ: TToolButton
|
||||
Left = 568
|
||||
Left = 504
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25552#20132
|
||||
Caption = #37197#36135#23436#25104
|
||||
ImageIndex = 12
|
||||
OnClick = TBTJClick
|
||||
end
|
||||
object TBTJCX: TToolButton
|
||||
Left = 639
|
||||
Left = 591
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#25552#20132
|
||||
Caption = #25764#38144#37197#36135#23436#25104
|
||||
ImageIndex = 11
|
||||
OnClick = TBTJCXClick
|
||||
end
|
||||
object TWC: TToolButton
|
||||
Left = 742
|
||||
Left = 702
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23436#25104
|
||||
Caption = #24050#35013#36710
|
||||
ImageIndex = 12
|
||||
OnClick = TWCClick
|
||||
end
|
||||
object TNowc: TToolButton
|
||||
Left = 813
|
||||
Left = 777
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23436#25104
|
||||
Caption = #25764#38144#35013#36710
|
||||
ImageIndex = 11
|
||||
OnClick = TNowcClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 916
|
||||
Left = 864
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -132,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 1019
|
||||
Left = 951
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
|
|
@ -140,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 1090
|
||||
Left = 1014
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -148,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBCloseClick
|
||||
end
|
||||
object TBZF: TToolButton
|
||||
Left = 1161
|
||||
Left = 1077
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20316#24223
|
||||
|
|
@ -156,7 +156,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
OnClick = TBZFClick
|
||||
end
|
||||
object TBNOZF: TToolButton
|
||||
Left = 1232
|
||||
Left = 1140
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#20316#24223
|
||||
|
|
@ -499,6 +499,13 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
Options.Editing = False
|
||||
Width = 88
|
||||
end
|
||||
object Tv1Column25: TcxGridDBColumn
|
||||
Caption = #35746#21333#31867#22411
|
||||
DataBinding.FieldName = 'OrdType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -513,11 +520,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList
|
|||
TabOrder = 2
|
||||
Properties.CustomButtons.Buttons = <>
|
||||
Properties.Style = 9
|
||||
Properties.TabIndex = 3
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
' '#24453#25552#20132' '
|
||||
' '#24453#23457#26680' '
|
||||
' '#24050#23436#25104' '
|
||||
' '#26410#37197#36135' '
|
||||
' '#24050#37197#36135' '
|
||||
' '#24050#35013#36710' '
|
||||
' '#24050#22238#21333' '
|
||||
' '#24050#20316#24223' '
|
||||
' '#20840#37096' ')
|
||||
OnChange = cxTabControl1Change
|
||||
|
|
|
|||
|
|
@ -102,6 +102,7 @@ type
|
|||
Tv1Column24: TcxGridDBColumn;
|
||||
TBZF: TToolButton;
|
||||
TBNOZF: TToolButton;
|
||||
Tv1Column25: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -281,20 +282,24 @@ begin
|
|||
SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName));
|
||||
|
||||
SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4));
|
||||
case cxTabControl1.TabIndex of
|
||||
case cxTabControl1.TabIndex of // 1未配货，2已配货，9已装车 10已回单
|
||||
0:
|
||||
begin
|
||||
SqlStr := SqlStr + ' , @Status=''0'' '; //´ýÌá½»
|
||||
SqlStr := SqlStr + ' , @Status=''1'' '; //待提交
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
SqlStr := SqlStr + ' , @Status=''1'' '; //´ýÉóºË
|
||||
SqlStr := SqlStr + ' , @Status=''2'' '; //待审核
|
||||
end;
|
||||
2:
|
||||
begin
|
||||
SqlStr := SqlStr + ' , @Status=''10'' '; //ÒÑÍê³É
|
||||
SqlStr := SqlStr + ' , @Status=''9'' '; //已完成
|
||||
end;
|
||||
3:
|
||||
begin
|
||||
SqlStr := SqlStr + ' , @Status=''10'' '; //已回单
|
||||
end;
|
||||
4:
|
||||
begin
|
||||
SqlStr := SqlStr + ' , @Status=''11'' '; //ÒÑ×÷·Ï
|
||||
end;
|
||||
|
|
@ -414,7 +419,7 @@ begin
|
|||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update Trade_Market_Main SET status=''10'' ');
|
||||
sql.Add('update Trade_Market_Main SET status=''1'' ');
|
||||
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
|
||||
|
||||
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||||
|
|
@ -501,10 +506,39 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmTradeMarketList.TBPrintClick(Sender: TObject);
|
||||
var
|
||||
WSql: string;
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
WSql := '';
|
||||
Order_Main.DisableControls;
|
||||
with Order_Main do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Order_Main.fieldbyname('SSel').AsBoolean then
|
||||
begin
|
||||
if WSql <> '' then
|
||||
begin
|
||||
WSql := WSql + ',' + Trim(Order_Main.fieldbyname('TMSId').AsString);
|
||||
end
|
||||
else
|
||||
begin
|
||||
WSql := Trim(Order_Main.fieldbyname('TMSId').AsString);
|
||||
end;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Order_Main.Locate('SSel', True, []);
|
||||
Order_Main.EnableControls;
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
|
|
@ -513,7 +547,7 @@ begin
|
|||
FLMType := 'TradePlanPrintxy'
|
||||
else
|
||||
FLMType := 'TradePlanPrint';
|
||||
FFiltration1 := Trim(Order_Main.fieldbyname('TMMId').AsString);
|
||||
FFiltration1 := Trim(WSql);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// Self.InitGrid();
|
||||
|
|
@ -859,7 +893,7 @@ begin
|
|||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update Trade_Market_Main SET status=''10'' ');
|
||||
sql.Add('update Trade_Market_Main SET status=''9'' ');
|
||||
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
|
||||
|
||||
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||||
|
|
@ -905,7 +939,7 @@ begin
|
|||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update Trade_Market_Main SET status=''1'' ');
|
||||
sql.Add('update Trade_Market_Main SET status=''2'' ');
|
||||
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
|
||||
|
||||
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||||
|
|
@ -960,7 +994,7 @@ begin
|
|||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update Trade_Market_Main SET status=''1'' ');
|
||||
sql.Add('update Trade_Market_Main SET status=''2'' ');
|
||||
sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
|
|
@ -1019,7 +1053,7 @@ begin
|
|||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('update Trade_Market_Main SET status=''0'' ');
|
||||
sql.Add('update Trade_Market_Main SET status=''1'' ');
|
||||
sql.Add(' where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
|
||||
sql.Add(' and isnull(status,''0'')=''1'' ');
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
|
|
|
|||
591
T05贸易门市管理/U_TradeMarketList_JD.dfm
Normal file
591
T05贸易门市管理/U_TradeMarketList_JD.dfm
Normal file
|
|
@ -0,0 +1,591 @@
|
|||
inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
|
||||
Left = 165
|
||||
Top = 13
|
||||
Caption = #22823#36135#21333
|
||||
ClientHeight = 634
|
||||
ClientWidth = 1423
|
||||
Color = clBtnFace
|
||||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitWidth = 1439
|
||||
ExplicitHeight = 673
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 21
|
||||
inherited loadProcess: TPanel
|
||||
Left = 720
|
||||
Top = 354
|
||||
ExplicitLeft = 720
|
||||
ExplicitTop = 354
|
||||
end
|
||||
inherited cxProgressBar2: TcxProgressBar
|
||||
Left = 720
|
||||
Top = 296
|
||||
ExplicitLeft = 720
|
||||
ExplicitTop = 296
|
||||
ExplicitHeight = 29
|
||||
end
|
||||
object Panel1: TPanel [2]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 784
|
||||
Height = 634
|
||||
Align = alLeft
|
||||
TabOrder = 2
|
||||
object ToolBar1: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 782
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 782
|
||||
Height = 370
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object v1Column16: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 77
|
||||
end
|
||||
object v1OrdDate: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 1
|
||||
Top = 401
|
||||
Width = 782
|
||||
Height = 232
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 407
|
||||
ExplicitHeight = 226
|
||||
object Tv2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource2
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object Tv2Column1: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column2: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column3: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
Properties.ShowTime = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column5: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.FieldName = 'C_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv2Column7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv2
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [3]
|
||||
Left = 784
|
||||
Top = 0
|
||||
Width = 639
|
||||
Height = 634
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
ExplicitLeft = 789
|
||||
ExplicitWidth = 634
|
||||
object ToolBar2: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 637
|
||||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 67
|
||||
Caption = 'ToolBar1'
|
||||
Images = DataLink_TradeMarket.cxImageList_bar
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 1
|
||||
Top = 31
|
||||
Width = 637
|
||||
Height = 364
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
object Tv3: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource3
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object Tv3Column1: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column2: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column3: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column5: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv3Column7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel2: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
object cxGrid4: TcxGrid
|
||||
Left = 1
|
||||
Top = 395
|
||||
Width = 637
|
||||
Height = 238
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 407
|
||||
ExplicitWidth = 632
|
||||
ExplicitHeight = 226
|
||||
object Tv4: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DataSource4
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
object Tv4Column1: TcxGridDBColumn
|
||||
Caption = #26159#21542#21152#24613
|
||||
DataBinding.FieldName = 'Urgent'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column2: TcxGridDBColumn
|
||||
Caption = #21333#25454#32534#21495
|
||||
DataBinding.FieldName = 'TMMNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column3: TcxGridDBColumn
|
||||
Caption = #21046#21333#26085#26399
|
||||
DataBinding.FieldName = 'TMMDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CustName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column5: TcxGridDBColumn
|
||||
Caption = #37197#36135#20154
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column6: TcxGridDBColumn
|
||||
Caption = #21046#21333#20154
|
||||
DataBinding.FieldName = 'FILLER'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv4Column7: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'OrdNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel3: TcxGridLevel
|
||||
GridView = Tv4
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 255
|
||||
Top = 314
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Left = 37
|
||||
Top = 280
|
||||
end
|
||||
object cxgrdpmn1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 220
|
||||
Top = 284
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
Parameters = <>
|
||||
Left = 568
|
||||
Top = 240
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 292
|
||||
Top = 128
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 320
|
||||
Top = 224
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 468
|
||||
Top = 112
|
||||
end
|
||||
object Order_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 156
|
||||
Top = 144
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = CDS_2
|
||||
Left = 152
|
||||
Top = 476
|
||||
end
|
||||
object ADOQueryImage: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
EnableBCD = False
|
||||
Parameters = <>
|
||||
Left = 316
|
||||
Top = 283
|
||||
end
|
||||
object DSImage: TDataSource
|
||||
DataSet = ADOQueryImage
|
||||
Left = 256
|
||||
Top = 192
|
||||
end
|
||||
object IdFTP1: TIdFTP
|
||||
ConnectTimeout = 0
|
||||
NATKeepAlive.UseKeepAlive = False
|
||||
NATKeepAlive.IdleTimeMS = 0
|
||||
NATKeepAlive.IntervalMS = 0
|
||||
ProxySettings.ProxyType = fpcmNone
|
||||
ProxySettings.Port = 0
|
||||
ReadTimeout = 0
|
||||
Left = 36
|
||||
Top = 170
|
||||
end
|
||||
object PopupMenu2: TPopupMenu
|
||||
Left = 532
|
||||
Top = 636
|
||||
object N3: TMenuItem
|
||||
Caption = #20840#36873
|
||||
end
|
||||
object N4: TMenuItem
|
||||
Caption = #20840#24323
|
||||
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 = 252
|
||||
Top = 240
|
||||
end
|
||||
object GPM_3: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 188
|
||||
Top = 236
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 524
|
||||
Top = 96
|
||||
end
|
||||
object DataSource3: TDataSource
|
||||
DataSet = CDS_3
|
||||
Left = 932
|
||||
Top = 176
|
||||
end
|
||||
object CDS_2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 228
|
||||
Top = 464
|
||||
end
|
||||
object DataSource4: TDataSource
|
||||
DataSet = CDS_4
|
||||
Left = 940
|
||||
Top = 472
|
||||
end
|
||||
object CDS_4: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 996
|
||||
Top = 464
|
||||
end
|
||||
object CDS_3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 1012
|
||||
Top = 216
|
||||
end
|
||||
object ADO_1: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 452
|
||||
Top = 176
|
||||
end
|
||||
object ADO_2: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 308
|
||||
Top = 464
|
||||
end
|
||||
object ADO_3: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 884
|
||||
Top = 120
|
||||
end
|
||||
object ADO_4: TADOQuery
|
||||
Connection = DataLink_TradeMarket.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 860
|
||||
Top = 464
|
||||
end
|
||||
end
|
||||
214
T05贸易门市管理/U_TradeMarketList_JD.pas
Normal file
214
T05贸易门市管理/U_TradeMarketList_JD.pas
Normal file
|
|
@ -0,0 +1,214 @@
|
|||
unit U_TradeMarketList_JD;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
||||
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
||||
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
||||
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
|
||||
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
|
||||
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
|
||||
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
|
||||
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
|
||||
dxSkinsDefaultPainters;
|
||||
|
||||
type
|
||||
TfrmTradeMarketList_JD = class(TfrmBaseList)
|
||||
cxgrdpmn1: TcxGridPopupMenu;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
Order_Main: TClientDataSet;
|
||||
DataSource2: TDataSource;
|
||||
ADOQueryImage: TADOQuery;
|
||||
DSImage: TDataSource;
|
||||
IdFTP1: TIdFTP;
|
||||
PopupMenu2: TPopupMenu;
|
||||
N3: TMenuItem;
|
||||
N4: TMenuItem;
|
||||
cxgrdpmn2: TcxGridPopupMenu;
|
||||
CDS_WXTS: TClientDataSet;
|
||||
N2: TMenuItem;
|
||||
GPM_3: TcxGridPopupMenu;
|
||||
Panel1: TPanel;
|
||||
ToolBar1: TToolBar;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column16: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
v1OrdDate: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
Panel2: TPanel;
|
||||
ToolBar2: TToolBar;
|
||||
cxGrid3: TcxGrid;
|
||||
Tv3: TcxGridDBTableView;
|
||||
cxGridLevel2: TcxGridLevel;
|
||||
cxGrid4: TcxGrid;
|
||||
Tv4: TcxGridDBTableView;
|
||||
cxGridLevel3: TcxGridLevel;
|
||||
CDS_1: TClientDataSet;
|
||||
DataSource3: TDataSource;
|
||||
CDS_2: TClientDataSet;
|
||||
DataSource4: TDataSource;
|
||||
CDS_4: TClientDataSet;
|
||||
CDS_3: TClientDataSet;
|
||||
Tv2Column1: TcxGridDBColumn;
|
||||
Tv2Column2: TcxGridDBColumn;
|
||||
Tv2Column3: TcxGridDBColumn;
|
||||
Tv2Column4: TcxGridDBColumn;
|
||||
Tv2Column5: TcxGridDBColumn;
|
||||
Tv2Column6: TcxGridDBColumn;
|
||||
Tv2Column7: TcxGridDBColumn;
|
||||
Tv3Column1: TcxGridDBColumn;
|
||||
Tv3Column2: TcxGridDBColumn;
|
||||
Tv3Column3: TcxGridDBColumn;
|
||||
Tv3Column4: TcxGridDBColumn;
|
||||
Tv3Column5: TcxGridDBColumn;
|
||||
Tv3Column6: TcxGridDBColumn;
|
||||
Tv4Column1: TcxGridDBColumn;
|
||||
Tv4Column2: TcxGridDBColumn;
|
||||
Tv4Column3: TcxGridDBColumn;
|
||||
Tv4Column4: TcxGridDBColumn;
|
||||
Tv4Column5: TcxGridDBColumn;
|
||||
Tv4Column6: TcxGridDBColumn;
|
||||
Tv4Column7: TcxGridDBColumn;
|
||||
Tv3Column7: TcxGridDBColumn;
|
||||
ADO_1: TADOQuery;
|
||||
ADO_2: TADOQuery;
|
||||
ADO_3: TADOQuery;
|
||||
ADO_4: TADOQuery;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
procedure InitGrid();
|
||||
procedure InitGrid1();
|
||||
procedure InitGrid2();
|
||||
procedure InitGrid3();
|
||||
procedure InitGrid4();
|
||||
// procedure InitForm();
|
||||
|
||||
{ Private declarations }
|
||||
public
|
||||
canshu1, canshu2, canshu4, FOrdType: string;
|
||||
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmTradeMarketList_JD: TfrmTradeMarketList_JD;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
|
||||
U_TradeMarketInPut;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTradeMarketList_JD.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JD.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid();
|
||||
// InitForm();
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JD.InitGrid();
|
||||
begin
|
||||
with ADO_1 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_1, CDS_1);
|
||||
SInitCDSData(ADO_1, CDS_1);
|
||||
SCreateCDS(ADO_1, CDS_2);
|
||||
SInitCDSData(ADO_1, CDS_2);
|
||||
SCreateCDS(ADO_1, CDS_3);
|
||||
SInitCDSData(ADO_1, CDS_3);
|
||||
SCreateCDS(ADO_1, CDS_4);
|
||||
SInitCDSData(ADO_1, CDS_4);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JD.InitGrid1();
|
||||
begin
|
||||
with ADO_1 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_1, CDS_1);
|
||||
SInitCDSData(ADO_1, CDS_1);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JD.InitGrid2();
|
||||
begin
|
||||
with ADO_2 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_2, CDS_2);
|
||||
SInitCDSData(ADO_2, CDS_2);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JD.InitGrid3();
|
||||
begin
|
||||
with ADO_3 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_3, CDS_3);
|
||||
SInitCDSData(ADO_3, CDS_3);
|
||||
end;
|
||||
|
||||
procedure TfrmTradeMarketList_JD.InitGrid4();
|
||||
begin
|
||||
with ADO_4 do
|
||||
begin
|
||||
Close;
|
||||
sql.clear;
|
||||
sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as Urgent,* from Trade_Market_Main A inner join Trade_Market_Sub B on B.TMMId=A.TMMId ');
|
||||
sql.add('where 1=1');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADO_4, CDS_4);
|
||||
SInitCDSData(ADO_4, CDS_4);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -48,6 +48,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
|
|||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 16
|
||||
Visible = False
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object btnAdd: TToolButton
|
||||
|
|
@ -56,6 +57,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
|
|||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
ImageIndex = 2
|
||||
Visible = False
|
||||
OnClick = btnAddClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
|
|
@ -81,6 +83,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
|
|||
Height = 41
|
||||
Align = alTop
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
object Label9: TLabel
|
||||
Left = 33
|
||||
Top = 7
|
||||
|
|
@ -129,7 +132,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
|
|||
Width = 1079
|
||||
Height = 603
|
||||
Align = alClient
|
||||
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
|
||||
Caption = #26126#32454#20449#24687
|
||||
TabOrder = 2
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 2
|
||||
|
|
@ -138,6 +141,8 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
|
|||
Height = 578
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 22
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = Tv1DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -189,6 +194,13 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
|
|||
Options.Sorting = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #20986#24211#26465#30721
|
||||
DataBinding.FieldName = 'StkID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 95
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
|
|||
|
|
@ -41,6 +41,7 @@ type
|
|||
cxGridDBColumn8: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
btnAdd: TToolButton;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FromCoNameDblClick(Sender: TObject);
|
||||
|
|
@ -241,13 +242,15 @@ begin
|
|||
inherited;
|
||||
ReadCxGrid('´ó»õµ¥', Tv1, 'óÒ×ÃÅÊйÜÀí');
|
||||
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select A.* from Trade_Market_Sub_Qty A');
|
||||
sql.Add('where TMSId=''' + Trim(PMTMSId) + '''');
|
||||
// sql.Add(' select A.* from Trade_Market_Sub_Qty A');
|
||||
// sql.Add('where A.TMSId=''' + Trim(PMTMSId) + '''');
|
||||
sql.Add(' select * from Bs_Cloth_IO A inner join Trade_Market_Sub B on A.TMMID=B.TMMId and A.TMSId=B.TMSId');
|
||||
sql.Add('where A.TMSId=''' + Trim(MTMSId) + '''');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryTemp, CDS_1);
|
||||
|
|
@ -311,8 +314,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TfrmTradeMarketQtyInPut.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user