YNU_JEUS/app_home/himed/xpapps/crm/cssaxp/xp/SPCIT01900_만족도입력정보.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPCIT01900" position="absolute 0 0 1015 620" titletext="만족도 입력 정보" oninit="SPCIT01900_oninit" onload="SPCIT01900_onload">
    <Layouts>
      <Layout>
        <Shape position="absolute 0 22 1000 28" linetype="horizontal" id="line3" class="line_2"/>
        <Static text="만족도 제목" position="absolute 0 0 100 23" id="caption1" class="cell_1"/>
        <Edit position="absolute 103 3 1007 22" id="input1" enable="false"/>
        <Shape position="absolute 0 48 1008 54" linetype="horizontal" id="line4" class="line_3"/>
        <Static text="설문지" position="absolute 0 26 100 49" id="caption2" class="cell_1"/>
        <Edit position="absolute 103 28 900 47" id="input2" enable="false"/>
        <Button position="absolute 902 28 1007 47" id="button1" class="btn2" text="설문지 미리보기" onclick="button1_onclick"/>
        <Button position="absolute 869 58 933 77" id="button2" class="btn2" text="샘플파일" onclick="button2_onclick"/>
        <Button position="absolute 934 58 1008 77" id="button3" class="btn7" text="엑셀입력" onclick="button3_onclick"/>
        <Shape position="absolute 0 77 1008 83" linetype="horizontal" id="line1" class="line_10"/>
        <Grid position="absolute 0 82 1008 582" id="datagrid1" selecttype="cell" autoenter="select" cellsizingtype="col" binddataset="ds_main_rsltlist_row">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23"/>
              </Columns>
              <Rows>
                <Row size="30" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid position="absolute 0 370 955 570" id="datagrid2" visible="false" binddataset="ds_datagrid2">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="stinseqno"/>
                <Cell col="1" text="qpaprseqno"/>
                <Cell col="2" text="qestitemgrupseqno"/>
                <Cell col="3" text="answprsnseqno"/>
                <Cell col="4" text="qestseqno"/>
                <Cell col="5" text="stintrgtflagcd"/>
                <Cell col="6" text="pid"/>
                <Cell col="7" text="homepgid"/>
                <Cell col="8" text="userid"/>
                <Cell col="9" text="emailaddr"/>
                <Cell col="10" text="qestanswno"/>
                <Cell col="11" text="qestmltlanswno"/>
                <Cell col="12" text="descinptcnts"/>
                <Cell col="13" text="descinptaddcnts"/>
                <Cell col="14" text="qestrspsyn"/>
                <Cell col="15" text="baseqestgrupyn"/>
                <Cell col="16"/>
              </Band>
              <Band id="body">
                <Cell text="bind:stinseqno"/>
                <Cell col="1" text="bind:qpaprseqno"/>
                <Cell col="2" text="bind:qestitemgrupseqno"/>
                <Cell col="3" text="bind:answprsnseqno"/>
                <Cell col="4" text="bind:qestseqno"/>
                <Cell col="5" text="bind:stintrgtflagcd"/>
                <Cell col="6" text="bind:pid"/>
                <Cell col="7" text="bind:homepgid"/>
                <Cell col="8" text="bind:userid"/>
                <Cell col="9" text="bind:emailaddr"/>
                <Cell col="10" text="bind:qestanswno"/>
                <Cell col="11" text="bind:qestmltlanswno"/>
                <Cell col="12" text="bind:descinptcnts"/>
                <Cell col="13" text="bind:descinptaddcnts"/>
                <Cell col="14" text="bind:qestrspsyn"/>
                <Cell col="15" text="bind:baseqestgrupyn"/>
                <Cell col="16" text="bind:rowcount"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid position="absolute 5 215 525 315" id="datagrid3" visible="false" binddataset="ds_main_rsltlist_key">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="100"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="itemkindcd"/>
                <Cell col="1" text="qestitemgrupseqno"/>
                <Cell col="2" text="answprsnseqno"/>
                <Cell col="3" text="qestseqno"/>
              </Band>
              <Band id="body">
                <Cell text="bind:itemkindcd"/>
                <Cell col="1" text="bind:qestitemgrupseqno"/>
                <Cell col="2" text="bind:answprsnseqno"/>
                <Cell col="3" text="bind:qestseqno"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button4" taborder="1" text="저장" class="btn4" position="absolute 443 589 499 611" onclick="button4_onclick"/>
        <Button id="button5" taborder="2" text="취소" class="btn4" position="absolute 502 589 558 611" onclick="button5_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_title" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="stinseqno" type="STRING" size="256"/>
          <Column id="stintitlcnts" type="STRING" size="256"/>
          <Column id="qpaprseqno" type="STRING" size="256"/>
          <Column id="qpaprtitlcnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="stinseqno"/>
            <Col id="stintitlcnts"/>
            <Col id="qpaprseqno"/>
            <Col id="qpaprtitlcnts"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_rsltlist_row" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_qestprvw" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="qpaprseqno" type="STRING" size="256"/>
          <Column id="stinseqno" type="STRING" size="256"/>
          <Column id="mode" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="qpaprseqno"/>
            <Col id="stinseqno"/>
            <Col id="mode">B</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_sendgrd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="stinseqno" type="STRING" size="256"/>
          <Column id="qpaprseqno" type="STRING" size="256"/>
          <Column id="qestitemgrupseqno" type="STRING" size="256"/>
          <Column id="answprsnseqno" type="STRING" size="256"/>
          <Column id="qestseqno" type="STRING" size="256"/>
          <Column id="stintrgtflagcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="homepgid" type="STRING" size="256"/>
          <Column id="userid" type="STRING" size="256"/>
          <Column id="emailaddr" type="STRING" size="256"/>
          <Column id="qestanswno" type="STRING" size="256"/>
          <Column id="qestmltlanswno" type="STRING" size="256"/>
          <Column id="descinptcnts" type="STRING" size="256"/>
          <Column id="descinptaddcnts" type="STRING" size="256"/>
          <Column id="qestrspsyn" type="STRING" size="256"/>
          <Column id="baseqestgrupyn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="stinseqno"/>
            <Col id="qpaprseqno"/>
            <Col id="qestitemgrupseqno"/>
            <Col id="answprsnseqno"/>
            <Col id="qestseqno"/>
            <Col id="stintrgtflagcd"/>
            <Col id="pid"/>
            <Col id="homepgid"/>
            <Col id="userid"/>
            <Col id="emailaddr"/>
            <Col id="qestanswno"/>
            <Col id="qestmltlanswno"/>
            <Col id="descinptcnts"/>
            <Col id="descinptaddcnts"/>
            <Col id="qestrspsyn"/>
            <Col id="baseqestgrupyn"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_grupgrd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="stinseqno" type="STRING" size="256"/>
          <Column id="qpaprseqno" type="STRING" size="256"/>
          <Column id="answprsnseqno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="stinseqno"/>
            <Col id="qpaprseqno"/>
            <Col id="answprsnseqno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_rsltlist_header" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_rsltlist_row" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_rsltlist_key" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_rsltlist_key" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_savedata_grupgrd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_savedata_sendgrd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="input1" propid="value" datasetid="ds_main_title" columnid="stintitlcnts"/>
      <BindItem id="item1" compid="input2" propid="value" datasetid="ds_main_title" columnid="qpaprtitlcnts"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
