MINI

files >> C:/SiakApp/lib/SiakRefCapil.php
 <?php
function CapilNumUpdate() { return 3; }
function CapilCetakAkta() { return 10000; }
function CapilCetakKutipanAkta() { return 10000; }
function CapilCetakSurKet() { return 10000; }
function CapilCetakSurBuk() { return 10000; }
function CapilCetakSurTer() { return 10000; }

function CapilTimeSession()
{
	$id = date ("YmdHis");
	$ms = (double) microtime ();
	$ms *= 100;
	$ms = (int) $ms;
	$id = $id.$ms;

	return $id;
}

function DocTimeSession($Prop,$Kab)
{
	$criteria = New Criteria();
	$criteria->add(DocRegisterHeaderPeer::CREATED_DATE, date("d-m-Y"));
	
	$ref = DocRegisterHeaderPeer::doSelect($criteria);
	$total = count($ref);
	
	$numDoc = ($total === count($ref)) ? $total + 1 : 1;
	
	$id = "H".$Prop.$Kab.date("dmY").CapilSetAddZero($numDoc, 4);

	return $id;
}

function DocTimeSessionDetail($Prop,$Kab)
{
	$criteria = New Criteria();
	$criteria->add(DocRegisterDetailPeer::CREATED_DATE, date("d-m-Y"));
	
	$ref = DocRegisterDetailPeer::doSelect($criteria);
	$total = count($ref);
	
	$numDoc = ($total === count($ref)) ? $total + 1 : 1;
	
	$id = "D".$Prop.$Kab.date("dmY").CapilSetAddZero($numDoc, 4);

	return $id;
}

