|
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 |
|
|
À 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
Soyez le premier à commenter cet article | Recommandez (0) | Citez cet article sur votre site | Pages vues: 756 |
|
Lire la suite...
|
|
|
|
|
<< Début < Précédente 1 2 3 4 5 6 7 8 Suivante > Fin >>
|
| Résultats 17 - 20 sur 31 |