//º¯¼ö¼±¾ð
var prcpclscd = 2;
var prcpKindCdCol = 3;   //ó¹æÁ¾·ù index
var prcpnmCol = 5;       //ó¹æ¸í Ä÷³ index
var prcpVolCol = 6;      //¿ë·® Ä÷³ index
var prcpQtyCol = 8;      //¼ö·® Ä÷³ index
var prcpTimsCol = 10;    //Ƚ¼ö Ä÷³ index
var prcpDayNoCol = 11;   //Àϼö Ä÷³ index
var prcpDeliveFactCol = 15; //Àü´Þ»çÇ× Ä÷³ index
var prcpHopeHdCol = 18;  //Èñ¸ÁÀÏÀÚ Ä÷³ index
var ContPrcpDdRow = 6; //ÁöÁ¤ÀÏ instance row

var prcpNode = "/root/main/prcp/prcplist";
var diagNode = "/root/main/diaginfo/diagcdlist";

var prcpgenrflag = ""; //¿Ü·¡ÀÔ¿ø±¸ºÐ

/**
 * @desc   : ó¹æÈ­¸é ÃʱâÈ­
 * @param  :
 * @id     : model1
 * @event  : xforms-ready
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 3. 14
 * @---------------------------------------------------
 */
function fInitializeReady() {  
  model.recalculate();
  model.setfocus( "grd_prcplist" );
  grd_prcplist.dispatch("onentercell");
}

function fPromPrcpSrch(srchflag) {

    if(event.keyCode == "13") {
        var setno = model.getValue("/root/hidden/prmsprcpsetdetlset/setno");
        var setnm = model.getValue("/root/hidden/prmsprcpsetdetlset/setnm");      

        if(setno == 1){
            messageBox("ÃÖ»óÀ§ ¾à¼Óó¹æ Æú´õ¿¡¼­ °Ë»ö", "E001");
            return;
        }

        if ( isNull(setnm)) {
            messageBox("¼±ÅÃµÈ ¾à¼Óó¹æÆú´õ°¡", "I004");
            return;
        }

        if ( srchflag ==  "prcpcd") {
            var prcpnm = grd_prcplist.valuematrix(grd_prcplist.row, grd_prcplist.colRef("prcpcd"));

        } else {
            var prcpnm = grd_prcplist.valuematrix(grd_prcplist.row, grd_prcplist.colRef("prcpnm"));

        }        

        var isHangul = fIsHangul (prcpnm);
        //ÇѱÛÀ϶§´Â 1±ÛÀÚ¸¸ ³Ö¾îµµ °Ë»ö°¡´É
        if ( isNull(prcpnm)) {
            messageBox("°Ë»ö¾î¸¦", "C001");
            return;
            
        } else if ( isHangul == "E" ){
        //¿µ¹®,¼ýÀÚÀ϶§´Â 3±ÛÀÚ ³Ö¾î¾ß °Ë»ö°¡´É
            if ( prcpnm.length < 3 ){
                messageBox("3±ÛÀÚ ÀÌ»ó", "C001");
                return;
            }
        }

        if (prcpnm.charAt ( 0 ) == "/"){
            if ( prcpnm.length == 1 ){
                messageBox("°Ë»öÇÒ ¼ö¼ú¸íÀ»", "C001");
                return;
            }            
            var curRow =  grd_prcplist.row;
            var srchRow = grd_prcplist.rows -1;
            var xpt = window.screenleft + 180;
            var ypt = window.screenTop + 80;        
            //modael ( "SPMMO05100", 1, xpt, ypt );
            modal ( "SPMMO05100", 1, xpt, ypt ); //BY SONJY 2008-09-06 ¿ÀŸ ¼öÁ¤.

        } else {

            if ( srchflag ==  "prcpcd") {
                fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), "11", "TRMMB00201", "", false, "getPrcpCdOldSrchInfo", isHangul );
            } else if ( srchflag ==  "prcpnm") {
                fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), "11", "TRMMB00201", "", false, "getPrcpNmSrchInfo", isHangul );
            } else {
                fPrcpSrchCom ( prcpnm, model.getValue ( "/root/init/prcpdd" ), "11", "TRMMB00201", "", false, "getPrcpSrchInfo", isHangul );
            }
            
            var srchLength = model.instances(0).selectNodes( "/root/prcpsrch/prcplist" ).length;
            var curRow = grd_prcplist.row;
            var nextRow = grd_prcplist.row + 1;

            if( srchLength > 1) {
                if ( grd_prcplist.row <= 13) {
                    import1.attribute ( "top" ) =  71 + ( grd_prcplist.row - 1) * 23;
                } else if (  grd_prcplist.row <= 27) {                  
                    import1.attribute ( "top" ) =  (grd_prcplist.row - 1) * 23 - 300;
                } else if ( grd_prcplist.row > 27 ) {
                    import1.attribute ( "top" ) =  24 * 23 - 224;
                }
                import1.visible = true;
                model.refresh();
                model.setfocus( "grd_prcpsrchlist" );               
                grd_prcpsrchlist.select( 1, 1, 1, 1) = true;

            } else if( srchLength == 1) {
                srchRow = addPrcpDetl ( "import" , "/root/prcpsrch/prcplist" , "/root/main/prcp" , 1 , grd_prcplist.row, "02" );
                if ( srchRow != 0 ) {
                    focusMain ( srchRow );
                }
            } else {
                messageBox ( "°Ë»öµÈ ³»¿ëÀÌ", "I004" );
                grd_prcplist.dispatch("onentercell");
            }
        model.refresh();
        model.recalculate();
        }
    }
}

