SAP CRM呼叫中心里回复社交媒体信息的实现源代码

<%@page language="abap" %>
<%@extension name="thtmlb" prefix="thtmlb" %>
<%@extension name="chtmlb" prefix="chtmlb" %>
<%@extension name="bsp" prefix="bsp" %>
<%
  data: lv_send_btn type string.
  data: lv_title_prefix type string,
  lv_replyid type string.
  lv_send_btn = cl_wd_utilities=>get_otr_text_by_alias( 'CRM_UIU_SOC_SMC/SEND_BUTTON' ). "#EC NOTEXT.
  lv_replyid = '_socialpost_struct.content'.
  lv_title_prefix = cl_wd_utilities=>get_otr_text_by_alias( 'CRM_UIU_SOC_SMC/COUNTER_TXT' ). "#EC NOTEXT.
  lv_title_prefix = lv_title_prefix && ':'.
  lv_replyid = controller->component_id && lv_replyid.
%>
<chtmlb:config displayMode = "<%= controller->view_group_context->is_view_in_display_mode( controller ) %>"
               mode        = "RUNTIME"
               xml         = "<%= controller->configuration_descr->get_config_data( ) %>" />
<p id="COUNTER_TXT"  style="margin-left: 8px; margin-top: 1px; margin-bottom: 4px; margin-right: 8px; color:rgb(102,102,102)"></p>
<p>
   
<thtmlb:button design  = "EMPHASIZED"
               id      = "SEND_BTN"
               onClick = "send"
               text    = "<%= lv_send_btn %>" />
  </P>
<script type="text/javascript">
  var content;
  var counter;
  var cur_pos;
  function forwardStdResponseText(reqObj) {
   insertText(reqObj);
  }
  function forwardStdResponseTextDelayed(reqObj) {
   insertText(reqObj, true);
}
function insertText(reqObj, delayed) {
var textcontent = reqObj.request.responseText;
 if (!delayed){
  insertTextIntoTextEditor( textcontent);
}else{
<%--restoreBTFCursorPosition();
insertTextIntoTextEditor( textcontent);--%>
document.getElementById( "<%= lv_replyid %>" ).value = document.getElementById( "<%= lv_replyid %>" ).value + reqObj.request.responseText;
  }
  refreshCounter();
}

function TrimLeadingSpace(texttotrim)
{
  var currchar;
 var spaceindex = 0;
 currchar = texttotrim.substr(0, 1);
 while(currchar==" ")
 {
   spaceindex = spaceindex + 1;
   currchar = texttotrim.substr(spaceindex, 1);

 }
 var substrlen = texttotrim.length - spaceindex;

 var trimmedtext = texttotrim.substr(spaceindex, substrlen);
 alert(trimmedtext);
 return trimmedtext;
}

 function storeBTFCursorPosition(){
     var cursorPos = 0;
     var textarea1 = document.getElementById("<%= lv_replyid %>");
     var range;
     var textvalue;
     textvalue = textarea1.value;
     textarea1.focus();
     range = document.selection.createRange();
     range.moveStart('character', -textarea1.value.length);
     var trimmedtxt = TrimLeadingSpace(range.text);
     var spacefromuser = textvalue.search(trimmedtxt);     
     cursorPos = spacefromuser + trimmedtxt.length;
     alert(spacefromuser);
     alert(trimmedtxt.length);
     return cursorPos;
   }

function restoreBTFCursorPosition(){
   var texta1 = document.getElementById("<%= lv_replyid %>");
   var range;
   var curpos = cur_pos;
   texta1.focus();
   range = document.selection.createRange();
   range.moveStart( 'character', texta1.value.length );
   range.moveEnd( 'character', texta1.value.length );
   range.moveStart( 'character', curpos );
   range.moveEnd( 'character', 0 );
   range.select();
  }
function insertTextIntoTextEditor( textToInsert ){
     var text_area = document.getElementById( "<%= lv_replyid %>" );
     text_area.focus();
     if(document.selection)
     {
     document.selection.createRange().text = textToInsert;
     }     
}
<%-- below functions are for, reply text counter implementation --%>
  function refreshCounter()
  {
    var sCount = "<%= lv_title_prefix %>" + content.value.length;
    counter.innerHTML = sCount;
  }
  function fillTitle()
  {
    var textvalue;
    textvalue = document.getElementById("<%= lv_replyid %>").value;
    counter.innerHTML = "<%= lv_title_prefix %>" + textvalue.length;
  }
  if( "<%= controller->mv_switch_on %>" == "X" )
  {
      content = document.getElementById("<%= lv_replyid %>");
      counter = document.getElementById("COUNTER_TXT");
      if( content != null )
      {
        content.onkeyup = refreshCounter;
        content.onmouseout = refreshCounter;
        content.onmousemove = refreshCounter;
      }
      fillTitle();
  }
</script>
<%
  DATA: ls_header type CRMT_THTMLB_AREA_FRAME_HEAD.
  ls_header-title = 'Conversation History'.
