GET-CHANGES and Dynamic Prodataset

rpigeyre

New Member
Hi!

There are some mistakes using GET-CHANGES and dynamic dataset.

First, I created a dataset with dynamic statements with dynamic temp-tables.
Then, I turned on tracking changes and made some changes.
I created a change data-set with create-like méthod. When I'm using GET-CHANGES method, my change dataset still empty.

I checked this :
Code:
[COLOR=blue][FONT=Arial]mychangedataset:GET-BUFFER-HANDLE(mychangetemptable):TABLE-HANDLE:ORIGIN-HANDLE = myoriginaldataset:GET-BUFFER-HANDLE( mychangetemptable):TABLE-HANDLE[/FONT][/COLOR]

Here is my code and some informations :

Code:
[COLOR=blue][FONT=Arial]DO i =1 TO NUM-ENTRIES( clistbuffer, "," ):
            ASSIGN  cBuffName                                                                   = ENTRY( i,clistbuffer, "," )
                    ttOngletR.hPDS:GET-BUFFER-HANDLE( cBuffName ):TABLE-HANDLE:TRACKING-CHANGES = TRUE.
            ttOngletR.hPDS:GET-BUFFER-HANDLE( cBuffName ):BUFFER-DELETE().
        END.[/FONT][/COLOR]
[COLOR=blue][FONT=Arial][/FONT][/COLOR] 
[COLOR=blue][FONT=Arial]        /* create change dataset */
        CREATE DATASET  lhChangePDS.
        lhChangePDS:CREATE-LIKE(ttOngletR.hPDS, cPrefix).[/FONT][/COLOR]
[COLOR=blue][FONT=Arial]        /* get changes */
        MESSAGE lhChangePDS:GET-CHANGES(ttOngletR.hPDS)  /* returning yes */
            VIEW-AS ALERT-BOX INFO BUTTONS OK.[/FONT][/COLOR]
[COLOR=blue][FONT=Arial]        MESSAGE "Before"    ttOngletR.hPDS:GET-BUFFER-HANDLE( 1 ):TABLE-HANDLE:NAME     ttOngletR.hPDS:GET-BUFFER-HANDLE( 1 ):TABLE-HANDLE:BEFORE-TABLE:HAS-RECORDS SKIP /* returning 1 */
                "Changes"   lhChangePDS:GET-BUFFER-HANDLE( 1 ):TABLE-HANDLE:NAME        lhChangePDS:GET-BUFFER-HANDLE( 1 ):TABLE-HANDLE:HAS-RECORDS
            VIEW-AS ALERT-BOX INFO BUTTONS OK. /* returning 0 */[/FONT][/COLOR]
[COLOR=blue][FONT=Arial]        /* turn off tracking changes on prodataset for choosen table */
        DO i =1 TO NUM-ENTRIES( clistbuffer, "," ):
            ttOngletR.hPDS:GET-BUFFER-HANDLE( ENTRY( i,clistbuffer, "," ) ):TABLE-HANDLE:TRACKING-CHANGES = FALSE.
        END.[/FONT][/COLOR]

Could you help me?

Thank you


 
Top