pm_enter_dynamicsspoinfo.pas

一个MRPII系统源代码版本

end;

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

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

end;

procedure TFrm_Pm_Enter_DynamicSsPoInfo.AdoQry_MainBeforeEdit(DataSet: TDataSet);
begin
  inherited;
  IF (Flag=1) And (AdoQry_Main.fieldbyname('SSSysInfoFlag').AsInteger<>1) Then
  begin
    DispInfo('本条建议不为"建议下达"，不能执行选定操作!',3);
    Abort;
  end;
  If Trim(AdoQry_Main.fieldbyname('PcNo').AsString)='' Then
  begin
    DispInfo('不能对一条没有可用采购价格单号的记录进行操作!',3);
    Abort;
  end;
  If AdoQry_Main.fieldbyname('ReMainQty').AsFloat<=0 Then
  begin
    DispInfo('本条建议"系统建议余量"已分配完毕,不能执行选定操作!',3);
    Abort;
  end;
  If (PmCode=1) And (AdoQry_Main.fieldbyname('PmType').AsInteger<>PmCode) Then
  begin
    DispInfo('本条记录物料制构类型与选定的不一值！',3);
    Abort;
  end;
  If (PmCode In [2,3]) And (AdoQry_Main.fieldbyname('PmType').AsInteger=1) Then
  begin
    DispInfo('本条记录物料制构类型与选定的不一值！',3);
    Abort;
  end;
  If (Length(PcNo)>0) And (AdoQry_Main.fieldbyname('PcNo').AsString<>PcNo) Then
  begin
   DispInfo('不能一次选中两个不相同可用采购价格单号!',3);
   Abort;
  end;
end;

procedure TFrm_Pm_Enter_DynamicSsPoInfo.AdoQry_MainAfterPost(DataSet: TDataSet);
begin
  inherited;
  If AdoQry_Main.fieldbyname('SScheck').AsInteger=1 Then
  begin
    PcNo:=AdoQry_Main.fieldbyname('PcNo').AsString;
    PmCode:=AdoQry_Main.fieldbyname('PmType').AsInteger;
    Selected:=Selected+1;
  end
  Else
  begin
    Selected:=Selected-1;
    If Selected=0 Then
    begin
       PcNo:='';
       PmCode:=0;
    end;
  end;
end;

