mrp_enter_newmo.pas

一个MRPII系统源代码版本

                      getPmCode(dbconnect,AdoQry_Body.fieldbyname('ItemCode').asstring),
                      Trim(edt_DeptCode.text));


          If Cmbx_StandardFlag.ItemIndex=1 Then
           if ((AdoQry_Body.fieldbyname('byProduct').asinteger<>1) and (AdoQry_Body.fieldbyname('MoLinestatus').asinteger=5)) then
            begin
            Executesql(AdoQry_tmp,'delete from mnItemList where mono='+quotedstr(Trim(edt_Mono.text))+' and MoLineno='+inttostr(AdoQry_Body.fieldbyname('MoLineno').asinteger),1);
  {          If Not (AutoBuildOrder(DbConnect,Trim(Edt_MoNo.Text),Trim(AdoQry_Body.fieldbyname('ItemCode').AsString),
               IntToStr(AdoQry_Body.fieldbyname('MoLineNo').AsInteger),'Add','Mo',AdoQry_Body.fieldbyname('MoQty').AsFloat)) Then //自动产生领料单
  }
            If Not (NewAutoBuildOrder(DbConnect,Trim(Edt_MoNo.Text),
             IntToStr(AdoQry_Body.fieldbyname('MoLineNo').AsInteger),Trim(AdoQry_Body.fieldbyname('ItemCode').AsString),AdoQry_Body.fieldbyname('MoQty').AsFloat)) Then //自动产生领料单
              begin
                AdoQry_Body.EnableControls;
                Abort;
              end;
            end;
        end;
        AdoQry_Body.Next;
      end;
    end;
    saveMoLineHistory1(dbconnect,deletedMoLine,userCode,2);
    deleteMoLine;
    DbConnect.CommitTrans;
    Act_Save.Enabled:=False;
    AdoQry_Body.EnableControls;
    DispInfo('数据保存成功!',3);
  Except
   on e:exception do
    begin
    DbConnect.RollBackTrans;
    recOrderror(self,AdoQry_tmp,e.message);
    Edt_MoNo.Text:='';
      AdoQry_Body.EnableControls;
    DispInfo('保存数据失败，请重试!',1);
    Abort;
    end;
  end;
  with AdoQry_Head do
  begin
    fieldbyname('MoNo').AsString:=Trim(Edt_MoNo.Text);
    fieldbyname('DeptCode').AsString:=Trim(Edt_DeptCode.Text);
    fieldbyname('DeptName').AsString:=Lbl_DeptName.Caption;
    fieldbyname('Modate').AsDatetime:=Strtodatetime(Medt_Modate.Text);
    fieldbyname('MoReMArk').AsString:=Trim(Edt_MoRemArk.Text);
    fieldbyname('referenceno').asstring:=Trim(edt_rno.text);
    fieldbyname('SysParamCode').AsString:=Trim(Edt_SysParamCode.Text);
    fieldbyname('SysParamValuec').AsString:=Trim(Edt_SysParamValuec.Text);
    fieldbyname('StandardFlag').AsInteger:=Cmbx_StandardFlag.ItemIndex;
  end;
end;

procedure TFrm_Mrp_Enter_NewMo.Act_SaveExecute(Sender: TObject);
begin
  If AdoQry_Body.RecordCount=0 Then
  begin
    DispInfo('没有行数据，不能保存!',1);
    Abort;
  end;
  If Trim(Edt_MoNo.Text)='' then 
  begin
    DispInfo('请输入订单号！',1);
    if Edt_MoNo.CanFocus then Edt_MoNo.SetFocus;
    abort;
  end;
  inherited;
end;

procedure TFrm_Mrp_Enter_NewMo.DateCheck(Sender: TObject);
begin
  If (ActiveControl.Name='DBGridEh') Or (ActiveControl.Name='ControlBar')  Then
    Exit;
  inherited;

end;

procedure TFrm_Mrp_Enter_NewMo.Act_DeleteLineExecute(Sender: TObject);
var
  BookMArk:String;
  tmPMoLineno:integer;
  tmpno:integer;
  i : integer;
