ORA_PConnect(); if (!$ora_res){ echo "
Error : " . htmlspecialchars($ora_obj->last_error_msg) . "
"; exit(); } initAjaxParamTemplate(); if ($_REQUEST['action'] == "DoPost") { $result = do_post($ora_obj); } elseif ($_REQUEST['action'] == "initForm") { $result = initForm($ora_obj); } elseif ($_REQUEST['action'] == "DoCheck") { $result = do_check($ora_obj); } else { $result = -1; } echo $result; unset($_SESSION['TEMPLATE_ARRAY_ADDR']); if ($ora_obj->conn) { $ora_obj->ORA_Close(); #echo "connection closed.
"; } function initAjaxParamTemplate() { $ajaxParamTemplate['PARAM'] = <<< params

REBUILD HISTORY SALDO

Proses Tambahan re-build History Saldo untuk rekening selisih Tanggal Proses History Saldo Terakhir <>   Nomor Rekening Selisih :  Check Data Tanggal Awal History : > note="Tanggal Awal History" ATTRIB="DM" display="block" dbname="START_DATE" class="font11" readonly onclick="javascript:displayCalendar(this,'dd-mm-yyyy',this);" onblur='javascript:chgAttr(rep_param.PROCESS)';> > note="Tanggal Akhir History" ATTRIB="DM" display="block" dbname="END_DATE" class="font11" readonly>    Process

params; $_SESSION['TEMPLATE_ARRAY_ADDR'] = &$ajaxParamTemplate; } function initForm(&$ora_obj) { $templObj = new PregReplaceCallbackClass(''); $templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR'); $date = show_tanggal("Y"); $_SESSION['ARRAY_ADDR_VAR'] = &$variable_array; $variable_array['DATE'] = $date; $variable_array['LAST_HIST_SALDO'] = build_tanggal(LAST_HIST_SALDO); $templObj->SetFormatName('PARAM'); $result = $templObj->PregReplaceCallback(); return $result; } function do_post(&$ora_obj) { $field = explode('^', $_REQUEST["param"]); $num_field = count($field); for ($i=0;$i<$num_field-1;$i++) { $val_sep = '*'; list($field_name, $field_value) = split("[$val_sep]", $field[$i]); $param["$field_name"] = $field_value; $_REQUEST["$field_name"] = $field_value; } $_REQUEST["USER_ID"] = $_SESSION["KD_USER"]; $_REQUEST["IPNUM"] = gethostbyname($_SERVER['REMOTE_ADDR']); $_REQUEST["PAGENAME"] = 'rebuild_saldo_selisih.php'; if ($ora_obj->checkProcedure('MAP_DWH', 'REBUILD_SALDO_SELISIH', 'DWH') > 0) { //$ora_obj->SetServerOutput(true); $ora_obj->set_auto_commit(); $proc_call = 'DWH.MAP_DWH.REBUILD_SALDO_SELISIH'; $stmt = "begin {$proc_call}(:Var1, :Var2, :Var3); end;"; $stmt_res = oci_parse($ora_obj->conn,$stmt); oci_bind_by_name($stmt_res, ":Var1",$_REQUEST["ACCOUNT_NO"], 10); oci_bind_by_name($stmt_res, ":Var2",$_REQUEST["START_DATE"]); oci_bind_by_name($stmt_res, ":Var3",$_REQUEST["END_DATE"]); if (!oci_execute($stmt_res, $ora_obj->execution_mode)) { $e = oci_error($stmt_res); $retVal = split("\n",$e['message']); } else { $retVal = 'DONE'; } if (!is_null($stmt_res)):oci_free_statement($stmt_res);endif; //$ora_obj->GetDbmsOutput(); //$ora_obj->SetServerOutput(false); } else { $retVal = 'NOT_RUN'; } return $retVal; } function do_check(&$ora_obj) { $paramSQL = <<< sql SELECT m.rename1 acc_name, a.reclbl reclbl, a.hist_saldo hist_saldo, abs(a.reclbl - a.hist_saldo) selisih FROM v_balance a, m5re_staging m WHERE a.recode = '{$_REQUEST['ACCOUNT_NO']}' AND a.recode = m.recode AND abs(a.reclbl - a.hist_saldo) > 0.001 sql; $paramArray = $ora_obj->ORA_SelectData($paramSQL,null,null,OCI_FETCHSTATEMENT_BY_ROW); if ($ora_obj->nrows>0) { $reclbl = $paramArray[0]['RECLBL']; $hist_saldo = $paramArray[0]['HIST_SALDO']; $selisih = $paramArray[0]['SELISIH']; $rename = $paramArray[0]['ACC_NAME']; $result = 'Data Saldo Nomor Rekening
'; $result .= $_REQUEST['ACCOUNT_NO'].' - '.$rename.'

'; $result .= 'Master Rekening: '.$reclbl.'
'; $result .= 'History Saldo: '.$hist_saldo.'
'; $result .= 'Selisih: '.$selisih; } else { $result = '0'; } return $result; } ?>