function fReqGetPrmsSet() { 
    model.setValue("/root/send/cond1", model.getValue("/root/hidden/prmsprcpsetdetlset/setno")); 
    model.setValue("/root/send/cond2", model.getValue("/root/hidden/prmsprcpsetdetlset/settypecd")); 
    
    model.setValue("/root/send/setkindcd", opener.model.getValue("/root/send/reqdata/setkindcd")); 
    model.setValue("/root/send/setclscd", opener.model.getValue("/root/send/reqdata/setclscd")); 
    model.setValue("/root/send/settypecd", opener.model.getValue("/root/send/reqdata/settypecd")); 
    model.setValue("/root/send/procflag", opener.model.getValue("/root/send/reqdata/procflag")); 
    model.setValue("/root/send/deptcd", opener.model.getValue("/root/send/reqdata/deptcd")); 
    model.setValue("/root/send/deptnm", opener.model.getValue("/root/send/reqdata/deptnm")); 
    model.setValue("/root/send/userid", opener.model.getValue("/root/send/reqdata/userid")); 
    model.setValue("/root/send/usernm", opener.model.getValue("/root/send/reqdata/usernm")); 
    
    submit("TRMMB00252", false); 
    appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //°Ë»ö¶óÀÎÃß°¡ 
    model.refresh(); 
    model.recalculate(); 
    
    //2008.06.05 appendchild·Î grid rowÃß°¡ ÈÄ instanceÁ¤º¸°¡ ÈåÆ®·¯Áü 
    grd_prcplist.row = grd_prcplist.rows - 1; 
    grd_prcplist.col = grd_prcplist.colRef("prcpcd"); 
    btn_editcell.dispatch("DOMActivate"); 
}

/**
 * @desc   : ó¹æ¼öÁ¤.
 * @       : ½Å±ÔÀ϶§´Â ¼öÁ¤Ç¥½Ã ¾ÈÇÔ.
 * @       : »èÁ¦,D/C »óÅÂÀ϶§´Â Ãë¼ÒÈÄ ¼öÁ¤.
 * @param  :
 * @id     : grd_prcplist
 * @event  : xforms-value-changed
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 4
 * @---------------------------------------------------
 */
function fPrcpUpdate() {
    var status = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row+ "]/status" );
    if (status=="-") {
        model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.row+ "]/status", "U" );
        model.refresh();
        model.recalculate();
    }
}

/**
 * @desc   : ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ »èÁ¦
 * @       : ½Å±ÔÀÏ ¶§´Â removeNode
 * @       : ¼öÁ¤ÁßÀÏ ¶§ ¿øº¹½ÃŲ ÈÄ »èÁ¦, D/C Ç¥½Ã
 * @       : »èÁ¦, D/C ¿øº¹½Ãų·Á¸é ? ¿À¸¥ÂÊ ¸¶¿ì½º¿¡ »èÁ¦ ¹× D/C ¿øº¹
 * @       : D/C ÈÄ »èÁ¦´Â ºÒ°¡
 * @param  : 
 * @id     : grd_prcplist
 * @event  : ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ »èÁ¦
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 4
 * @---------------------------------------------------
 */