function CapilCovDate($tgl)
{
	$tanggal=explode("-",$tgl);
	$bulan=array('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
	//$tanggal[1]=$bulan[$tanggal[1]-1];
	return implode("-",$tanggal);
}


function CapilSetDate($tgl)
{
	if ($tgl=="--") { return "";}
	elseif ($tgl)
	{
		$tanggal=explode("-",$tgl);
		if ($tanggal[0] && $tanggal[1] && $tanggal[2])
		{
			$bulan=array('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
			//$tanggal[1]=$bulan[$tanggal[1]-1];

			if ($tanggal[2] > date("Y"))
			{
				$baseTgl = $tanggal[2] - 2000;
				$tanggal[2] = $baseTgl + 1900;
			}

			return implode("-",$tanggal);
		}
	}
}

function CapilGetDate($tgl)
{
	$bulan=array('JAN'=>'01','FEB'=>'02','MAR'=>'03','APR'=>'04','MAY'=>'05','JUN'=>'06','JUL'=>'07','AUG'=>'08','SEP'=>'09','OCT'=>'10','NOV'=>'11','DEC'=>'12');

	if ($tgl)
	{
		$newTgl = explode("-", $tgl);
		//$newTgl[1] = $bulan[$newTgl[1]];

		if ($newTgl[2] > date("Y"))
		{
			$baseTgl = $newTgl[2] - 2000;
			$newTgl[2] = $baseTgl + 1900;
		}

		if (strlen($newTgl[2]) < 3) $newTgl[2] = ($newTgl[2] > 50) ? "19" . $newTgl[2] : "20" . $newTgl[2];
		return $newTgl[0] . "-" . $newTgl[1] . "-" . $newTgl[2];
	}
}

function CapilSetTime($hour, $minute)
{
	return ($hour && $minute) ? $hour . ":" . $minute : ""; 
}

function CapilSetAddZero($str, $jml=2)
{
	if(strlen($str) < $jml)
	{
		$njum = $jml - strlen($str);
		$str = str_repeat("0", $njum) . $str;
	}
	
	return $str;
}

function CapilStringCut($text, $length="")
{
	$text = strip_tags($text);

	if (!$length) $length=200;
	if (strlen($text)>$length)
	{
		$text=substr($text,0,$length);
		$lastspacepos=strrpos($text,' ');
		return strip_tags(substr($text,0,$lastspacepos));
	} else return $text;
}

function CapilStringExplode($mainText, $length)
{
	$mainText = strip_tags($mainText);

	if (strlen($mainText) > $length)
	{
		$str[0] = CapilStringCut($mainText, $length);
		$str[1] = str_replace($str[0], "", $mainText);
	} 
	else $str[0] = $mainText;
	return $str;
}

// ---------------------------------------------------------------
// Referensi Penanggalan Versi Indonesia
// ---------------------------------------------------------------

function CapilDateGetAges($tgl)
{
	$tgl = CapilGetDate($tgl);
	$tanggal = explode("-", $tgl);
	if ($tanggal[2] > date("Y"))
	{
		$baseTgl = $tanggal[2] - 2000;
		$tanggal[2] = $baseTgl + 1900;
	}
	$age = date("Y") - $tanggal[2];
	if (date("m") <= $tanggal[1] )
	{
		if (date("m") < $tanggal[1] )
		{
			$age--;
		}else
		{
			if (date("d") < $tanggal[0])
			{
				$age--;
			}
		}
	}
	return $age;
}

function CapilDateGetDay($tgl)
{
	$tgl = CapilGetDate($tgl);

	$hari = array ("MINGGU", "SENIN", "SELASA", "RABU", "KAMIS", "JUMAT", "SABTU");

	if ($tgl)
	{
		$tanggal = explode("-", $tgl);

		$harike=getdate(mktime(0, 0, 0,$tanggal[1], $tanggal[0], $tanggal[2]));
		return $hari[$harike["wday"]];
	}
}

function CapilDateGetDate($tgl)
{
	$tgl = CapilGetDate($tgl);
	if ($tgl)
	{
		$tanggal = explode("-", $tgl);
		return $tanggal[0];
	}
}

function CapilDateGetMonth($tgl)
{
	$tgl = CapilGetDate($tgl);
	if ($tgl)
	{
		$tanggal = explode("-", $tgl);
		return $tanggal[1];
	}
}

function CapilDateGetYear($tgl)
{
	$tgl = CapilGetDate($tgl);
	if ($tgl)
	{
		$tanggal = explode("-", $tgl);

		if ($tanggal[2] > date("Y"))
		{
			$baseTgl = $tanggal[2] - 2000;
			$tanggal[2] = $baseTgl + 1900;
		}
		return $tanggal[2];
	}
}

function CapilDateFormat($tgl, $short=false, $useYear=false)
{
	//$bulanFull = array ("JAN"=>"JANUARI", "FEB"=>"FEBRUARI", "MAR"=>"MARET", "APR"=>"APRIL", "MAY"=>"MEI", "JUN"=>"JUNI", "JUL"=>"JULI", "AUG"=>"AGUSTUS", "SEP"=>"SEPTEMBER", "OCT"=>"OKTOBER", "NOV"=>"NOVEMBER", "DEC"=>"DESEMBER");
	//$bulanShort = array ("JAN"=>"JAN", "FEB"=>"FEB", "MAR"=>"MAR", "APR"=>"APR", "MAY"=>"MEI", "JUN"=>"JUN", "JUL"=>"JUL", "AUG"=>"AGUS", "SEP"=>"SEP", "OCT"=>"OKT", "NOV"=>"NOV", "DEC"=>"DES");
	
	$bulanFull = array ("01"=>"JANUARI", "02"=>"FEBRUARI", "03"=>"MARET", "04"=>"APRIL", "05"=>"MEI", "06"=>"JUNI", "07"=>"JULI", "08"=>"AGUSTUS", "09"=>"SEPTEMBER", "10"=>"OKTOBER", "11"=>"NOVEMBER", "12"=>"DESEMBER");
	$bulanShort = array ("01"=>"JAN", "02"=>"FEB", "03"=>"MAR", "04"=>"APR", "05"=>"MEI", "06"=>"JUN", "07"=>"JUL", "08"=>"AGUS", "09"=>"SEP", "10"=>"OKT", "11"=>"NOV", "12"=>"DES");
	
	$tanggal = explode("-", $tgl);

	$blnName = ($short) ? $bulanShort : $bulanFull;
		
	$hasil = $tanggal[0] . " " . $blnName[$tanggal[1]];
	if ($useYear) 
	{
		if (strlen($tanggal[2]) < 3) $tanggal[2] = ($tanggal[2] > 50) ? "19" . $tanggal[2] : "20" . $tanggal[2];
		$hasil.= " " . $tanggal[2];
	}
	return $hasil;
}



function CapilDateSayDate($tgl, $en=false, $ucase=false)
{
	$tanggal = round(CapilDateGetDate($tgl));
	$ret = ($en) ? CapilSayNumberEng($tanggal) : CapilSayNumberInd($tanggal);
	return ($ucase) ? strtoupper($ret) : $ret;
}


function CapilDateSayMonthHrf($tgl, $en=false)
{
	$bulanInd = array ("JAN"=>"JANUARI", "FEB"=>"FEBRUARI", "MAR"=>"MARET", "APR"=>"APRIL", "MAY"=>"MEI", "JUN"=>"JUNI", "JUL"=>"JULI", "AUG"=>"AGUSTUS", "SEP"=>"SEPTEMBER", "OCT"=>"OKTOBER", "NOV"=>"NOVEMBER", "DEC"=>"DESEMBER");
	$bulanEng = array ("JAN"=>"JANUARY", "FEB"=>"FEBRUARY", "MAR"=>"MARCH", "APR"=>"APRIL", "MAY"=>"MAY", "JUN"=>"JUNE", "JUL"=>"JULY", "AUG"=>"AUGUST", "SEP"=>"SEPTEMBER", "OCT"=>"OCTOBER", "NOV"=>"NOVEMBER", "DEC"=>"DECEMBER");
	
	//$bulanInd = array ("01"=>"JANUARI", "02"=>"FEBRUARI", "03"=>"MARET", "04"=>"APRIL", "05"=>"MEI", "06"=>"JUNI", "07"=>"JULI", "08"=>"AGUSTUS", "09"=>"SEPTEMBER", "10"=>"OKTOBER", "11"=>"NOVEMBER", "12"=>"DESEMBER");
	//$bulanEng = array ("01"=>"JANUARY", "02"=>"FEBRUARY", "03"=>"MARCH", "04"=>"APRIL", "05"=>"MAY", "06"=>"JUNE", "07"=>"JULY", "08"=>"AUGUST", "09"=>"SEPTEMBER", "10"=>"OCTOBER", "11"=>"NOVEMBER", "12"=>"DECEMBER");
	
	$tanggal = explode("-", $tgl);
		
	$hasil = ($en) ? $bulanEng[strtoupper($tanggal[1])] : $bulanInd[strtoupper($tanggal[1])];
	return $hasil;
}

function CapilDateSayMonth($tgl, $en=false)
{
	//$bulanInd = array ("JAN"=>"JANUARI", "FEB"=>"FEBRUARI", "MAR"=>"MARET", "APR"=>"APRIL", "MAY"=>"MEI", "JUN"=>"JUNI", "JUL"=>"JULI", "AUG"=>"AGUSTUS", "SEP"=>"SEPTEMBER", "OCT"=>"OKTOBER", "NOV"=>"NOVEMBER", "DEC"=>"DESEMBER");
	//$bulanEng = array ("JAN"=>"JANUARY", "FEB"=>"FEBRUARY", "MAR"=>"MARCH", "APR"=>"APRIL", "MAY"=>"MAY", "JUN"=>"JUNE", "JUL"=>"JULY", "AUG"=>"AUGUST", "SEP"=>"SEPTEMBER", "OCT"=>"OCTOBER", "NOV"=>"NOVEMBER", "DEC"=>"DECEMBER");
	
	$bulanInd = array ("01"=>"JANUARI", "02"=>"FEBRUARI", "03"=>"MARET", "04"=>"APRIL", "05"=>"MEI", "06"=>"JUNI", "07"=>"JULI", "08"=>"AGUSTUS", "09"=>"SEPTEMBER", "10"=>"OKTOBER", "11"=>"NOVEMBER", "12"=>"DESEMBER");
	$bulanEng = array ("01"=>"JANUARY", "02"=>"FEBRUARY", "03"=>"MARCH", "04"=>"APRIL", "05"=>"MAY", "06"=>"JUNE", "07"=>"JULY", "08"=>"AUGUST", "09"=>"SEPTEMBER", "10"=>"OCTOBER", "11"=>"NOVEMBER", "12"=>"DECEMBER");
	
	$tanggal = explode("-", $tgl);
		
	$hasil = ($en) ? $bulanEng[strtoupper($tanggal[1])] : $bulanInd[strtoupper($tanggal[1])];
	return $hasil;
}

/* function CapilDateSayYear($tgl, $en=false, $ucase=false)
{
	$tanggal = substr(CapilDateGetYear($tgl), 2, 2);

	if (strlen($tanggal) < 3) 
	{
		if ($tanggal > 50) $pref = ($en) ? "NINETY " : "SEMBILAN BELAS ";
		if ($tanggal < 50) $tanggal =  "20" . $tanggal;

		$ret = ($en) ? $pref . CapilSayNumberEng($tanggal) : $pref . CapilSayNumberInd($tanggal);
		return ($ucase) ? strtoupper($ret) : $ret;
	}
} */
function CapilDateSayYear($tgl, $en=false, $ucase=false)
{
	$tanggal = substr(CapilDateGetYear($tgl), 2, 2);
	$fullyear = substr(CapilDateGetYear($tgl), 0, 4);
	if (strlen($tanggal) < 3) 
	{
		if ($tanggal > 50 || $fullyear < 2000) $pref = ($en) ? "NINETEEN " : "SERIBU SEMBILAN RATUS ";
		if ($tanggal < 50 && $fullyear >= 2000) $tanggal =  "20" . $tanggal;

		$ret = ($en) ? $pref . CapilSayNumberEng($tanggal) : $pref . CapilSayNumberInd($tanggal);
		return ($ucase) ? strtoupper($ret) : $ret;
	}
}

function CapilSayNumber($num, $en=false, $ucase=false)
{
	$ret = ($en) ? CapilSayNumberEng($num) : CapilSayNumberInd($num);
	return ($ucase) ? strtoupper($ret) : $ret;
}

function CapilNikAvailable($nik, $wrgngr="1")
{
	if ($nik)
	{
		$bioCriteria = new Criteria();

		if ($wrgngr=="2")
		{
			$bioCriteria->add(BiodataWnaPeer::NIK, $nik);
			$bio = BiodataWnaPeer::doSelect($bioCriteria);

			if(count($bio)==0) return false;
			else return true;
		}
		else
		{
			$bioCriteria->add(BiodataWniPeer::NIK, $nik);
			$bio = BiodataWniPeer::doSelect($bioCriteria);

			if(count($bio)==0) return false;
			else return true;
		}
	}
	else return "";
}

// ---------------------------------------------------------------
// Referensi Dokumen Persyaratan
// ---------------------------------------------------------------

function CapilGetReference($paraSect, $no)
{
	if ($paraSect && $no)
	{
		$criteria = new Criteria();
		$criteria->add(RefSiakWniPeer::SECT, $paraSect);
		$criteria->add(RefSiakWniPeer::NO, $no);
		$ref = RefSiakWniPeer::doSelect($criteria);

		$rows = $ref[0];
		return strtoupper($rows->getDescrip());
	}
	else return "";
}

function CapilLoadReference($paraSect, $zero=true)
{
	$criteria = new Criteria();
	$criteria->add(RefSiakWniPeer::SECT, $paraSect);
	$criteria->addAscendingOrderByColumn(RefSiakWniPeer::NO);
	$ref = RefSiakWniPeer::doSelect($criteria);
	$dpValue = array(); 
	if ($zero) $dpValue["0"] = "----- PILIHAN -----";
	foreach($ref as $obj){
		$dpValue[$obj->getNo()] = $obj->getNo()." - ".$obj->getDescrip();
	}
	return $dpValue;
}

function CapilGetRegion($reg, $no)
{
	if ($reg && $no)
	{
		$criteria = new Criteria();

		switch($reg)
		{
			case "KEL":
				$criteria->add(SetupKelPeer::NO_KEL, $no);
				$ref = SetupKelPeer::doSelect($criteria);
				$rows = $ref[0];
				$regionName = $rows->getNamaKel();
				break;
			case "KEC":
				$criteria->add(SetupKecPeer::NO_KEC, $no);
				$ref = SetupKecPeer::doSelect($criteria);
				$rows = $ref[0];
				$regionName = $rows->getNamaKec();
				break;
			case "KAB":
				$criteria->add(SetupKabPeer::NO_KAB, $no);
				$ref = SetupKabPeer::doSelect($criteria);
				$rows = $ref[0];
				$regionName = $rows->getNamaKab();
				break;
			default:
				$criteria->add(SetupPropPeer::NO_PROP, $no);
				$ref = SetupPropPeer::doSelect($criteria);
				$rows = $ref[0];
				$regionName = $rows->getNamaProp();
				break;
		}
		
		return $regionName;
	}
	else return "";
}

function CapilGetRegional($provCode, $kabCode=false, $kecCode=false, $kelCode=false)
{
	if ($provCode)
	{
		$criteria = new Criteria();
		
		if ($kabCode)
		{
			if ($kecCode)
			{
				if ($kelCode)
				{
					$criteria->add(SetupKelPeer::NO_PROP, $provCode);
					$criteria->add(SetupKelPeer::NO_KAB, $kabCode);
					$criteria->add(SetupKelPeer::NO_KEC, $kecCode);
					$criteria->add(SetupKelPeer::NO_KEL, $kelCode);
					$ref = SetupKelPeer::doSelect($criteria);
					if(count($ref)==0)
						$regionName= "";
					else{
						$rows = $ref[0];
						$regionName = $rows->getNamaKel();
					}
				}
				else
				{
					$criteria->add(SetupKecPeer::NO_PROP, $provCode);
					$criteria->add(SetupKecPeer::NO_KAB, $kabCode);
					$criteria->add(SetupKecPeer::NO_KEC, $kecCode);
					$ref = SetupKecPeer::doSelect($criteria);
					if(count($ref)==0)
						$regionName="";
					else{		
						$rows = $ref[0];
						$regionName = $rows->getNamaKec();
					}
				}
			}
			else
			{
				$criteria->add(SetupKabPeer::NO_PROP, $provCode);
				$criteria->add(SetupKabPeer::NO_KAB, $kabCode);
				$ref = SetupKabPeer::doSelect($criteria);
				$rows = $ref[0];
				$regionName = $rows->getNamaKab();
			}
		}
		else
		{
			$criteria->add(SetupPropPeer::NO_PROP, $provCode);
			$ref = SetupPropPeer::doSelect($criteria);
			$rows = $ref[0];
			$regionName = $rows->getNamaProp();
		}
	}
	
	return ($regionName) ? $regionName : "";
}

function CapilGetNegara()
{
	$negaraCriteria = new Criteria();
	$negaraCriteria->addAscendingOrderByColumn(RefNegaraPeer::NO);
	$setupNegara = RefNegaraPeer::doSelect($negaraCriteria);
	$dpValue = array(); 
	$dpValue[""] = "----- PILIHAN -----";
	foreach($setupNegara as $object){
		$dpValue[$object->getNo()] = $object->getNo() . " - " . $object->getDescrip();
	}
	return $dpValue;
}

function CapilGetDocument($paraSect, $no)
{
	if ($paraSect && $no)
	{
		$criteria = new Criteria();
		$criteria->add(RefSiakDocPeer::SECTION, $paraSect);
		$criteria->add(RefSiakDocPeer::NO, $no);
		$ref = RefSiakDocPeer::doSelect($criteria);

		$rows = $ref[0];
		return strtoupper($rows->getDescription());
	}
	else return "";
}

function CapilDocLoadReference($paraSect, $empty=false)
{
	$criteria = new Criteria();
	$criteria->add(RefSiakDocPeer::SECTION, $paraSect);
	$criteria->addAscendingOrderByColumn(RefSiakDocPeer::NO);
	$ref = RefSiakDocPeer::doSelect($criteria);

	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	foreach($ref as $obj)
	{
		$dpValue[$obj->getNo()] = ($empty) ? $obj->getNo() . " - " . $obj->getDescription() : $obj->getDescription();
	}
	
	return $dpValue;
}

function CapilStaatsbladLoadReference($paraSect, $empty=false)
{
	$criteria = new Criteria();
	$criteria->add(RefSiakStbldPeer::SECTION, $paraSect);
	$criteria->addAscendingOrderByColumn(RefSiakStbldPeer::NO);
	$ref = RefSiakStbldPeer::doSelect($criteria);

	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "--- TIDAK ADA STBLD ---";
	
	foreach($ref as $obj)
	{
		$dpValue[$obj->getNo()] = $obj->getDescription();
	}
	
	return $dpValue;
}

function CapilGetStaatsblad($paraSect, $no)
{
	if ($paraSect && $no)
	{
		$criteria = new Criteria();
		$criteria->add(RefSiakStbldPeer::SECTION, $paraSect);
		$criteria->add(RefSiakStbldPeer::NO, $no);
		$ref = RefSiakStbldPeer::doSelect($criteria);

		$rows = $ref[0];
		return strtoupper($rows->getDescription());
	}
	else return "";
}

function CapilMonthReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue[""] = "-- PILIHAN --";
	
	$dpValue["01"] = "JANUARI";
	$dpValue["02"] = "FEBRUARI";
	$dpValue["03"] = "MARET";
	$dpValue["04"] = "APRIL";
	$dpValue["05"] = "MEI";
	$dpValue["06"] = "JUNI";
	$dpValue["07"] = "JULI";
	$dpValue["08"] = "AGUSTUS";
	$dpValue["09"] = "SEPTEMBER";
	$dpValue["10"] = "OKTOBER";
	$dpValue["11"] = "NOVEMBER";
	$dpValue["12"] = "DESEMBER";
	
	return $dpValue;
}

function CapilYearReference($empty=false)
{
	$year = range(date("Y") - 5, date("Y") + 5);

	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "-- THN --";
	
	foreach($year as $obj)
	{
		$dpValue[$obj] = $obj;
	}
	
	return $dpValue;
}

function CapilJenisLahirReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- BLN -----";
	
	$dpValue["LU"] = "Umum";
	$dpValue["LT"] = "Terlambat";
	
	return $dpValue;
}