procedure TFrm_Pm_Enter_DynamicSsPoInfo.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 (Trim(AdoQry_Main.fieldbyname('PcNo').AsString)<>'')
        And (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 (Trim(AdoQry_Main.fieldbyname('PcNo').AsString)<>'')
        And (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;

procedure TFrm_Pm_Enter_DynamicSsPoInfo.Act_LookExecute(Sender: TObject);
begin
  inherited;
  If (AdoQry_Main.RecordCount>0) And (AdoQry_Main.fieldbyname('SsSysInfoFlag').AsInteger=1) Then
  if  Frm_Pm_Enter_PoSsParent=nil then
  begin
  Frm_Pm_Enter_PoSsParent:=TFrm_Pm_Enter_PoSsParent.Create(Self);
  Frm_Pm_Enter_PoSsParent.SetSysParam('gf','gf','gfd','fd');
  Frm_Pm_Enter_PoSsParent.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  if AdoQry_Main.fieldbyname('PmCode').Asinteger<>0 then
    Frm_Pm_Enter_PoSsParent.duedate:=datetimetostr(AdoQry_Main.fieldbyname('ssdate').asdatetime)
  else
    Frm_Pm_Enter_PoSsParent.duedate:=SlCalendar(Dbconnect,datetimetostr(AdoQry_Main.fieldbyname('ssdate').asdatetime),-AdoQry_Main.fieldbyname('QcLt').Asinteger);
   // Frm_Pm_Enter_PoSsParent.duedate:=datetimetostr(AdoQry_Main.fieldbyname('ssdate').asdatetime-AdoQry_Main.fieldbyname('QcLt').Asinteger);
//  Frm_Pm_Enter_PoSsParent.duedate:=datetimetostr(AdoQry_Main.fieldbyname('ssdate').asdatetime);
  Frm_Pm_Enter_PoSsParent.strpath:=AdoQry_Main.fieldbyname('ItemCode').asstring+',';
  Frm_Pm_Enter_PoSsParent.InitForm(dbconnect,True);
 end
 else  Frm_Pm_Enter_PoSsParent.Show;
end;

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

procedure TFrm_Pm_Enter_DynamicSsPoInfo.Initselect;
begin
  SelectFromSql:=' Select '
                +' SSId,#Ss.ItemCode,SSSysInfoFlag,OrderNo,OrderLineNo,'
                +' SSDate,SSQty,PmType,SScheck, GrossRequireQty, PlanInvQty,'
                +' OrderLineStatus, DeptVendorCode,duedate,ReMainQty,'
                +' ssReMainQty =case   when (ssReMainQty=0) then null '
                +' else'
                +'   ssReMainQty '
                +' end ,'
                +' Item.MnldTime,Item.ItemName,Item.UomCode,Uom.UomName,Item.PmCode,Item.Qclt,'
                +' Case When ((Select Count(distinct PcLine.PcNo) As ICount From PcLine '
                +' Where #Ss.ItemCode=PcLine.ItemCode '
                +' And #Ss.SsDate>=PcStArtDate And #Ss.SsDate<=PcendDate '
                +' And ((#Ss.SsQty>=PcStArtQty And #Ss.SsQty<PcendQty) Or '
                +' (PcStArtQty=0 And PcendQty=0))'
                +' And PcLine.PcLineStatus=1)>=1) And (#Ss.SsSysInfoFlag=1) And (#Ss.DeptVendorCode is Not Null) Then '
                +' (Select Top 1 PcLine.PcNo From PcLine,Pc '
                +' Where PcLine.PcNo=Pc.PcNo '
                +' And #Ss.ItemCode=PcLine.ItemCode '
                +' And #Ss.SsDate>=PcStArtDate And #Ss.SsDate<=PcendDate '
                +' And ((#Ss.SsQty>=PcStArtQty And #Ss.SsQty<PcendQty) '
                +' Or (PcStArtQty=0 And PcendQty=0))'
                +' And (PcLine.PcLineStatus=1) And Pc.VendorCode=#Ss.DeptVendorCode) '

                +' When ((Select Count(distinct PcLine.PcNo) As ICount From PcLine '
                +' Where #Ss.ItemCode=PcLine.ItemCode '
                +' And #Ss.SsDate>=PcStArtDate And #Ss.SsDate<=PcendDate '
                +' And ((#Ss.SsQty>=PcStArtQty And #Ss.SsQty<PcendQty) Or '
                +' (PcStArtQty=0 And PcendQty=0))'
                +' And PcLine.PcLineStatus=1)=1) And (#Ss.SsSysInfoFlag=1) And (#Ss.DeptVendorCode is Null) Then '
                +' (Select PcLine.PcNo From PcLine '
                +' Where #Ss.ItemCode=PcLine.ItemCode '
                +' And #Ss.SsDate>=PcStArtDate And #Ss.SsDate<=PcendDate '
                +' And ((#Ss.SsQty>=PcStArtQty And #Ss.SsQty<PcendQty) '
                +' Or (PcStArtQty=0 And PcendQty=0))'
                +' And (PcLine.PcLineStatus=1)) '

                +' When  ((Select Count(PcLine.PcNo) As ICount From PcLine '
                +' Where #Ss.ItemCode=PcLine.ItemCode '
                +' And #Ss.SsDate >=PcStArtDate And #Ss.SsDate<=PcendDate '
                +' And ((#Ss.SsQty>=PcStArtQty And #Ss.SsQty< PcendQty ) Or '
                +' (PcStArtQty=0 And PcendQty=0))'
                +' And PcLine.PcLineStatus=1)>1) '
                +' And (#Ss.DeptVendorCode is Null) '
                +' And (#Ss.SsSysInfoFlag=1) '
                +' Then '
                +''''+'待分配'+''''
                +' Else '
                +' Null '
                +' end PcNo,'
                +' ConVert(varchAr(20),SysSsInfo.SSCode)+'''+' '+'''+SysSsInfo.SsName As SsName, '
                +' Item.ItemCode+'''+' '+'''+Item.ItemName As ItemFlag, '
                +' Item.EmployeeCode,Employee.EmployeeName, '
                +' Employee.EmployeeCode+'''+' '+'''+Employee.EmployeeName As EmployeeFlag '
                +' From #SS '
                +' Join Item On #SS.ItemCode=Item.ItemCode '
                +' And (PmType=1 Or PmType=2) '
                +' Join Uom On Item.UomCode=Uom.UomCode '
                +' Join SysSsInfo On #Ss.SSSysInfoFlag=SysSsInfo.SSCode '
                +' Left Join Employee On Item.EmployeeCode=Employee.EmployeeCode ';
  ConditionUserDefine:=' ((#Ss.SsSysInfoFlag=1 '
                      +' And Item.LongPurchLT=0 And #Ss.DueDate-(select MrpParamValueN from MrpParam '
                      +' where MrpParamCode='''+'SSForwArdDay'+''')<='''+DateTimeToStr(Date())+''')'
                      +' Or (#Ss.SsSysInfoFlag=1 And Item.LongPurchLT=1)Or (#Ss.SsSysInfoFlag<>1)) ';
  OrderByfields:='ItemCode ';
  GetData;

end;

end.