JavaScriptとACCESSでちょこっとやってみたその7

-
そしてDailyReportDownload.jsです。データベースのデータをCSVで吐き出す部分
IE10でまともに動かなかったので原因調査中。画面描画分のCSVデータダウンロードの
箇所はかなり悩みました。
日付で範囲検索出来ないので、そこは改善したい。これもまたベタベタコード

参照サイト
http://blog.goo.ne.jp/xmldtp/e/bdc416e4985f02f60b0399864d49fd3f



DailyReportDownload.js

var EmpCd=location.search.substring(1);     //ログイン画面から担当者CD取得

onload = init;
onunload = dbClose;

//*
//*　初期設定をする関数
//*
function init() {
    //実績日表示
    txtReportday = document.getElementById("txtReportday");
    var txtdate = new DateFormat("yyyy/MM/dd");
    txtdate = txtdate.format(new Date());
    txtReportday.value = txtdate;
    //計画日のテキストボックス制御
    txtReportday.onblur = function () {
        this.style.backgroundColor = "#ffffff";
    }
    document.getElementById("btnDaySearch").onclick = function() {
        txtDateUpdate(txtReportday);
    }
    //画面ダウンロードボタン制御
    document.getElementById("btnViewDownload").onclick = function () {
        ViewDownload();
    }
    //全件ダウンロードボタン制御
    document.getElementById("btnAllDownload").onclick = function () {
        AllDownload()
    }
    dbConnect(); //データベース接続
    // 担当者をセットして画面の初期表示
    EmpCdisplay(EmpCd);
    DisPlayChecker();
}

//*
//*　終了処理
//*
function OperateEnd() {
    dbClose();
    (window.open('', '_self').opener = window).close();
}

//*
//*　報告日更新時の処理
//*
function txtDateUpdate(obj) {
    DisPlayChecker();
    obj.style.backgroundColor = "#ffffff";
}

//*
//*　報告日にデータが存在するかを判別して表示する関数
//*
function DisPlayChecker() {
    //実績日チェック
    var Reportday = document.getElementById('txtReportday').value;
    var EmpID = EmpCd;
    if (ChckDate(Reportday)) {
    } else {
        return;
    }
    var mySql = " SELECT COUNT(WorkplanID) AS WIDCount" + " FROM t_workplan"
                     + " WHERE (PlanDate>='" + Reportday + "') AND (Empid='" + EmpID + "') AND (DeleteFlg = '0' );";
    var recordSet = database.Execute(mySql);
    var wPlanCount = recordSet(0);

    var mySql = " SELECT COUNT(ReportID) AS RIDCount "
           + " FROM t_dailyreport "
           + " WHERE (Reportday>='" + Reportday + "') AND (Empid='" + EmpID + "') AND (DeleteFlg = '0' );";
    var recordSet = database.Execute(mySql);
    var ReportCount = recordSet(0);
    //日報の登録がなければ画面をクリアする
    if (ReportCount == 0) {
        //0件の場合は画面をクリアする。
        TableClear();
    }
    //日報の登録があればデータを表示する。   
    if (ReportCount != 0) {
        TableClear();
        dataDisplay();
    }
    recordSet.Close();
    recordSet = null;
}

