<?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 kdlemb from pas_dper)||a.nokant nokant,
														(select extract(year from tglsek) from pas_hprs) tahun,
														(select extract(month from tglsek) from pas_hprs) bulan,
														(select sum(salalu+salsek)/10000 from gl_chart where noacct=a.ledpkk)*-1 anggota_aktif,
														(select sum(salalu+salsek) from gl_chart where noacct=a.ledpkk)*-1 simpokok,
														((select sum(salalu+salsek) from gl_chart where noacct=a.ledmgo)+
														 (select sum(salalu+salsek) from gl_chart where noacct=a.led4pr))*-1 simwajib,
														(select sum(salalu+salsek) from gl_chart where noacct=a.ledskr)*-1 simsukarela,
														(select sum(salalu+salsek) from gl_chart where noacct in(select ledsld from pap_tabu group by ledsld))*-1 simberencana,
														(select sum(salalu+salsek) from gl_chart where noacct in(select ledsld from pap_depo kdprod<>'999' group by ledsld))*-1 siberani,
														(select sum(salalu+salsek) from gl_chart where left(noacct,1)='1' and noacct not in('1190001')) aset,
														(select sum(salalu+salsek) from gl_chart where left(noacct,3)='114') piutang,
														(select sum(salalu+salsek)*-1 from gl_chart where noacct in('2310002')) infaq
												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);
?>