/* ---------------------------------------------------------------------
  
      SMRSC06000_청구자 승인자 등록.xrw (SMRSC06000.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01  
              : Create By  Francis Choi
              : 2015.05.02
   ----------------------------------------------------------------------  */

var gReqFlagPath  = "/root/init/reqflag_data";

var gReqFlagCode  = "A" + "#"          // 의료소모품
			      + "B" + "#"          // 일반소모품
			      + "C" + "#"          // 의료비품
			      + "D" + "#"          // 일반비품
			      + "E" + "#"          // 약품및재료
			      + "F" + "#"          // 제제약품
			      + "G" + "#"          // 장비
			      + "H" + "#"          // 수액
			      + "I" + "#"          // 조영제
			      + "J" + "#"          // 식자재
			      + "S" + "#"          // 수리관리
			      + "T";               // 프로그램개발
var gReqFlag      = gReqFlagCode.split("#");

var reqAprvAuthDeptcd = "";

// --------------------------------------------------   
//  Initialize 등록 정보 
// --------------------------------------------------   
function fInitNewReqAprv() {
	// 화면 Control을 초기화한다
	// grp_newdata.disabled = true;
	
	ipt_emplno.disabled  = true;    // 사원번호
	btn_winpsn.disabled  = true;    // 사원번호 돋보기 
	btn_save.disabled    = true;    // 저장버튼
	
	model.setValue(gReqFlagPath + "/instcd"  , getUserInfo("dutplceinstcd"));
	
	model.setValue(gReqFlagPath + "/deptcd"  , "");
	model.setValue(gReqFlagPath + "/deptnm"  , "");
	model.setValue(gReqFlagPath + "/emplno"  , "");
	model.setValue(gReqFlagPath + "/emplnonm", "");
	model.setValue(gReqFlagPath + "/reqnewyn", "0");
	
	for (var i=0; i < gReqFlag.length; i++) {
		model.setValue(gReqFlagPath + "/reqflag_"      + gReqFlag[i],"");
		model.setValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i],"0");
		model.setValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i],"0");
		model.setValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i],"0");
		
		model.setValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]+"_OLD","0");
		model.setValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]+"_OLD","0");
		model.setValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]+"_OLD","0");
	}
}
 
function fButtonBlocking(pFlag) {
	if (pFlag == "2") {
		ipt_deptcd.disabled = false;    // 청구부서
		ipt_emplno.disabled = false;    // 사원번호
		btn_windept.disabled = false;   // 청구부서 돋보기 
		btn_winpsn.disabled = false;    // 사원번호 돋보기 
		btn_save.disabled   = false;    // 저장버튼
	} else {    
		ipt_deptcd.disabled = true;    // 청구부서
		ipt_emplno.disabled = true;    // 사원번호
		btn_windept.disabled = true;   // 청구부서 돋보기 
		btn_winpsn.disabled = true;    // 사원번호 돋보기 
		btn_save.disabled   = true;    // 저장버튼
		fInitNewReqAprv();
	}				
}    

function fSetAllRefFlag(pFlag) {
	for (var i=0; i < gReqFlag.length; i++) {
		if(pFlag == null || pFlag == "") {
			model.setValue(gReqFlagPath + "/reqflag_"      + gReqFlag[i], "");
			model.setValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i], "0");
			model.setValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i], "0");
			model.setValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i], "0");
		} else {
			model.setValue(gReqFlagPath + "/reqflag_"      + gReqFlag[i], gReqFlag[i]);
			model.setValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i], pFlag);
			model.setValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i], pFlag);
			model.setValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i], pFlag);
		}
	}
	grp_newdata.refresh();
}

function fResetRefFlag() {
	for (var i=0; i < gReqFlag.length; i++) {
		model.setValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i], model.getValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]+"_OLD"));
		model.setValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i], model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]+"_OLD"));
		model.setValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i], model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]+"_OLD"));
		if(	   model.getValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]) == "0"
			&& model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]) == "0"
			&& model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]) == "0") {
			model.setValue(gReqFlagPath + "/reqflag_"      + gReqFlag[i], "");
		} else {
			model.setValue(gReqFlagPath + "/reqflag_"      + gReqFlag[i], gReqFlag[i]);
		}
	}
	grp_newdata.refresh();
}

