pfc_undoinsert

pfcapsrv.pbl   >   pfc_n_cst_lvsrv_datasource   >   pfc_undoinsert

Name	Datatype
ll_undohandle	long

event pfc_UndoInsert;call super::pfc_UndoInsert;//////////////////////////////////////////////////////////////////////////////
//	Event:			pfc_UndoInsert
//	Arguments:		None
//	Returns:			integer
//	 					1 = success; last Insert was undone
//	 					0 = nothing to undo
//						-1 = error
//	Description:	Remove the last inserted item from the listview
//////////////////////////////////////////////////////////////////////////////
//	Rev. History:	Version
//						6.0   Initial version
//////////////////////////////////////////////////////////////////////////////
//	Copyright © 1996-1999 Sybase, Inc. and its subsidiaries.  All rights reserved.  Any distribution of the 
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////
long		ll_undohandle

// Do not undo if undo is not set
if not ib_Undo then return -1

// Check to see if we have something to undo
if il_UndoInsertHandle < 1 then return 0

ll_undohandle = il_UndoInsertHandle
	
// Reset the undo insert variables (here if there are problems so we don't try to uninsert the wrong thing)
il_UndoInsertHandle = 0
is_UndoType = ""

// pfc undo process running - do not display confirmation messages
ib_IsUndoing = true

//	Remove the item from the listview (visual and datastore)
if of_DeleteItem(ll_undohandle) < 1 then return -1

// pfc undo process not running - ok to display confirmation messages
ib_IsUndoing = true

return 1
end event

Name	Owner
pfc_n_cst_lvsrv_datasource.pfc_undo	pfc_n_cst_lvsrv_datasource

Name	Owner
pfc_n_cst_lvsrv_datasource.of_DeleteItem	pfc_n_cst_lvsrv_datasource