ucheck.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 100 行

unit ucheck;
                     
interface

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub2, dxExEdtr, ActnList, ImgList, Menus, DB, ComCtrls,
  ToolWin, ExtCtrls, Tabs, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl,
  dxGrClms, wwdbdatetimepicker, DBCtrls, StdCtrls, Mask, dxEditor, dxEdLib,
  dxDBELib;

type
  Tfmcheck = class(Tfmpub2)       
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    GridEnterPartNo: TdxDBGridButtonColumn;
    GridEnterPartNameC: TdxDBGridMaskColumn;
    GridEnterPartNameE: TdxDBGridMaskColumn;
    GridEnterModel: TdxDBGridMaskColumn;
    GridEnterColor: TdxDBGridMaskColumn;
    GridEnterUnitID: TdxDBGridMaskColumn;
    GridEnterUnitName: TdxDBGridLookupColumn;
    GridEnterQty: TdxDBGridCalcColumn;
    GridEnterFactQty: TdxDBGridCalcColumn;
    GridEnterDifferQty: TdxDBGridMaskColumn;
    GridEnterCounter: TdxDBGridMaskColumn;
    GridEnterRemark: TdxDBGridMaskColumn;
    GridSubPartNo: TdxDBGridMaskColumn;
    GridSubPartNameC: TdxDBGridMaskColumn;
    GridSubPartNameE: TdxDBGridMaskColumn;
    GridSubModel: TdxDBGridMaskColumn;
    GridSubColor: TdxDBGridMaskColumn;
    GridSubUnitID: TdxDBGridMaskColumn;
    GridSubUnitName: TdxDBGridMaskColumn;
    GridSubQty: TdxDBGridMaskColumn;
    GridSubFactQty: TdxDBGridMaskColumn;
    GridSubDifferQty: TdxDBGridMaskColumn;
    GridSubCounter: TdxDBGridMaskColumn;
    GridSubRemark: TdxDBGridMaskColumn;
    N3: TMenuItem;
    dxDBButtonEdit3: TdxDBButtonEdit;
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure dxDBButtonEdit3ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure AApproveExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmcheck: Tfmcheck;

implementation

uses udminv, SherryLib, udmbase;

{$R *.dfm}

procedure Tfmcheck.FormCreate(Sender: TObject);
begin
  inherited;
  DBEdit1.ReadOnly:=Exists(Format('select 1 from SysConfig where Note%dAutoNo=1 and ID=1',[7]));
end;

procedure Tfmcheck.N3Click(Sender: TObject);
begin
  DMINV.CCheckMas.RefreshRecord;
  if DMINV.CCheckMas.IsEmpty then Exit;
  if DMINV.CCheckMas['Status']='0' then
  if Exec_Sql(Format('LockCheck ''%s''',[DMINV.CCheckMas['CheckNo']])) then
  Info(Format('盘点单【%s】中的物料已经锁定,待批核後系统将解开锁定.',[DMINV.CCheckMas['CheckNo']]));
end;

procedure Tfmcheck.dxDBButtonEdit3ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  If LookUp(DMBase.Cemployee) then DMINV.CCheckMas['Checker']:=DMBase.Cemployee['EmployeeC'];
end;

procedure Tfmcheck.AApproveExecute(Sender: TObject);
begin
  DMINV.CCheckMas.RefreshRecord;
  if DMINV.CCheckMas['Status']='0' then
  if Exists(Format('Select 1 from InvCheckSub S join InvCurrent C on C.PartNo=S.PartNo and C.Locked=0 where S.CheckNo=''%s''',[DMINV.CCheckMas['CheckNo']])) then
  if Not Ask('当前盘点单存在未锁定物料,是否继续批核?') then abort;
  inherited;
end;

end.