Case $BTN_GetUser
; => Capture le texte du dernier champ actif de l'application "AR System User"
GUICtrlSetBkColor($BTN_GetUser, 808080)
$ARS_USER = ControlGetText("AR System User", "", "[CLASS:RichEdit20A; INSTANCE:1]")
If $ARS_USER <> "" Then
; => Vérifie si le texte du dernier champ actif de l'application "AR System User" correspond à un code d'utilisateur stantdard (6 caractères: 3 lettres suivi de 3 chiffres)
If StringLen($ARS_USER) = 6 And StringIsAlpha(StringLeft($ARS_USER, 3)) And StringIsDigit(StringRight($ARS_USER, 3)) Then
GUICtrlSetData($INPUT_USERID, $ARS_USER) ; Place le texte capturé dans le champ USERID
ClipPut($ARS_USER) ; Place le texte capturé dans le presse-papier
Else
$NonStandard = MsgBox(64, "Format non standard", "Le champ ARS sélectionné renvoi les données:" & @CRLF & @TAB & $ARS_USER & @CRLF & @CRLF & "Voulez-vous utiliser ces données?")
If $NonStandard = 1 Then
GUICtrlSetData($INPUT_USERID, $ARS_USER) ; Place le texte capturé dans le champ USERID
ClipPut($ARS_USER) ; Place le texte capturé dans le presse-papier
EndIf
EndIf
Else
MsgBox(64, "Erreur", "Le champ ARS sélectionné est vide." & @CRLF & "Veuillez sélectionner les champs 'Code d'utilisateur' ou 'Code demandeur'.")
EndIf
GUICtrlSetStyle($BTN_GetUser, $GUI_SS_DEFAULT_BUTTON)
