📄 pm_enter_newsspoinfo3.pas
字号:
except
end;
frentform:=0;
end;
procedure TFrm_Pm_Enter_NewSsPoInfo3.Initselect;
begin
SelectFromSql:=' Select * from #ss';
OrderByfields:='ItemCode,ssdate ';
GetData;
end;
function TFrm_Pm_Enter_NewSsPoInfo3.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_NewSsPoInfo3.btn_ItemClick(Sender: TObject);
begin
inherited;
Qry_Item(Dbconnect,AdoQry_Main.fieldbyname('ItemCode').AsString);
DBGridEh.SetFocus;
end;
procedure TFrm_Pm_Enter_NewSsPoInfo3.btn_VendorClick(Sender: TObject);
begin
inherited;
Qry_Vendor(Dbconnect,AdoQry_Main.fieldbyname('DeptVendorCode').AsString);
DBGridEh.SetFocus;
end;
procedure TFrm_Pm_Enter_NewSsPoInfo3.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_NewSsPoInfo3.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_NewSsPoInfo3.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_NewSsPoInfo3.Button1Click(Sender: TObject);
begin
inherited;
{ try
If (AdoQry_Main.RecordCount>0) And (AdoQry_Main.fieldbyname('SsSysInfoFlag').AsInteger=1) Then
if Frm_Mrp_Enter_MoSsParent=nil then
begin
Frm_Mrp_Enter_MoSsParent:=TFrm_Mrp_Enter_MoSsParent.Create(Self);
Frm_Mrp_Enter_MoSsParent.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
Frm_Mrp_Enter_MoSsParent.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
tmplowPmCode:=AdoQry_Main.fieldbyname('PmCode').asinteger;
Frm_Mrp_Enter_MoSsParent.Qclt:=getQclt(AdoQry_Main.fieldbyname('ItemCode').asstring);
Frm_Mrp_Enter_MoSsParent.duedate:=datetimetostr(AdoQry_Main.fieldbyname('ssdate').asdatetime);
Frm_Mrp_Enter_MoSsParent.strpath:=AdoQry_Main.fieldbyname('ItemCode').asstring+',';
Frm_Mrp_Enter_MoSsParent.InitForm(dbconnect,True);
end
else Frm_Mrp_Enter_MoSsParent.Show;
finally
activecontrol:=dbgrideh;
end;}
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);
Frm_Mrp_Enter_NewMoSsParent.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
Frm_Mrp_Enter_NewMoSsParent.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
tmplowPmCode:=AdoQry_Main.fieldbyname('PmCode').asinteger;
Frm_Mrp_Enter_NewMoSsParent.Qclt:=getQclt(AdoQry_Main.fieldbyname('ItemCode').asstring);
Frm_Mrp_Enter_NewMoSsParent.duedate:=datetimetostr(AdoQry_Main.fieldbyname('realreleasedate').asdatetime);
Frm_Mrp_Enter_NewMoSsParent.strpath:=AdoQry_Main.fieldbyname('ItemCode').asstring+',';
Frm_Mrp_Enter_NewMoSsParent.InitForm(dbconnect,True);
end
else Frm_Mrp_Enter_NewMoSsParent.Show;
finally
activecontrol:=dbgrideh;
end;
end;
procedure TFrm_Pm_Enter_NewSsPoInfo3.Button4Click(Sender: TObject);
function existsvir(ItemCode:string):boolean;
var sqltext:string;
begin
Result:=False;
sqltext:='select * from Bom where BomItemType=3 and ite_ItemCode='+quotedstr(ItemCode);
Executesql(AdoQry_tmp,sqltext,0) ;
if AdoQry_tmp.RecordCount<>0 then Result:=True;
end;
var
BookMArk:String;
begin
inherited;
try
if (AdoQry_Main.fieldbyname('PmType').asinteger=9) and (AdoQry_Main.fieldbyname('SSSysInfoFlag').asinteger=1) then
begin
if not existsvir(AdoQry_Main.fieldbyname('ItemCode').asstring) then
begin
Frm_Mrp_Enter_CommonAssignAlterNative:=TFrm_Mrp_Enter_CommonAssignAlterNative.Create(Application);
Frm_Mrp_Enter_CommonAssignAlterNative.SetSysParam(UserCode,ModuleCode,MenuId,DateTimeToStr(Now));
Frm_Mrp_Enter_CommonAssignAlterNative.GetalterItem(Dbconnect,AdoQry_Main.fieldbyname('ssid').Asinteger);
Frm_Mrp_Enter_CommonAssignAlterNative.ShowModal;
Frm_Mrp_Enter_CommonAssignAlterNative.Release;
end
else begin
Frm_Mrp_Enter_CommonAssignAlterNative1:=TFrm_Mrp_Enter_CommonAssignAlterNative1.Create(Application);
Frm_Mrp_Enter_CommonAssignAlterNative1.SetSysParam(UserCode,ModuleCode,MenuId,DateTimeToStr(Now));
Frm_Mrp_Enter_CommonAssignAlterNative1.lbl_Item.Caption:=AdoQry_Main.fieldbyname('Itemflag').asstring;
Frm_Mrp_Enter_CommonAssignAlterNative1.Label2.Caption:=AdoQry_Main.fieldbyname('UomName').asstring;
Frm_Mrp_Enter_CommonAssignAlterNative1.Label5.Caption:=AdoQry_Main.fieldbyname('ssSysInfoflag').asstring;
Frm_Mrp_Enter_CommonAssignAlterNative1.Label8.Caption:=AdoQry_Main.fieldbyname('ssdate').asstring;
Frm_Mrp_Enter_CommonAssignAlterNative1.Label12.Caption:=AdoQry_Main.fieldbyname('ssqty').asstring;
Frm_Mrp_Enter_CommonAssignAlterNative1.Label14.Caption:=AdoQry_Main.fieldbyname('ssreMainqty').asstring;
Frm_Mrp_Enter_CommonAssignAlterNative1.ite_Ssid:=AdoQry_Main.fieldbyname('ssid').asinteger;
Frm_Mrp_Enter_CommonAssignAlterNative1.ite_reMainqty:=AdoQry_Main.fieldbyname('ssreMainqty').asfloat;
Frm_Mrp_Enter_CommonAssignAlterNative1.GetalterItem(AdoQry_Main,AdoQry_Main.fieldbyname('ItemCode').Asstring);
Frm_Mrp_Enter_CommonAssignAlterNative1.ShowModal;
Frm_Mrp_Enter_CommonAssignAlterNative1.Release;
end;
try
BookMArk:= AdoQry_Main.BookmArk;
with AdoQry_Main do
begin
edit ;
fieldbyname('reMainQty').Asfloat:=fieldbyname('reMainQty').Asfloat- ite_ItemTotalAssignedqty;
post;
end;
AdoQry_tmp.Close;
AdoQry_Tmp.SQL.clear;
AdoQry_Tmp.SQL.Text :=' update #ss Set reMainQty=reMainQty-'+floattostr(ite_ItemTotalAssignedqty)
+' ,ssreMainQty=ssreMainQty-'+floattostr(ite_ItemTotalAssignedqty)
+' where ssid='''+AdoQry_Main.fieldbyname('SsId').asstring+'''';
AdoQry_Tmp.ExecSQL;
getdata;
AdoQry_Main.BookmArk:=BookMArk;
except
end;
end;
finally
DBGridEh.SetFocus;
end;
end;
procedure TFrm_Pm_Enter_NewSsPoInfo3.Button2Click(Sender: TObject);
begin
inherited;
if AdoQry_Main.RecordCount=0 then exit;
Frm_Pm_Enter_VendorItemAssign:=TFrm_Pm_Enter_VendorItemAssign.Create(self);
try
with Frm_Pm_Enter_VendorItemAssign do
begin
ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
AdoQry_Vendor.Connection:=dbconnect;
showdbgrid;
showmodal;
end;
finally
Frm_Pm_Enter_VendorItemAssign.Free;
activecontrol:=dbgrideh;
end;
end;
procedure TFrm_Pm_Enter_NewSsPoInfo3.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
inherited;
if key = vk_Space then
begin
AdoQry_Main.Edit;
AdoQry_Main.fieldbyname('sScheck').AsInteger:=iifinteger(AdoQry_Main.fieldbyname('sScheck').AsInteger=0,1,0);
AdoQry_Main.Post;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -