A) Ouvrir un document attaché sans ouvrir le mémo
par Stéphane
Créer une action "Ouvrir Doc" dans la vue qui présente tous les documents
Copier le code suivant sur l'évènement "Click" de l'action
@Command([EditDocument]);
@Command( [EditGotoField] ; "DocAttache" );
@Command( [EditSelectAll] );
@Command( [AttachmentLaunch] );
@Command([FileCloseWindow])
B) Inhiber la touche "escape", forçer le bouton "enregistrer et fermer"
par Stéphane
a) Créer un masque
b) Copier le code suivant dans l'évènement "PostOpen" du Masque :
@Command( [EditDocument] ; "1" );
FIELD EscapeCheck := EscapeCheck;
@SetField("EscapeCheck";"NoExit")
c) Copier le code suivant dans l'évènement "QueyClose" du Masque :
If Source.FieldGetText("EscapeCheck") <>"OK" Then
Messagebox ("Merci d'utiliser le bouton "Update and Exit" pour sortir !!!")
Continue = False
End If
d) un champ "chpescape" avec "NoExit" comme valeur par défaut
|
