YNU_JEUS/app_home/himed/xpapps/pam/planteamstatsxp/xp/SMPAS01130_미수금(환자)명세서.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml" />
  <Form id="SMPAS01130" position="absolute 0 0 1211 784" titletext="미수금(환자)명세서" onload="SMPAS01130_onload">
    <Layouts>
      <Layout>
        <Div id="group3" position="absolute 0 0 1211 13" style="">
          <Layouts>
            <Layout>
              <Static id="caption60" class="tit_1" position="absolute 0 0 193 14" style="font:돋움,,돋움;align: middle;" text="미수금(환자)명세서" />
            </Layout>
          </Layouts>
        </Div>
        <Div id="group2" position="absolute 4 22 1207 57" style="">
          <Layouts>
            <Layout>
              <Shape id="roundrect1" anchor="default" class="roundrect_search" type="roundrectangle" position="absolute 0 0 1202 35" style="border: solid #ffd799 #ffd799;background:#fffbf2  ;" />
              <Static id="caption2" class="search_name" position="absolute 15 9 236 26" style="" text="적용기간                           ~" />
              <Shape id="line2" class="line_4" linetype="vertical" position="absolute 1132 7 1135 29" style="border: solid #ffe4bb #ffe4bb;" anchor="default" />
              <Button id="btn_search" class="btn1_letter2" position="absolute 1139 7 1195 29" style="" text="조회" onclick="group2_btn_search_onclick" />
              <Calendar id="input7" class="input_default" taborder="7" position="absolute 98 8 218 27" style="" anchor="default" onkeydown="group2_input7_onkeydown" />
              <Calendar id="input1" class="input_default" taborder="7" position="absolute 243 8 363 27" style="" anchor="default" onkeydown="group2_input1_onkeydown" />
              <Combo datacolumn="datacolumn" codecolumn="codecolumn" columncount="-1" rowcount="-1" id="combo1" position="absolute 475 8 575 27" style="">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" />
                    <Column id="datacolumn" />
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">O</Col>
                      <Col id="datacolumn">외래</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">I</Col>
                      <Col id="datacolumn">입원</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Combo innerdataset="ds_init_uncocd" datacolumn="cdnm" codecolumn="cdid" columncount="-1" rowcount="-1" id="combo2" position="absolute 660 8 875 27" style="" />
              <Static id="caption9" position="absolute 625 11 655 24" style="font:,,bold;" text="계정" />
              <Static id="caption1" position="absolute 410 11 464 25" style="font:,,bold;" text="진료형태" />
            </Layout>
          </Layouts>
        </Div>
        <Grid id="datagrid1" binddataset="ds_main_uncolist" position="absolute 5 67 1203 748" style="">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="150" />
                <Column size="139" />
                <Column size="142" />
                <Column size="145" />
                <Column size="150" />
                <Column size="150" />
                <Column size="89" />
                <Column size="186" />
              </Columns>
              <Rows>
                <Row size="24" band="head" />
                <Row size="24" />
              </Rows>
              <Band id="head">
                <Cell text="등록번호" />
                <Cell col="1" text="이름" />
                <Cell col="2" text="전월미수금" />
                <Cell col="3" text="증가의료미수금" />
                <Cell col="4" text="감소의료미수금" />
                <Cell col="5" text="미수잔액" />
                <Cell col="6" text="계정" />
                <Cell col="7" text="계정명" />
                <Cell col="8" text="" />
              </Band>
              <Band id="body">
                <Cell text="bind:pid" />
                <Cell col="1" text="bind:hngnm" />
                <Cell col="2" text="bind:befamt" />
                <Cell col="3" text="bind:incamt" />
                <Cell col="4" text="bind:decamt" />
                <Cell col="5" text="bind:restamt" />
                <Cell col="6" text="bind:uncocd" />
                <Cell col="7" text="bind:unconm" />
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button95" class="btn6_letter4" visible="true" position="absolute 977 29 1057 51" style="" text="액셀저장" onclick="button95_onclick" />
        <Button id="btn_print" class="btn6_letter2" position="absolute 1069 29 1125 51" style="" text="출력" onclick="btn_print_onclick" />
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256" />
          <Column id="todd" type="STRING" size="256" />
          <Column id="ordtype" type="STRING" size="256" />
          <Column id="uncocd" type="STRING" size="256" />
          <Column id="offset" type="STRING" size="256" />
          <Column id="pagesize" type="STRING" size="256" />
          <Column id="befodt" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="fromdd"></Col>
            <Col id="todd"></Col>
            <Col id="ordtype">O</Col>
            <Col id="uncocd">%</Col>
            <Col id="offset"></Col>
            <Col id="pagesize">200</Col>
            <Col id="befodt"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
      <Dataset id="ds_main_uncolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" />
          <Column id="hngnm" type="STRING" size="256" />
          <Column id="befamt" type="STRING" size="256" />
          <Column id="incamt" type="STRING" size="256" />
          <Column id="decamt" type="STRING" size="256" />
          <Column id="restamt" type="STRING" size="256" />
          <Column id="uncocd" type="STRING" size="256" />
          <Column id="unconm" type="STRING" size="256" />
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"></Col>
            <Col id="hngnm"></Col>
            <Col id="befamt"></Col>
            <Col id="incamt"></Col>
            <Col id="decamt"></Col>
            <Col id="restamt"></Col>
            <Col id="uncocd"></Col>
            <Col id="unconm"></Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_uncocd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="cdnm" type="STRING" size="256" />
          <Column id="cdid" type="STRING" size="256" />
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo />
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.input7" propid="value" datasetid="ds_send" columnid="fromdd" />
      <BindItem id="item1" compid="group2.input1" propid="value" datasetid="ds_send" columnid="todd" />
      <BindItem id="item2" compid="group2.combo1" propid="value" datasetid="ds_send" columnid="ordtype" />
      <BindItem id="item3" compid="group2.combo2" propid="value" datasetid="ds_send" columnid="uncocd" />
    </Bind>
    <Script type="xscript4.0"><![CDATA[function SMPAS01130_onload(obj:Form, e:LoadEventInfo) {

				var vToday = new Date();
				var tmpYear = vToday.getYear();
				var tmpMonth = vToday.getMonth()+1;
				var tmpDate = vToday.getDate();

				if (tmpMonth < 10) { tmpMonth = "0"+tmpMonth; }
				if (tmpDate < 10) { tmpDate = "0"+tmpDate; }
				ds_send.setColumn( 0, "fromdd", tmpYear+""+tmpMonth+""+tmpDate);
				ds_send.setColumn( 0, "todd", tmpYear+""+tmpMonth+""+tmpDate);

				var	beforeDate = ds_send.getColumn(0, "fromdd").toDate().getAddDate(-1, 'D');
				beforeDate = beforeDate.getDateFormat("YYYYMMDD");
				ds_send.setColumn( 0, "befodt", beforeDate);

//model.refresh();

//group2.input7.refresh();

//group2.input1.refresh();

				datagrid1.explorerbar = "sort";

//				if (!submit("TRPAS01132")) {
var oParam = {};
    oParam.id          = "TRPAS01132";
    oParam.service     = "planteamstatsapp.planTeamOrdStats";
    oParam.method      = "reqGetUncoCdList";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=uncocd";
    oParam.async       = false;
    oParam.callback    = "cf_TRPAS01132";

tranf_submit(oParam);
/*
function cf_TRPAS01132(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPAS01132(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPAS01132") > -1
arErrorCode.pop("TRPAS01132") < 0
*/


					sysf_messageBox("계정코드 조회 중 오류..!", "E999");
				}

}

include '../../.._com_commonweb_js_common.js'
include '../../.._com_commonweb_js_utilHelper.js'
include '../../.._com_commonweb_js_tfHelper.js'
include '../../.._com_commonweb_js_dateHelper.js'
include '../../.._com_commonweb_js_numericHelper.js'
include '../../.._com_commonweb_js_stringHelper.js'
include '../../.._com_basiccodeweb_js_ZBC001.js'
include '../../.._com_zipcodeweb_js_ZBP001.js'

function group2_btn_search_onclick(obj:Button, e:ClickEventInfo) {

						var	beforeDate = ds_send.getColumn(0, "fromdd").toDate().getAddDate(-1, 'D');
						beforeDate = beforeDate.getDateFormat("YYYYMMDD");
						ds_send.setColumn( 0, "befodt", beforeDate);

//model.refresh();

//						 submit("TRPAS01131");				
var oParam = {};
    oParam.id          = "TRPAS01131";
    oParam.service     = "planteamstatsapp.planTeamOrdStats";
    oParam.method      = "reqGetUncoList";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=uncolist";
    oParam.async       = false;
    oParam.callback    = "cf_TRPAS01131";

tranf_submit(oParam);
/*
function cf_TRPAS01131(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPAS01131(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPAS01131") > -1
arErrorCode.pop("TRPAS01131") < 0
*/



}

function group2_input7_onkeydown(obj:Calendar, e:KeyEventInfo) {

								if( event.keyCode == 13 ) {

									var pCurTargetObj = event.ptarget.parent;

									if( pCurTargetObj.elementName == "xforms:select1" || pCurTargetObj.elementName == "xforms:select") {
										event.keyCode = 9;
										pCurTargetObj.dispatch("onkeydown");
									}
									else {

										event.keyCode = 9;	
									}
								}
								event.stopPropagation();							

}

function group2_input1_onkeydown(obj:Calendar, e:KeyEventInfo) {

								if( event.keyCode == 13 ) {

									var pCurTargetObj = event.ptarget.parent;

									if( pCurTargetObj.elementName == "xforms:select1" || pCurTargetObj.elementName == "xforms:select") {
										event.keyCode = 9;
										pCurTargetObj.dispatch("onkeydown");
									}
									else {

										event.keyCode = 9;	
									}
								}
								event.stopPropagation();							

}

function button95_onclick(obj:Button, e:ClickEventInfo) {

					var vToday = new Date();
					var tmpYear = vToday.getYear();
					var tmpMonth = vToday.getMonth()+1;
					var tmpDate = vToday.getDate();

					//엑셀저장 여부(타이트별)
					var fileName = window.fileDialog("save", ",", false, "미수금(환자)명세서"+tmpYear+tmpMonth+tmpDate, "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");

						if (fileName != "")
						{
							datagrid1.saveExcel(fileName, "미수금(환자)명세서"+tmpYear+tmpMonth+tmpDate, true, true, "", "", true);
						}

}

function btn_print_onclick(obj:Button, e:ClickEventInfo) {
    var objDOM = rptf_createDOM();
    var objParam = new Object();
    rptf_setNodeListToDOM(objDOM, "/root/XXX" , ds_XXX);
    objParam.xml_data_XML1 	= objDOM.documentElement.source;
    var option = "open=1;save=1;directprint=0;printdialog=1;print=1;zoom=0";
    rptf_exeReportPreview30(["RPPAS00139"],[objParam], option);	

}

]]></Script>
  </Form>
</FDL>