YNU_JEUS/app_home/himed/webapps/mis/purcstatsweb/js/SMRSG07000.js

/* ---------------------------------------------------------------------
  
      SMRSG07000_(수탁)창고재고발주.xrw (SMRSG07000.js - JScript )

      - Version :
          1)  : Ver.1.00.01  
              : Create By  SungWook Jung
              : 2009.10.30
   ----------------------------------------------------------------------  */
  var gUserid         = getUserInfo("userid"       );   // 사용자                        
  var gUserNm         = getUserInfo("usernm"       );   // 사용자명칭                    
  var gDutplceinstcd  = getUserInfo("dutplceinstcd");   // 사용자 기관코드               
  var gDutplceinstnm  = getUserInfo("dutplceinstnm");   // 사용자 기관명칭               
  var gDutplcecd      = getUserInfo("dutplcecd"    );   // 사용자 부서코드               
  var gDutplcenm      = getUserInfo("dutplcenm"    );   // 사용자 부서코드명             
    
 // --------------------------------------------------   
 // Fax Text 출력을 처리하는 함수 
 // --------------------------------------------------   
 
 var vPurcNo  = ""; // 발주번호 
 var vCustAmt = 0 ;
 
 
  //바이트체크
 function fIsLength(pSource) {
          var rSize = 0;
          for (i = 0; i < pSource.length; i++) {
              vChr = escape(pSource.charAt(i));
              if (vChr.length == 1) {
                  rSize++;
              } else {
                  rSize += 2;
              }
          }
          
          return rSize;
}
          
 function fFaxDataTextSave() {

          var vFso, vFile, r                                             
          var ForReading = 1, ForWriting = 2;  
          
          var vdate  = new Date();
          var HH    = vdate.getHours();                        
          var MI    = vdate.getMinutes();                      
          var SS    = vdate.getSeconds();                      
          
          var vTime = HH +"" + MI +"" + SS;
          
          
          var vFileNM = getCurrentDate()+ vTime +".txt";
          
          vFso = new ActiveXObject("Scripting.FileSystemObject")     
          vFile = vFso.OpenTextFile("c:\\temp\\"+ vFileNM, ForWriting, true)
          
          var pPath = "/root/main/list/plceordcnfminfo/plceordcnfmlist";

          var vSuplplcecd = "";
          var vTrschkyn   = "";       
          var gSuplplcecd = "";
          
          var NodeList = instance1.selectNodes(pPath);
          
          var vCustCnt     =  0;
          var vEditTot     = "";

          for (var n = 1; n <= NodeList.length; n++) {

             gSuplplcecd  =  model.getValue(pPath + "["+ n + "]/suppcustcd");
             																										             
             if (vSuplplcecd != gSuplplcecd) {
                 if (vCustCnt > 0 ) {

                     vEditTot = vCustAmt+"";
                     fFaxDataTextBodyTailer(vEditTot, vFile);
                     fFaxDataTextTailer(vFile);
                 }  

                 vCustCnt    = 0;
                 vCustAmt    = 0;
             
                 vFaxno      = model.getValue(pPath + "["+ n + "]/faxno");
                 vCntctel    = model.getValue(pPath + "["+ n + "]/cntctel");
                 vSuplplcenm = model.getValue(pPath + "["+ n + "]/suppcustnm");
                 
                 vSuplplcecd = gSuplplcecd; 
                 
                 fFaxDataTextHeader(vSuplplcecd, vSuplplcenm, vCntctel, vFaxno, vFile);
                 
                 vPurcNo = "";  // 발주번호 
             }
             
             vCustCnt++;
             fFaxDataTextBody(pPath + "["+ n + "]", vFile) ;
             
         }

          if (vCustCnt > 0 ) {

              vEditTot = vCustAmt+"";
              fFaxDataTextBodyTailer(vEditTot, vFile);
              fFaxDataTextTailer(vFile);

              alert("c:\\temp\\"+ vFileNM +" 로 저정되었습니다!! ");  
          } 

          vFile.Close();                                                
          
          //f = vFso.OpenTextFile("c:\\testfile.txt", ForReading);     
          //r = f.ReadLine();                                         
          //return(r);                                                
 }
 
 
 
  function fFaxDataTextBodyTailer(pTotAmt, pFile) {

          vLine     =  rpad("-"      ,80,"-");                   
          vTotNm    =  rpad("TOTAL :",62," ");                   
          vTotAmt   =  rpad(pTotAmt  ,18," ");                   
 
          pFile.WriteLine(vLine                                  );
          pFile.WriteLine(vTotNm + lpad(putComma(pTotAmt),18," "));
 }
 
  function fFaxDataTextTailer(pFile) {

          pFile.WriteLine("--------------------------------------------------------------------------------  ");
          pFile.WriteLine("1.납품통제일:매월10,12,13,25일                                                    ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("2.납품시간:오전 9∼11시,오후 2∼4시                                              ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("3.매월 20일 이후 납품시,계산서는 익월 날자로 발행해 주시시오.                     ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("4.납기 지연시에는 사전 지연사유를 알려주시기 바랍니다.                            ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("거래명세표 작성시 자재번호ㆍ발주번호ㆍ거래처코드를 기재하십시오.                  ");
          pFile.WriteLine(".END                                                                              ");
 }
 
  function fFaxDataTextHeader(pCmpnyCd,pCmpnyNm, pCntctel, pFaxno,pFile) {

          var vPurcName= gDutplceinstnm + "; " + gDutplcenm;
          var vCmpnyNm = gDutplceinstnm + "   "+ pCmpnyNm  ;
          var vCode =  pCmpnyCd + rpad("",(35-fIsLength(pCmpnyCd)) ," ");                   
          var vName =  pCmpnyNm + rpad("",(35-fIsLength(pCmpnyNm)) ," ");                   
          
          var date  = new Date();
          
          var year  = date.getFullYear();
          var month = date.getMonth() + 1; // 1월=0,12월=11이므로 1 더함
          var day   = date.getDate();
    
          if (("" + month).length == 1) { month = "0" + month; };
          if (("" + day).length   == 1) { day   = "0" + day;   };
           
          var vDate = "" + year + "-" + month + "-" + day;
          var InDate  = inp_indate.value;
          var vInDate = InDate.substr(0,4) + "-" + InDate.substr(4,2) + "-" + InDate.substr(6,2);
                
          vPurcName = inp_purctel.value + " ("+ gUserNm +")"; 

          vCntctel = rpad(pCntctel,14 ," ");                   
          vFaxno   = rpad(pFaxno  ,27 ," ");

          vFaxno1  =  pFaxno.replace(/-/g,""); 
          vFaxno2  =  parseFloat(vFaxno1); 
          vFaxno1  =  "82"+vFaxno2;
          pFile.WriteLine(".START                                                                            "); 
          pFile.WriteLine("TO:FAX/"+vFaxno1                                                                   ); 
          pFile.WriteLine("SUBJECT:" +vCmpnyNm                                                                ); 
          pFile.WriteLine("SERVICE:R,U                                                                       ");
          pFile.WriteLine("TEXT:                                                                             ");
          pFile.WriteLine("                          발           주           서                            ");
          pFile.WriteLine("             (THE CATHOLIC UNIVERSITY OF KOREA ST.MARY'S HOSPITAL)                ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("상  호  명: "+ vName                        + "납품장소: "+vPurcName               );
          pFile.WriteLine("거래처코드: "+ vCode                        + vPurcName                            );
          pFile.WriteLine("전화  번호: "+ vCntctel+" FAX-NO:"+vFaxno                 + "처리일자:" + vDate    );
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("아래와 같이 발주합니다.                                      납품일자:" +vInDate   );
          pFile.WriteLine("--------------------------------------------------------------------------------  ");
          pFile.WriteLine("   발주번호        품        명                         규        격              ");
          pFile.WriteLine("   자재코드        단  위                   단  가         수  량         금  액  ");
          pFile.WriteLine("                    발주부서                                                       ");
          pFile.WriteLine("--------------------------------------------------------------------------------  ");
                     //12345678901234567890123456789012345678901234567890123456789012345678901234567890  ");
                     //----------1---------2---------3---------4---------5---------6---------7-------------
 } 
 
 // --------------------------------------------------   
 // Fax Text 출력을 처리하는 함수 
 // --------------------------------------------------   
 function fFaxDataTextBody(pPath, pFile) {
          //pFile.WriteLine("--------------------------------------------------------------------------------  ");
          //pFile.WriteLine("   발주번호        품        명                         규        격              ");
          //pFile.WriteLine("   자재코드        단  위                   단  가      수  량            금  액  ");
          //pFile.WriteLine("                    발주부서                                                       ");
          //pFile.WriteLine("--------------------------------------------------------------------------------  ");
          //             12345678901234567890123456789012345678901234567890123456789012345678901234567890
          //             ----------1---------2---------3---------4---------5---------6---------7-------------

          vBlank        =  rpad("", 19," ");
          vGoodnm       =  model.getValue(pPath + "/goodnm"  );                 // 물품명               
          vGoodspec     =  model.getValue(pPath + "/goodspec");                 // 규격               
          
          vReqno        =  rpad(model.getValue(pPath + "/reqseqno"),19," ");    // 발주번호                
          vGoodnm       =  vGoodnm   + rpad("",(41-fIsLength(vGoodnm  )) ," ");                             
          vGoodcd       =  rpad(model.getValue(pPath + "/goodcd"                ),19," ");    // 물품코드  
          vrequnit      =  rpad(model.getValue(pPath + "/requnit"               ),16," ");    // 단위

          vgoodunitcost =  putComma(model.getValue(pPath + "/requnitcost" ));                 // 단가  
          vreqqty       =  putComma(model.getValue(pPath + "/reqqty"      ));                 // 발주수량    
          vgoodcost     =  putComma(model.getValue(pPath + "/reqamt"    ));                 // 발주단가
          vReqAmt       =  model.getValue(pPath + "/reqamt");                                 // 발주금액       
 
          vgoodunitcost =  lpad(vgoodunitcost , 15, " ");                   
          vreqqty       =  lpad(vreqqty       , 15, " ");                   
          vgoodcost     =  lpad(vgoodcost     , 15, " ");                   

//          vdepthngnm    =  model.getValue(pPath + "/depthngnm");
//          vdepthngnm    =  vdepthngnm + rpad("",(31-fIsLength(vdepthngnm)) ," "); 
//          vdreqqty      =  lpad(vdreqqty                                ,15," ");                   
            vdepthngnm    =  gDutplcenm + rpad("",(31-fIsLength(gDutplcenm)) ," ");   


          if (vPurcNo != vReqno) {
              vCustAmt = parseFloat(vReqAmt);           	
              vPurcNo = vReqno; 
          }else{
              vCustAmt += parseFloat(vReqAmt);           	          	
          }	  

          pFile.WriteLine(vReqno     + vGoodnm   + vGoodspec                             );  // 발주번호 + 물품명 _+ 규격 
          pFile.WriteLine(vGoodcd    + vrequnit  + vgoodunitcost + vreqqty + vgoodcost   );  // 물품 + 단위  + 단가 + 수량 + 금액 

          pFile.WriteLine(vBlank + vdepthngnm + " "                                 );  // 부서 


/*          if (vPurcNo != vReqno) {

              pFile.WriteLine(vReqno     + vGoodnm   + vGoodspec                             );  // 발주번호 + 물품명 _+ 규격 
              pFile.WriteLine(vGoodcd    + vrequnit  + vgoodunitcost + vreqqty + vgoodcost   );  // 물품 + 단위  + 단가 + 수량 + 금액 

              vCustAmt += parseFloat(vReqAmt); 
              vPurcNo = vReqno; 
          }  
            
          pFile.WriteLine(vBlank + vdepthngnm + " "                                 );  // 부서 + 청구수량 */
 } 
 
  function fFaxDataTextTailer(pFile) {

          pFile.WriteLine("--------------------------------------------------------------------------------  ");
          pFile.WriteLine("1.납품통제일:매월10,12,13,25일                                                   ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("2.납품시간:오전 9∼11시,오후 2∼4시                                              ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("3.매월 20일 이후 납품시,계산서는 익월 날자로 발행해 주시시오.                  ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("4.납기 지연시에는 사전 지연사유를 알려주시기 바랍니다.                         ");
          pFile.WriteLine("                                                                                  ");
          pFile.WriteLine("거래명세표 작성시 자재번호ㆍ발주번호ㆍ거래처코드를 기재하십시오.              ");
          pFile.WriteLine(".END                                                                              ");
 }

 /* -------------------------------------------------  */
 /* ------End Of List -------------------------------  */
 /* -------------------------------------------------- */