function fPrmsDeleteRow() {
  //ŸºÎ¼­ÀÇ ¾à¼Óó¹æÀ» »èÁ¦ÇÒ ¼ö ¾øµµ·Ï ó¸®. 2008-01-18 ¿ÀÁöÈÆ
    var prmsflag = opener.model.getValue("/root/main/cond/prmsflag");   
    if(prmsflag == "T"){
      var orddeptcd = opener.model.getValue("/root/main/cond/deptsetcd");
      var orddeptnm = opener.cmb_deptset.label;
      if(orddeptcd = getUserInfo("dutplcecd")){ //
        messageBox("[" + orddeptnm +"] ¾à¼Óó¹æÀ» »èÁ¦", "E001");
        return;
      }
    }
    var selectedRows = grd_prcplist.selectedRows;
    var node = instance1.selectSingleNode("/root/main/prcp");
    var cnt=0;

    for (i= selectedRows-1; i >= 0; i--) {
        var status = model.getValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i) + "]/status" );
        if (status=="-") {
            model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i)+ "]/status", "D" );
        } else if ( status =="I" ) {
            //½Å±ÔÀÔ·Â(I)Àº removeNode ÀÌ´Ù.
            model.removeNode ( "/root/main/prcp/prcplist[" +  grd_prcplist.selectedrow(i) + "]" );
            //»èÁ¦½Ã µ¥ÀÌÅ͸¦ 
        } else if (status=="S") {
            model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i) + "]/prcpnm", "" );
        } else if (status=="D") {
            model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i)+ "]/status", "-" );
        } else if (status=="U") {
            model.setValue ( "/root/main/prcp/prcplist[" + grd_prcplist.selectedrow(i)+ "]/status", "D" );
        }       
    }

    model.refresh();
    model.recalculate();
}

/**
 * @desc   : ó¹æ ¿À¸¥ÂÊ ¸¶¿ì½º Æ˾÷ ó¸®
 * @param  :
 * @id     : grd_prcplist
 * @event  : onmousedown
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 4
 * @---------------------------------------------------
 */
function fMouseRghtBtnPopup() {

    if (event.button == 3) {

        if(grd_prcplist.isCell(event.target) && grd_prcplist.mouseRow >= grd_prcplist.fixedRows){
            app.showPopupMenu(true);
            window.setPopupMenu(true, "/root/init/msrght/mouserght", "label", "func", false);
        } else {
            window.setPopupMenu(false);
        }
    }
}

