>>>>Thanks a lot again.
>>>
>>>You could add a properties to that class and instead of variables use these properties as parameters.
>>>Then when you need to refresh/fill CA you could set them to the right values.
>>
>>That's a great idea and we have our CAs (for other applications) designed this way. Now I only have to know, if this idea is OK with VPM.
>>
>>Also, how would I refer CA added to the form in DE?
>
>
>thsiform.DataEnvironment.CAObjectName
>
>NO Intellisence for DE :-)

Hi Borislav,

Putting default values in CursorFill using code such as

LPARAMETERS luseCursorSchema, lNoData, nOptions, Source
IF VARTYPE(m.getOptionID) <> "N"
   PRIVATE getOptionID
   getOptionID = 0
ENDIF
IF VARTYPE(m.getMakeID) <> "N"
   PRIVATE getMakeID
   getMakeID = 0
ENDIF
IF VARTYPE(m.getModelIDs) <> "C"
   PRIVATE getModelIDs
   getModelIDs = ""
ENDIF

LOCAL llRetVal
llRetVal = dodefault(luseCursorSchema, lNoData, nOptions, Source)

NODEFAULT

if not m.llRetVal && There was an error trying to execute CursorFill
	local laError[1]
	aerror(laError)
	if laError[1,1] <> 1839
		=Messagebox("Error trying to execute CursorFill method: " + laError[1,2] + ;
			chr(13) + chr(10) + "SelectCMD is " + this.selectcmd)	
	endif
endif

return m.llRetVal

Seems to get me one step father in the direction of making this form to work.

Do you see any problems / possible failures with this approach?

I have another question regarding movers logic. I'll write a new thread.