mrp_enter_newmrpinfo1.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 1,177 行 · 第 1/4 页

  Lbl_Condition.Caption:='系统建议下达(约定开工日-'+FormatDateTime('yyyy.mm.dd',Date())+')'
                        +'<=建议可见提前天数('+IntToStr(AdoQry_Tmp.fieldbyname('MrpParamValueN').AsInteger)+')   其它(全部)';
  AdoQry_Tmp.Close;
  Checked:=False;
  if ShowAnimate<>nil then ShowAnimate.Free;
  if ShowPanel<>nil then ShowPanel.Free;
  Application.ProcessMessages;
end;



procedure TFrm_Mrp_Enter_NewMrpInfo1.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Enter_NewMrpInfo1:=Nil;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.Act_NewExecute(Sender: TObject);
var
  I:Boolean;
  BookmArk:String;
begin
  inherited;
  If AdoQry_Main.RecordCount=0   Then
  begin
    Abort;
  end;
//  I:=False;
  BookmArk:=AdoQry_Main.BookmArk;
{  AdoQry_Main.First;
  While Not AdoQry_Main.Eof do
  begin
    If AdoQry_Main.fieldbyname('sScheck').AsInteger>0 Then
    begin
     I:=True;
     Break;
    end;
    AdoQry_Main.Next;
  end;}
  if AdoQry_Main.State=dsedit then AdoQry_Main.Post;
  Executesql(AdoQry_tmp,'select * from #tMpssInfoResult1 where sScheck=1',0);
  if AdoQry_tmp.RecordCount=0 then abort;
  try
//  If I=True Then
  begin
    Frm_Mrp_Enter_NewAutoMo:=TFrm_Mrp_Enter_NewAutoMo.Create(Application);
    Frm_Mrp_Enter_NewAutoMo.SetSysParam(UserCode,ModuleCode,MenuId,DateTimeToStr(Now));
    Frm_Mrp_Enter_Newautomo.edt_DeptCode.Text:=AdoQry_Main.fieldbyname('DeptCode').asstring;
    Frm_Mrp_Enter_Newautomo.edt_DeptName.Text:=AdoQry_Main.fieldbyname('DeptName').asstring;
    reMainqty:=AdoQry_Main.fieldbyname('reMainqty').asfloat;
    Frm_Mrp_Enter_Newautomo.flag:=1;
        Frm_Mrp_Enter_NewAutoMo.GetConnect(AdoQry_Main);
    Frm_Mrp_Enter_NewAutoMo.ShowModal;
  end;
  finally
   AdoQry_Main.BookmArk:=BookmArk;
  end;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.FormCreate(Sender: TObject);
begin
  inherited;
  activecontrol:=dbgrideh;
  ExtendCaption:=False;
  toolbutton6.Action:=act_Sum;
  
//  TlBtn_Copy.Action:=Act_Check;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.Act_CheckExecute(Sender: TObject);
var
  BookmArk:String;
begin
  inherited;
  If AdoQry_Main.RecordCount=0 Then
    Abort;
  BookmArk:=AdoQry_Main.BookmArk;
  AdoQry_Main.First;
  While Not AdoQry_Main.Eof Do
  begin
    AdoQry_Main.Edit;
    AdoQry_Main.fieldbyname('SScheck').AsInteger:=1;
    AdoQry_Main.Post;
    AdoQry_Main.Next;
  end;
  AdoQry_Main.BookmArk:=BookmArk;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.AdoQry_MainBeforeEdit(DataSet: TDataSet);
begin
  inherited;
  If AdoQry_Main.fieldbyname('SSSysInfoFlag').AsInteger<>1 Then
  begin
    DispInfo('本条建议不为"建议下达"，不能执行选定操作!',3);
    Abort;
  end;
  If AdoQry_Main.fieldbyname('tMpssReMainQty').AsFloat<=0 Then
  begin
    DispInfo('本条建议"系统建议余量"已分配完毕,不能执行选定操作!',3);
    Abort;
  end;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.AdoQry_MainBeforeInsert(
  DataSet: TDataSet);
begin
  inherited;
  Abort;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.Act_DeleteExecute(Sender: TObject);
begin
 // inherited;

end;

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

function TFrm_Mrp_Enter_NewMrpInfo1.getMrpdate: string;
var AdoQry:TAdoQuery;
begin
 AdoQry:=TAdoQuery.Create(self);
 AdoQry.EnableBCD:=False;
 try
   with AdoQry do
     begin
       Close;
       Connection:=dbconnect;
       sql.clear;
       sql.Text:=' Select MrpParamValueC    '
                    +'  From MrpParam         '
                   +'   Where MrpParamCode=''RunMrpDate''       ';
       Prepared;
       try
       open;
       Result:=fieldbyname('MrpParamValuec').asstring;
       except
       Result:='';
       end;
     end;
  finally
   AdoQry.Free;
  end;
end;



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

