SMRSC01100_사용자별청구권한관리.xfdl 41 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMRSC01100" position="absolute 0 0 900 637" titletext="사용자별 청구 권한관리" onload="SMRSC01100_onload">
  5. <Layouts>
  6. <Layout>
  7. <Div position="absolute 0 25 898 53" id="group1" anchor="left top right">
  8. <Layouts>
  9. <Layout>
  10. <Button position="absolute 0 1 80 23" align="align:left middle;" id="btn_scrnmove" class="btn3" visible="false" text="화면이동" anchor="default"/>
  11. <Button position="absolute 772 1 840 23" align="align:left middle;" id="btn_clear" class="btn4" text="초기화" anchor="top right" onclick="group1_btn_clear_onclick"/>
  12. <Button position="absolute 842 1 898 23" id="btn_save" class="btn4" enable="false" text="저장" anchor="top right" onclick="group1_btn_save_onclick"/>
  13. <Shape position="absolute 0 22 898 28" linetype="horizontal" id="line11" class="line_6" anchor="left top right"/>
  14. <Button position="absolute 714 1 770 23" align="align:left middle;" id="btn_search" class="btn1" text="조회" anchor="top right" onclick="group1_btn_search_onclick"/>
  15. </Layout>
  16. </Layouts>
  17. </Div>
  18. <Static id="caption6" text="사용자별 청구 권한관리" class="tit_1" position="absolute 0 0 180 25"/>
  19. <Button id="button1" taborder="1" text="행추가" class="btn2" position="absolute 222 388 275 410" onclick="button1_onclick" anchor="left bottom"/>
  20. <Button id="button2" taborder="2" text="행삭제" class="btn2" position="absolute 277 388 330 410" onclick="button2_onclick" anchor="left bottom"/>
  21. <Grid id="grd_rscmregb" taborder="3" binddataset="ds_main_list_rscmregb_rscmregblist" useinputpanel="false" position="absolute 0 79 898 385" autoenter="key" cellsizingtype="col" onmousemove="Grid_onmousemove" onexpandup="grd_rscmregb_onexpandup" anchor="all" oncellclick="grd_rscmregb_oncellclick">
  22. <Formats>
  23. <Format id="default">
  24. <Columns>
  25. <Column size="25" band="left"/>
  26. <Column size="0"/>
  27. <Column size="60"/>
  28. <Column size="93"/>
  29. <Column size="94"/>
  30. <Column size="100"/>
  31. <Column size="112"/>
  32. <Column size="112"/>
  33. <Column size="115"/>
  34. <Column size="312"/>
  35. </Columns>
  36. <Rows>
  37. <Row size="24" band="head"/>
  38. <Row size="24"/>
  39. </Rows>
  40. <Band id="head">
  41. <Cell/>
  42. <Cell col="1" text="instcd"/>
  43. <Cell col="2" text="청구구분"/>
  44. <Cell col="3" text="청구구분명"/>
  45. <Cell col="4" text="출고부서"/>
  46. <Cell col="5" text="출고부서명"/>
  47. <Cell col="6" text="청구 프로그램 구분"/>
  48. <Cell col="7" text="구매 프로그램 구분"/>
  49. <Cell col="8" text="담당자 전화번호"/>
  50. <Cell col="9" text="비고"/>
  51. </Band>
  52. <Band id="body">
  53. <Cell celltype="head"/>
  54. <Cell col="1" text="bind:instcd"/>
  55. <Cell col="2" displaytype="text" edittype="text" text="bind:reqflag"/>
  56. <Cell col="3" displaytype="text" edittype="text" text="bind:reqflagnm"/>
  57. <Cell col="4" displaytype="text" edittype="text" text="bind:delivedeptcd" expandshow="show"/>
  58. <Cell col="5" displaytype="text" edittype="text" text="bind:delivedeptnm"/>
  59. <Cell col="6" displaytype="combo" edittype="combo" text="bind:reqpgmgubn" combodataset="ds_init_reqcombo" combocodecol="value" combodatacol="label"/>
  60. <Cell col="7" displaytype="combo" edittype="combo" text="bind:purcpgmgubn" combodataset="ds_init_purcpgmgubn" combocodecol="value" combodatacol="label"/>
  61. <Cell col="8" displaytype="text" edittype="text" text="bind:chrgtel"/>
  62. <Cell col="9" displaytype="text" edittype="text" text="bind:cmt"/>
  63. </Band>
  64. </Format>
  65. </Formats>
  66. </Grid>
  67. <Button id="button4" taborder="4" text="행추가" class="btn2" position="absolute 790 388 843 410" onclick="button4_onclick" anchor="right bottom"/>
  68. <Grid id="grd_rscmreus" taborder="5" binddataset="ds_main_list_rscmreus_rscmreuslist" useinputpanel="false" position="absolute 0 415 330 635" autoenter="key" cellsizingtype="col" cellclickbound="cell" onmousemove="Grid_onmousemove" onexpandup="grd_rscmreus_onexpandup" anchor="left bottom">
  69. <Formats>
  70. <Format id="default">
  71. <Columns>
  72. <Column size="25" band="left"/>
  73. <Column size="80"/>
  74. <Column size="115"/>
  75. <Column size="95"/>
  76. <Column size="0"/>
  77. <Column size="0"/>
  78. </Columns>
  79. <Rows>
  80. <Row size="24" band="head"/>
  81. <Row size="24"/>
  82. </Rows>
  83. <Band id="head">
  84. <Cell/>
  85. <Cell col="1" text="사원번호"/>
  86. <Cell col="2" text="성명"/>
  87. <Cell col="3" text="승인여부"/>
  88. <Cell col="4" text="instcd"/>
  89. <Cell col="5" text="reqflag"/>
  90. </Band>
  91. <Band id="body">
  92. <Cell celltype="head"/>
  93. <Cell col="1" displaytype="text" edittype="text" text="bind:emplno" expandshow="show"/>
  94. <Cell col="2" displaytype="text" edittype="text" text="bind:emplnm"/>
  95. <Cell col="3" displaytype="checkbox" edittype="checkbox" text="bind:purcarthyn" expr="expr:(purcarthyn==&quot;Y&quot;||purcarthyn==1)?1:0"/>
  96. <Cell col="4" text="bind:instcd"/>
  97. <Cell col="5" text="bind:reqflag"/>
  98. </Band>
  99. </Format>
  100. </Formats>
  101. </Grid>
  102. <Grid id="grd_rscmsude" taborder="6" binddataset="ds_main_list_rscmsude_rscmsudelist" useinputpanel="false" position="absolute 335 415 898 635" onmousemove="Grid_onmousemove" onexpandup="grd_rscmsude_onexpandup" anchor="left right bottom">
  103. <Formats>
  104. <Format id="default">
  105. <Columns>
  106. <Column size="25" band="left"/>
  107. <Column size="0"/>
  108. <Column size="0"/>
  109. <Column size="100"/>
  110. <Column size="150"/>
  111. <Column size="100"/>
  112. <Column size="150"/>
  113. <Column size="0"/>
  114. </Columns>
  115. <Rows>
  116. <Row size="24" band="head"/>
  117. <Row size="24"/>
  118. </Rows>
  119. <Band id="head">
  120. <Cell/>
  121. <Cell col="1" text="instid"/>
  122. <Cell col="2" text="reqflag"/>
  123. <Cell col="3" text="청구부서"/>
  124. <Cell col="4" text="청구부서명"/>
  125. <Cell col="5" text="중간취합부서"/>
  126. <Cell col="6" text="중간취합부서명"/>
  127. <Cell col="7" text="cmt"/>
  128. </Band>
  129. <Band id="body">
  130. <Cell celltype="head"/>
  131. <Cell col="1" text="bind:instcd"/>
  132. <Cell col="2" text="bind:reqflag"/>
  133. <Cell col="3" displaytype="text" edittype="text" text="bind:reqdeptcd" expandshow="show"/>
  134. <Cell col="4" displaytype="text" edittype="text" text="bind:reqdeptnm"/>
  135. <Cell col="5" displaytype="text" edittype="text" text="bind:reqcollcdeptcd" expandshow="show"/>
  136. <Cell col="6" displaytype="text" edittype="text" text="bind:reqcollcdeptnm"/>
  137. <Cell col="7" text="bind:cmt"/>
  138. </Band>
  139. </Format>
  140. </Formats>
  141. </Grid>
  142. <Combo id="cmb_instcd_tab2" taborder="7" class="combo_default" enable="false" position="absolute 71 53 261 72" onitemchanged="cmb_instcd_tab2_onitemchanged"/>
  143. <Static id="caption1" text="기관코드" class="cell_1" position="absolute 0 51 69 74"/>
  144. <Button id="button8" taborder="8" text="행추가" class="btn2" position="absolute 790 52 843 74" onclick="button8_onclick" anchor="top right"/>
  145. <Button id="button9" taborder="9" text="행삭제" class="btn2" position="absolute 845 52 898 74" onclick="button9_onclick" anchor="top right"/>
  146. <Shape id="line1" class="line_10" position="absolute 0 74 898 80" anchor="left top right"/>
  147. <Shape id="line2" class="line_10" position="absolute 0 410 330 416" anchor="left bottom"/>
  148. <Shape id="line3" class="line_10" position="absolute 335 410 898 416" anchor="left right bottom"/>
  149. <Button id="button10" taborder="10" text="행삭제" class="btn2" position="absolute 845 388 898 410" onclick="button10_onclick" anchor="right bottom"/>
  150. </Layout>
  151. </Layouts>
  152. <Objects>
  153. <Dataset id="ds_send_rscmregb" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  154. <ColumnInfo>
  155. <Column id="instcd" type="STRING" size="256"/>
  156. </ColumnInfo>
  157. <Rows>
  158. <Row>
  159. <Col id="instcd"/>
  160. </Row>
  161. </Rows>
  162. </Dataset>
  163. <Dataset id="ds_main_list_rscmreus_rscmreuslist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep" oncolumnchanged="ds_main_list_rscmreus_rscmreuslist_oncolumnchanged">
  164. <ColumnInfo>
  165. <Column id="instcd" type="STRING" size="256" sumtext="기관번호"/>
  166. <Column id="reqflag" type="STRING" size="256" sumtext="청구구분"/>
  167. <Column id="emplno" type="STRING" size="256" sumtext="사원"/>
  168. <Column id="emplnm" type="STRING" size="256" sumtext="사원성명"/>
  169. <Column id="purcarthyn" type="STRING" size="256" sumtext="승인여부"/>
  170. <Column id="chrgtel" type="STRING" size="256" sumtext="담당자전번"/>
  171. <Column id="cmt" type="STRING" size="256" sumtext=".비고"/>
  172. </ColumnInfo>
  173. </Dataset>
  174. <Dataset id="ds_init_purcpgmgubn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  175. <ColumnInfo>
  176. <Column id="label" type="STRING" size="256"/>
  177. <Column id="value" type="STRING" size="256"/>
  178. </ColumnInfo>
  179. <Rows>
  180. <Row>
  181. <Col id="label">구매재고</Col>
  182. <Col id="value">1</Col>
  183. </Row>
  184. <Row>
  185. <Col id="label">약국</Col>
  186. <Col id="value">2</Col>
  187. </Row>
  188. <Row>
  189. <Col id="label">비품</Col>
  190. <Col id="value">3</Col>
  191. </Row>
  192. <Row>
  193. <Col id="label">장비</Col>
  194. <Col id="value">4</Col>
  195. </Row>
  196. <Row>
  197. <Col id="label">CSR</Col>
  198. <Col id="value">5</Col>
  199. </Row>
  200. <Row>
  201. <Col id="label">수리</Col>
  202. <Col id="value">6</Col>
  203. </Row>
  204. </Rows>
  205. </Dataset>
  206. <Dataset id="ds_main_list_rscmsude_rscmsudelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep" oncolumnchanged="ds_main_list_rscmsude_rscmsudelist_oncolumnchanged">
  207. <ColumnInfo>
  208. <Column id="instcd" type="STRING" size="256" sumtext="기관번호"/>
  209. <Column id="reqflag" type="STRING" size="256" sumtext="청구구분"/>
  210. <Column id="reqdeptcd" type="STRING" size="256" sumtext="청구부서"/>
  211. <Column id="reqdeptnm" type="STRING" size="256" sumtext="청구부서명"/>
  212. <Column id="reqcollcdeptcd" type="STRING" size="256" sumtext="취합부서"/>
  213. <Column id="reqcollcdeptnm" type="STRING" size="256" sumtext="취합부서명"/>
  214. <Column id="cmt" type="STRING" size="256" sumtext=".비고"/>
  215. </ColumnInfo>
  216. </Dataset>
  217. <Dataset id="ds_main_list_rscmggbn_rscmggbnlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep"/>
  218. <Dataset id="ds_main_list_rscmregb_rscmregblist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep" oncolumnchanged="ds_main_list_rscmregb_rscmregblist_oncolumnchanged">
  219. <ColumnInfo>
  220. <Column id="instcd" type="STRING" size="256" sumtext="기관번호"/>
  221. <Column id="reqflag" type="STRING" size="256" sumtext="청구구분"/>
  222. <Column id="reqflagnm" type="STRING" size="256" sumtext="청구구분명칭"/>
  223. <Column id="reqpgmgubn" type="STRING" size="256" sumtext="구매 프로그램 구분"/>
  224. <Column id="purcpgmgubn" type="STRING" size="256" sumtext="청구 프로그램구분"/>
  225. <Column id="chrgtel" type="STRING" size="256" sumtext="담당자전번"/>
  226. <Column id="cmt" type="STRING" size="256" sumtext=".비고"/>
  227. <Column id="delivedeptcd" type="STRING" size="256" sumtext=".불출부서"/>
  228. <Column id="delivedeptnm" type="STRING" size="256" sumtext=".불출부서"/>
  229. </ColumnInfo>
  230. </Dataset>
  231. <Dataset id="ds_init_reqcombo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  232. <ColumnInfo>
  233. <Column id="label" type="STRING" size="256"/>
  234. <Column id="value" type="STRING" size="256"/>
  235. </ColumnInfo>
  236. <Rows>
  237. <Row>
  238. <Col id="label">구매재고</Col>
  239. <Col id="value">1</Col>
  240. </Row>
  241. <Row>
  242. <Col id="label">약국</Col>
  243. <Col id="value">2</Col>
  244. </Row>
  245. <Row>
  246. <Col id="label">비품</Col>
  247. <Col id="value">3</Col>
  248. </Row>
  249. <Row>
  250. <Col id="label">장비</Col>
  251. <Col id="value">4</Col>
  252. </Row>
  253. <Row>
  254. <Col id="label">CSR</Col>
  255. <Col id="value">5</Col>
  256. </Row>
  257. <Row>
  258. <Col id="label">수리</Col>
  259. <Col id="value">6</Col>
  260. </Row>
  261. </Rows>
  262. </Dataset>
  263. <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  264. <ColumnInfo>
  265. <Column id="temp" type="STRING" size="256"/>
  266. </ColumnInfo>
  267. </Dataset>
  268. <Dataset id="ds_send_rscmsude" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  269. <ColumnInfo>
  270. <Column id="instcd" type="STRING" size="256"/>
  271. <Column id="reqflag" type="STRING" size="256"/>
  272. </ColumnInfo>
  273. <Rows>
  274. <Row>
  275. <Col id="instcd"/>
  276. <Col id="reqflag"/>
  277. </Row>
  278. </Rows>
  279. </Dataset>
  280. <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  281. <ColumnInfo>
  282. <Column id="reqdeptcd" type="STRING" size="256"/>
  283. </ColumnInfo>
  284. </Dataset>
  285. <Dataset id="ds_send_rscmggbn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  286. <ColumnInfo>
  287. <Column id="instcd" type="STRING" size="256"/>
  288. <Column id="emplno" type="STRING" size="256"/>
  289. <Column id="emplnm" type="STRING" size="256"/>
  290. </ColumnInfo>
  291. <Rows>
  292. <Row>
  293. <Col id="instcd"/>
  294. <Col id="emplno"/>
  295. <Col id="emplnm"/>
  296. </Row>
  297. </Rows>
  298. </Dataset>
  299. <Dataset id="ds_example" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  300. <ColumnInfo>
  301. <Column id="example" type="STRING" size="256"/>
  302. </ColumnInfo>
  303. <Rows>
  304. <Row>
  305. <Col id="example">Sample</Col>
  306. </Row>
  307. </Rows>
  308. </Dataset>
  309. <Dataset id="ds_send_rscmreus" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
  310. <ColumnInfo>
  311. <Column id="instcd" type="STRING" size="256"/>
  312. <Column id="reqflag" type="STRING" size="256"/>
  313. </ColumnInfo>
  314. <Rows>
  315. <Row>
  316. <Col id="instcd"/>
  317. <Col id="reqflag"/>
  318. </Row>
  319. </Rows>
  320. </Dataset>
  321. <Dataset id="ds_send_rscmregblist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  322. <Dataset id="ds_send_rscmreuslist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  323. <Dataset id="ds_send_rscmsudelist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
  324. </Objects>
  325. <Bind>
  326. <BindItem id="item0" compid="cmb_instcd_tab2" propid="value" datasetid="ds_send_rscmregb" columnid="instcd"/>
  327. </Bind>
  328. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  329. * System Name :
  330. * Job Name :
  331. * Creator :
  332. * Make Date : 2017-06-19
  333. * Description :
  334. *---------------------------------------------------------------------------------------
  335. * Modify Date Modifier Modify Description
  336. *---------------------------------------------------------------------------------------
  337. * 2017-06-19 Live Converter TF->XP
  338. *
  339. *---------------------------------------------------------------------------------------
  340. ****************************************************************************************/
  341. //=======================================================================================
  342. // Lib Include
  343. //---------------------------------------------------------------------------------------
  344. include "com_commonxp::comm_main.xjs";
  345. include "mis_miscommonxp::MIS.xjs";
  346. include "mis_miscommonxp::RSZ001.xjs";
  347. include "mis_humtrafactmngtxp::RPB001.xjs";
  348. //=======================================================================================
  349. // Global Form Variable
  350. //---------------------------------------------------------------------------------------
  351. var arErrorCode = new HashArray();
  352. var MIS_ADM1 = "93552"; // MIS 중앙공급실 담당자 채선자 선생님
  353. //=======================================================================================
  354. // Function
  355. //---------------------------------------------------------------------------------------
  356. /****************************************************************************************
  357. * Argument : N/A
  358. * Description : 화면 open시와 초기화 버튼 클릭시 화면 초기화 기능을 수행한다.
  359. ****************************************************************************************/
  360. function fInitialize() {
  361. // grid reset
  362. misfGridInit(grd_rscmregb);
  363. misfGridInit(grd_rscmreus);
  364. misfGridInit(grd_rscmsude);
  365. ///////////////////////////////////////////////////////////////////////////////////////////////
  366. // tab2 기관코드 combo setting
  367. //rszfUserInstList(cmb_instcd,sysf_getUserInfo("userid")); //사용자소속기관
  368. ///////////////////////////////////////////////////////////////////////////////////////////////
  369. misfComboComCdList("Z0007", cmb_instcd_tab2); //전체기관코드
  370. cmb_instcd_tab2.value = sysf_getUserInfo("dutplceinstcd"); // 기관코드
  371. var AuthFlag = 0; // 저장권한여부
  372. var vUserId = sysf_getUserInfo("userid"); // 사용자ID
  373. var vUserDeptcd = sysf_getUserInfo("dutplcecd"); // 사용자부서
  374. // -------------------------------------------------------------------------------------
  375. // 기관별 구매시스템 기본정보를 조회한다
  376. // vPathResult = "ds_init_RscsysinftLists";
  377. // -------------------------------------------------------------------------------------
  378. rszfRscsysinftLists(sysf_getUserInfo("dutplceinstcd"));
  379. // -------------------------------------------------------------------------------------
  380. // 구매 인터페이스 거래처정보를 조회한다
  381. // vPathResult = "ds_init_RscifcustLists";
  382. // pInstcd" : (조회값) 기관코드
  383. // pEntrregno" : (조회값) 거래처
  384. // pMaindeptcd" : (조회값) 관리부서코드
  385. // pCombo : 콤보구분
  386. // pAllYN : 전체구분
  387. // -------------------------------------------------------------------------------------
  388. AuthFlag += (vUserDeptcd == getRscsysinftInfo("purcdept" )) ? 1 : 0; // 구매담당부서
  389. AuthFlag += (vUserDeptcd == getRscsysinftInfo("drugdept" )) ? 1 : 0; // 약제담당부서
  390. AuthFlag += (vUserDeptcd == getRscsysinftInfo("nutrdept" )) ? 1 : 0; // 영양담당부서
  391. AuthFlag += (vUserId == MIS_ADM1) ? 1 : 0; // MIS 중앙공급실 담당자 채선자 선생님
  392. AuthFlag += (vUserId == getRscsysinftInfo("purcdptjobid")) ? 1 : 0; // 구매담당자ID
  393. AuthFlag += (vUserId == getRscsysinftInfo("purcdptmgrid")) ? 1 : 0; // 구매부서장ID
  394. AuthFlag += (vUserId == getRscsysinftInfo("drugdptjobid")) ? 1 : 0; // 약제담당자ID
  395. AuthFlag += (vUserId == getRscsysinftInfo("drugdptmgrid")) ? 1 : 0; // 약제부서장ID
  396. AuthFlag += (vUserId == getRscsysinftInfo("nutrdptjobid")) ? 1 : 0; // 영양담당자ID
  397. AuthFlag += (vUserId == getRscsysinftInfo("nutrdptmgrid")) ? 1 : 0; // 영양부서장ID
  398. if (AuthFlag > 0 ) {
  399. cmb_instcd_tab2.enable = true; // 기관 선택
  400. group1.btn_save.enable = true; // 저장 권한
  401. }
  402. // master ,detail set
  403. misfMsterDetailSet(grd_rscmregb,null, "TRRSC01002" ,"Y");
  404. // tab2 master, detail set 청구처리권한 설정
  405. misfMsterDetailSet(grd_rscmreus, grd_rscmregb, "TRRSC01003", "Y");
  406. // tab2 master, detail set 취합부서 설정
  407. misfMsterDetailSet(grd_rscmsude, grd_rscmregb, "TRRSC01004", "Y");
  408. }
  409. /****************************************************************************************
  410. * Argument : pmsg
  411. * Description : 화면 open시와 초기화 버튼 클릭시 화면 초기화 기능을 수행한다.
  412. ****************************************************************************************/
  413. function fCheckRetrieveData(pmsg)
  414. {
  415. if(utlf_isNull(cmb_instcd_tab2.value))
  416. {
  417. if(pmsg == true)
  418. {
  419. sysf_messageBox("기관코드를 " ,"C002");
  420. cmb_instcd_tab2.setFocus();
  421. }
  422. return false;
  423. }
  424. return true;
  425. }
  426. function fDefaultSetting(prow)
  427. {
  428. model.setValue(grd_gooddmnd.nodeset+"["+prow+"]_purcreqflag",ds_send_gooddmnd.getColumn(0, "purcreqflag"));
  429. model.setValue(grd_gooddmnd.nodeset+"["+prow+"]_instcd",ds_send_gooddmnd.getColumn(0, "instcd"));
  430. model.setValue(grd_gooddmnd.nodeset+"["+prow+"]_goodflag",ds_send_gooddmnd.getColumn(0, "goodflag"));
  431. model.setValue(grd_gooddmnd.nodeset+"["+prow+"]_purcdmnddd",ds_send_gooddmnd.getColumn(0, "purcdmnddd"));
  432. model.setValue(grd_gooddmnd.nodeset+"["+prow+"]_reqdeptcd",ds_send_gooddmnd.getColumn(0, "reqdeptcd"));
  433. model.setValue(grd_gooddmnd.nodeset+"["+prow+"]_reqpsn",ds_send_gooddmnd.getColumn(0, "reqpsn"));
  434. model.setValue(grd_gooddmnd.nodeset+"["+prow+"]_purcdmndseq",prow);
  435. }
  436. function fSettingGoodList(pnode, nodename, userqtynm){
  437. var codynode = instance1.selectNodes(pnode + "/*");
  438. var addRow = grd_gooddmnd.rows - grd_gooddmnd.fixedRows;
  439. if(model.getValue(grd_gooddmnd.nodeset + "[" + addRow + "]_goodcd").length > 0)addRow = addRow + 1;
  440. for (var j = 1; j <= codynode.length ; j++) {
  441. if(addRow > grd_gooddmnd.rows - grd_gooddmnd.fixedRows)
  442. {
  443. misfGridIUD(grd_gooddmnd,"A");
  444. addRow = grd_gooddmnd.rows - grd_gooddmnd.fixedRows;
  445. fDefaultSetting(addRow );
  446. }
  447. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_goodcd" , model.getValue(pnode +"/" + nodename + "[" + j + "]_goodcd"));
  448. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_goodnm" , model.getValue(pnode +"/" + nodename + "[" + j + "]_goodnm"));
  449. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_goodspec" , model.getValue(pnode +"/" + nodename + "[" + j + "]_goodspec"));
  450. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_goodmodel" , model.getValue(pnode +"/" + nodename + "[" + j + "]_goodmodel"));
  451. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_prodcmpynm" , model.getValue(pnode +"/" + nodename + "[" + j + "]_prodcmpynm"));
  452. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_reqpackunit" , model.getValue(pnode +"/" + nodename + "[" + j + "]_purcunit"));
  453. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_reqpackcnt" , model.getValue(pnode +"/" + nodename + "[" + j + "]/" + userqtynm));
  454. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_requnit" , model.getValue(pnode +"/" + nodename + "[" + j + "]_purcunit"));
  455. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_reqqty" , model.getValue(pnode +"/" + nodename + "[" + j + "]/" + userqtynm));
  456. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_reqpackcntperunit" ,1);
  457. model.setValue(grd_gooddmnd.nodeset + "[" + addRow + "]_goodunitcost" , model.getValue(pnode +"/" + nodename + "[" + j + "]_goodunitcost"));
  458. addRow = addRow + 1;
  459. }
  460. model.recalculate();
  461. //model.refresh();
  462. }
  463. /****************************************************************************************
  464. * Argument : N/A
  465. * Description : 저장데이터 체크
  466. ****************************************************************************************/
  467. function fCheckSaveData()
  468. {
  469. for(var currow = 0 ; currow < ds_main_list_rscmregb_rscmregblist.rowcount ; currow++) {
  470. if(ds_main_list_rscmregb_rscmregblist.getRowType(currow) == 2 || ds_main_list_rscmregb_rscmregblist.getRowType(currow) == 4) {
  471. if(utlf_isNull(ds_main_list_rscmregb_rscmregblist.getColumn(currow , "reqflag"))) {
  472. sysf_messageBox((currow )+ " 번째 청구구분을 " ,"C001");
  473. ds_main_list_rscmregb_rscmregblist.rowposition = currow;
  474. grd_rscmregb.setFocus();
  475. grd_rscmregb.setCellPos(grd_rscmregb.getBindCellIndex("body","reqflag"));
  476. grd_rscmregb.showEditor(true);
  477. return false;
  478. }
  479. if(utlf_isNull(ds_main_list_rscmregb_rscmregblist.getColumn(currow , "reqflagnm"))) {
  480. sysf_messageBox((currow )+ " 번째 청구구분명을 " ,"C001");
  481. ds_main_list_rscmregb_rscmregblist.rowposition = currow;
  482. grd_rscmregb.setFocus();
  483. grd_rscmregb.setCellPos(grd_rscmregb.getBindCellIndex("body","reqflagnm"));
  484. grd_rscmregb.showEditor(true);
  485. return false;
  486. }
  487. if(utlf_isNull(ds_main_list_rscmregb_rscmregblist.getColumn(currow , "delivedeptcd"))) {
  488. sysf_messageBox((currow )+ " 번째 출고부서명을 " ,"C001");
  489. ds_main_list_rscmregb_rscmregblist.rowposition = currow;
  490. grd_rscmregb.setFocus();
  491. grd_rscmregb.setCellPos(grd_rscmregb.getBindCellIndex("body","delivedeptcd"));
  492. grd_rscmregb.showEditor(true);
  493. return false;
  494. }
  495. }
  496. }
  497. for(var currow = 0 ; currow < ds_main_list_rscmreus_rscmreuslist.rowcount ; currow++) {
  498. if(ds_main_list_rscmreus_rscmreuslist.getRowType(currow) == 2 || ds_main_list_rscmreus_rscmreuslist.getRowType(currow) == 4) {
  499. if(utlf_isNull(ds_main_list_rscmreus_rscmreuslist.getColumn(currow , "emplno"))) {
  500. sysf_messageBox((currow )+ " 번째 사원번호을 " ,"C001");
  501. ds_main_list_rscmreus_rscmreuslist.rowposition = currow;
  502. grd_rscmreus.setFocus();
  503. grd_rscmreus.setCellPos(grd_rscmreus.getBindCellIndex("body","emplno"));
  504. grd_rscmreus.showEditor(true);
  505. return false;
  506. }
  507. }
  508. }
  509. for(var currow = 0 ; currow < ds_main_list_rscmsude_rscmsudelist.rowcount ; currow++) {
  510. if(ds_main_list_rscmsude_rscmsudelist.getRowType(currow) == 2 || ds_main_list_rscmsude_rscmsudelist.getRowType(currow) == 4) {
  511. if(utlf_isNull(ds_main_list_rscmsude_rscmsudelist.getColumn(currow , "reqdeptcd"))) {
  512. sysf_messageBox((currow )+ " 번째 청구부서 " ,"C001");
  513. ds_main_list_rscmsude_rscmsudelist.rowposition = currow;
  514. grd_rscmsude.setFocus();
  515. grd_rscmsude.setCellPos(grd_rscmsude.getBindCellIndex("body","reqdeptcd"));
  516. grd_rscmsude.showEditor(true);
  517. return false;
  518. }
  519. if(utlf_isNull(ds_main_list_rscmsude_rscmsudelist.getColumn(currow , "reqcollcdeptcd"))) {
  520. sysf_messageBox((currow )+ " 번째 취합부서 " ,"C001");
  521. ds_main_list_rscmsude_rscmsudelist.rowposition = currow;
  522. grd_rscmsude.setFocus();
  523. grd_rscmsude.setCellPos(grd_rscmsude.getBindCellIndex("body","reqcollcdeptcd"));
  524. grd_rscmsude.showEditor(true);
  525. return false;
  526. }
  527. }
  528. }
  529. }
  530. //=======================================================================================
  531. // Event
  532. //---------------------------------------------------------------------------------------
  533. /****************************************************************************************
  534. * Components : Form
  535. * Description : 화면 처음 초기화시 폼초기화
  536. ****************************************************************************************/
  537. function SMRSC01100_onload(obj:Form, e:LoadEventInfo) {
  538. frmf_initForm(obj);
  539. //grdf_initGrid(grd_XXX);
  540. //grdf_setGridSort(grd_XXX);
  541. grdf_setRowTypeIcon(grd_rscmregb, 0);
  542. grdf_setRowTypeIcon(grd_rscmreus, 0);
  543. grdf_setRowTypeIcon(grd_rscmsude, 0);
  544. fInitialize();
  545. }
  546. /****************************************************************************************
  547. * Components : Button
  548. * Description : 초기화
  549. ****************************************************************************************/
  550. function group1_btn_clear_onclick(obj:Button, e:ClickEventInfo) {
  551. fInitialize();
  552. }
  553. /****************************************************************************************
  554. * Components : Button
  555. * Description : 저장
  556. ****************************************************************************************/
  557. function group1_btn_save_onclick(obj:Button, e:ClickEventInfo) {
  558. // 저장전에 not null 값 입력여부를 확인한다.
  559. if (fCheckSaveData() == false)return;
  560. misfSave("TXRSC01002");
  561. }
  562. /****************************************************************************************
  563. * Components : Button
  564. * Description : 조회
  565. ****************************************************************************************/
  566. function group1_btn_search_onclick(obj:Button, e:ClickEventInfo) {
  567. if(fCheckRetrieveData(true) == false) return;
  568. misfGridInit(grd_rscmreus);
  569. misfGridInit(grd_rscmsude);
  570. var oParam = {};
  571. oParam.id = "TRRSC01002";
  572. oParam.service = "purcbaseapp.GoodCdMngt";
  573. oParam.method = "reqGetRscmregb";
  574. oParam.inds = "req=ds_send_rscmregb";
  575. oParam.outds = "ds_main_list_rscmregb_rscmregblist=rscmregblist";
  576. oParam.async = false;
  577. tranf_submit(oParam);
  578. ds_main_list_rscmregb_rscmregblist.rowposition = 0;
  579. ds_main_list_rscmsude_rscmsudelist.clearData();
  580. ds_main_list_rscmreus_rscmreuslist.clearData();
  581. ds_send_rscmreus.setColumn( 0, "instcd", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "instcd"));
  582. ds_send_rscmreus.setColumn( 0, "reqflag", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "reqflag"));
  583. ds_send_rscmsude.setColumn( 0, "instcd", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "instcd"));
  584. ds_send_rscmsude.setColumn( 0, "reqflag", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "reqflag"));
  585. var oParam = {};
  586. oParam.id = "TRRSC01004";
  587. oParam.service = "purcbaseapp.GoodCdMngt";
  588. oParam.method = "reqGetRscmsude";
  589. oParam.inds = "req=ds_send_rscmsude";
  590. oParam.outds = "ds_main_list_rscmsude_rscmsudelist=rscmsudelist";
  591. oParam.async = false;
  592. tranf_submit(oParam);
  593. var oParam = {};
  594. oParam.id = "TRRSC01003";
  595. oParam.service = "purcbaseapp.GoodCdMngt";
  596. oParam.method = "reqGetRscmreus";
  597. oParam.inds = "req=ds_send_rscmreus";
  598. oParam.outds = "ds_main_list_rscmreus_rscmreuslist=rscmreuslist";
  599. oParam.async = false;
  600. tranf_submit(oParam);
  601. // 조회된 내용의 key값을 변경하지 못하게한다.
  602. for(var i = 0 ; i < grd_rscmregb.rowcount ; i++) {
  603. misfSetReadOnlyCol(grd_rscmregb, "reqflag,reqflagnm", true, i);
  604. }
  605. for(var i = 0 ; i < grd_rscmreus.rowcount ; i++) {
  606. misfSetReadOnlyCol(grd_rscmreus, "emplno", true, i);
  607. }
  608. for(var i = 0 ; i < grd_rscmsude.rowcount ; i++) {
  609. misfSetReadOnlyCol(grd_rscmsude, "reqdeptcd", true, i);
  610. }
  611. }
  612. /****************************************************************************************
  613. * Components : Button
  614. * Description : 청구직원 행추가
  615. ****************************************************************************************/
  616. function button1_onclick(obj:Button, e:ClickEventInfo) {
  617. if(fCheckRetrieveData(true) == false) return;
  618. misfGridIUD(grd_rscmreus, "A");
  619. }
  620. /****************************************************************************************
  621. * Components : Button
  622. * Description : 청구직원 행삭제
  623. ****************************************************************************************/
  624. function button2_onclick(obj:Button, e:ClickEventInfo) {
  625. misfGridIUD(grd_rscmreus, "D");
  626. }
  627. /****************************************************************************************
  628. * Components : Grid
  629. * Description : 청구리스트 버튼 클릭
  630. ****************************************************************************************/
  631. function grd_rscmregb_onexpandup(obj:Grid, e:GridMouseEventInfo) {
  632. ds_main_list_rscmregb_rscmregblist.enableevent = false;
  633. if (e.col == obj.getBindCellIndex("body","delivedeptcd")) {
  634. var recv_list = "delivedeptcd,delivedeptnm";
  635. misfOpenPopUpList("02", grd_rscmregb,"", recv_list, cmb_instcd_tab2.value, "instcd" );
  636. }
  637. ds_main_list_rscmregb_rscmregblist.enableevent = true;
  638. }
  639. /****************************************************************************************
  640. * Components : Button
  641. * Description : 청구부서 행추가
  642. ****************************************************************************************/
  643. function button4_onclick(obj:Button, e:ClickEventInfo) {
  644. if(fCheckRetrieveData(true) == false) return;
  645. misfGridIUD(grd_rscmsude, "A");
  646. }
  647. /****************************************************************************************
  648. * Components : Grid
  649. * Description : 청구직원 버튼 클릭
  650. ****************************************************************************************/
  651. function grd_rscmreus_onexpandup(obj:Grid, e:GridMouseEventInfo) {
  652. ds_main_list_rscmreus_rscmreuslist.enableevent = false;
  653. if(e.col == obj.getBindCellIndex("body","emplno")) {
  654. var recv_list = "emplno,emplnm";
  655. misfOpenPopUpList("45", grd_rscmreus,"", recv_list
  656. , cmb_instcd_tab2.value+","+ds_main_list_rscmregb_rscmregblist.getColumn(ds_main_list_rscmregb_rscmregblist.rowposition, "delivedeptcd")+","+ds_main_list_rscmregb_rscmregblist.getColumn(ds_main_list_rscmregb_rscmregblist.rowposition, "delivedeptnm")
  657. ,"instcd,deptcd,deptnm" ); // 사용자 조회
  658. }
  659. ds_main_list_rscmreus_rscmreuslist.enableevent = true;
  660. }
  661. /****************************************************************************************
  662. * Components : Grid
  663. * Description : 청구부서 버튼 클릭
  664. ****************************************************************************************/
  665. function grd_rscmsude_onexpandup(obj:Grid, e:GridMouseEventInfo) {
  666. ds_main_list_rscmsude_rscmsudelist.enableevent = false;
  667. if(e.col == obj.getBindCellIndex("body","reqdeptcd")) {
  668. var recv_list = "reqdeptcd,reqdeptnm";
  669. misfOpenPopUpList("02", grd_rscmsude,"", recv_list, cmb_instcd_tab2.value,"instcd" );
  670. }
  671. if(e.col == obj.getBindCellIndex("body","reqcollcdeptcd")) {
  672. var recv_list = "reqcollcdeptcd,reqcollcdeptnm";
  673. misfOpenPopUpList("02", grd_rscmsude,"", recv_list, cmb_instcd_tab2.value,"instcd" );
  674. }
  675. ds_main_list_rscmsude_rscmsudelist.enableevent = true;
  676. }
  677. /****************************************************************************************
  678. * Components : Combo
  679. * Description : 기관코드 변경
  680. ****************************************************************************************/
  681. function cmb_instcd_tab2_onitemchanged(obj:Combo, e:ItemChangeEventInfo) {
  682. group1.btn_search.click();
  683. }
  684. /****************************************************************************************
  685. * Components : Button
  686. * Description : 청구리스트 행추가
  687. ****************************************************************************************/
  688. function button8_onclick(obj:Button, e:ClickEventInfo) {
  689. if(fCheckRetrieveData(true) == false) return;
  690. misfGridIUD(grd_rscmregb, "A");
  691. misfGridInit(grd_rscmreus);
  692. misfGridInit(grd_rscmsude);
  693. }
  694. /****************************************************************************************
  695. * Components : Button
  696. * Description : 청구리스트 행삭제
  697. ****************************************************************************************/
  698. function button9_onclick(obj:Button, e:ClickEventInfo) {
  699. misfGridIUD(grd_rscmregb, "D");
  700. }
  701. /****************************************************************************************
  702. * Components : Button
  703. * Description : 청구부서 행삭제
  704. ****************************************************************************************/
  705. function button10_onclick(obj:Button, e:ClickEventInfo) {
  706. misfGridIUD(grd_rscmsude, "D");
  707. }
  708. /****************************************************************************************
  709. * Components : Grid
  710. * Description : 버튼클릭시 바로 실행
  711. ****************************************************************************************/
  712. function Grid_onmousemove(obj:Grid, e:GridMouseEventInfo)
  713. {
  714. if(e.row < 0) return;
  715. if(e.col == obj.getBindCellIndex("body","emplno") || e.col == obj.getBindCellIndex("body","reqdeptcd")
  716. || e.col == obj.getBindCellIndex("body","reqcollcdeptcd") || e.col == obj.getBindCellIndex("body","delivedeptcd"))
  717. obj.autoenter = "select";
  718. else obj.autoenter = "key";
  719. }
  720. /****************************************************************************************
  721. * Components : Dataset
  722. * Description : 청구리스트 값 변경시
  723. ****************************************************************************************/
  724. function ds_main_list_rscmregb_rscmregblist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  725. {
  726. if (e.columnid == "delivedeptcd")
  727. {
  728. misfValidationCheck("02", "", "delivedeptcd,delivedeptnm" );
  729. }
  730. if (e.columnid == "delivedeptnm")
  731. {
  732. misfValidationCheck("02", "", "delivedeptcd,delivedeptnm" );
  733. }
  734. }
  735. /****************************************************************************************
  736. * Components : Dataset
  737. * Description : 청구직원 값 변경시
  738. ****************************************************************************************/
  739. function ds_main_list_rscmreus_rscmreuslist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  740. {
  741. if(e.columnid=="purcarthyn") {
  742. obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
  743. }
  744. if(e.columnid == "emplno") {
  745. var recv_list = "emplno,emplnm";
  746. rpbfValidationCheck("EMPLNO", recv_list);
  747. }
  748. if(e.columnid == "emplnm") {
  749. var recv_list = "emplno,emplnm";
  750. rpbfValidationCheck("EMPLNM", recv_list);
  751. }
  752. }
  753. /****************************************************************************************
  754. * Components : Dataset
  755. * Description : 청구부서 값 변경시
  756. ****************************************************************************************/
  757. function ds_main_list_rscmsude_rscmsudelist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
  758. {
  759. if (e.columnid == "reqdeptcd" || e.columnid == "reqdeptnm") {
  760. misfValidationCheck("02", "", "reqdeptcd,reqdeptnm" );
  761. }
  762. if (e.columnid == "reqcollcdeptcd" || e.columnid == "reqcollcdeptnm") {
  763. misfValidationCheck("02", "", "reqcollcdeptcd,reqcollcdeptnm");
  764. }
  765. }
  766. function grd_rscmregb_oncellclick(obj:Grid, e:GridClickEventInfo)
  767. {
  768. if( e.row != e.oldrow ){
  769. misfGridInit(grd_rscmreus);
  770. misfGridInit(grd_rscmsude);
  771. ds_send_rscmreus.setColumn( 0, "instcd", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "instcd"));
  772. ds_send_rscmreus.setColumn( 0, "reqflag", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "reqflag"));
  773. ds_send_rscmsude.setColumn( 0, "instcd", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "instcd"));
  774. ds_send_rscmsude.setColumn( 0, "reqflag", ds_main_list_rscmregb_rscmregblist.getColumn(e.row, "reqflag"));
  775. misfMsterDetailRetrieve();
  776. for(var i = 0 ; i < grd_rscmreus.rowcount ; i++) {
  777. misfSetReadOnlyCol(grd_rscmreus, "emplno", true, i);
  778. }
  779. for(var i = 0 ; i < grd_rscmsude.rowcount ; i++) {
  780. misfSetReadOnlyCol(grd_rscmsude, "reqdeptcd", true, i);
  781. }
  782. }
  783. }
  784. ]]></Script>
  785. </Form>
  786. </FDL>