pm_enter_newsspoinfo.pas

一个MRPII系统源代码版本

procedure TFrm_Pm_Enter_NewSsPoInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  try
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text := 'Drop Table #ss ';
    AdoQry_Tmp.ExecSQL;
  except
  end;  
  frentform:=0;
end;

procedure TFrm_Pm_Enter_NewSsPoInfo.Initselect;
begin
  SelectFromSql:=' select * from #ss';
  OrderByfields:=' ItemCode,ssdate ';
  GetData;
end;

function TFrm_Pm_Enter_NewSsPoInfo.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_Pm_Enter_NewSsPoInfo.Act_CopyExecute(Sender: TObject);
var
  I:Boolean;
  BookMArk:String;
begin
  inherited;
  frentform:=1;
  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;
     BookMArk:=AdoQry_Main.BookmArk ;
     Break;
    end;
    AdoQry_Main.Next;
  end;
  If I=True Then
  begin
    Frm_Pm_Enter_NewAutoPo1:=TFrm_Pm_Enter_NewAutoPo1.Create(Application);
    Frm_Pm_Enter_NewAutoPo1.InitForm(DbConnect,'Add',AdoQry_Main);
    Frm_Pm_Enter_NewAutoPo1.SetFormParam(PcNo,IntToStr(PmCode),'','','','');
    Frm_Pm_Enter_NewAutoPo1.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
    Frm_Pm_Enter_NewAutoPo1.ShowModal;
    Frm_Pm_Enter_NewAutoPo1.Free;
  end
  Else
  begin
    AdoQry_Main.BookmArk:=BookMArk;
    DispInfo('没有选定记录，不能执行新增操作!',3);
    Abort;
  end;
//  BookMArk:=AdoQry_Main.BookmArk ;
  AdoQry_Main.First;
  While Not AdoQry_Main.Eof Do
  begin
    If AdoQry_Main.fieldbyname('SScheck').AsInteger=1 Then
    begin
      PcNo:=AdoQry_Main.fieldbyname('PcNo').AsString;
      PmCode:=AdoQry_Main.fieldbyname('PmType').AsInteger;
      Break;
    end
    Else
      AdoQry_Main.Next;
  end;
  If AdoQry_Main.Eof Then
  begin
    PcNo:='';
    PmCode:=0;
  end;
  AdoQry_Main.BookmArk:=BookMArk;
end;

procedure TFrm_Pm_Enter_NewSsPoInfo.btn_ItemClick(Sender: TObject);
begin
  inherited;
  Qry_Item(Dbconnect,AdoQry_Main.fieldbyname('ItemCode').AsString);
  DBGridEh.SetFocus;   
end;

procedure TFrm_Pm_Enter_NewSsPoInfo.btn_VendorClick(Sender: TObject);
begin
  inherited;
  Qry_Vendor(Dbconnect,AdoQry_Main.fieldbyname('DeptVendorCode').AsString);
  DBGridEh.SetFocus;
end;

procedure TFrm_Pm_Enter_NewSsPoInfo.btn_ite_ItemClick(Sender: TObject);
begin
  inherited;
  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,LoginDate);
        Frm_Mrp_Qry_InformalTotalMrp_Item.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
        Frm_Mrp_Qry_InformalTotalMrp_Item.InitForm(dbconnect,True);
      end
      else  Frm_Mrp_Qry_InformalTotalMrp_Item.Show;
  finally
    activecontrol:=dbgrideh;
  end;
end;

procedure TFrm_Pm_Enter_NewSsPoInfo.btn_OrderClick(Sender: TObject);
begin
  inherited;
  try
  ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  if ((AdoQry_Main.fieldbyname('PmCode').asinteger=1) or (AdoQry_Main.fieldbyname('PmCode').asinteger=2)) then
   begin
//    if AdoQry_Main.fieldbyname('Orderpreqty').asfloat+AdoQry_Main.fieldbyname('Orderxdqty').asfloat=0 then
 //     exit;
    if Frm_Mrp_Qry_InformalTotalMrp_Po=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Po:=TFrm_Mrp_Qry_InformalTotalMrp_Po.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Po.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
           Frm_Mrp_Qry_InformalTotalMrp_Po.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Po.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Po.Show;
    exit;
   end;
  if AdoQry_Main.fieldbyname('PmCode').asinteger=0 then
  begin