function CapilPenetapanReference($empty=false)
{
	$dpValue = array(); 
	//if ($empty) $dpValue["0"] = "----- BLN -----";
	$dpValue[""] = "";
	$dpValue["KEPALA DINAS"] = "Kepala Dinas";
	//$dpValue["PENGADILAN NEGERI"] = "Pengadilan Negeri";
	
	return $dpValue;
}

function CapilKelaminReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["1"] = "LAKI-LAKI";
	$dpValue["2"] = "PEREMPUAN";
	
	return $dpValue;
}

function CapilPasanganReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["1"] = "Suami";
	$dpValue["2"] = "Isteri";
	
	return $dpValue;
}

function CapilPencarianReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["1"] = "NO AKTA";
	$dpValue["2"] = "NAMA LENGKAP";
	$dpValue["3"] = "TANGGAL ENTRY (dd-mm-yyyy)";
	
	return $dpValue;
}

function CapilPencarianWargaReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["2"] = "NAMA LENGKAP";
	$dpValue["3"] = "TANGGAL ENTRY (dd-mm-yyyy)";
	
	return $dpValue;
}

function CapilPencarianLahirMatiReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["1"] = "TGL ENTRY (dd-mm-yyyy)";
	
	return $dpValue;
}

function CapilPencarianAnakAngkatReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["1"] = "NAMA ANAK";
	$dpValue["2"] = "NAMA ORANGTUA KANDUNG";
	$dpValue["3"] = "NAMA ORANGTUA ANGKAT";
	$dpValue["4"] = "TANGGAL ENTRY (dd-mm-yyyy)";
	
	return $dpValue;
}