//*
//*　実績データを表示する関数
//*
function dataDisplay() {
    try {
        //作業計画登録なし
        var cWork = "－";
        //明細部分
        var Reportday = document.getElementById('txtReportday').value;
        ChckDate(Reportday);
        var EmpId = EmpCd;
        var mySql = " SELECT t_dailyreport.ReportID, t_dailyreport.WorkplanID, m_Administration.AdministrationID, m_Administration.AdministrationDetail,"
                    + " m_ActionPlan.ActionplanID, m_ActionPlan.ActionPlan, m_Matter.MatterID, m_Matter.MatterName, m_Task.TaskID, m_Task.taskName,"
                    + " t_dailyreport.Dailymemo, t_dailyreport.Reference, t_dailyreport.Reportday, t_dailyreport.Taskstart, t_dailyreport.Taskend,"
                    + " t_dailyreport.Workinghours, m_Emp.Empid, m_Emp.Empname"
                    + " FROM m_Emp INNER JOIN ((t_dailyreport INNER JOIN (((m_Administration INNER JOIN m_ActionPlan ON m_Administration.AdministrationID = m_ActionPlan.AdministrationID)"
                    + " INNER JOIN m_Matter ON (m_Matter.AdministrationID = m_Administration.AdministrationID) AND (m_ActionPlan.ActionplanID = m_Matter.ActionplanID))"
                    + " INNER JOIN m_Businessyear ON m_Administration.Businessyear = m_Businessyear.BusinessYear) ON (t_dailyreport.MatterID = m_Matter.MatterID)"
                    + " AND (t_dailyreport.ActionplanID = m_ActionPlan.ActionplanID) AND (t_dailyreport.AdministrationID = m_Administration.AdministrationID))"
                    + " INNER JOIN m_Task ON t_dailyreport.TaskID = m_Task.TaskID) ON m_Emp.Empid = t_dailyreport.Empid"
                    + " WHERE (((t_dailyreport.Reportday)>='"+ Reportday +"') AND ((m_Emp.Empid)='"+ EmpId +"')"
                    + " AND ((t_dailyreport.DeleteFlg)='0') AND ((m_Businessyear.ShowFlg)='0')) ORDER BY t_dailyreport.Reportday DESC,t_dailyreport.ReportID;";
        var recordSet = database.Execute(mySql);
        var counter = 1;
        while (!recordSet.EOF) {
            var table1 = document.getElementById("table1");
            var row1 = table1.insertRow(counter);
            var outhtml = new Array(19);
            var cellname = new Array(19);
            //実績明細表示
            for (var i = 0; i < 18; i++) {
                var classname = String('D' + i);
                //そのままレコード表示
                if (i ==0 || i == 1){
                    cellname[i] = row1.insertCell(i);
                    cellname[i].setAttribute("class", classname);
                    cellname[i].className = classname;
                    outhtml[i] = '<span id="' + classname + '-' + counter + '">' + recordSet(i) + '</span>';
                    cellname[i].innerHTML = outhtml[i];
                }
                //計画表示
                if (i == 2) {
                    var WPMemo = "";
                    if (recordSet(1) == cWork || recordSet(1) == null || recordSet(1) == undefined) {
                        cellname[i] = row1.insertCell(i);
                        cellname[i].setAttribute("class", classname);
                        cellname[i].className = classname;
                        WPMemo = cWork;
                        outhtml[i] = '<span id="' + classname + '-' + counter + '">' + WPMemo + '</span>';
                    } else {
                        mySubSql = " SELECT t_workplan.WorkplanID, t_workplan.Planmemo, t_workplan.Empid, t_workplan.PlanDate, t_dailyreport.Reportday "
                                  + " FROM t_dailyreport INNER JOIN t_workplan ON (t_dailyreport.MatterID = t_workplan.MatterID) AND (t_dailyreport.ActionplanID = t_workplan.ActionplanID)"
                                  + " AND (t_dailyreport.AdministrationID = t_workplan.AdministrationID) AND (t_dailyreport.WorkplanID = t_workplan.WorkplanID)"
                                  + " WHERE (((t_workplan.WorkplanID)='" + recordSet(1) + "') AND ((t_workplan.Empid)='" + EmpId + "') AND ((t_dailyreport.Reportday)='" + recordSet(12) + "'));";
                        SubrecordSet = database.Execute(mySubSql);
                        cellname[i] = row1.insertCell(i);
                        cellname[i].setAttribute("class", classname);
                        cellname[i].className = classname;
                        var WPMemo = SubrecordSet(1);
                        outhtml[i] = '<span id="' + classname + '-' + counter + '">' + WPMemo + '</span>';
                        cellname[i].innerHTML = outhtml[i];
                        SubrecordSet.Close();
                        SubrecordSet = null;
                    }
                }
                //1列ずれるので表示箇所を調整
                if (i >= 2) {
                    var k = i + 1;
                    cellname[k] = row1.insertCell(k);
                    cellname[k].setAttribute("class", classname);
                    cellname[k].className = classname;
                    outhtml[k] = '<span id="' + classname + '-' + counter + '">' + recordSet(i) + '</span>';
                    cellname[k].innerHTML = outhtml[k];
                }
            }
            recordSet.MoveNext();
            counter++;
        }
        recordSet.Close();
        recordSet = null;
    } catch(error) {
        alert(error.number + "\n" + error.description);
    }
}