//   if AdoQry_Main.fieldbyname('Orderpreqty').asfloat+AdoQry_Main.fieldbyname('Orderxdqty').asfloat=0 then
 //    exit;
   if Frm_Mrp_Qry_InformalTotalMrp_Mo=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Mo:=TFrm_Mrp_Qry_InformalTotalMrp_Mo.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Mo.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Mo.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
           Frm_Mrp_Qry_InformalTotalMrp_Mo.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Mo.Show;
   exit;
  end;
  if AdoQry_Main.fieldbyname('PmCode').asinteger=3 then
  begin
    if ismorethanzero('moqty','MoLine','ItemCode')=True then
    if Frm_Mrp_Qry_InformalTotalMrp_Mo=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Mo:=TFrm_Mrp_Qry_InformalTotalMrp_Mo.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Mo.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
           Frm_Mrp_Qry_InformalTotalMrp_Mo.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Mo.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Mo.Show;
   if ismorethanzero('poqty','poline','ItemCode')=True then
       if Frm_Mrp_Qry_InformalTotalMrp_Po=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Po:=TFrm_Mrp_Qry_InformalTotalMrp_Po.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Po.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
           Frm_Mrp_Qry_InformalTotalMrp_Po.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Po.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Po.Show;

 end;
 finally
 activecontrol:=dbgrideh;
 end;

end;

function TFrm_Pm_Enter_NewSsPoInfo.ismorethanzero(fieldName, tableName,
  conditionfield: string): boolean;
var AdoQry:TAdoQuery;
begin
  Result:=False;
  AdoQry:=TAdoQuery.Create(Application);
  AdoQry.EnableBCD := False;
  try
    with AdoQry do
     begin
       Close;
       Connection:=dbconnect;
       sql.clear;
       sql.Add('select sum('+fieldName+') as SumQty from '+tableName+' where '+conditionfield+'='+quotedstr(AdoQry_Main.fieldbyname('ItemCode').asstring));
       open;
       if fieldbyname('SumQty').asfloat>0 then
         Result:=True
       else Result:=False;
     end;
  finally
   AdoQry.Free;
  end;
end;

procedure TFrm_Pm_Enter_NewSsPoInfo.btn_uPMrpClick(Sender: TObject);
var AdoQry:TAdoQuery;
    sqltext:string;
begin
  inherited;
  AdoQry:=TAdoQuery.Create(self);
  AdoQry.Connection:=dbconnect;

  try
    sqltext:=' Select distinct Item.ItemCode,Item.ItemName,Item.minqty,MrpResult.PmCode,Item.Batchstrat,'+
                ' Itemflag=Item.ItemCode+'' ''+Item.ItemName,'+
               ' UomName=Uom.UomName,'+
               ' ldtime=case MrpResult.PmCode '+
               '     when 0 then Item.mnldtime '+
               '     else Item.purchldtime '+
               '   end,'+
               ' Item.Preparelt,'+
               ' Item.runlt,'+
               ' Item.Qclt,'+
               ' Item.PmBatch, '+
               ' Item.CurrentonhandInv as CurrentonhandInv, '+
               ' Assignedqty=isnull(0,0), '+
               ' Item.CurrentonCheckInv as oncheckqty '+
               //' Item.CurrentonhandInv '+
               //' into #tmpItemResult'+
               ' From Item '+
               ' Join MrpResult On Item.ItemCode=MrpResult.ItemCode and MrpResult.ordinal=1'+
               '      and MrpResult.ItemCode='+quotedstr(AdoQry_Main.fieldbyname('ItemCode').asstring)+
               //' Join #tmponhandm On Item.ItemCode=#tmponhandm.ItemCode and MrpResult.PmCode=#tmponhandm.PmCode '+
               ' left outer join Uom on Item.UomCode=Uom.UomCode ';
    Executesql(AdoQry,sqltext,0);
    if Frm_Mrp_Qry_NewUpRightMrp_D=nil then
   begin
    Frm_Mrp_Qry_NewUpRightMrp_D:=TFrm_Mrp_Qry_NewUpRightMrp_D.Create(Self);
    Frm_Mrp_Qry_NewUpRightMrp_D.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
    Frm_Mrp_Qry_NewUpRightMrp_D.ItemCode:=AdoQry.fieldbyname('ItemCode').asstring;
    Frm_Mrp_Qry_NewUpRightMrp_D.ItemName:=AdoQry.fieldbyname('ItemName').asstring;
    Frm_Mrp_Qry_NewUpRightMrp_D.Uom:=AdoQry.fieldbyname('UomName').asstring;
    Frm_Mrp_Qry_NewUpRightMrp_D.ldtime:=floattostr(AdoQry.fieldbyname('ldtime').asfloat);
    Frm_Mrp_Qry_NewUpRightMrp_D.Preparelt:=floattostr(AdoQry.fieldbyname('Preparelt').asfloat);
    Frm_Mrp_Qry_NewUpRightMrp_D.runlt:=floattostr(AdoQry.fieldbyname('runlt').asfloat);
    Frm_Mrp_Qry_NewUpRightMrp_D.Qclt:=floattostr(AdoQry.fieldbyname('Qclt').asfloat);
    Frm_Mrp_Qry_NewUpRightMrp_D.PmBatch:=floattostr(AdoQry.fieldbyname('PmBatch').asfloat);
    Frm_Mrp_Qry_NewUpRightMrp_D.ItemPmCode:=AdoQry.fieldbyname('PmCode').asinteger;
    Frm_Mrp_Qry_NewUpRightMrp_D.CurrentInv:=floattostr(AdoQry.fieldbyname('CurrentonhandInv').asfloat);
    Frm_Mrp_Qry_NewUpRightMrp_D.RunMrp:=0;
    Frm_Mrp_Qry_NewUpRightMrp_D.Assignedqty:=floattostr(AdoQry.fieldbyname('Assignedqty').asfloat);
    Frm_Mrp_Qry_NewUpRightMrp_D.oncheckqty:=floattostr(AdoQry.fieldbyname('oncheckqty').asfloat);
   if AdoQry.fieldbyname('PmCode').asinteger=0 then
    Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='0 制造';
   if AdoQry.fieldbyname('PmCode').asinteger=1 then
    Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='1 采购';
   if AdoQry.fieldbyname('PmCode').asinteger=2     then
    Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='2 委外加工';
   if AdoQry.fieldbyname('PmCode').asinteger=3     then
    Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='3 既制造又委外';
   Frm_Mrp_Qry_NewUpRightMrp_D.minqty:=floattostr(AdoQry.fieldbyname('minqty').asfloat);
   if AdoQry.fieldbyname('Batchstrat').asinteger=0  then
    Frm_Mrp_Qry_NewUpRightMrp_D.Batchstrat:='直接批量法';
   if AdoQry.fieldbyname('Batchstrat').asinteger=1   then
    Frm_Mrp_Qry_NewUpRightMrp_D.Batchstrat:='固定批量法';
    try
     AdoQry.Free;
    except
    end;
    Frm_Mrp_Qry_NewUpRightMrp_D.InitForm(AdoQry_Main.Connection,True);
   end
   else Frm_Mrp_Qry_NewUpRightMrp_D.Show;
  finally
    activecontrol:=dbgrideh;
  end;
