/************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÇÒÀÎ / ¹Ì¼ö ³»¿ªÀ» °ü¸®ÇÑ´Ù. *************************************************************************************************/ var gOrddd, gTotrcptamt, strSend, strRcv; /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÃʱâÈ­ *************************************************************************************************/ function fInit(){ model.removeNodeset("/root/main/main/p_dcgm"); grd_dcgm.rebuild(); model.refresh(); } /************************************************************************************************ @author : äÈñö @version : 2007-07-01 ±âÃÊÁ¤º¸ÄÚµåµéÀ» ·ÎµåÇÑ´Ù. ************************************************************************************************/ function fGetBaseInfo(){ /** // °è»ê»óÅÂ, Á¢¼ö»óÅÂ, ¼ö°¡°è»ê»óÅ zbcfGetCodeList( new Array("P0030","A0107","P0049","P0076","P0073"), new Array("/root/init/baseinfo","/root/init/baseinfo","/root/init/baseinfo", "/root/init/baseinfo","/root/init/baseinfo") ) model.setValue( gSendPath + "/srchinstcd", getUserInfo("dutplceinstcd") ); ***/ // ÇÒÀΰèÁ¤ ·Îµå.. submit("TRAHA02141"); } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 opener·Î checkÇØ¼­ ó¸® .. *************************************************************************************************/ function fCheckOpener(){ if (checkOpener()){ opener.javascript.setParameter("SPAHA02140_RTN",""); var ssendPath = opener.javascript.getParameter("SPAHA02140_SENDPATH"); var srcvPath = opener.javascript.getParameter("SPAHA02140_RCVPATH"); var ddiscamt = opener.javascript.getParameter("SPAHA02140_DISCAMT"); ddiscamt = eval(ddiscamt==""?"0":ddiscamt); var dreduamt = opener.javascript.getParameter("SPAHA02140_REDUAMT"); dreduamt = eval(dreduamt==""?"0":dreduamt); var drcptamt = opener.javascript.getParameter("SPAHA02140_RCPTAMT"); drcptamt = eval(drcptamt==""?"0":drcptamt); var dtotamt = opener.javascript.getParameter("SPAHA02140_TOTAMT"); dtotamt = eval(dtotamt==""?"0":dtotamt); model.setValue("/root/main/h_dcgm/discamt",ddiscamt); model.setValue("/root/main/h_dcgm/reduamt",dreduamt); model.setValue("/root/main/h_dcgm/rcptamt",drcptamt); model.setValue("/root/main/h_dcgm/totamt",dtotamt); model.refresh(); if (ssendPath != null && ssendPath != "" && ssendPath != " " && ssendPath != "-") { copyNodesetType("/root/main/p_dcgm", ssendPath, "replace", model, parent.model); var rowcnt = getNodesetCount("/root/main/p_dcgm"); //ÇѰÇÀ̰í ÇѰÇÀÌ °ªÀÌ ¾øÀ¸¸é.. if ( rowcnt = 1 && model.getValue("/root/main/p_dcgm["+ 1 +"]/discreduflag") == ""){ model.removeNodeset("/root/main/p_dcgm"); } grd_dcgm.rebuild(); } } } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÀÔ·ÂµÈ ÇÒÀÎ °¨¾× ±Ý¾×ÀÇ SUMÀ» ±¸ÇÑ´Ù. *************************************************************************************************/ function fAmtCalc(){ var rowcnt = getNodesetCount("/root/main/p_dcgm"); if (rowcnt > 0){ var discamt = 0; var tempamt = 0; var reduamt = 0; var totdiscamt = 0; var drcptamt = model.getValue("/root/main/h_dcgm/rcptamt"); for (i = 1; i <= rowcnt; i++) { if ( model.getValue("/root/main/p_dcgm["+ i +"]/discreduflag") == "G"){ tempamt = model.getValue("/root/main/p_dcgm["+ i +"]/discreduamt") ; tempamt = parseFloat(tempamt==""?"0":tempamt); reduamt = reduamt + tempamt; }else{ tempamt = model.getValue("/root/main/p_dcgm["+ i +"]/discreduamt") ; tempamt = parseFloat(tempamt==""?"0":tempamt); discamt = discamt + tempamt; } } totdiscamt = reduamt + discamt; if (eval(drcptamt) < eval(totdiscamt)) { messageBox("°¨¾×ÃѾ×ÀÌ ¼ö³³±Ý¾×À» ÃʰúÇÕ´Ï´Ù!","E999",""); return; } model.setValue("/root/main/h_dcgm/reduamt", reduamt); } else model.setValue("/root/main/h_dcgm/reduamt","0"); model.refresh(); } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÇϳªÀÇ row¸¦ Ãß°¡ÇÑ´Ù. *************************************************************************************************/ function fAddRow(){ grd_dcgm.additem(); var currow = grd_dcgm.row ; model.setValue("/root/main/p_dcgm["+ currow +"]/discreducd","-"); model.setValue("/root/main/p_dcgm["+ currow +"]/discreduflag","G"); model.setValue("/root/main/p_dcgm["+ currow +"]/discreduamt","0"); grd_dcgm.rebuild(); } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 ÇϳªÀÇ row¸¦ »èÁ¦ÇÑ´Ù. *************************************************************************************************/ function fDeleteRow(){ var currow = grd_dcgm.row; if (currow < 1) { messageBox("¸ÕÀú »èÁ¦ÇÒ ³»¿ªÀ» ¼±ÅÃÇϽʽÿä!","E999",""); return; } grd_dcgm.deleteitem(currow); fAmtCalc(); } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 È®ÀιöưÀ» Ŭ¸¯ÇÑ´Ù. *************************************************************************************************/ function fConfirm(){ // È®ÀνÃÁ¡¿¡ ´Ù½Ã Àç °è»êÇÑ´Ù. fAmtCalc(); var dcgm_discreducd; var dcgm_discreduamt; var sRcvPath = opener.javascript.getParameter("SPAHA02140_RCVPATH"); for(i = 1; i <= getNodesetCount("/root/main/p_dcgm"); i++) { dcgm_discreducd = model.getValue("/root/main/p_dcgm["+ i +"]/discreducd"); dcgm_discreduamt = model.getValue("/root/main/p_dcgm["+ i +"]/discreduamt"); if (dcgm_discreducd == null || dcgm_discreducd == "" || dcgm_discreducd == " " || dcgm_discreducd == "-") { messageBox("°¨¾×¸íĪ Áß ¹Ì¼±ÅÃµÈ ÇàÀÌ Á¸ÀçÇÕ´Ï´Ù!","E999",""); return; } if (dcgm_discreduamt.isNumber() != true){ messageBox("°¨¾× Áß ¼öÄ¡ÇüÀÌ ¾Æ´Ñ ÇàÀÌ Á¸ÀçÇÕ´Ï´Ù!","E999",""); return; } } if (checkOpener()) { opener.javascript.setParameter("SPAHA02140_RTN","Y"); opener.javascript.setParameter("SPAHA02140_REDUAMT",model.getValue("/root/main/h_dcgm/reduamt")); if (sRcvPath != null && sRcvPath != "" && sRcvPath != " " && sRcvPath != "-") { copyNodesetType(sRcvPath, "/root/main/p_dcgm", "replace", parent.model, model); //copyNode(sRcvPath, "/root/main/p_dcgm", "replace", parent.model, model); } window.close(); } } /************************************************************************************************ @author : äÈñö @version : 2007-08-27 Ãë¼Ò¹öưÀ» Ŭ¸¯ÇÑ´Ù. *************************************************************************************************/ function fCancel(){ if (checkOpener()){ opener.javascript.setParameter("SPAHA02140_RTN","N"); window.close(); } }