begin
  if AdoQry_Body.RecordCount=0 then exit;
  if AdoQry_Body.fieldbyname('byProduct').asinteger=1 then
     begin
      DispInfo('您不能删除副产品！',3);
      abort;
     end;
  if status<>'Add' then
  if getstatus(AdoQry_Body.fieldbyname('mono').asstring,AdoQry_Body.fieldbyname('MoLineno').asinteger)<>5 then
     begin
       DispInfo('这行生产订单行状态不是准备状态，不可删除！',3);
       abort;
     end;

  If DispInfo('确认真的要删除这行吗?',2)<>'y' Then
    Abort;
  BookMArk:=AdoQry_Body.BookmArk;
  deletebyProduct(AdoQry_Body.fieldbyname('MoLineno').asinteger);
  deletedMoLine:=deletedMoLine+','+quotedstr(AdoQry_Body.fieldbyname('mono').asstring+inttostr(AdoQry_Body.fieldbyname('MoLineno').asinteger));
  AdoQry_Body.Delete;
  If  AdoQry_Body.RecordCount>0 Then
  begin
   if status='Add' then
   begin
    BookmArk:=AdoQry_Body.BookmArk;
    i := 1;
    AdoQry_Body.First;
    While Not AdoQry_Body.Eof Do
    begin
      if AdoQry_Body.fieldbyname('byProduct').asinteger<>1 then
      tmPMoLineno:=AdoQry_Body.fieldbyname('MoLineno').asinteger;
      AdoQry_Body.Edit;
      AdoQry_Body.fieldbyname('MoLineNo').AsInteger:=i;
      if AdoQry_Body.fieldbyname('ParentMoLineno').asinteger=tmPMoLineno then
       AdoQry_Body.fieldbyname('ParentMoLineno').asinteger:=tmpno;
      AdoQry_Body.Post;
      if AdoQry_Body.fieldbyname('byProduct').asinteger<>1 then
      tmpno:=AdoQry_Body.fieldbyname('MoLineno').asinteger;
      Inc(i);
      AdoQry_Body.Next;
    end;
    AdoQry_Body.BookmArk:=BookMArk;
   end;
  end;
  act_Save.Enabled:=True;
end;

