SPADB62900_물류정보갱신.xfdl 29 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SPADB62900" position="absolute 0 0 966 471" titletext="물류정보갱신" oninit="SPADB62900_oninit" onload="SPADB62900_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 34 965 434" id="grp_biz" scrollbars="autoboth">
  8. <Layouts>
  9. <Layout>
  10. <Shape position="absolute 0 35 965 41" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;"/>
  11. <Static text="물류정보갱신" position="absolute 1 19 101 38" id="caption1" class="tit_2"/>
  12. <Button position="absolute 900 16 964 35" id="btn_excsave" class="btn2" text="엑셀저장" onclick="grp_biz_btn_excsave_onclick"/>
  13. <Grid position="absolute 0 40 965 400" id="grd_goodlist" scrollbars="autoboth" binddataset="ds_grd_goodlist" cellsizingtype="col">
  14. <Formats>
  15. <Format id="default">
  16. <Columns>
  17. <Column size="0" band="left"/>
  18. <Column size="24" band="left"/>
  19. <Column size="0" band="left"/>
  20. <Column size="0" band="left"/>
  21. <Column size="100" band="left"/>
  22. <Column size="0" band="left"/>
  23. <Column size="100" band="left"/>
  24. <Column size="100" band="left"/>
  25. <Column size="100" band="left"/>
  26. <Column size="100"/>
  27. <Column size="80"/>
  28. <Column size="150"/>
  29. <Column size="165"/>
  30. <Column size="150"/>
  31. <Column size="0"/>
  32. <Column size="60"/>
  33. <Column size="0"/>
  34. <Column size="130"/>
  35. <Column size="0"/>
  36. <Column size="150"/>
  37. <Column size="0"/>
  38. <Column size="200"/>
  39. <Column size="35"/>
  40. <Column size="35"/>
  41. <Column size="35"/>
  42. <Column size="35"/>
  43. <Column size="35"/>
  44. <Column size="35"/>
  45. <Column size="0"/>
  46. <Column size="70"/>
  47. <Column size="0"/>
  48. <Column size="70"/>
  49. <Column size="200"/>
  50. <Column size="0"/>
  51. <Column size="0"/>
  52. <Column size="0"/>
  53. <Column size="0"/>
  54. <Column size="75"/>
  55. <Column size="100"/>
  56. <Column size="100"/>
  57. </Columns>
  58. <Rows>
  59. <Row size="36" band="head"/>
  60. <Row size="24"/>
  61. </Rows>
  62. <Band id="head">
  63. <Cell text="인터페이스 id"/>
  64. <Cell col="1"/>
  65. <Cell col="2" text="구분코드"/>
  66. <Cell col="3" text="구분"/>
  67. <Cell col="4" text="적용일자"/>
  68. <Cell col="5" text="물류적용일자"/>
  69. <Cell col="6" text="약품코드"/>
  70. <Cell col="7" text="중복제외&#10;대표코드"/>
  71. <Cell col="8" text="마지막수정부서"/>
  72. <Cell col="9" text="구코드"/>
  73. <Cell col="10" text="EDI코드"/>
  74. <Cell col="11" text="한글명"/>
  75. <Cell col="12" text="영문명"/>
  76. <Cell col="13" text="성분명"/>
  77. <Cell col="14" text="대분류코드"/>
  78. <Cell col="15" text="대분류"/>
  79. <Cell col="16" text="중분류코드"/>
  80. <Cell col="17" text="중분류"/>
  81. <Cell col="18" text="소분류코드"/>
  82. <Cell col="19" text="소분류"/>
  83. <Cell col="20" text="welfprt"/>
  84. <Cell col="21" text="복지부분류"/>
  85. <Cell col="22" text="처방수량" wordwrap="char"/>
  86. <Cell col="23" text="처방단위" wordwrap="char"/>
  87. <Cell col="24" text="함량용량" wordwrap="char"/>
  88. <Cell col="25" text="함량단위" wordwrap="char"/>
  89. <Cell col="26" text="병원용량" wordwrap="char"/>
  90. <Cell col="27" text="병원단위" wordwrap="char"/>
  91. <Cell col="28" text="gnrlspcl"/>
  92. <Cell col="29" text="일반/전문"/>
  93. <Cell col="30" text="keepmthd"/>
  94. <Cell col="31" text="실제보관법"/>
  95. <Cell col="32" text="허가보관방법"/>
  96. <Cell col="33" text="불용일"/>
  97. <Cell col="34" text="drugtoddhis"/>
  98. <Cell col="35" text="ifstatus"/>
  99. <Cell col="36" text="수가계산방법"/>
  100. <Cell col="37" text="그룹여부(G:그룹 S:싱글)" wordwrap="char"/>
  101. <Cell col="38" text="마지막수정자"/>
  102. <Cell col="39"/>
  103. </Band>
  104. <Band id="body">
  105. <Cell text="bind:ifid"/>
  106. <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:sel" expr="expr:(sel==&quot;Y&quot;||sel==1)?1:0"/>
  107. <Cell col="2" text="bind:chggubn"/>
  108. <Cell col="3" text="bind:chggubnnm"/>
  109. <Cell col="4" displaytype="date" edittype="date" text="bind:drugfromdd"/>
  110. <Cell col="5" displaytype="date" edittype="date" text="bind:condd" mask="yyyy-mm-dd"/>
  111. <Cell col="6" style="align:left;padding:0 5 0 5;" text="bind:goodcd" wordwrap="char"/>
  112. <Cell col="7" style="align:left;padding:0 5 0 5;" text="bind:dupexpgoodcd" wordwrap="char"/>
  113. <Cell col="8" style="align:center;padding:0 5 0 5;" text="bind:deptnm" wordwrap="char"/>
  114. <Cell col="9" style="align:left;padding:0 5 0 5;" text="bind:oldcd" wordwrap="char"/>
  115. <Cell col="10" style="align:center;padding:0 5 0 5;" text="bind:edicd" wordwrap="char"/>
  116. <Cell col="11" style="align:left;padding:0 5 0 5;" text="bind:hngnm" wordwrap="char"/>
  117. <Cell col="12" style="align:left;padding:0 5 0 5;" text="bind:goodengnm" wordwrap="char"/>
  118. <Cell col="13" style="align:left;padding:0 5 0 5;" text="bind:comnm" wordwrap="char"/>
  119. <Cell col="14" text="bind:lrgcd" wordwrap="char"/>
  120. <Cell col="15" style="align:center;padding:0 5 0 5;" text="bind:lrgnm" wordwrap="char"/>
  121. <Cell col="16" text="bind:mdlcd" wordwrap="char"/>
  122. <Cell col="17" style="align:left;padding:0 5 0 5;" text="bind:mdlnm" wordwrap="char"/>
  123. <Cell col="18" text="bind:smlcd" wordwrap="char"/>
  124. <Cell col="19" style="align:left;padding:0 5 0 5;" text="bind:smlnm" wordwrap="char"/>
  125. <Cell col="20" text="bind:welfprt" wordwrap="char"/>
  126. <Cell col="21" style="align:left;padding:0 5 0 5;" text="bind:welfprtnm" wordwrap="char"/>
  127. <Cell col="22" style="align:right;padding:0 5 0 5;" text="bind:prcpqty" wordwrap="char"/>
  128. <Cell col="23" style="align:left;padding:0 5 0 5;" text="bind:prcpunit" wordwrap="char"/>
  129. <Cell col="24" style="align:right;padding:0 5 0 5;" text="bind:cntsqty" wordwrap="char"/>
  130. <Cell col="25" style="align:left;padding:0 5 0 5;" text="bind:cntsunit" wordwrap="char"/>
  131. <Cell col="26" style="align:right;padding:0 5 0 5;" text="bind:hospdrguvol" wordwrap="char"/>
  132. <Cell col="27" style="align:left;padding:0 5 0 5;" text="bind:hospdrguunit" wordwrap="char"/>
  133. <Cell col="28" text="bind:gnrlspcl" wordwrap="char"/>
  134. <Cell col="29" style="align:center;padding:0 5 0 5;" text="bind:gnrlspclnm" wordwrap="char"/>
  135. <Cell col="30" text="bind:keepmthd" wordwrap="char"/>
  136. <Cell col="31" style="align:center;padding:0 5 0 5;" text="bind:keepmthdnm" wordwrap="char"/>
  137. <Cell col="32" style="align:left;padding:0 5 0 5;" text="bind:pemtkeepmthd" wordwrap="char"/>
  138. <Cell col="33" text="bind:todd" wordwrap="char"/>
  139. <Cell col="34" text="bind:drugtoddhis" wordwrap="char"/>
  140. <Cell col="35" text="bind:ifstatus" wordwrap="char"/>
  141. <Cell col="36" text="bind:shadelight" wordwrap="char"/>
  142. <Cell col="37" displaytype="combo" edittype="none" style="align:left;padding:0 5 0 5;" text="bind:calcmthdcd" wordwrap="char" combodataset="ds_P0133" combocodecol="cdid" combodatacol="cdnm" enable="false"/>
  143. <Cell col="38" style="align:center;padding:0 5 0 5;" text="bind:usernm" wordwrap="char"/>
  144. <Cell col="39" style="align:left;padding:0 5 0 5;" text="bind:grupsnglflag"/>
  145. </Band>
  146. </Format>
  147. </Formats>
  148. </Grid>
  149. <Button position="absolute 840 16 893 35" id="btn_grddel" class="btn2" taborder="7" visible="false" text="행삭제" onclick="grp_biz_btn_grddel_onclick"/>
  150. </Layout>
  151. </Layouts>
  152. </Div>
  153. <Div position="absolute 0 434 965 464" id="grp_btn" scrollbars="autoboth">
  154. <Layouts>
  155. <Layout>
  156. <Shape position="absolute 0 -1 965 5" linetype="horizontal" id="line32" class="line_6"/>
  157. <Button position="absolute 848 8 904 30" id="btn_insert" class="btn4" text="등록" onclick="grp_btn_btn_insert_onclick"/>
  158. <Button position="absolute 909 7 965 29" id="btn_close" class="btn4" text="닫기" onclick="grp_btn_btn_close_onclick"/>
  159. <Button position="absolute 0 8 56 30" id="btn_delete" class="btn4" text="삭제" onclick="grp_btn_btn_delete_onclick"/>
  160. <Static text="* 등록하면 임시저장 상태이므로 약품정보관리 화면에서 개별약품의 확정저장을 반드시 하십시요." position="absolute 265 5 845 30" id="caption5" style="color:red;"/>
  161. </Layout>
  162. </Layouts>
  163. </Div>
  164. <Div id="group2" taborder="1" style="align:center top;" class="div_SA2" position="absolute 0 0 965 39">
  165. <Layouts>
  166. <Layout>
  167. <Static id="caption2" text="검색구간 :" class="search_name" position="absolute 6 12 101 29" anchor="default"/>
  168. <Calendar id="ipt_fromdd" taborder="1" class="input_search" position="absolute 95 11 195 30" anchor="default"/>
  169. <Calendar id="ipt_todd" taborder="2" class="input_search" position="absolute 200 11 300 30" anchor="default"/>
  170. <Static id="caption3" text="약품코드 :" class="search_name" position="absolute 315 12 405 29" anchor="default"/>
  171. <Edit id="ipt_goodcd" taborder="3" class="input_search" position="absolute 405 11 505 30" anchor="default"/>
  172. <Static id="caption4" text="구 분 1 :" class="search_name" visible="false" position="absolute 525 12 620 29" anchor="default"/>
  173. <Radio id="rdo_chggubn" taborder="4" columncount="3" rowcount="1" codecolumn="codecolumn" datacolumn="datacolumn" visible="false" position="absolute 615 12 755 28" anchor="default">
  174. <Dataset id="innerdataset">
  175. <ColumnInfo>
  176. <Column id="codecolumn"/>
  177. <Column id="datacolumn"/>
  178. </ColumnInfo>
  179. <Rows>
  180. <Row>
  181. <Col id="codecolumn">A</Col>
  182. <Col id="datacolumn">전체</Col>
  183. </Row>
  184. <Row>
  185. <Col id="codecolumn">I</Col>
  186. <Col id="datacolumn">신규</Col>
  187. </Row>
  188. <Row>
  189. <Col id="codecolumn">U</Col>
  190. <Col id="datacolumn">변경</Col>
  191. </Row>
  192. </Rows>
  193. </Dataset>
  194. </Radio>
  195. <Button id="btn_sea" taborder="5" text="조회" class="btn1" position="absolute 895 9 951 31" anchor="default" onclick="group2_btn_sea_onclick"/>
  196. </Layout>
  197. </Layouts>
  198. </Div>
  199. </Layout>
  200. </Layouts>
  201. <Objects>
  202. <Dataset id="ds_grd_goodlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_goodlist_oncolumnchanged">
  203. <ColumnInfo>
  204. <Column id="ifid" type="STRING"/>
  205. <Column id="sel" type="STRING"/>
  206. <Column id="chggubn" type="STRING"/>
  207. <Column id="chggubnnm" type="STRING"/>
  208. <Column id="drugfromdd" type="STRING"/>
  209. <Column id="condd" type="STRING"/>
  210. <Column id="goodcd" type="STRING"/>
  211. <Column id="dupexpgoodcd" type="STRING"/>
  212. <Column id="deptnm" type="STRING"/>
  213. <Column id="oldcd" type="STRING"/>
  214. <Column id="edicd" type="STRING"/>
  215. <Column id="hngnm" type="STRING"/>
  216. <Column id="goodengnm" type="STRING"/>
  217. <Column id="comnm" type="STRING"/>
  218. <Column id="lrgcd" type="STRING"/>
  219. <Column id="lrgnm" type="STRING"/>
  220. <Column id="mdlcd" type="STRING"/>
  221. <Column id="mdlnm" type="STRING"/>
  222. <Column id="smlcd" type="STRING"/>
  223. <Column id="smlnm" type="STRING"/>
  224. <Column id="welfprt" type="STRING"/>
  225. <Column id="welfprtnm" type="STRING"/>
  226. <Column id="prcpqty" type="STRING"/>
  227. <Column id="prcpunit" type="STRING"/>
  228. <Column id="cntsqty" type="STRING"/>
  229. <Column id="cntsunit" type="STRING"/>
  230. <Column id="hospdrguvol" type="STRING"/>
  231. <Column id="hospdrguunit" type="STRING"/>
  232. <Column id="gnrlspcl" type="STRING"/>
  233. <Column id="gnrlspclnm" type="STRING"/>
  234. <Column id="keepmthd" type="STRING"/>
  235. <Column id="keepmthdnm" type="STRING"/>
  236. <Column id="pemtkeepmthd" type="STRING"/>
  237. <Column id="todd" type="STRING"/>
  238. <Column id="drugtoddhis" type="STRING"/>
  239. <Column id="ifstatus" type="STRING"/>
  240. <Column id="shadelight" type="STRING"/>
  241. <Column id="calcmthdcd" type="STRING"/>
  242. <Column id="usernm" type="STRING"/>
  243. <Column id="grupsnglflag" type="STRING"/>
  244. </ColumnInfo>
  245. <Rows>
  246. <Row/>
  247. </Rows>
  248. </Dataset>
  249. <Dataset id="ds_send_srchinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  250. <ColumnInfo>
  251. <Column id="fromdd" type="STRING" size="256"/>
  252. <Column id="todd" type="STRING" size="256"/>
  253. <Column id="goodcd" type="STRING" size="256"/>
  254. <Column id="chggubn" type="STRING" size="256"/>
  255. </ColumnInfo>
  256. <Rows>
  257. <Row/>
  258. </Rows>
  259. </Dataset>
  260. <Dataset id="ds_P0133" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
  261. <ColumnInfo>
  262. <Column id="cdid" type="STRING" size="256"/>
  263. <Column id="cdnm" type="STRING" size="256"/>
  264. </ColumnInfo>
  265. </Dataset>
  266. <Dataset id="ds_temp_goodlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  267. <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  268. </Objects>
  269. <Bind>
  270. <BindItem id="item0" compid="group2.ipt_fromdd" propid="value" datasetid="ds_send_srchinfo" columnid="fromdd"/>
  271. <BindItem id="item1" compid="group2.ipt_todd" propid="value" datasetid="ds_send_srchinfo" columnid="todd"/>
  272. <BindItem id="item2" compid="group2.ipt_goodcd" propid="value" datasetid="ds_send_srchinfo" columnid="goodcd"/>
  273. <BindItem id="item3" compid="group2.rdo_chggubn" propid="value" datasetid="ds_send_srchinfo" columnid="chggubn"/>
  274. </Bind>
  275. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  276. * System Name :
  277. * Job Name :
  278. * Creator :
  279. * Make Date : 2015-11-05
  280. * Description :
  281. *---------------------------------------------------------------------------------------
  282. * Modify Date Modifier Modify Description
  283. *---------------------------------------------------------------------------------------
  284. * 2015-11-05 Live Converter TF->XP
  285. *
  286. *---------------------------------------------------------------------------------------
  287. ****************************************************************************************/
  288. include "com_commonxp::comm_main.xjs";
  289. var arErrorCode = new HashArray();
  290. /******************************************************************
  291. * Argument :
  292. * Description : 초기화
  293. ******************************************************************/
  294. function SPADB62900_oninit(obj:Form, e:InitEventInfo)
  295. {
  296. frmf_initForm(obj);
  297. }
  298. function SPADB62900_onload(obj:Form, e:LoadEventInfo)
  299. {
  300. //상태정보 설정
  301. //grdf_setRowTypeIcon(group3.grd_datagrid1, 0);
  302. //2010-03-12 물류갱신정보 속도개선 (MIS interface데이타을 전체가 아닌 구간별일자(일주일)를 가져오도록처리)
  303. var getDate = utlf_getCurrentDate();
  304. var frDate = getDate.toDate().getAddDate(-7).getDateFormat();
  305. ds_send_srchinfo.setColumn(0, "fromdd" , frDate);
  306. ds_send_srchinfo.setColumn(0, "todd" , getDate);
  307. //공통코드호출
  308. appf_getCodeList( [{dsNm: "ds_P0133", cdGrpId: "P0133"}], true );
  309. // grd_data.rowHeight(0) = 50;
  310. // grd_data.fixedcellcheckbox(0,1) = true;
  311. ds_send_srchinfo.setColumn(0, "chggubn", "A");
  312. //물류정보 List 조회
  313. fGetGoodList();
  314. }
  315. /******************************************************************
  316. * Argument :
  317. * Description : 조회 Button Event
  318. ******************************************************************/
  319. function group2_btn_sea_onclick(obj:Button, e:ClickEventInfo)
  320. {
  321. //검색구간 필수 입력 check
  322. var getFormdd = ds_send_srchinfo.getColumn(0, "fromdd");
  323. var getTodd = ds_send_srchinfo.getColumn(0, "fromdd");
  324. if( utlf_isNull(getFormdd) ){
  325. sysf_messageBox("검색구간 시작일을 입력하지","E007");
  326. group2.ipt_fromdd.onsetfocus();
  327. return;
  328. }
  329. if( utlf_isNull(getTodd) ){
  330. sysf_messageBox("검색구간 마지막일을 입력하지","E007");
  331. group2.ipt_todd.onsetfocus();
  332. return;
  333. }
  334. //물류정보 List 조회
  335. fGetGoodList();
  336. }
  337. /******************************************************************
  338. * Argument :
  339. * Description : 물류정보 List 조회
  340. ******************************************************************/
  341. function fGetGoodList(){
  342. var oParam = {};
  343. oParam.id = "TRADB62901";
  344. oParam.service = "pharmacybaseapp.MisDrugMngt";
  345. oParam.method = "reqGetMisGoodList";
  346. oParam.inds = "req=ds_send_srchinfo";
  347. oParam.outds = "ds_grd_goodlist=goodlist";
  348. oParam.async = false;
  349. oParam.callback = "cf_TRADB62901";
  350. tranf_submit(oParam);
  351. // 현재일자로 적용일자 설정.
  352. // 이력변경 사항 설정을 위해 drugtoddhis를 현재일자 하루 전으로 설정
  353. /*
  354. gv_fromdd = getCurrentDate();
  355. var initFromdd = gv_fromdd;
  356. var initToddHis = initFromdd.toDate("YYYYMMDD"); // 문자형을 date 타입으로 변환 *getAddDate가 date타입만을 취급..
  357. initToddHis = initToddHis.getAddDate(-1).getDateFormat(); // 특정일의 상대일자를 구함
  358. */
  359. var lrgcd = "";
  360. var mdlcd = "";
  361. var smlcd = "";
  362. for( var i = 0; i < ds_grd_goodlist.rowcount; i++ ){
  363. var getFromdd = ds_grd_goodlist.getColumn(i, "condd");
  364. var initFromdd = getFromdd;
  365. var initToddHis = initFromdd.toDate("YYYYMMDD"); // 문자형을 date 타입으로 변환 *getAddDate가 date타입만을 취급..
  366. initToddHis = initToddHis.getAddDate(-1).getDateFormat(); // 특정일의 상대일자를 구함
  367. ds_grd_goodlist.setColumn(i, "drugfromdd", initFromdd);
  368. ds_grd_goodlist.setColumn(i, "drugtoddhis", initToddHis);
  369. lrgcd = ds_grd_goodlist.getColumn(i, "lrgcd");
  370. mdlcd = ds_grd_goodlist.getColumn(i, "mdlcd");
  371. smlcd = ds_grd_goodlist.getColumn(i, "smlcd");
  372. // RSCDGIUD와 ADBMDRUG의 대분류,중분류,소분류 코드 형식의 동기화.
  373. if( utlf_isSearchString(lrgcd, 0) != true ){
  374. ds_grd_goodlist.setColumn(i, "lrgcd", "0"+lrgcd);
  375. } else if( utlf_isSearchString(mdlcd, 0) != true ){
  376. ds_grd_goodlist.setColumn(i, "mdlcd", "0"+mdlcd);
  377. } else if( utlf_isSearchString(smlcd, 0) != true ){
  378. ds_grd_goodlist.setColumn(i, "smlcd", "0"+smlcd);
  379. }
  380. }
  381. }
  382. function cf_TRADB62901(sSvcId, nErrorCode, sErrorMsg) {
  383. if(nErrorCode < 0) return;
  384. fMakeCopyColumn(ds_grd_goodlist,"condd","drugfromdd");
  385. ds_grd_goodlist.updateColID("goodnm","hngnm");
  386. dsf_setDefaultVal(ds_grd_goodlist, "drugfromdd:'',drugtoddhis:'',ifstatus:'',goodengnm:'',hospdrguvol:'',hospdrguunit:'',calcmthdcd:'',grupsnglflag:'',dupexpgoodcd:-,sel:N");
  387. }
  388. function fMakeCopyColumn(objDs,sColSrc,sColTgt) {
  389. if(utlf_isNull(objDs.getColumnInfo(sColTgt))) objDs.addColumn(sColTgt,"string");
  390. for(var i = 0 ; i < objDs.rowcount ; i++) {
  391. objDs.setColumn(i,sColTgt,objDs.getColumn(i,sColSrc));
  392. }
  393. }
  394. /******************************************************************
  395. * Argument :
  396. * Description : 행삭제
  397. ******************************************************************/
  398. function grp_biz_btn_grddel_onclick(obj:Button, e:ClickEventInfo)
  399. {
  400. ds_temp_goodlist.clear();
  401. ds_temp_goodlist.copyData(ds_grd_goodlist);
  402. ds_temp_goodlist.filter("sel=='1'");
  403. if( ds_temp_goodlist.rowcount <= 0 ){
  404. sysf_messageBox("선택된 물류정보가 없습니다.", "I");
  405. return;
  406. }
  407. for( var i = 0; i < ds_temp_goodlist.rowcount; i++ ){
  408. //2008-12-10 물류데이타 삭제 상태 추가
  409. ds_temp_goodlist.setColumn(i, "ifstatus", "D");
  410. ds_temp_goodlist.setRowType(i, "U");
  411. }
  412. //DefaultValu 설정
  413. dsf_setDefaultVal(ds_temp_goodlist, "chggubn:-,chggubnnm:-,condd:-,drugcd:-,olddrugcd:-,edicd:-,hngnm:-,comnm:-,lrgcls:-,mdlcls:-,smlcls:-,efcycls:-,packvol:0,packunit:-,cntsvol:0,cntsunit:-,stndunit:0,stndvol:0,spclyn:-,keepmthd:-,keepmthddesc:-,goodengnm:-,hospdrguvol:0,hospdrguunit:-,calcmthdcd:-,grupsnglflag:-,dupexpgoodcd:-");
  414. var oParam = {};
  415. oParam.id = "TXADB62901";
  416. oParam.service = "pharmacybaseapp.MisDrugMngt";
  417. oParam.method = "reqExeMisGoodList";
  418. oParam.inds = "druginfo=ds_temp_goodlist";
  419. oParam.outds = "ds_hidden=item";
  420. oParam.async = false;
  421. //oParam.callback = "cf_TXADB62901";
  422. tranf_submit(oParam);
  423. //물류정보 List 조회
  424. fGetGoodList();
  425. }
  426. /******************************************************************
  427. * Argument :
  428. * Description : 엑셀다운로드
  429. ******************************************************************/
  430. function grp_biz_btn_excsave_onclick(obj:Button, e:ClickEventInfo)
  431. {
  432. if( ds_grd_goodlist.getRowCount > 0 ){
  433. grdf_exportExcel(grp_biz.grd_goodlist, "물류정보", "물류정보", false, "", "user", false);
  434. } else {
  435. sysf_messageBox("조회된 데이터가 ", "I004");
  436. }
  437. }
  438. /******************************************************************
  439. * Argument :
  440. * Description : 등록 Button Event
  441. ******************************************************************/
  442. function grp_btn_btn_insert_onclick(obj:Button, e:ClickEventInfo)
  443. {
  444. if(sysf_messageBox("물류정보를 갱신", "S001")!=6) return;
  445. ds_temp_goodlist.clear();
  446. ds_grd_goodlist.filter("sel=='Y'");
  447. ds_temp_goodlist.copyData(ds_grd_goodlist,true);
  448. ds_grd_goodlist.filter("");
  449. if( ds_temp_goodlist.rowcount <= 0 ){
  450. sysf_messageBox("갱신할 물류정보가 없습니다.", "I");
  451. return;
  452. }
  453. for( var i = 0; i < ds_temp_goodlist.rowcount; i++ ){
  454. //2008-12-10 물류데이타 삭제 상태 추가
  455. ds_temp_goodlist.setColumn(i, "ifstatus", "S");
  456. ds_temp_goodlist.setRowType(i, "U");
  457. }
  458. ds_temp_goodlist.updateColID("goodcd","drugcd");
  459. ds_temp_goodlist.updateColID("oldcd","olddrugcd");
  460. ds_temp_goodlist.updateColID("lrgcd","lrgcls");
  461. ds_temp_goodlist.updateColID("mdlcd","mdlcls");
  462. ds_temp_goodlist.updateColID("smlcd","smlcls");
  463. ds_temp_goodlist.updateColID("welfprt","efcycls");
  464. ds_temp_goodlist.updateColID("prcpqty","packvol");
  465. ds_temp_goodlist.updateColID("prcpunit","packunit");
  466. fMakeCopyColumn(ds_temp_goodlist,"cntsqty","cntsvol");
  467. fMakeCopyColumn(ds_temp_goodlist,"cntsunit","stndunit");
  468. fMakeCopyColumn(ds_temp_goodlist,"cntsqty","stndvol");
  469. ds_temp_goodlist.updateColID("gnrlspcl","spclyn");
  470. ds_temp_goodlist.updateColID("pemtkeepmthd","keepmthddesc");
  471. ds_temp_goodlist.updateColID("todd","drugtodd");
  472. dsf_setDefaultVal(ds_temp_goodlist, "chggubn:-,chggubnnm:-,condd:-,drugcd:-,olddrugcd:-,edicd:-,hngnm:-,comnm:-"
  473. +",lrgcls:-,mdlcls:-,smlcls:-,efcycls:-,packvol:0,packunit:-,cntsvol:0,cntsunit:-"
  474. +",stndunit:0,stndvol:0,spclyn:-,keepmthd:-,keepmthddesc:-,goodengnm:-,hospdrguvol:0"
  475. +",hospdrguunit:-,calcmthdcd:-,grupsnglflag:-,dupexpgoodcd:-"
  476. +",cnfmyn:N,ordnm:-,engnm:-,delivecrite:-,absnyn:N,drugtype:-,ordunit:1,basevol:1,basemthdcd:-"
  477. +",drugkind:-,spcldrug:-,reconmixqty:0,reconvalitm:0,dilumixqty:0,diluvalitm:0,basevol:1"
  478. );
  479. //sysf_trace(ds_temp_goodlist.saveXML());
  480. var oParam = {};
  481. oParam.id = "TXADB62901";
  482. oParam.service = "pharmacybaseapp.MisDrugMngt";
  483. oParam.method = "reqExeMisGoodList";
  484. oParam.inds = "druginfo=ds_temp_goodlist";
  485. oParam.outds = "ds_hidden=item";
  486. oParam.async = false;
  487. //oParam.callback = "cf_TXADB62901";
  488. tranf_submit(oParam);
  489. fGetGoodList();
  490. }
  491. /******************************************************************
  492. * Argument :
  493. * Description : 닫기 Button Event
  494. ******************************************************************/
  495. function grp_btn_btn_close_onclick(obj:Button, e:ClickEventInfo)
  496. {
  497. this.close();
  498. }
  499. /******************************************************************
  500. * Argument :
  501. * Description : 삭제 Button Event
  502. ******************************************************************/
  503. function ds_grd_goodlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  504. {
  505. if(e.columnid=="sel") {
  506. obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
  507. }
  508. }
  509. function grp_btn_btn_delete_onclick(obj:Button, e:ClickEventInfo)
  510. {
  511. if(sysf_messageBox("정말", "Q001")!=6) return;
  512. ds_temp_goodlist.clear();
  513. ds_grd_goodlist.filter("sel=='Y'");
  514. ds_temp_goodlist.copyData(ds_grd_goodlist,true);
  515. ds_grd_goodlist.filter("");
  516. if( ds_temp_goodlist.rowcount <= 0 ){
  517. sysf_messageBox("삭제할 물류정보가 없습니다.", "I");
  518. return;
  519. }
  520. for( var i = 0; i < ds_temp_goodlist.rowcount; i++ ){
  521. //2008-12-10 물류데이타 삭제 상태 추가
  522. ds_temp_goodlist.setColumn(i, "ifstatus", "D");
  523. ds_temp_goodlist.setRowType(i, "U");
  524. }
  525. ds_temp_goodlist.updateColID("goodcd","drugcd");
  526. ds_temp_goodlist.updateColID("oldcd","olddrugcd");
  527. ds_temp_goodlist.updateColID("lrgcd","lrgcls");
  528. ds_temp_goodlist.updateColID("mdlcd","mdlcls");
  529. ds_temp_goodlist.updateColID("smlcd","smlcls");
  530. ds_temp_goodlist.updateColID("welfprt","efcycls");
  531. ds_temp_goodlist.updateColID("prcpqty","packvol");
  532. ds_temp_goodlist.updateColID("prcpunit","packunit");
  533. fMakeCopyColumn(ds_temp_goodlist,"cntsqty","cntsvol");
  534. fMakeCopyColumn(ds_temp_goodlist,"cntsunit","stndunit");
  535. fMakeCopyColumn(ds_temp_goodlist,"cntsqty","stndvol");
  536. ds_temp_goodlist.updateColID("gnrlspcl","spclyn");
  537. ds_temp_goodlist.updateColID("pemtkeepmthd","keepmthddesc");
  538. ds_temp_goodlist.updateColID("todd","drugtodd");
  539. dsf_setDefaultVal(ds_temp_goodlist, "chggubn:-,chggubnnm:-,condd:-,drugcd:-,olddrugcd:-,edicd:-,hngnm:-,comnm:-"
  540. +",lrgcls:-,mdlcls:-,smlcls:-,efcycls:-,packvol:0,packunit:-,cntsvol:0,cntsunit:-"
  541. +",stndunit:0,stndvol:0,spclyn:-,keepmthd:-,keepmthddesc:-,goodengnm:-,hospdrguvol:0"
  542. +",hospdrguunit:-,calcmthdcd:-,grupsnglflag:-,dupexpgoodcd:-"
  543. +",cnfmyn:N,ordnm:-,engnm:-,delivecrite:-,absnyn:N,drugtype:-,ordunit:1,basevol:1,basemthdcd:-"
  544. +",drugkind:-,spcldrug:-,reconmixqty:0,reconvalitm:0,dilumixqty:0,diluvalitm:0,basevol:1"
  545. );
  546. //sysf_trace(ds_temp_goodlist.saveXML());
  547. var oParam = {};
  548. oParam.id = "TXADB62901";
  549. oParam.service = "pharmacybaseapp.MisDrugMngt";
  550. oParam.method = "reqExeMisGoodList";
  551. oParam.inds = "druginfo=ds_temp_goodlist";
  552. oParam.outds = "ds_hidden=item";
  553. oParam.async = false;
  554. //oParam.callback = "cf_TXADB62901";
  555. tranf_submit(oParam);
  556. fGetGoodList();
  557. }
  558. ]]></Script>
  559. </Form>
  560. </FDL>