function SPCIT01900_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPCIT01900_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(datagrid1);
	
	// 부모창의 설문지 일련번호를 가져온다.
	var qpaprseqno = opener.frmf_getParameter("qpaprseqno");
	ds_main_title.setColumn(0, "qpaprseqno", qpaprseqno);
	ds_send_qestprvw.setColumn(0, "qpaprseqno", qpaprseqno);
	
	var stinseqno = opener.frmf_getParameter("stinseqno");
	ds_main_title.setColumn(0, "stinseqno", stinseqno);
	ds_send_qestprvw.setColumn(0, "stinseqno", stinseqno);
	
	var qpaprtitlcnts = opener.frmf_getParameter("qpaprtitlcnts");
	ds_main_title.setColumn(0, "qpaprtitlcnts", qpaprtitlcnts);
	
	var stintitlcnts = opener.frmf_getParameter("stintitlcnts");
	ds_main_title.setColumn(0, "stintitlcnts", stintitlcnts);
	
	ds_hidden_sendgrd.clearData();
	ds_hidden_grupgrd.clearData();
	
	fGetNResultRef();
}

function fGetNResultRef() 
{
	if (ds_main_rsltlist_row.rowcount > 0) 
	{
		ds_main_rsltlist_row.clearData();

		for(var l = 5; l > -1; l--)
		{
			datagrid1.setFormatColProperty(l, "band", "body");
		}

		for (var i = datagrid1.getFormatColCount(); i > 0; i--) 
		{
			datagrid1.deleteContentsCol(i);
		}
	}


	var oParam = {};
		oParam.id          = "TRCIT01901";
		oParam.service     = "cssamngtapp.CssaMngt";
		oParam.method      = "reqGetCsiAnswList2";
		oParam.inds        = "req=ds_send_qestprvw";
		oParam.outds       = "ds_temp_rsltlist_header=header ds_temp_rsltlist_row=row ds_temp_rsltlist_key=key";
		oParam.async       = false;
		//oParam.callback    = "cf_TRCIT01901";

	tranf_submit(oParam);

	var gridCaption = ds_temp_rsltlist_header.getColumn(0, "caption");		
	var gridCaptionArray = gridCaption.split("^")
	if(utlf_isNull(gridCaption)) return;
	//ref 정보
	var gridColRef = ds_temp_rsltlist_header.getColumn(0, "colref");
	var gridColRefArray = gridColRef.split("^");
	
	var gridColType = ds_temp_rsltlist_header.getColumn(0, "type");
	var gridColTypeArray = gridColType.split("^");
	
	for( var i = 0; i < gridColRefArray.length; i++ ) 
	{
		datagrid1.appendContentsCol();
		datagrid1.setFormatColProperty(parseInt(i+1), "size", 90);
		
		datagrid1.setCellProperty("Head", parseInt(i+1), "text", gridCaptionArray[i]);
		datagrid1.setCellProperty("Body", parseInt(i+1), "text", "bind:"+gridColRefArray[i]);
		datagrid1.setCellProperty("Body", parseInt(i+1), "edittype", "normal");
		datagrid1.setCellProperty("Body", parseInt(i+1), "align", "left middle");
		datagrid1.setCellProperty("Body", parseInt(i+1), "padding", "0 0 0 3");
	}	
	
	for(var j = 0; j < 4; j++)
	{
		datagrid1.setFormatColProperty(j, "band", "left");
	}
	
	ds_main_rsltlist_row.copyData(ds_temp_rsltlist_row);
	ds_main_rsltlist_key.copyData(ds_temp_rsltlist_key)
 	// 부모창에서 넘어온 대상자구분 코드
	var stintrgtflagcd = opener.frmf_getParameter("stintrgtflagcd");
	ds_main_rsltlist_row.setColumn(0, "stintrgtflagcd", stintrgtflagcd);
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var qpaprseqno = ds_send_qestprvw.getColumn(0, "qpaprseqno");
	frmf_setParameter("qpaprseqno", qpaprseqno);
	
	frmf_modal("SPCIT00400", "SPCIT00400", "", "", "", "", "", "", "", "", "", "", "M");
	
	frmf_clearParameter("qpaprseqno");
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(datagrid1, "결과입력샘플", "주소록", "true", "", "");
}

