/************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÇÒÀÎ / ¹Ì¼ö ³»¿ªÀ» °ü¸®ÇÑ´Ù. *************************************************************************************************/ var gOrddd, gTotrcptamt, strSend, strRcv; /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÃʱâÈ­ *************************************************************************************************/ function fInit(){ model.removeNodeset("/root/main/unco"); grd_unco.rebuild(); model.refresh(); } /************************************************************************************************ @author : äÈñö @version : 2007-07-01 ±âÃÊÁ¤º¸ÄÚµåµéÀ» ·ÎµåÇÑ´Ù. ************************************************************************************************/ function fGetBaseInfo(){ // °è»ê»óÅÂ, Á¢¼ö»óÅÂ, ¼ö°¡°è»ê»óÅ zbcfGetCodeList( new Array("A0393"), new Array("/root/init/baseinfo") ) } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 opener·Î checkÇØ¼­ ó¸® .. *************************************************************************************************/ function fCheckOpener(){ if (checkOpener()){ opener.javascript.setParameter("SPAHA02150_RTN",""); var ssendPath = opener.javascript.getParameter("SPAHA02150_SENDPATH"); var srcvPath = opener.javascript.getParameter("SPAHA02150_RCVPATH"); var dpayinsubamt = opener.javascript.getParameter("SPAHA02150_PAYINSUBAMT"); dpayinsubamt = parseFloat(dpayinsubamt==""?"0":dpayinsubamt); var dpayhealcntramt = opener.javascript.getParameter("SPAHA02150_PAYHEALCNTRAMT"); dpayhealcntramt = parseFloat(dpayhealcntramt==""?"0":dpayhealcntramt); var dcmpyamt = opener.javascript.getParameter("SPAHA02150_CMPYAMT"); dcmpyamt = parseFloat(dcmpyamt==""?"0":dcmpyamt); var downuncoamt = opener.javascript.getParameter("SPAHA02150_OWNUNCOAMT"); downuncoamt = parseFloat(downuncoamt==""?"0":downuncoamt); var dtotuncoamt = dpayinsubamt + dpayhealcntramt + dcmpyamt + downuncoamt; var dtotamt = opener.javascript.getParameter("SPAHA02150_TOTAMT"); dtotamt = eval(dtotamt==""?"0":dtotamt); model.setValue("/root/main/h_unco/totuncoamt",dtotuncoamt); model.setValue("/root/main/h_unco/totamt",dtotamt); model.refresh(); if (ssendPath != null && ssendPath != "" && ssendPath != " " && ssendPath != "-") { copyNodesetType("/root/main/p_unco", ssendPath, "replace", model, parent.model); var rowcnt = getNodesetCount("/root/main/p_unco"); //ÇѰÇÀ̰í ÇѰÇÀÌ °ªÀÌ ¾øÀ¸¸é.. if ( rowcnt = 1 && model.getValue("/root/main/p_unco["+ 1+"]/uncocls") == ""){ model.removeNodeset("/root/main/p_unco"); } grd_unco.rebuild(); } } } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÀÔ·ÂµÈ ÇÒÀÎ °¨¾× ±Ý¾×ÀÇ SUMÀ» ±¸ÇÑ´Ù. *************************************************************************************************/ function fAmtCalc(){ var rowcnt = getNodesetCount("/root/main/p_unco"); if (rowcnt > 0){ var tempamt = 0; var totuncoamt = 0; var payinsubamt = 0; var payhealcntramt = 0; var cmpyamt = 0; var ownuncoamt = 0; var tottamt = model.getValue("/root/main/h_unco/totamt"); var suncocls = ""; for (i = 1; i <= rowcnt; i++) { suncocls = model.getValue("/root/main/p_unco["+ i +"]/uncocls") ; tempamt = model.getValue("/root/main/p_unco["+ i +"]/uncoamt") ; tempamt = parseFloat(tempamt==""?"0":tempamt); if ( suncocls == "1" ){ ownuncoamt = ownuncoamt + tempamt; }else if ( suncocls == "2" ){ payinsubamt = payinsubamt + tempamt; }else if ( suncocls == "3" ){ payhealcntramt = payhealcntramt + tempamt; }else if ( suncocls == "4" ){ cmpyamt = cmpyamt + tempamt; }else if ( suncocls == "5" ){ ownuncoamt = ownuncoamt + tempamt; } totuncoamt = totuncoamt + tempamt; } if (eval(tottamt) < eval(totuncoamt)) { messageBox("¹Ì¼öÃѾ×ÀÌ ¼ö³³±Ý¾×À» ÃʰúÇÕ´Ï´Ù!","E999",""); return; } model.setValue("/root/main/h_unco/totuncoamt", totuncoamt); model.setValue("/root/main/h_unco/payinsubamt", payinsubamt); model.setValue("/root/main/h_unco/payhealcntramt", payhealcntramt); model.setValue("/root/main/h_unco/cmpyamt", cmpyamt); model.setValue("/root/main/h_unco/ownuncoamt", ownuncoamt); } else{ model.setValue("/root/main/h_unco/totuncoamt","0"); model.setValue("/root/main/h_unco/payinsubamt", "0"); model.setValue("/root/main/h_unco/payhealcntramt", "0"); model.setValue("/root/main/h_unco/cmpyamt", "0"); model.setValue("/root/main/h_unco/ownuncoamt", "0"); } model.refresh(); } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÇϳªÀÇ row¸¦ Ãß°¡ÇÑ´Ù. *************************************************************************************************/ function fAddRow(){ grd_unco.additem(); var currow = grd_unco.row; model.setValue("/root/main/p_unco["+ currow + "]/uncoamt","0"); grd_unco.rebuild(); } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÇϳªÀÇ row¸¦ »èÁ¦ÇÑ´Ù. *************************************************************************************************/ function fDeleteRow(){ var currow = grd_unco.row; if (currow < 1) { messageBox("¸ÕÀú »èÁ¦ÇÒ ³»¿ªÀ» ¼±ÅÃÇϽʽÿä!","E999",""); return; } grd_unco.deleteitem(currow); fAmtCalc(); } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 È®ÀιöưÀ» Ŭ¸¯ÇÑ´Ù. *************************************************************************************************/ function fConfirm(){ // È®ÀνÃÁ¡¿¡ ´Ù½Ã Àç °è»êÇÑ´Ù. fAmtCalc(); var uncocls; var uncoamt; var sRcvPath = opener.javascript.getParameter("SPAHA02150_RCVPATH"); for(i = 1; i <= getNodesetCount("/root/main/p_unco"); i++) { uncocls = model.getValue("/root/main/p_unco["+ i +"]/uncocls"); uncoamt = model.getValue("/root/main/p_unco["+ i +"]/uncoamt"); if (uncocls == null || uncocls == "" || uncocls == " " || uncocls == "-") { messageBox("¹Ì¼öÀ¯ÇüÀÌ ¹Ì¼±ÅÃµÈ ÇàÀÌ Á¸ÀçÇÕ´Ï´Ù!","E999",""); return; } /* if (uncoamt() != true){ messageBox("¹Ì¼ö Áß ¼öÄ¡ÇüÀÌ ¾Æ´Ñ ÇàÀÌ Á¸ÀçÇÕ´Ï´Ù!","E999",""); return; } */ } if (checkOpener()) { opener.javascript.setParameter("SPAHA02150_RTN","Y"); opener.javascript.setParameter("SPAHA02150_TOTUNCOAMT",model.getValue("/root/main/h_unco/totuncoamt")); opener.javascript.setParameter("SPAHA02150_PAYINSUBAMT",model.getValue("/root/main/h_unco/payinsubamt")); opener.javascript.setParameter("SPAHA02150_PAYHEALCNTRAMT",model.getValue("/root/main/h_unco/payhealcntramt")); opener.javascript.setParameter("SPAHA02150_CMPYAMT",model.getValue("/root/main/h_unco/cmpyamt")); opener.javascript.setParameter("SPAHA02150_OWNUNCOAMT",model.getValue("/root/main/h_unco/ownuncoamt")); if (sRcvPath != null && sRcvPath != "" && sRcvPath != " " && sRcvPath != "-") { copyNodesetType(sRcvPath, "/root/main/p_unco", "replace", parent.model, model); } window.close(); } } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 Ãë¼Ò¹öưÀ» Ŭ¸¯ÇÑ´Ù. *************************************************************************************************/ function fCancel(){ if (checkOpener()){ opener.javascript.setParameter("SPAHA02150_RTN","N"); window.close(); } }