proc_get_order_header_info.sql

工厂采购系统,DELPHI+SQL SERVER,三层技术

if object_id('dbo.Proc_Get_Order_Header_info') is not null
drop procedure dbo.Proc_Get_Order_Header_info
go

create   procedure Proc_Get_Order_Header_info
@pono varchar(30)=null
as

if (@pono is not null) 
begin
select a.discount,
a.prno,a.cust_nm,
a.deli_loc,a.post_date,a.remark,b.vendor_nm as description,
b.address,b.cont1,b.tel,b.fax,b.payterms from ord_mst a,
 po_vendor_mstr b  where a.id=b.vendor_id and a.pono=@Pono 
return
end