function fChangeRefFlag(pFlag) {
	if (model.getValue(gReqFlagPath + "/reqnewyn") != "9") {
		model.setValue(gReqFlagPath + "/reqnewyn", "1");
	}
	
	if (eval("chk_reqflag_"+pFlag).value == "") {
		model.setValue(gReqFlagPath + "/reqflag_"      + pFlag, "");
		model.setValue(gReqFlagPath + "/reqaprvflag1_" + pFlag, "0");
		model.setValue(gReqFlagPath + "/reqaprvflag2_" + pFlag, "0");
		model.setValue(gReqFlagPath + "/reqaprvflag4_" + pFlag, "0");
	} else {
		model.setValue(gReqFlagPath + "/reqaprvflag1_" + pFlag, "1");
		model.setValue(gReqFlagPath + "/reqaprvflag2_" + pFlag, "1");
		model.setValue(gReqFlagPath + "/reqaprvflag4_" + pFlag, "1");
	}	
	
	eval("chk_reqflag_"     +pFlag).refresh();        // 청구구분 
	eval("rdo_reqaprvflag1_"+pFlag).refresh();    // 승인구분 
	eval("rdo_reqaprvflag2_"+pFlag).refresh();    // 승인구분 
	eval("rdo_reqaprvflag4_"+pFlag).refresh();    // 승인구분 
}  

function fChangeReqaprvflag(pFlag) {
	var oriValue = model.getValue(gReqFlagPath + "/reqaprvflag1_" + pFlag);
	model.setValue(gReqFlagPath + "/reqaprvflag2_" + pFlag, oriValue);
	model.setValue(gReqFlagPath + "/reqaprvflag4_" + pFlag, oriValue);
	eval("rdo_reqaprvflag2_"+pFlag).refresh();
	eval("rdo_reqaprvflag4_"+pFlag).refresh();

	if (model.getValue(gReqFlagPath + "/reqaprvflag1_" + pFlag) == "0" &&
		model.getValue(gReqFlagPath + "/reqaprvflag2_" + pFlag) == "0" &&
		model.getValue(gReqFlagPath + "/reqaprvflag4_" + pFlag) == "0"    ) {
		model.setValue(gReqFlagPath + "/reqflag_"      + pFlag, "");
	} else {
		model.setValue(gReqFlagPath + "/reqflag_"      + pFlag, pFlag);
	}	   
        	
	eval("chk_reqflag_"     +pFlag).refresh();        // 청구구분
}      
 
function fTitleChange() {
	var vTitle1 = "청구부서";
	var vTitle2 = "사원번호";
	
	if (rdo_sortflag.value == "2") {
		vTitle1 = "사원번호";
		vTitle2 = "청구부서";
	}	
	
	grd_reqpsnlist.valueMatrix(0,1) = vTitle1;
	grd_reqpsnlist.valueMatrix(0,2) = vTitle1;
	//grd_reqpsnlist.valueMatrix(1,1) = vTitle1;
	//grd_reqpsnlist.valueMatrix(1,2) = vTitle1;
	
	grd_reqpsnlist.valueMatrix(0,3) = vTitle2;
	grd_reqpsnlist.valueMatrix(0,4) = vTitle2;
	//grd_reqpsnlist.valueMatrix(1,3) = vTitle2;
	//grd_reqpsnlist.valueMatrix(1,4) = vTitle2;
	
	grd_reqpsnlist.refresh();
}      

