📄 mrp_enter_newclosemps.pas

📁 一个MRPII系统源代码版本
💻 PAS
字号:
unit Mrp_Enter_NewCloseMps;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Check, Menus, Db, ActnList, AdODB, Grids, DBGridEh, StdCtrls,
  ExtCtrls, ComCtrls, ToolWin, DBCtrls, ExtPrintReport, jpeg;

Type
  TFrm_Mrp_Enter_NewCloseMps = Class(TFrm_Base_Check)
    AdoQry_HeadMpsId: TBCDField;
    AdoQry_HeadMpsMonth: TStringField;
    AdoQry_HeadItemCode: TStringField;
    AdoQry_HeadMpsDATE: TDateTimeField;
    AdoQry_HeadMpsQTY: TFloatField;
    AdoQry_HeadMpsStatus: TIntegerField;
    AdoQry_HeadMpsFinishQty: TFloatField;
    AdoQry_HeadMpsOutQty: TFloatField;
    AdoQry_HeadMpsRemArk: TStringField;
    AdoQry_HeadItemName: TStringField;
    AdoQry_HeadUomName: TStringField;
    AdoQry_HeadMpsNoFinishQty: TFloatField;
    AdoQry_HeadItemFlag: TStringField;
    Label2: TLabel;
    DBText2: TDBText;
    Label3: TLabel;
    Label1: TLabel;
    DBText1: TDBText;
    DBText3: TDBText;
    AdoQry_HeadMpScheck: TIntegerField;
    AdoQry_HeadMpsBatchNo: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure Act_CheckExecute(Sender: TObject);
    procedure Act_CancelCheckExecute(Sender: TObject);
    procedure DBGridEhDblClick(Sender: TObject);
    procedure DBGridEhTitleClick(Column: TColumnEh);
    procedure FormCreate(Sender: TObject);
    procedure AdoQry_HeadBeforeInsert(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Flag:Boolean;
//    Function SaveHistory:Boolean;
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_NewCloseMps: TFrm_Mrp_Enter_NewCloseMps;

implementation

uses Sys_Global,Mrp_Global;
{$R *.DFM}

procedure TFrm_Mrp_Enter_NewCloseMps.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
var sqltext:string;
begin
  Application.ProcessMessages;
  Inherited;
  Sqltext:='Select Mps.*,Item.ItemName,Uom.UomName,MpsNoFinishQty=MpsQty-MpsFinishQty,'
                +' Item.ItemCode+'''+' '+'''+Item.ItemName As ItemFlag '
                +' into #tmPmpSclose'
                +' From Mps,Item,Uom '
  +'where  (Mps.ItemCode=Item.ItemCode'
                     +' And (MpsStatus=3 or MpsStatus=4) '
                     +' And Item.UomCode=Uom.UomCode)'
//                     +' And (Item.PmCode In (0,2,3)))';
 +' Order by MpsMonth,Mps.ItemCode,MpsDate';
 selectfromsql:='select * from #tmPmpSclose';
 Executesql(AdoQry_Head,sqltext,1);
Executesql(AdoQry_Head,'select * from #tmPmpSclose',0);
end;

procedure TFrm_Mrp_Enter_NewCloseMps.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Enter_NewCloseMps:=Nil;
end;

procedure TFrm_Mrp_Enter_NewCloseMps.Act_CheckExecute(Sender: TObject);
var
  SqlText,BookMArk:String;
  I:Integer;
begin
  inherited;
  If AdoQry_Head.RecordCount=0 Then
    Abort;
  BookMArk:=AdoQry_Head.BookmArk;
  If DispInfo('确认关闭选定的主生产计划吗？',2)='y' Then
  begin
    Dbconnect.beginTrans;
    I:=1;
    Try
      AdoQry_Head.First;
      While Not AdoQry_Head.Eof Do
        If (AdoQry_Head.fieldbyname('MpScheck').AsInteger=1) And (AdoQry_Head.fieldbyname('MpsStatus').AsInteger=3) Then
        begin
          SqlText:=' Select * From Mps Where MpsId='''+IntToStr(AdoQry_Head.fieldbyname('MpsId').AsInteger)+''''
                  +' And MpsStatus=3 ';
          AdoQry_Tmp.Close;
          AdoQry_Tmp.SQL.Text:=SqlText;
          AdoQry_Tmp.Open;
          If AdoQry_Tmp.Eof Then
          begin
            If DbConnect.InTransaction Then
              DbConnect.RollBackTrans;
            DispInfo('选定的第'+IntToStr(I)+'条主生产计划行状态已被其它用户修改，请刷新！',3);
            Abort;
          end;
//          SaveHistory;
          saveMpshistory(dbconnect,AdoQry_Head.fieldbyname('Mpsid').asinteger,userCode,5);
          SqlText:='Update Mps '
                  +' set MpsStatus=4 '
                  +' Where MpsId='''+IntToStr(AdoQry_Head.fieldbyname('MpsId').AsInteger)+''''
                  +' And MpsStatus=3 ';
          AdoQry_tmp.Close;
          AdoQry_tmp.SQL.Text:=SqlText;
          AdoQry_tmp.ExecSQL;

          operationmopo(AdoQry_tmp,
                    AdoQry_Head.fieldbyname('ItemCode').asstring,
                    'Mps',
                    3,
                    ' ',
                    0,
                    4,
                    AdoQry_Head.fieldbyname('Mpsid').asinteger,
                    AdoQry_Head.fieldbyname('Mpsqty').asfloat,
                    AdoQry_Head.fieldbyname('MpsnoFinishqty').asfloat,
                    '',
                    AdoQry_Head.fieldbyname('Mpsdate').asstring,
                    getPmCode(dbconnect,AdoQry_Head.fieldbyname('ItemCode').asstring),
                    '');

          SqlText:='Update #tmPmpSclose '
                  +' set MpsStatus=4 '
                  +' Where MpsId='''+IntToStr(AdoQry_Head.fieldbyname('MpsId').AsInteger)+''''
                  +' And MpsStatus=3 ';
          AdoQry_tmp.Close;
          AdoQry_tmp.SQL.Text:=SqlText;
          AdoQry_tmp.ExecSQL;
          AdoQry_Head.Edit;
          AdoQry_Head.fieldbyname('MpsStatus').AsInteger:=4;
          AdoQry_Head.fieldbyname('MpScheck').AsInteger:=0;
          AdoQry_Head.Post;
          I:=I+1;
          AdoQry_Head.Next;
        end
        Else
        begin
          I:=I+1;
          AdoQry_Head.Next;
        end;
      DbConnect.CommitTrans;
    Except
      If DbConnect.InTransaction Then
        DbConnect.RollBackTrans;
      DispInfo('更改数据时发生错误，数据未更改，请重试!',1);
      AdoQry_Head.BookMArk:=BookmArk;
      Abort;
    end;
  end;
  AdoQry_Head.BookMArk:=BookmArk;
  Flag:=Not Flag;
end;

procedure TFrm_Mrp_Enter_NewCloseMps.Act_CancelCheckExecute(Sender: TObject);
var
  SqlText,BookMArk:String;
  I:Integer;
begin
  inherited;
   If AdoQry_Head.RecordCount=0 Then
    Abort;
  BookMArk:=AdoQry_Head.BookmArk;
  If DispInfo('确认打开选定主生产计划吗？',2)='y' Then
  begin
    DbConnect.beginTrans;
    I:=1;
    Try
      AdoQry_Head.First;
      While Not AdoQry_Head.Eof Do
        If (AdoQry_Head.fieldbyname('MpScheck').AsInteger=1) And (AdoQry_Head.fieldbyname('MpsStatus').AsInteger=4) Then
        begin
          SqlText:=' Select * From Mps Where MpsId='''+IntToStr(AdoQry_Head.fieldbyname('MpsId').AsInteger)+''''
                    +' And MpsStatus=4';
          AdoQry_Tmp.Close;
          AdoQry_Tmp.SQL.Text:=SqlText;
          AdoQry_Tmp.Open;
          If AdoQry_Tmp.Eof Then
          begin
            If DbConnect.InTransaction Then
              DbConnect.RollBackTrans;
            DispInfo('选定的第'+IntToStr(I)+'条主生产计划行状态已被其它用户修改，请刷新！',3);
            Abort;
          end;
//          SaveHistory;
          saveMpshistory(dbconnect,AdoQry_Head.fieldbyname('Mpsid').asinteger,userCode,6);
          SqlText:='Update Mps '
                  +' set MpsStatus=3 '
                  +' Where MpsId='''+IntToStr(AdoQry_Head.fieldbyname('MpsId').AsInteger)+''''
                  +' And MpsStatus=4 ';
          AdoQry_tmp.Close;
          AdoQry_tmp.SQL.Text:=SqlText;
          AdoQry_tmp.ExecSQL;

          operationmopo(AdoQry_tmp,
                    AdoQry_Head.fieldbyname('ItemCode').asstring,
                    'Mps',
                    1,
                    ' ',
                    0,
                    3,
                    AdoQry_Head.fieldbyname('Mpsid').asinteger,
                    AdoQry_Head.fieldbyname('Mpsqty').asfloat,
                    AdoQry_Head.fieldbyname('MpsnoFinishqty').asfloat,
                    '',
                    AdoQry_Head.fieldbyname('Mpsdate').asstring,
                    getPmCode(dbconnect,AdoQry_Head.fieldbyname('ItemCode').asstring),
                    '');

          SqlText:='Update #tmPmpSclose '
                  +' set MpsStatus=3 '
                  +' Where MpsId='''+IntToStr(AdoQry_Head.fieldbyname('MpsId').AsInteger)+''''
                  +' And MpsStatus=4 ';
          AdoQry_tmp.Close;
          AdoQry_tmp.SQL.Text:=SqlText;
          AdoQry_tmp.ExecSQL;
          AdoQry_Head.Edit;
          AdoQry_Head.fieldbyname('MpsStatus').AsInteger:=3;
          AdoQry_Head.fieldbyname('MpScheck').AsInteger:=0;
          AdoQry_Head.Post;
          I:=I+1;
        end
        Else
        begin
          I:=I+1;
          AdoQry_Head.Next;
        end;
      DbConnect.CommitTrans;
    Except
      If DbConnect.InTransaction Then
        DbConnect.RollBackTrans;
      DispInfo('更改数据时发生错误，数据未更改，请重试!',1);
      AdoQry_Head.BookMArk:=BookmArk;
      Abort;
    end;
  end;
  AdoQry_Head.BookMArk:=BookmArk;
  Flag:=Not Flag;
end;

procedure TFrm_Mrp_Enter_NewCloseMps.DBGridEhDblClick(Sender: TObject);
begin
  inherited;
   If AdoQry_Head.RecordCount=0 Then
    Abort;
  If AdoQry_Head.fieldbyname('MpsStatus').AsInteger=3 then
    Act_CheckExecute(Act_Check)
  Else
    Act_CancelCheckExecute(Act_CancelCheck);
end;

procedure TFrm_Mrp_Enter_NewCloseMps.DBGridEhTitleClick(Column: TColumnEh);
var
  BookMArk:String;
begin
  inherited;
  If Trim(Column.Title.Caption)<>'标记' Then
    Abort;
  If AdoQry_Head.RecordCount=0 Then
    Abort;
  BookMArk:=AdoQry_Head.BookmArk;
  If Not Flag Then
  begin
    AdoQry_Head.First;
    While Not AdoQry_Head.Eof Do
    begin
      AdoQry_Head.Edit;
      AdoQry_Head.fieldbyname('MpScheck').AsInteger:=1;
      AdoQry_Head.Post;
      AdoQry_Head.Next;
    end;
  end
  Else
  begin
    AdoQry_Head.First;
    While Not AdoQry_Head.Eof Do
    begin
      AdoQry_Head.Edit;
      AdoQry_Head.fieldbyname('MpScheck').AsInteger:=0;
      AdoQry_Head.Post;
      AdoQry_Head.Next;
    end;
  end;
  AdoQry_Head.BookmArk:=BookMArk;
  Flag:=Not Flag;
end;

procedure TFrm_Mrp_Enter_NewCloseMps.FormCreate(Sender: TObject);
begin
  inherited;
  Flag:=False;
end;

procedure TFrm_Mrp_Enter_NewCloseMps.AdoQry_HeadBeforeInsert(
  DataSet: TDataSet);
begin
  inherited;
  Abort;
end;

procedure TFrm_Mrp_Enter_NewCloseMps.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
try
Executesql(AdoQry_tmp,'drop table #tmPmpSclose',1);
except
end;
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -