function t_target_realisasiGrid_BeforeShowRow(&$sender)
{
    $t_target_realisasiGrid_BeforeShowRow = true;
    $Component =& $sender;
    $Container =& CCGetParentContainer($sender);
    global $t_target_realisasiGrid;
    //Compatibility
    //End t_target_realisasiGrid_BeforeShowRow
    //Custom Code @725-2A29BDB7
    // -------------------------
    // Write your own code here.
    global $selected_id;
    global $t_target_realisasi_jenis_bulanForm;
    // Write your own code here.
    /*if ($selected_id<0) {
     		$selected_id = $Component->DataSource->p_year_period_id->GetValue();
    		}*/
    $img_radio = "<img border=\"0\" src=\"../images/radio.gif\">";
    $Style = $styles[0];
    if ($Component->DataSource->p_finance_period_id->GetValue() == $selected_id) {
        $img_radio = "<img border=\"0\" src=\"../images/radio_s.gif\">";
        $Style = $styles[1];
        $is_show_form = 1;
        $Component->DLink->Parameters = CCRemoveParam($Component->DLink->Parameters, 'p_finance_period_id');
        $t_target_realisasi_jenis_bulanForm->bulan->SetValue($Component->DataSource->bulan->GetValue());
        //$pid = $Component->DataSource->p_year_period_id->GetValue();
        //$Component->p_year_period_id2->SetValue($pid);
    }
    // End Bdr
    if (count($styles)) {
        //$Style = $styles[($Component->RowNumber - 1) % count($styles)];
        if (strlen($Style) && !strpos($Style, "=")) {
            $Style = (strpos($Style, ":") ? 'style="' : 'class="') . $Style . '"';
        }
        $Component->Attributes->SetValue("rowStyle", $Style);
    }
    $Component->DLink->SetValue($img_radio);
    // Bdr
    $target = $Component->DataSource->target_amount->GetValue();
    $realisasi = $Component->DataSource->realisasi_amt->GetValue();
    $penalty = $Component->DataSource->penalty_amt->GetValue();
    $debt = $Component->DataSource->debt_amt->GetValue();
    if (!empty($target)) {
        $percent = number_format(($realisasi + $penalty + $debt) / $target * 100, 2, ".", ",");
    } else {
        $percent = 0;
    }
    $Component->percentage->SetValue("{$percent} %");
    $Component->total_amt->SetValue($realisasi + $penalty + $debt);
    // -------------------------
    //End Custom Code
    //Close t_target_realisasiGrid_BeforeShowRow @2-DFE61ABB
    return $t_target_realisasiGrid_BeforeShowRow;
}
コード例 #2
0
function Task_Buka_BeforeShow(&$sender)
{
    $Task_Buka_BeforeShow = true;
    $Component =& $sender;
    $Container =& CCGetParentContainer($sender);
    global $Task;
    //Compatibility
    //End Task_Buka_BeforeShow
    //Custom Code @128-2A29BDB7
    // -------------------------
    // Write your own code here.
    global $open_iframe;
    global $ais_create_doc;
    global $ais_manual;
    global $auser_id_doc;
    global $auser_id_donor;
    global $auser_id_login;
    global $auser_id_taken;
    global $acurr_ctl_id;
    global $acurr_doc_type_id;
    global $acurr_proc_id;
    global $acurr_doc_id;
    global $acurr_doc_status;
    global $acurr_proc_status;
    global $aprev_ctl_id;
    global $aprev_doc_type_id;
    global $aprev_proc_id;
    global $aprev_doc_id;
    global $ainteractive_msg;
    global $aslot_1;
    global $aslot_2;
    global $aslot_3;
    global $aslot_4;
    global $aslot_5;
    global $profile;
    global $filenm;
    global $paramstr;
    global $openform;
    global $paramtr2;
    global $qs;
    $Task->Buka->Attributes->SetValue("read", "Terima");
    $profile = $Task->PROFILE_TYPE->GetFormattedValue();
    if ($Task->IS_READ->GetFormattedValue() == "Y") {
        $Task->Buka->Attributes->SetValue("read", "Buka");
    }
    $ais_create_doc = "N";
    $ais_manual = "N";
    $auser_id_login = CCGetUserID();
    $auser_id_doc = $Task->P_APP_USER_ID_DONOR->GetFormattedValue();
    $auser_id_donor = $Task->P_APP_USER_ID_DONOR->GetFormattedValue();
    $auser_id_taken = $Task->P_APP_USER_ID_TAKEOVER->GetFormattedValue();
    $acurr_ctl_id = $Task->T_CTL_ID->GetFormattedValue();
    $acurr_doc_type_id = $Task->P_W_DOC_TYPE_ID->GetFormattedValue();
    $acurr_proc_id = $Task->P_W_PROC_ID->GetFormattedValue();
    $acurr_doc_id = $Task->DOC_ID->GetFormattedValue();
    $acurr_doc_status = $Task->DOC_STS->GetFormattedValue();
    $acurr_proc_status = $Task->PROC_STS->GetFormattedValue();
    $aprev_ctl_id = $Task->PREV_CTL_ID->GetFormattedValue();
    $aprev_doc_type_id = $Task->PREV_DOC_TYPE_ID->GetFormattedValue();
    $aprev_proc_id = $Task->PREV_PROC_ID->GetFormattedValue();
    $aprev_doc_id = $Task->PREV_DOC_ID->GetFormattedValue();
    $ainteractive_msg = $Task->MESSAGE->GetFormattedValue();
    $aslot_1 = $Task->SLOT_1->GetFormattedValue();
    $aslot_2 = $Task->SLOT_2->GetFormattedValue();
    $aslot_3 = $Task->SLOT_3->GetFormattedValue();
    $aslot_4 = $Task->SLOT_4->GetFormattedValue();
    $aslot_5 = $Task->SLOT_5->GetFormattedValue();
    if ($profile != "INBOX") {
        $Task->Buka->Attributes->SetValue("read", "View");
    }
    $filenm = $Task->FILENAME->GetFormattedValue();
    if (!strpos($filenm, "?")) {
        $filenm = $filenm . "?buka=yes";
    } else {
        $filenm = $filenm . "buka=yes";
    }
    $paramstr = "&FILENM=" . $Task->FILENAME->GetFormattedValue() . "&CURR_DOC_ID=" . $acurr_doc_id . "&CURR_DOC_TYPE_ID=" . $acurr_doc_type_id . "&CURR_PROC_ID=" . $acurr_proc_id . "&CURR_CTL_ID=" . $acurr_ctl_id . "&USER_ID_DOC=" . $auser_id_doc . "&USER_ID_DONOR=" . $auser_id_donor . "&USER_ID_LOGIN="******"&USER_ID_TAKEN=" . $auser_id_taken . "&IS_CREATE_DOC=" . $ais_create_doc . "&IS_MANUAL=" . $ais_manual . "&CURR_PROC_STATUS=" . $acurr_proc_status . "&CURR_DOC_STATUS=" . $acurr_doc_status . "&PREV_DOC_ID=" . $aprev_doc_id . "&PREV_DOC_TYPE_ID=" . $aprev_doc_type_id . "&PREV_PROC_ID=" . $aprev_proc_id . "&PREV_CTL_ID=" . $aprev_ctl_id . "&SLOT_1=" . $aslot_1 . "&SLOT_2=" . $aslot_2 . "&SLOT_3=" . $aslot_3 . "&SLOT_4=" . $aslot_4 . "&SLOT_5=" . $aslot_5 . "&MESSAGE=" . $ainteractive_msg;
    $openform = $filenm . $paramstr;
    if ($profile == "INBOX") {
        if (CCGetFromGet("IS_TAKEN", "") == "") {
            //--------------------------------------------------------------------
            // PEMBERIAN VARIABEL
            //--------------------------------------------------------------------
            $qs = CCGetQueryString("QueryString", "");
            $qs = CCRemoveParam($qs, "IS_TAKEN");
            $qs = CCRemoveParam($qs, "TAKEN_CTL");
            if ($qs == "") {
                $qs = "?";
            }
            //-------------------------------
            global $FileName;
            $qs = $FileName . "?buka=yes&" . $qs . "&TAKEN_CTL=" . $acurr_ctl_id . "&IS_TAKEN=Y" . $paramstr;
            $openform = "javascript:location.href='" . $qs . "'; return false;";
            $Task->Buka->Attributes->SetValue('taskbuka', $openform);
        } else {
            if (CCGetFromGet("IS_TAKEN", "") != "" && CCGetFromGet("TAKEN_CTL", "") != "") {
                //--------------------------------------------------------------------
                // CALL FUNGSI UPDATE TAKEN DATE DAN IS_READ
                //--------------------------------------------------------------------
                //$dbh = new PDO('pgsql:host=localhost;dbname=sikp_db;port=5444', "sikp", "sikp");
                $dbConn = new clsDBConnSIKP();
                $qs = "begin " . " pack_task_profile.taken_task ( " . CCGetFromGet("TAKEN_CTL", "") . ", '" . CCGetUserLogin() . "'," . (empty($acurr_doc_type_id) ? "null" : $acurr_doc_type_id) . " ); " . "end;";
                //$stmt = $dbh->exec($qs);
                //$dbh = null;
                $dbConn->query($qs);
                $dbh = null;
                //--------------------------------------------------------------------
                // OPEN FORM
                //--------------------------------------------------------------------
                if (CCGetFromGet("TAKEN_CTL", "") == CCGetFromGet("CURR_CTL_ID", "")) {
                    $paramtr2 = "&FILENM=" . CCGetFromGet("FILENM", "") . "&TAKEN_CTL=&IS_TAKEN=" . "&CURR_DOC_ID=" . CCGetFromGet("CURR_DOC_ID", "") . "&CURR_DOC_TYPE_ID=" . CCGetFromGet("CURR_DOC_TYPE_ID", "") . "&CURR_PROC_ID=" . CCGetFromGet("CURR_PROC_ID", "") . "&CURR_CTL_ID=" . CCGetFromGet("CURR_CTL_ID", "") . "&USER_ID_DOC=" . CCGetFromGet("USER_ID_DOC", "") . "&USER_ID_DONOR=" . CCGetFromGet("USER_ID_DONOR", "") . "&USER_ID_LOGIN="******"USER_ID_LOGIN", "") . "&USER_ID_TAKEN=" . CCGetFromGet("USER_ID_TAKEN", "") . "&IS_CREATE_DOC=" . CCGetFromGet("IS_CREATE_DOC", "") . "&IS_MANUAL=" . CCGetFromGet("IS_MANUAL", "") . "&CURR_PROC_STATUS=" . CCGetFromGet("CURR_PROC_STATUS", "") . "&CURR_DOC_STATUS=" . CCGetFromGet("CURR_DOC_STATUS", "") . "&PREV_DOC_ID=" . CCGetFromGet("PREV_DOC_ID", "") . "&PREV_DOC_TYPE_ID=" . CCGetFromGet("PREV_DOC_TYPE_ID", "") . "&PREV_PROC_ID=" . CCGetFromGet("PREV_PROC_ID", "") . "&PREV_CTL_ID=" . CCGetFromGet("PREV_CTL_ID", "") . "&SLOT_1=" . CCGetFromGet("SLOT_1", "") . "&SLOT_2=" . CCGetFromGet("SLOT_2", "") . "&SLOT_3=" . CCGetFromGet("SLOT_3", "") . "&SLOT_4=" . CCGetFromGet("SLOT_4", "") . "&SLOT_5=" . CCGetFromGet("SLOT_5", "") . "&MESSAGE=" . CCGetFromGet("MESSAGE", "");
                    $filenm = CCGetFromGet("FILENM", "");
                    if ($filenm != "") {
                        if (!strpos($filenm, "?")) {
                            $filenm = $filenm . "?buka=yes";
                        } else {
                            $filenm = $filenm . "buka=yes";
                        }
                        $openform = $filenm . $paramtr2;
                        echo "<script language='javascript'>";
                        echo "location.href='" . $openform . "';";
                        echo "</script>";
                        exit;
                        return;
                    } else {
                        echo "Form tidak ditemukan!";
                        die;
                    }
                }
            } else {
                $openform = "javascript:alert('Error open form'); return false;";
                $Task->Buka->Attributes->SetValue('taskbuka', $openform);
            }
        }
    } else {
        $openform = $openform . "&TAKEN_CTL=&IS_TAKEN=&IS_VIEW_ONLY=Y";
        //$openform =  "javascript:view_task('" . $openform . "'); return false;" ;
        $openform = "javascript:location.href='" . $openform . "'; return false;";
        $Task->Buka->Attributes->SetValue('taskbuka', $openform);
    }
    // -------------------------
    //End Custom Code
    //Close Task_Buka_BeforeShow @58-D8913CA3
    return $Task_Buka_BeforeShow;
}
コード例 #3
0
function Page_OnInitializeView(&$sender)
{
    $Page_OnInitializeView = true;
    $Component =& $sender;
    $Container =& CCGetParentContainer($sender);
    global $t_bphtb_restitution_list;
    //Compatibility
    //End Page_OnInitializeView
    //Custom Code @66-2A29BDB7
    // -------------------------
    // Write your own code here.
    $submitted = CCGetFromGet('submit');
    $url = CCGetQueryString('QueryString', '');
    if ($submitted) {
        $dbConn = new clsDBConnSIKP();
        $sql = "select count(*) as jml from t_product_order_control where doc_id = " . CCGetFromGet('t_customer_order_id') . "and p_w_doc_type_id = 510";
        $dbConn->query($sql);
        $jumlah_data;
        if ($dbConn->next_record()) {
            $jumlah_data = $dbConn->f('jml');
        }
        if ($jumlah_data == 0) {
            $sql = "select sikp.f_first_submit_engine(510," . CCGetFromGet('t_customer_order_id') . ",'" . CCGetSession('UserLogin') . "')";
            $dbConn->query($sql);
            if ($dbConn->next_record()) {
                $hasil = $dbConn->f('f_first_submit_engine');
                echo "\r\n\t\t\t\t\t<script>\r\n\t\t\t\t\t\talert('" . $hasil . "');\r\n\t\t\t\t\t</script>\r\n\t\t\t\t";
            }
        } else {
            echo "\r\n\t\t\t\t<script>\r\n\t\t\t\t\talert('Data Restitusi Sudah Tersubmit');\r\n\t\t\t\t</script>\r\n\t\t\t";
        }
        $dbConn->close();
        $url = CCRemoveParam($url, 'submit');
        $url = CCRemoveParam($url, 't_bphtb_restitusi_id');
        $url = CCRemoveParam($url, 't_customer_order_id');
        echo "\r\n\t\t\t\t<script>\r\n\t\t\t\t\tlocation.href='t_bphtb_restitution_list.php?" . $url . "';\r\n\t\t\t\t</script>\r\n\t\t\t";
        exit;
    }
    global $selected_id;
    $selected_id = -1;
    $selected_id = CCGetFromGet("t_bphtb_registration_id", $selected_id);
    // -------------------------
    //End Custom Code
    //Close Page_OnInitializeView @1-81DF8332
    return $Page_OnInitializeView;
}
コード例 #4
0
function V_SUBMITTER_Button_Back_OnClick(&$sender)
{
    $V_SUBMITTER_Button_Back_OnClick = true;
    $Component =& $sender;
    $Container =& CCGetParentContainer($sender);
    global $V_SUBMITTER;
    //Compatibility
    //End V_SUBMITTER_Button_Back_OnClick
    //Custom Code @148-2A29BDB7
    // -------------------------
    // Write your own code here.
    global $ais_create_doc;
    global $ais_manual;
    global $auser_id_doc;
    global $auser_id_donor;
    global $auser_id_login;
    global $auser_id_taken;
    global $acurr_ctl_id;
    global $acurr_doc_type_id;
    global $acurr_proc_id;
    global $acurr_doc_id;
    global $acurr_doc_status;
    global $acurr_proc_status;
    global $aprev_ctl_id;
    global $aprev_doc_type_id;
    global $aprev_proc_id;
    global $aprev_doc_id;
    global $ainteractive_msg;
    global $aslot_1;
    global $aslot_2;
    global $aslot_3;
    global $aslot_4;
    global $aslot_5;
    global $o_submitter_id;
    global $o_error_message;
    global $o_result_msg;
    global $o_warning;
    $o_submitter_id = null;
    $o_error_message = "";
    $o_result_msg = "";
    $o_warning = "";
    $btn_call = CCGetFromGet("execute", "");
    if (empty($btn_call)) {
        $ais_create_doc = "'" . CCGetFromGet("IS_CREATE_DOC", "N") . "'";
        $ais_manual = "'" . CCGetFromGet("IS_MANUAL", "N") . "'";
        $auser_id_doc = CCGetFromGet("USER_ID_DOC", "null");
        $auser_id_doc = empty($auser_id_doc) ? "null" : $auser_id_doc;
        $auser_id_donor = CCGetFromGet("USER_ID_DONOR", "null");
        $auser_id_donor = empty($auser_id_donor) ? "null" : $auser_id_donor;
        $auser_id_login = CCGetUserID();
        $auser_id_taken = CCGetFromGet("USER_ID_TAKEN", "null");
        if ($auser_id_taken == "null") {
            $auser_id_taken = $auser_id_login;
        }
        $acurr_ctl_id = CCGetFromGet("CURR_CTL_ID", "null");
        $acurr_ctl_id = empty($acurr_ctl_id) ? "null" : $acurr_ctl_id;
        $acurr_doc_type_id = CCGetFromGet("CURR_DOC_TYPE_ID", "null");
        $acurr_doc_type_id = empty($acurr_doc_type_id) ? "null" : $acurr_doc_type_id;
        $acurr_proc_id = CCGetFromGet("CURR_PROC_ID", "null");
        $acurr_proc_id = empty($acurr_proc_id) ? "null" : $acurr_proc_id;
        $acurr_doc_id = CCGetFromGet("CURR_DOC_ID", "null");
        $acurr_doc_id = empty($acurr_doc_id) ? "null" : $acurr_doc_id;
        $acurr_doc_status = CCGetFromGet("CURR_DOC_STATUS", "null");
        $acurr_doc_status = $acurr_doc_status == "null" ? "null" : "'" . $acurr_doc_status . "'";
        $acurr_proc_status = CCGetFromGet("CURR_PROC_STATUS", "0");
        $acurr_proc_status = $acurr_proc_status == "null" ? "null" : "'" . $acurr_proc_status . "'";
        $aprev_ctl_id = CCGetFromGet("PREV_CTL_ID", "null");
        $aprev_ctl_id = empty($aprev_ctl_id) ? "null" : $aprev_ctl_id;
        $aprev_doc_type_id = CCGetFromGet("PREV_DOC_TYPE_ID", "null");
        $aprev_doc_type_id = empty($aprev_doc_type_id) ? "null" : $aprev_doc_type_id;
        $aprev_proc_id = CCGetFromGet("PREV_PROC_ID", "null");
        $aprev_proc_id = empty($aprev_proc_id) ? "null" : $aprev_proc_id;
        $aprev_doc_id = CCGetFromGet("PREV_DOC_ID", "null");
        $aprev_doc_id = empty($aprev_doc_id) ? "null" : $aprev_doc_id;
        $ainteractive_msg = $V_SUBMITTER->INTERACTIVE_MESSAGE->GetValue();
        $ainteractive_msg = empty($ainteractive_msg) ? "null" : "'" . $ainteractive_msg . "'";
        $aslot_1 = CCGetFromGet("SLOT_1", "null");
        $aslot_1 = $aslot_1 == "null" ? "null" : "'" . $aslot_1 . "'";
        $aslot_2 = CCGetFromGet("SLOT_2", "null");
        $aslot_2 = $aslot_2 == "null" ? "null" : "'" . $aslot_2 . "'";
        $aslot_3 = CCGetFromGet("SLOT_3", "null");
        $aslot_3 = $aslot_3 == "null" ? "null" : "'" . $aslot_3 . "'";
        $aslot_4 = CCGetFromGet("SLOT_4", "null");
        $aslot_4 = $aslot_4 == "null" ? "null" : "'" . $aslot_4 . "'";
        $aslot_5 = CCGetFromGet("SLOT_5", "null");
        $aslot_5 = $aslot_ == "null" ? "null" : "'" . $aslot_5 . "'";
        $submit = $o_submitter_id;
        $dbConn = new clsDBConnSIKP();
        $SeQuery = "select seq_submitter_id.nextval as seq from dual";
        $dbConn->query($SeQuery);
        while ($dbConn->next_record()) {
            $o_submitter_id = $dbConn->f("seq");
        }
        $s = "begin " . "pack_workflow_mpd.back_engine(" . $o_submitter_id . ", " . $ais_create_doc . ", " . $ais_manual . ", " . $auser_id_doc . ", " . $auser_id_donor . ", " . $auser_id_login . ", " . $auser_id_taken . ", " . $acurr_ctl_id . ", " . $acurr_doc_type_id . ", " . $acurr_proc_id . ", " . $acurr_doc_id . ", " . $acurr_doc_status . ", " . $acurr_proc_status . ", " . $aprev_ctl_id . ", " . $aprev_doc_type_id . ", " . $aprev_proc_id . ", " . $aprev_doc_id . ", " . $ainteractive_msg . ", " . $aslot_1 . ", " . $aslot_2 . ", " . $aslot_3 . ", " . $aslot_4 . ", " . $aslot_5 . "); end;";
        //die($s);
        $dbConn->query($s);
        $arr = "";
        if (empty($arr)) {
            $errQuery = "select error_message, return_message, warning from submitter where submitter_id = " . $o_submitter_id;
            $dbConn->query($errQuery);
            while ($dbConn->next_record()) {
                $o_error_message = $dbConn->f("error_message");
                $o_result_msg = $dbConn->f("return_message");
                $o_warning = $dbConn->f("warning");
            }
        } else {
            print_r($arr);
        }
        $V_SUBMITTER->SUBMITTER_ID->SetValue($o_submitter_id);
        $V_SUBMITTER->ERROR_MESSAGE->SetValue($o_error_message);
        $V_SUBMITTER->RETURN_MESSAGE->SetValue($o_result_msg);
        $V_SUBMITTER->WARNING->SetValue($o_warning);
        if ($V_SUBMITTER->RETURN_MESSAGE->GetValue() != "0") {
            global $redirectloader;
            if (CCGetFromGet("CURR_PROC_ID", "") == "1") {
                $redirectloader = "../workflow/workflow_summary.php?ELEMENT_ID=" . "10" . CCGetFromGet("CURR_DOC_TYPE_ID", NULL) . "0" . "2" . "0" . $auser_id_login . "&P_W_DOC_TYPE_ID=" . CCGetFromGet("CURR_DOC_TYPE_ID", NULL) . "&P_W_PROC_ID=" . "2" . "&PROFILE_TYPE=INBOX&P_APP_USER_ID=" . $auser_id_login . "&sumworkflowDir=Asc&sumworkflowPageSize=50";
            } else {
                $redirectloader = "../workflow/workflow_summary.php?ELEMENT_ID=" . "20" . CCGetFromGet("CURR_DOC_TYPE_ID", NULL) . "0" . CCGetFromGet("CURR_PROC_ID", NULL) . "0" . $auser_id_login . "&P_W_DOC_TYPE_ID=" . CCGetFromGet("CURR_DOC_TYPE_ID", NULL) . "&P_W_PROC_ID=" . CCGetFromGet("CURR_PROC_ID", NULL) . "&PROFILE_TYPE=OUTBOX&P_APP_USER_ID=" . $auser_id_login . "&sumworkflowDir=Asc&sumworkflowPageSize=50";
            }
            // refresh parent by javascript
            echo "<script language='javascript'>";
            echo " parent.window.opener.location.href = '" . $redirectloader . "';";
            echo "</script>";
        }
        // end  refresh background summary inbox
        // redirect for new $o_submitter_id
        //global $qs;
        $qs = CCGetQueryString("QueryString", "");
        $qs = CCRemoveParam($qs, "submitter_id");
        $qs = CCRemoveParam($qs, "Button_Submit");
        $qs = CCAddParam($qs, "submitter_id", $o_submitter_id);
        $qs = CCAddParam($qs, "ERROR_MESSAGE", $o_error_message);
        $qs = CCAddParam($qs, "RETURN_MESSAGE", $o_result_msg);
        $qs = CCAddParam($qs, "WARNING", $o_warning);
        $qs = CCAddParam($qs, "execute", "1");
        global $FileName;
        $qs = $FileName . "?" . $qs;
        echo "<script language='javascript'>";
        echo "location.href='" . $qs . "';";
        echo "</script>";
        exit;
        return;
    }
    // -------------------------
    //End Custom Code
    //Close V_SUBMITTER_Button_Back_OnClick @147-8D710DBF
    return $V_SUBMITTER_Button_Back_OnClick;
}