/*
 * Author
 *		SNT Lotus Notes Development Team, 2002	
 * Version
 *		Version 1.0
 */
function GetKlienCheck( vklien_type ){
 today = new Date();
 thistime = today.getTime();
 f = document.forms[0]; 
 vbaru = eval("f." + vklien_type + "_No_KP_Baru.value");
 vlama = eval("f." + vklien_type + "_No_KP_Lama.value");
 vpolis = eval("f." + vklien_type + "_No_KP_Polis.value");
 vtentera = eval("f." + vklien_type + "_No_KP_Tentera.value");
 vpassport = eval("f." + vklien_type + "_No_Passport.value");
 vlain = eval("f." + vklien_type + "_No_Lain.value")
 vdefaultbaru = eval("f.Default_No_KP_Baru.value");
 vdefaultlama = eval("f.Default_No_KP_Lama.value");
 vdefaultpolis = eval("f.Default_No_KP_Polis.value");
 vdefaulttentera = eval("f.Default_No_KP_Tentera.value");
 vdefaultpassport = eval("f.Default_No_Passport.value");
 vdefaultlain = eval("f.Default_No_Lain.value");
 vname = eval("f." + vklien_type + "_Nama.value");
 vallkp = vbaru + "_" + vlama + "_" + vpolis + "_" + vtentera + "_" + vpassport + "_" + vlain;
 if( f.Default_No_KP_OnLoad.value != "" ){
  if( f.Default_No_KP_OnLoad.value != vallkp ){
   viskpedited = "YES"
  }else{
   viskpedited = "NO"
  }
 }else{
  viskpedited = "NO"
 }
 vcaselinkid = f.CaseLinkID.value;
 vdoclinkid = f.DocLinkID.value;
 vdocunid = f.DocUNID.value;
 vErrorStatus = f.Error_Status.value;
  param = "&sLogin&baru=" + escape( vbaru ) + "&lama=" + escape( vlama ) + "&polis=" + escape( vpolis )
  param += "&tentera=" + escape( vtentera ) + "&passport=" + escape( vpassport ) + "&lain=" + escape( vlain );
  param += "&defaultbaru=" + escape( vdefaultbaru ) + "&defaultlama=" + escape( vdefaultlama ) + "&defaultpolis=" + escape( vdefaultpolis );
  param += "&defaulttentera=" + escape( vdefaulttentera ) + "&defaultpassport=" + escape( vdefaultpassport );
  param += "&defaultlain=" + escape( vdefaultlain );
  param += "&name=" + escape( vname ) + "&caselinkid=" + vcaselinkid + "&doclinkid=" + vdoclinkid + "&docunid=" + vdocunid;
  param += "&type=" + vklien_type + "&iskpedited=" + viskpedited + "&vErrorStatus=" + vErrorStatus + "&" + thistime;
 checkclient( param );
}
function checkclient( param ){ 
  f = document.forms[0];
  tambahanpath = f.DBPath_Tambahan.value;  
  vURL = "/" + tambahanpath + "/GetKlienProfileHistory?OpenForm" +param;
  settings = "directories=0 status=1 scrollbars=1";
  window.open( vURL, "Check_Client", settings );
}
function CheckValidNoKP( vklien_type ){
  f = document.forms[0];
  vbaru = eval("f." + vklien_type + "_No_KP_Baru.value");
  vlama = eval("f." + vklien_type + "_No_KP_Lama.value");
  vpolis = eval("f." + vklien_type + "_No_KP_Polis.value");
  vtentera = eval("f." + vklien_type + "_No_KP_Tentera.value");
  vpassport = eval("f." + vklien_type + "_No_Passport.value");
  vlain = eval("f." + vklien_type + "_No_Lain.value");
  if( vbaru == "" && vlama == "" && vpolis == "" && vtentera == "" && vpassport == "" ){
   return "ALL_KP_NULL";
  }
  if( vbaru != "" ){
    if( isValidNewIC( vbaru ) ){      
      return "VALID_KP";
    }else{
      return "INVALID_KP_BARU";
    }
  }else if( vlama != "" || vpolis !="" || vtentera != "" || vpassport !="" ){
      return "VALID_KP";
  }
}
function RemoveSpace( value1 ){
  returnValue = "";
  for( i = 0; i < value1.length; i++ ){
    if( value1.charAt( i ) != " " ){
      returnValue = returnValue + value1.charAt( i );
    }
  }
  return returnValue.toUpperCase();
}
function GetKlienProfileInformation( klien_type, jeniskes, klien_kategori_klien ){
 today = new Date();
 thistime = today.getTime();
 f = document.forms[0];
 vbaru = eval( "f." + klien_type + "_No_KP_Baru.value" );
 vlama = eval("f." + klien_type + "_No_KP_Lama.value");
 vpolis = eval("f." + klien_type + "_No_KP_Polis.value");
 vtentera = eval("f." + klien_type + "_No_KP_Tentera.value");
 vpassport = eval("f." + klien_type + "_No_Passport.value");
 vlain = eval("f." + klien_type + "_No_Lain.value");
 if( vbaru == "" && vlama == "" && vpolis == "" && vtentera == "" && vpassport == "" && vlain == "" ){
  alert("Sekurang-kurangnya 1 Nombor KP diperlukan.");
  return;
}else{
  if( vbaru != "" ){
   temp_kp = vbaru;
  }else if( vlama != "" ){
   temp_kp = vlama;
  }else if( vpolis != "" ){
   temp_kp = vpolis;
  }else if( vtentera != "" ){
   temp_kp = vtentera;
  }else if( vpassport != "" ){
   temp_kp = vpassport;
  }else if( vlain != "" ){
   temp_kp = vlain;
  }
 }
 db = f.DBPath_Klien_Cari_Negeri.value;
 url = "" + db + "/GetKlienInfoFromState?OpenForm&sLogin&kp_field="+escape( temp_kp ) + "&baru=" + escape( vbaru ) + "&lama=";
 url += escape( vlama ) + "&polis=" + escape( vpolis ) + "&tentera=" + escape( vtentera ) + "&passport=" + vpassport + "&lain=" + vlain;
 url += "&klien_type=" + klien_kategori_klien + "&jeniskes=" + jeniskes + "&" + thistime;
 w = 600;
 h = 300;
 settings = "status=yes,menubar=no,scrollbars=yes";
 openNewWindow( url, "getKlienProfil", w, h, settings )
}
function GetKlienProfileInformationKaunter( klien_type, jeniskes, klien_kategori_klien ){
 today = new Date();
 thistime = today.getTime();
 f = document.forms[0];
 vbaru = eval( "f." + klien_type + "_No_KP_Baru.value" );
 vlama = eval("f." + klien_type + "_No_KP_Lama.value");
 vpolis = eval("f." + klien_type + "_No_KP_Polis.value");
 vtentera = eval("f." + klien_type + "_No_KP_Tentera.value");
 vpassport = eval("f." + klien_type + "_No_Passport.value");
 vlain = eval("f." + klien_type + "_No_Lain.value");
 if( vbaru == "" && vlama == "" && vpolis == "" && vtentera == "" && vpassport == "" ){
  alert("Sekurang-kurangnya 1 Nombor KP diperlukan.");
  return;
}else{
  if( vbaru != "" ){
   temp_kp = vbaru;
  }else if( vlama != "" ){
   temp_kp = vlama;
  }else if( vpolis != "" ){
   temp_kp = vpolis;
  }else if( vtentera != "" ){
   temp_kp = vtentera;
  }else if( vpassport != "" ){
   temp_kp = vpassport; 
  }
 }
 db = f.DBPath_Klien_Cari_Negeri.value;
 url = "" + db + "/GetKlienInfoFromState?OpenForm&kp_field="+escape( temp_kp ) + "&baru=" + escape( vbaru ) + "&lama=";
 url += escape( vlama ) + "&polis=" + escape( vpolis ) + "&tentera=" + escape( vtentera ) + "&passport=" + vpassport + "&lain=" + vlain;
 url += "&klien_type=" + klien_kategori_klien + "&jeniskes=" + jeniskes + "&isfromkaunter=YES&" + thistime;
 w = 600;
 h = 300;
 settings = "status=yes,menubar=no,scrollbars=yes";
 openNewWindow( url, "getKlienProfil", w, h, settings )
}
function GetKlienProfileInformationPortal( klien_type, jeniskes, klien_kategori_klien ){
 today = new Date();
 thistime = today.getTime();
 f = document.forms[0];
 vbaru = eval( "f." + klien_type + "_No_KP_Baru.value" );
 vlama = eval("f." + klien_type + "_No_KP_Lama.value");
 vpolis = eval("f." + klien_type + "_No_KP_Polis.value");
 vtentera = eval("f." + klien_type + "_No_KP_Tentera.value");
 vpassport = eval("f." + klien_type + "_No_Passport.value");
 vlain = eval("f." + klien_type + "_No_Lain.value");
 if( vbaru == "" && vlama == "" && vpolis == "" && vtentera == "" && vpassport == "" ){
  alert("Sekurang-kurangnya 1 Nombor KP diperlukan.");
  return;
}else{
  if( vbaru != "" ){
   temp_kp = vbaru;
  }else if( vlama != "" ){
   temp_kp = vlama;
  }else if( vpolis != "" ){
   temp_kp = vpolis;
  }else if( vtentera != "" ){
   temp_kp = vtentera;
  }else if( vpassport != "" ){
   temp_kp = vpassport; 
  }
 }
 db = f.DBPath_Klien_Cari_Negeri.value;
 url = "" + db + "/GetKlienInfoFromPortal?OpenForm&kp_field="+escape( temp_kp ) + "&baru=" + escape( vbaru ) + "&lama=";
 url += escape( vlama ) + "&polis=" + escape( vpolis ) + "&tentera=" + escape( vtentera ) + "&passport=" + vpassport + "&lain=" + vlain;
 url += "&klien_type=" + klien_kategori_klien + "&jeniskes=" + jeniskes + "&isfromkaunter=YES&" + thistime;
 w = 600;
 h = 300;
 settings = "status=yes,menubar=no,scrollbars=yes";
 openNewWindow( url, "getKlienProfil", w, h, settings )
}
function GetHistory( klien_type, jeniskes, klien_kategori_klien ){
  today = new Date();
 thistime = today.getTime();
 f = document.forms[0];
 vbaru = eval( "f." + klien_type + "_No_KP_Baru.value" );
 vlama = eval("f." + klien_type + "_No_KP_Lama.value");
 vpolis = eval("f." + klien_type + "_No_KP_Polis.value");
 vtentera = eval("f." + klien_type + "_No_KP_Tentera.value");
 vpassport = eval("f." + klien_type + "_No_Passport.value");
 vlain = eval("f." + klien_type + "_No_Lain.value");
 if( vbaru == "" && vlama == "" && vpolis == "" && vtentera == "" && vpassport == "" ){
  alert("Sekurang-kurangnya 1 Nombor KP diperlukan.");
  return;
}else{
  if( vbaru != "" ){
   temp_kp = vbaru;
  }else if( vlama != "" ){
   temp_kp = vlama;
  }else if( vpolis != "" ){
   temp_kp = vpolis;
  }else if( vtentera != "" ){
   temp_kp = vtentera;
  }else if( vpassport != "" ){
   temp_kp = vpassport;
  }else if( vlain != "" ){
   temp_kp = vlain;
  }
 }
 db = f.DBPath_Klien_Cari_Negeri.value;
 url = "" + db + "/GetKlienHistoryFromState?OpenForm&kp_field="+escape( temp_kp ) + "&baru=" + escape( vbaru ) + "&lama=";
 url += escape( vlama ) + "&polis=" + escape( vpolis ) + "&tentera=" + escape( vtentera ) + "&passport=" + vpassport + "&lain=" + vlain;
 url += "&klien_type=" + klien_kategori_klien + "&jeniskes=" + jeniskes + "&isfromkaunter=no&" + thistime;
 var w = (screen.width-200);
 var h = (screen.height-200);
 settings = "directories=no,status=yes,menubar=no,scrollbars=yes";
 openNewWindow( url, "getKlienProfil", w, h, settings );
 
}
function GetStateHistoryFromList( klien_type, jeniskes, klien_kategori_klien, temp_kp, vbaru, vlama, vpolis, vtentera, vpassport, vlain ){
 f = document.forms[0];
 today = new Date();
 thistime = today.getTime();
 db = f.DBPath_Klien_Cari_Negeri.value;
 url = "" + db + "/GetKlienHistoryFromState?OpenForm&sLogin&kp_field="+escape( temp_kp ) + "&baru=" + escape( vbaru ) + "&lama=";
 url += escape( vlama ) + "&polis=" + escape( vpolis ) + "&tentera=" + escape( vtentera ) + "&passport=" + vpassport + "&lain=" + vlain;
 url += "&klien_type=" + klien_kategori_klien + "&jeniskes=" + jeniskes + "&isfromkaunter=no&" + thistime;
 var w = (screen.width-200);
 var h = (screen.height-200);
 settings = "directories=no,status=yes,menubar=no,scrollbars=yes";
 openNewWindow( url, "getKlienProfil", w, h, settings );
}
function GetNationalHistoryFromList( klien_type, jeniskes, klien_kategori_klien, temp_kp, vbaru, vlama, vpolis, vtentera, vpassport, vlain ){
 f = document.forms[0];
 today = new Date();
 thistime = today.getTime();
 db = f.DBPath_Klien_Cari_Negara.value;
 url = "" + db + "/GetKlienHistoryFromNational?OpenForm&sLogin&kp_field="+escape( temp_kp ) + "&baru=" + escape( vbaru ) + "&lama=";
 url += escape( vlama ) + "&polis=" + escape( vpolis ) + "&tentera=" + escape( vtentera ) + "&passport=" + vpassport + "&lain=" + vlain;
 url += "&klien_type=" + klien_kategori_klien + "&jeniskes=" + jeniskes + "&isfromkaunter=no&" + thistime;
 var w = (screen.width-200);
 var h = (screen.height-200);
 settings = "directories=no,status=yes,menubar=no,scrollbars=yes";
 openNewWindow( url, "getKlienProfil", w, h, settings );
}
function IsTiadaDokumen( obj, vfield, kestype, vroles ){
	f = document.forms[0];
	objbaru = eval( "f." + vfield + "_No_KP_Baru" );
	objlama = eval( "f." + vfield + "_No_KP_Lama" );
	objpolis = eval( "f." + vfield + "_No_KP_Polis" );
	objtentera = eval( "f." + vfield + "_No_KP_Tentera" );
	objpassport = eval( "f." + vfield + "_No_Passport" );
	//objIsi = eval( "f.btnIsi" );
	if( obj.checked == true ){
		if( objbaru.value !="" || objlama.value !="" || objpolis.value !="" || objtentera.value !="" || objpassport.value !="" ){
			alert( "Anda perlu kosongkan ruangan Nombor KP yang lain sebelum memilih pilihan ini." );
			obj.checked = false;
		}else{
			setAsDisabledField( vfield + "_No_KP_Baru" );
			setAsDisabledField( vfield + "_No_KP_Lama" );
			setAsDisabledField( vfield + "_No_KP_Polis" );
			setAsDisabledField( vfield + "_No_KP_Tentera" );
			setAsDisabledField( vfield + "_No_Passport" );
			objbaru.value = "";
			objlama.value = "";
			objpolis.value = "";
			objtentera.value = "";
			objpassport.value = "";
			objbaru.disabled = true;
			objlama.disabled = true;
			objpolis.disabled = true;
			objtentera.disabled = true;
			objpassport.disabled = true;
			//objIsi.disabled = true;
			
			setAsNormalField( "Catatan_Dokumen" );
			f.Catatan_Dokumen.disabled = false;
			f.hIsDokumenLain.value = "YES";
		}
	}else{
		if( f.Catatan_Dokumen.value != "" ){
			alert( "Anda perlu kosongkan ruangan Catatan sebelum menyah-pilih pilihan ini." );
			obj.checked = true;
		}else{
			setAsNormalField( vfield + "_No_KP_Baru" );
			setAsNormalField( vfield + "_No_KP_Lama" );
			setAsNormalField( vfield + "_No_KP_Polis" );
			setAsNormalField( vfield + "_No_KP_Tentera" );
			setAsNormalField( vfield + "_No_Passport" );			
			objbaru.disabled = false;
			objlama.disabled = false;
			objpolis.disabled = false;
			objtentera.disabled = false;
			objpassport.disabled = false;
			//objIsi.disabled = false;
			
			setAsDisabledField( "Catatan_Dokumen" )
			f.Catatan_Dokumen.value = "";
			f.Catatan_Dokumen.disabled = true;
			f.hIsDokumenLain.value = "NO";
		}
	}
}
function initIsDokumenLain( vfield, kestype, vroles ){
	f = document.forms[0];
	objbaru = eval( "f." + vfield + "_No_KP_Baru" );
	objlama = eval( "f." + vfield + "_No_KP_Lama" );
	objpolis = eval( "f." + vfield + "_No_KP_Polis" );
	objtentera = eval( "f." + vfield + "_No_KP_Tentera" );
	objpassport = eval( "f." + vfield + "_No_Passport" );
	//objIsi = eval( "f.btnIsi" );
	
	//if( f.Catatan_Dokumen.value == "" ){
	if ( f.hIsDokumenLain.value=="YES"){
		setAsDisabledField( vfield + "_No_KP_Baru" );
		setAsDisabledField( vfield + "_No_KP_Lama" );
		setAsDisabledField( vfield + "_No_KP_Polis" );
		setAsDisabledField( vfield + "_No_KP_Tentera" );
		setAsDisabledField( vfield + "_No_Passport" );
		objbaru.disabled = true;
		objlama.disabled = true;
		objpolis.disabled = true;
		objtentera.disabled = true;
		objpassport.disabled = true;
		//objIsi.disabled = true;
		setAsNormalField( "Catatan_Dokumen" );
		f.Catatan_Dokumen.disabled = false;
	}else if ( f.hIsDokumenLain.value=="NO"){
		setAsNormalField( vfield + "_No_KP_Baru" );
		setAsNormalField( vfield + "_No_KP_Lama" );
		setAsNormalField( vfield + "_No_KP_Polis" );
		setAsNormalField( vfield + "_No_KP_Tentera" );
		setAsNormalField( vfield + "_No_Passport" );			
		objbaru.disabled = false;
		objlama.disabled = false;
		objpolis.disabled = false;
		objtentera.disabled = false;
		objpassport.disabled = false;
		//objIsi.disabled = false;
			
		setAsDisabledField( "Catatan_Dokumen" );		
		f.Catatan_Dokumen.disabled = true;
	}
}
function EnabledKPFields( vfield ){
	f = document.forms[0];
	objbaru = eval( "f." + vfield + "_No_KP_Baru" );
	objlama = eval( "f." + vfield + "_No_KP_Lama" );
	objpolis = eval( "f." + vfield + "_No_KP_Polis" );
	objtentera = eval( "f." + vfield + "_No_KP_Tentera" );
	objpassport = eval( "f." + vfield + "_No_Passport" );
	objcatatan = eval( "f.Catatan_Dokumen" );
	objbaru.disabled = false;
	objlama.disabled = false;
	objpolis.disabled = false;
	objtentera.disabled = false;
	objpassport.disabled = false;
	objcatatan.disabled = false;
	
}
function MansuhKlien( vKlienKategori ){
	f = document.forms[0];
	if( f.RegStatus.value == "Valid" ){
		if( confirm("Mansuh?") ){
			f.RegStatus.value = "DELETED";
			f.submit();
		}
	}
}