//*
//*　登録されている担当者を表示する関数
//*
function EmpCdisplay(loginId) {
    var mySql = "SELECT * FROM m_Emp WHERE ( DeleteFlg Is Null) ORDER BY EmpID";
    var recordSet = database.Execute(mySql);
    document.getElementById("EmpID").innerHTML = "";
    var tempHtml = "担当者ID：　<select name=\"selectEmpId\" id=\"selectEmpId\">\n";
    tempHtml = tempHtml + "\t<option value=\"0\">選択してください。</option>\n";
    while (!recordSet.EOF) {
        var optionval = recordSet(0);
        //オプション値指定がある場合はそのオプションを選択状態にする。
        if (optionval == loginId) {
            tempHtml = tempHtml + '\t<option value="' + optionval + '" selected >' + recordSet(0) + "：" + recordSet(1) + '<\/option>\n';
        } else {
            tempHtml = tempHtml + '\t<option value="' + optionval + '"\">' + recordSet(0) + "：" + recordSet(1) + '<\/option>\n';
        }
        recordSet.MoveNext();
    }
    tempHtml = tempHtml + "</select>";
    document.getElementById("EmpID").innerHTML = tempHtml;
    selEmpid = document.getElementById("selectEmpId");
    selEmpid.onchange = function () {
        selectEmpIdCdchange(this);
    }
    recordSet.Close();
    recordSet = null;
}

//*
//*　社員選択時の動作
//*
function selectEmpIdCdchange(obj) {
    var workCd = obj.value;
    if (obj.selectedIndex == 0) {
        var selEmp = document.getElementById("EmpIDdisPlay");
        alert("担当者を選択してください。");
        selEmp.focus();
        return;
    } else {
        EmpCd = workCd;
    }
}


//*
//*  画面表示分ダウンロード
//*
function ViewDownload() {
    try {
       //テキストファイルをデスクトップに保存
       var fs = new ActiveXObject("Scripting.FileSystemObject");
       var outf = fs.CreateTextFile("download_Dailyview.csv", true);
       var tbl = document.getElementById("table1");
       // 行に対するループ
       var rows = tbl.rows;
       var outputFile = "";
       for (var i = 0, len = rows.length; i < len; i++) {
            var cols = rows[i].cells.length;
            var conmactl = cols - 1;
               // 列に対するループ
               for (var j=0; j<cols; j++) {
               var dlitem = rows[i].cells[j].innerText;
               outputFile = outputFile + "\"" + dlitem + "\"";
               if (j < conmactl) {
                   outputFile = outputFile + ","
               }
               if (j == conmactl) {
                   outputFile = outputFile + "\n";
               }
           }
       }
       outf.Write(outputFile);
   } catch (error) {
        alert(error.number + "\n" + error.description);
    } finally {
        alert("デスクトップにファイルを保存しました。");
        outf.Close();
    }
}

