Looks great!

Thanks a bunch!


>>Hi Gang!
>>
>>I want to pass an Array BACK to a calling Procedure....
>>
>>Calling Procedure ->
>>
>>

>>DO FORM frmlookup TO laLookup
>>

>>
>>where laLookup is an array....
>>
>>and the called form's UNLOAD event is...
>>
>>

>>LOCAL ARRAY laItemNo(2)
>>
>>*TMT 11/24/09 Modified the code to send the data back as 2 elements of an array
>>*laItem(1) is the Item No  and laItem(2) is the TranID of the Transaction
>>IF csr_regtrans.rx_no > 0	&& This is a Rx Item
>>	laItemNo(1) = ALLTRIM(STR(csr_regtrans.rx_no)) +   PADL(ALLTRIM(STR(csr_regtrans.refill_no)),2,"0")
>>ELSE
>>	laItemNo(1) = csr_regtrans.upc_code
>>ENDIF 
>>
>>*TMT 11/24/09 laItem(2) which is the Tranid
>>laItemNo(2) = Thisform.p_tranid
>>
>>POP KEY
>>USE IN csr_regtrans
>>SELECT refund
>>RETURN laItemNo
>>

>>
>>When I trace the code, the laLookUp has 2 elements, but they are the same thing!
>>
>>I know this has to do with pass by value versus pass by reference, but my attemps to fix it have failed.
>>
>>So what am I doing wrong today?
>>
>>Thanks!
>
>Your array is declared local. If you have declared the array before do form as private then form would see and update its members.
>
>I would instead pass an object. ie:
>
>

>local loParam
>loParam = createobject('empty')
>addproperty(loParam, 'aItem[2]')
>
>do form frmlookup with loParam && loParam is an object and passed by reference
>
>* form init
>lparameters toParm
>this.Addproperty('oParm', toParm)
>
>* unload or anywhere else
>toParm.aItem[1] = ...
>* ...
>

>Also check techniques that doesn't need to pass and/or return anything. ie:
>
>http://social.msdn.microsoft.com/Forums/en-US/visualfoxprogeneral/thread/4132ee17-519a-4859-8e79-93f0be610187
>
>Cetin