El cliente de ClearQuest y el cliente de ClearQuest Web 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 añada aquí el código de enganche
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("WARNING",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