itemchanged

demopfc.pbl   >   w_sheet_sales_order   >   dw_detail   >   itemchanged

Name	Datatype
dc_price	dec
l_id	long
s_color	string
s_desc	string
s_name	string
s_size	string

event itemchanged;call super::itemchanged;
//////////////////////////////////////////////////////////////////////////////
//
// Function    :  itemchanged
//
// Arguments   :  
//
// Description :
//
// Subject     :  Version1,Version3,product
//
//////////////////////////////////////////////////////////////////////////////


string s_name, s_desc, s_color, s_size
dec dc_price
long l_id

if dwo.name = "sales_order_items_prod_id" THEN
 l_id = long (data)
 SELECT product.name,   
         product.description,   
         product.prod_size,   
         product.color,   
         product.unit_price   
    INTO :s_name,   
         :s_desc,   
         :s_size,   
         :s_color,   
         :dc_price  
    FROM product  
   WHERE product.id = :l_id   ;

	IF SQLCA.SQLCode <> 0 THEN Return 1
	
	this.object.product_name [row] = s_name
	this.object.product_unit_price [row] = dc_price
	this.object.product_description [row] = s_desc
	this.object.product_color [row] = s_color
	this.object.product_size [row] = s_size
	this.object.sales_order_items_quantity [row] = 0
	
	
END IF


end event

Name	Owner
systemfunctions.long	systemfunctions
pfc_u_dw.itemchanged	pfc_u_dw

Full name
demopfc