//*
//*  全件ダウンロード
//*
function AllDownload() {
    if (window.confirm('明細の全件データをダウンロードします。\nよろしいですか？')) {
        try {
            //テキストファイルをデスクトップに保存
            var fs = new ActiveXObject("Scripting.FileSystemObject");
            var outf = fs.CreateTextFile("download_DailyAll.csv", true);
            var outputFile = "";
            //作業計画登録なし
            var cWork = "－";
            //タイトル部分
            outputFile = outputFile + "\"" + "NO" + "\"" + ",";
            outputFile = outputFile + "\"" + "計画ID" + "\"" + ",";
            outputFile = outputFile + "\"" + "作業計画" + "\"" + ",";
            outputFile = outputFile + "\"" + "方針ID" + "\"" + ",";
            outputFile = outputFile + "\"" + "方針" + "\"" + ",";
            outputFile = outputFile + "\"" + "計画ID" + "\"" + ",";
            outputFile = outputFile + "\"" + "計画" + "\"" + ",";
            outputFile = outputFile + "\"" + "案件ID" + "\"" + ",";
            outputFile = outputFile + "\"" + "案件名" + "\"" + ",";
            outputFile = outputFile + "\"" + "作業ID" + "\"" + ",";
            outputFile = outputFile + "\"" + "作業名" + "\"" + ",";
            outputFile = outputFile + "\"" + "実績・補足" + "\"" + ",";
            outputFile = outputFile + "\"" + "関連資料" + "\"" + ",";
            outputFile = outputFile + "\"" + "作業日" + "\"" + ",";
            outputFile = outputFile + "\"" + "作業開始" + "\"" + ",";
            outputFile = outputFile + "\"" + "作業終了" + "\"" + ",";
            outputFile = outputFile + "\"" + "作業時間" + "\"" + ",";
            outputFile = outputFile + "\"" + "担当者CD" + "\"" + ",";
            outputFile = outputFile + "\"" + "担当者名" + "\"" + "\n";
            //実績部分
            var Reportday = document.getElementById('txtReportday').value;
            ChckDate(Reportday);
            var EmpId = EmpCd;
            var mySql = " SELECT t_dailyreport.ReportID, t_dailyreport.WorkplanID, m_Administration.AdministrationID, m_Administration.AdministrationDetail,"
                    + " m_ActionPlan.ActionplanID, m_ActionPlan.ActionPlan, m_Matter.MatterID, m_Matter.MatterName, m_Task.TaskID, m_Task.taskName,"
                    + " t_dailyreport.Dailymemo, t_dailyreport.Reference, t_dailyreport.Reportday, t_dailyreport.Taskstart, t_dailyreport.Taskend,"
                    + " t_dailyreport.Workinghours, m_Emp.Empid, m_Emp.Empname"
                    + " FROM m_Emp INNER JOIN ((t_dailyreport INNER JOIN (((m_Administration INNER JOIN m_ActionPlan ON m_Administration.AdministrationID = m_ActionPlan.AdministrationID)"
                    + " INNER JOIN m_Matter ON (m_Matter.AdministrationID = m_Administration.AdministrationID) AND (m_ActionPlan.ActionplanID = m_Matter.ActionplanID))"
                    + " INNER JOIN m_Businessyear ON m_Administration.Businessyear = m_Businessyear.BusinessYear) ON (t_dailyreport.MatterID = m_Matter.MatterID)"
                    + " AND (t_dailyreport.ActionplanID = m_ActionPlan.ActionplanID) AND (t_dailyreport.AdministrationID = m_Administration.AdministrationID))"
                    + " INNER JOIN m_Task ON t_dailyreport.TaskID = m_Task.TaskID) ON m_Emp.Empid = t_dailyreport.Empid"
                    + " WHERE (t_dailyreport.DeleteFlg='0') AND (m_Businessyear.ShowFlg='0') ORDER BY t_dailyreport.Reportday DESC,t_dailyreport.ReportID;";
            var recordSet = database.Execute(mySql);
            var counter = 1;
            while (!recordSet.EOF) {
                //実績明細
                for (var i = 0; i < 18; i++) {
                    //そのままレコード出力
                    if (i == 0 || i == 1) {
                        outputFile = outputFile + "\"" + recordSet(i) + "\"" + ",";
                    }
                    //作業計画
                    if (i == 2) {
                        var WPMemo = "";
                        if (recordSet(1) == cWork || recordSet(1) == null || recordSet(1) == undefined) {
                            outputFile = outputFile + "\"" + cWork + "\"" + ",";
                        } else {
                            mySubSql = " SELECT t_workplan.WorkplanID, t_workplan.Planmemo, t_workplan.Empid, t_workplan.PlanDate, t_dailyreport.Reportday "
                                  + " FROM t_dailyreport INNER JOIN t_workplan ON (t_dailyreport.MatterID = t_workplan.MatterID) AND (t_dailyreport.ActionplanID = t_workplan.ActionplanID)"
                                  + " AND (t_dailyreport.AdministrationID = t_workplan.AdministrationID) AND (t_dailyreport.WorkplanID = t_workplan.WorkplanID)"
                                  + " WHERE (((t_workplan.WorkplanID)='" + recordSet(1) + "') AND ((t_workplan.Empid)='" + EmpId + "') AND ((t_dailyreport.Reportday)='" + recordSet(12) + "'));";
                            SubrecordSet = database.Execute(mySubSql);
                            outputFile = outputFile + "\"" + SubrecordSet(1) + "\"" + ",";
                            SubrecordSet.Close();
                            SubrecordSet = null;
                        }
                    }
                    if (i >= 3) {
                        var k = i - 1;
                        outputFile = outputFile + "\"" + recordSet(k) + "\"" + ",";
                    }
                    //最終カラムの場合は改行
                    if (i == 17) {
                        outputFile = outputFile + "\"" + recordSet(i) + "\"" + "\n";
                    }
                }
                recordSet.MoveNext();
                counter++;
            }
            outf.Write(outputFile);
        } catch (error) {
            alert(error.number + "\n" + error.description);
        } finally {
            recordSet.Close();
            recordSet = null;
            alert("デスクトップにファイルを保存しました。");
            outf.Close();
        }
    } else {
        alert("ダウンロードをキャンセルしました。");
    }
}