%>
<thtmlb:splitter splitterPosition = "65%"
                 height           = "100%" >
  <thtmlb:grid cellSpacing = "0"
               columnSize  = "2"
               height      = "100%"
               rowSize     = "1"
               width       = "100%" >
    <thtmlb:gridCell colSpan     = "1"
                     columnIndex = "1"
                     rowIndex    = "1"
                     height      = "100%"
                     rowSpan     = "1" >
      <thtmlb:splitterCell minSize = "20%"
                           vAlign  = "top"
                           align   = "left" >
        <bsp:call comp_id = "<%= controller->GET_VIEWAREA_CONTENT_ID( 'PostDetails' ) %>"
                  url     = "<%= controller->GET_VIEWAREA_CONTENT_URL( 'PostDetails' ) %>" />
        <bsp:call comp_id = "<%= controller->GET_VIEWAREA_CONTENT_ID( 'OverviewPage' ) %>"
                  url     = "<%= controller->GET_VIEWAREA_CONTENT_URL( 'OverviewPage' ) %>" />
        <div id = "div1" style="display:block; margin-top: 10px">
        <thtmlb:areaFrame id            = "areaFrame1"
                          header        = "<%= ls_header %>"
                          isCollapsible = "true"
                          checkContent  = "true"
                          lateRendering = "true" >
          <thtmlb:areaFrameBody contentBorder="false" >
            <bsp:call comp_id = "<%= controller->GET_VIEWAREA_CONTENT_ID( 'ConversationHistory' ) %>"
                      url     = "<%= controller->GET_VIEWAREA_CONTENT_URL( 'ConversationHistory' ) %>" />
          </thtmlb:areaFrameBody>
        </thtmlb:areaFrame>
        </div>
      </thtmlb:splitterCell>
    </thtmlb:gridCell>
    <thtmlb:gridCell colSpan     = "1"
                     columnIndex = "2"
                     rowIndex    = "1"
                     height      = "100%"
                     rowSpan     = "1" >
      <thtmlb:splitterCell minSize = "20%"
                           vAlign  = "top"
                           align   = "left" >
        <bsp:call comp_id = "<%= controller->GET_VIEWAREA_CONTENT_ID( 'PostDetails' ) %>"
                  url     = "<%= controller->GET_VIEWAREA_CONTENT_URL( 'PostDetails' ) %>" />
      </thtmlb:splitterCell>
    </thtmlb:gridCell>
  </thtmlb:grid>
</thtmlb:splitter>

<%@page language="abap" %>
<%@extension name="thtmlb" prefix="thtmlb" %>
<%@extension name="chtmlb" prefix="chtmlb" %>
<%@extension name="bsp" prefix="bsp" %>
<%
  DATA: ls_header type CRMT_THTMLB_AREA_FRAME_HEAD.
  IF controller->MV_CONV_HISTORY_SWITCH_ON = abap_true.
  ls_header-title = cl_wd_utilities=>get_otr_text_by_alias( 'CRM_UIU_SOC_SMC/REPLY_CONV_HISTORY' ).
  ENDIF.
%>
<thtmlb:grid cellSpacing = "0"
             columnSize  = "1"
             height      = "100%"
             rowSize     = "3"
             width       = "100%" >
  <thtmlb:gridCell colSpan     = "1"
                   columnIndex = "1"
                   rowIndex    = "1"
                   height      = "100%"
                   rowSpan     = "1" >
    <bsp:call comp_id = "<%= controller->GET_VIEWAREA_CONTENT_ID( 'PostDetails' ) %>"
              url     = "<%= controller->GET_VIEWAREA_CONTENT_URL( 'PostDetails' ) %>" />
  </thtmlb:gridCell>
  <thtmlb:gridCell colSpan     = "1"
                   columnIndex = "1"
                   rowIndex    = "2"
                   height      = "100%"
                   rowSpan     = "1" >
    <bsp:call comp_id = "<%= controller->GET_VIEWAREA_CONTENT_ID( 'OverviewPage' ) %>"
              url     = "<%= controller->GET_VIEWAREA_CONTENT_URL( 'OverviewPage' ) %>" />
  </thtmlb:gridCell>
  <%
  IF controller->MV_CONV_HISTORY_SWITCH_ON eq abap_true.
  %>
  <thtmlb:gridCell colSpan     = "1"
                   columnIndex = "1"
                   rowIndex    = "3"
                   height      = "100%"
                   rowSpan     = "1" >
    <div style="display:block; margin-top: 5px">
    <thtmlb:areaFrame id            = "areaFrame1"
                      header        = "<%= ls_header %>"
                      isCollapsible = "true"
                      checkContent  = "true"
                      lateRendering = "true" >
      <thtmlb:areaFrameBody contentBorder="false" >
        <bsp:call comp_id = "<%= controller->GET_VIEWAREA_CONTENT_ID( 'ConversationHistory' ) %>"
                  url     = "<%= controller->GET_VIEWAREA_CONTENT_URL( 'ConversationHistory' ) %>" />
      </thtmlb:areaFrameBody>
    </thtmlb:areaFrame>
  </thtmlb:gridCell>
  <%
  ENDIF.
  %>
</thtmlb:grid>