function CapilPencarianAnakSahAkuiReference($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["1"] = "NAMA ANAK";
	$dpValue["2"] = "NAMA ORANGTUA";
	$dpValue["3"] = "TANGGAL ENTRY (dd-mm-yyyy)";
	
	return $dpValue;
}

function CapilKelahiranOptionReference()
{
	$dpValue = array(); 
	
	$dpValue[0] = "----- PILIHAN -----";
	$dpValue[1] = "DI LUAR DOMISILI ORANGTUA";
	$dpValue[2] = "WNA DI INDONESIA";
	$dpValue[3] = "WNI DI LUAR NEGERI";
	
	return $dpValue;
}

function CapilDomisiliReference()
{
	$dpValue = array(); 
	
	$dpValue[""] = "----- PILIHAN -----";
	$dpValue["L"] = "DI LUAR DOMISILI";
	$dpValue["D"] = "DI DALAM DOMISILI";
	
	return $dpValue;
}

function CapilTotalHalamanReference()
{
	$dpValue = array(); 
	$dpValue["10"] = "10";
	$dpValue["20"] = "20";
	$dpValue["50"] = "50";
	$dpValue["100"] = "100";
	
	return $dpValue;
}

function CapilAlasanPindahWnaReference()
{
	$dpValue = array(); 
	
	$dpValue[""] = "----- PILIHAN -----";
	$dpValue[1] = "PERMOHONAN KEWARGANEGARAAN";
	$dpValue[2] = "PERKAWINAN (PASAL 19 UU NO. 12/2006)";
	
	return $dpValue;
}

function CapilSayHundredInd($y, $flag)
{
	$angka = array("", "se", "dua ", "tiga ", "empat ", "lima ", "enam ", "tujuh ", "delapan ", "sembilan ");
	$posisi = array("", "puluh ", "ratus ");

	$bilang="";
	
	for ($i=2;$i>=1;$i--)
	{
		$tmp=floor($y/pow(10, $i));
		if ($tmp>0)
		{
			$bag=$angka[$tmp];
			if ($i==1 && $tmp==1)
			{
				$y-=$tmp*pow(10, $i);
				if ($y>=1) $posisi[$i]= "belas ";
				else $angka[$y]="se";

				$bilang .=$angka[$y] . $posisi[$i];
				return $bilang;
				break;
			}
			else $bilang .=$bag.$posisi[$i];
		}
		$y-=$tmp*pow(10, $i);
	}
	if ($flag==0) $angka[1]="satu ";
	$bilang.=$angka[$y];
	return $bilang;
}

function CapilSayNumberInd($x, $en=false)
{
	$letak = ($en) ? array("", "thousand ", "million ", "billion ", "trillion ") : array("", "ribu ", "juta ", "milyar ", "trilyun ");
	$teks="";
	$val = explode(".", $x);

	if ($val[0]==0)
	{
		$teks="nol";
		return $teks;
		break;
	}

	if ($val[0]<2000) $tanda=1;
	else $tanda=0;

	if ($x>=1E+15)
	{
		$teks="Nilai terlalu besar";
		return $teks;
		break;
	}

	for ($i=4;$i>=1;$i--)
	{
		$tampung=floor($val[0]/pow(10,3*$i));
		if ($tampung>0)
		{
			$bagian=CapilSayHundredInd($tampung, $tanda, $en);
			$teks.=$bagian.$letak[$i];
		}
		$val[0]-=$tampung*pow(10, 3*$i);
	}
	$teks.=CapilSayHundredInd($val[0], 0, $en);

	if ($val[1])
	{
		$teks.=" koma ";
		for ($i=4;$i>=1;$i--)
		{
			$tampung=floor($val[1]/pow(10,3*$i));
			if ($tampung>0)
			{
				$bagian=CapilSayHundredInd($tampung, $tanda, $en);
				$teks.=$bagian.$letak[$i];
			}
			$val[1]-=$tampung*pow(10, 3*$i);
		}
		$teks.=CapilSayHundredInd($val[1], 0, $en);
	}
	return $teks;
}