//*
//* 実績日チェック
//*
function ChckDate(Reportday) {
    if (Reportday) {
    } else {
        txtReportday = document.getElementById("txtReportday");
        alert("実績日は必須です。");
        txtReportday.focus();
        return false;
    }
    return true;
}

//*
//* 担当者コードチェック
//*
function ChckEmp(Employ) {
    if (Employ) {
    } else {
        var selEmp = document.getElementById('selectEmpId');
            alert("担当者を選択してください。");
            selEmp.focus();
            return false;
    }
    return true;
}

//*
//* 案件の文字列分割用
//*
function StringSeparator(objString) {
    var sobj = objString;
    var separator = "-";
    var allayworkCd = sobj.split(separator);
    var robj = allayworkCd[1];
    return robj;
}

//*
//* テーブルの明細部分をクリアする。
//*
function TableClear() {
    var targetTable = document.getElementById('table1');
    var allCount = targetTable.rows.length;
    var headerCount = 1;
    var footerCount = 0;
    if (targetTable.tHead) {
        headerCount = targetTable.tHead.rows.length;
    }
    for (var i = headerCount; i < allCount; i++) {
        targetTable.deleteRow(headerCount);
    }
}

コメント

コメントを投稿

このブログの人気の投稿

証券外務員1種勉強(計算式暗記用メモ)

-
何を血迷ったのか 証券外務員 1種を受けてみようかと 思って 問題集 を回していたけれども、いまいち数式部分に 弱いところがあるので暗記してやろうと 重要そうな数式を集めてみました。まぁ正確性は低いかもしんないけど ひとまずは個人用でメモしています。 1.株式業務 (1) 権利落ち相場 　　権利落ち相場= 権利付相場 ÷ 分割比率 　(2)採算株価 　　採算株価=希望利回り÷1株当たり配当年額 　(3)1株当たりキャッシュフロー(PCFR) 　　 PCFR = 発行済株式総数 ÷( 税引後純利益 + 減価償却費 ) 　(4) イールドスプレッド 　　イールドスプレッド=長期債利回りー 株式益回り 　(5) EVITDA (金利・税金・償却前利益) 　　EVITDA=税引前利益+支払利息+減価償却費 　(6) EV (企業価値) 　　EV= 時価総額 + 有利子負債 ー 現金預金 ー 短期有価証券 　(7) EV/EVITDA倍率 (倍) 　　EV/EVITDA倍率=EV÷EVITDA 　◆株価成立参照 　　 https://www.rakuten-sec.co.jp/web/domestic/stock/rule/agreed.html 　　 http://money-magazine.org/%E6%A0%AA%E4%BE%A1%E3%81%AE%E6%B1%BA%E3%81%BE%E3%82%8A%E6%96%B9%E3%81%AE%E5%9F%BA%E7%A4%8E%E7%9F%A5%E8%AD%98/ 　　 https://kabusyo.com/keiken/q_baibai.html 　　 https://ja.wikipedia.org/wiki/%E6%A0%AA%E4%BE%A1 　　 http://kabukiso.com/basics/buy/ita.html 2.債券業務 (1) パリティ価格 (転換社債株式価値) 　　パリティ価格=(株価÷ 転換価格 )×100 　(2) 乖離率 (%) 　　乖離率={(転換社債の時価ーパリティ価格)÷パリティ価格}×100 　(3) 最終利回り (%) 　　最終利回り={利率+(償還価格ー購入価格)÷ 残存期間 ＜年＞)}÷購入価格×
続きを読む

