w_cmpl_addqty_ch_sale.srw 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256
  1. $PBExportHeader$w_cmpl_addqty_ch_sale.srw
  2. forward
  3. global type w_cmpl_addqty_ch_sale from w_publ_base
  4. end type
  5. type cb_1 from uo_imflatbutton within w_cmpl_addqty_ch_sale
  6. end type
  7. type sle_1 from singlelineedit within w_cmpl_addqty_ch_sale
  8. end type
  9. type rb_1 from radiobutton within w_cmpl_addqty_ch_sale
  10. end type
  11. type rb_2 from radiobutton within w_cmpl_addqty_ch_sale
  12. end type
  13. type st_1 from statictext within w_cmpl_addqty_ch_sale
  14. end type
  15. type st_2 from statictext within w_cmpl_addqty_ch_sale
  16. end type
  17. type st_3 from statictext within w_cmpl_addqty_ch_sale
  18. end type
  19. type em_1 from editmask within w_cmpl_addqty_ch_sale
  20. end type
  21. end forward
  22. global type w_cmpl_addqty_ch_sale from w_publ_base
  23. integer width = 1198
  24. integer height = 572
  25. string title = "设定公式"
  26. boolean minbox = false
  27. windowtype windowtype = response!
  28. cb_1 cb_1
  29. sle_1 sle_1
  30. rb_1 rb_1
  31. rb_2 rb_2
  32. st_1 st_1
  33. st_2 st_2
  34. st_3 st_3
  35. em_1 em_1
  36. end type
  37. global w_cmpl_addqty_ch_sale w_cmpl_addqty_ch_sale
  38. type variables
  39. string ls_value
  40. long ll_flag
  41. string ls_num
  42. s_cmpl_addqty s_cmpl
  43. end variables
  44. on w_cmpl_addqty_ch_sale.create
  45. int iCurrent
  46. call super::create
  47. this.cb_1=create cb_1
  48. this.sle_1=create sle_1
  49. this.rb_1=create rb_1
  50. this.rb_2=create rb_2
  51. this.st_1=create st_1
  52. this.st_2=create st_2
  53. this.st_3=create st_3
  54. this.em_1=create em_1
  55. iCurrent=UpperBound(this.Control)
  56. this.Control[iCurrent+1]=this.cb_1
  57. this.Control[iCurrent+2]=this.sle_1
  58. this.Control[iCurrent+3]=this.rb_1
  59. this.Control[iCurrent+4]=this.rb_2
  60. this.Control[iCurrent+5]=this.st_1
  61. this.Control[iCurrent+6]=this.st_2
  62. this.Control[iCurrent+7]=this.st_3
  63. this.Control[iCurrent+8]=this.em_1
  64. end on
  65. on w_cmpl_addqty_ch_sale.destroy
  66. call super::destroy
  67. destroy(this.cb_1)
  68. destroy(this.sle_1)
  69. destroy(this.rb_1)
  70. destroy(this.rb_2)
  71. destroy(this.st_1)
  72. destroy(this.st_2)
  73. destroy(this.st_3)
  74. destroy(this.em_1)
  75. end on
  76. event close;call super::close;closewithreturn(this,s_cmpl)
  77. end event
  78. event open;call super::open;
  79. ls_value = f_ProfileString (sys_empid,'w_cmpl_addqty_ch_sale', "value",'0')
  80. ll_flag = Long(f_ProfileString (sys_empid,'w_cmpl_addqty_ch_sale', "flag",'0'))
  81. ls_num = f_ProfileString (sys_empid,'w_cmpl_addqty_ch_sale', "num",'0')
  82. IF ll_flag = 0 THEN
  83. rb_1.Checked = TRUE
  84. ELSE
  85. rb_2.Checked = TRUE
  86. END IF
  87. sle_1.Text = ls_value
  88. em_1.text = ls_num
  89. end event
  90. type cb_func from w_publ_base`cb_func within w_cmpl_addqty_ch_sale
  91. boolean visible = false
  92. end type
  93. type cb_exit from w_publ_base`cb_exit within w_cmpl_addqty_ch_sale
  94. integer x = 626
  95. integer y = 364
  96. integer width = 302
  97. integer height = 100
  98. end type
  99. type cb_1 from uo_imflatbutton within w_cmpl_addqty_ch_sale
  100. integer x = 215
  101. integer y = 364
  102. integer taborder = 20
  103. boolean bringtotop = true
  104. string normalpicname = "ok.bmp"
  105. end type
  106. event clicked;call super::clicked;ls_value = sle_1.text
  107. ls_num = em_1.text
  108. if rb_1.checked then
  109. ll_flag = 0
  110. elseif rb_2.checked then
  111. ll_flag = 1
  112. end if
  113. f_SetProfileString (sys_empid, "w_cmpl_addqty_ch_sale", "flag", string(ll_flag))
  114. f_SetProfileString (sys_empid, "w_cmpl_addqty_ch_sale", "value", ls_value)
  115. f_SetProfileString (sys_empid, "w_cmpl_addqty_ch_sale", "num",ls_num)
  116. s_cmpl.flag = ll_flag
  117. s_cmpl.addvalue = dec(ls_value)
  118. s_cmpl.num= long(ls_num)
  119. close(parent)
  120. end event
  121. type sle_1 from singlelineedit within w_cmpl_addqty_ch_sale
  122. integer x = 608
  123. integer y = 80
  124. integer width = 279
  125. integer height = 84
  126. integer taborder = 30
  127. boolean bringtotop = true
  128. integer textsize = -9
  129. integer weight = 400
  130. fontcharset fontcharset = gb2312charset!
  131. fontpitch fontpitch = variable!
  132. string facename = "宋体"
  133. long textcolor = 33554432
  134. borderstyle borderstyle = stylelowered!
  135. end type
  136. type rb_1 from radiobutton within w_cmpl_addqty_ch_sale
  137. integer x = 443
  138. integer y = 56
  139. integer width = 155
  140. integer height = 60
  141. boolean bringtotop = true
  142. integer textsize = -9
  143. integer weight = 400
  144. fontcharset fontcharset = gb2312charset!
  145. fontpitch fontpitch = variable!
  146. string facename = "宋体"
  147. long textcolor = 33554432
  148. long backcolor = 134217738
  149. string text = "*"
  150. end type
  151. type rb_2 from radiobutton within w_cmpl_addqty_ch_sale
  152. integer x = 443
  153. integer y = 136
  154. integer width = 160
  155. integer height = 56
  156. boolean bringtotop = true
  157. integer textsize = -9
  158. integer weight = 400
  159. fontcharset fontcharset = gb2312charset!
  160. fontpitch fontpitch = variable!
  161. string facename = "宋体"
  162. long textcolor = 33554432
  163. long backcolor = 134217738
  164. string text = "/"
  165. end type
  166. type st_1 from statictext within w_cmpl_addqty_ch_sale
  167. integer x = 73
  168. integer y = 96
  169. integer width = 315
  170. integer height = 64
  171. boolean bringtotop = true
  172. integer textsize = -9
  173. integer weight = 400
  174. fontcharset fontcharset = gb2312charset!
  175. fontpitch fontpitch = variable!
  176. string facename = "宋体"
  177. long textcolor = 33554432
  178. long backcolor = 134217738
  179. string text = "规格 * 数量"
  180. boolean focusrectangle = false
  181. end type
  182. type st_2 from statictext within w_cmpl_addqty_ch_sale
  183. integer x = 923
  184. integer y = 88
  185. integer width = 224
  186. integer height = 64
  187. boolean bringtotop = true
  188. integer textsize = -9
  189. integer weight = 400
  190. fontcharset fontcharset = gb2312charset!
  191. fontpitch fontpitch = variable!
  192. string facename = "宋体"
  193. long textcolor = 33554432
  194. long backcolor = 134217738
  195. string text = "= 辅数"
  196. boolean focusrectangle = false
  197. end type
  198. type st_3 from statictext within w_cmpl_addqty_ch_sale
  199. integer x = 325
  200. integer y = 244
  201. integer width = 201
  202. integer height = 56
  203. boolean bringtotop = true
  204. integer textsize = -9
  205. integer weight = 400
  206. fontcharset fontcharset = gb2312charset!
  207. fontpitch fontpitch = variable!
  208. string facename = "宋体"
  209. long textcolor = 33554432
  210. long backcolor = 134217738
  211. string text = "小数位:"
  212. alignment alignment = right!
  213. boolean focusrectangle = false
  214. end type
  215. type em_1 from editmask within w_cmpl_addqty_ch_sale
  216. integer x = 530
  217. integer y = 232
  218. integer width = 238
  219. integer height = 84
  220. integer taborder = 40
  221. boolean bringtotop = true
  222. integer textsize = -9
  223. integer weight = 400
  224. fontcharset fontcharset = gb2312charset!
  225. fontpitch fontpitch = variable!
  226. string facename = "宋体"
  227. long textcolor = 33554432
  228. alignment alignment = right!
  229. borderstyle borderstyle = stylelowered!
  230. string mask = "###0"
  231. boolean spin = true
  232. double increment = 1
  233. string minmax = "0~~5"
  234. end type