w_rp_cus_price_updown.srw 6.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288
  1. $PBExportHeader$w_rp_cus_price_updown.srw
  2. forward
  3. global type w_rp_cus_price_updown from w_publ_easyq
  4. end type
  5. type cbx_1 from checkbox within w_rp_cus_price_updown
  6. end type
  7. type tv_1 from uo_tv_mtrltype within w_rp_cus_price_updown
  8. end type
  9. end forward
  10. global type w_rp_cus_price_updown from w_publ_easyq
  11. string title = "物料销售价格浮动表"
  12. cbx_1 cbx_1
  13. tv_1 tv_1
  14. end type
  15. global w_rp_cus_price_updown w_rp_cus_price_updown
  16. type variables
  17. String ls_handtype = ''
  18. string ls_mtrltype = ''
  19. int cur_flag = 1 //0全显示; 1有sec的显示
  20. end variables
  21. on w_rp_cus_price_updown.create
  22. int iCurrent
  23. call super::create
  24. this.cbx_1=create cbx_1
  25. this.tv_1=create tv_1
  26. iCurrent=UpperBound(this.Control)
  27. this.Control[iCurrent+1]=this.cbx_1
  28. this.Control[iCurrent+2]=this.tv_1
  29. end on
  30. on w_rp_cus_price_updown.destroy
  31. call super::destroy
  32. destroy(this.cbx_1)
  33. destroy(this.tv_1)
  34. end on
  35. event resize;call super::resize;tv_1.height = this.height - tv_1.y - 150
  36. end event
  37. type cb_func from w_publ_easyq`cb_func within w_rp_cus_price_updown
  38. end type
  39. type cb_exit from w_publ_easyq`cb_exit within w_rp_cus_price_updown
  40. end type
  41. type cb_2 from w_publ_easyq`cb_2 within w_rp_cus_price_updown
  42. end type
  43. type cb_psetup from w_publ_easyq`cb_psetup within w_rp_cus_price_updown
  44. end type
  45. type cb_1 from w_publ_easyq`cb_1 within w_rp_cus_price_updown
  46. end type
  47. event cb_1::clicked;call super::clicked;Int li_option_outrep, li_option_area
  48. IF sys_power_issuper THEN
  49. li_option_outrep = 0
  50. ELSE
  51. li_option_outrep = sys_option_outrep
  52. END IF
  53. IF sys_power_issuper THEN
  54. li_option_area = 0
  55. ELSE
  56. li_option_area = sys_option_cusarea
  57. END IF
  58. dw_1.Retrieve(ls_handtype, cur_flag, sys_areaid,li_option_area,sys_user_outrep, li_option_outrep )
  59. //dw_1.AcceptText()
  60. //Long ls_i,ls_j,li_mtrlid,li_sptid
  61. //String ls_mtrlcode,ls_sptname
  62. //String ls_lastdate
  63. //Decimal ls_lastprice,ls_nowprice
  64. //String ls_filterstr
  65. //
  66. //datastore ds_tmp
  67. //
  68. //ds_tmp = CREATE datastore
  69. //ds_tmp.DataObject = 'ds_sptprice_updown'
  70. //ds_tmp.SetTransObject(sqlca)
  71. //
  72. //
  73. //Open(w_sys_wait_jdt) //初始化进度条
  74. //w_sys_wait_jdt.Show()
  75. //w_sys_wait_jdt.wf_accepttol(dw_1.RowCount())
  76. //
  77. //FOR ls_i = 1 TO dw_1.RowCount()
  78. // ls_lastdate = ''
  79. // ls_lastprice = 0.00
  80. //
  81. // li_mtrlid = dw_1.Object.u_spt_price_mtrlid[ls_i]
  82. // li_sptid = dw_1.Object.u_spt_price_sptid[ls_i]
  83. // ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ls_i]
  84. // ls_sptname = dw_1.Object.u_spt_name[ls_i]
  85. // ls_nowprice = dw_1.Object.u_spt_price_price[ls_i]
  86. //
  87. // w_sys_wait_jdt.st_msg.Text = "查询:"+ls_mtrlcode+'/'+ls_sptname
  88. //
  89. // IF ds_tmp.Retrieve(li_mtrlid,li_sptid) > 1 THEN
  90. // FOR ls_j = 2 TO ds_tmp.RowCount()
  91. // IF ls_nowprice <> ds_tmp.Object.price[ls_j] THEN
  92. // ls_lastdate = String(ds_tmp.Object.outdate[ls_j],'yyyy-mm-dd')
  93. // ls_lastprice = ds_tmp.Object.price[ls_j]
  94. // END IF
  95. // NEXT
  96. // END IF
  97. //
  98. //
  99. // dw_1.Object.date_2[ls_i] = ls_lastdate
  100. // dw_1.Object.u_spt_price_lastprice[ls_i] = ls_lastprice
  101. //
  102. // w_sys_wait_jdt.wf_inc(ls_i) //进度
  103. //NEXT
  104. //DESTROY ds_tmp
  105. //Close(w_sys_wait_jdt)
  106. //
  107. //
  108. //
  109. //
  110. //dw_1.SetRedraw(TRUE)
  111. //
  112. end event
  113. type st_3 from w_publ_easyq`st_3 within w_rp_cus_price_updown
  114. boolean visible = false
  115. integer x = 23
  116. integer y = 364
  117. end type
  118. type st_4 from w_publ_easyq`st_4 within w_rp_cus_price_updown
  119. boolean visible = false
  120. integer x = 608
  121. integer y = 364
  122. end type
  123. type em_1 from w_publ_easyq`em_1 within w_rp_cus_price_updown
  124. boolean visible = false
  125. integer x = 224
  126. integer y = 348
  127. end type
  128. type em_2 from w_publ_easyq`em_2 within w_rp_cus_price_updown
  129. boolean visible = false
  130. integer x = 713
  131. integer y = 348
  132. end type
  133. type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_cus_price_updown
  134. integer x = 1531
  135. integer y = 8
  136. end type
  137. type cbx_yl from w_publ_easyq`cbx_yl within w_rp_cus_price_updown
  138. integer x = 1321
  139. integer y = 12
  140. end type
  141. type dw_1 from w_publ_easyq`dw_1 within w_rp_cus_price_updown
  142. integer x = 823
  143. integer y = 312
  144. integer width = 2661
  145. string dataobject = "dw_rp_cus_price_updown"
  146. end type
  147. type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_cus_price_updown
  148. end type
  149. type sle_cust from w_publ_easyq`sle_cust within w_rp_cus_price_updown
  150. end type
  151. type st_mtrl from w_publ_easyq`st_mtrl within w_rp_cus_price_updown
  152. end type
  153. type st_cust from w_publ_easyq`st_cust within w_rp_cus_price_updown
  154. end type
  155. type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_cus_price_updown
  156. boolean visible = true
  157. integer x = 1321
  158. end type
  159. type pb_em1 from w_publ_easyq`pb_em1 within w_rp_cus_price_updown
  160. boolean visible = false
  161. integer x = 1125
  162. end type
  163. type pb_em2 from w_publ_easyq`pb_em2 within w_rp_cus_price_updown
  164. boolean visible = false
  165. end type
  166. type pb_2 from w_publ_easyq`pb_2 within w_rp_cus_price_updown
  167. boolean visible = false
  168. end type
  169. type cb_help from w_publ_easyq`cb_help within w_rp_cus_price_updown
  170. end type
  171. type cb_copyself from w_publ_easyq`cb_copyself within w_rp_cus_price_updown
  172. end type
  173. type gb_1 from w_publ_easyq`gb_1 within w_rp_cus_price_updown
  174. end type
  175. type ln_bar from w_publ_easyq`ln_bar within w_rp_cus_price_updown
  176. end type
  177. type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_cus_price_updown
  178. end type
  179. type r_bar from w_publ_easyq`r_bar within w_rp_cus_price_updown
  180. end type
  181. type ln_1 from w_publ_easyq`ln_1 within w_rp_cus_price_updown
  182. end type
  183. type ln_2 from w_publ_easyq`ln_2 within w_rp_cus_price_updown
  184. end type
  185. type ln_3 from w_publ_easyq`ln_3 within w_rp_cus_price_updown
  186. boolean visible = false
  187. end type
  188. type ln_4 from w_publ_easyq`ln_4 within w_rp_cus_price_updown
  189. boolean visible = false
  190. end type
  191. type cbx_1 from checkbox within w_rp_cus_price_updown
  192. integer x = 891
  193. integer y = 208
  194. integer width = 521
  195. integer height = 60
  196. boolean bringtotop = true
  197. integer textsize = -9
  198. integer weight = 400
  199. fontcharset fontcharset = gb2312charset!
  200. fontpitch fontpitch = variable!
  201. string facename = "宋体"
  202. long textcolor = 33554432
  203. long backcolor = 134217739
  204. string text = "只显示有变价物料"
  205. boolean checked = true
  206. end type
  207. event clicked;IF cbx_1.Checked THEN
  208. cur_flag = 1
  209. ELSE
  210. cur_flag = 0
  211. END IF
  212. cb_1.TriggerEvent(Clicked!)
  213. end event
  214. type tv_1 from uo_tv_mtrltype within w_rp_cus_price_updown
  215. integer x = 9
  216. integer y = 312
  217. integer width = 800
  218. integer height = 1204
  219. integer taborder = 90
  220. boolean bringtotop = true
  221. integer textsize = -9
  222. fontcharset fontcharset = gb2312charset!
  223. fontfamily fontfamily = anyfont!
  224. string facename = "宋体"
  225. end type
  226. event selectionchanged;call super::selectionchanged;
  227. ls_handtype = THIS.uo_cur_info.handtype
  228. IF ls_handtype <> '' THEN
  229. ls_mtrltype = ls_handtype+'%'
  230. ELSE
  231. ls_mtrltype = ""
  232. END IF
  233. ls_handtype = ls_handtype + '%'
  234. cb_1.TriggerEvent(Clicked!)
  235. end event