end;


procedure TFrm_Pm_Enter_NewSsPoInfo.btn_OblongMrpClick(Sender: TObject);
begin
  if AdoQry_Main.fieldbyname('ssSysInfoflag').asinteger=2 then
       begin
       activecontrol:=dbgrideh;
       exit;
       end;
   // inherited;
  try
  if Frm_Mrp_Qry_NewOblongMrp_D=nil then
   begin
    Frm_Mrp_Qry_NewOblongMrp_D:=TFrm_Mrp_Qry_NewOblongMrp_D.Create(Self);
    Frm_Mrp_Qry_NewOblongMrp_D.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
    Frm_Mrp_Qry_NewOblongMrp_D.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
    Frm_Mrp_Qry_NewOblongMrp_D.mRunMrp:=0;
    Frm_Mrp_Qry_NewOblongMrp_D.InitForm(dbconnect,True);
   end
   else Frm_Mrp_Qry_NewOblongMrp_D.Show;
  finally
   activecontrol:=dbgrideh;
  end;

end;

procedure TFrm_Pm_Enter_NewSsPoInfo.GetData;
begin
//  inherited;
  if SelectFromSQL<>'' then
  begin
    AdoQry_Main.DisableControls;
    AdoQry_Main.Close;
    AdoQry_Main.SQL.clear;
    AdoQry_Main.SQL.Text:=SelectFromSQL;
    if(Condition<>'')then
    begin
      if(ConditionUserDefine<>'')then
        AdoQry_Main.SQL.Text:=AdoQry_Main.SQL.Text+' Where '+Condition+' and '+ConditionUserDefine
      else
        AdoQry_Main.SQL.Text:=AdoQry_Main.SQL.Text+' Where '+Condition;
    end
    else if(ConditionUserDefine<>'')then
      AdoQry_Main.SQL.Text:=AdoQry_Main.SQL.Text+' Where '+ConditionUserDefine;
    AdoQry_Main.Open;
    AdoQry_Main.Sort:=OrderByFields;
    AdoQry_Main.EnableControls;
  end;
end;

procedure TFrm_Pm_Enter_NewSsPoInfo.Button1Click(Sender: TObject);
begin
  inherited;
  try
    If (AdoQry_Main.RecordCount>0) And (AdoQry_Main.fieldbyname('SsSysInfoFlag').AsInteger=1) Then
      if  Frm_Mrp_Enter_NewMoSsParent=nil then
        begin
          Frm_Mrp_Enter_NewMoSsParent:=TFrm_Mrp_Enter_NewMoSsParent.Create(Self);