procedure TFrm_Mrp_Enter_NewMo.Edt_SysParamCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  Try
    If (Key=120) Then
      CommonHint(Sender,AdoQry_Body,'SysParamValuec','销售类型描述','SysParamCode','销售类型代码',
              'SysParam',' SubString(SysParamCode,1,8)='''+'SaleType'+'''');
  Finally
  //  Edt_SysParamValuec.Text:=Lbl_SaleType.Caption;
  end;
end;

procedure TFrm_Mrp_Enter_NewMo.Edt_SysParamCodeExit(Sender: TObject);
begin
  inherited;
 If Trim(TEdit(Sender).Text)='' Then
  begin
    DispInfo('销售类型代码不能为空!',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  With AdoQry_Tmp Do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select SysParamCode,SysParamValuec From SysParam '
            +' Where SysParamCode='''+TEdit(Sender).Text+'''');
    Open;
    If Eof Then
    begin
      DispInfo('销售类型代码错误，请重新输入',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
      Edt_SysParamValuec.Text:=fieldbyname('SysParamValuec').asstring;
  end;
end;

procedure TFrm_Mrp_Enter_NewMo.Act_PreviewExecute(Sender: TObject);
begin
  If AdoQry_Body.RecordCount=0 Then
  begin
    DispInfo('没有行数据,不能预览!',1);
    Abort;
  end;
  Frm_Mrp_Enter_Mo_P:=TFrm_Mrp_Enter_Mo_P.Create(Application);
  Frm_Mrp_Enter_Mo_P.SetDBConnect(DbConnect);
  Frm_Mrp_Enter_Mo_P.SetSysParam(UserCode,ModuleCode,MenuId,DateTimeToStr(Now));
  Frm_Mrp_Enter_Mo_P.GetHeadData(AdoQry_Body,Trim(Edt_MoNo.Text),Trim(MEdt_MoDate.Text),Trim(Edt_DeptCode.Text),Lbl_DeptName.Caption,Trim(Edt_SysParamValuec.Text),Trim(Edt_MoReMArk.Text),'Preview');
  Frm_Mrp_Enter_Mo_P:=Nil;
end;

procedure TFrm_Mrp_Enter_NewMo.Act_PrintExecute(Sender: TObject);
begin
  If AdoQry_Body.RecordCount=0 Then
  begin
    DispInfo('没有行数据,不能打印!',1);
    Abort;
  end;
  If Frm_Mrp_Enter_Mo_P<>Nil Then
  begin
    Frm_Mrp_Enter_Mo_P.QR.Destroy;
    Frm_Mrp_Enter_Mo_P.Close;
  end;
  Frm_Mrp_Enter_Mo_P:=TFrm_Mrp_Enter_Mo_P.Create(Application);
  Frm_Mrp_Enter_Mo_P.SetDBConnect(DbConnect);
  Frm_Mrp_Enter_Mo_P.SetSysParam(UserCode,ModuleCode,MenuId,DateTimeToStr(Now));
  Frm_Mrp_Enter_Mo_P.GetHeadData(AdoQry_Body,Trim(Edt_MoNo.Text),Trim(MEdt_MoDate.Text),Trim(Edt_DeptCode.Text),Lbl_DeptName.Caption,Trim(Edt_SysParamValuec.Text),Trim(Edt_MoReMArk.Text),'Print');
end;

procedure TFrm_Mrp_Enter_NewMo.FormActivate(Sender: TObject);
begin
  inherited;
  if  CheckAllTypeOrderNoSet(DbConnect,6) then
  Edt_MoNo.Enabled := False
  else If Status='Add' then Edt_MoNo.Enabled := True;
  //  Edt_MoNo.Enabled:=False;
end;

procedure TFrm_Mrp_Enter_NewMo.Edt_DeptCodeExit(Sender: TObject);
var
  SqlText:String;
begin
//  If (ActiveControl.Name='DBGridEh') Or (ActiveControl.Name='ControlBar')  Then
 //   Exit;
  If Trim(TExtEdit(Sender).Text)='' Then
  begin
    DispInfo('受单部门代码不能为空!',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  SqlText:=' Select * '
          +' From Dept '
          +' Where DeptCode='''+Trim(Edt_DeptCode.Text)+'''';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:=SqlText;
  AdoQry_Tmp.Open;
  If AdoQry_Tmp.Eof Then
  begin
    DispInfo('受单部门代码错误，请重新输入!',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  Lbl_DeptName.Caption:=AdoQry_Tmp.fieldbyname('DeptName').AsString;
  Edt_DeptName.Text:=AdoQry_Tmp.fieldbyname('DeptName').AsString;
end;

procedure TFrm_Mrp_Enter_NewMo.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
 Lbl_ItemFlag.Caption:=AdoQry_Body.fieldbyname('ItemCode').AsString+' '+AdoQry_Body.fieldbyname('ItemName').AsString;
end;

procedure TFrm_Mrp_Enter_NewMo.Act_ExcelExecute(Sender: TObject);
begin
  //inherited;
  DbGridEhToExcel(DbGridEh);
end;

procedure TFrm_Mrp_Enter_NewMo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 If AdoQry_Body.RecordCount=0 Then
   Act_Save.Enabled:=False;
  inherited;

end;

procedure TFrm_Mrp_Enter_NewMo.Act_ModifyExecute(Sender: TObject);
var Book:string;
begin
if AdoQry_Body.RecordCount=0 then exit;
try
  If (AdoQry_Body.fieldbyname('MoLineStatus').AsInteger<>5) Or
     (AdoQry_Body.fieldbyname('MoQty').AsFloat<>AdoQry_Body.fieldbyname('MoNoFinishQty').AsFloat) or (AdoQry_Body.fieldbyname('byProduct').asinteger=1) Then
      if AdoQry_Body.fieldbyname('MoLinestatus').asinteger<>6 then
   begin
     DispInfo('本条记录不可以修改',3);
     Abort;
   end;
   Book:=AdoQry_Body.BookmArk;
   Frm_Mrp_Enter_Mo_D.linestatus:=AdoQry_Body.fieldbyname('MoLinestatus').asinteger;
  inherited;
finally
 AdoQry_Body.BookmArk:=Book;
end;
end;

procedure TFrm_Mrp_Enter_NewMo.deletebyProduct(MoLineno: integer);
var tmPmArk:string;
    tmplineno:integer;
    Count:integer;
begin
   tmPmArk:=AdoQry_Body.BookmArk;
   Count:=AdoQry_Body.RecordCount;
  tmplineno:=AdoQry_Body.fieldbyname('MoLineno').asinteger;
  with AdoQry_Body do
    begin
      First;
      while Count>0  do
        begin
          if AdoQry_Body.fieldbyname('ParentMoLineno').asinteger=tmplineno then
           begin
            deletedMoLine:=deletedMoLine+','+quotedstr(AdoQry_Body.fieldbyname('mono').asstring+inttostr(AdoQry_Body.fieldbyname('MoLineno').asinteger));
            AdoQry_Body.Delete;
            end;
          next;
          Count:=Count-1;
        end;
    end;
  AdoQry_Body.BookmArk:=tmPmArk;
end;

function  TFrm_Mrp_Enter_NewMo.getstatus(mono:string;MoLineno:integer):integer;
 begin
   Result:=999;
   Executesql(AdoQry_tmp,'select MoLinestatus from MoLine where mono='+quotedstr(mono)+' and MoLineno='+inttostr(MoLineno),0);
   Result:=AdoQry_tmp.fieldbyname('MoLinestatus').asinteger;
 end;

procedure TFrm_Mrp_Enter_NewMo.deleteMoLine;
 begin
  saveoperation;
  Executesql(AdoQry_tmp,'delete from mnItemList where mono+convert(varchAr,MoLineno) in ('+deletedMoLine+')',1);
  Executesql(AdoQry_tmp,'delete from MoLine where mono+convert(varchAr,MoLineno) in ('+deletedMoLine+')',1);
 end;

procedure TFrm_Mrp_Enter_NewMo.saveoperation;
var Qry:TAdoQuery;
begin
 Qry:=TAdoQuery.Create(self);
 Qry.Connection:=dbconnect;
 Executesql(Qry,'select * from MoLine where mono+convert(varchAr,MoLineno) in('+deletedMoLine+')',0);
  try
   with Qry do
    begin
      while not eof do
       begin
        operationmopo(AdoQry_tmp,
                    Qry.fieldbyname('ItemCode').asstring,
                    'mo',
                    3,
                    Trim(edt_Mono.text),
                    Qry.fieldbyname('MoLineno').asinteger,
                    5,
                    0,
                    Qry.fieldbyname('moqty').asfloat,
                    Qry.fieldbyname('MoNoFinishqty').asfloat,
                    Qry.fieldbyname('mostArtworkdate').asstring,
                    Qry.fieldbyname('MoLinedate').asstring,
                    getPmCode(dbconnect,Qry.fieldbyname('ItemCode').asstring),
                    Trim(edt_DeptCode.text));
        next;
       end;
    end;
  finally
   Qry.free;
  end;
end;

procedure TFrm_Mrp_Enter_NewMo.edt_SysParamCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  Try
      CommonHint(Sender,AdoQry_Body,'SysParamValuec','销售类型描述','SysParamCode','销售类型代码',
              'SysParam',' SubString(SysParamCode,1,8)='''+'SaleType'+'''');
  Finally
 //   Edt_SysParamValuec.Text:=Lbl_SaleType.Caption;
  end;

end;

procedure TFrm_Mrp_Enter_NewMo.Act_InsertLineExecute(Sender: TObject);
var MaxLineNo : Integer;
    BookMArk : String;
begin
  Frm_Mrp_Enter_Mo_D.LineNo := AdoQry_Body.RecordCount;
  If Pos('Edit',Status)>0 then
  begin
    MaxLineNo := 0;
    BookMArk := AdoQry_Body.BookmArk;
    AdoQry_Body.DisableControls;
    AdoQry_Body.First;
    While Not  AdoQry_Body.Eof do
    begin
      If AdoQry_Body.fieldbyname('MoLineNo').AsInteger>MaxLineNo then
      MaxLineNo := AdoQry_Body.fieldbyname('MoLineNo').AsInteger;
      AdoQry_Body.Next;
    end;
    AdoQry_Body.BookmArk := BookMArk;
    AdoQry_Body.EnableControls;
    Frm_Mrp_Enter_Mo_D.LineNo := MaxLineNo;
  end;

  inherited;

end;

end.