MINI

files >> C:/SiakApp/lib/SiakGen.php
 <?php
function siakGeneratorNikNas($prop,$kab,$kec,$tgl,$jeniskelamin){
	$siakGenCriteria=new Criteria();
	$noNik="NIK".tambahnol($prop,2).tambahnol($kab,2).tambahnol($kec,2).gantitanggal($tgl,$jeniskelamin);
	$siakGenCriteria->add(SeqnMontrPeer::SEQUENCE_NAME,$noNik);
	$siakGenMon=SeqnMontrPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontr();
	$siakGenMonData->setSequenceName($noNik);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$hasil=$noNik.tambahnol(1,4);
		$siakGenMonData->setCreated(date("d-m-Y"));
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noNik.tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return substr($hasil,3);
}
function siakGeneratorKkNas($prop,$kab,$kec){
	$siakGenCriteria=new Criteria();
	$noKk="KK".tambahnol($prop,2).tambahnol($kab,2).tambahnol($kec,2).date('dmy');
	$siakGenCriteria->add(SeqnMontrPeer::SEQUENCE_NAME,$noKk);
	$siakGenMon=SeqnMontrPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontr();
	$siakGenMonData->setSequenceName($noKk);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$hasil=$noKk.tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noKk.tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return substr($hasil,2);	
}
function siakGeneratorPengelompokan($prop,$kab){
	$siakGenCriteria=new Criteria();
	$noKk="KL".tambahnol($prop,2).tambahnol($kab,2).date('dmy');
	$siakGenCriteria->add(SeqnMontrPeer::SEQUENCE_NAME,$noKk);
	$siakGenMon=SeqnMontrPeer::doSelect($siakGenCriteria);
	$siakGenMonData=new SeqnMontr();
	$siakGenMonData->setSequenceName($noKk);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$hasil=$noKk.tambahnol(1,4);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noKk.tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return substr($hasil,2);	
}
function siakGeneratorPisahKKWNI($prop,$kab,$kec){
	$siakGenCriteria=new Criteria();
	$noPKW="PKW".tambahnol($prop,2).tambahnol($kab,2).tambahnol($kec,2).date('dmy');
	$siakGenCriteria->add(SeqnSuratPeer::SEQUENCE_NAME,$noPKW);
	$siakGenMon=SeqnSuratPeer::doSelect($siakGenCriteria);
	
	$siakGenMonData=new SeqnSurat();
	$siakGenMonData->setSequenceName($noPKW);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$hasil=$noPKW.tambahnol(1,3);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noPKW.tambahnol($row->getCurrVal()+1,3);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return substr($hasil,3);	
}

function siakGeneratorNumpangKKWNI($prop,$kab,$kec){
	$siakGenCriteria=new Criteria();
	$noPKW="NKW".tambahnol($prop,2).tambahnol($kab,2).tambahnol($kec,2).date('dmy');
	$siakGenCriteria->add(SeqnSuratPeer::SEQUENCE_NAME,$noPKW);
	$siakGenMon=SeqnSuratPeer::doSelect($siakGenCriteria);
	
	$siakGenMonData=new SeqnSurat();
	$siakGenMonData->setSequenceName($noPKW);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$hasil=$noPKW.tambahnol(1,3);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noPKW.tambahnol($row->getCurrVal()+1,3);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return substr($hasil,3);	
}