function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_ImportExcel("ds_main_rsltlist_row ", 2, datagrid1, 0);
	datagrid1.setFocus();
	
	if (ds_main_rsltlist_row.rowcount > 500) 
	{
		sysf_messageBox("한번에 100 명이 넘는 답변은 저장 ", "E001");
		this.close();
	}
}

function button4_onclick(obj:Button,  e:ClickEventInfo)
{
	var rowCount = ds_main_rsltlist_row.rowcount;
	var saveCount = 0;
	// 사용자 아이디를 검색
	for (var j = 0; j < rowCount; j++) 
	{
		var stintrgtid = ds_main_rsltlist_row.getColumn(j, "stintrgtid");
		if (utlf_isNull(stintrgtid))
		{
			sysf_messageBox("설문지 ID를", "C001");
			saveCount = 0;
			break;
		}
		else 
		{
			saveCount++;
		}
	}
	
	if (saveCount > 0) 
	{
		fSaveMode();
	} 
}

function fSaveMode() 
{
	var chk = ds_temp_rsltlist_header.getColumn(0, "colrefarray");
	var chkArray = chk.split("^");
	var qestCount = chkArray.length-1;
	var rowCount = ds_main_rsltlist_row.rowcount;
	
	var stinseqno = ds_main_title.getColumn(0, "stinseqno");
	var qpaprseqno = ds_main_title.getColumn(0, "qpaprseqno");
	var answprsnseqno = eval(ds_temp_rsltlist_key.getColumn(0, "answprsnseqno"));
	var baseqestgrupyn = "";
	var stintrgtflagcd = "";
	var pid = "";
	var userid = "";
	var rows = "";
	var sColSep = "▦";
	var sRowSep = "▩";
	
	var send_data1 = "m" + sColSep + "stinseqno" + sColSep + "qpaprseqno" + sColSep + "answprsnseqno" + sRowSep; //타이틀 map file 등에서 사용
	var send_data2 = "m" + sColSep + "stinseqno" + sColSep + "qpaprseqno" + sColSep + "qestitemgrupseqno" + sColSep + "answprsnseqno" + 
					sColSep + "qestseqno" + sColSep + "pid" + sColSep + "userid" + sColSep + "stintrgtflagcd" + sColSep + "descinptcnts" + sColSep + "baseqestgrupyn" + 
					sColSep + "qestanswno" + sColSep + "qestmltlanswno" + sColSep + "qestrspsyn" + sRowSep; //타이틀 map file 등에서 사용
	for (var i = 0; i < rowCount; i++) 
	{	// row 개수만큼
		stintrgtflagcd = ds_main_rsltlist_row.getColumn(i, "stintrgtflagcd");
									
		send_data1 += "m" + sColSep + stinseqno + sColSep + qpaprseqno + sColSep + (answprsnseqno+i) + sRowSep;
								
		for (var k = 0; k < qestCount; k++) 
		{	//  문항 개수만큼 
			var qestseqno 			= ds_main_rsltlist_key.getColumn(parseInt(k+1), "qestseqno");
			var qestitemgrupseqno 	= ds_main_rsltlist_key.getColumn(parseInt(k+1), "qestitemgrupseqno");
			var itemkindcd 			= ds_main_rsltlist_key.getColumn(parseInt(k+1), "itemkindcd");
			
			var descinptcnts 		= ds_main_rsltlist_row.getColumn(parseInt(i+1), "descinptcnts"+k);
			var qestanswno 			= ds_main_rsltlist_row.getColumn(parseInt(i+1), "qestanswno"+k);
			var qestmltlanswno 		= ds_main_rsltlist_row.getColumn(parseInt(i+1), "qestmltlanswno"+k);
			
			// 답변자 id 설정
			if (stintrgtflagcd == "1" || stintrgtflagcd == "2" || stintrgtflagcd == "3") 
			{
				pid =  ds_main_rsltlist_row.getColumn(i, "stintrgtid");
			} 
			else 
			{
				userid =  ds_main_rsltlist_row.getColumn(i, "stintrgtid");
			}
			
			if (qestitemgrupseqno == 1) 
			{
				baseqestgrupyn = "Y";
			} 
			else 
			{
				baseqestgrupyn = "N";
			}
			
			if (itemkindcd == "1" || itemkindcd == "6" || itemkindcd == "7" || itemkindcd == "8" || itemkindcd == "10") 
			{
				if (utlf_isNull(qestanswno) || qestanswno == "0") 
				{
					qestanswno = "99";
					qestrspsyn = "N";
				} 
				else 
				{
					qestrspsyn = "Y";
				}
				
			} 
			else if (itemkindcd == "2")
			{
				if (utlf_isNull(qestmltlanswno) || qestmltlanswno == "0") 
				{
					qestmltlanswno = "99";
					qestrspsyn = "N";
				}
				else 
				{
					qestrspsyn = "Y";
				}
			} 
			else if (itemkindcd == "3")
			{
				if (utlf_isNull(qestmltlanswno) || qestmltlanswno == "0") 
				{
					qestmltlanswno = "99:99";
					qestrspsyn = "N";
				} 
				else 
				{
					qestrspsyn = "Y";
				}
			} 
			else 
			{
				if (utlf_isNull(descinptcnts) || descinptcnts == "0") 
				{
					qestanswno = "99";
					qestrspsyn = "N";
				}
				else 
				{
					qestanswno =  "1";
					qestrspsyn = "Y";
				}
			}
			
			send_data2 += "m" + sColSep + stinseqno + sColSep + qpaprseqno + sColSep + qestitemgrupseqno + sColSep + (answprsnseqno+i) + 
					sColSep + qestseqno + sColSep + pid + sColSep + userid + sColSep + stintrgtflagcd + sColSep + descinptcnts + sColSep + baseqestgrupyn + 
					sColSep + qestanswno + sColSep + qestmltlanswno + sColSep + qestrspsyn + sRowSep;
		}
	}
	dsf_setCSVToDs("ds_send_savedata_grupgrd", send_data1);
	dsf_setCSVToDs("ds_send_savedata_sendgrd", send_data2);
	
	var oParam = {};
		oParam.id          = "TXCIT01901";
		oParam.service     = "cssamngtapp.CssaMngt";
		oParam.method      = "reqInsCsiExecAnswData";
		oParam.inds        = "sendgrd=ds_send_savedata_sendgrd grupgrd=ds_send_savedata_grupgrd";
		oParam.outds       = "";
		oParam.async       = false;
		oParam.callback    = "cf_TXCIT01901";

	tranf_submit(oParam);

	ds_hidden_sendgrd.clearData();
	ds_send_savedata_grupgrd.clearData();
	ds_send_savedata_sendgrd.clearData();
}

function cf_TXCIT01901(sSvcId, nErrorCode, sErrorMsg) 
{
    if(nErrorCode < 0) return;
    else
    {
		sysf_messageBox("만족도 답변정보 입력이","I002");
		this.close();
    }
}

function button5_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>