Sap Guixt

1. Intégrer une proposition de texte. Pour assister l’utilisateur lors de la saisie de texte vous proposez plusieurs boutons poussoirs supplémentaires, par lesquels un texte standard peut être intégré dans la fenêtre de saisie de texte. Ce texte peut ensuite est complété ou modifié par l’utilisateur. Le texte standard peut être adapté à la transaction par l’utilisation de variables textes. Il est également possible, selon la nature des données saisies (par exemple priorité)  de proposer un texte  adapté.

GuiXT Script SAPLCOIH.F3000.txt:
if X[LTEXT]
  Pushbutton (7,84) “Proposer texte” process=”propositiontexte.txt”
endif 

InputScript propositiontexte.txt:
Screen saplcoih.3000

Set V[Prio] “&F[Priorité]“
if V[Prio=1]
  CopyText fromTemplate=”iw31text_prio1.txt” toText=”iw31″ 
else
  CopyText fromTemplate=”iw31text.txt” toText=”iw31″ 
endif
CopyText fromText=”iw31″ toScreen=”X[LTEXT]“ 
Enter

Proposition de texte pour la priorité 1 iw31text_prio1.txt:
Remise en état de l’équipement &F[Equipem.]

T r è s u r g e n t

Raison:

2. Saisie de texte dans des transactions à écran unique. En tant qu’exemple nous insérons un bouton poussoir dans la transaction MM02 (Modifier article), par lequel l’utilisateur pourra directement modifier la désignation et la description de l’article.  L’exemple a pour but de montrer la technique; dans les cas concrets d’application il y a souvent d’autres champs à saisir en plus de la description. 

GuiXT Script SAPLMGMM.F0060.txt:
if Q[Transaction=MM02]
  Offset (6,0)
  if V[MM02_AfficherTextbox=X]
    Box (0,0) (17,82) 
    InputField (1,1) “Article &V[MM02_Article]” (2,1) Size=40 name=”MM02_Articletexte”
    TextBox (3,1) (15,80) name=”MM02_text”

    Pushbutton (16,2)  “@2L@Sauvegarder”           process=”MM02_UpdateTexte.txt”
    Pushbutton (16,20) “@42@Lire texte à nouveau”  process=”MM02_LireTexte.txt”
    Pushbutton (1,77)  “@02@”                      process=”MM02_FermerTexte.txt”

  else
    Pushbutton (1,0) “Changer texte et désignation” process=”MM02_LireTexte.txt” size=2
  endif
endif

InputScript MM02_UpdateTexte.txt:
  Set F[Article] “&V[MM02_Article]“
  Enter

Screen SAPLMGMM.0070
  set cell[Table,0,1] “X”
  Enter 

Screen SAPLMGMM.4004
  Enter “=PB26″ 

Screen SAPLMGMM.4300
  Set F[MAKT-MAKTX] “&V[MM02_Articletexte]“
  CopyText toScreen=”X[LONGTEXT_GRUNDD]” fromText=”MM02_text”
  Enter “/11″

InputScript MM02_LireTexte.txt:
Set V[MM02_Article] “&F[Article]“

Screen SAPLMGMM.0070
  set cell[Table,0,1] “X”
  Enter 

Screen SAPLMGMM.4004
  Enter “=PB26″ 

Screen SAPLMGMM.4300
  Set V[MM02_Articletexte] “&F[MAKT-MAKTX]“
  CopyText fromScreen=”X[LONGTEXT_GRUNDD]” toText=”MM02_text”

  Set V[MM02_AfficherTextbox] “X” 
  Enter “/NMM02″

InputScript MM02_FermerTexte.txt:
Set V[MM02_AfficherTextbox] “N”
Enter “/NMM02″