📄 pm_enter_newfreepasspo.pas
字号:
If (AdoQry_Head.RecordCount>0) 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_Head.fieldbyname('ItemCode').asstring;
tmplowPmCode:=AdoQry_Head.fieldbyname('PmCode').asinteger;
Frm_Mrp_Enter_NewMoSsParent.Qclt:=getQclt(AdoQry_Head.fieldbyname('ItemCode').asstring);
Frm_Mrp_Enter_NewMoSsParent.duedate:=datetimetostr(AdoQry_Head.fieldbyname('PoLineDate').asdatetime);
Frm_Mrp_Enter_NewMoSsParent.strpath:=AdoQry_Head.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_NewFreePassPo.FormCreate(Sender: TObject);
begin
inherited;
{ ToolButton7.Action := Act_Delete;
ToolButton7.Visible := True;
ToolButton7.Enabled := True;
act_Modify.Enabled:=True;
act_Modify.Visible:=True;
tlbtn_Modify.Action:=act_Modify;
tlbtn_Modify.Enabled:=True;
tlbtn_Modify.Visible:=True; }
end;
procedure TFrm_Pm_Enter_NewFreePassPo.DeleteRecord;
var
SqlText,SqlText1,SqlText2,sqlTxt3,BookMArk: String;
falg:integer;
begin
faLg:=0;
if AdoQry_Head.RecordCount>AdoQry_Head.RecNo then
begin
BookMArk:=AdoQry_Head.BookmArk;
falg:=1;
end;
AdoQry_Head.First;
while not AdoQry_Head.Eof Do
begin
if (AdoQry_Head.fieldbyname('PoLineCheck').AsInteger=1) and (AdoQry_Head.fieldbyname('PoLineStatus').AsInteger<>5) then
begin
DispInfo('不能删除独立采购订单号为：'+AdoQry_Head.fieldbyname('PONO').AsString+' 已下达的独立采购订单！',3);
abort;
end;
AdoQry_Head.next;
end;
AdoQry_Head.First;
While Not AdoQry_Head.Eof Do
begin
If AdoQry_Head.fieldbyname('PoLineCheck').AsInteger=1 then
begin
sqlTxt3:=' Select * from poline where pono='''+AdoQry_Head.fieldbyname('PONO').AsString+''''
+' and polineno ='''+AdoQry_Head.fieldbyname('POlineno').AsString+''''
+' and PoLineStatus=5 ' ;
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.Text :=sqlTxt3 ;
AdoQry_Tmp.Open;
if AdoQry_Tmp.fieldbyname('PoLineStatus').asinteger= 5 then
begin
DbConnect.beginTrans ;
try
SqlText2:=' Delete OpItemList Where PoNo='''+AdoQry_Head.fieldbyname('PoNo').AsSTring+''''
+' And PoLineNo='''+AdoQry_Head.fieldbyname('PoLineNo').AsSTring+'''';
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.Text := SqlText2;
AdoQry_Tmp.ExecSQL;
SavePoLineHistory('Delete');
OperationMOPO(AdoQry_Tmp,Trim(AdoQry_Head.fieldbyname('ItemCode').AsString),'po',3,
Trim(AdoQry_Head.fieldbyname('pono').AsString),AdoQry_Head.fieldbyname('PoLineNo').AsInteger,AdoQry_Head.fieldbyname('POLINESTATUS').AsInteger,
0,AdoQry_Head.fieldbyname('PoQty').Asfloat,
AdoQry_Head.fieldbyname('PONoFinishQty').Asfloat,AdoQry_Head.fieldbyname('POStArtWorkDate').AsString,
AdoQry_Head.fieldbyname('POLineDATE').AsString,AdoQry_Head.fieldbyname('PoType').AsInteger,AdoQry_Head.fieldbyname('VendorCode').AsString );
SqlText:=' Delete PoLine Where PoNo='''+AdoQry_Head.fieldbyname('PoNo').AsSTring+''''
+' And PoLineNo='''+AdoQry_Head.fieldbyname('PoLineNo').AsSTring+''''
+' And PoLineStatus = 5';
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.Text := SqlText;
AdoQry_Tmp.ExecSQL;
SqlText1:=' Delete Po Where PoNo='''+AdoQry_Head.fieldbyname('PoNo').AsSTring+''''
+' and Not Exists(Select PoNo From PoLine where PoNo='''+AdoQry_Head.fieldbyname('PoNo').AsSTring+''')';
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.Text := SqlText1;
AdoQry_Tmp.ExecSQL;
DbConnect.CommitTrans;
except
DbConnect.RollBackTrans;
end;
end;
end;
AdoQry_Head.Next;
end ;
getdata;
if falg=1 then
AdoQry_Head.BookmArk:=BookMArk;
end;
procedure TFrm_Pm_Enter_NewFreePassPo.Act_DeleteExecute(Sender: TObject);
begin
inherited;
If (AdoQry_Head.Eof) And (AdoQry_Head.Bof) Then
Exit;
If (DispInfo('确认真的要删除选定独立采购订单吗',2)='y') Then
DeleteRecord;
end;
function TFrm_Pm_Enter_NewFreePassPo.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;
function TFrm_Pm_Enter_NewFreePassPo.beendilivered(pono:string;polineno:integer):boolean;
var AdoQry:TAdoQuery;
sqltext:string;
begin
Result:=False;
AdoQry:=TAdoQuery.Create(self);
AdoQry.Connection:=dbconnect;
sqltext:='select * from opItemList '
+' where porealqty>0 '
+' and pono='+quotedstr(pono)
+' and polineno='+inttostr(polineno);
try
Executesql(AdoQry,sqltext,0);
if AdoQry.RecordCount>0 then
Result:=True;
finally
AdoQry.Free;
end;
end;
procedure TFrm_Pm_Enter_NewFreePassPo.Act_ModifyExecute(Sender: TObject);
begin
inherited;
if AdoQry_Head.RecordCount=0 then exit;
Frm_Pm_Enter_PassPo_D := TFrm_Pm_Enter_PassPo_D.Create(self);
try
with Frm_Pm_Enter_PassPo_D do
begin
Frm_Pm_Enter_PassPo_D.AdoQry_Tmp.Connection:=dbconnect;
Edt_Pono.Text:=AdoQry_Head.fieldbyname('PoNo').asstring;
Edt_LineNo.Text:=AdoQry_Head.fieldbyname('Polineno').asstring;
Edt_ItemCode.Text:=AdoQry_Head.fieldbyname('ItemCode').asstring;
Lbl_ItemName.Caption:=AdoQry_Head.fieldbyname('ItemName').asstring;
edt_ItemName.Text:=lbl_ItemName.Caption;
MEdt_PoStArtWorkDate.Text:=AdoQry_Head.fieldbyname('PoStArtWorkDate').AsString;
Medt_PoDate.Text:=AdoQry_Head.fieldbyname('POLineDATE').AsString;
Edt_PoQty.Text:=AdoQry_Head.fieldbyname('PoQty').asstring;
Edt_PoNoFinishQty.Text:=AdoQry_Head.fieldbyname('PONoFinishQty').asstring;
btn_ok.Enabled:=False;
if AdoQry_Head.fieldbyname('POLINESTATUS').asinteger=5 then
Edt_PoQty.Enabled := True
else
Edt_PoQty.Enabled := False;
showmodal;
// medt_Modate.SetFocus;
if modalResult=mrok then
begin
SavePoLineHistory1('Edit');
AdoQry_Head.Edit;
AdoQry_Head.fieldbyname('poqty').asstring:=edt_Poqty.Text;
AdoQry_Head.fieldbyname('ponoFinishqty').asstring:=edt_PonoFinishqty.Text;
AdoQry_Head.fieldbyname('POLineDATE').asstring:=Medt_PoDate.Text;
AdoQry_Head.fieldbyname('PoStArtWorkDate').asstring:=MEdt_PoStArtWorkDate.Text;
AdoQry_Head.Post;
updatepoline(AdoQry_Head.fieldbyname('PoNo').asstring,AdoQry_Head.fieldbyname('PoLineNo').asinteger);
end;
end;
finally
Frm_Pm_Enter_PassPo_D.Free;
end;
end;
function TFrm_Pm_Enter_NewFreePassPo.SavePoLineHistory1(
Status1: String): Boolean;
var
SqlText:String;
begin
Try
SqlText:='Insert PoLineHistory '
+' (PoNo,PoLineNo,ItemCode,POLineDate,PoStArtWorkDate,POQty,POTaxPrice,POTaxAmount,PONoTaxPrice,'
+' PONoTaxAmount,PONoFinishQty,POReferencedPrice,POLineStatus,PolChgEmployeeCode,PolChgTime,PolChgType)'
+'Values('
+''''+AdoQry_Head.fieldbyname('PoNo').AsString+''''+','
+''''+IntToStr(AdoQry_Head.fieldbyname('PoLineNo').AsInteger)+''''+','
+''''+AdoQry_Head.fieldbyname('ItemCode').AsString+''''+','
+''''+DatetimeToStr(AdoQry_Head.fieldbyname('PoLineDate').AsDateTime)+''''+','
+''''+DatetimeToStr(AdoQry_Head.fieldbyname('PoStArtWorkDate').AsDateTime)+''''+','
+''''+FloatToStr(AdoQry_Head.fieldbyname('PoQty').AsFloat)+''''+','
+''''+FloatToStr(AdoQry_Head.fieldbyname('POTaxPrice').AsFloat)+''''+','
+''''+FloatToStr(AdoQry_Head.fieldbyname('POTaxAmount').AsFloat)+''''+','
+''''+FloatToStr(AdoQry_Head.fieldbyname('PONoTaxPrice').AsFloat)+''''+','
+''''+FloatToStr(AdoQry_Head.fieldbyname('PONoTaxAmount').AsFloat)+''''+','
+''''+FloatToStr(AdoQry_Head.fieldbyname('PONoFinishQty').AsFloat)+''''+','
+''''+IntToStr(AdoQry_Head.fieldbyname('POReferencedPrice').AsInteger)+''''+','
+''''+IntToStr(AdoQry_Head.fieldbyname('POLineStatus').AsInteger)+''''+','
+''''+UserCode+''''+','
+'GetDate(),' ;
if Status1='Edit' then
SqlText:=SqlText+''''+'更改日期'+''''+')'
else
if Status1='Delete' then
SqlText:=SqlText+''''+'删除记录'+''''+')';
AdoQry_Tmp.Close;
AdoQry_Tmp.SQL.Text:=SqlText;
AdoQry_Tmp.ExecSQL;
Result:=True;
Except
Result:=False;
end;
end;
procedure TFrm_Pm_Enter_NewFreePassPo.UpDatePoline(PoNo: string;
PoLineNo: integer);
var AdoQry:TAdoQuery;
sqltext:string;
begin
AdoQry:=TAdoQuery.Create(self);
AdoQry.Connection:=dbconnect;
sqltext:='update Poline '
+' set POLineDATE= '+quotedstr(AdoQry_Head.fieldbyname('POLineDATE').asstring)+','
+' poqty='+AdoQry_Head.fieldbyname('poqty').asstring+','
+' ponoFinishqty=case when polinestatus=5 then '+AdoQry_Head.fieldbyname('ponoFinishqty').asstring+' else ponoFinishqty end, '
+' PoStArtWorkDate='+quotedstr(AdoQry_Head.fieldbyname('PoStArtWorkDate').asstring)
+' where Pono='+quotedstr(Pono)
+' and Polineno='+inttostr(Polineno);
try
Executesql(AdoQry,sqltext,1);
finally
AdoQry.Free;
end;
end;
procedure TFrm_Pm_Enter_NewFreePassPo.Button5Click(Sender: TObject);
begin
inherited;
If AdoQry_Head.RecordCount=0 then exit;
If AdoQry_Head.fieldbyname('PoType').AsInteger<>1 then exit;
Frm_Bas_BomQry:=TFrm_Bas_BomQry.Create(self);
Frm_Bas_BomQry.SetSysParam(userCode,ModuleCode,menuid,datetimetostr(now));
Frm_Bas_BomQry.Ite_ItemCode := AdoQry_Head.fieldbyname('ItemCode').AsString;
Frm_Bas_BomQry.Lbl_ItemCode.Caption:=AdoQry_Head.fieldbyname('ItemCode').AsString;
Frm_Bas_BomQry.InitForm(dbconnect,True);
Frm_Bas_BomQry.Show;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -