of_read_only

pfedwsrv.pbl   >   n_cst_dwsrv_querymode   >   of_read_only

Name	Datatype
i	integer
i_colnum	integer
s_modify	String
s_objecttype	String

public function integer of_read_only (boolean ab_value);//////////////////////////////////////////////////////////////////////////////
//
//	Function		:	of_read_only
//
//	Arguments	:	boolean ab_value	
//
//	Returns		:	integer
//
//	Description	:
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision 	History			Author:	Novalys
//
//	Date			Version
//
//	06/07/2000		1.0.00  	Initial version
//
//////////////////////////////////////////////////////////////////////////////


integer 	i_colnum, i
String s_modify, s_objecttype

// Check the datawindow reference
if IsNull(idw_requestor) Or not IsValid (idw_requestor) then
	return -1
end if

IF ab_value Then
	idw_requestor.Object.DataWindow.ReadOnly = "Yes"
Else
	idw_requestor.Object.DataWindow.ReadOnly = "No"	
End If


i_colnum = Integer(idw_requestor.Describe("datawindow.column.count"))

IF i_colnum < 1 THEN Return 0

FOR i = 1 TO i_colnum
	
	IF Long(idw_requestor.describe("#" + String(i) + ".x")) <> 0  THEN
		
		s_objecttype = idw_requestor.Describe("#" + string(i) +".edit.style")
			
			if ab_value then
				s_modify = s_modify + " #"+String(i)+".background.mode = 1"
			else
				s_modify = s_modify + " #"+String(i)+".background.mode = 0"
			end if
	END IF
	
NEXT

idw_requestor.Modify(s_modify)


return 1
end function

Name	Owner
w_resp_customer_search.pfc_postopen	w_resp_customer_search
w_resp_employee.cb_search.clicked	cb_search
w_resp_employee.pfc_postopen	w_resp_employee
w_resp_sales_order.cb_search.clicked	cb_search
w_resp_sales_order.pfc_postopen	w_resp_sales_order
w_resp_salesperson.cb_search.clicked	cb_search
w_resp_salesperson.pfc_postopen	w_resp_salesperson

Name	Owner
datawindow.describe	datawindow
datawindow.modify	datawindow
systemfunctions.integer	systemfunctions
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.long	systemfunctions
systemfunctions.string	systemfunctions