function fPrmsPrcpSave() { 
    var setno = model.getValue ("/root/hidden/prmsprcpsetdetlset/setno" );
    var settypecd = model.getValue ("/root/hidden/prmsprcpsetdetlset/settypecd" );
    var setnm = model.getValue( "/root/hidden/prmsprcpsetdetlset/setnm");      

    if(setno == 1){
        model.alert ( "ÃÖ»óÀ§ ¾à¼Óó¹æÆú´õ¿¡´Â ÀúÀåÇÏ½Ç ¼ö ¾ø½À´Ï´Ù.");
        return;
    }               

    if ( isNull(setnm)) {
        model.alert ( "¼±ÅÃµÈ ¾à¼Óó¹æÆú´õ°¡ ¾ø½À´Ï´Ù.");
        return;
    } else {
        if ( messageBox( setnm + " ¾à¼Óó¹æÆú´õ¿¡ ¼±ÅÃÇϽŠó¹æÀ»", "Q002") == "7" ) {
            return;
        }
    }

    for ( var i=1; i < grd_prcplist.rows-1; i++ ) {     
        if ( model.getValue ( "/root/main/prcp/prcplist[" + i + "]/status" ) == "I" ) {
            model.setValue("/root/main/prcp/prcplist[" + i + "]/prcpkindcd", "20" );
            model.setValue("/root/main/prcp/prcplist[" + i + "]/prcppkspec", setno + "|" + settypecd);
        }
        
		var drprcpetc2 = model.getValue("/root/main/prcp/prcplist[" + i + "]/drprcpetc2"); // Ư¼öÁÖ»ç½Ç Á¤º¸°¡ ¾øÀ¸¸é ÀúÀå ½Ã ¿À·ù ¼öÁ¤
		if ( isNull(drprcpetc2) ) {
			model.setValue("/root/main/prcp/prcplist[" + i + "]/drprcpetc2", "-");
		}
    }

    var savePrcpInfo = model.instances(0).selectNodes( "/root/main/prcp/prcplist" );                    
    //model.setValue ( "/root/send/cond1", getNodeListCSV(savePrcpInfo)); 
    copyNodeListType ( "/root/send/cond1", "/root/main/prcp/prcplist[status!='S']", "replace", model, model);  //sort±â´É Ãß°¡ ÈÄ ¾à¼Ó¼Âcopy ½Ã Ä÷³¼ø¼­¶§¹® ¿À·ù ¼öÁ¤ (2009.10.28 by JJE)
    model.setValue ( "/root/send/cond2", "1" ); 

    if ( !submit ( "TRMMB00203", false )){
    	model.removeNodeset("/root/send/cond1/prcplist");  //reset (2009.10.28 by JJE)
        model.resetInstanceNode ( "/root/send" );
        model.refresh();
        return;
    }

    var prcpErrList = model.instances(0).selectNodes( "/root/result/prcperrlist" );

    var xpt = window.screenleft + 100;
    var ypt = window.screenTop + 50;                    
    var coord = getRelativeCoordinate ( xpt, ypt );
    var mon = coord[0];
    xpt = coord[1];
    ypt = coord[2]; 

    if ( prcpErrList.length > 0 ) {
        if ( !isNull(model.getValue ( "/root/result/prcperrlist[1]/prcpcd"))){
            open ( "SPMMO00600", mon,  xpt, ypt, "prcpdetl", "/root/result", "/root/result" ); //¿À·ùÆ˾÷
            model.removeNodeset("/root/result/prcperrlist");
        } 
            return;
    }      


    if (submit("TXMMB00201", false)) {
        appendChildPrcp ( "/root/reset/prcplist", "/root/main/prcp", "main" ); //°Ë»ö¶óÀÎÃß°¡       
        model.refresh();
        model.recalculate();
    }
    
    model.removeNodeset("/root/send/cond1/prcplist");  //reset (2009.10.28 by JJE)
}

/**
 * @desc   : ¾à¼Óó¹æ º¹»çÇϱ⠱â´É
 * @param  :
 * @id     : grd_prcplist
 * @event  : onmousedown
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 12
 * @---------------------------------------------------
 */

function fCopyRow () {
    var selectedRows = grd_prcplist.selectedRows;
    var cnt=0;

    for (var i=0; i< selectedRows; i++) {
        if (model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status") != "S" ){ //°Ë»öÀº µå·¡±× ¾ÈÇÑ´Ù.
            fPrcpBuffer( ++cnt, grd_prcplist.selectedrow(i), "/root/prcpdrag", prcpNode );
        }
    }

    var srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist");
	for ( i=1 ; i<=srcNodeList.length ; i++ ) {
		model.setValue ( "/root/prcpdrag/prcplist[" + i + "]/status" , "I" );
	}
}

/**
 * @desc   : ¾à¼Óó¹æ ºÙÇô³Ö±â ±â´É
 * @param  :
 * @id     : grd_prcplist
 * @event  : onmousedown
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 12
 * @---------------------------------------------------
 */

function fPasteRow () {

    var srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist");
    var destNode = model.instances(0).selectSingleNode("/root/main/prcp");
    var row = grd_prcplist.rows-1;

    for (var i=1; i<srcNodeList.length+1; i++) {
        row = row++;
        model.duplicate( "/root/main/prcp", "/root/prcpdrag/prcplist[" + i + "]", "*[" + row + "]");
        model.setValue ( "/root/main/prcp/prcplist[" + row + "]/status", "I" );
    }
    model.refresh();
}

/**
 * @desc   : SETÆú´õ »èÁ¦½Ã, ¾à¼Óó¹æ µ¥ÀÌÅÍ »èÁ¦
 * @
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */
function fClrGridData(){
   model.removeNodeset("/root/main/prcp/prcplist");
   model.refresh();
}