function CapilSayNumberEng($num){
    $big = array(    '', 
                    'thousand', 
                    'million', 
                    'billion', 
                    'trillion', 
                    'quadrillion', 
                    'quintillion', 
                    'sextillion', 
                    'septillion');
    $small = array(    '', 
                    'one', 
                    'two', 
                    'three', 
                    'four', 
                    'five', 
                    'six', 
                    'seven', 
                    'eight', 
                    'nine', 
                    'ten', 
                    'eleven', 
                    'twelve', 
                    'thirteen', 
                    'fourteen', 
                    'fifteen', 
                    'sixteen', 
                    'seventeen', 
                    'eighteen', 
                    'nineteen');
    $other = array(    '',
                    '',
                    'twenty', 
                    'thirty', 
                    'fourty', 
                    'fifty', 
                    'sixty', 
                    'seventy', 
                    'eighty', 
                    'ninety');
    $hun = 'hundred';
    $end = array();
    $num = strrev($num);
    $final = array();
    for($i=0; $i<strlen($num); $i+=3){
        $end[$i] = strrev(substr($num, $i, 3));
    }
    $end = array_reverse($end);
    for($i=0; $i<sizeof($end); $i++){
        $len = strlen($end[$i]);
        $temp = $end[$i];
        if($len == 3){
            $final[] = $temp{0} != '0' ? $small[$end[$i]{0}] . ' ' . $hun : $small[$end[$i]{0}];
            $end[$i] = substr($end[$i], 1, 2);
        }
        if($len > 1){
            $final[] = array_key_exists($end[$i], $small) ? $small[$end[$i]] : $other[$end[$i]{0}] . ' ' . $small[$end[$i]{1}];
        }else{
            $final[] = $small[$end[$i]{0}];
        }
        $final[] = $temp != '000' ? $big[sizeof($end) - $i - 1] : '';
    }
    return str_replace(array('  ', '  ', '  ', '  ', '  ', '  ', '  '), ' ', implode(' ',$final));
}

function CapilSayNumberEng2($no) {
	$num = array(0, "first", "second", "third", "fourth", "fifth", "sixth","seventh","eighth","ninth","tenth","eleventh","twelfth","thirteenth","fourteenth","fifteenth","sixteenth","seventeenth","eighteenth","nineteenth","twentieth","twenty-first","twenty-second","twenty-third","twenty-fourth","twenty-fifth","twenty-sixth","twenty-seventh","twenty-eighth","twenty-ninth","thirtieth","thirty-first");
	return $num[$no];
}
// ---------------------------------------------------------------
// Referensi Luar Negeri
// ---------------------------------------------------------------

function siakGetKedubes()
{
	$getCriteria = new Criteria();
	$getCriteria->addAscendingOrderByColumn(SetupKedubesPeer::NO_KEDUBES);		
	$getSetup = SetupKedubesPeer::doSelect($getCriteria);
	$getValue = array(); 
	$getValue[""] = "----- PILIHAN -----";
	foreach($getSetup as $object){
		$getValue[$object->getNoKedubes()] = $object->getNamaNegara();
	}
	return $getValue;
}

function siakGetKonjenByParam($noKedubes, $noKonjen)
{
	$getCriteria = new Criteria();
	$getCriteria->addAscendingOrderByColumn(SetupKonjenPeer::NO_KONJEN);
	$getCriteria->add(SetupKonjenPeer::NO_KEDUBES, $noKedubes);
	$getCriteria->add(SetupKonjenPeer::NO_KONJEN, $noKonjen);	
	$getSetup = SetupKedubesPeer::doSelect($getCriteria);
	$getValue = array(); 
	$getValue[""] = "----- PILIHAN -----";
	foreach($getSetup as $object){
		$getValue[$object->getNoKedubes()] = $object->getNamaNegara();
	}
	return $getValue;
}
// ---------------------------------------------------------------
// Generator Nomor Akta
// ---------------------------------------------------------------
/*
function CapilGeneratorAktaKelahiran($noProp, $noKab, $noKec=false, $status, $tglLahir, $blnLahir, $thnLahir)
{
	$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);

	$criteria = new Criteria();
	//$criteria->add(CapilLahirPeer::BAYI_TGL_LAHIR, $tgl);
	$criteria->add(CapilLahirPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilLahirPeer::ADM_NO_PROV, $noProp);
	$criteria->add(CapilLahirPeer::ADM_NO_KAB, $noKab);
	if ($noKec) $criteria->add(CapilLahirPeer::ADM_NO_KEC, $noKec);

	$ref = CapilLahirPeer::doSelect($criteria);
	$total = count($ref);
	
	$numLahir = ($total == count($ref)) ? $total + 1 : 1;
	//print_r($numLahir);
	
	$akta = CapilSetAddZero($noProp) . CapilSetAddZero($noKab);
	if ($noKec) $akta.= CapilSetAddZero($noKec);
	//$akta.= "-" . $status . "-" . $tglLahir . $blnLahir . $thnLahir . "-" . CapilSetAddZero($numLahir, 4);
	$akta.= "-" . $status . "-" . date("dmY") . "-" . CapilSetAddZero($numLahir, 4);
	
	return $akta;
}
*/

function CapilGeneratorAktaKelahiran($noProp, $noKab, $noKec=false, $status, $tglLahir, $blnLahir, $thnLahir){
	//$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);
	$noAkta="CPL-LHR".tambahnol($noProp,2).tambahnol($noKab,2).date('dmy');	
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->add(SeqnMontrCapilPeer::SEQUENCE_NAME,$noAkta);
	$siakGenMon=SeqnMontrCapilPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontrCapil();
	$siakGenMonData->setSequenceName($noAkta);
	
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$siakGenMonData->setCreated(date('d-m-Y'));
		$resultValue=tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$resultValue=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	
	$siakGenMonData->save();
	return tambahnol($noProp,2).tambahnol($noKab,2)."-".$status."-".date("dmY")."-".$resultValue;//substr($hasil,2);	
	

}
/*
function CapilGeneratorAktaPerkawinan($noProp, $noKab, $noKec=false, $tglKawin, $blnKawin, $thnKawin)
{
	$tgl = SiakCovDate($tglKawin . "-" . $blnKawin . "-" . $thnKawin);

	$criteria = new Criteria();
	//$criteria->add(CapilKawinPeer::KAWIN_TGL_KAWIN, $tgl);
	$criteria->add(CapilKawinPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilKawinPeer::ADM_NO_PROV, $noProp);
	$criteria->add(CapilKawinPeer::ADM_NO_KAB, $noKab);
	if ($noKec) $criteria->add(CapilKawinPeer::ADM_NO_KEC, $noKec);
	$ref = CapilKawinPeer::doSelect($criteria);
	$total = count($ref);
	$numKawin = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = CapilSetAddZero($noProp) . CapilSetAddZero($noKab);
	if ($noKec) $akta.= CapilSetAddZero($noKec);
	$akta.= "-KW-" . date("dmY") . "-" . CapilSetAddZero($numKawin, 4);

	return $akta;
}
*/
function CapilGeneratorAktaPerkawinan($noProp, $noKab, $noKec=false, $tglKawin, $blnKawin, $thnKawin){
	//$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);
	$noAkta="CPL-KWN".tambahnol($noProp,2).tambahnol($noKab,2).date('dmy');	
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->add(SeqnMontrCapilPeer::SEQUENCE_NAME,$noAkta);
	$siakGenMon=SeqnMontrCapilPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontrCapil();
	$siakGenMonData->setSequenceName($noAkta);
	
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$resultValue=tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$resultValue=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	
	$siakGenMonData->save();
	return tambahnol($noProp,2).tambahnol($noKab,2)."-KW-".date("dmY")."-".$resultValue;//substr($hasil,2);		
}