function siakGeneratorSKKT($prop,$kab,$kec){
	$siakGenCriteria=new Criteria();
	$noSKKT="SKKT".tambahnol($prop,2).tambahnol($kab,2).tambahnol($kec,2);
	$siakGenCriteria->add(SeqnMontrPeer::SEQUENCE_NAME,$noSKKT);
	$siakGenMon=SeqnMontrPeer::doSelect($siakGenCriteria);
	
	$siakGenMonData=new SeqnMontr();
	$siakGenMonData->setSequenceName($noSKKT);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$hasil=$noSKKT.tambahnol(1,6);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noSKKT.tambahnol($row->getCurrVal()+1,6);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return substr($hasil,4);	
}
function siakGeneratorSKOT($prop,$kab,$kec){
	$siakGenCriteria=new Criteria();
	$noSKOT="SKOT".tambahnol($prop,2).tambahnol($kab,2).tambahnol($kec,2);
	$siakGenCriteria->add(SeqnMontrPeer::SEQUENCE_NAME,$noSKOT);
	$siakGenMon=SeqnMontrPeer::doSelect($siakGenCriteria);
	
	$siakGenMonData=new SeqnMontr();
	$siakGenMonData->setSequenceName($noSKOT);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);
		$hasil=$noSKOT.tambahnol(1,6);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noSKOT.tambahnol($row->getCurrVal()+1,6);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return substr($hasil,4);	
}
//jenis Surat diisi SKOT(terlantar),SKKT(terpencil),SKPTI(korban bencana) untuk header di tambah H untuk detail ditambah D
//siakGeneratorSurat($this->proCode,$this->kabCode,$this->kecCode,'SKPTIH')
function siakGeneratorSurat($prop,$kab,$kec,$jenisSurat){
	$siakGenCriteria=new Criteria();
	$noSurat=tambahnol($prop,2).tambahnol($kab,2).tambahnol($kec,2);
	$siakGenCriteria->add(SeqnSuratPeer::SEQUENCE_NAME,$jenisSurat.$noSurat);
	$siakGenMon=SeqnSuratPeer::doSelect($siakGenCriteria);	
	$siakGenMonData=new SeqnSurat();
	$siakGenMonData->setSequenceName($jenisSurat.$noSurat);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);		
		$hasil=$noSurat.tambahnol(1,6);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noSurat.tambahnol($row->getCurrVal()+1,6);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return $hasil;	
}
function siakGeneratorSuratRentan($prop,$kab,$jenisSurat){
	$siakGenCriteria=new Criteria();
	$noArea=tambahnol($prop,2).tambahnol($kab,2);
	$noSurat = $noArea."/".$jenisSurat."/".date("dmY"); 
	$siakGenCriteria->add(SeqnSuratPeer::SEQUENCE_NAME,$noSurat);
	$siakGenMon=SeqnSuratPeer::doSelect($siakGenCriteria);	
	$siakGenMonData=new SeqnSurat();
	$siakGenMonData->setSequenceName($noSurat);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);		
		$hasil=$noSurat."/".tambahnol(1,5);
	}
	else{
		$row=$siakGenMon[0];
		$hasil=$noSurat."/".tambahnol($row->getCurrVal()+1,5);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return $hasil;	
}
//jenis surat diisi SKPWNI atau SKDWNI
function siakGeneratorPindahDatang($prop,$kab,$jenisSurat){
	$siakGenCriteria=new Criteria();
	$noSurat=$jenisSurat.'/'.tambahnol($prop,2).tambahnol($kab,2)."/".date('dmY');
	$siakGenCriteria->add(SeqnPindahDatangPeer::SEQUENCE_NAME,$noSurat);
	$siakGenMon=SeqnPindahDatangPeer::doSelect($siakGenCriteria);	
	$siakGenMonData=new SeqnPindahDatang();
	$siakGenMonData->setSequenceName($noSurat);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);		
		$hasil=tambahnol(1,4);
	}else{
		$row=$siakGenMon[0];
		$hasil=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return $noSurat.'/'.$hasil;	
}
function tambahnol($str,$jumlah){
	$hasil=substr(str_repeat("0",$jumlah).$str, (-1*$jumlah));
    return $hasil;
}
function tebal($str=null){
	if($str==null){
		$str='-';
	}
	return '<b>'.$str.'</b>';
}
function gantitanggal($str,$kelamin){
	$tanggal=explode("-", $str); 
	if($kelamin==2)
		$tanggal[0]=40+$tanggal[0];
	for($i=0;$i<count($tanggal);$i++)
		$tanggal[$i]=tambahnol($tanggal[$i],2);
	return implode("",$tanggal); 
}
function SiakCovDate($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 SiakDateSub($tgl,$type){
	$format=array('D'=>0,'M'=>1,'Y'=>2);
	$tanggal=explode("-",$tgl);
	foreach($tanggal as $k=>$v){
		if($k!=2)
			$tanggal[$k]=tambahnol($tanggal[$k],2);
	}	
	return $tanggal[$format[$type]];
}
function SiakCovDateDB($tgl){
	$tanggal=explode("-",$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');
	$tanggal[1]=$bulan[$tanggal[1]];
	return implode("-",$tanggal);
}
function SiakObjectHTMLDisabled($value){
	if($value == "0" || $value == "" || $value == null ){
		return "disabled=disabled";
	}else{
		return "";
	}
}
function SiakObjectHTMLChecked($value){
	if($value == "Y"){
		return "checked";
	}else{
		return "";
	}
}
function SiakGeneratorPrintKk(){
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->clearSelectColumns();	
	$siakGenCriteria->addSelectColumn('MAX('.SeqnPrintKkPeer::ID_PRINT.') AS ID_TERAKHIR');
	$stmt = SeqnPrintKkPeer::doSelectStmt($siakGenCriteria);
	$hasil=$stmt->fetch(PDO::FETCH_ASSOC);
	$balikan=1;
	if($hasil['ID_TERAKHIR']!=null)
		$balikan=$hasil['ID_TERAKHIR']+1;
	return $balikan;
}
function SiakGeneratorPrintKtp(){
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->clearSelectColumns();	
	$siakGenCriteria->addSelectColumn('MAX('.SeqnPrintKtpPeer::ID_PRINT.') AS ID_TERAKHIR');
	$stmt = SeqnPrintKtpPeer::doSelectStmt($siakGenCriteria);
	$hasil=$stmt->fetch(PDO::FETCH_ASSOC);
	$balikan=1;
	if($hasil['ID_TERAKHIR']!=null)
		$balikan=$hasil['ID_TERAKHIR']+1;
	return $balikan;
}
function SiakCountPrintKtp($nik){
	$siakGenCriteria=new Criteria();
	$siakGenCriteria->clearSelectColumns();	
	$siakGenCriteria->addSelectColumn('Count('.SeqnPrintKtpPeer::ID_PRINT.') AS BANYAK');
	$siakGenCriteria->add(SeqnPrintKtpPeer::NO_NIK,$nik);
	$stmt = SeqnPrintKtpPeer::doSelectStmt($siakGenCriteria);
	$hasil=$stmt->fetch(PDO::FETCH_ASSOC);
	$balikan=0;
	if($hasil['BANYAK']!=null)
		$balikan=$hasil['BANYAK'];
	return $balikan;
}
function HandleError($message) {
	echo $message;
}
function year_diff($date1,$date2){
	$d1 = date_parse(SiakDateSub($date1,'Y').'-'.SiakDateSub($date1,'M').'-'.SiakDateSub($date1,'D').' 00:00:00');
  	$d2 = date_parse(SiakDateSub($date2,'Y').'-'.SiakDateSub($date2,'M').'-'.SiakDateSub($date2,'D').' 00:00:00');
	//print_r($d1);
	//print_r($d2);
	if ($d1['day'] >= $d2['day']){
    	$diff['day'] = $d1['day'] - $d2['day'];
  	}
  	else {
    	$d1['month']--;
    	$diff['day'] = date("t",$temp)-$d2['day']+$d1['day'];
  	}
  	//months
  	if ($d1['month'] >= $d2['month']){
    	$diff['month'] = $d1['month'] - $d2['month'];
  	}
  	else {
    	$d1['year']--;
    	$diff['month'] = 12-$d2['month']+$d1['month'];
  	}
	$diff['year'] = $d1['year'] - $d2['year'];
	return $diff['year']+$diff['month']/12+$diff['day']/365;
}
//jenis surat SKPLN,SKDLN
function siakGeneratorLuarNegeri($prop,$kab,$jenisSurat){
	$siakGenCriteria=new Criteria();
	$noSurat=$jenisSurat."/".date('d.m.Y')."/".tambahnol($prop,2).tambahnol($kab,2);
	$siakGenCriteria->add(SeqnCetakPindahDatangPeer::SEQUENCE_NAME,$noSurat);
	$siakGenMon=SeqnCetakPindahDatangPeer::doSelect($siakGenCriteria);	
	$siakGenMonData=new SeqnCetakPindahDatang();
	$siakGenMonData->setSequenceName($noSurat);
	if(count($siakGenMon)==0){
		$siakGenMonData->setCurrVal(1);		
		$hasil=tambahnol(1,4);
	}else{
		$row=$siakGenMon[0];
		$hasil=tambahnol($row->getCurrVal()+1,4);
		$siakGenMonData->setCurrVal($row->getCurrVal()+1);
		$siakGenMonData->setNew(false);		
	}
	$siakGenMonData->save();
	return $hasil.'.'.$noSurat;	
}