/**
 * @desc   : ¹Í½º¹øȣó¸®
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007.10.09
 */
function fMixNoCnt() {
    var selectedRows = grd_prcplist.selectedRows;
    var cnt = 0;
    for ( var i=selectedRows-1; i >= 0; i-- ){
        //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
        var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
        if ( selprcpclscd == "A6" ) {
            cnt++
        } else {
            grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;           
        }
    }
    if ( cnt <= 1 ) {
        messageBox ( "MixÇÒ Ã³¹æÀÌ ", "E014");
    } else {
        var selectedRows = grd_prcplist.selectedRows;
        var prcpmixno = eval(model.getValue ( "/root/init/prcpmixno" )) + 1;
        for (var i=0; i< selectedRows; i++) {       
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpmixno", prcpmixno );
            
            fSetCpVal(grd_prcplist.selectedrow(i), "U");
//          if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "-" ) {
//              model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "U" );
//          }
        }
         model.setValue ( "/root/init/prcpmixno", prcpmixno );

         for (var i=1; i < grd_prcplist.rows; i++) {        
            var chkPrcpmixno = model.getValue ( prcpNode + "[" + i + "]/prcpmixno" );
            //¹Í½º¹øÈ£°¡ ÀÖ´Â °ÍÁß¿¡
            if ( chkPrcpmixno != "-" && !isNull(chkPrcpmixno)) {
                //»èÁ¦¸¦ Á¦¿ÜÇÏ°í °ªÀÌ ÇÑ°³ ¹Û¿¡ ¾øÀ¸¸é mix¸¦ ÇØÁ¦ÇØ ÁØ´Ù.
                var srcNodeList = model.instances(0).selectNodes ( prcpNode + "[prcpmixno='" + chkPrcpmixno + "']" );
                if ( srcNodeList.length <= 1) {
                    model.setValue ( prcpNode + "[" + i + "]/prcpmixno", "-" );
//                  if ( model.getValue ( prcpNode + "[" + i + "]/status" ) == "-" ) {
//                      model.setValue ( prcpNode + "[" + i + "]/status", "U" );
//                  }
                }
            }
        } 

    }
}

/**
 * @desc   : ¹Í½º¹øÈ£Ãë¼Òó¸®
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007.10.16
 */
function fMixNoDel() {
    var selectedRows = grd_prcplist.selectedRows;
    var cnt = 0;
    for ( var i=selectedRows-1; i >= 0; i-- ){
        //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
        var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
        if ( selprcpclscd == "A6" ) {
            cnt++
        } else {
            grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;           
        }
    }

    var selectedRows = grd_prcplist.selectedRows;
    for (var i=0; i< selectedRows; i++) {       
        model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpmixno", "-" );
        
        fSetCpVal(grd_prcplist.selectedrow(i), "U");
//          if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "-" ) {
//              model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "U" );
//          }
    }

     for (var i=1; i < grd_prcplist.rows; i++) {        
        var chkPrcpmixno = model.getValue ( prcpNode + "[" + i + "]/prcpmixno" );
        //¹Í½º¹øÈ£°¡ ÀÖ´Â °ÍÁß¿¡
        if ( chkPrcpmixno != "-" && !isNull(chkPrcpmixno)) {
            //»èÁ¦¸¦ Á¦¿ÜÇÏ°í °ªÀÌ ÇÑ°³ ¹Û¿¡ ¾øÀ¸¸é mix¸¦ ÇØÁ¦ÇØ ÁØ´Ù.
            var srcNodeList = model.instances(0).selectNodes ( prcpNode + "[prcpmixno='" + chkPrcpmixno + "']" );
            if ( srcNodeList.length <= 1) {
                model.setValue ( prcpNode + "[" + i + "]/prcpmixno", "-" );
//                  if ( model.getValue ( prcpNode + "[" + i + "]/status" ) == "-" ) {
//                      model.setValue ( prcpNode + "[" + i + "]/status", "U" );
//                  }
            }
        }
    } 
}

/**
 * @desc   : ó¹æÈ­¸é ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ ó¹æ ºÙÇô³Ö±â
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 10. 22
 */
