It is finding the duplicates but fails to increment the sequence number
once the record is saved.
On Wed, Nov 16, 2016 at 8:21 PM, Sujit Shah <sujit...@gmail.com> wrote:
> Here I am setting the seq number
>
> ALL RECORDS([Contact_Listing])
> ORDER BY([Contact_Listing];[Contact_Listing]ID;>)
> LAST RECORD([Contact_Listing])
> SET DATABASE PARAMETER([Contact_Listing];Table sequence
> number;[Contact_Listing]ID+1)
>
>
> Here I am trying to fix the Duplicates
>
> C_POINTER($oTable;$oTableID)
> ARRAY LONGINT($alDistinctIDs;0)
> $oTable:=Table(Table(->[Contact_Listing]))
> $oTableID:=Field(Table(->[Contact_Listing]);Field(->[Contact_Listing]ID))
> ALL RECORDS($oTable->)
> $lNumRecs:=Records in selection($oTable->)
> DISTINCT VALUES($oTableID->;$alDistinctIDs)
> If ($lNumRecs#Size of array($alDistinctIDs)) // found some duplicates
> // build a list of duplicate IDs
> ARRAY LONGINT($alDuplicateIDs;0)
> SET QUERY DESTINATION(Into variable;$lDupCount)
> For ($i;1;Size of array($alDistinctIDs))
> QUERY($oTable->;$oTableID->=$alDistinctIDs{$i})
> If ($lDupCount>1)
> APPEND TO ARRAY($alDuplicateIDs;$alDistinctIDs{$i})
> End if
> End for
> SET QUERY DESTINATION(Into current selection)
> End if
> READ WRITE([Contact_Listing])
> For ($i;1;Size of array($alDuplicateIDs))
> QUERY([Contact_Listing];[Contact_Listing]ID=$alDuplicateIDs{$i})
> While (Not(End selection([Contact_Listing])))
> [Contact_Listing]ID:=Sequence number([Contact_Listing])`HERE IT IS GIVING
> THE SAME SEQUENCE NUMBER TWICE
> SAVE RECORD([Contact_Listing])
> NEXT RECORD([Contact_Listing])
> End while
> End for
> READ ONLY([Contact_Listing])
>
> On Wed, Nov 16, 2016 at 8:05 PM, Alan Chan <a...@belhk.com> wrote:
>
>> 4D iNug Technical <4d_tech@lists.4d.com> writes:
>> >- The Table is Read Write
>> >- SET DATABASE PARAMETER (Table Seq Nr) is set to one above the highest
>> >value
>>
>> Are you sure the table was set as defaulted table? I always include the
>> table parameter.
>> >
>> >- Record is Saved and not is Transaction
>> >
>> You mean the record was not saved in transaction or it was saved but
>> doesn't generate correct sequence number?
>>
>> Alan Chan
>>
>> **********************************************************************
>> 4D Internet Users Group (4D iNUG)
>> FAQ: http://lists.4d.com/faqnug.html
>> Archive: http://lists.4d.com/archives.html
>> Options: http://lists.4d.com/mailman/options/4d_tech
>> Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
>> **********************************************************************
>>
>
>
>
> --
>
> xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> "There must be ingenuity as well as intention, strategy as well as
> strength. "
>
>
--
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
"There must be ingenuity as well as intention, strategy as well as
strength. "
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