//--------------------------------------------------------------   
//화면 open시와 초기화 버튼 클릭시 화면 초기화 기능을 수행한다.
//--------------------------------------------------------------   
function fInitialize() {   
	misfGridInit(grd_reqpsnlist); //그리드 초기화
	model.resetInstanceNode("/root/send");
	
	misfMsterDetailSet(grd_reqpsnlist, null, "TRRSC06002","Y"); //마스터 설정         
	
	model.setValue(opt_instcd.attribute("ref")          , getUserInfo("dutplceinstcd"));    // 기관코드
	model.setValue(opt_instcdnm.attribute("ref")        , getUserInfo("dutplceinstnm"));    // 기관명칭
	// model.setValue(ipt_reqdeptcd.attribute("ref")       , getUserInfo("dutplcecd"));        // 부서코드
	// model.setValue(ipt_reqdeptnm.attribute("ref")       , getUserInfo("dutplcenm"));        // 부서명칭 
	
	// model.setValue(ipt_search_emplno.attribute("ref")   , getUserInfo("userid"));           // 사용자
	// model.setValue(ipt_search_emplnonm.attribute("ref") , getUserInfo("usernm"));           // 사용자명칭 
	
	rszfReqFlagComboComCdList(getUserInfo("userid"), cmb_reqflag, "Y", opt_instcd.value); //청구구분
	
	grd_reqpsnlist.colDisabled(grd_reqpsnlist.colRef("reqflag"     ))  = true;
	grd_reqpsnlist.colDisabled(grd_reqpsnlist.colRef("reqaprvflag1"))  = true;
	grd_reqpsnlist.colDisabled(grd_reqpsnlist.colRef("reqaprvflag1")+1)= true;
	grd_reqpsnlist.colDisabled(grd_reqpsnlist.colRef("reqaprvflag2"))  = true;
	grd_reqpsnlist.colDisabled(grd_reqpsnlist.colRef("reqaprvflag2")+1)= true;
	grd_reqpsnlist.colDisabled(grd_reqpsnlist.colRef("reqaprvflag4"))  = true;
	grd_reqpsnlist.colDisabled(grd_reqpsnlist.colRef("reqaprvflag4")+1)= true;
	
	reqAprvAuthDeptcd = "";
	
	model.refresh();        
	
	// rdo_sortflag.select(1);

	btn_psnsearch.dispatch("DOMActivate");
}
      
//Grid Click 
function DataGridClick(){
	if (grd_reqpsnlist.row <  grd_reqpsnlist.fixedRows) {
		return;
	}
				  
	// 사번 CHECK
	if  (model.getValue(gReqFlagPath + "/emplno") ==  
			model.getValue(grd_reqpsnlist.nodeset+"["+(grd_reqpsnlist.row)+"]/emplno") &&
			model.getValue(gReqFlagPath + "/deptcd") ==  
			model.getValue(grd_reqpsnlist.nodeset+"["+(grd_reqpsnlist.row)+"]/reqdeptcd")) {
		return;
	}	
				  
	// 신규 추가 작업중
	if (model.getValue(gReqFlagPath + "/reqnewyn") != "0") {
		var ret = messageBox("작업중인 내용이 있습니다. ","Q003");
		if (ret != 6) { // not OK
			return;
		}
	}
          
	// 화면 Control을 초기화한다
	// grp_newdata.disabled = false;
        
	ipt_emplno.disabled  = true;    // 사원번호
	btn_winpsn.disabled  = true;    // 사원번호 돋보기 
	btn_save.disabled    = false;   // 저장버튼
	
	var Idx         = grd_reqpsnlist.row;        
	var Idx2        = grd_reqpsnlist.row;        
	var vInstcd     = model.getValue(grd_reqpsnlist.nodeset+"["+ Idx +"]/instcd"   );
	var vReqdeptcd  = model.getValue(grd_reqpsnlist.nodeset+"["+ Idx +"]/reqdeptcd");
	var vEmplno     = model.getValue(grd_reqpsnlist.nodeset+"["+ Idx +"]/emplno"   );
	
	model.setValue(gReqFlagPath + "/instcd"  , vInstcd   );
	model.setValue(gReqFlagPath + "/deptcd"  , vReqdeptcd);
	model.setValue(gReqFlagPath + "/emplno"  , vEmplno   );
	model.setValue(gReqFlagPath + "/deptnm"  , model.getValue(grd_reqpsnlist.nodeset+"["+ Idx +"]/reqdeptnm"));
	model.setValue(gReqFlagPath + "/emplnonm", model.getValue(grd_reqpsnlist.nodeset+"["+ Idx +"]/emplnonm" ));
	
	model.setValue(gReqFlagPath + "/reqnewyn", "0");

	for (var i=0; i < gReqFlag.length; i++){
		if (gReqFlag[i] == model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx2 +"]/reqflag")) {
			break;
		}	
		Idx--;
	}	
          
	// alert(Idx2+"=="+Idx);
	for (var i=0; i < gReqFlag.length; i++){    
		var d_testgReqFlag = gReqFlag[i];
		var d_testreqflag = model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqflag");
		if( gReqFlag[i] == model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqflag") ) {
			model.setValue(gReqFlagPath + "/reqflag_" + gReqFlag[i], "");
			
			if (	model.getValue(grd_reqpsnlist.nodeset + "["+ Idx +"]/reqaprvflag1")!="0" ||
					model.getValue(grd_reqpsnlist.nodeset + "["+ Idx +"]/reqaprvflag2")!="0" ||
					model.getValue(grd_reqpsnlist.nodeset + "["+ Idx +"]/reqaprvflag4")!="0"   ) {
				var d_reqflag = model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqflag");
			    model.setValue(gReqFlagPath + "/reqflag_" + gReqFlag[i], model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqflag"));
			}    	
	        
			var d_reqaprvflag1 = model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag1");
			var d_reqaprvflag2 = model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag2");
			var d_reqaprvflag4 = model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag4");
			model.setValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]       , model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag1"));
			model.setValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]       , model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag2"));
			model.setValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]       , model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag4"));
			model.setValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]+"_OLD", model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag1"));
			model.setValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]+"_OLD", model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag2"));
			model.setValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]+"_OLD", model.getValue(grd_reqpsnlist.nodeset+ "["+ Idx +"]/reqaprvflag4"));
			
			Idx++;
	    }
	}
	grp_newdata.refresh();
	
	fGetReqAprvAuthPsnList();
}


