mrp_enter_passmo.pas

一个MRPII系统源代码版本

          tmPmono:=AdoQry_Head.fieldbyname('mono').asstring;
          tmPMoLineno:=AdoQry_Head.fieldbyname('MoLineno').asinteger;
          SqlText:=' Select * From MoLine '
                  +' Where MoNo='''+AdoQry_Head.fieldbyname('MoNo').AsString+''''
                  +' And MoLineNo='''+IntToStr(AdoQry_Head.fieldbyname('MoLineNo').AsInteger)+''''
                  +' And MoLineStatus=6 ';
          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;
          if AdoQry_Head.fieldbyname('Backflush').asinteger=1 then
            begin
            If DbConnect.InTransaction Then
              DbConnect.rollBackTrans;
              AdoQry_Head.Next;
              continue;
            end;
          if beenProducted(tmPmono,tmPMoLineno) then
            begin
            If DbConnect.InTransaction Then
              DbConnect.RollBackTrans;
              DispInfo('选定的第'+IntToStr(I)+'条生产订单行未结量不等于下单量，不可取消批准！',3);
            exit;
            end;

          if beendilivered(tmPmono,tmPMoLineno) then
            begin
            If DbConnect.InTransaction Then
              DbConnect.RollBackTrans;
            DispInfo('选定的第'+IntToStr(I)+'条生产订单行已生产领料，不可取消批准！',3);
            exit;
            end;

          if beenbuildBill(tmPmono,tmPMoLineno) then
            begin
            If DbConnect.InTransaction Then
              DbConnect.RollBackTrans;
            if  DispInfo('选定的第'+IntToStr(I)+'条生产订单行已领料制单，是否取消批准？',2)='n' then
              exit;
            if not dbconnect.InTransaction then
              dbconnect.beginTrans;
              sqltext:='delete from InvOutBillline '
                       +' where exists(select * from InvOutBill  '
                       +'               where InvOutBillline.InvBillid=InvOutBill.InvBillid '
                       +'                 and InvOutBill.mono='+quotedstr(tmPmono)
                       +'                 and InvOutBill.MoLineno='+inttostr(tmPMoLineno)
                       +'                 and InvOutBill.InvBillwhchck=0  '
                       +'                 and InvOutBill.BillTypeCode=''0201'')';
              Executesql(AdoQry_tmp,sqltext,1);
              sqltext:='delete from InvOutBill '
                       +' where  InvOutBill.mono='+quotedstr(tmPmono)
                       +'  and InvOutBill.MoLineno='+inttostr(tmPMoLineno)
                       +'  and InvOutBill.InvBillwhchck=0 '
                       +'  and InvOutBill.BillTypeCode=''0201'' ';
              Executesql(AdoQry_tmp,sqltext,1);

            end;


          saveMoLineHistory(dbconnect,AdoQry_Head.fieldbyname('mono').asstring,AdoQry_Head.fieldbyname('MoLineno').asinteger,userCode,4);
          SqlText:=' Update MoLine '
                  +' set MoLineStatus=5'
                  +' Where MoNo='''+AdoQry_Head.fieldbyname('MoNo').AsString+''''
                  +' And  MoLineNo='''+AdoQry_Head.fieldbyname('MoLineNo').AsString+''''
                  +' And MoLineStatus=6 ';
          AdoQry_tmp.Close;
          AdoQry_tmp.SQL.Text:=SqlText;
          AdoQry_tmp.ExecSQL;
          SqlText:=' select * from MoLine '
                  +' Where MoNo='''+AdoQry_Head.fieldbyname('MoNo').AsString+''''
                  +' And  ParentMoLineNo='''+AdoQry_Head.fieldbyname('MoLineNo').AsString+''''
                  +' And MoLineStatus=6 '
                  +' and byProduct=1 ';
          AdoQry_tmp.Close;
          AdoQry_tmp.SQL.Text:=SqlText;
          AdoQry_tmp.open;
          AdoQry_tmp.First;
          while not AdoQry_tmp.Eof do
            begin
            saveMoLineHistory(dbconnect,AdoQry_tmp.fieldbyname('mono').asstring,AdoQry_tmp.fieldbyname('MoLineno').asinteger,userCode,4);
            AdoQry_tmp.Next;
            end;

          SqlText:=' Update MoLine '
                  +' set MoLineStatus=5'
                  +' Where MoNo='''+AdoQry_Head.fieldbyname('MoNo').AsString+''''
                  +' And  ParentMoLineNo='''+AdoQry_Head.fieldbyname('MoLineNo').AsString+''''
                  +' And MoLineStatus=6 '
                  +' and byProduct=1 ';
          AdoQry_tmp.Close;
          AdoQry_tmp.SQL.Text:=SqlText;
          AdoQry_tmp.ExecSQL;
          AdoQry_Head.Edit;
          AdoQry_Head.fieldbyname('MoLineStatus').AsInteger:=5;
          AdoQry_Head.fieldbyname('MoLineCheck').AsInteger:=0;
          AdoQry_Head.Post;
          I:=I+1;
        end
        Else
        begin
                  if AdoQry_Head.fieldbyname('byProduct').asinteger=1 then
             begin
               if (AdoQry_Head.fieldbyname('mono').asstring=tmPmono) and (AdoQry_Head.fieldbyname('ParentMoLineno').asinteger=tmPMoLineno) then
                 begin
                  //saveMoLineHistory(dbconnect,AdoQry_Head.fieldbyname('mono').asstring,AdoQry_Head.fieldbyname('MoLineno').asinteger,userCode,4);
                  SqlText:=' Update MoLine '
                          +' set MoLineStatus=5'
                          +' Where MoNo='''+AdoQry_Head.fieldbyname('MoNo').AsString+''''
                          +' And  MoLineNo='''+AdoQry_Head.fieldbyname('MoLineNo').AsString+''''
                          +' And MoLineStatus=6 '
                          +' and byProduct=1 ';
                     AdoQry_tmp.Close;
                     AdoQry_tmp.SQL.Text:=SqlText;
                     AdoQry_tmp.ExecSQL;
                     Tmpbeforeedit:=AdoQry_Head.BeforeEdit;
                     AdoQry_Head.BeforeEdit:=nil;
                     AdoQry_Head.Edit;
                     AdoQry_Head.fieldbyname('MoLineStatus').AsInteger:=5;
                     AdoQry_Head.fieldbyname('MoLineCheck').AsInteger:=0;
                     AdoQry_Head.Post;
                     AdoQry_Head.BeforeEdit:=Tmpbeforeedit;
                 end;
             end;
          I:=I+1;
        end;
          DbConnect.CommitTrans;
          AdoQry_Head.Next;
      end;
    Except
      If DbConnect.InTransaction Then
        DbConnect.RollBackTrans;
      DispInfo('更改数据时发生错误，数据未更改，请重试!',1);
      AdoQry_Head.BookMArk:=BookmArk;
      Abort;
    end;
  end;
  if ((AdoQry_Head.RecordCount>0) and ( AdoQry_Head.Eof)) then
  AdoQry_Head.BookMArk:=BookmArk;
  Flag:=Not Flag;
end;

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

procedure TFrm_Mrp_Enter_PassMo.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('MoLineCheck').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('MoLineCheck').AsInteger:=0;
      AdoQry_Head.Post;
      AdoQry_Head.Next;
    end;
  end;
  AdoQry_Head.BookmArk:=BookMArk;
  Flag:=Not Flag;
end;

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

procedure TFrm_Mrp_Enter_PassMo.Act_LookExecute(Sender: TObject);
begin
  inherited;
 { If AdoQry_Head.RecordCount>0 Then
    MoInitForm(DbConnect,AdoQry_Head.fieldbyname('ItemCode').AsString,
           DateTimeToStr(AdoQry_Head.fieldbyname('MoLineDate').AsDateTime));}
  If (AdoQry_Head.RecordCount>0)  Then
 if  Frm_Mrp_Enter_MoSsParent=nil then
 begin
  Frm_Mrp_Enter_MoSsParent:=TFrm_Mrp_Enter_MoSsParent.Create(Self);
  Frm_Mrp_Enter_MoSsParent.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Enter_MoSsParent.ItemCode:=AdoQry_Head.fieldbyname('ItemCode').asstring;
  tmplowPmCode:=getPmCode(AdoQry_Head.fieldbyname('ItemCode').asstring);
  Frm_Mrp_Enter_MoSsParent.Qclt:=getQclt(AdoQry_Head.fieldbyname('ItemCode').asstring);
  Frm_Mrp_Enter_MoSsParent.duedate:=datetimetostr(AdoQry_Head.fieldbyname('MoLinedate').asdatetime);
  Frm_Mrp_Enter_MoSsParent.strpath:=AdoQry_Head.fieldbyname('ItemCode').asstring+',';
  Frm_Mrp_Enter_MoSsParent.InitForm(dbconnect,True);
 end
 else  Frm_Mrp_Enter_MoSsParent.Show;

end;

procedure TFrm_Mrp_Enter_PassMo.Act_DeleteExecute(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;
      AdoQry_Head.First;
      while not AdoQry_Head.Eof do
       begin
        if (AdoQry_Head.fieldbyname('MoLineCheck').AsInteger=1) And (AdoQry_Head.fieldbyname('MoLineStatus').AsInteger<>5) then
           begin
             if dbconnect.InTransaction then
               dbconnect.RollBackTrans;
             DispInfo(AdoQry_Head.fieldbyname('mono').asstring+'--'+inttostr(AdoQry_Head.fieldbyname('MoLineno').asinteger)+'行状态不是准备状态，不可删除！',3);
             abort;
           end;
        if (AdoQry_Head.fieldbyname('MoLineCheck').AsInteger=1) And (AdoQry_Head.fieldbyname('byProduct').AsInteger=1) then
           begin
             if dbconnect.InTransaction then
               dbconnect.RollBackTrans;
             DispInfo(AdoQry_Head.fieldbyname('mono').asstring+'--'+inttostr(AdoQry_Head.fieldbyname('MoLineno').asinteger)+'行是副产品，不可删除！',3);
             abort;
           end;

        AdoQry_Head.Next;
       end;
    I:=1;
    Try
      AdoQry_Head.First;
      While Not AdoQry_Head.Eof Do
        If (AdoQry_Head.fieldbyname('MoLineCheck').AsInteger=1) And (AdoQry_Head.fieldbyname('MoLineStatus').AsInteger=5) Then
        begin
          sqltext:='select * from MoLine where MoLinestatus=5 '
                    +'and MoNo='''+AdoQry_Head.fieldbyname('MoNo').AsString+''''
                  +' And MoLineNo='''+IntToStr(AdoQry_Head.fieldbyname('MoLineNo').AsInteger)+'''';