BitSet operations

[Ruslan Zasukhin]

On 5/5/06 1:48 PM, "Joakim Schramm" <joakim at astrocalc.com> wrote:

What this function MUST TODO ??
You should have such comments ABOVE function
Also it will be great if your code will have some comments

I know YOU can read it, but IF you do wrong code then how I can guess what
is your idea? You see?

> Public Function AddPlaceRec(uPlace As AtlDataUDT) As Boolean
> Dim NewId As Long, NewPtr As Long
> Dim lnk As VLink
> Dim Res As VSet
> Dim arr As VArraySet
> 
> With uPlace
> 
>     If Len(Trim$(.TownName)) Then
>         If .CountryID = 0 Then
>             .CountryID = mCountryID
>         End If
> 
>         Set lnk = mAtlasDB.Link(lnkCountryHasZones)
>         Set arr = lnk.FindLinked(.CountryID, tCountry, tZones)
>         Set Res = arr
> 
>         If Res.Count > 1 Then
>             Set lnk = mAtlasDB.Link(lnkCountryHasPlaces)
>             Set Res = lnk.FindLinked(.CountryID, tCountry, tPlaces)
>             NewPtr = FindZoneDataID(.LatDeg, .LongDeg, .LatSign, .LongSign,
> Res)<---Function not working below
>         Else
>             NewPtr = arr.GetItemAt(1)
>         End If
> 
>         tPlaces.SetBlank forAdd
           ......

            here stripped code to field fields and add records ?

> End Function

-- 
Best regards,

Ruslan Zasukhin
VP Engineering and New Technology
Paradigma Software, Inc

Valentina - Joining Worlds of Information
http://www.paradigmasoft.com

[I feel the need: the need for speed]