<?php
	$token = $_GET['token'];
	$email = $_GET['email'];
	$nokant = $_GET['nokant'];
  include "../../cek_key.php"; 
  
  if ($cekey!=''){ 
  
        function lap_neraca($dbcab,$usrdbcab,$pasdbcab,$nokant){
			$konekcab = ibase_connect($dbcab,$usrdbcab,$pasdbcab);
			if($konekcab){
					$qry=ibase_query($konekcab,"select (select extract(year from tglsek) from pas_hprs) tahun,
													   (select extract(month from tglsek) from pas_hprs) bulan,
													   (select kdlemb from pas_dper)||a.nokant nokant,
													   iif((select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='1')is null,0,
														   (select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='1')) outs_lancar,
													  iif((select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='1')is null,0,
														  (select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='1')) jumlah_lancar,
													  iif((select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='2')is null,0,
														  (select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='2')) outs_dalam_perhatian_khusus,
													  iif((select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='2')is null,0,
														  (select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='2')) jumlah_dalam_perhatian_khusus,
													  iif((select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='3')is null,0,
														  (select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='3')) outs_kurang_lancar,
													  iif((select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='3')is null,0,
														  (select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='3')) jumlah_kurang_lancar,
													  iif((select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='4')is null,0,
														  (select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='4')) outs_diragukan,
													  iif((select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='4')is null,0,
														  (select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='4')) jumlah_diragukan,
													  iif((select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='5')is null,0,
														  (select sum(c.salpkk) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='5')) outs_macet,
													  iif((select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='5')is null,0,
														  (select count(*) from pyd_mast b,pyd_saldo c where b.nompyd=c.nompyd and b.stspyd in('1') and c.kdkole='5')) jumlah_macet
												from pas_kant a");
					$data=array();
					$status=false;
					while ($hasil=ibase_fetch_object($qry)){
						$data[]=$hasil;
						$status=true;
					};	
					$nilai=array();
					$nilai['status']=$status;
					$nilai['data']=$data;
					echo json_encode($nilai);							 
				}
			ibase_close($konekcab);
		}
	
	$qrykantor=ibase_query($konek,"select nokant,trim(a.dirdb)||'\Cabang\'||trim(a.namadb) db from kantor a where nokant='$nokant'");
	while ($hasilkantor=ibase_fetch_object($qrykantor)){
		$nokant=$hasilkantor->NOKANT;
		$dbcabang=$hasilkantor->DB;
		lap_neraca($dbcabang,$usrdb,$pasdb,$nokant);
	};
	
  }
  ibase_close($konek);
?>