/*
function CapilGeneratorAktaPerceraian($noProp, $noKab, $noKec=false, $tglCerai, $blnCerai, $thnCerai)
{
	$tgl = SiakCovDate($tglCerai . "-" . $blnCerai . "-" . $thnCerai);

	$criteria = new Criteria();
	//$criteria->add(CapilCeraiPeer::CERAI_PGDLN_PP_TGL, $tgl);
	$criteria->add(CapilCeraiPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilCeraiPeer::ADM_NO_PROV, $noProp);
	$criteria->add(CapilCeraiPeer::ADM_NO_KAB, $noKab);
	if ($noKec) $criteria->add(CapilCeraiPeer::ADM_NO_KEC, $noKec);
	$ref = CapilCeraiPeer::doSelect($criteria);
	$total = count($ref);
	$numCerai = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = CapilSetAddZero($noProp) . CapilSetAddZero($noKab);
	if ($noKec) $akta.= CapilSetAddZero($noKec);
	$akta.= "-CR-" . date("dmY") . "-" . CapilSetAddZero($numCerai, 4);

	return $akta;
}
*/

function CapilGeneratorAktaPerceraian($noProp, $noKab, $noKec=false, $tglCerai, $blnCerai, $thnCerai){
	//$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);
	$noAkta="CPL-CRI".tambahnol($noProp,2).tambahnol($noKab,2).date('dmy');	
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->add(SeqnMontrCapilPeer::SEQUENCE_NAME,$noAkta);
	$siakGenMon=SeqnMontrCapilPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontrCapil();
	$siakGenMonData->setSequenceName($noAkta);
	
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$resultValue=tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$resultValue=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	
	$siakGenMonData->save();
	return tambahnol($noProp,2).tambahnol($noKab,2)."-CR-".date("dmY")."-".$resultValue;//substr($hasil,2);		
}
/*
function CapilGeneratorAktaKematian($noProp, $noKab, $noKec=false, $tglMati, $blnMati, $thnMati)
{
	$tgl = $tglMati . "-" . $blnMati . "-" . $thnMati;

	$criteria = new Criteria();
	//$criteria->add(CapilMatiPeer::MATI_TGL_MATI, $tgl);
	$criteria->add(CapilMatiPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilMatiPeer::ADM_NO_PROV, $noProp);
	$criteria->add(CapilMatiPeer::ADM_NO_KAB, $noKab);
	if ($noKec) $criteria->add(CapilMatiPeer::ADM_NO_KEC, $noKec);
	$ref = CapilMatiPeer::doSelect($criteria);
	$total = count($ref);
	$numMati = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = CapilSetAddZero($noProp) . CapilSetAddZero($noKab);
	if ($noKec) $akta.= CapilSetAddZero($noKec);
	$akta.= "-KM-" . date("dmY") . "-" . CapilSetAddZero($numMati, 4);

	return $akta;
}
*/

function CapilGeneratorAktaKematian($noProp, $noKab, $noKec=false, $tglMati, $blnMati, $thnMati){
	//$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);
	$noAkta="CPL-KMT".tambahnol($noProp,2).tambahnol($noKab,2).date('dmy');	
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->add(SeqnMontrCapilPeer::SEQUENCE_NAME,$noAkta);
	$siakGenMon=SeqnMontrCapilPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontrCapil();
	$siakGenMonData->setSequenceName($noAkta);
	
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$resultValue=tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$resultValue=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	
	$siakGenMonData->save();
	return tambahnol($noProp,2).tambahnol($noKab,2)."-KM-".date("dmY")."-".$resultValue;//substr($hasil,2);		
}

/*
function CapilGeneratorPengakuanAnak($noProp, $noKab, $noKec=false, $tglLahir, $blnLahir, $thnLahir)
{
	$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);

	$criteria = new Criteria();
	//$criteria->add(CapilAkuiAnakPeer::ANAK_LAHIR_TGL, $tgl);
	$criteria->add(CapilAkuiAnakPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilAkuiAnakPeer::ADM_NO_PROV, $noProp);
	$criteria->add(CapilAkuiAnakPeer::ADM_NO_KAB, $noKab);
	if ($noKec) $criteria->add(CapilAkuiAnakPeer::ADM_NO_KEC, $noKec);

	$ref = CapilAkuiAnakPeer::doSelect($criteria);
	$total = count($ref);
	$numLahir = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = CapilSetAddZero($noProp) . CapilSetAddZero($noKab);
	if ($noKec) $akta.= CapilSetAddZero($noKec);
	$akta.= "-PGKUA-" . date("dmY") . "-" . CapilSetAddZero($numLahir, 4);
	
	return $akta;
}
*/
function CapilGeneratorPengakuanAnak($noProp, $noKab, $noKec=false, $tglLahir, $blnLahir, $thnLahir){
	//$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);
	$noAkta="CPL-PGA".tambahnol($noProp,2).tambahnol($noKab,2).date('dmy');	
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->add(SeqnMontrCapilPeer::SEQUENCE_NAME,$noAkta);
	$siakGenMon=SeqnMontrCapilPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontrCapil();
	$siakGenMonData->setSequenceName($noAkta);
	
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$resultValue=tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$resultValue=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	
	$siakGenMonData->save();
	return tambahnol($noProp,2).tambahnol($noKab,2)."-PGKUA-".date("dmY")."-".$resultValue;//substr($hasil,2);		
}

function CapilGeneratorTandaBuktiLaporKelahiran($noProp, $noKab, $noKec=false, $tglLahir, $blnLahir, $thnLahir)
{
	$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);

	$criteria = new Criteria();
	//$criteria->add(CapilLahirLnPeer::BAYI_TGL_LAHIR, $tgl);
	$criteria->add(CapilLahirLnPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilLahirLnPeer::ADM_NO_PROV, $noProp);
	$criteria->add(CapilLahirLnPeer::ADM_NO_KAB, $noKab);
	$criteria->add(CapilLahirLnPeer::ADM_KODE_FORM, "F-2.04");
	if ($noKec) $criteria->add(CapilLahirLnPeer::ADM_NO_KEC, $noKec);

	$ref = CapilLahirLnPeer::doSelect($criteria);
	$total = count($ref);
	$numLahir = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = "TBPKL/" . CapilSetAddZero($noProp) . CapilSetAddZero($noKab);
	if ($noKec) $akta.= CapilSetAddZero($noKec);
	$akta.= "/" . date("dmY") . "/" . CapilSetAddZero($numLahir, 4);
	
	return $akta;
}
/*
function CapilGeneratorSuratBuktiLaporKelahiran($kodeNegara, $tglLahir, $blnLahir, $thnLahir)
{
	$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);

	$criteria = new Criteria();
	//$criteria->add(CapilLahirLnPeer::BAYI_TGL_LAHIR, $tgl);
	$criteria->add(CapilLahirLnPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilLahirLnPeer::ADM_KODE_NEGARA, $kodeNegara);
	$criteria->add(CapilLahirLnPeer::ADM_KODE_FORM, "F-2.06");

	$ref = CapilLahirLnPeer::doSelect($criteria);
	$total = count($ref);
	$numLahir = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = "SBPKLWNI/KJRI/" . $kodeNegara;
	$akta.= "/" . date("dmY") . "/" . CapilSetAddZero($numLahir, 4);
	
	return $akta;
}
*/
function CapilGeneratorSuratBuktiLaporKelahiran($kodeNegara, $tglLahir, $blnLahir, $thnLahir)
{
	$noAkta="CPL-LHR-LN-".$kodeNegara.date('dmy');	
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->add(SeqnMontrCapilPeer::SEQUENCE_NAME,$noAkta);
	$siakGenMon=SeqnMontrCapilPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontrCapil();
	$siakGenMonData->setSequenceName($noAkta);
		if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$siakGenMonData->setCreated(date('d-m-Y'));
		$resultValue=tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$resultValue=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	$akta = "SBPKLWNI/KJRI/" . $kodeNegara;
	$akta.= "/" . date("dmY") . "/" . $resultValue;


	
	return $akta;
}

