125 lines
3.6 KiB
PHP
125 lines
3.6 KiB
PHP
|
<?php
|
||
|
|
||
|
$PARENT_SCRIPTNAME='ods_kredit.php';
|
||
|
include_once 'script_auth.php';
|
||
|
|
||
|
include_once 'class/PregReplaceCallbackClass.php';
|
||
|
include_once 'init/initialisation_parameter.php';
|
||
|
include_once 'headerFile.php';
|
||
|
include_once 'incl.php';
|
||
|
|
||
|
$ora_obj = new ORAConnectionClass('init/ORA_INIT.php');
|
||
|
$ora_res = $ora_obj->ORA_PConnect();
|
||
|
if (!$ora_res){
|
||
|
echo "<BR>Error : " . htmlspecialchars($ora_obj->last_error_msg) . "<br>";
|
||
|
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.<br>";
|
||
|
}
|
||
|
|
||
|
function initAjaxParamTemplate() {
|
||
|
$ajaxParamTemplate['PARAM'] = <<< params
|
||
|
<table width="100%" cellpadding="2" cellspacing="1" border="0" style="layout:auto">
|
||
|
<tr>
|
||
|
<td align=left class="orangetitle" nowrap>MAPPING ODS KREDIT FROM STAGING</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td align=left>
|
||
|
<form name="rep_param" onsubmit="javascript:return false;">
|
||
|
<table width="65%" cellpadding="2" cellspacing="1" border="0" style="layout:auto" class="font11">
|
||
|
<tr>
|
||
|
<td colspan=3>
|
||
|
Membentuk Data KREDIT sebagai ODS untuk MIS<BR>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr><td> </td></tr>
|
||
|
<tr>
|
||
|
<td align=left>Tanggal Proses</td>
|
||
|
<td>:</td>
|
||
|
<td align=left>
|
||
|
<input type="text" name="TGL_PROSES" value=<<DATE>> 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)';>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr><td> </td></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<button id="PROCESS_BTN" name="PROCESS" dbname="" display="no" onclick="javascript:doPost();">
|
||
|
<img src="images/button_execute.gif" width="12" height="12">
|
||
|
<span class="font10"> Process</span>
|
||
|
</button>
|
||
|
</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</form>
|
||
|
</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
params;
|
||
|
|
||
|
$_SESSION['TEMPLATE_ARRAY_ADDR'] = &$ajaxParamTemplate;
|
||
|
}
|
||
|
|
||
|
|
||
|
function initForm(&$ora_obj) {
|
||
|
$templObj = new PregReplaceCallbackClass('');
|
||
|
$templObj->SetTemplateArray('TEMPLATE_ARRAY_ADDR');
|
||
|
|
||
|
$date = show_tanggal("C");
|
||
|
$_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"] = 'ods_kredit.php';
|
||
|
|
||
|
if ($ora_obj->checkProcedure('ODS_MAP_UTILITY', 'MAP_ODS_KREDIT', 'BAGMIS') > 0) {
|
||
|
//$ora_obj->SetServerOutput(true);
|
||
|
$ora_obj->set_auto_commit();
|
||
|
$retVal = $ora_obj->ORA_ProcedureCall('BAGMIS.ODS_MAP_UTILITY.MAP_ODS_KREDIT', 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;
|
||
|
}
|
||
|
|
||
|
|
||
|
?>
|