";
		$line = "";
		foreach ($header as $h) {
			if ($line != "") {
				$line .= ",";
			}
			if (strpos(",", $h) === false) {
				$line .= $h;
			} else {
				$line .= "\"$h\"";
			}
		}
		echo $line . "\n";
		foreach ($rows as $r) {
			$line = "";
			foreach ($header as $h) {
				if ($line != "") {
					$line .= ",";
				}
				if (strpos(",", $r[$h]) === false) {
					if (in_array($h, ["Debit", "Kredit"])) {
						$line .= $this->xformat($r[$h]);
					} else {
						$line .= $r[$h];
					}
				} else {
					$line .= "\"{$r[$h]}\"";
				}
			}
			echo $line . "\n";
		}
	}

	function check_receive_payment($date = "")
	{
		if ($date == "") {
			$date = date("Y-m-d");
		}
		$this->print_table_style();
		$rows = $this->r_092_c($date);
		$this->print_table($rows, array_keys($rows[0]), "r_092_c");
		echo "
";
		$rows = $this->r_092_c1($date);
		$this->print_table($rows, array_keys($rows[0]), "r_092_c1");
		echo "
";
		$rows = $this->r_092_c2($date);
		$this->print_table($rows, array_keys($rows[0]), "r_092_c2");
		echo "
";
	}
	function r_092_c2($date)
	{
		$sql = "select 
          sum(SsPiutangPaymentAmount) as `total|R` , date(T_OrderHeaderDate) as ArDate,
        concat(date(T_OrderHeaderDate),'|',M_CompanyNumber) as TxNo,
        M_PaymentTypeName,
        M_OmzetTypeName
  --      M_OmzetTypeID

        from ss_piutang
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
        left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
        left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
        left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
        where SsPiutangDate =  ?
        and SsPiutangType =  'B2'  and T_OrderHeaderAddOnIsKaPus = 'N'
        and M_OmzetTypeID <> 7
        group by M_OmzetTypeID , TxNo
        order by M_OmzetTypeID , TxNo";
		$sql = " select
    sum(total)as`total|R` ,  ArDate,
    TxNo,
    M_PaymentTypeName,
    M_OmzetTypeName,TipeBayar,
    M_OmzetTypeID 
    from (

    select 
           SsPiutangPayment    as  total,date(T_OrderHeaderDate) as ArDate,
            concat(date(T_OrderHeaderDate),'|',M_CompanyNumber) as TxNo,M_PaymentTypeName as TipeBayar,
            M_PaymentTypeName,
            M_OmzetTypeName,
        M_OmzetTypeID

            from ss_piutang
            join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
            left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
            left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
            left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
            left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
            left join m_mou on T_OrderHeaderM_MouID  = M_MouID
             left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
            left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
            where SsPiutangDate =  '2022-12-22'
    and SsPiutangType IN ('B2','A3')    and T_OrderHeaderAddOnIsKaPus = 'N' and SsPiutangIsActive = 'Y'       
            and M_OmzetTypeID <> 7
    group by SsPiutangID,T_OrderHeaderID  ) as x
    group by M_OmzetTypeID , TxNo
    order by M_OmzetTypeID , TxNo
    ";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["total|R"];
			$r["total|R"] = $r["total|R"];
			$result[] = $r;
		}
		$result[] = [
			"total|R" => $total,
			"M_PaymentTypeName" => "",
			"M_OmzetTypeName" => "",
			"TxNo" => "SUM",
		];

		return $result;
	}
	function r_092_c1($date)
	{
		$sql = "select
      -- SsPiutangT_OrderHeaderID as id, 	date(T_OrderHeaderDate) as ArDate,
      concat(date(T_OrderHeaderDate),'-',M_CompanyName) as TxNo,
      sum( MOD(SsPiutangPaymentAmount, 500)) as `round|R` ,
      M_PaymentTypeName,
      M_OmzetTypeName,
      M_OmzetTypeID,
	  M_CompanyNumber, M_CompanyName, M_CompanyID
      from ss_piutang
      join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
      left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
      left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
      left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      where SsPiutangDate =  ?
      and SsPiutangType = 'B2'
      and M_PaymentTypeID = '1' and T_OrderHeaderAddOnIsKaPus = 'N'
        and M_OmzetTypeID <> 7
      group by M_OmzetTypeID,TxNo
      order by M_OmzetTypeID,TxNo
      ";
		$sql = "
    select
      -- SsPiutangT_OrderHeaderID as id, 	
      concat(date(T_OrderHeaderDate),'-',M_CompanyName) as TxNo,date(T_OrderHeaderDate) as ArDate,M_PaymentTypeName as TipeBayar,
      sum( MOD(SsPiutangPayment  , 500)) as `round|R` ,
      M_PaymentTypeName,
      M_OmzetTypeName
      -- M_OmzetTypeID
      from ss_piutang
      join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
      left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
      left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
      left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      where SsPiutangDate =  ?
      and SsPiutangType IN ('B2','A3')    and T_OrderHeaderAddOnIsKaPus = 'N' and SsPiutangIsActive = 'Y'
      and M_PaymentTypeID = '1'  
        and M_OmzetTypeID <> 7
      group by M_OmzetTypeID,TxNo
      order by M_OmzetTypeID,TxNo 
    ";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["round|R"];
			$r["round|R"] = $r["round|R"];
			$result[] = $r;
		}

		return $result;
	}
	function r_092_c($date)
	{
		$sql = "SELECT
				sum(total)as`total|R` ,  
				TxNo,ArDate,
				M_PaymentTypeName,  TipeBayar,
				M_OmzetTypeName, if(Account= '' , TipeBayar, Account) as Account ,
				M_OmzetTypeID, M_CompanyID, M_CompanyName , M_CompanyNumber,
				M_BankAccountNo, 
				IFNULL(Nat_BankID, '') as Nat_BankID,
				IFNULL(Nat_BankCode, '') as Nat_BankCode,
				IFNULL(Nat_BankIsEDC, '') as Nat_BankIsEDC,
			case
				when M_PaymentTypeID IN ('2','3') then  concat('EDC',' ' , Nat_BankCode , ' ' , M_OmzetTypeName) 
				when M_PaymentTypeID = '4' then Account
			else  TipeBayar end as PaymentMethode
			from (
			select 
			SsPiutangPayment    as  total,
				concat(DATE_FORMAT(T_OrderHeaderDate,'%d%m%Y'),'|',M_CompanyNumber) as TxNo,DATE_FORMAT(T_OrderHeaderDate,'%Y/%m/%d') as ArDate,M_PaymentTypeName as TipeBayar,
				concat(M_PaymentTypeName,'|' , M_CompanyName , '|', ifnull(Nat_BankCode,''), ' ' , ifnull(M_BankAccountNo,'')) as M_PaymentTypeName,
				concat( ifnull(Nat_BankCode,''), ' ' , ifnull(M_BankAccountNo,''))as Account,
				ifnull(M_BankAccountNo,'') as M_BankAccountNo, 
				M_PaymentTypeID, M_OmzetTypeName, M_CompanyName,M_CompanyNumber, M_CompanyID,
				M_OmzetTypeID, Nat_BankID, Nat_BankCode, Nat_BankIsEDC
			from ss_piutang
				join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
				left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
				left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
				left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
				left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
				left join m_mou on T_OrderHeaderM_MouID  = M_MouID
				left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
				left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID 
				left join m_bank_account on SsPiutangPaymentM_BankAccountID = M_BankAccountID
				left join  nat_bank on Nat_BankID = M_BankAccountNat_BankID
				where SsPiutangDate =  ?    
				and SsPiutangType IN ('B2','A3')    and T_OrderHeaderAddOnIsKaPus = 'N' and SsPiutangIsActive = 'Y'       
				and M_OmzetTypeID <> 7
				group by SsPiutangID,T_OrderHeaderID  ) as x
				group by M_OmzetTypeID , TxNo
				order by M_OmzetTypeID , TxNo ";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["total|R"];
			$r["total|R"] = $r["total|R"];
			$result[] = $r;
		}

		return $result;
	}

	function r_092_c_rk($date)
	{
		$sql_nitip = "select
			sum(total) as`total|R` ,
			sum(Payment_RkAmount) as `Total_RkAmount`,  
			TxNo, ArDate,
			M_PaymentTypeName,  TipeBayar,
			M_OmzetTypeName, if(Account= '' , TipeBayar, Account) as Account ,
			M_OmzetTypeID, M_CompanyID, M_CompanyName , M_CompanyNumber,
			M_BankAccountNo, 
			Payment_RkF_PaymentNumber, Payment_RkM_BranchCode, Payment_RkAmount,
		case
			when M_PaymentTypeID IN ('2','3') then  concat('EDC',' ' , Nat_BankCode , ' ' , M_OmzetTypeName) 
			when M_PaymentTypeID = '4' then Account
		else  TipeBayar end as PaymentMethode
		from (
			select 
				SsPiutangPayment as total,
				concat(DATE_FORMAT(T_OrderHeaderDate,'%d%m%Y'),'|',M_CompanyNumber) as TxNo, 
				DATE_FORMAT(T_OrderHeaderDate,'%Y/%m/%d') as ArDate, 
				M_PaymentTypeName as TipeBayar,
				concat(M_PaymentTypeName,'|' , M_CompanyName , '|', ifnull(Nat_BankCode,''), ' ' , ifnull(M_BankAccountNo,'')) as M_PaymentTypeName,
				concat( ifnull(Nat_BankCode,''), ' ' , ifnull(M_BankAccountNo,''))as Account, 
				ifnull(M_BankAccountNo,'') as M_BankAccountNo, 
				M_PaymentTypeID, Nat_BankCode,
				M_OmzetTypeName, M_OmzetTypeID, M_CompanyName,M_CompanyNumber, M_CompanyID,
				Payment_RkF_PaymentNumber, Payment_RkM_BranchCode, Payment_RkAmount
			from ss_piutang
				join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
				left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
				
				join f_payment on SsPiutangT_OrderHeaderID = F_PaymentT_OrderHeaderID
				left join payment_rk on F_PaymentID = Payment_RkF_PaymentID

				left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
				left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
				left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
				left join m_mou on T_OrderHeaderM_MouID  = M_MouID
				left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
				left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID 
				left join m_bank_account on SsPiutangPaymentM_BankAccountID = M_BankAccountID
				left join  nat_bank on Nat_BankID = M_BankAccountNat_BankID
				
				where SsPiutangDate =  ?    
				AND M_PaymentTypeID = 20
				and SsPiutangType IN ('B2','A3')    and T_OrderHeaderAddOnIsKaPus = 'N' and SsPiutangIsActive = 'Y'       
				and M_OmzetTypeID <> 7
				group by SsPiutangID,T_OrderHeaderID  
		) as x
			group by M_OmzetTypeID , TxNo
			order by M_OmzetTypeID , TxNo ";
		$resp = $this->get_rows($sql_nitip, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["total|R"];
			$r["total|R"] = $r["total|R"];
			$result[] = $r;
		}

		return $result;
	}

	function check_ar($date = "")
	{
		if ($date == "") {
			$date = date("Y-m-d");
		}
		$this->print_table_style();
		$rows = $this->r_092_b($date);
		$this->print_table(
			$rows,
			array_keys($rows[0]),
			"r_092_b | total piutang per omzet"
		);
		echo "
";
		$rows = $this->r_092_b1($date);
		$this->print_table(
			$rows,
			array_keys($rows[0]),
			"r_092_b1 | 28 test group per omzet"
		);
		echo "
";
		$rows = $this->r_092_b2($date);
		$this->print_table(
			$rows,
			array_keys($rows[0]),
			"r_092_b2 | total  28 test group per omzet"
		);
		echo "
";

		$rows = $this->r_092_b3($date);
		$this->print_table($rows, array_keys($rows[0]), "r_092_b3 | diskon");
		echo "
";
	}

	function r_092_b4($date)
	{
		$sql = "select
		concat(date(T_OrderHeaderDate),'|',M_CompanyNumber) as TxNo,
		M_OmzetTypeName, M_OmzetTypeID,
		M_CompanyName, M_CompanyNumber, M_CompanyID,
		sum(ifnull(SsPiutangTestDiscTotal,0)) as `diskon`,
 		Nat_GroupID,
		concat('Diskon',' ',Nat_GroupName) as groupname,
		(case 
			when Nat_GroupID= '1' then 'Diskon|Lab'
			when Nat_GroupID= '2' then 'Diskon|Elt'
			when Nat_GroupID= '3' then 'Diskon|Rad'
			when Nat_GroupID= '4' then 'Diskon|LKL'
		else '' end) as groupnameshort
     from ss_piutang
 join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
 left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
left join m_mou on T_OrderHeaderM_MouID  = M_MouID
 left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
left join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
  and T_OnlineOrderIsActive = 'Y'
 join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
 join t_test on SsPiutangTestT_TestID = T_TestID
 join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID and Nat_SubGroupIsActive = 'Y'
 join nat_group on T_TestNat_GroupID = Nat_GroupID


where SsPiutangDate =  ?
and SsPiutangType IN ('A1','A3')     and T_OrderHeaderAddOnIsKaPus = 'N'
and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'
and  T_OnlineOrderID is null 
group by M_CompanyID ,Nat_GroupID
 
order by M_CompanyID ,Nat_GroupID";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["diskon"];
			$r["diskon"] = $r["diskon"];
			$result[] = $r;
		}

		return $result;
	}




	function r_092_b3($date)
	{
		$sql = "select
      -- SsPiutangT_OrderHeaderID as id, 	
      -- M_OmzetTypeID ,
      concat(date(T_OrderHeaderDate),'|',M_CompanyNumber) as TxNo,
      M_OmzetTypeName, M_CompanyName,
      sum(ifnull(SsPiutangDiscount,0)) as `diskon|R`
      from ss_piutang
       join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
       left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      left join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
        and T_OnlineOrderIsActive = 'Y'
      -- left join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
      -- left  join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID  

  where SsPiutangDate = ?
      and SsPiutangType IN ('A1','A3')     and T_OrderHeaderAddOnIsKaPus = 'N'
      -- and (F_PaymentDetailM_PaymentTypeID <> 6 or T_OnlineOrderID is null)  
      and ( T_OnlineOrderID is null)  
      and M_OmzetTypeID <> 7
      group by TxNo, M_OmzetTypeID 
      order by TxNo, M_OmzetTypeID";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["diskon|R"];
			$r["diskon|R"] = $r["diskon|R"];
			$result[] = $r;
		}

		return $result;
	}
	function r_092_b2($date)
	{
		$sql = "select
      -- SsPiutangT_OrderHeaderID as id, 	
      sum(SsPiutangTestPrice) `price|R` ,
      M_OmzetTypeName
      -- M_OmzetTypeID 
      from ss_piutang
      join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
      join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
      left join t_test on SsPiutangTestT_TestID = T_TestID
      left join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID
      left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      left join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
        and T_OnlineOrderIsActive = 'Y'
      -- left join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
      -- left  join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID  

  where SsPiutangDate = ?
      and SsPiutangType IN ('A1','A3')  and T_OrderHeaderAddOnIsKaPus = 'N'
      -- and (F_PaymentDetailM_PaymentTypeID <> 6 or T_OnlineOrderID is null)  
      and (T_OnlineOrderID is null)  
      and M_OmzetTypeID <> 7
      group by M_OmzetTypeID 
      order by M_OmzetTypeID,Nat_SubGroupID";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["price|R"];
			$r["price|R"] = $r["price|R"];
			$result[] = $r;
		}
		return $result;
	}
	function r_092_b1($date)
	{
		$sql = "select
      Nat_GroupName  as id, 	
      concat(date(T_OrderHeaderDate),'|',M_CompanyNumber) as TxNo,
      Nat_GroupID,
      sum(SsPiutangTestPrice) as `bruto|R`,
      M_OmzetTypeName,
      M_OmzetTypeID,
	  M_CompanyID, M_CompanyName, M_CompanyNumber,
      Nat_SubGroupName as grouptest,
      Nat_SubGroupID as groupTestId
      from ss_piutang
      join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
      join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
      left join t_test on SsPiutangTestT_TestID = T_TestID
      left join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID
      left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      left join nat_group on T_TestNat_GroupID = Nat_GroupID
      left join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
        and T_OnlineOrderIsActive = 'Y'
      -- left join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
      -- left  join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID  

  where SsPiutangDate = ?
      and SsPiutangType IN ('A1','A3')  and T_OrderHeaderAddOnIsKaPus = 'N'
      -- and (F_PaymentDetailM_PaymentTypeID <> 6 or T_OnlineOrderID is null)  
      and ( T_OnlineOrderID is null)  
      and M_OmzetTypeID <> 7
      group by TxNo,Nat_GroupID,Nat_SubGroupID,M_OmzetTypeName 
      order by TxNo,M_OmzetTypeName,	Nat_GroupID,Nat_SubGroupID";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["bruto|R"];
			$r["bruto|R"] = $r["bruto|R"];
			$result[] = $r;
		}
		return $result;
	}
	function r_092_b($date)
	{
		$sql = "select
      M_OmzetTypeName,
      M_OmzetTypeID,
      concat(date(T_OrderHeaderDate),'|',M_CompanyNumber) as TxNo,
      -- M_OmzetTypeID,
      -- SsPiutangT_OrderHeaderID as id, 	
      sum(SsPiutangTotal)  as `total|R` , 
      sum(SsPiutangTotal) +  sum(SsPiutangDiscount) as `grandTotal|R`,
      M_CompanyName,
	  M_CompanyNumber,
	  M_CompanyID
      from ss_piutang
      join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
       left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      left join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
        and T_OnlineOrderIsActive = 'Y'
      -- left join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
      -- left  join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID  

      where SsPiutangDate = ? 
      and SsPiutangType IN ('A1','A3')  and T_OrderHeaderAddOnIsKaPus = 'N'
      -- and (F_PaymentDetailM_PaymentTypeID <> 6 or T_OnlineOrderID is null)   
      and (T_OnlineOrderID is null)   
      and M_OmzetTypeID <> 7
      group by M_OmzetTypeID,TxNo 
      order by M_OmzetTypeID,TxNo	";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		$grandTotal = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["total|R"];
			$grandTotal += $r["grandTotal|R"];
			$r["total|R"] = $r["total|R"];
			$r["grandTotal|R"] = $r["grandTotal|R"];
			$result[] = $r;
		}
		return $result;
	}
	function check_jurnal_entry($date = "")
	{
		if ($date == "") {
			$date = date("Y-m-d");
		}
		$this->print_table_style();
		$rows = $this->r_092x($date);
		$this->print_table(
			$rows,
			array_keys($rows[0]),
			"r_092x | Tipe Pembayaran"
		);
		echo "
";
		$rows = $this->r_092x_a1($date);
		$this->print_table($rows, array_keys($rows[0]), "r_092x_a1 | 28 test");
		echo "
";
		$rows = $this->r_092x_a2($date);
		$this->print_table($rows, array_keys($rows[0]), "r_092x_a2 | Rounding");
		echo "
";
		$rows = $this->r_092x_a3($date);
		$this->print_table(
			$rows,
			array_keys($rows[0]),
			"r_092x_a3 | total pembayaran - round - diskon"
		);
		echo "
";
		$rows = $this->r_092x_a4($date);
		$this->print_table(
			$rows,
			array_keys($rows[0]),
			"r_092x_a4 | total 28 test"
		);
		echo "
";
		$rows = $this->r_092x_a5($date);
		$this->print_table($rows, array_keys($rows[0]), "r_092x_a5 | diskon");
	}

	function r_092x_a6($date = "")
	{
		$sql = "
        select
        sum(diskon) as `discount`,concat('diskon',' ',Nat_GroupName) as Groupname,
		Nat_GroupID

		from (
				
		select
		SsPiutangT_OrderHeaderID as id, 	
		M_OmzetTypeID ,M_OmzetTypeName,
		sum(SsPiutangTestDiscTotal) as diskon,
		Nat_GroupID,
		Nat_GroupName


		from ss_piutang
		join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
		left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
		left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
		left join m_mou on T_OrderHeaderM_MouID  = M_MouID
		left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
		left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
		join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
		join t_test on SsPiutangTestT_TestID = T_TestID
		join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID and Nat_SubGroupIsActive = 'Y'
		join nat_group on T_TestNat_GroupID = Nat_GroupID

		where SsPiutangDate = ?
		and SsPiutangType = 'A2'    and T_OrderHeaderAddOnIsKaPus = 'N'
		and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'
		group by Nat_GroupID

				union all
		select
		SsPiutangT_OrderHeaderID as id, 	
		M_OmzetTypeID ,M_OmzetTypeName,
		sum(SsPiutangTestDiscTotal) as diskon,
		Nat_GroupID,
		Nat_GroupName


		from ss_piutang
		join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
		join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
		and T_OnlineOrderIsActive = 'Y'
		join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
		join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID and F_PaymentDetailM_PaymentTypeID = 6
		left join m_paymenttype on F_PaymentDetailM_PaymentTypeID = M_PaymentTypeID
		left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
		left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
		left join m_mou on T_OrderHeaderM_MouID  = M_MouID
		left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID 
		join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
		join t_test on SsPiutangTestT_TestID = T_TestID
		join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID and Nat_SubGroupIsActive = 'Y'
		join nat_group on T_TestNat_GroupID = Nat_GroupID

		where SsPiutangDate = ?
		and SsPiutangType = 'A1'    
		and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y' 
		group by Nat_GroupID 
				) as x	 group by Nat_GroupID
				";

		$xsql = "select
      sum(SsPiutangTestDiscTotal) as `discount`
      from ss_piutang
 join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
 left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
left join m_mou on T_OrderHeaderM_MouID  = M_MouID
 left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
 join t_test on SsPiutangTestT_TestID = T_TestID
 join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID and Nat_SubGroupIsActive = 'Y'
 join nat_group on T_TestNat_GroupID = Nat_GroupID

      where SsPiutangDate = ?
      and SsPiutangType = 'A2' 
      and M_OmzetTypeID <> 7
      and T_OrderHeaderAddOnIsKaPus = 'N'	";
		$resp = $this->get_rows($sql, [$date, $date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		foreach ($resp["data"] as $idx => $r) {
			$r["discount"] = $r["discount"];
			$result[] = $r;
		}
		return $result;
	}


	function r_092x_a5($date = "")
	{
		$sql = "
        select
        sum(diskon) as `diskon|R`

        from (
        select
        SsPiutangT_OrderHeaderID as id, 	
        M_OmzetTypeID ,M_OmzetTypeName,
        sum(SsPiutangDiscount) as diskon

        from ss_piutang
         join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
         left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
        left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  

        where SsPiutangDate = ?
        and SsPiutangType = 'A2'    and T_OrderHeaderAddOnIsKaPus = 'N'
        and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'

        union all

        select
        SsPiutangT_OrderHeaderID as id, 	
        M_OmzetTypeID ,M_OmzetTypeName,
        sum(SsPiutangDiscount) as diskon

        from ss_piutang
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
        join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
          and T_OnlineOrderIsActive = 'Y'
        join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
        join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID and F_PaymentDetailM_PaymentTypeID = 6
        left join m_paymenttype on F_PaymentDetailM_PaymentTypeID = M_PaymentTypeID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID 

        where SsPiutangDate =?
        and SsPiutangType = 'A1'    
        and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y' 
        ) as x	
        ";
		$xsql = "select
      sum(SsPiutangDiscount) as `diskon|R`
      from ss_piutang
       join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
       left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      where SsPiutangDate = ?
      and SsPiutangType = 'A2' 
      and M_OmzetTypeID <> 7
      and T_OrderHeaderAddOnIsKaPus = 'N'	";
		$resp = $this->get_rows($sql, [$date, $date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		foreach ($resp["data"] as $idx => $r) {
			$r["diskon|R"] = $r["diskon|R"];
			$result[] = $r;
		}
		return $result;
	}
	function r_092x_a4($date = "")
	{
		$sql = "
        select
        sum(a) `total|R` 
        from
        (
        select
        SsPiutangT_OrderHeaderID as id, 	
        sum(SsPiutangTestPrice) as a ,
        M_OmzetTypeName,
        M_OmzetTypeID 
        from ss_piutang
        join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
        left join t_test on SsPiutangTestT_TestID = T_TestID
        left join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
        left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  

        where SsPiutangDate = ?
        and SsPiutangType = 'A2'     and T_OrderHeaderAddOnIsKaPus = 'N'
        and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'
         
         union all

        select
        SsPiutangT_OrderHeaderID as id, 	
        sum(SsPiutangTestPrice)  as a,
        M_OmzetTypeName,
        M_OmzetTypeID 
        from ss_piutang
        join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'

        join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID  and T_OnlineOrderIsActive = 'Y'
        join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
        join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID and F_PaymentDetailM_PaymentTypeID = 6

        left join t_test on SsPiutangTestT_TestID = T_TestID
        left join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
         
        where SsPiutangDate =?
        and SsPiutangType = 'A1'      
        and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'

        ) as x
        ";
		$xsql = "select
      sum(SsPiutangTestPrice) `total|R` 
      from ss_piutang
      join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
      join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
      left join t_test on SsPiutangTestT_TestID = T_TestID
      left join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID
      left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
      left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
      left join m_mou on T_OrderHeaderM_MouID  = M_MouID
       left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
      left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
      where SsPiutangDate = ?
      and SsPiutangType = 'A2'     and T_OrderHeaderAddOnIsKaPus = 'N'
      and M_OmzetTypeID <> 7
      order by Nat_SubGroupID	";
		$resp = $this->get_rows($sql, [$date, $date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		foreach ($resp["data"] as $idx => $r) {
			$r["total|R"] = $r["total|R"];
			$result[] = $r;
		}
		return $result;
	}
	function r_092x_a3($date = "")
	{
		$sql = "select
       sum(bayar) + sum(SsPiutangDiscount)  as `total|R`  
        from 
        (
        select 
         sum(SsPiutangPaymentAmount) as bayar,
        SsPiutangDiscount,
         M_PaymentTypeName,
        M_OmzetTypeName,
        M_OmzetTypeID
        from ss_piutang
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
        left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
        left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
        left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
        where SsPiutangDate = ?
        and SsPiutangType = 'A2'  and T_OrderHeaderAddOnIsKaPus = 'N'
        and M_OmzetTypeID <> 7
        group by T_OrderHeaderID 

        union

        select
         sum(F_PaymentDetailAmount) as bayar,
        SsPiutangDiscount,
         M_PaymentTypeName,
        M_OmzetTypeName,
        M_OmzetTypeID
        from ss_piutang
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
        join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
          and T_OnlineOrderIsActive = 'Y'
        join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
        join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID and F_PaymentDetailM_PaymentTypeID = 6
        left join m_paymenttype on F_PaymentDetailM_PaymentTypeID = M_PaymentTypeID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID 
        where SsPiutangDate = ?
        and SsPiutangType = 'A1'  
        and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'
        group by T_OrderHeaderID 
      ) as x";
		$resp = $this->get_rows($sql, [$date, $date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		foreach ($resp["data"] as $idx => $r) {
			$r["total|R"] = $r["total|R"];
			$result[] = $r;
		}
		return $result;
	}
	function r_092x_a2($date = "")
	{
		$sql = "select
        SsPiutangT_OrderHeaderID as id, 	
        sum( MOD(SsPiutangPaymentAmount, 500)) as 'round|R' ,
        M_PaymentTypeName,
        M_OmzetTypeName,
        M_OmzetTypeID

        from ss_piutang
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
        left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
        left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
        left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
        where SsPiutangDate = ?
        and SsPiutangType = 'A2'  
        and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'
        and M_PaymentTypeID = '1' and T_OrderHeaderAddOnIsKaPus = 'N'	";

		$xsql = "select
        -- SsPiutangT_OrderHeaderID as id, 	
        sum( MOD(SsPiutangPaymentAmount, 500)) as `round|R` 
        -- M_PaymentTypeName,
        -- M_OmzetTypeName,
        -- M_OmzetTypeID
        from ss_piutang
        join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
        left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
        left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
        left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
        left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
        left join m_mou on T_OrderHeaderM_MouID  = M_MouID
         left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
        left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
        where SsPiutangDate = ?
        and SsPiutangType = 'A2'  
        and M_PaymentTypeID = '1' and T_OrderHeaderAddOnIsKaPus = 'N'	
        and M_OmzetTypeID <> 7
        ";
		$resp = $this->get_rows($sql, [$date]);
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$prevCompanyName = "";
		$total = 0;
		$prevPaymentType = "";
		$sub_pay_total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$r["round|R"] = $r["round|R"];
			$result[] = $r;
		}
		return $result;
	}
	function r_092x_a1($date = "")
	{
		$sql = "SELECT
			Nat_GroupID,
			Nat_GroupName as id, 	
			sum(SsPiutangTestPrice) as `bruto|R`  , 
			M_OmzetTypeName,
			M_OmzetTypeID,
			Nat_SubGroupName as grouptest,
			Nat_SubGroupID as groupTestId
        from ss_piutang
			join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
			join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
			left join t_test on SsPiutangTestT_TestID = T_TestID
			left join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID and Nat_SubGroupIsActive = 'Y'
			left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
			left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
			left join m_mou on T_OrderHeaderM_MouID  = M_MouID
			left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
			left join   t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
			left join nat_group on T_TestNat_GroupID = Nat_GroupID
			where SsPiutangDate = ?
			and SsPiutangType = 'A2'    and T_OrderHeaderAddOnIsKaPus = 'N'
			and M_OmzetTypeID <> 7
        group by  Nat_GroupID,Nat_SubGroupID,M_OmzetTypeName
        union 
        select
			Nat_GroupID,
			Nat_GroupName as id, 	
			sum(SsPiutangTestPrice) as bruto  , 
			M_OmzetTypeName,
			M_OmzetTypeID,
			Nat_SubGroupName as grouptest,
			Nat_SubGroupID as groupTestId
        from ss_piutang
			join ss_piutang_test on SsPiutangTestSsPiutangID = SsPiutangID
			join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
			join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID  and T_OnlineOrderIsActive = 'Y'
			join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
			join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID and F_PaymentDetailM_PaymentTypeID = 6
			left join t_test on SsPiutangTestT_TestID = T_TestID
			left join nat_subgroup on T_TestNat_SubgroupID = Nat_SubGroupID and Nat_SubGroupIsActive = 'Y'
			left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
			left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
			left join m_mou on T_OrderHeaderM_MouID  = M_MouID
			left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
			left join nat_group on T_TestNat_GroupID = Nat_GroupID
			where SsPiutangDate = ?
			and SsPiutangType = 'A1'    
			and M_OmzetTypeID <> '7' and M_OmzetTypeIsActive = 'Y'
        group by  Nat_GroupID,Nat_SubGroupID,M_OmzetTypeName
        order by M_OmzetTypeName, Nat_GroupID ";
		$resp = $this->get_rows($sql, [$date, $date]);

		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["bruto|R"];
			$r["bruto|R"] = $r["bruto|R"];
			$result[] = $r;
		}
		/*
        $result[] = [
            "Nat_GroupID" => "",
            "id" => "Total",
            "bruto|R" => number_format($total, 0, "", " "),
            "M_OmzetTypeName" => "",
            "M_OmzetTypeID" => "",
            "grouptest" => "",
        ];
        */
		return $result;
	}

	function r_092x($date = "")
	{
		if (true) {
			$sql = "SELECT Nat_BankIsEDC,
				Nat_BankID,
				M_PaymentTypeCode,
				-- SsPiutangT_OrderHeaderID as id, 
				ifnull(M_BankAccountNo,'') BankAccountNo,
				case when M_PaymentTypeName='RK' then concat(M_PaymentTypeName,'|', fn_get_asal_rk(SsPiutangT_OrderHeaderID) )  
				else 
				concat(M_PaymentTypeName,'|' , ifnull(Nat_BankCode,''), ' ' , ifnull(M_BankAccountNo,'')) 
				end as M_PaymentTypeName,
				sum(SsPiutangPaymentAmount  -  if(M_PaymentTypeID =  '1' , MOD(SsPiutangPaymentAmount, 500) ,'')) as total,
				F_Payment_VoucherF_PaymentID, F_Payment_VoucherM_CompanyID, vc.M_CompanyName as VoucherM_CompanyName
			from ss_piutang
			join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
			join m_company on T_OrderHeaderM_CompanyID = M_CompanyID 
			left join ss_piutang_payment on SsPiutangPaymentSsPiutangID = SsPiutangID
			left join m_paymenttype on SsPiutangPaymentM_PaymentTypeID = M_PaymentTypeID
			left join f_payment_voucher on F_Payment_VoucherT_OrderHeaderID = T_OrderHeaderID  
			left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
			left join m_mou on T_OrderHeaderM_MouID  = M_MouID
			left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
			left join t_orderheaderaddon on T_OrderHeaderAddOnT_OrderHeaderID =T_OrderHeaderID  
			left join m_bank_account on SsPiutangPaymentM_BankAccountID = M_BankAccountID
			left join  nat_bank on Nat_BankID = M_BankAccountNat_BankID
			left join m_company vc on vc.M_CompanyID = F_Payment_VoucherM_CompanyID
			where SsPiutangDate = ?
			and SsPiutangType = 'A2' and T_OrderHeaderAddOnIsKaPus = 'N'
			and M_OmzetTypeID <> 7
			group by M_PaymentTypeName, Nat_BankID ,M_BankAccountID
		union 
			SELECT  
			-- SsPiutangT_OrderHeaderID as id, 
				Nat_BankIsEDC,
				Nat_BankID,	
				M_PaymentTypeCode,
				ifnull(M_BankAccountNo,'') BankAccountNo,
				concat('DP ', M_PaymentTypeName,'|' , ifnull(Nat_BankCode,''), ' ' , ifnull(M_BankAccountNo,'')) as M_PaymentTypeName,
				sum(F_PaymentDetailAmount  ) as total,
				F_Payment_VoucherF_PaymentID, F_Payment_VoucherM_CompanyID, vc.M_CompanyName as VoucherM_CompanyName
			from ss_piutang
			join t_orderheader on SsPiutangT_OrderHeaderID = T_OrderHeaderID AND T_OrderHeaderIsActive = 'Y'
			join t_onlineorder on T_OrderHeaderID = T_OnlineOrderT_OrderHeaderID 
				and T_OnlineOrderIsActive = 'Y'
			join f_payment on F_PaymentT_OrderHeaderID = T_OrderHeaderID and F_PaymentIsActive = 'Y'
			join f_paymentdetail on F_PaymentID = F_PaymentDetailF_PaymentID and F_PaymentDetailM_PaymentTypeID = 6
			left join f_payment_voucher on F_Payment_VoucherT_OrderHeaderID = T_OrderHeaderID
			left join m_paymenttype on F_PaymentDetailM_PaymentTypeID = M_PaymentTypeID
			left join m_company on T_OrderHeaderM_CompanyID = M_CompanyID  and M_CompanyIsActive = 'Y'
			left join m_companytype on  M_CompanyM_CompanyTypeID =  M_CompanyTypeID and M_CompanyTypeIsActive = 'Y'
			left join m_mou on T_OrderHeaderM_MouID  = M_MouID
			left join m_omzettype on M_MouM_OmzetTypeID =  M_OmzetTypeID
			left join m_bank_account on F_PaymentDetailM_BankAccountID = M_BankAccountID
			left join  nat_bank on Nat_BankID = M_BankAccountNat_BankID
			left join m_company vc on vc.M_CompanyID = F_Payment_VoucherM_CompanyID
			where SsPiutangDate = ?
			and SsPiutangType = 'A1'
			group by M_PaymentTypeName, Nat_BankID ,M_BankAccountID
			order by M_PaymentTypeName";

			$resp = $this->get_rows($sql, [$date, $date]);
		}
		if ($resp["status"] == -1) {
			echo "Error: " . $resp["message"];
			exit();
		}
		if (count($resp["data"]) == 0) {
			return [];
		}
		$result = [];
		$prevCompanyName = "";
		$total = 0;
		$prevPaymentType = "";
		$sub_pay_total = 0;
		foreach ($resp["data"] as $idx => $r) {
			$total += $r["total"];
			$r["total|R"] = $r["total"];
			unset($r["total"]);

			$prevCompanyName = $r["M_CompanyName"];
			$prevPaymentType = $r["M_PaymentTypeName"];
			$result[] = $r;
		}
		return $result;
	}

	function get_rows($sql, $param = false)
	{
		if ($param) {
			$qry = $this->db->query($sql, $param);
		} else {
			$qry = $this->db->query($sql);
		}
		if (!$qry) {
			return [
				"status" => -1,
				"message" =>
				$this->db->last_query() .
					"|" .
					$this->db->error()["message"],
			];
		}
		return ["status" => 0, "data" => $qry->result_array()];
	}
	function get_row($sql, $param = false)
	{
		$resp = $this->get_rows($sql, $param);
		if ($resp["status"] == -1) {
			return $resp;
		}
		if (count($resp["data"]) == 0) {
			return ["status" => 0, "message" => "Not found."];
		}
		return ["status" => 1, "data" => $resp["data"][0]];
	}
	public function print_table_style()
	{
		echo "
        
        ";
	}
	public function print_table($rows, $keys, $title = false)
	{
		echo "";
		if ($title) {
			$col_span = count($keys);
			echo "";
			echo "";
			echo "";
		}
		echo "";
		foreach ($keys as $k) {
			$k = str_replace("|R", "", $k);
			echo "";
		}
		echo "\n";
		foreach ($rows as $r) {
			echo "";
			foreach ($keys as $k) {
				if (in_array($k, ["Debit", "Debit", "Kredit"])) {
					echo "";
				} else {
					echo "";
				}
			}
			echo "";
		}
		echo "
$title
$k
" .
						$this->xformat($r[$k]) .
						"
" . $r[$k] . "
";
	}
	function load_db()
	{
		$config = [
			"dsn" => "",
			"hostname" => "192.168.55.227",
			"username" => "xone",
			"password" => "xone!xx123",
			"database" => "autocon_v2",
			"dbdriver" => "mysqli",
			"dbprefix" => "",
			"pconnect" => false,
			"db_debug" => false,
			"cache_on" => false,
			"cachedir" => "",
			"char_set" => "utf8",
			"dbcollat" => "utf8_general_ci",
			"swap_pre" => "",
			"encrypt" => false,
			"compress" => false,
			"stricton" => false,
			"failover" => [],
			"save_queries" => true,
		];
		return $this->load->database($config, true);
	}
}
/*
create table jurnal (
  jurnalID int not null auto_increment primary key,
  jurnalDate date,
  jurnalBranchCode varchar(3),
  jurnalRef varchar(100),
  jurnalNote varchar(100),
  jurnalDebit decimal(15),
  jurnalKredit decimal(15),
  jurnalCreated datetime default current_timestamp(),
  key(jurnalDate),
  key(jurnalBranchCode),
  key(jurnalRef)
);

            "Date" => $date,
            "BranchCode" => $branchCode ,
            "Ref" => $k,
            "Deskripsi" => $r["M_OmzetTypeName"] . "/" . $r["M_CompanyName"] ,
            "Debit" => $r["total|R"],
            "ProductDesc" => "",
            "Product" => "",
            "Kredit" => ""
create table ar(
  arID int not null auto_increment primary key,
  arDate date,
  arBranchCode varchar(3),
  arRef varchar(100),
  arDeskripsi varchar(100),
  arDebit decimal(10),
  arProductDesc varchar(100),
  arProduct varchar(20),
  arKredit decimal(10),
  arCreatedDate datetime default current_timestamp(),
  key(arDate),
  key(arBranchCode)
);

create table receive_payment(
  rcvPaymentID int not null auto_increment primary key,
  rcvPaymentDate date,
  rcvPaymentArDate date,
  rcvPaymentBranchCode varchar(3),
  rcvPaymentRef varchar(100),
  rcvPaymentPay varchar(100),
  rcvPaymentKdPelanggan varchar(100),
  rcvPaymentDeskripsi varchar(100),
  rcvPaymentTipeBayar varchar(100),
  rcvPaymentAccount varchar(100),
  rcvPaymentPaymentMethode varchar(100),
  rcvPaymentDebit decimal(10),
  rcvPaymentCreatedDate datetime default current_timestamp(),
  key(rcvPaymentDate),
  key(rcvPaymentBranchCode)
);
)
*/