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 :
Here is my code and some informations :
Could you help me?
Thank you
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