function TFrm_Mrp_Enter_NewMrpInfo1.getQclt(ItemCode: string): string;
begin
  try
   Executesql(AdoQry_tmp,'select Qclt from Item where ItemCode='+quotedstr(ItemCode),0);
   Result:=inttostr(AdoQry_tmp.fieldbyname('Qclt').asinteger);
  except
   Result:='9999999';
  end;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.btn_ItemClick(Sender: TObject);
begin
  inherited;
  if AdoQry_Main.RecordCount=0 then
   begin
    activecontrol:=dbgrideh;
    exit;
   end;
 Qry_Item(dbconnect,AdoQry_Main.fieldbyname('ItemCode').asstring);
 activecontrol:=dbgrideh;
{ try
   Frm_Mrp_Qry_UpRightMrp_D_Item:=TFrm_Mrp_Qry_UpRightMrp_D_Item.Create(Application);
   with   Frm_Mrp_Qry_UpRightMrp_D_Item do
     begin
      with AdoQry_tmp do
        begin
         Connection:=dbconnect;
         Close;
         sql.clear;
         sql.Add('select Item.*,t1.EmployeeName as buyerName,'
                 +' t2.EmployeeName as PlannerName,'
                 +' t3.EmployeeName as whkeeperName,'
                 +' t4.UomName   '
                 +' from Item,Employee t1,Employee t2,Employee t3,Uom t4'
                 +' where Item.EmployeeCode*=t1.EmployeeCode '
                 +'   and Item.Pla_EmployeeCode*=t2.EmployeeCode'
                 +'   and Item.wh_EmployeeCode*=t3.EmployeeCode'
                 +'   and Item.UomCode*=t4.UomCode'
                 +'   and ItemCode='+quotedstr(AdoQry_Main.fieldbyname('ItemCode').asstring));
         open;
        edit1.text:=fieldbyname('ItemCode').asstring;
        edit2.text:=fieldbyname('ItemName').asstring;
        edit3.text:=fieldbyname('UomCode').asstring;
        label4.Caption:=fieldbyname('UomName').asstring;
        edit4.text:=fieldbyname('designno').asstring;
        edit3.text:=fieldbyname('UomCode').asstring;
        combobox1.ItemIndex:=fieldbyname('ItemUsable').asinteger;
        combobox2.ItemIndex:=fieldbyname('ItemType').asinteger;
        edit5.text:=fieldbyname('EmployeeCode').asstring;
        label9.Caption:=fieldbyname('buyerName').asstring;
        edit6.text:=fieldbyname('Pla_EmployeeCode').asstring;
        label11.Caption:=fieldbyname('PlannerName').asstring;
        edit7.text:=fieldbyname('whCode').asstring;
        edit8.text:=fieldbyname('wh_EmployeeCode').asstring;
        label14.Caption:=fieldbyname('whkeeperName').asstring;
        combobox3.ItemIndex:=fieldbyname('onlydefaultwh').asinteger;
        edit9.text:=floattostr(fieldbyname('maxqty').asfloat);
        edit10.text:=floattostr(fieldbyname('minqty').asfloat);
        combobox4.ItemIndex:=fieldbyname('limitout').asinteger;
        combobox5.ItemIndex:=fieldbyname('longpurchlt').asinteger;
        edit11.text:=floattostr(fieldbyname('purchldtime').asfloat);
        edit12.text:=floattostr(fieldbyname('mnldtime').asfloat);
        combobox6.ItemIndex:=fieldbyname('PmCode').asinteger;
        combobox7.ItemIndex:=fieldbyname('Batchstrat').asinteger;
        edit13.text:=floattostr(fieldbyname('PmBatch').asfloat);
        edit14.text:=fieldbyname('DeptCode').asstring;
        edit15.text:=fieldbyname('BarCode').asstring;
        combobox8.ItemIndex:=fieldbyname('BatchCtrl').asinteger;
        edit16.text:=floattostr(fieldbyname('Capacityhours').asfloat);
        combobox9.ItemIndex:=fieldbyname('canSale').asinteger;
        edit17.text:=fieldbyname('ItemCode2').asstring;
        edit18.text:=fieldbyname('ItemshortName').asstring;
        edit19.text:=floattostr(fieldbyname('CurrentonhandInv').asfloat);
        edit20.text:=floattostr(fieldbyname('CurrentonCheckInv').asfloat);
        end;
      showmodal;
     end;
 finally
   Frm_Mrp_Qry_UpRightMrp_D_Item.Free;
   activecontrol:=dbgrideh;
 end;  }
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.btn_ite_ItemClick(Sender: TObject);
begin
  inherited;
  if AdoQry_Main.RecordCount=0 then
   begin
    activecontrol:=dbgrideh;
    exit;
   end;
  try
    if  Frm_Mrp_Qry_InformalTotalMrp_Item=nil then
      begin
        Frm_Mrp_Qry_InformalTotalMrp_Item:=TFrm_Mrp_Qry_InformalTotalMrp_Item.Create(Self);
        Frm_Mrp_Qry_InformalTotalMrp_Item.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
        Frm_Mrp_Qry_InformalTotalMrp_Item.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
        Frm_Mrp_Qry_InformalTotalMrp_Item.InitForm(dbconnect,True);