GASでGoogleDriveのサブフォルダとファイル一覧を出力する

-
 タイトルのまんまです。 以前、EXCELで似たようなこと をしていたのでGASではどうするのかなぁと思ってやってみました。まぁほとんど丸パクリです。とりあえず、また使うかもしれないので自分用にメモです。しかしGASでGoogleDriveのファイル一覧嘗め回そうとすると3分かかってしまう。数が多いと6分制限に引っかかるのでこれでは使えない。せいぜい100ファイルとか数が少ないところで使う分にはいいけどダイナミックな場合は何回かに分割してやらないと少し厳しいかもしれない。 ◆GAS //設定値取得 const SHEET_URL = SpreadsheetApp.getActiveSpreadsheet().getUrl(); const ss = SpreadsheetApp.openByUrl(SHEET_URL); const SETTING_SHEET = ss.getSheetByName('設定') const TARGET_FOLDER_ID = SETTING_SHEET.getRange('B2').getValue(); const SAVE_FOLDER_ID = SETTING_SHEET.getRange('B3').getValue(); const SAVE_FILE_NAME = SETTING_SHEET.getRange('B4').getValue(); const SAVE_SHEET_NAME = SETTING_SHEET.getRange('B5').getValue(); function writeSheet(values, labels, sheetUrl, sheetname, width) { /* スプレッドシートに書き出し */ try { if (values.length > 0) { // シートを追加する let spreadSheet = SpreadsheetApp.openByUrl(sheetUrl); let sheet = set_sheet(sheetUrl,sheetname); // 1行目だけヘッダ追加 let he
続きを読む

マクロ経済学(IS-LM分析)

-
イメージ
危うく3日坊主になりそうでした。とりあえず今日は 「IS-LM分析」 です。 テキストでは 簡便4象限法 とかいうのの説明が多いです。なのでさっぱり わけわからん状態ですが、それなりに頑張ってみます。 1: IS曲線 の導出 財市場の均衡を表す。Iは投資を表し、Sは貯蓄を表す。 ・IS曲線導出の材料 I→利子率の関数、S→所得の関数で「I=S」で財市場を表す。 ・ 投資関数 利子率の減少関数、I (投資関数)=I(r)　※rは利子率 ・政府活動の導入 裁量的な拡張的な財政政策はIS曲線をシフトさせる。 IS曲線の右シフト=政府支出の増大や減税等の有効需要を増加させる要因による 2: LM曲線 の導出 利子率の低下が国民所得の増大につながる因果関係を明らかにする目的 ・LM曲線導出の材料 貨幣需要(MD)=L、L=取引的動機+予備的動機(L1)+投機的動機(L2) MD=L1+L2 貨幣供給(Ms)=名目貨幣供給/物価(P) ・LM曲線のシフト 金融緩和策・物価下落：実質貨幣供給(MS)が増大→右(下)へシフト 金融引締策・物価上昇：実質貨幣供給(MS)が減少→左(上)へシフト 独立投資拡大→IS曲線が右にシフト 利子率がr1→r2に下落する。 IS曲線、LM曲線の均衡点がE→Fに移動する。 国民所得がY1→Yfとなって増大する。 3:特殊なLM曲線 ・ 流動性の罠 のLM曲線 金融政策は無効→LM曲線をシフトさせても均衡点Eは変わらない IS曲線を右にシフトさせる拡張的な財政政策を実施すると均衡点が E→E´となり国民所得がY1→Y2に増加するので財政政策は有効となる。　　　 ・ 投資の利子率に対する弾力性ゼロ 金融政策は無効→LM曲線を右にシフトさせても国民所得が増えない。 流動性の罠と同じくIS曲線を右にシフトさせる拡張的な財政政策を実施すると 均衡点がE→E´となり国民所得がY1→Y2に増加するので財政政策は有効となる。　　　　　　 4: クラウディング・アウト 政府が市場に介入して公共投資を行うと民間の投資が締出しを受ける ・古典派による財政政策の無効論 政府支出を拡大すると利子率が上昇してしまい。投資が減少する。 政府の支出がクラウディングアウトを引き起こして支
続きを読む