function CapilGeneratorTandaBuktiLaporKematian($noProp, $noKab, $noKec=false, $tglLahir, $blnLahir, $thnLahir)
{
	$tgl = SiakCovDate($tglLahir . "-" . $blnLahir . "-" . $thnLahir);

	$criteria = new Criteria();
	//$criteria->add(CapilMatiPeer::MATI_TGL_MATI, $tgl);
	$criteria->add(CapilMatiPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilMatiPeer::ADM_NO_PROV, $noProp);
	$criteria->add(CapilMatiPeer::ADM_NO_KAB, $noKab);
	$criteria->add(CapilMatiPeer::MATI_LUAR_NEGERI, "Y");
	if ($noKec) $criteria->add(CapilMatiPeer::ADM_NO_KEC, $noKec);

	$ref = CapilMatiPeer::doSelect($criteria);
	$total = count($ref);
	$numLahir = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = "TBPKM/" . CapilSetAddZero($noProp) . CapilSetAddZero($noKab);
	if ($noKec) $akta.= CapilSetAddZero($noKec);
	$akta.= "/" . date("dmY") . "/" . CapilSetAddZero($numLahir, 4);
	
	return $akta;
}

function CapilGeneratorSuratBuktiLaporKematian($kodeNegara, $tglMati, $blnMati, $thnMati)
{
	/*$tgl = SiakCovDate($tglMati . "-" . $blnMati . "-" . $thnMati);

	$criteria = new Criteria();
	//$criteria->add(CapilMatiLnPeer::MATI_TGL_MATI, $tgl);
	$criteria->add(CapilMatiLnPeer::ADM_TGL_ENTRY, date("d-m-Y"));
	$criteria->add(CapilMatiLnPeer::ADM_KODE_NEGARA, $kodeNegara);
	$criteria->add(CapilMatiLnPeer::ADM_KODE_FORM, "F-2.37");

	$ref = CapilMatiLnPeer::doSelect($criteria);
	$total = count($ref);
	$numLahir = ($total == count($ref)) ? $total + 1 : 1;
	
	$akta = "SBPKMWNI/KJRI/" . $kodeNegara;
	$akta.= "/" . date("dmY") . "/" . CapilSetAddZero($numLahir, 4);*/
	$noAkta="SBPKMWNI/KJRI/".$kodeNegara.'/'.date("dmY");	
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->add(SeqnMontrCapilPeer::SEQUENCE_NAME,$noAkta);
	$siakGenMon=SeqnMontrCapilPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontrCapil();
	$siakGenMonData->setSequenceName($noAkta);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$resultValue=tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$resultValue=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	
	$siakGenMonData->save();
	return $noAkta.'/'.$resultValue;
}

// ---------------------------------------------------------------
// Statistik
// ---------------------------------------------------------------

function CapilModuleStatistic($empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";
	
	$dpValue["1"] = "KELAHIRAN";
	$dpValue["2"] = "KEMATIAN";
	$dpValue["3"] = "PERKAWINAN";
	$dpValue["4"] = "PERCERAIAN";
	//$dpValue["5"] = "ANAK";
	//$dpValue["6"] = "KEWARGANEGARAAN";
	//$dpValue["7"] = "PERISTIWA PENTING";
	
	return $dpValue;
}

function CapilTopicStatistic($modul, $empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";

	$topic["1"] = array("StatistikLahirStatus"=>"Pencatatan Kelahiran menurut Status Pencatatan", 
						"StatistikLahirHelper"=>"Pencatatan Kelahiran menurut Penolong Kelahiran",
						"StatistikLahirPlace"=>"Pencatatan Kelahiran menurut Tempat Dilahirkan", 
						"StatistikLahirType"=>"Pencatatan Kelahiran menurut Jenis Kelahiran"); 

	$topic["2"] = array("StatistikMatiCause"=>"Pencatatan Kematiran menurut Sebab Kematian",
						"StatistikMatiExplainer"=>"Pencatatan Kematian menurut yang Menerangkan");
	
	$topic["3"] = array("StatistikKawinPendidikan"=>"Pencatatan Perkawinan menurut Pendidikan Terakhir",
						"StatistikKawinPekerjaan"=>"Pencatatan Perkawinan menurut Pekerjaan",
						"StatistikKawinUsia"=>"Pencatatan Perkawinan menurut Usia");

	$topic["4"] = array("StatistikCeraiFile"=>"Pencatatan Perceraian menurut yang Mengajukan", 
						"StatistikCeraiCourt"=>"Pencatatan Perceraian menurut Tingkat Peradilan");

	return $topic[$modul];
}

