📄 ststockchange.pas
字号:
unit STStockChange;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WSVoucherBrowse, DB, ActnList, Grids,WSEdit, DBGrids, QLDBGrid,
ComCtrls, ExtCtrls, ToolWin,DateUtils, ADODB, StdCtrls, Buttons, GEdit,
DBCtrls, Menus, WNADOCQuery,TypInfo, CheckLst;
type
TSTStockChangeFrom = class(TWSVoucherBrowseForm)
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
adsMaster: TADODataSet;
Panel2: TPanel;
ADOQuery: TADOQuery;
ADOQuery2: TADOQuery;
Panel3: TPanel;
Panel5: TPanel;
Button3: TButton;
TempAds: TADODataSet;
WNADOCQuery1: TWNADOCQuery;
Button1: TButton;
Panel4: TPanel;
GroupBox3: TGroupBox;
Memo1: TMemo;
Button2: TButton;
Panel6: TPanel;
Button4: TButton;
ExpSttcGroupBox: TGroupBox;
ExpSttcCheckListBox: TCheckListBox;
ExpSttcCkBxPopMenu: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
VipsetPanel: TPanel;
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Button5: TButton;
Button6: TButton;
ListGoodsDetailAct: TAction;
ListGoodsDetail: TMenuItem;
ListGoodsClassAct: TAction;
ListGoodsClass: TMenuItem;
ToolButton1: TToolButton;
procedure UpdateDBGrid;
procedure DBGridTitleClick(Column: TColumn);
procedure DBGridDblClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure adsMasterBeforeOpen(DataSet: TDataSet);
procedure ExpSttcCheckListBoxClickCheck(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure IniStockChange;
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DateTimePicker2Change(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure ListGoodsDetailActExecute(Sender: TObject);
procedure ListGoodsClassActExecute(Sender: TObject);
procedure adsMasterAfterOpen(DataSet: TDataSet);
private
{ Private declarations }
WhereStr,SelectStr :string;
public
{ Public declarations }
protected
function CreateEditForm: TWSEditForm; override;
end;
var
STStockChangeFrom: TSTStockChangeFrom;
implementation
uses CommonDM,QLDBFlt;
{$R *.dfm}
function TSTStockChangeFrom.CreateEditForm: TWSEditForm;
begin
// Result := TSLEdClearBillAForm.Create(Self);
end;
procedure TSTStockChangeFrom.UpdateDBGrid;
var I: Integer;
begin
with DBGrid do
begin
FooterRowCount := 0;
Columns[0].Footer.ValueType := fvtStaticText;
Columns[0].Footer.Value := '合计:';
Columns[0].Footer.Alignment := taCenter;
Columns[0].Title.Alignment:= taCenter;
for I := 0 to Columns.Count - 1 do
begin
Columns[i].Width :=120;
if Pos('日',Columns[I].FieldName)>0 then Columns[i].Width :=70;
if Pos('编',Columns[I].FieldName)>0 then Columns[i].Width :=70;
Columns[i].Title.Alignment:= taCenter;
if Columns[I].Field is TNumericField then
begin
if (not CheckBox1.Checked) and (Pos('数量',Columns[I].FieldName)>0 )
then Columns[I].Visible :=False;
if (not CheckBox2.Checked) and (Pos('单价',Columns[I].FieldName)>0 )
then Columns[I].Visible :=False;
if (not CheckBox3.Checked) and (Pos('金额',Columns[I].FieldName)>0 )
then Columns[I].Visible :=False;
SetStrProp(Fields[I], 'DisplayFormat','#,#.00') ;
if (Pos('单价',Columns[I].FieldName)<=0) then
Columns[I].Footer.ValueType := fvtSum;
end;
end;
FooterRowCount := 1;
end;
end;
procedure TSTStockChangeFrom.DBGridTitleClick(Column: TColumn);
begin
inherited;
UpdateDBGrid;
end;
procedure TSTStockChangeFrom.DBGridDblClick(Sender: TObject);
begin
// inherited;
end;
procedure TSTStockChangeFrom.Button3Click(Sender: TObject);
begin
inherited;
WNADOCQuery1.TabName :='TempExpenseList';
WNADOCQuery1.ConnectionString :=CommonData.acnConnection.ConnectionString;
WNADOCQuery1.Execute(False);
if trim(WNADOCQuery1.QueryTerm)<>'' then
WhereStr :=' where ' + trim(WNADOCQuery1.QueryTerm)
else WhereStr :=' Where 1=1 ' ;
Memo1.ReadOnly :=False;
Memo1.Clear;
if ( copy(trim(WNADOCQuery1.QueryTerm),1,3) ='not' ) or
( copy(trim(WNADOCQuery1.QueryTerm),1,3) ='NOT' )then
Memo1.Text :='全部不满足条件: '
+Copy(trim(WNADOCQuery1.ShowTerm.Text),5,length(trim(WNADOCQuery1.ShowTerm.Text))-4 )
else Memo1.Text :=Copy(trim(WNADOCQuery1.ShowTerm.Text),5,length(trim(WNADOCQuery1.ShowTerm.Text))-4);
if WhereStr =' Where 1=1 ' then
begin
Memo1.Clear;
Memo1.Text :='不限制条件!';
end;
Memo1.ReadOnly :=True;
ToolBar.Hint :=' 台帐条件: '+Memo1.Text;
if Button1.Tag=1 then Button1Click(sender)
else Button2Click(sender);
end;
procedure TSTStockChangeFrom.FormShow(Sender: TObject);
var I :integer;
begin
inherited;
//主要创建流水记录表
ADOQuery.Close;
ADOQuery.SQL.Text :=' IF EXISTS( SELECT * FROM tempdb..sysobjects '
+' WHERE ID = OBJECT_ID('+Quotedstr('tempdb..#InOutlist')
+' )) DROP TABLE #InOutlist ' ;
ADOQuery.ExecSQL;
//销售出库
ADOQuery.Close;
ADOQuery.SQL.Text :=' select b.Date [日期], '
+' b.Code [编号], '
+' b.BillMode [业务类别], '
+' d.name [经手人] , '
+' c.name [仓库名称], '
+' h.name [商品类别], '
+' e.name [商品名称], '
+' a.GoodsSpec [规格型号], '
+' g.name [标准单位], '
+' a.GoalUnitID [出入标志] ,'
+' b.Memo [备注] , '
+' a.GoalQuantity*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [标准数量], '
+' a.PriceGoal [标准单价], '
+' a.Amount*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [金额], '
+' f.name [包装单位], '
+' a.Quantity*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [包装数量], '
+' a.PriceBase [包装单价] '
+' into #InOutlist '
+' from SLGoodsOutDetail a '
+' left outer join SLGoodsOutMaster b on b.ID=a.MasterID '
+' left outer join STWarehouse c on c.ID=b.WareHouseID '
+' left outer join MSEmployee d on d.ID=b.EmployeeID '
+' left outer join DAGoods e on e.ID=a.GoodsID '
+' left outer join MSUnit f on f.ID=a.PackUnitID '
+' left outer join MSUnit g on g.ID=e.UnitID '
+' left outer join DAGoodsClass h on h.ID=e.GoodsClassID '
+' where b.RecordState<>'+ Quotedstr('删除')
+' and isnull(a.GoodsID,0) <>0 '
+' order by b.date ,b.code,a.ID ';
ADOQuery.ExecSQL;
//销售出库
ADOQuery.Close;
ADOQuery.SQL.Text :=' Update #InOutlist set [出入标志]=-1 ';
ADOQuery.ExecSQL;
//采购入库--
ADOQuery.Close;
ADOQuery.SQL.Text :=' insert into #InOutlist ( '
+' [日期], [编号],[业务类别],[经手人] , [仓库名称], '
+' [商品类别], [商品名称],[规格型号],[标准单位],'
+' [出入标志] , [备注] , '
+' [标准数量], [标准单价],[金额],[包装单位], '
+' [包装数量], [包装单价] )'
+' select b.Date [日期], '
+' b.Code [编号], '
+' b.BillMode [业务类别], '
+' d.name [经手人] , '
+' c.name [仓库名称], '
+' h.name [商品类别], '
+' e.name [商品名称], '
+' a.GoodsSpec [规格型号], '
+' g.name [标准单位], '
+' 1, b.Memo , '
+' a.GoalQuantity*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [标准数量], '
+' a.PriceGoal [标准单价], '
+' a.Amount*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [金额], '
+' f.name [包装单位], '
+' a.Quantity*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [包装数量], '
+' a.PriceBase [包装单价] '
+' from PCGoodsInDetail a '
+' left outer join PCGoodsInMaster b on b.ID=a.MasterID '
+' left outer join STWarehouse c on c.ID=b.WareHouseID '
+' left outer join MSEmployee d on d.ID=b.EmployeeID '
+' left outer join DAGoods e on e.ID=a.GoodsID '
+' left outer join MSUnit f on f.ID=a.PackUnitID '
+' left outer join MSUnit g on g.ID=e.UnitID '
+' left outer join DAGoodsClass h on h.ID=e.GoodsClassID '
+' where b.RecordState<>'+ Quotedstr('删除')
+' and isnull(a.GoodsID,0) <>0 '
+' order by b.date ,b.code,a.ID ';
ADOQuery.ExecSQL;
//采购入库--
//生产入库==
ADOQuery.Close;
ADOQuery.SQL.Text :=' insert into #InOutlist ( '
+' [日期], [编号],[业务类别],[经手人] , [仓库名称], '
+' [商品类别], [商品名称],[规格型号],[标准单位],'
+' [出入标志] , [备注] , '
+' [标准数量], [标准单价],[金额],[包装单位], '
+' [包装数量], [包装单价] )'
+' select b.Date [日期], '
+' b.Code [编号], '
+' b.BillMode [业务类别], '
+' d.name [经手人] , '
+' c.name [仓库名称], '
+' h.name [商品类别], '
+' e.name [商品名称], '
+' a.GoodsSpec [规格型号], '
+' g.name [标准单位], '
+' 1, b.Memo , '
+' a.GoalQuantity*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [标准数量], '
+' a.PriceGoal [标准单价], '
+' a.Amount*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [金额], '
+' f.name [包装单位], '
+' a.Quantity*Isnull(b.ModeDC,1)*Isnull(b.ModeC,1) [包装数量], '
+' a.PriceBase [包装单价] '
+' from YDGoodsInDetail a '
+' left outer join YDGoodsInMaster b on b.ID=a.MasterID '
+' left outer join STWarehouse c on c.ID=b.WareHouseID '
+' left outer join MSEmployee d on d.ID=b.EmployeeID '
+' left outer join DAGoods e on e.ID=a.GoodsID '
+' left outer join MSUnit f on f.ID=a.PackUnitID '
+' left outer join MSUnit g on g.ID=e.UnitID '
+' left outer join DAGoodsClass h on h.ID=e.GoodsClassID '
+' where b.RecordState<>'+ Quotedstr('删除')
+' and isnull(a.GoodsID,0) <>0 '
+' order by b.date ,b.code,a.ID ';
ADOQuery.ExecSQL;
//生产入库==
//生产出库==
ADOQuery.Close;
ADOQuery.SQL.Text :=' insert into #InOutlist ( '
+' [日期], [编号],[业务类别],[经手人] , [仓库名称], '
+' [商品类别], [商品名称],[规格型号],[标准单位],'
+' [出入标志] , [备注] , '
+' [标准数量], [标准单价],[金额],[包装单位], '
+' [包装数量], [包装单价] )'
+' select b.Date [日期], '
+' b.Code [编号], '
+' b.BillMode [业务类别], '
+' d.name [经手人] , '
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -