Hello Craig,
Congratulation for your book.

For my problem, I am tired because I do not arrive any more
to reproduce this behavior . Sorry ....:)
All is ok for the moment.

On the other hand I have a new problem.
I open a report.
I Put One the Refresh Button.
I quit and here it tells me "This report hase been modified".
I haven't nothing modified !

bernhart




>What kinds of changes were made to the database?
>
>>Hi all,
>>Bonjour tout le monde,
>>
>>We connects our crystal reports with a remote view.(DNS)
>>I want to check the fields Of my views in the report.
>>I indeed wish to check that there no were changes occurred in the fields.
>>
>>When I use this code, I believe the database is updated , but
>>when I open the report and I check the database, he says to me
>>"database is changed".
>>
>>That is it does not function in my code?
>>

>>
>>LOCAL ocrapplication ,;
>>   ocrreport,;
>>   cName,;
>>   fso,;
>>   cdirectory,;
>>   gnNombreDbc,;
>>   SetOldDefault
>>
>>SetOldDefault = SET("DEFAULT()")
>>
>>cdirectory = "C:\cdbk70\amline\ReportsCrystal"
>>
>>SET DEFAULT TO ( cdirectory )
>>
>>gnNombreDbc = ADIR( gaBaseDonnées, '*.Rpt')  && Crée un tableau
>>SET DEFAULT TO (  SetOldDefault )
>>
>>ocrapplication = CREATEOBJECT('CrystalRuntime.Application.8.5')
>>
>>
>>FOR nCompteur = 1 TO gnNombreDbc     && Effectue une boucle pour connaître le nombre de bases de données
>>   cName = "C:\cdbk70\amline\ReportsCrystal\" + PROPER( gaBaseDonnées( nCompteur , 1 ) )
>>    WAIT WIND cName  NOWAIT     && Affiche le nom des bases de données
>>
>>   ocrreport  = ocrapplication.OpenReport( cName , 1 )
>>   ocrreport.DATABASE.verify()
>>   ocrreport.SAVEAS( cName , 2048 )
>>   ocrreport = .NULL.
>>ENDFOR
>>
>>

>>
>>Merci d'avance.
>>Thnk in advance
>>
>>Bernhart MILCENT.