w_credport_edit_ch_subid.srw 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345
  1. $PBExportHeader$w_credport_edit_ch_subid.srw
  2. forward
  3. global type w_credport_edit_ch_subid from window
  4. end type
  5. type rb_10 from radiobutton within w_credport_edit_ch_subid
  6. end type
  7. type rb_9 from radiobutton within w_credport_edit_ch_subid
  8. end type
  9. type rb_8 from radiobutton within w_credport_edit_ch_subid
  10. end type
  11. type rb_7 from radiobutton within w_credport_edit_ch_subid
  12. end type
  13. type rb_6 from radiobutton within w_credport_edit_ch_subid
  14. end type
  15. type rb_5 from radiobutton within w_credport_edit_ch_subid
  16. end type
  17. type rb_4 from radiobutton within w_credport_edit_ch_subid
  18. end type
  19. type rb_3 from radiobutton within w_credport_edit_ch_subid
  20. end type
  21. type rb_2 from radiobutton within w_credport_edit_ch_subid
  22. end type
  23. type rb_1 from radiobutton within w_credport_edit_ch_subid
  24. end type
  25. type gb_1 from groupbox within w_credport_edit_ch_subid
  26. end type
  27. type gb_2 from groupbox within w_credport_edit_ch_subid
  28. end type
  29. type gb_3 from groupbox within w_credport_edit_ch_subid
  30. end type
  31. type gb_4 from groupbox within w_credport_edit_ch_subid
  32. end type
  33. type gb_5 from groupbox within w_credport_edit_ch_subid
  34. end type
  35. end forward
  36. global type w_credport_edit_ch_subid from window
  37. integer width = 3776
  38. integer height = 1560
  39. boolean titlebar = true
  40. string title = "选择"
  41. boolean controlmenu = true
  42. windowtype windowtype = response!
  43. long backcolor = 67108864
  44. string icon = "AppIcon!"
  45. boolean center = true
  46. rb_10 rb_10
  47. rb_9 rb_9
  48. rb_8 rb_8
  49. rb_7 rb_7
  50. rb_6 rb_6
  51. rb_5 rb_5
  52. rb_4 rb_4
  53. rb_3 rb_3
  54. rb_2 rb_2
  55. rb_1 rb_1
  56. gb_1 gb_1
  57. gb_2 gb_2
  58. gb_3 gb_3
  59. gb_4 gb_4
  60. gb_5 gb_5
  61. end type
  62. global w_credport_edit_ch_subid w_credport_edit_ch_subid
  63. on w_credport_edit_ch_subid.create
  64. this.rb_10=create rb_10
  65. this.rb_9=create rb_9
  66. this.rb_8=create rb_8
  67. this.rb_7=create rb_7
  68. this.rb_6=create rb_6
  69. this.rb_5=create rb_5
  70. this.rb_4=create rb_4
  71. this.rb_3=create rb_3
  72. this.rb_2=create rb_2
  73. this.rb_1=create rb_1
  74. this.gb_1=create gb_1
  75. this.gb_2=create gb_2
  76. this.gb_3=create gb_3
  77. this.gb_4=create gb_4
  78. this.gb_5=create gb_5
  79. this.Control[]={this.rb_10,&
  80. this.rb_9,&
  81. this.rb_8,&
  82. this.rb_7,&
  83. this.rb_6,&
  84. this.rb_5,&
  85. this.rb_4,&
  86. this.rb_3,&
  87. this.rb_2,&
  88. this.rb_1,&
  89. this.gb_1,&
  90. this.gb_2,&
  91. this.gb_3,&
  92. this.gb_4,&
  93. this.gb_5}
  94. end on
  95. on w_credport_edit_ch_subid.destroy
  96. destroy(this.rb_10)
  97. destroy(this.rb_9)
  98. destroy(this.rb_8)
  99. destroy(this.rb_7)
  100. destroy(this.rb_6)
  101. destroy(this.rb_5)
  102. destroy(this.rb_4)
  103. destroy(this.rb_3)
  104. destroy(this.rb_2)
  105. destroy(this.rb_1)
  106. destroy(this.gb_1)
  107. destroy(this.gb_2)
  108. destroy(this.gb_3)
  109. destroy(this.gb_4)
  110. destroy(this.gb_5)
  111. end on
  112. type rb_10 from radiobutton within w_credport_edit_ch_subid
  113. integer x = 2071
  114. integer y = 836
  115. integer width = 795
  116. integer height = 64
  117. integer textsize = -9
  118. integer weight = 400
  119. fontcharset fontcharset = gb2312charset!
  120. fontpitch fontpitch = variable!
  121. string facename = "宋体"
  122. long textcolor = 33554432
  123. long backcolor = 67108864
  124. string text = "供应商费用单→费用项目科目"
  125. end type
  126. type rb_9 from radiobutton within w_credport_edit_ch_subid
  127. integer x = 1042
  128. integer y = 836
  129. integer width = 795
  130. integer height = 64
  131. integer textsize = -9
  132. integer weight = 400
  133. fontcharset fontcharset = gb2312charset!
  134. fontpitch fontpitch = variable!
  135. string facename = "宋体"
  136. long textcolor = 33554432
  137. long backcolor = 67108864
  138. string text = "客户费用单→费用项目科目"
  139. end type
  140. type rb_8 from radiobutton within w_credport_edit_ch_subid
  141. integer x = 142
  142. integer y = 836
  143. integer width = 795
  144. integer height = 64
  145. integer textsize = -9
  146. integer weight = 400
  147. fontcharset fontcharset = gb2312charset!
  148. fontpitch fontpitch = variable!
  149. string facename = "宋体"
  150. long textcolor = 33554432
  151. long backcolor = 67108864
  152. string text = "费用项目→会计科目"
  153. end type
  154. type rb_7 from radiobutton within w_credport_edit_ch_subid
  155. integer x = 2071
  156. integer y = 592
  157. integer width = 795
  158. integer height = 64
  159. integer textsize = -9
  160. integer weight = 400
  161. fontcharset fontcharset = gb2312charset!
  162. fontpitch fontpitch = variable!
  163. string facename = "宋体"
  164. long textcolor = 33554432
  165. long backcolor = 67108864
  166. string text = "转帐单→出纳帐号→转入科目"
  167. end type
  168. type rb_6 from radiobutton within w_credport_edit_ch_subid
  169. integer x = 1042
  170. integer y = 592
  171. integer width = 795
  172. integer height = 64
  173. integer textsize = -9
  174. integer weight = 400
  175. fontcharset fontcharset = gb2312charset!
  176. fontpitch fontpitch = variable!
  177. string facename = "宋体"
  178. long textcolor = 33554432
  179. long backcolor = 67108864
  180. string text = "转帐单→出纳帐号→转出科目"
  181. end type
  182. type rb_5 from radiobutton within w_credport_edit_ch_subid
  183. integer x = 142
  184. integer y = 592
  185. integer width = 667
  186. integer height = 64
  187. integer textsize = -9
  188. integer weight = 400
  189. fontcharset fontcharset = gb2312charset!
  190. fontpitch fontpitch = variable!
  191. string facename = "宋体"
  192. long textcolor = 33554432
  193. long backcolor = 67108864
  194. string text = "出纳帐号→会计科目"
  195. end type
  196. type rb_4 from radiobutton within w_credport_edit_ch_subid
  197. integer x = 1042
  198. integer y = 360
  199. integer width = 667
  200. integer height = 64
  201. integer textsize = -9
  202. integer weight = 400
  203. fontcharset fontcharset = gb2312charset!
  204. fontpitch fontpitch = variable!
  205. string facename = "宋体"
  206. long textcolor = 33554432
  207. long backcolor = 67108864
  208. string text = "供应商→其它应付科目"
  209. end type
  210. type rb_3 from radiobutton within w_credport_edit_ch_subid
  211. integer x = 142
  212. integer y = 360
  213. integer width = 667
  214. integer height = 64
  215. integer textsize = -9
  216. integer weight = 400
  217. fontcharset fontcharset = gb2312charset!
  218. fontpitch fontpitch = variable!
  219. string facename = "宋体"
  220. long textcolor = 33554432
  221. long backcolor = 67108864
  222. string text = "供应商→应付科目"
  223. end type
  224. type rb_2 from radiobutton within w_credport_edit_ch_subid
  225. integer x = 1042
  226. integer y = 112
  227. integer width = 667
  228. integer height = 64
  229. integer textsize = -9
  230. integer weight = 400
  231. fontcharset fontcharset = gb2312charset!
  232. fontpitch fontpitch = variable!
  233. string facename = "宋体"
  234. long textcolor = 33554432
  235. long backcolor = 67108864
  236. string text = "客户→其它应收科目"
  237. end type
  238. type rb_1 from radiobutton within w_credport_edit_ch_subid
  239. integer x = 146
  240. integer y = 124
  241. integer width = 667
  242. integer height = 64
  243. integer textsize = -9
  244. integer weight = 400
  245. fontcharset fontcharset = gb2312charset!
  246. fontpitch fontpitch = variable!
  247. string facename = "宋体"
  248. long textcolor = 33554432
  249. long backcolor = 67108864
  250. string text = "客户→应收科目"
  251. end type
  252. type gb_1 from groupbox within w_credport_edit_ch_subid
  253. integer x = 73
  254. integer y = 32
  255. integer width = 3136
  256. integer height = 196
  257. integer taborder = 10
  258. integer textsize = -9
  259. integer weight = 400
  260. fontcharset fontcharset = gb2312charset!
  261. fontpitch fontpitch = variable!
  262. string facename = "宋体"
  263. long textcolor = 16711680
  264. long backcolor = 67108864
  265. string text = "客户"
  266. end type
  267. type gb_2 from groupbox within w_credport_edit_ch_subid
  268. integer x = 69
  269. integer y = 272
  270. integer width = 3136
  271. integer height = 196
  272. integer taborder = 10
  273. integer textsize = -9
  274. integer weight = 400
  275. fontcharset fontcharset = gb2312charset!
  276. fontpitch fontpitch = variable!
  277. string facename = "宋体"
  278. long textcolor = 16711680
  279. long backcolor = 67108864
  280. string text = "供应商"
  281. end type
  282. type gb_3 from groupbox within w_credport_edit_ch_subid
  283. integer x = 78
  284. integer y = 752
  285. integer width = 3136
  286. integer height = 196
  287. integer taborder = 20
  288. integer textsize = -9
  289. integer weight = 400
  290. fontcharset fontcharset = gb2312charset!
  291. fontpitch fontpitch = variable!
  292. string facename = "宋体"
  293. long textcolor = 16711680
  294. long backcolor = 67108864
  295. string text = "费用项目"
  296. end type
  297. type gb_4 from groupbox within w_credport_edit_ch_subid
  298. integer x = 78
  299. integer y = 512
  300. integer width = 3136
  301. integer height = 196
  302. integer taborder = 30
  303. integer textsize = -9
  304. integer weight = 400
  305. fontcharset fontcharset = gb2312charset!
  306. fontpitch fontpitch = variable!
  307. string facename = "宋体"
  308. long textcolor = 16711680
  309. long backcolor = 67108864
  310. string text = "出纳帐号"
  311. end type
  312. type gb_5 from groupbox within w_credport_edit_ch_subid
  313. integer x = 2281
  314. integer y = 1120
  315. integer width = 2263
  316. integer height = 196
  317. integer taborder = 30
  318. integer textsize = -9
  319. integer weight = 400
  320. fontcharset fontcharset = gb2312charset!
  321. fontpitch fontpitch = variable!
  322. string facename = "宋体"
  323. long textcolor = 16711680
  324. long backcolor = 67108864
  325. string text = "供应商"
  326. end type