Los clientes de ClearQuest para web y Eclipse permiten que los enganches presenten mensajes de alerta de error, aviso e información a los usuarios incluyendo los parámetros del mensaje de alerta en un mensaje de error normal de enganche. No obstante, como es posible que el cliente de ClearQuest para Windows client, los scripts creados por el usuario y los clientes antiguos no reconozcan los parámetros de los mensajes de alerta, es aconsejable que añada a su esquema el enganche global que se encuentra más abajo, y que acceda a esta función a través del enganche. Si el cliente no da soporte a mensajes personalizados, el enganche utiliza los parámetros de mensajes en una sentencia die normal. Si el cliente no da soporte a mensajes personalizados, el enganche utiliza la función DieWithCustomMessage.
Se puede llamar a la función DieWithCustomMessage que se encuentra más abajo desde cualquier lugar donde se pueda utilizar una sentencia die, y tendrá el mismo efecto que una sentencia die en la operación actual. Por ejemplo, al invocar la función DieWithCustomMessage desde un enganche de control de acceso se indicará un error exactamente de la misma manera que lo haría una sentencia die, pero con un mensaje personalizado.
Para obtener instrucciones sobre cómo descargar el código de enganche global, consulte la nota técnica 1322606 en http://www.ibm.com/support/docview.wss?&rs=939&uid=swg21322606.
sub Defect_generate_error_message { my($result); my($param) = @_; # record type name is Defect $error_summary="ReturnCustomErrorMessage"; $error_details="Mensaje de error: ¡Si pulsa este botón se activará un virus informático!; # $result=&DieWithCustomMessage($error_summary,$error_details,"ERROR"); DieWithCustomMessage("ERROR",$error_summary, $error_details); return $result; }
sub Defect_generate_warning_message { my($result); my($param) = @_; # record type name is Defect $error_summary="ReturnCustomWarningMessage"; $error_details="Mensaje de aviso: ¡No fume en la oficina!; DieWithCustomMessage("AVISO",$error_summary, $error_details); return $result; }
sub Defect_generate_info_message { my($result); my($param) = @_; # record type name is Defect $error_summary="ReturnCustomInfoMessage"; $error_details="Mensaje informativo: Bienvenidos a Pekín!"; DieWithCustomMessage("INFO",$error_summary, $error_details); return $result; }
Function recordtype_ErrorMessage(param) ' param As Variant ' record type name is recordtype REM add your hook code here Dim error_summary Dim error_details error_summary="ReturnCustomErrorMessage" error_details="Mensaje de error: ¡Si pulsa este botón se activará un virus informático! ' $result=&DieWithCustomMessage($error_summary, $error_details,"ERROR"); call DieWithCustomMessage("ERROR",error_summary, error_details) End Function
Function recordtype_WarningMessage(param) ' param As Variant ' record type name is recordtype REM add your hook code here Dim error_summary Dim error_details error_summary="ReturnCustomWarningMessage" error_details="Mensaje de aviso: ¡No fume en la oficina! call DieWithCustomMessage("AVISO",error_summary, error_details) End Function
Function recordtype_InfoMessage(param) ' param As Variant ' record type name is recordtype REM add your hook code here Dim error_summary Dim error_details error_summary="ReturnCustomInfoMessage" error_details="Mensaje informativo: Bienvenidos a Pekín!" call DieWithCustomMessage("INFO",error_summary, error_details) End Function