102 lines
2.8 KiB
ObjectPascal
102 lines
2.8 KiB
ObjectPascal
unit U_DHList;
|
|
|
|
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,
|
|
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
|
cxLookAndFeelPainters, cxNavigator;
|
|
|
|
type
|
|
TfrmDHList = class(TForm)
|
|
ToolBar1: TToolBar;
|
|
TBClose: TToolButton;
|
|
cxGrid1: TcxGrid;
|
|
Tv1: TcxGridDBTableView;
|
|
cxGrid1Level1: TcxGridLevel;
|
|
ADOTemp: TADOQuery;
|
|
ADOCmd: TADOQuery;
|
|
DataSource1: TDataSource;
|
|
Order_Sub: TClientDataSet;
|
|
CDS_Type: TClientDataSet;
|
|
cxGridPopupMenu2: TcxGridPopupMenu;
|
|
Tv1Column1: TcxGridDBColumn;
|
|
Tv1Column2: TcxGridDBColumn;
|
|
Tv1Column3: TcxGridDBColumn;
|
|
procedure TBCloseClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
fuserName: string;
|
|
procedure InitData();
|
|
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
|
|
|
|
{ Private declarations }
|
|
public
|
|
FConNo, FType: string;
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmDHList: TfrmDHList;
|
|
newh: hwnd;
|
|
|
|
implementation
|
|
|
|
uses
|
|
U_DataLink, U_Fun, U_ZDYHelp, U_ZDYHelpSel, U_CPManageFMSel, U_ZdyAttachment,
|
|
U_CPManagePBsel, U_ZdyAttachGYS, U_ProductOrderListSEL, U_CPManageselct;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmDHList.TBCloseClick(Sender: TObject);
|
|
begin
|
|
WriteCxGrid(trim(self.Caption), Tv1, '到货列表');
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmDHList.InitData();
|
|
begin
|
|
//刷新产品信息
|
|
with ADOTemp do
|
|
begin
|
|
Close;
|
|
SQL.Clear;
|
|
if FType = '袍江仓库' then
|
|
begin
|
|
sql.Add('select convert(varchar(10),X.crtime,120) as crtime,sum(PiQty) as PiQty,sum(Qty) as Qty ');
|
|
sql.Add('from CK_SXPB_CR X ');
|
|
sql.Add('where X.CGConNo=''' + trim(FConNo) + ''' and ckname=''待检布'' and crflag=''入库'' and CRType=''成品采购入库'' ');
|
|
sql.Add('group by convert(varchar(10),X.crtime,120)');
|
|
end
|
|
else
|
|
begin
|
|
sql.Add('select convert(varchar(10),X.crtime,120) as crtime,sum(PiQty) as PiQty,sum(Qty) as Qty ');
|
|
sql.Add('from CK_GenDan_CR X ');
|
|
sql.Add('where X.conno=''' + trim(FConNo) + ''' and X.ckname=''坯布'' and X.crflag=''入库''');
|
|
sql.Add('group by convert(varchar(10),X.crtime,120)');
|
|
end;
|
|
Open;
|
|
end;
|
|
SCreateCDS20(ADOTemp, Order_Sub);
|
|
SInitCDSData20(ADOTemp, Order_Sub);
|
|
end;
|
|
|
|
procedure TfrmDHList.ZDYHelp(FButn: TcxButtonEdit; LType: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TfrmDHList.FormShow(Sender: TObject);
|
|
begin
|
|
readCxGrid(trim(self.Caption), Tv1, '到货列表');
|
|
InitData();
|
|
end;
|
|
|
|
end.
|
|
|