Вызов трапа
trap(doSend:=tr_s,
mes_id:=msg_id,
str_msg_rus:=trans_str,
enterprice:=ep,
var_name:=vn);
IF trap.complete OR trap.failed THEN
tr_s:=0;
END_IF
EXP файл следует из кодесиса импортировать - project import.
P.S. возможно потребуется допиливать напильником.