var vSaveData    = "";                        // Send Data
//-----------------------------------
// 입고 검수 확인  저장
//-----------------------------------
function fSaveDataConcatenate(pStat, pInstcd, pReqdeptcd, pEmplno, pReqflag, pReqprid, pReqaprvflag){     

         vSaveData += pStat          + "▦"   // 01 구분       
                    + pInstcd        + "▦"   // 03 기관코드                             
                    + pEmplno        + "▦"   // 04 사원번호                             
                    + pReqdeptcd     + "▦"   // 05 청구부서                             
                    + pReqflag       + "▦"   // 06 청구구분                             
                    + pReqprid       + "▦"   // 07 청구주기                             
                    + pReqaprvflag   + "▦"   // 02 승인구분                             
                    + pReqprid       + "▩";  // 08 청구주기OLD                 
}

//-----------------------------------
// 청구권자/ 청구부서 승인자 저장
//-----------------------------------
function fCheckPersonSave(){     
          
	if (model.getValue(gReqFlagPath + "/emplno") == "") {
		alert("사원번호를 입력 하십시요!!");
		return;
	}	
        	
	if (model.getValue(gReqFlagPath + "/emplnonm") == "") {
		var ret = messageBox("사원명이 없습니다. ","Q003");
		if (ret != 6) { // not OK
			return;
		}
	}
          
	var vCnt        = 0 ; 
	var vStatus     = "";
	var tPath       = "/root/send/reqpsnlists";
	var tPath2      = "/root/send/reqpsnlists/reqpsnlist";
 	                        
	var vInstcd     = model.getValue(gReqFlagPath + "/instcd");
	var vReqdeptcd  = model.getValue(gReqFlagPath + "/deptcd");
	var vEmplno     = model.getValue(gReqFlagPath + "/emplno");
	var vEmplnonm   = model.getValue(gReqFlagPath + "/emplnonm");
	var vReqaprvflag= "";
	
	vSaveData  = "";                        // Send Data
	
	for (var i=0; i < gReqFlag.length; i++){
	    // 일청구 	
	    if (model.getValue(gReqFlagPath + "/reqaprvflag1_"     + gReqFlag[i]       ) !=
	        model.getValue(gReqFlagPath + "/reqaprvflag1_"     + gReqFlag[i]+"_OLD")    ) {
	        	
	        if (model.getValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]) == "0"){
	            vStatus = "d";
	            vReqaprvflag = model.getValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]+"_OLD");    
	        } else {    
	            vReqaprvflag = model.getValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]);
	            if (model.getValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]) == "2") {
	            	if(!fCheckAprvAuth()) {
	            		messageBox("청구 승인","E002");
	            		return;
	            	}
	            }
	            if (model.getValue(gReqFlagPath + "/reqaprvflag1_" + gReqFlag[i]+"_OLD") == "0"){
	                vStatus = "i";
	            } else {
	                vStatus = "u";
	            }	
	        }	
	        
	        fSaveDataConcatenate(vStatus, vInstcd, vReqdeptcd, vEmplno, gReqFlag[i], "1",  vReqaprvflag);    
	        vCnt++;
	    } 
	       	
	    // 주 청구 	
	    if (model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]       ) !=
	        model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]+"_OLD")    ) {
	        if (model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]) == "0"){
	            vStatus = "d";
	            vReqaprvflag = model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]+"_OLD");    
	        } else {    
	            vReqaprvflag = model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]);    
	            if (model.getValue(gReqFlagPath + "/reqaprvflag2_" + gReqFlag[i]+"_OLD") == "0"){
	                vStatus = "i";
	            } else {
	                vStatus = "u";
	            }	
	        }	
	        
	        fSaveDataConcatenate(vStatus, vInstcd, vReqdeptcd, vEmplno, gReqFlag[i], "2",  vReqaprvflag);    
	        vCnt++;
	    }

	    // 월 청구 	
	    if (model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]       ) !=
	        model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]+"_OLD")    ) {
	        if (model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]) == "0"){
	            vStatus = "d";
	            vReqaprvflag = model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]+"_OLD");    
	        } else {    
	            vReqaprvflag = model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]);    
	            if (model.getValue(gReqFlagPath + "/reqaprvflag4_" + gReqFlag[i]+"_OLD") == "0"){
	                vStatus = "i";
	            } else {
	                vStatus = "u";
	            }	
	        }	
	        
	        fSaveDataConcatenate(vStatus, vInstcd, vReqdeptcd, vEmplno, gReqFlag[i], "4",  vReqaprvflag);    
	        vCnt++;
	    }    	
	}
	
	if (vCnt > 0) {
	    var vSaveHead    = "status"          + "▦"   // 01 구분       
	                     + "instcd"          + "▦"   // 03 기관코드                             
	                     + "emplno"          + "▦"   // 04 사원번호                             
	                     + "reqdeptcd"       + "▦"   // 05 청구부서                             
	                     + "reqflag"         + "▦"   // 06 청구구분                             
	                     + "reqprid"         + "▦"   // 07 청구주기                             
	                     + "reqaprvflag"     + "▦"   // 02 승인구분                             
	                     + "reqpridold"      + "▩";  // 08 청구주기OLD                          \
		
	    model.removenode(tPath);
	    model.makeValue(tPath2, vSaveHead+vSaveData); 
	    
	    submit("TXRSC06002");
	    
	    btn_search.dispatch("DOMActivate");										
	}
}

