Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Check in on shut down
Message
De
08/03/2002 08:05:19
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
 
 
À
08/03/2002 07:54:54
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
Information générale
Forum:
Visual FoxPro
Catégorie:
Source Safe Control
Divers
Thread ID:
00630065
Message ID:
00630096
Vues:
17
>>Yes, I see a way. It shouldn't be too complicated, either.
>>
>>As I said, with Project Hooks. Look at this sample code (that opens the files, for the currently active project), and adapt the corresponding commands, to check in / check out.
>>
>>Use method .CheckIn() instead of .Modify() - see help under "Project Manager Hooks". To check the SCC status, use property SCCStatus.
>>
>>Viele Grüsse, Hilmar.
>>
>>
>>* The following commands modify all forms of the active project,
>>* Except for VFX forms. Useful for a systematic review.
>>
>>clear
>>FOR EACH oFile IN Application.ActiveProject.Files
>>	* For all forms, except, excepto vfx*.scx
>>	if oFile.Type = "K" and left(justfname(oFile.Name),3) # "vfx" && non-VFX Form
>>		* ? justfname(oFile.Name)	&& This would just list the files
>>		oFile.Modify()	&& modify form
>>	endif
>>ENDFOR
>>
>>#IF .F.
>>Codes for types:
>>d	Database
>>D	Free Table
>>Q	Query
>>K	Form
>>R	Report
>>B	Label
>>V	Visual Class Library
>>P	Program
>>L	FLL
>>Z	APP
>>M	Menu
>>T	Text
>>x	Other
>>#ENDIF
>>
>
>Hilmar,
>this is a good solution for elements in a Project. But now update the Project itself?
>
>Agnes

Oh, it seems your original question referred to the checking-in the project itself, and not the contained files. No, sorry, I don't know how to do this.

Hilmar.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform