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); } 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

BUILD LTKL DATA FROM T24 STAGING

Menjalankan proses Pembentukan Text File LTKL dari T24 Staging Tanggal yang diisi adalah H+0   Proses Data untuk Tanggal : > note="Tanggal Proses" ATTRIB="DM" display="block" dbname="TGL_PROSES" class="font11" readonly onclick="javascript:displayCalendar(this,'dd-mm-yyyy',this);" onblur='javascript:chgAttr(rep_param.PROCESS)';>    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; $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"] = 'posting_T24_ltkl.php'; if ($ora_obj->checkProcedure('MAP_LTKL', 'POST_PROCESS_LTKL', 'T24DWH') > 0) { //$ora_obj->SetServerOutput(true); $ora_obj->set_auto_commit(); $retVal = $ora_obj->ORA_ProcedureCall('T24DWH.MAP_LTKL.POST_PROCESS_LTKL', 1, 0); //$ora_obj->GetDbmsOutput(); //$ora_obj->SetServerOutput(false); $job = $retVal[0]; } if ($job == 0) { $e = $ora_obj->last_error_msg; $vKetError = trim(substr($e[0], 10, strlen($e[0])-10)); $msg = 'Proses GAGAL !!'.chr(10).$vKetError.chr(10).'Click OK untuk Refresh'; $ret = $msg; } else { $ret = $job; } return $ret; } ?>