// 부서별 승인권한 사원 리스트 조회(해당부서 or 상위부서에 직위가 있는 사원)
function fGetReqAprvAuthPsnList() {
	var deptcd = model.getValue("/root/init/reqflag_data/deptcd");
	if(reqAprvAuthDeptcd == "" || reqAprvAuthDeptcd != deptcd) {
		reqAprvAuthDeptcd = deptcd;
		if(submit("TRRSC06003")) {
			
		} else {
			return;
		}
	}
	
	if(fCheckAprvAuth()) {
		fSetAprvAuth(true);
	} else {
		fSetAprvAuth(false);
	}
}

// 승인권 권한 체크
function fCheckAprvAuth() {
	var psnid = model.getValue("/root/init/reqflag_data/emplno");
	if(getUserInfo("userid") == "MIS") return true;
	if(instance1.selectNodes("/root/main/reqaprvauthpsnlist[userid='" + psnid + "']").length > 0) return true;
	
	return false;
}

// 승인권한 셋팅
function fSetAprvAuth(state) {
	btn_allaprv.disabled = !state;
	
	var comment = ""; 
	var psnid = model.getValue("/root/init/reqflag_data/emplno");
	var nodepath = "/root/main/reqaprvauthpsnlist[userid='" + psnid + "']";
	
	if(instance1.selectNodes(nodepath).length > 0) {
		comment = "[승인권] - " + instance1.selectSingleNode(nodepath + "/deptnm").text + " " + instance1.selectSingleNode(nodepath + "/jobposnm").text;
	} else {
		comment = "[청구권]";
	}
	opt_reqaprvauth.value = comment;
}
/* ------------------------------------------------- */
/* ------End Of List ------------------------------- */
/* ------------------------------------------------- */