function fPrcpPaste() {

    model.setValue ( "/root/init/cropflag", "N" );
    srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist");
    var destNode = model.instances(0).selectSingleNode("/root/main/prcp");
    var dropRow = grd_prcplist.row;
    var endRow = grd_prcplist.rows -1;
    if ( dropRow == endRow ) {
        dropRow = dropRow -1;
    } 
    for ( var i= 1; i<=srcNodeList.length ; i++){       
        row = dropRow + i;
        model.duplicate( "/root/main/prcp", "/root/prcpdrag/prcplist[" + i + "]", "*[" + row + "]");
        fSetCpVal( row, "I");
    }
    model.removeNodeset ( "/root/prcpdrag/prcplist" );
    model.recalculate();   
    model.refresh();
}

/**
 * @desc   : ó¹æÈ­¸é ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯ ó¹æ À߶󳻱â
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 10. 22
 */
function fPrcpCrop() {
    if ( model.getValue ("/root/init/cropflag") == "Y" ) {
        if (messageBox ( "Àß¶ó³½ µ¥ÀÌÅÍ°¡ ÀÌ¹Ì ÀÖ½À´Ï´Ù. À߶󳻽ðڽÀ´Ï±î?", "Q" ) != "6" ) {
            return;
        }
    }
    var selectedRows = grd_prcplist.selectedRows;
    var cnt=0;

    for (var i = selectedRows-1; i >= 0; i--) {
        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) != "S" ){ //°Ë»öÀº µå·¡±× ¾ÈÇÑ´Ù.
            fPrcpBuffer( ++cnt, grd_prcplist.selectedrow(i), "/root/prcpdrag", prcpNode );
			if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status" ) == "I" ) {
	            model.removenode ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]" );
			} else {
				model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/status", "D" )
			}
        }
        model.setValue ( "/root/init/cropflag", "Y" );
    }
    
	var srcNodeList = model.instances(0).selectNodes("/root/prcpdrag/prcplist");
	for ( i=1 ; i<=srcNodeList.length ; i++ ) {
		model.setValue ( "/root/prcpdrag/prcplist[" + i + "]/status" , "I" );
	}

    model.refresh();
}

/**
 * @desc   : ó¹æ»ó¼¼ ÀÏ°ýÀÔ·Â
 * @param  : 
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 6. 30
 */