function CapilTopicStatisticVital($modul, $empty=false)
{
	$dpValue = array(); 
	if ($empty) $dpValue["0"] = "----- PILIHAN -----";

	$topic["1"] = array(""=>"----- PILIHAN -----",
						"LB1"=>"LB-1_Tempat peristiwa, jenis kelamin bayi.",
						"LB2"=>"LB-2_Tempat dilahirkan, tinggal ibu.", 
						//"LB3"=>"LB-3_Tempat pencatatan, bln lahir, bln pencatatan.", 
						"LB4"=>"LB-4_Bulan, Tempat Peristiwa, Tinggal Ibu.",
						"LB5"=>"LB-5_Usia Ibu, Tinggal, Status Perkawinan Ibu.", 
						"LB6"=>"LB-6_Berdasarkan Usia Ayah.", 
						"LB7"=>"LB-7_Tinggal, Usia, Pendidikan Terakhir Ibu.",
						"LB8"=>"LB-8_Pendidikan terakhir, usia ibu, urutan lahir hidup.", 
						"LB9"=>"LB-9_Tinggal, usia ibu, kelamin anak, urutan lahir hidup.", 
						//"LB10"=>"LB-10_Urut Lahir Hidup, Interval Lahir Sblmnya Dari 1 Ibu.",
						"LB11"=>"LB-11_Kewarganegaraan, Tempat Kelahiran, Umur Ibu.", 
						//"LB12"=>"LB-12_Tinggal, Umur Ibu, Status Pengesahan.", 
						"LB13"=>"LB-13_Tempat Kejadian, Tempat Kelahiran, Penolong Kelahiran.",
						"LB14"=>"LB-14_Tempat Lahir, Penolong Kelahiran, Berat Lahir Bayi.", 
						"LB15"=>"LB-15_Berat Bayi, Tinggal, Pendidikan Terakhir Ibu."//, 
						// "LB16"=>"LB-16_Usia kehamilan, berat lahir bayi.",
						// "LB17"=>"LB-17_Berat bayi, tinggal ibu, bln mulai perawatan sblm lahir.", 
						// "LB18"=>"LB-18_Usia, tinggal ibu, bln mulai rawat sblm lahiran.", 
						// "LB19"=>"LB-19_Urut lahir hidup, tinggal ibu, bln rawat sblm lahiran."
						);
						
	$topic["2"] = array(""=>"----- PILIHAN -----",
						"DE1"=>"DE-1_Tinggal, jenis kelamin jenazah.",
						"DE2"=>"DE-2_Tempat peristiwa, tinggal, jenis kelamin jenazah", 
						"DE3"=>"DE-3_Bulan, tempat peristiwa, tinggal jenazah", 
						// "DE4"=>"DE-4_Tempat pencatatan, bln peristiwa bulan pencatatan",
						// "DE5"=>"DE-5_Tempat, lokasi peristiwa", 
						"DE6"=>"DE-6_Tempat tinggal usia, jenis kelamin jenazah", 
						"DE7a"=>"DE-7a_Usia jenis kelamin, tinggal, status perkawinan jenazah",
						"DE8"=>"DE-8_Usia jenis kelamin, tinggal, pendidikan terakhir jenazah", 
						"DE9"=>"DE-9_Jenis kelamin, sebab mati, tinggal, usia jenazah", 
						"DE10"=>"DE-10_Bulan peristiwa, penyebab kematian",
						"DE11"=>"DE-11_Tempat peristiwa, jenis kelamin jenazah, yg menerangkan", 
						//"DE12"=>"DE-12_Kematian ibu, menurut sebab kematian, usia ibu", 
						"DE13"=>"DE-13_Usia jenis pekerjaan jenazah");
	
	$topic["3"] = array(""=>"----- PILIHAN -----",
						"IM1"=>"IM-1_Tempat peristiwa, tempat tinggal ibu",
						"IM2"=>"IM-2_Bulan peristiwa, jenis kelamin, umur bayi"//, 
						//"IM3"=>"IM-3_Tinggal ibu, umur bayi, jenis kelamin", 
						//"IM4"=>"IM-4_Sebab mati, tinggal ibu, jenis kelamin, usia bayi",
						//"IM5"=>"IM-5_Tempat tinggal ibu, pencatatan kelahiran"
						);

	$topic["4"] = array(""=>"----- PILIHAN -----",
						"FD1"=>"FD-1_Usia, tinggal ibu, jenis kelamin",
						"FD2"=>"FD-2_Jenis kelamin, status janin(pernyataan medis)", 
						"FD3"=>"FD-3_Umur ibu, status janin (pernyataan medis), jenis kelamin", 
						// "FD4"=>"FD-4_Tinggal ibu, jenis kelamin dari janin dan berat lahir janin",
						// "FD5"=>"FD-5_Tinggal ibu, usia hamil, berat lahir janin", 
						// "FD6"=>"FD-6_Usia, tinggal ibu, berat lahir janin", 
						"FD7"=>"FD-7_Jenis kelamin, usia kehamilan",
						"FD8"=>"FD-8_Usia ibu, total urut lahir (lahir hidup ditambah kematian janin)", 
						//"FD9"=>"FD-9_Bulan hamil pd masa rawat, jumlah kunjungan, tinggal ibu", 
						"FD10"=>"FD-10_Tempat peristiwa, yg menerangkan");

	$topic["5"] = array(""=>"----- PILIHAN -----",
						"LB_FD1"=>"LB_FD-1_Jenis lahir, status pengesahan (kelahiran hidup maupun kelahiran mati)",
						"LB_FD2"=>"LB_FD-2_Urut lahir, berat lahir bayi, setiap jenis kelamin", 
						"LB_FD3"=>"LB_FD-3_Jenis lahir, usia ibu utk tiap jenis kelamin");

	$topic["6"] = array(""=>"----- PILIHAN -----",
						"MA1"=>"MA-1_Tinggal pengantin pria, bulan peristiwa",
						"MA2"=>"MA-2_Tinggal pengantin pria, umur dr pengantin wanita & pria", 
						"MA3"=>"MA-3_Usia & status kawin pengantin wanita, usia pengantin pria sblmnya", 
						"MA4"=>"MA-4_Pendidikan akhir pengantin wanita & pengantin pria",
						"MA5"=>"MA-5_Pekerjaan pengantin pria & wanita");

	$topic["7"] = array(""=>"----- PILIHAN -----",
						"DI1"=>"DI-1_Tinggal suami & tempat pencatatan (jiwa)",
						"DI2"=>"DI-2_Usia suami, istri", 
						"DI3"=>"DI-3_Usia perkawinan, usia suami istri", 
						//"DI4"=>"DI-4_Usia perkawinan & jmlh anak tanggungan",
						"DI5"=>"DI-5_Pendidikan akhir suami istri", 
						"DI6"=>"DI-6_Pekerjaan suami istri"//, 
						//"DI7"=>"DI-7_Jumlah perkawinan suami & istri sebelumnya"
						);
						
	$topic["8"] = array(""=>"----- PILIHAN -----",
						"ST1"=>"ST-1_Kelahiran hidup, kematian bayi, kematian janin, perkawinan dan perceraian  berdasarkan tempat tinggal",
						"ST2"=>"ST-2_Angka kelahiran kasar, kematian kasar, kematian bayi berdasarkan jenis kelamin, kematian janin, perkawinan kasar dan perceraian kasar", 
						"ST3"=>"ST-3_Deret waktu dari kelahiran hidup berdasarkan tempat tinggal ibu (setelah 10 tahun)", 
						"ST4"=>"ST-4_Deret waktu dari kematian berdasarkan tempat tinggal (setelah 10 tahun)",
						"ST5"=>"ST-5_Deret waktu dari kelahiran bayi berdasarkan tempat tinggal ibu (setelah 10 tahun)", 
						"ST6"=>"ST-6_Deret waktu dari kematian janin berdasarkan tempat tinggal ibu (setelah 10 tahun)", 
						"ST7"=>"ST-7_Deret waktu dari perkawinan berdasarkan tempat tinggal pengantin pria (setelah 10 tahun)",
						"ST8"=>"ST-8_Deret waktu dari perceraian berdasarkan tempat tinggal suami (setelah 10 tahun)"//, 
						//"ST9"=>"ST-9_Deret waktu dari kejadian vital di suatu negara (setelah 10 tahun)"
						);

	return $topic[$modul];
}
function getMaxDayCapilLahir($dateCetak){
	$firstDate = MKTIME(12,0,0,substr($dateCetak,3,2),substr($dateCetak,0,2),substr($dateCetak,6,4));
	$secondDate = MKTIME(12,0,0,substr(date('d-m-Y'),3,2),substr(date('d-m-Y'),0,2),substr(date('d-m-Y'),6,4));
	$offset = $secondDate-$firstDate;
	
	return FLOOR($offset/60/60/24);
}
?>