📄 pm_enter_sspoinfo1.pas
字号:
+' 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) '
+' And Item.EmployeeCode='''+UserCode+''''
+' 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 ';
}
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.Text:='Select MrpParamValueN from MrpParam '
+' where MrpParamCode='''+'SSForwArdDay'+'''';
AdoQry_Tmp.Open;
Lbl_Condition.Caption:='系统建议下达(约定开工日-'+FormatDateTime('yyyy.mm.dd',Date())+')'
+'<=建议可见提前天数('+IntToStr(AdoQry_Tmp.fieldbyname('MrpParamValueN').AsInteger)+') 其它(全部)';
AdoQry_Tmp.Close;
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.Text:='Select MrpParamValueC from MrpParam '
+' where MrpParamCode='''+'RunMrpDate'+'''';
AdoQry_Tmp.Open;
lab_RunMrpDate.Caption :=AdoQry_Tmp.fieldbyname('MrpParamValueC').AsString;
Checked:=False;
end;
procedure TFrm_Pm_Enter_SsPoInfo1.FormDestroy(Sender: TObject);
begin
inherited;
Frm_Pm_Enter_SsPoInfo1:=Nil;
end;
procedure TFrm_Pm_Enter_SsPoInfo1.Act_NewExecute(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
falg:=1;
Frm_Pm_Enter_AutoPo:=TFrm_Pm_Enter_AutoPo.Create(Application);
Frm_Pm_Enter_AutoPo.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
Frm_Pm_Enter_AutoPo.SetFormParam(PcNo,IntToStr(PmCode),'','','','');
Frm_Pm_Enter_AutoPo.InitForm(DbConnect,'Add',AdoQry_Main);
Frm_Pm_Enter_AutoPo.ShowModal;
Frm_Pm_Enter_AutoPo.Free;
end
Else
begin
AdoQry_Main.BookmArk:=BookMArk;
DispInfo('没有选定记录，不能执行新增操作!',3);
Abort;
end;
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_SsPoInfo1.FormCreate(Sender: TObject);
begin
inherited;
ExtendCaption:=False;
PcNo:='';
PmCode:=0;
Selected:=0;
ToolButton6.Action := Act_Sum ;
ToolButton6.Visible := True;
ToolButton6.Enabled := True;
end;
procedure TFrm_Pm_Enter_SsPoInfo1.Act_CheckExecute(Sender: TObject);
begin
inherited;
If AdoQry_Main.RecordCount=0 Then
Abort;
AdoQry_Main.First;
While Not AdoQry_Main.Eof Do
begin
AdoQry_Main.Edit;
AdoQry_Main.fieldbyname('SScheck').AsInteger:=1;
AdoQry_Main.Post;
Selected:=Selected+1;
AdoQry_Main.Next;
end;
end;
procedure TFrm_Pm_Enter_SsPoInfo1.AdoQry_MainBeforeInsert(
DataSet: TDataSet);
begin
inherited;
Abort;
end;
procedure TFrm_Pm_Enter_SsPoInfo1.Act_DeleteExecute(Sender: TObject);
begin
//inherited;
end;
procedure TFrm_Pm_Enter_SsPoInfo1.AdoQry_MainBeforeEdit(DataSet: TDataSet);
begin
inherited;
IF (AdoQry_Main.fieldbyname('pcno').AsString='替代件待分配') and (ActiveControl.Name='DBGridEh' ) Then //(Flag=1) And
begin
DispInfo('本条建议不能下单，请按 "替代件建议分配"按钮!',3);
Abort;
end;
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('ssReMainQty').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_SsPoInfo1.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_SsPoInfo1.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_SsPoInfo1.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(UserCode,ModuleCode,MenuId,LoginDate);
tmplowPmCode:=AdoQry_Main.fieldbyname('PmCode').asinteger;
Frm_Pm_Enter_PoSsParent.Qclt:=getQclt(AdoQry_Main.fieldbyname('ItemCode').asstring);
Frm_Pm_Enter_PoSsParent.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
Frm_Pm_Enter_PoSsParent.duedate:=datetimetostr(AdoQry_Main.fieldbyname('ssdate').asdatetime);
Frm_Pm_Enter_PoSsParent.strpath:=AdoQry_Main.fieldbyname('ItemCode').asstring+',';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -