DomimoD - - Index

Fils des nouvelles

Bizarre, bizarre... Durant ces deux derniers mois, deux de mes amis me disent s'être fait voler de l'argent sur le compte bancaire.

Pour le premier, un achat sur internet payé directement avec le numéro de carte, et pour le second, l'utilisation de son compte paypal pour acheter des items pour des jeux comme lineage....

La seule chose qui raproche ces deux amis étant qu'ils ont loués un serveur sur verygames, l'un avec sa carte bleue, l'autre avec son compte paypal...

Etrange non comme coincidence ?

Soyez le premier à commenter cet article | Recommandez (0) | Citez cet article sur votre site | Pages vues: 714

Lier des documents notes entre eux

À copier dans le QuerySave du masque des documents pères:


Sub Querysave(Source As Notesuidocument, Continue As Variant)
	Dim Ws As New NotesUIWorkspace
	Dim UiDoc As NotesUIDocument
	Dim DocPere As NotesDocument
	Dim DocEnfant As NotesDocument
	Dim ColEnfant As NotesDocumentCollection
	
	Set UiDoc = Ws.CurrentDocument
	Set DocPere = UiDoc.Document
	Set ColEnfant = DocPere.Responses
	
	Set DocEnfant = ColEnfant.GetFirstDocument
	
	Do While (Not DocEnfant Is Nothing)
		Call DocEnfant.ReplaceItemValue("Name", DocPere.Name(0))
		Call DocEnfant.ReplaceItemValue("FirstName", DocPere.FirstName(0))
		Call DocEnfant.ReplaceItemValue("Site", DocPere.Site(0))
		Call DocEnfant.Save(True, False, False)
		Set DocEnfant = ColEnfant.GetNextDocument(DocEnfant)
	Loop
End Sub