function fPrcpDetlCom() {

    var xpt = 510;
    var ypt = 180;  
    
    var header = "";
    var useyn = "";
    var value = "";
    var cnt = 0;

    var selectedRows = grd_prcplist.selectedRows;   
    var prcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(0) + "]/prcpclscd" );
    var prnscrID = getScreenID();  //LYJ 2010.01.02 PRNó¹æ Æ˾÷ ¶ß´Â Á¶°ÇÀ§ÇØ È­¸é ID Ãß°¡
    
    //fPrcpModal ( "SPMMO   10400", xpt, ypt ); //ÀÏ°ýÀÔ·Â °øÅë
    if ( prcpclscd == "A2" || prcpclscd == "A4" ) { //¾à
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != "A2" && selprcpclscd != "A4"  ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
    	    setParameter ( "SPMMO12100_prnchk", prnscrID);  //LYJ 2010.01.02 PRNó¹æ Æ˾÷ ¶ß´Â Á¶°ÇÀ§ÇØ È­¸é ID Ãß°¡
            fPrcpModal ( "SPMMO12100", xpt, ypt );
        }

    } else if ( prcpclscd == "A6" ) { //ÁÖ»ç
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
      	    setParameter ( "SPMMO12200_prnchk", prnscrID);  //LYJ 2010.01.02 PRNó¹æ Æ˾÷ ¶ß´Â Á¶°ÇÀ§ÇØ È­¸é ID Ãß°¡
            fPrcpModal ( "SPMMO12200", xpt, ypt );
        }
    } else if ( prcpclscd == "F2" ) {  //ÀçÈ°
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO11200", xpt, ypt );
        }
    } else if ( prcpclscd == "C2" || prcpclscd == "C6" || prcpclscd == "E2" ) { 
        //¹æ»ç¼± °Ë»ç(±â´É°Ë»ç, ³»½Ã°æ,õÀÚ,»ý°Ë, ¹æ»ç¼±, ÇÙÀÇÇпµ»ó, ¹æ»ç¼±Ä¡·á)
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != "C2" && selprcpclscd != "C6" && selprcpclscd != "E2"  ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            setParameter ( "SPMMO12300_prcpclscd", prcpclscd );
            fPrcpModal ( "SPMMO12300", xpt, ypt );
            setParameter ( "SPMMO12300_prcpclscd", "" );
        }
    } else if ( prcpclscd == "B2" || prcpclscd == "B6" ) { //Áø´Ü°Ë»ç (°Ëü°Ë»ç), ÇÙÀÇÇРü³»
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != "B2" && selprcpclscd != "B6" ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            setParameter ( "SPMMO12400_prcpclscd", prcpclscd );
            fPrcpModal ( "SPMMO12400", xpt, ypt );
            setParameter ( "SPMMO12400_prcpclscd", "" );
        }
    } else if ( prcpclscd == "H2" ) {  //¼ö¼ú, óġ, Ä¡°ú
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != "H2" && selprcpclscd != "H4" ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12600", xpt, ypt );
        }
    } else if ( prcpclscd == "K2" ) { 
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != "K2" ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13500", xpt, ypt );
        }
    } else if ( prcpclscd == "03" ) {  //½ÄÀÌ                
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12700", xpt, ypt );
        }
    } else if ( prcpclscd == "I2" || prcpclscd == "I4" ) {  //¸¶Ãë
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != "I2" && selprcpclscd != "I4") {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12800", xpt, ypt );
        }
    } else if ( prcpclscd == "C4" ) {  //angio
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12900", xpt, ypt );
        }
    } else if ( prcpclscd == "D2" ) {  //º´¸®
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13000", xpt, ypt );
        }
    } else if ( prcpclscd == "M2" ) {  //Àç·á
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13600", xpt, ypt );
        }
    } else if ( prcpclscd == "G2" ) { //RT

        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13700", xpt, ypt );  
        }
    } else if ( prcpclscd == "H4" ) { //óġ
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO13800", xpt, ypt );
        }
    } else if ( prcpclscd == "B4" ) { //¼öÇ÷ (Ç÷¾×¼öÇ÷)
        for ( var i=selectedRows-1; i >= 0; i-- ){
            //ù¹ø° SELECT µÈ °ÍÀ» ±âÁØÀ¸·Î ´Ù¸¥ °ÍÀº SELECT¸¦ ÇØÁ¦ÇÑ´Ù.
            var selprcpclscd = model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/prcpclscd" );
            if ( selprcpclscd != prcpclscd ) {
                //grd_prcplist.select( grd_prcplist.selectedrow(i), 1, grd_prcplist.selectedrow(i), 1) = false;
                cnt++;
            }
        }
        if ( cnt > 0) {
            fPrcpModal ( "SPMMO10400", xpt, ypt );
        } else {
            fPrcpModal ( "SPMMO12500", xpt, ypt );
        }
    } 
    
    fBatIpt ( "batipt_rtn1_useyn", "batipt_rtn1" );
}

/**
 * @desc   : PreWorkUp ó¸® ¿À¸¥ÂÊ ¸¶¿ì½º Ŭ¸¯
 * @return : void
 * @authur : ¸¶Á¤¹Î 2007. 4. 30
 */
function fPreWorkUp () {

    var selectedRows = grd_prcplist.selectedRows;   

    for (var i=0; i< selectedRows; i++) {

        if ( model.getValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/trnptbftestflag" ) == "Y" ) {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/trnptbftestflag", "N" )
        } else {
            model.setValue ( prcpNode + "[" + grd_prcplist.selectedrow(i) + "]/trnptbftestflag", "Y" )
        }

        makePrcpNm( prcpNode, grd_prcplist.selectedrow(i) );
        
        fSetCpVal(grd_prcplist.selectedrow(i), "U");
    }
}

/**
 * @desc   : ±×¸®µå data ¿¢¼¿È­ÀÏ·Î ÀúÀå
 * @
 * @param  :
 * @return :
 * @author : EMR 2010. 4. 
 * @---------------------------------------------------
 */
function fSaveGridToExcel(){
   saveGridToExcel(grd_prcplist);
}